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)))