amr/cl-tty
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v0.15.0: Critical input/rendering fixes, subagent-reviewed #7

Merged
amr merged 36 commits from feature/v0.11.0-slots into main 2026-05-11 22:03:18 -04:00
Conversation 0 Commits 36 Files Changed 76 +9 -7
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit bdd558407e - Show all commits

14
demo.lisp
View File

@@ -7,16 +7,18 @@
(load "~/quicklisp/setup.lisp") (load "~/quicklisp/setup.lisp")
;; Register local project in case it's not symlinked into quicklisp/local-projects/ ;; Register local project and load via ASDF directly
;; (avoids Quicklisp SYSTEM-NOT-FOUND in --disable-debugger mode)
(let ((cl-tty-path (truename "."))) (let ((cl-tty-path (truename ".")))
(pushnew cl-tty-path ql:*local-project-directories* :test #'equal)) (pushnew cl-tty-path ql:*local-project-directories* :test #'equal)
(ql:register-local-projects) (ql:register-local-projects))
(ignore-errors (ql:quickload :cl-tty :silent t)) (unless (find-package :cl-tty.backend)
;; Fallback: load via asdf directly if quicklisp didn't find it (ignore-errors
(ql:quickload :cl-tty :silent t))
(unless (find-package :cl-tty.backend) (unless (find-package :cl-tty.backend)
(load "cl-tty.asd") (load "cl-tty.asd")
(asdf:load-system :cl-tty)) (asdf:load-system :cl-tty)))
(use-package :cl-tty.backend) (use-package :cl-tty.backend)
(use-package :cl-tty.input) (use-package :cl-tty.input)