diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp index b1aa31aa479d11490a41f3ab0012f5e503238940..000cbc9f8bf53041868078ca17614f06ded73fed 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))