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

better project load

Browse source
This commit is contained in:
David Botton 2022-08-22 14:18:57 -04:00
parent a0a3216a71
commit 85c7b93553
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tools/clog-builder.lisp
View file

@ -2569,7 +2569,8 @@ of controls and double click to select control."
(defun projects-setup (panel)
(let* ((app (connection-data-item panel "builder-app-data")))
(pushnew #P"~/common-lisp/" ql:*local-project-directories*)
(when (uiop:directory-exists-p #P"~/common-lisp/")
(pushnew #P"~/common-lisp/" ql:*local-project-directories*))
(add-select-option (project-list panel) "None" "None")
(dolist (n (sort (ql:list-local-systems) #'string-lessp))
(add-select-option (project-list panel) n n))
@ -2686,11 +2687,9 @@ of controls and double click to select control."
(confirm-dialog panel "Load project?"
(lambda (answer)
(cond (answer
(handler-case
(ql:quickload (format nil "~A/tools" sel))
(t (c)
(declare (ignore c))
(ql:quickload sel)))
(ql:quickload sel)
(ignore-errors
(ql:quickload (format nil "~A/tools" sel)))
(projects-populate panel))
(t
(setf (current-project app) nil)