Corrected typo in update-project-dir.

Pascal J. Bourguignon [2021-05-15 02:23]
Corrected typo in update-project-dir.
Filename
tools/quicklisp.lisp
diff --git a/tools/quicklisp.lisp b/tools/quicklisp.lisp
index 35afca7..ad13e74 100644
--- a/tools/quicklisp.lisp
+++ b/tools/quicklisp.lisp
@@ -214,7 +214,7 @@ are listed."
                                ,label ,vstat ,vout ,verr))))))
       (let* ((cache-dir   (merge-pathnames ".cache/" (user-homedir-pathname) nil))
              (project-dir (merge-pathnames "quicklisp-projects/" cache-dir nil))
-             (probe       (merge-pathnames "README.md" *projects-dir* nil)))
+             (probe       (merge-pathnames "README.md" project-dir nil)))
         (setf *projects-dir* project-dir)
         (unless (probe-file probe)
           (ensure-directories-exist probe)
ViewGit