X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcharacter.pure.lisp;h=37f4b49fe25ee416661305b3f222f9b86fb1140e;hb=2e498cbcb062ff8b6e21703838e214c6427bffe8;hp=56e899d23ae3048d71b469c89ee2f4b01348649a;hpb=acc978383105b5a2bfd970f8a34214fd5774bb2a;p=sbcl.git

diff --git a/tests/character.pure.lisp b/tests/character.pure.lisp
index 56e899d..37f4b49 100644
--- a/tests/character.pure.lisp
+++ b/tests/character.pure.lisp
@@ -71,3 +71,5 @@
          (name (char-name char)))
     (unless graphicp
       (assert name))))
+
+(assert (null (name-char 'foo)))