From: David Vázquez <davazp@gmail.com>
Date: Fri, 7 Jun 2013 15:06:46 +0000 (+0100)
Subject: Remove unnecesary test
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ab2386d19d534a8f9d6d0762e36ee5c3dc72b9b4;p=jscl.git

Remove unnecesary test
---

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