From d9017c397faf1c41490f88c56f21410b405b97f6 Mon Sep 17 00:00:00 2001 From: Sebastian Carlos Date: Wed, 2 Apr 2025 22:52:56 -0300 Subject: [PATCH] Remove unused function "recursively-install from 'quicklisp/setup.lisp' --- quicklisp/setup.lisp | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/quicklisp/setup.lisp b/quicklisp/setup.lisp index 1daedf2..0a3e842 100644 --- a/quicklisp/setup.lisp +++ b/quicklisp/setup.lisp @@ -12,17 +12,6 @@ (fresh-line) (finish-output))) -(defun recursively-install (name) - (labels ((recurse (name) - (let ((system (find-system name))) - (unless system - (error "Unknown system ~S" name)) - (ensure-installed system) - (mapc #'recurse (required-systems system)) - name))) - (with-consistent-dists - (recurse name)))) - (defclass load-strategy () ((name :initarg :name