X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcharacter.pure.lisp;h=74619b4795d46bb1a8e36f609dd6a705eb4a869e;hb=1714224f33ba559eab11af8827a78f9a5aebd698;hp=97a2590e7a0cab918e1b3954567c3e6b93e12d3c;hpb=0957d59ccfaf3db9aaf79a7f4909a40ea0ca0dcd;p=sbcl.git

diff --git a/tests/character.pure.lisp b/tests/character.pure.lisp
index 97a2590..74619b4 100644
--- a/tests/character.pure.lisp
+++ b/tests/character.pure.lisp
@@ -54,3 +54,10 @@
                 (digit-char 4 1)
                 (digit-char 4 37)))
   (assert (raises-error? (apply (car form) (mapcar 'eval (cdr form))) type-error)))
+
+(dotimes (i 256)
+  (let* ((char (code-char i))
+         (graphicp (graphic-char-p char))
+         (name (char-name char)))
+    (unless graphicp
+      (assert name))))