bug fix in load of asdf window

This commit is contained in:
David Botton 2022-08-22 14:24:03 -04:00
parent 85c7b93553
commit 7b7715b760

View file

@ -2398,7 +2398,7 @@ of controls and double click to select control."
(dolist (n (sort (asdf:already-loaded-systems) #'string-lessp))
(add-select-option (loaded-systems panel) n n))
(if (current-project app)
(setf (text-value (project-list panel)) (current-project app))
(setf (text-value (loaded-systems panel)) (current-project app))
(setf (text-value (loaded-systems panel)) "clog"))
(asdf-browser-populate panel)))