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