From 2eb6491bc084582e9d3a6b8912132cad90454837 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 11 Nov 2002 00:24:31 +0000
Subject: [PATCH] Added IS-EQL-P, IS-NOT-EQL-P, ONEP (used in various sequence
 tests.)

---
 ansi-tests/ansi-aux.lsp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp
index e54e8fe5..a10f13fb 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)))
-- 
GitLab