amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix: remove :force t from cl-tty quickload (causes slow startup)

Browse Source 
The :force t forces recompilation of cl-tty and all its dependencies
(including ironclad) on every run, making startup take 30+ seconds.
Without :force t, quickload uses timestamp-based caching. If cl-tty
source changes, delete ~/.cache/common-lisp manually.
This commit is contained in:
Amr Gharbeia
2026-05-14 13:24:19 -04:00
parent 4bfb407094
commit 39a9a3d7f2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
passepartout
View File

@@ -386,7 +386,7 @@ case "$COMMAND" in
(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))) (load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
(declaim (optimize (debug 3) (speed 0) (safety 3))) (declaim (optimize (debug 3) (speed 0) (safety 3)))
(push (truename "$PASSEPARTOUT_DATA_DIR/") asdf:*central-registry*) (push (truename "$PASSEPARTOUT_DATA_DIR/") asdf:*central-registry*)
(ql:quickload :cl-tty :silent t :force t) (ql:quickload :cl-tty :silent t)
(ql:quickload :passepartout :silent t) (ql:quickload :passepartout :silent t)
(let ((dir (pathname (format nil "~a/lisp/" (truename "$PASSEPARTOUT_DATA_DIR"))))) (let ((dir (pathname (format nil "~a/lisp/" (truename "$PASSEPARTOUT_DATA_DIR")))))
(dolist (f '("channel-tui-state" "channel-tui-view" "channel-tui-main")) (dolist (f '("channel-tui-state" "channel-tui-view" "channel-tui-main"))