diff options
-rw-r--r-- | src/host.lisp | 5 | ||||
-rw-r--r-- | src/package.lisp | 1 |
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 |