mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

multi value return handled

Browse source
This commit is contained in:
David Botton 2024-06-09 21:38:22 -04:00
parent ac85b38c91
commit 59b16090d3
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -315,18 +315,22 @@ name. If CLOG-BODY not set use *clog-debug-instance*"
:content (format nil "slot-definition-allocation = ~A" :content (format nil "slot-definition-allocation = ~A"
(escape-lisp (closer-mop:slot-definition-allocation slot)))))) (escape-lisp (closer-mop:slot-definition-allocation slot))))))
(closer-mop:class-direct-slots dclass)))) (closer-mop:class-direct-slots dclass))))
(on-change (object) (on-change (object &key is-list)
(setf (text tree) "") (setf (text tree) "")
(create-div tree :class "w3-tiny w3-center" (create-div tree :class "w3-tiny w3-center"
:content "left-click - drill down / right-click - system browse<br><br>") :content "left-click - drill down / right-click - system browse<br><br>")
(setf class (class-of object)) (if is-list
(add-class tree class object))) (add-list tree object)
(progn
(setf class (class-of object))
(add-class tree class object)))))
(set-on-change root-obj (lambda (obj) (set-on-change root-obj (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(when (not (equal (text-value root-obj) "")) (when (not (equal (text-value root-obj) ""))
(on-change (let* ((*default-title-class* *builder-title-class*) (let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*) (*default-border-class* *builder-border-class*)
(*package* (find-package (string-upcase (text-value pac-line))))) (*package* (find-package (string-upcase (text-value pac-line)))))
(eval (read-from-string (text-value root-obj)))))))) (on-change (multiple-value-list (eval (read-from-string (text-value root-obj))))
:is-list t)))))
(when object (when object
(on-change object))))) (on-change object)))))