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

load and reload asdf systems

Browse source
This commit is contained in:
David Botton 2022-07-31 15:16:07 -04:00
parent 1806d66698
commit 18aba27e53
3 changed files with 56 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tools/clog-builder.lisp
View file

@ -2233,10 +2233,17 @@ of controls and double click to select control."
(let* ((app (connection-data-item obj "builder-app-data"))
(win (create-gui-window obj :title "ASDF System Browser"
:top 40 :left 225
:width 592 :height 390
:width 592 :height 412
:client-movement t)))
(create-asdf-systems (window-content win))))
(defun asdf-browser-reset (panel)
(setf (inner-html (loaded-systems panel)) "")
(dolist (n (asdf:already-loaded-systems))
(add-select-option (loaded-systems panel) n n))
(setf (text-value (loaded-systems panel)) "clog")
(asdf-browser-populate panel))
(defun asdf-browser-populate (panel)
(setf (text-value (source-file panel))
(asdf:system-source-file