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

allow run of non CLOG apps if have entry-point, since we have a consule now

Browse source
This commit is contained in:
David Botton 2024-04-14 23:54:17 -04:00
parent 11c19eedeb
commit 282d6c6c03
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -150,7 +150,6 @@
(setf (disabledp (design-del-dep panel)) t)
(setf (disabledp (design-plugin panel)) t)
(setf (disabledp (entry-point panel)) t)
(setf (disabledp (run-button panel)) t)
(setf (current-project app) (if (equal sel "None")
nil
sel))
@ -159,9 +158,8 @@
(let ((fs (asdf:find-system sel)))
;; entry point
(setf (text-value (entry-point panel))
(or (asdf/system:component-entry-point
fs)
""))
(or (asdf/system:component-entry-point fs)
""))
(setf (current-project-dir app)
(asdf:component-pathname
fs))