From: David Vázquez <davazp@gmail.com>
Date: Wed, 8 May 2013 16:05:16 +0000 (+0100)
Subject: Remove wrong array branch from equal
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=dd909099494a1051b5e0c7e265d4b685fdac8291;p=jscl.git

Remove wrong array branch from equal
---

diff --git a/src/boot.lisp b/src/boot.lisp
index 0cbb4d2..72c43cb 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -406,14 +406,6 @@
           (equal (cdr x) (cdr y))))
     ((stringp x)
      (and (stringp y) (string= x y)))
-    ((arrayp x)
-     (let ((n (length x)))
-       (and (arrayp y)
-            (eql n (length y))
-            (do ((i 0 (1+ i)))
-                ((or (= i n)
-                     (not (equal (aref x i) (aref y i))))
-                   (= i n))))))
     (t nil)))
 
 (defun fdefinition (x)