From 149316cb58551ae098d53b6b406f5cac9c9bcaf3 Mon Sep 17 00:00:00 2001
From: Hermes <hermes@hermes.local>
Date: Tue, 12 May 2026 01:18:09 +0000
Subject: [PATCH] Fix demo quickload: register cwd, fallback to
 asdf:load-system

demo.lisp now registers the current directory as a quicklisp project
source and falls back to direct asdf:load-system if quicklisp can't
find cl-tty.  Lets the demo run from a fresh git clone without
symlinking into ~/quicklisp/local-projects/.
---
 demo.lisp        | 11 ++++++++++-
 system-index.txt |  1 +
 2 files changed, 11 insertions(+), 1 deletion(-)
 create mode 100644 system-index.txt

diff --git a/demo.lisp b/demo.lisp
index 7fd7732..d74ad75 100644
--- a/demo.lisp
+++ b/demo.lisp
@@ -6,8 +6,17 @@
 ;;; text-input, textarea, select, dialog, scrollbox, tabbar.
 
 (load "~/quicklisp/setup.lisp")
+
+;; Register local project in case it's not symlinked into quicklisp/local-projects/
+(let ((cl-tty-path (truename ".")))
+  (pushnew cl-tty-path ql:*local-project-directories* :test #'equal))
 (ql:register-local-projects)
-(ql:quickload :cl-tty :silent t)
+
+(ignore-errors (ql:quickload :cl-tty :silent t))
+;; Fallback: load via asdf directly if quicklisp didn't find it
+(unless (find-package :cl-tty.backend)
+  (load "cl-tty.asd")
+  (asdf:load-system :cl-tty))
 
 (use-package :cl-tty.backend)
 (use-package :cl-tty.input)
diff --git a/system-index.txt b/system-index.txt
new file mode 100644
index 0000000..586f38c
--- /dev/null
+++ b/system-index.txt
@@ -0,0 +1 @@
+cl-tty.asd