diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index e54e8fe5c5e47edb313fddf2d6eccdbcdb6db4a0..a10f13fbc839e8201f34fd13a33927b429fed6a6 100644 --- a/ansi-tests/ansi-aux.lsp +++ b/ansi-tests/ansi-aux.lsp @@ -205,6 +205,11 @@ the condition to go uncaught if it cannot be classified." (defun is-eq-p (x) #'(lambda (y) (eqt x y))) (defun is-not-eq-p (x) #'(lambda (y) (not (eqt x y)))) +(defun is-eql-p (x) #'(lambda (y) (eqlt x y))) +(defun is-not-eql-p (x) #'(lambda (y) (not (eqlt x y)))) + +(defun onep (x) (eql x 1)) + (defun char-invertcase (c) (if (upper-case-p c) (char-downcase c) (char-upcase c)))