From 17e989aea66f7931d5ad7c824dc7fabf6b1c1fc2 Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Wed, 18 Nov 2015 12:50:47 +0100 Subject: [PATCH 1/2] extend .gitignore so that a checked out repo can be used as ~/quicklisp --- .gitignore | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/.gitignore b/.gitignore index 8c65286..d682f89 100644 --- a/.gitignore +++ b/.gitignore @@ -2,3 +2,10 @@ *~ quicklisp.tar quicklisp.tar.gz +asdf.lisp.* +cache +client-info.sexp +dists +local-projects +retired +tmp From 490c6936b2ae00c1c5016cece1ffed24877a9350 Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Wed, 18 Nov 2015 12:51:19 +0100 Subject: [PATCH 2/2] small cleanups, whitespace and asdf related --- quicklisp/setup.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/quicklisp/setup.lisp b/quicklisp/setup.lisp index a62b4aa..fb2a671 100644 --- a/quicklisp/setup.lisp +++ b/quicklisp/setup.lisp @@ -132,7 +132,7 @@ (when (and (consp form) (eq (first form) 'cl:defpackage) (ignore-errors (string (second form)))) - (show-package (second form))) + (show-package (second form))) (incf seen-so-far) (when (<= forms-per-char seen-so-far) (setf seen-so-far 0) @@ -158,7 +158,7 @@ (call-with-macroexpand-progress (lambda () (format t "~&; Loading ~S~%" (name strategy)) - (asdf:oos 'asdf:load-op (name strategy) :verbose nil)))) + (asdf:load-system (name strategy) :verbose nil)))) (defun autoload-system-and-dependencies (name &key prompt) "Try to load the system named by NAME, automatically loading any