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

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

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

revision 1.1 by pfdietz, Fri Aug 22 02:12:55 2003 UTC revision 1.2 by pfdietz, Mon Aug 25 12:31:29 2003 UTC
# Line 19  Line 19 
19                      (integerp r)                      (integerp r)
20                      (<= (- (/ d 2)) r (/ d 2))                      (<= (- (/ d 2)) r (/ d 2))
21                      (or (/= (abs r) (/ d 2))                      (or (/= (abs r) (/ d 2))
22                          (evenp (coerce q 'integer))))                          (evenp (floor q))))
23          collect (list n d q r n2)))          collect (list n d q r n2)))
24    
25    

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