/[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.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    

Legend:
Removed from v.1.111  
changed lines
  Added in v.1.112

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