From eb5e0ceb3a6eb9a4ff0282b1cc8928f8976e70dd Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 6 Dec 2004 14:00:34 +0000 Subject: [PATCH] Added <=t --- ansi-tests/ansi-aux.lsp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index d179a7d5..20aba288 100644 --- a/ansi-tests/ansi-aux.lsp +++ b/ansi-tests/ansi-aux.lsp @@ -94,6 +94,10 @@ Results: ~A~%" expected-number form n results)))) "Like =, but guaranteed to return T for true." (apply #'values (mapcar #'notnot (multiple-value-list (apply #'= x args))))) +(defun <=t (x &rest args) + "Like <=, but guaranteed to return T for true." + (apply #'values (mapcar #'notnot (multiple-value-list (apply #'<= x args))))) + (defun make-int-list (n) (loop for i from 0 below n collect i)) -- GitLab