94 |
"Like =, but guaranteed to return T for true." |
"Like =, but guaranteed to return T for true." |
95 |
(apply #'values (mapcar #'notnot (multiple-value-list (apply #'= x args))))) |
(apply #'values (mapcar #'notnot (multiple-value-list (apply #'= x args))))) |
96 |
|
|
97 |
|
(defun <=t (x &rest args) |
98 |
|
"Like <=, but guaranteed to return T for true." |
99 |
|
(apply #'values (mapcar #'notnot (multiple-value-list (apply #'<= x args))))) |
100 |
|
|
101 |
(defun make-int-list (n) |
(defun make-int-list (n) |
102 |
(loop for i from 0 below n collect i)) |
(loop for i from 0 below n collect i)) |
103 |
|
|