common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fix...

Browse source
This commit is contained in:
SANO Masatoshi 2021-01-25 00:02:23 +09:00
parent 8353528056
commit 4b0bd99975
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/init.lisp
View file

@ -173,16 +173,14 @@ have the latest asdf, and this file has a workaround for this.
"Corresponds to -Q command. Finds and loads setup.lisp for quicklisp, and adds appropriate local-project paths."
(cond
((and is-quicklisp-already-available
(not (equal (opt "quicklisp")
(namestring (symbol-value (read-from-string "ql:*quicklisp-home*"))))))
(setf
*local-project-directories*
(copy-list
(symbol-value (read-from-string "ql:*local-project-directories*"))))
(is-quicklisp-already-available
(unless (equal (opt "quicklisp")
(namestring (symbol-value (read-from-string "ql:*quicklisp-home*"))))
(setf *local-project-directories*
(copy-list
(symbol-value (read-from-string "ql:*local-project-directories*")))))
;; In this case we have to return nil
(values nil))
(t ;; If quicklisp is not loaded yet:
(let ((path (make-pathname
:name "setup"