save and evaluate

This commit is contained in:
David Botton 2022-07-28 14:35:00 -04:00
parent 1ef96c7a96
commit 7a1cf8d75e
3 changed files with 94 additions and 22 deletions

View file

@ -2188,6 +2188,8 @@ of controls and double click to select control."
(setf (inner-html (class-box panel)) "")
(setf (text-value (src-box panel)) "")
(setf (text-value (doc-box panel)) "")
(setf (text-value (file-name panel)) "")
(setf (fname panel) nil)
(setf (classes panel) (definitions:find-definitions
(text-value (package-box panel))
:package (find-package :key)