From f39e40c2da060a9d270e7a85b5a85e1bc9b70058 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=A9ssica=20Milar=C3=A9?= Date: Wed, 12 Jun 2019 12:13:05 -0300 Subject: [PATCH 1/2] Add :PRINT-CASE argument to quickload, set :UPCASE by default Some systems don't load correctly when *PRINT-CASE* isn't :UPCASE. --- quicklisp/client.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/quicklisp/client.lisp b/quicklisp/client.lisp index 7b67834..eb571d8 100644 --- a/quicklisp/client.lisp +++ b/quicklisp/client.lisp @@ -20,16 +20,18 @@ (defun maybe-silence (silent stream) (or (and silent (make-broadcast-stream)) stream)) -(defgeneric quickload (systems &key verbose silent prompt explain &allow-other-keys) +(defgeneric quickload (systems &key verbose silent prompt explain print-case &allow-other-keys) (:documentation "Load SYSTEMS the quicklisp way. SYSTEMS is a designator for a list of things to be loaded.") (:method (systems &key (prompt *quickload-prompt*) (silent nil) - (verbose *quickload-verbose*) &allow-other-keys) + (verbose *quickload-verbose*) + (print-case :upcase) &allow-other-keys) (let ((*standard-output* (maybe-silence silent *standard-output*)) - (*trace-output* (maybe-silence silent *trace-output*))) + (*trace-output* (maybe-silence silent *trace-output*)) + (*print-case* print-case)) (unless (consp systems) (setf systems (list systems))) (dolist (thing systems systems) From efa699601468aa8e3a36a697acb212cfcf787120 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=A9ssica=20Milar=C3=A9?= Date: Sat, 15 Jun 2019 22:56:44 -0300 Subject: [PATCH 2/2] Minor style change --- quicklisp/client.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/quicklisp/client.lisp b/quicklisp/client.lisp index eb571d8..073a95c 100644 --- a/quicklisp/client.lisp +++ b/quicklisp/client.lisp @@ -28,10 +28,9 @@ (prompt *quickload-prompt*) (silent nil) (verbose *quickload-verbose*) - (print-case :upcase) &allow-other-keys) + ((:print-case *print-case*) :upcase) &allow-other-keys) (let ((*standard-output* (maybe-silence silent *standard-output*)) - (*trace-output* (maybe-silence silent *trace-output*)) - (*print-case* print-case)) + (*trace-output* (maybe-silence silent *trace-output*))) (unless (consp systems) (setf systems (list systems))) (dolist (thing systems systems)