From 1ed1a45fb29b0e4d52925b1b66a03b3e2b69d12c Mon Sep 17 00:00:00 2001 From: =?utf8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 1 Sep 2015 15:07:06 +0200 Subject: [PATCH] sharp-s-reader: read should be invoked recursively MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Patch provided by drmeister. Test case: (defstruct foo a) (read-from-string "(#1=\"Hello\" #S(FOO :A #1#))")) Signed-off-by: Daniel Kochmański --- src/lsp/iolib.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.9.0