X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freader.lisp;h=27ec01a06356b400097d5dce0411eda911789aca;hb=65b5ab7e713d04e0d76bc0ee196374f6e57b922f;hp=308d3dd7ddcae82612a511d9dfff8058c1129824;hpb=9dcde13065f57a8ad55681575a298fbcac66381b;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 308d3dd..27ec01a 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -292,8 +292,8 @@ standard Lisp readtable when NIL."
     (values fun-value
             ;; NON-TERMINATING-P return value:
             (if fun-value
-                (or (constituentp char)
-                    (not (terminating-macrop char)))
+                (or (constituentp char designated-readtable)
+                    (not (terminating-macrop char designated-readtable)))
                 ;; ANSI's definition of GET-MACRO-CHARACTER says this
                 ;; value is NIL when CHAR is not a macro character.
                 ;; I.e. this value means not just "non-terminating