Commit eb5e0ceb authored by pfdietz's avatar pfdietz

Added <=t

parent a7b49bf7
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment