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