mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-24 11:00:41 -08:00
Code Issues Projects Releases Wiki Activity

load project speed up

Browse source
This commit is contained in:
David Botton 2024-04-25 19:47:57 -04:00
parent 90ef3e27b2
commit b00ca09996
1 changed files with 67 additions and 69 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -169,18 +169,16 @@
(let ((name (asdf:component-relative-pathname n))
(path (asdf:component-pathname n)))
(add-select-option (runtime-list panel) path name)))
(dolist (n (asdf:system-depends-on
fs))
(dolist (n (asdf:system-depends-on fs))
(add-select-option (runtime-deps panel) n n)))
;; fill designtime)
;; fill designtime
(handler-case
(let ((sys (asdf:find-system (format nil "~A/tools" sel))))
(dolist (n (asdf:component-children sys))
(let ((name (asdf:component-relative-pathname n))
(path (asdf:component-pathname n)))
(add-select-option (designtime-list panel) path name)))
(dolist (n (asdf:system-depends-on
(asdf:find-system sys)))
(dolist (n (asdf:system-depends-on sys))
(add-select-option (design-deps panel) n n))
(cond ((member "clog" (asdf:system-defsystem-depends-on sys) :test #'equal)
(setf (disabledp (runtime-add-lisp panel)) nil)