From 517b43b8013c945205eb5f175acbdff92a8bc8c0 Mon Sep 17 00:00:00 2001
From: Hermes <hermes@hermes.local>
Date: Tue, 12 May 2026 01:22:55 +0000
Subject: [PATCH] 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.
---
 demo.lisp | 19 +++++--------------
 1 file changed, 5 insertions(+), 14 deletions(-)

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)