80 |
"Like EQUALP, but guaranteed to return T for true." |
"Like EQUALP, but guaranteed to return T for true." |
81 |
(apply #'values (mapcar #'notnot (multiple-value-list (equalp x y))))) |
(apply #'values (mapcar #'notnot (multiple-value-list (equalp x y))))) |
82 |
|
|
83 |
|
(defun string=t (x y) |
84 |
|
(notnot-mv (string= x y))) |
85 |
|
|
86 |
(defun =t (x &rest args) |
(defun =t (x &rest args) |
87 |
"Like =, but guaranteed to return T for true." |
"Like =, but guaranteed to return T for true." |
88 |
(apply #'values (mapcar #'notnot (multiple-value-list (apply #'= x args))))) |
(apply #'values (mapcar #'notnot (multiple-value-list (apply #'= x args))))) |