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

make sure macro compiled before probe panel

Browse source
This commit is contained in:
David Botton 2024-06-06 20:32:34 -04:00
parent efde4130f2
commit 8b1c80e970
4 changed files with 89 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder-project-tree.lisp
View file

@ -222,7 +222,7 @@
(project-tree-select obj (format nil "~A" item)))
:content (file-namestring item))))))
(load-proj (sel)
(setf (text-value load-btn) "loading")
(setf (text-value load-btn) "working")
(setf (background-color load-btn) :yellow)
(handler-case
(projects-load (format nil "~A/tools" sel))
@ -241,7 +241,7 @@
(setf (background-color load-btn) load-np)
(setf (current-project app) nil))
(t
(setf (text-value load-btn) "loading")
(setf (text-value load-btn) "working")
(setf (background-color load-btn) :yellow)
(let* ((root (quicklisp:where-is-system sel))
(dir (directory-namestring (uiop:truename* root))))