Commit 1ed1a45f authored by Daniel Kochmański's avatar Daniel Kochmański

sharp-s-reader: read should be invoked recursively

Patch provided by drmeister. Test case:

(defstruct foo a)
(read-from-string
 "(#1=\"Hello\" #S(FOO :A #1#))"))
Signed-off-by: Daniel Kochmański's avatarDaniel Kochmański <daniel@turtleware.eu>
parent a584aeb7
......@@ -177,7 +177,7 @@ printed. If FORMAT-STRING is NIL, however, no prompt will appear."
(declare (ignore subchar))
(when (and arg (null *read-suppress*))
(error "~S is an extra argument for the #s readmacro." arg))
(let ((l (read stream)))
(let ((l (read stream t nil t)))
(when *read-suppress*
(return-from sharp-s-reader nil))
(unless (get-sysprop (car l) 'is-a-structure)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment