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

5
tools/clog-builder-scope.lisp
View file

@ -190,7 +190,8 @@
(add-class tree class object)))
(set-on-change root-obj (lambda (obj)
(declare (ignore obj))
(on-change (let ((*package* (find-package (string-upcase (text-value pac-line)))))
(eval (read-from-string (text-value root-obj)))))))
(when (not (equal (text-value root-obj) ""))
(on-change (let ((*package* (find-package (string-upcase (text-value pac-line)))))
(eval (read-from-string (text-value root-obj))))))))
(when object
(on-change object)))))