DEFAULT-DEPLOYMENT: leave unbound when not supplied

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 2 insertions, 8 deletions

diff --git a/src/deployment.lisp b/src/deployment.lisp
index 3a3d404..09fecd0 100644
--- a/src/deployment.lisp
+++ b/src/deployment.lisp
@@ -199,17 +199,11 @@ You can then eval (NAME) to execute this deployment."
 
 (defun hostdeploy* (host &optional additional-properties)
   "Like DEPLOY*, but use the host's default deployment."
-  (deploy* (or (host-deployment host)
-               (simple-program-error "Host has no default deployment"))
-           host
-           additional-properties))
+  (deploy* (host-deployment host) host additional-properties))
 
 (defun hostdeploy-these* (host properties)
   "Like DEPLOY-THESE*, but use the host's default deployment."
-  (deploy-these* (or (host-deployment host)
-                     (simple-program-error "Host has no default deployment"))
-                 host
-                 properties))
+  (deploy-these* (host-deployment host) host properties))
 
 (defmacro hostdeploy (host &body additional-properties)
   "Like DEPLOY, but use the host's default deployment."