added trivial SET-SYNTAX-FROM-CHAR test promised in 0.7.3.16
checkin notes
;; 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"))))
;;; 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"