diff options
| -rw-r--r-- | src/deployment.lisp | 3 | ||||
| -rw-r--r-- | src/host.lisp | 3 | ||||
| -rw-r--r-- | src/propspec.lisp | 2 |
3 files changed, 5 insertions, 3 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 22a1458..68acdd0 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -237,7 +237,8 @@ for testing properties at the REPL. See also EVALS." (run-program '("id") :output :string))) (,hostname (hostname-f)) (,host (or (symbol-value (find-symbol (string-upcase ,hostname))) - (make-host :hostattrs `(:hostname (,,hostname)))))) + (make-host :hostattrs `(:hostname (,,hostname)) + :propspec (make-propspec :systems nil))))) (deploy-these* `((:sudo :as ,(format nil "~A@~A" ,username ,hostname))) ,host diff --git a/src/host.lisp b/src/host.lisp index a5efd40..477ac09 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -54,7 +54,8 @@ (:method ((host host)) host) (:method ((hostname string)) - (make-host :hostattrs `(:hostname (,hostname))))) + (make-host :hostattrs `(:hostname (,hostname)) + :propspec (make-propspec :systems nil)))) (defmethod shallow-copy-host ((host host)) (make-instance (type-of host) diff --git a/src/propspec.lisp b/src/propspec.lisp index 81e50a2..e1607af 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -178,7 +178,7 @@ PRINT-OBJECT.")) "Convert a property application specification expression into a property application specification proper by associating it with a list of ASDF systems." - (if (or systems-supplied-p (not propspec)) + (if systems-supplied-p (make-instance 'unpreprocessed-propspec :systems systems :propspec propspec) (make-instance 'unpreprocessed-propspec :propspec propspec))) |