From 426ff4e75e57cc722f875ebfc5b1e4034049f6e1 Mon Sep 17 00:00:00 2001
From: Nathan Ringo <nathan@remexre.xyz>
Date: Fri, 11 Jun 2021 01:13:22 -0500
Subject: [PATCH] Avoid setting print-readbly in print-object-pretty unless
 necessary.

---
 main.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/main.lisp b/main.lisp
index ebd4438..424190a 100644
--- a/main.lisp
+++ b/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))))
-- 
2.45.2