X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcharacters.lisp;h=a745051964fa56cd0bc473cdb1877bee8a52de9b;hb=b2791b343ae73280de6a618b0b49aa4f7e7b9b9d;hp=aa8388eebd7631a804f33415c8e7f311f8b050c2;hpb=858f7b088dcc3ba8c56927c8b201f704b3babf2c;p=jscl.git

diff --git a/tests/characters.lisp b/tests/characters.lisp
index aa8388e..a745051 100644
--- a/tests/characters.lisp
+++ b/tests/characters.lisp
@@ -88,7 +88,10 @@
 (test (null (digit-char-p #\a)))
 (test (= 10 (digit-char-p #\A 11)))
 (test (= 10 (digit-char-p #\a 11)))
-;; TODO: does the mapcar/lambda thing work here?
+;; (mapcar #'(lambda (radix)
+;;              (map 'list #'(lambda (x) (digit-char-p x radix))
+;;                   "059AaFGZ"))
+;;          '(2 8 10 16 36))
 
 ;; GRAPHIC-CHAR-P
 (test (graphic-char-p #\G))