aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/host.lisp5
-rw-r--r--src/package.lisp1
2 files changed, 6 insertions, 0 deletions
diff --git a/src/host.lisp b/src/host.lisp
index 40cba1a..2ce52ed 100644
--- a/src/host.lisp
+++ b/src/host.lisp
@@ -33,6 +33,11 @@
:documentation "Property application specification of the properties to
be applied to the host.")))
+(defun make-host (&key hostattrs props)
+ (let ((host (make-instance 'host :attrs hostattrs :props props)))
+ (%eval-propspec-hostattrs host props)
+ host))
+
(defmethod print-object ((host host) stream)
(format stream "#.~S" `(make-instance
'host
diff --git a/src/package.lisp b/src/package.lisp
index 86bb7cb..b062664 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -96,6 +96,7 @@
;; host.lisp
#:defhost
+ #:make-host
;; deployment.lisp
#:defdeploy