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

sort project list

Browse source
This commit is contained in:
David Botton 2024-05-12 16:00:34 -04:00
parent 74c22bd5dc
commit 4999e30bb4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder-project-tree.lisp
View file

@ -288,7 +288,7 @@
(setf (text-value load-btn) "not loaded")) (setf (text-value load-btn) "not loaded"))
((equalp (text-value load-btn) "not loaded") ((equalp (text-value load-btn) "not loaded")
(load-proj (value projects)))))) (load-proj (value projects))))))
(dolist (n (quicklisp:list-local-systems)) (dolist (n (sort (quicklisp:list-local-systems) #'string-lessp))
(add-select-option projects n n :selected (equalp n project)) (add-select-option projects n n :selected (equalp n project))
(when (equalp n project) (when (equalp n project)
(on-change projects))) (on-change projects)))