demo.lisp

@@ -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)