From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Tue, 22 Apr 2003 00:42:38 +0000 (+0000)
Subject: 0.pre8.88:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=471a5a62c9f53ca31ee980bb7ffa4c475a5b2f35;p=sbcl.git

0.pre8.88:
      - contrib/sb-aclrepl/rt.lisp: Add pfdietz's eq test to equalp-with-case
      - contrib/sb-aclrepl/aclrepl-tests.lisp: Take advantage of new
        equalp-with-case patch
---

diff --git a/contrib/sb-aclrepl/aclrepl-tests.lisp b/contrib/sb-aclrepl/aclrepl-tests.lisp
index a746dc7..2b8bb7e 100644
--- a/contrib/sb-aclrepl/aclrepl-tests.lisp
+++ b/contrib/sb-aclrepl/aclrepl-tests.lisp
@@ -170,29 +170,29 @@
 (def-elements-tests *circle-list5* 3 :dont-check #(0 1 :tail))
 
 (deftest circle-list1-components
-    (equalp (aref (elements-components *circle-list1*) 0) *circle-list1*) t)
+    (aref (elements-components *circle-list1*) 0) #.*circle-list1*)
 (deftest circle-list2-components.0
-    (equalp (aref (elements-components *circle-list2*) 0) 'b)  t)
+    (aref (elements-components *circle-list2*) 0) b)
 (deftest circle-list2-components.1
-    (equalp (aref (elements-components *circle-list2*) 1) *circle-list2*) t)
+    (aref (elements-components *circle-list2*) 1) #.*circle-list2*)
 (deftest circle-list3-components.0
-    (equalp (aref (elements-components *circle-list3*) 0) *circle-list3*)  t)
+    (aref (elements-components *circle-list3*) 0) #.*circle-list3*) 
 (deftest circle-list3-components.1
-    (equalp (aref (elements-components *circle-list3*) 1) 'b)  t)
+    (aref (elements-components *circle-list3*) 1) b) 
 (deftest circle-list3-components.2
-    (equalp (aref (elements-components *circle-list3*) 2) 'c)  t)
+    (aref (elements-components *circle-list3*) 2) c)
 (deftest circle-list4-components.0
-    (equalp (aref (elements-components *circle-list4*) 0) 'a)  t)
+    (aref (elements-components *circle-list4*) 0) a)
 (deftest circle-list4-components.1
-    (equalp (aref (elements-components *circle-list4*) 1) *circle-list4*)  t)
+    (aref (elements-components *circle-list4*) 1) #.*circle-list4*)
 (deftest circle-list4-components.2
-    (equalp (aref (elements-components *circle-list4*) 2) 'c)  t)
+    (aref (elements-components *circle-list4*) 2) c)
 (deftest circle-list5-components.0
-    (equalp (aref (elements-components *circle-list5*) 0) 'a)  t)
+    (aref (elements-components *circle-list5*) 0) a)
 (deftest circle-list5-components.1
-    (equalp (aref (elements-components *circle-list5*) 1) 'b)  t)
+    (aref (elements-components *circle-list5*) 1) b)
 (deftest circle-list5-components.2
-    (equalp (aref (elements-components *circle-list5*) 2) *circle-list5*)  t)
+    (aref (elements-components *circle-list5*) 2) #.*circle-list5*)
 
 (def-elements-tests *cons-pair* 2 #(#c(1 2) a-symbol)
 		#((0 . "car") (1 . "cdr"))) 
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))
diff --git a/version.lisp-expr b/version.lisp-expr
index cd7e1ed..ea14eb0 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.pre8.87"
+"0.pre8.88"