diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-11 11:32:18 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-11 11:32:18 -0700 |
commit | 7a438afe3743de523f9d025b1e1d484d3d68113f (patch) | |
tree | 82a4f2b9bcd9a0a225b1696d5a268ce7820989c1 /src | |
parent | fbd91bb22d6d89467744d6bf73c90cef04651cc2 (diff) | |
download | consfigurator-7a438afe3743de523f9d025b1e1d484d3d68113f.tar.gz |
CONTINUE-DEPLOY*-PROGRAM: simplify binding *PACKAGE* to a safe value
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
-rw-r--r-- | src/image.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/image.lisp b/src/image.lisp index b9091ff..b9df49f 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -500,8 +500,6 @@ UPLOAD-ALL-PREREQUISITE-DATA.") ,@(loop for system in (propspec-systems (host-propspec *host*)) collect `(asdf:load-system ,system))))) -(defpackage :consfigurator.cl-user (:use #:cl)) - (defgeneric continue-deploy*-program (remaining-connections asdf-requirements) (:documentation "Return a program to complete the work of an enclosing call to DEPLOY*. @@ -595,7 +593,7 @@ Preprocessing must occur in the root Lisp.")) ;; e.g. by the user's runtime config for the root Lisp. ;; This way, all symbols except those from COMMON-LISP ;; should be printed qualified by their package names. - (*package* (find-package :consfigurator.cl-user))) + (*package* (find-package :cl))) ;; need line breaks in between so that packages exist before we ;; try to have remote Lisp read sexps containing symbols from ;; those packages |