Changeset 15438

Timestamp:

10/29/20 16:54:31 (2 years ago)

Author:

Mark Evenson

Message:

quicklisp-abcl: fix error when removing fasls

File:

• trunk/abcl/contrib/quicklisp/quicklisp-abcl.lisp (modified) (1 diff)

trunk/abcl/contrib/quicklisp/quicklisp-abcl.lisp

@@ -36 +36 @@
                (asdf:apply-output-translations
                 (asdf:system-source-directory (asdf:find-system :quicklisp))))))
-      (let ((all-fasls (list setup-fasl
-                             (when asdf-output-root
-                               (directory 
-                                (merge-pathnames "**/*" asdf-output-root))))))
+      (let ((all-fasls (append (list setup-fasl)
+                               (when asdf-output-root
+                                 (directory 
+                                  (merge-pathnames "**/*" asdf-output-root))))))
         (when remove
           (format *load-verbose* "~&;;quicklisp-abcl: deleting ~{~a ~}~%" all-fasls)