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

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

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

revision 1.3 by pfdietz, Mon Aug 4 12:28:37 2003 UTC revision 1.4 by pfdietz, Tue Aug 5 02:30:18 2003 UTC
# Line 117  Line 117 
117                unless (and (>= m x) (>= m y)                unless (and (>= m x) (>= m y)
118                            (or (= m x) (= m y)))                            (or (= m x) (= m y)))
119                collect (list x y m))))                collect (list x y m))))
120    
121    (defun min.2-fn ()
122      (loop for x in *reals*
123            nconc
124            (loop for y in *reals*
125                  for m = (min x y)
126                  unless (and (<= m x) (<= m y)
127                              (or (= m x) (= m y)))
128                  collect (list x y m))))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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