fix: global init

cl-qob · Nov 17, 2024 · 1d2d900 · 1d2d900
1 parent b1719be
commit 1d2d900
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/utils.lisp b/src/utils.lisp
@@ -191,11 +191,14 @@ arguments in the command list."
 
 (defun quicklisp-lisp (cmd)
   "Return Quicklisp's file location."
-  (concatenate 'string (dot cmd) "quicklisp.lisp"))
+  (if (global-p cmd)
+      (concatenate 'string (el-lib:el-2str (user-homedir-pathname))
+                   "quicklisp/")
+      (concatenate 'string (dot cmd) "quicklisp.lisp")))
 
 (defun quicklisp-installed-p (cmd)
   "Return non-nil if Quicklisp is already installed."
-  (uiop:file-exists-p (quicklisp-lisp cmd)))
+  (probe-file (quicklisp-lisp cmd)))
 
 (defun quicklisp-download (cmd)
   "Download quicklisp."