/[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.107 by pfdietz, Sun Nov 28 16:02:09 2004 UTC revision 1.108 by pfdietz, Mon Dec 6 14:00:34 2004 UTC
# Line 94  Results: ~A~%" expected-number form n re Line 94  Results: ~A~%" expected-number form n re
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    

Legend:
Removed from v.1.107  
changed lines
  Added in v.1.108

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