From: Daniel Kochmański <daniel@turtleware.eu>
Date: Tue, 1 Sep 2015 13:07:06 +0000 (+0200)
Subject: sharp-s-reader: read should be invoked recursively
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=1ed1a45fb29b0e4d52925b1b66a03b3e2b69d12c;p=ecl.git

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 <daniel@turtleware.eu>
---

diff --git a/src/lsp/iolib.lsp b/src/lsp/iolib.lsp
index b569259..5e5e733 100644
--- a/src/lsp/iolib.lsp
+++ b/src/lsp/iolib.lsp
@@ -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)