Zero-dependency demo loading: just (require asdf) + push cwd + load-system

No Quicklisp needed at all.  Works from a fresh git clone with
just SBCL installed.  Registering the current directory in ASDF's
central-registry is enough to find cl-tty.asd.
This commit is contained in:
Hermes
2026-05-12 01:22:55 +00:00
parent bdd558407e
commit 517b43b801

View File

@@ -5,20 +5,11 @@
;;; layout engine, component rendering pipeline, framebuffer diff flush,
;;; text-input, textarea, select, dialog, scrollbox, tabbar.
(load "~/quicklisp/setup.lisp")
;; Register local project and load via ASDF directly
;; (avoids Quicklisp SYSTEM-NOT-FOUND in --disable-debugger mode)
(let ((cl-tty-path (truename ".")))
(pushnew cl-tty-path ql:*local-project-directories* :test #'equal)
(ql:register-local-projects))
(unless (find-package :cl-tty.backend)
(ignore-errors
(ql:quickload :cl-tty :silent t))
(unless (find-package :cl-tty.backend)
(load "cl-tty.asd")
(asdf:load-system :cl-tty)))
;; Load cl-tty directly via ASDF (no Quicklisp dependency needed —
;; sb-posix is built into SBCL, no external libraries required).
(require "asdf")
(push (truename ".") asdf:*central-registry*)
(asdf:load-system :cl-tty)
(use-package :cl-tty.backend)
(use-package :cl-tty.input)