From 620633d5275405b5e6d9b327f6629cb41dd6057f Mon Sep 17 00:00:00 2001
From: Tim Van den Langenbergh <tmt_vdl@gmx.com>
Date: Sun, 28 Jun 2026 11:03:56 +0200
Subject: [PATCH 1/2] Allow defining *QUICKLISP-HOME* in the REPL.

Allows users to define *QUICKLISP-HOME* in the REPL before loading ql-setup.lisp; which makes it easier to install it to a different directory.
---
 ql-setup.lisp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/ql-setup.lisp b/ql-setup.lisp
index 66d44de..8634987 100644
--- a/ql-setup.lisp
+++ b/ql-setup.lisp
@@ -24,6 +24,9 @@
 ;; Whenever the client is updated the setup.lisp is replaced
 ;; and contains the call to setup.
 
+(in-package #:common-lisp-user)
+(export '*quicklisp-home*)
+
 (defpackage #:ql-setup
   (:use #:cl)
   (:export #:*quicklisp-home*
@@ -38,6 +41,8 @@
 (defvar *quicklisp-home*
   (make-pathname :name nil :type nil
                  :defaults (let ((qlhome "~/quicklisp/"))
+                             (when (boundp 'cl-user:*quicklisp-home*)
+                               (setf qlhome cl-user:*quicklisp-home*))
                              (if (probe-file qlhome)
                                  qlhome
                                  (error "Quicklisp not installed to

From 247b429af38bafdec17149d9e62b05e7ef83a44b Mon Sep 17 00:00:00 2001
From: Tim Van den Langenbergh <tmt_vdl@gmx.com>
Date: Fri, 3 Jul 2026 14:47:03 +0200
Subject: [PATCH 2/2] Use double colons to access `*quicklisp-home*` from the
 cl-user package even if it is not exported.

---
 ql-setup.lisp | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/ql-setup.lisp b/ql-setup.lisp
index 8634987..331b635 100644
--- a/ql-setup.lisp
+++ b/ql-setup.lisp
@@ -24,9 +24,6 @@
 ;; Whenever the client is updated the setup.lisp is replaced
 ;; and contains the call to setup.
 
-(in-package #:common-lisp-user)
-(export '*quicklisp-home*)
-
 (defpackage #:ql-setup
   (:use #:cl)
   (:export #:*quicklisp-home*
@@ -41,8 +38,8 @@
 (defvar *quicklisp-home*
   (make-pathname :name nil :type nil
                  :defaults (let ((qlhome "~/quicklisp/"))
-                             (when (boundp 'cl-user:*quicklisp-home*)
-                               (setf qlhome cl-user:*quicklisp-home*))
+                             (when (boundp 'cl-user::*quicklisp-home*)
+                               (setf qlhome cl-user::*quicklisp-home*))
                              (if (probe-file qlhome)
                                  qlhome
                                  (error "Quicklisp not installed to