X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsharpm.lisp;h=758114ffa198150f3b34ad6ad8aac053227649e5;hb=9f175370f90a586b53ce086dce7fadf3cfb80ec4;hp=0e7c28e61cea8868e52a2b070204364c0e65f00f;hpb=5adc3a40aa34bca37376b5e0b536ecd9f35d469d;p=sbcl.git

diff --git a/src/code/sharpm.lisp b/src/code/sharpm.lisp
index 0e7c28e..758114f 100644
--- a/src/code/sharpm.lisp
+++ b/src/code/sharpm.lisp
@@ -133,7 +133,7 @@
               "Comma inside backquoted structure (not a list or general vector.)"))
          (*backquote-count* 0)
          (body (if (char= (read-char stream t) #\( )
-                  (let ((*backquote-count* -1))
+                  (let ((*backquote-count* 0))
                     (read-list stream nil))
                   (simple-reader-error stream "non-list following #S"))))
     (unless (listp body)