/[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.3 by pfdietz, Mon Sep 1 21:40:11 2003 UTC revision 1.4 by pfdietz, Fri Sep 5 02:26:20 2003 UTC
# Line 33  Line 33 
33                   (not (eql (min n n) n))                   (not (eql (min n n) n))
34                   (not (eql (min n n n) n))                   (not (eql (min n n n) n))
35                   (not (eql (apply #'min (make-list                   (not (eql (apply #'min (make-list
36                                           (min 256 call-arguments-limit)                                           (min 256 (1- call-arguments-limit))
37                                           :initial-element n))                                           :initial-element n))
38                             n)))                             n)))
39          collect n)          collect n)
# Line 174  Line 174 
174    1.0l0)    1.0l0)
175    
176  (deftest min.27  (deftest min.27
177    (loop for i from 1 to (min 256 call-arguments-limit)    (loop for i from 1 to (min 256 (1- call-arguments-limit))
178          for x = (make-list i :initial-element 1)          for x = (make-list i :initial-element 1)
179          do (setf (elt x (random i)) 0)          do (setf (elt x (random i)) 0)
180          unless (eql (apply #'min x) 0)          unless (eql (apply #'min x) 0)

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