From 38b238700ec7a02a0832d844f022336543096a0a Mon Sep 17 00:00:00 2001 From: Adlai Date: Tue, 4 Apr 2023 18:40:37 +0300 Subject: [PATCH] Fix SCL package references The string "SCL" is commonly used for certain implementation packages, although after impl.lisp has wrapped all references to it, it should not be referenced from this file. --- quicklisp/impl-util.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/quicklisp/impl-util.lisp b/quicklisp/impl-util.lisp index 0b0743d..efa78c3 100644 --- a/quicklisp/impl-util.lisp +++ b/quicklisp/impl-util.lisp @@ -202,7 +202,7 @@ quicklisp at CL startup." (ql-lispworks:file-directory-p entry)) (:implementation genera (let ((path (if (call-next-method) - (scl:send entry :directory-pathname-as-file) + (ql-genera:send entry :directory-pathname-as-file) entry))) (getf (cdr (ql-genera:file-properties path)) ':directory)))) @@ -260,7 +260,7 @@ quicklisp at CL startup." (let ((entries (ql-genera:directory-list (merge-pathnames *wild-entry* directory)))) (loop for (pathname . properties) in (cdr entries) if (getf properties ':directory) - collect (scl:send pathname :pathname-as-directory) + collect (ql-genera:send pathname :pathname-as-directory) else collect pathname))) (:implementation mezzano