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

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

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

revision 1.1 by pfdietz, Sat Aug 9 18:13:35 2003 UTC revision 1.2 by pfdietz, Mon Aug 18 13:23:59 2003 UTC
# Line 60  Line 60 
60          repeat 10000          repeat 10000
61          unless (and (eql (length vals) 2)          unless (and (eql (length vals) 2)
62                      (integerp q)                      (integerp q)
63                        (rationalp r)
64                      (= n n2)                      (= n n2)
65                      (<= 0 r)                      (<= 0 r)
66                      (< r 1)                      (< r 1)
# Line 79  Line 80 
80          repeat 10000          repeat 10000
81          unless (and (eql (length vals) 2)          unless (and (eql (length vals) 2)
82                      (integerp q)                      (integerp q)
83                        (rationalp r)
84                      (>= 0 r)                      (>= 0 r)
85                      (> r d)                      (> r d)
86                      (= n n2))                      (= n n2))
# Line 97  Line 99 
99          repeat 10000          repeat 10000
100          unless (and (eql (length vals) 2)          unless (and (eql (length vals) 2)
101                      (integerp q)                      (integerp q)
102                        (rationalp r)
103                      (>= 0 r)                      (>= 0 r)
104                      (> r d)                      (> r d)
105                      (= n n2))                      (= n n2))
106          collect (list n q d r n2)))          collect (list n q d r n2)))
107    
108    ;;; Need float tests

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