From 523cf67bbdfbdac974e9c080e60f3bee8c6db9eb Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 22 Apr 2003 00:30:16 +0000
Subject: [PATCH] Make equalp-with-case return T if the objects are EQ.

---
 ansi-tests/rt.lsp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp
index b1aa31aa..000cbc9f 100644
--- a/ansi-tests/rt.lsp
+++ b/ansi-tests/rt.lsp
@@ -114,6 +114,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))
-- 
GitLab