diff --git a/demo.lisp b/demo.lisp index effe842..bc61f90 100644 --- a/demo.lisp +++ b/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)