X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcharacters.lisp;h=03016d36042341a462c1f1f1558f11d353378343;hb=bd37ad1896a5f33d9447f90d28bda4a568bc882b;hp=a745051964fa56cd0bc473cdb1877bee8a52de9b;hpb=9b7eba02ada6840ce6b7cd272e6d3b9bc521180b;p=jscl.git

diff --git a/tests/characters.lisp b/tests/characters.lisp
index a745051..03016d3 100644
--- a/tests/characters.lisp
+++ b/tests/characters.lisp
@@ -132,8 +132,7 @@
 ;; CHAR-INT
 (test (= (char-int #\A) (char-int #\A)))  ;; can be pretty much anything, as long as it's consistent
 
-;; CHAR-TO-STRING (not actually part of the characters dictionary)
-(test (= 1 (string-length (char-to-string (code-char 127744)))))
+(test (= 1 (string-length (string (code-char 127744)))))
 
 ;; CHAR-CODE-LIMIT
 (test (< 95 char-code-limit 10000000))