reader support for ## and #=

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index ab043a9..36388df 100644 (file)
--- 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)