From bcd8605fcdeda28d4651c92029a8a5143f8d05aa Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 28 Feb 2021 16:13:02 -0700 Subject: use ENSURE-CONS Signed-off-by: Sean Whitton --- src/propspec.lisp | 3 +-- 1 file changed, 1 insertion(+), 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 -- cgit v1.2.3