X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fboot.lisp;h=36388df43503a3a18fc3da80f8167cbf33b23c7f;hb=ac57d5570ffb5fb9936ffca4e0d6c8d9fddc1e29;hp=ab043a92354e68672b81c443e7e66ace0f874d1c;hpb=6cfc95cba807e8453342feda869cc74e667ceb70;p=jscl.git

diff --git a/src/boot.lisp b/src/boot.lisp
index ab043a9..36388df 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -477,6 +477,14 @@
           (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)