mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-09 20:30:26 -08:00
Code Issues Projects Releases Wiki Activity

do not add more than once inspectors of same name

Browse source
This commit is contained in:
David Botton 2024-06-02 16:07:54 -04:00
parent 46c1f230dd
commit e99e5a2123
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -35,7 +35,10 @@ replaced. (Exported)"
(defun add-inspector (name func)
"Add a custom inspector with NAME and (FUNC object title value clog-obj)"
(pushnew (list :name name :func func) *inspectors*))
(setf *inspectors* (remove-if (lambda (x)
(equalp name (getf x :name)))
*inspectors*))
(push (list :name name :func func) *inspectors*))
(defun reset-control-pallete (panel)
(let* ((app (connection-data-item panel "builder-app-data"))