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

add test to push new

Browse source
This commit is contained in:
David Botton 2022-09-28 11:23:04 -04:00
parent 9eb007c70e
commit 5425a33839
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -12,7 +12,9 @@
(defun projects-setup (panel)
(let* ((app (connection-data-item panel "builder-app-data")))
(when (uiop:directory-exists-p #P"~/common-lisp/")
(pushnew #P"~/common-lisp/" (symbol-value (read-from-string "ql:*local-project-directories*"))))
(pushnew #P"~/common-lisp/"
(symbol-value (read-from-string "ql:*local-project-directories*"))
:test #'equalp))
(add-select-option (project-list panel) "None" "None")
(dolist (n (sort (projects-list-local-systems) #'string-lessp))
(add-select-option (project-list panel) n n))