diff options
| -rw-r--r-- | src/util.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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 |