diff --git a/QLOT.md b/QLOT.md index f47ec1b..445c5ac 100644 --- a/QLOT.md +++ b/QLOT.md @@ -54,6 +54,11 @@ builder do: (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 ``` sbcl --eval "(ql:quickload :qlot)" \ diff --git a/tools/clog-builder-shell.lisp b/tools/clog-builder-shell.lisp index 27fffdb..a25bf68 100644 --- a/tools/clog-builder-shell.lisp +++ b/tools/clog-builder-shell.lisp @@ -7,8 +7,10 @@ (win (create-gui-window obj :title (format nil "OS Pseudo Shell - ~A - ~A" (uiop:operating-system) (uiop:hostname)) - :width 600 :height 400 - :client-movement *client-side-movement*))) + :top (menu-bar-height obj) + :left (+ *builder-left-panel-size* 5) + :width 600 :height 400 + :client-movement *client-side-movement*))) (set-on-click (create-span (window-icon-area win) :content (format nil "~A " (code-char #x26F6)) :auto-place :top)