diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-04 14:09:56 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-04 15:40:32 -0700 |
| commit | 81bfd98b98d21b2da12cd571f1da63cc80d84257 (patch) | |
| tree | 0fb2cdcf0b0f941e9ac26cef691baf3d92f27529 /src/host.lisp | |
| parent | e7b6e61297739e6da628fef474601ef6cdef3806 (diff) | |
| download | consfigurator-81bfd98b98d21b2da12cd571f1da63cc80d84257.tar.gz | |
add MAKE-HOST
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/host.lisp')
| -rw-r--r-- | src/host.lisp | 5 |
1 files changed, 5 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 |