diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-19 08:58:59 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-23 09:16:27 -0700 |
| commit | f16f0f53fe97bf5959b93130eb9c0439841d1c52 (patch) | |
| tree | ed49e4ac9915aa5ef8d27e3c495f9cd91cfc4fc6 /src/util.lisp | |
| parent | 8d6413e98de0390b2541edc46ed2482e6fef60da (diff) | |
| download | consfigurator-f16f0f53fe97bf5959b93130eb9c0439841d1c52.tar.gz | |
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 <spwhitton@spwhitton.name>
Diffstat (limited to 'src/util.lisp')
| -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 |