0.7.2.10:

[sbcl.git] / tests / reader.pure.lisp

diff --git a/tests/reader.pure.lisp b/tests/reader.pure.lisp
index acbb303..46f4db2 100644 (file)
--- a/tests/reader.pure.lisp
+++ b/tests/reader.pure.lisp
@@ -14,3 +14,20 @@
 (in-package "CL-USER")
 
 (assert (equal (symbol-name '#:|fd\sA|) "fdsA"))
+
+;;; Prior to sbcl-0.7.2.10, SBCL disobeyed the ANSI requirements on
+;;; returning NIL for unset dispatch-macro-character functions (bug
+;;; 151, fixed by Alexey Dejenka sbcl-devel "bug 151" 2002-04-12)
+(assert (not (get-dispatch-macro-character #\# #\{)))
+(assert (not (get-dispatch-macro-character #\# #\0)))
+;;; and we might as well test that we don't have any cross-compilation
+;;; shebang residues left...
+(assert (not (get-dispatch-macro-character #\# #\!)))
+;;; also test that all the illegal sharp macro characters are
+;;; recognized as being illegal.
+(loop for char in '(#\Backspace #\Tab #\Newline #\Linefeed
+                    #\Page #\Return #\Space #\) #\<)
+   do (assert (get-dispatch-macro-character #\# char)))
+
+(assert (not (ignore-errors (get-dispatch-macro-character #\! #\0)
+                            t)))