Commit 523cf67b authored by pfdietz's avatar pfdietz
Browse files

Make equalp-with-case return T if the objects are EQ.

parent c1c2795b
......@@ -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))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment