/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.62 by pfdietz, Tue May 6 12:13:26 2003 UTC revision 1.63 by pfdietz, Mon May 19 13:08:57 2003 UTC
# Line 80  Results: ~A~%" expected-number form n re Line 80  Results: ~A~%" expected-number form n re
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)))))

Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26