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

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

system-index.txt

@@ -0,0 +1 @@
+cl-tty.asd