From 9a21c426732257ee8101562815cd470039bc2b8f Mon Sep 17 00:00:00 2001 From: Gary Palter Date: Sun, 25 Sep 2022 12:23:45 -0400 Subject: [PATCH] Fix #219: Replace references to SCL with QL-GENERA --- 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