From 81bfd98b98d21b2da12cd571f1da63cc80d84257 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 4 Mar 2021 14:09:56 -0700 Subject: add MAKE-HOST Signed-off-by: Sean Whitton --- src/host.lisp | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/host.lisp') 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 -- cgit v1.2.3