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

additional qlot notes on updating

Browse source
This commit is contained in:
David Botton 2024-07-07 17:27:03 -04:00
parent e3585b264c
commit 8cf47da24a
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
QLOT.md vendored
View file

@ -54,6 +54,11 @@ builder do:
(clog-tools:clog-builder :project :qtest) (clog-tools:clog-builder :project :qtest)
``` ```
To update your local quicklisp use (ql:update-all-dist) or in CLOG Builder
Options -> Update CLOG Builder
If you used qlot and or added directly to the qlfile use (qlot:update :name-of-system)
To make things easier create a file say - ql and chmod 775 To make things easier create a file say - ql and chmod 775
``` ```
sbcl --eval "(ql:quickload :qlot)" \ sbcl --eval "(ql:quickload :qlot)" \

6
tools/clog-builder-shell.lisp
View file

@ -7,8 +7,10 @@
(win (create-gui-window obj :title (format nil "OS Pseudo Shell - ~A - ~A" (win (create-gui-window obj :title (format nil "OS Pseudo Shell - ~A - ~A"
(uiop:operating-system) (uiop:operating-system)
(uiop:hostname)) (uiop:hostname))
:width 600 :height 400 :top (menu-bar-height obj)
:client-movement *client-side-movement*))) :left (+ *builder-left-panel-size* 5)
:width 600 :height 400
:client-movement *client-side-movement*)))
(set-on-click (create-span (window-icon-area win) (set-on-click (create-span (window-icon-area win)
:content (format nil "~A " (code-char #x26F6)) :content (format nil "~A " (code-char #x26F6))
:auto-place :top) :auto-place :top)