0.pre8.88:

[sbcl.git] / contrib / sb-aclrepl / rt.lisp

diff --git a/contrib/sb-aclrepl/rt.lisp b/contrib/sb-aclrepl/rt.lisp
index b738e08..430e2ef 100644 (file)
--- a/contrib/sb-aclrepl/rt.lisp
+++ b/contrib/sb-aclrepl/rt.lisp
@@ -134,6 +134,7 @@ them.")
   "Like EQUALP, but doesn't do case conversion of characters.
    Currently doesn't work on arrays of dimension > 2."
   (cond
+   ((eq x y) t)
    ((consp x)
     (and (consp y)
         (equalp-with-case (car x) (car y))