~remexre/nrutil

426ff4e75e57cc722f875ebfc5b1e4034049f6e1 — Nathan Ringo 4 months ago 24237db
Avoid setting print-readbly in print-object-pretty unless necessary.
1 files changed, 2 insertions(+), 0 deletions(-)

M main.lisp
M main.lisp => main.lisp +2 -0
@@ 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))))