diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-06 12:12:11 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-06 12:12:11 -0700 |
commit | 36cf911b88777db97088de48b8b35474f7503977 (patch) | |
tree | f91858ae41481b445f589892bba6f2b8e0a009a8 | |
parent | be6fd9a7840c5c7c3ec29bbf7df222a513845d07 (diff) | |
download | consfigurator-36cf911b88777db97088de48b8b35474f7503977.tar.gz |
define PRINT-OBJECT for OS:DEBIAN
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-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) |