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

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

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

revision 1.1 by pfdietz, Tue Aug 5 02:30:18 2003 UTC revision 1.2 by pfdietz, Tue Aug 5 02:45:06 2003 UTC
# Line 19  Line 19 
19          collect x)          collect x)
20    nil)    nil)
21    
22    (deftest min.error.3
23      (loop for x in *mini-universe*
24            unless (or (realp x)
25                       (eq (classify-error** `(classify-error (min 0 ',x)))
26                           'type-error))
27            collect x)
28      nil)
29    
30  (deftest min.1  (deftest min.1
31    (loop for n in *reals*    (loop for n in *reals*
32          when (or (not (eql (min n) n))          when (or (not (eql (min n) n))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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