diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-26 16:53:57 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 14:29:20 -0700 |
commit | d9ae933717bd2dc16e598a0b17b2070f6315f57a (patch) | |
tree | 9535239bbddbc05329d11b3559fa5a3d753999b0 | |
parent | 7ab9e0209b5981e57e4ce78045e1946d9933a471 (diff) | |
download | consfigurator-d9ae933717bd2dc16e598a0b17b2070f6315f57a.tar.gz |
move definition of constant down to where it's used
Pure code motion.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/data.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/data.lisp b/src/data.lisp index a3ed118..aa569a7 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -411,11 +411,6 @@ of the current connection, where each entry is of the form "-type" "f" "-printf" "%P\\n") (and (zerop exit) (lines out))))) -;; 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) - ;;;; Passphrases @@ -446,6 +441,11 @@ 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) + (defun continue-deploy*-program (remaining-connections) "Return a program to complete the work of an enclosing call to DEPLOY*. |