Parent Directory | Revision Log | Patch
revision 1.111 by pfdietz, Sun Mar 6 20:32:35 2005 UTC | revision 1.112 by pfdietz, Wed Apr 13 13:45:38 2005 UTC | |
---|---|---|
# | Line 87 Results: ~A~%" expected-number form n re | Line 87 Results: ~A~%" expected-number form n re |
87 | "Like EQUALP, but guaranteed to return T for true." | "Like EQUALP, but guaranteed to return T for true." |
88 | (apply #'values (mapcar #'notnot (multiple-value-list (equalp x y))))) | (apply #'values (mapcar #'notnot (multiple-value-list (equalp x y))))) |
89 | ||
90 | (defun equalpt-or-report (x y) | |
91 | "Like EQUALPT, but return either T or a list of the arguments." | |
92 | (or (equalpt x y) (list x y))) | |
93 | ||
94 | (defun string=t (x y) | (defun string=t (x y) |
95 | (notnot-mv (string= x y))) | (notnot-mv (string= x y))) |
96 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |