mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

Support no-quicklisp asdf systems and OCICL

Browse source
This commit is contained in:
David Botton 2024-07-08 14:47:30 -04:00
parent eda76103cb
commit e189b51c87
9 changed files with 196 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder-projects.lisp
View file

@ -25,12 +25,12 @@
(defun projects-list-local-systems ()
(if *no-quicklisp*
(list *start-project*)
(last (pathname-directory (uiop:getcwd)))
(funcall (read-from-string "ql:list-local-systems"))))
(defun projects-local-directories ()
(if *no-quicklisp*
nil
(symbol-value (read-from-string "asdf:*central-registry*"))
(symbol-value (read-from-string "ql:*local-project-directories*"))))
(defun projects-setup (panel)