From: cracauer <cracauer>
Date: Fri, 23 Apr 2010 18:25:51 +0000 (+0000)
Subject: 1.0.37.60: fix backtick problem breaking e.g. literal struct parsing.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0f58daba6105baf01719151c399b2ec510d51b3a;p=sbcl.git

1.0.37.60: fix backtick problem breaking e.g. literal struct parsing.

Fix a typo that sneaked in when committing a diff submitted by Stas
Boukarev, version 1.0.36.21, launchpad bug #309093.

This makes literal struct parsing work again.

(defstruct foo (r nil :type (or null simple-vector)))
#S(foo :r #(#x00 #x11 #x22 #x33 #x44 #x55 #x66 #x77))

==> now works again.
---

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)
diff --git a/version.lisp-expr b/version.lisp-expr
index 9d4f74e..cdf6667 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.37.59"
+"1.0.37.60"