X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Frt.lisp;h=430e2ef4bc5916490ae340f5d4b1a27882638283;hb=471a5a62c9f53ca31ee980bb7ffa4c475a5b2f35;hp=b738e08073b4ec717a3c92ccecad2aff44fbede8;hpb=08cc6ef646857381452e814cda8e68fccc464f96;p=sbcl.git

diff --git a/contrib/sb-aclrepl/rt.lisp b/contrib/sb-aclrepl/rt.lisp
index b738e08..430e2ef 100644
--- 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))