From f16f0f53fe97bf5959b93130eb9c0439841d1c52 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 19 Jul 2021 08:58:59 -0700 Subject: DEFINE-PRINT-OBJECT-FOR-STRUCTLIKE: respect *READ-EVAL* In accordance with the "Notes" section of the standard's description of *READ-EVAL*. Signed-off-by: Sean Whitton --- src/util.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/util.lisp b/src/util.lisp index 265496e..61adcbf 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -219,7 +219,7 @@ symlinks. Not suitable for use by :POSIX properties." "Define an implementation of PRINT-OBJECT for objects which are simple one-dimensional collections of values." `(defmethod print-object ((object ,class) stream) - (if *print-readably* + (if (and *print-readably* *read-eval*) (format stream "#.~S" `(make-instance -- cgit v1.2.3