projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)))
(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)
(t nil)))
(defun fdefinition (x)