From: William Harold Newman <william.newman@airmail.net>
Date: Tue, 21 May 2002 13:11:49 +0000 (+0000)
Subject: 0.7.3.23:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=64cebbaaccfc9ba3bbcc2d4136fbab5791442823;p=sbcl.git

0.7.3.23:
	added trivial SET-SYNTAX-FROM-CHAR test promised in 0.7.3.16
		checkin notes
---

diff --git a/tests/reader.pure.lisp b/tests/reader.pure.lisp
index 9a43074..728722a 100644
--- a/tests/reader.pure.lisp
+++ b/tests/reader.pure.lisp
@@ -51,3 +51,11 @@
     ;; so it'd be more logical for NON-TERMINATING-P to be T in
     ;; this case; but ANSI says it's NIL in this case.
     (assert (null non-terminating-p))))
+
+;;; rudimentary test of SET-SYNTAX-FROM-CHAR, just to verify that it
+;;; wasn't totally broken by the GET-MACRO-CHARACTER/SET-MACRO-CHARACTER
+;;; fixes in 0.7.3.16
+(assert (= 123579 (read-from-string "123579")))
+(let ((*readtable* (copy-readtable)))
+  (set-syntax-from-char #\7 #\;)
+  (assert (= 1235 (read-from-string "123579"))))
diff --git a/version.lisp-expr b/version.lisp-expr
index ed76aaf..6a16efc 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.3.22"
+"0.7.3.23"