diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 16:13:02 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 16:13:02 -0700 |
commit | bcd8605fcdeda28d4651c92029a8a5143f8d05aa (patch) | |
tree | 6dab4ffb9af3931b380b0f0a84ccc0fd4a150813 | |
parent | cb71af7012147cb639d080af231bc0025e31f7b1 (diff) | |
download | consfigurator-bcd8605fcdeda28d4651c92029a8a5143f8d05aa.tar.gz |
use ENSURE-CONS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/propspec.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/propspec.lisp b/src/propspec.lisp index 987f2c6..1275d40 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -34,8 +34,7 @@ sufficient to define all the properties you intend to apply to hosts. Consfigurator uses this information when starting up remote Lisp images to effect deployments: it sends over the ASDF systems specified by SYSTEMS." - (when (atom systems) - (setq systems (list systems))) + (setq systems (ensure-cons systems)) (let ((sym (intern "*CONSFIG*"))) `(eval-when (:compile-toplevel :load-toplevel :execute) (defparameter ,sym ',systems |