diff options
-rw-r--r-- | src/property/os.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/property/os.lisp b/src/property/os.lisp index 03450bf..937e3c5 100644 --- a/src/property/os.lisp +++ b/src/property/os.lisp @@ -42,6 +42,12 @@ Used in property :HOSTATTRS subroutines." :reader debian-suite :initform (error "Must provide suite")))) +(defmethod print-object ((os debian) stream) + (format stream "#.~S" `(make-instance 'debian + :arch ,(linux-architecture os) + :suite ,(debian-suite os))) + os) + (defclass debian-stable (debian) ()) (defprop debian-stable :posix (suite architecture) |