diff options
Diffstat (limited to 'src/host.lisp')
-rw-r--r-- | src/host.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/host.lisp b/src/host.lisp index 2ef0fb6..a8c3b72 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -28,6 +28,13 @@ :documentation "Property application specification of the properties to be applied to the host."))) +(defmethod print-object ((host host) stream) + (format stream "~S" `(make-instance + 'host + :attrs ',(slot-value host 'hostattrs) + :props ,(slot-value host 'propspec))) + host) + (defmacro defhost (hostname &body properties) "Define a host with hostname HOSTNAME and properties PROPERTIES. HOSTNAME can be a string or a symbol. In either case, the host will get a |