From 7cc4d107302ba19fbc62bb0b01be3067f783b9d7 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 1 Apr 2021 13:02:17 -0700 Subject: replace some (REQUIRE "sb-posix") calls with conditional dependency Signed-off-by: Sean Whitton --- src/data.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/data.lisp') diff --git a/src/data.lisp b/src/data.lisp index b6feb34..21fdb65 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -473,10 +473,9 @@ chance of those passwords showing up in the clear in the Lisp debugger." ;;;; Programs for remote Lisp images -;; TODO unclear whether the need for this is a bug in trivial-macroexpand-all -(define-constant +continue-deploy*-program-implementation-specific+ - "#+sbcl (require \"sb-cltl2\")" - :test #'equal) +;; TODO unclear whether the need for sb-cltl2 require is a bug in trivial-macroexpand-all +(defparameter continue-deploy*-program-implementation-specific + "#+sbcl (require \"sb-posix\") #+sbcl (require \"sb-cltl2\")") (defun continue-deploy*-program (remaining-connections) "Return a program to complete the work of an enclosing call to DEPLOY*. @@ -561,7 +560,7 @@ Preprocessing must occur in the root Lisp.")) ;; those packages (values (format nil "~A~%~{~A~^~%~}" - +continue-deploy*-program-implementation-specific+ + continue-deploy*-program-implementation-specific (mapcar #'prin1-to-string forms)) forms))) (print-not-readable (c) -- cgit v1.2.3