X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Freader.impure.lisp;fp=tests%2Freader.impure.lisp;h=02f202dc0a70ab23d85f9180e2716d5ce6f71088;hb=9614655fcb31923424174c4f7a43d5affc8019ad;hp=bb37bdf3a30d112534642a26cbc93c747b6e0284;hpb=4191783c20fc6f86afe4b3fe73e79b075a08cc43;p=sbcl.git

diff --git a/tests/reader.impure.lisp b/tests/reader.impure.lisp
index bb37bdf..02f202d 100644
--- a/tests/reader.impure.lisp
+++ b/tests/reader.impure.lisp
@@ -125,4 +125,13 @@
   (funcall fun)
   (assert (equal '(:ok) (read-from-string "{:ok)"))))
 
+;;; THIS SHOULD BE LAST as it frobs the standard readtable
+(with-test (:name set-macro-character-nil)
+  (let ((fun (lambda (&rest args) 'ok)))
+    ;; NIL means the standard readtable.
+    (assert (eq t (set-macro-character #\~ fun nil nil)))
+    (assert (eq fun (get-macro-character #\~ nil)))
+    (assert (eq t (set-dispatch-macro-character #\# #\~ fun nil)))
+    (assert (eq fun (get-dispatch-macro-character #\# #\~ nil)))))
+
 ;;; success