From bdd558407ed0364a3087256384aa97484572323a Mon Sep 17 00:00:00 2001 From: Hermes Date: Tue, 12 May 2026 01:20:28 +0000 Subject: [PATCH] Robust demo loading: check quickload failure, fall through to ASDF The demo now guards the quickload with a (find-package :cl-tty.backend) check first, tries ql:quickload inside ignore-errors, and falls through to direct (load cl-tty.asd) + (asdf:load-system :cl-tty) if the package still isn't loaded. Works in --disable-debugger mode where Quicklisp's SYSTEM-NOT-FOUND continuable error kills the process. --- demo.lisp | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/demo.lisp b/demo.lisp index d74ad75..effe842 100644 --- a/demo.lisp +++ b/demo.lisp @@ -7,16 +7,18 @@ (load "~/quicklisp/setup.lisp") -;; Register local project in case it's not symlinked into quicklisp/local-projects/ +;; 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) + (pushnew cl-tty-path ql:*local-project-directories* :test #'equal) + (ql:register-local-projects)) -(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)) + (ignore-errors + (ql:quickload :cl-tty :silent t)) + (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)