1 files changed, 2 insertions(+), 0 deletions(-)

M main.lisp

@@ 91,6 91,8 @@
   (:documentation "Pretty-prints an object. Used to override the print-object
                    method defined by def-data-class. Defaults to calling
                    print-object with *print-readably* set to t.")
+  (:method ((object data-class) stream)
+   (print-data-class-object-readably object stream))
   (:method (object stream)
      (let ((*print-readably* t))
        (print-object object stream))))