/[gcl]/gcl/ansi-tests/number-comparison.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/number-comparison.lsp

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

revision 1.6 by pfdietz, Mon Sep 1 19:13:25 2003 UTC revision 1.7 by pfdietz, Fri Sep 5 02:26:20 2003 UTC
# Line 76  Line 76 
76                                                    
77  (deftest =.7  (deftest =.7
78    (let ((args nil))    (let ((args nil))
79      (loop for i from 1 to (min 256 call-arguments-limit)      (loop for i from 1 to (min 256 (1- call-arguments-limit))
80            do (push 17 args)            do (push 17 args)
81            always (apply #'= args)))            always (apply #'= args)))
82    t)    t)
83    
84  (deftest =.8  (deftest =.8
85    (loop for i from 2 to (min 256 call-arguments-limit)    (loop for i from 2 to (min 256 (1- call-arguments-limit))
86          for args = (append (make-list (1- i) :initial-element 7)          for args = (append (make-list (1- i) :initial-element 7)
87                             (list 23))                             (list 23))
88          when (apply #'= args)          when (apply #'= args)
# Line 235  Line 235 
235  (deftest /=.7  (deftest /=.7
236    (let ((args (list 17))    (let ((args (list 17))
237          (args2 nil))          (args2 nil))
238      (loop for i from 2 to (min 256 call-arguments-limit)      (loop for i from 2 to (min 256 (1- call-arguments-limit))
239            do (push 17 args)            do (push 17 args)
240            do (push i args2)            do (push i args2)
241            always (and (not (apply #'/= args))            always (and (not (apply #'/= args))
# Line 243  Line 243 
243    t)    t)
244    
245  (deftest /=.8  (deftest /=.8
246    (loop for i from 2 to (min 256 call-arguments-limit)    (loop for i from 2 to (min 256 (1- call-arguments-limit))
247          for args = (append (make-list (1- i) :initial-element 7)          for args = (append (make-list (1- i) :initial-element 7)
248                             (list 7))                             (list 7))
249          when (apply #'/= args)          when (apply #'/= args)
# Line 462  Line 462 
462  (deftest <.6  (deftest <.6
463    (let ((args (list 17))    (let ((args (list 17))
464          (args2 nil))          (args2 nil))
465      (loop for i from 2 to (min 256 call-arguments-limit)      (loop for i from 2 to (min 256 (1- call-arguments-limit))
466            do (push 17 args)            do (push 17 args)
467            do (push (- i) args2)            do (push (- i) args2)
468            unless (and (not (apply #'< args))            unless (and (not (apply #'< args))
# Line 471  Line 471 
471    nil)    nil)
472    
473  (deftest <.7  (deftest <.7
474    (let* ((len (min 256 call-arguments-limit))    (let* ((len (min 256 (1- call-arguments-limit)))
475           (args-proto (loop for i from 1 to len collect i)))           (args-proto (loop for i from 1 to len collect i)))
476      (loop for i from 1 below len      (loop for i from 1 below len
477            for args = (copy-list args-proto)            for args = (copy-list args-proto)
# Line 661  Line 661 
661    (let ((args (list 17))    (let ((args (list 17))
662          (args2 nil)          (args2 nil)
663          (args3 (list 0)))          (args3 (list 0)))
664      (loop for i from 2 to (min 256 call-arguments-limit)      (loop for i from 2 to (min 256 (1- call-arguments-limit))
665            do (push 17 args)            do (push 17 args)
666            do (push (- i) args2)            do (push (- i) args2)
667            do (push i args3)            do (push i args3)
# Line 672  Line 672 
672    nil)    nil)
673    
674  (deftest <=.7  (deftest <=.7
675    (let* ((len (min 256 call-arguments-limit))    (let* ((len (min 256 (1- call-arguments-limit)))
676           (args-proto (loop for i from 1 to len collect i)))           (args-proto (loop for i from 1 to len collect i)))
677      (loop for i from 1 below len      (loop for i from 1 below len
678            for args = (copy-list args-proto)            for args = (copy-list args-proto)
# Line 758  Line 758 
758  (deftest >.6  (deftest >.6
759    (let ((args (list 17))    (let ((args (list 17))
760          (args2 nil))          (args2 nil))
761      (loop for i from 2 to (min 256 call-arguments-limit)      (loop for i from 2 to (min 256 (1- call-arguments-limit))
762            do (push 17 args)            do (push 17 args)
763            do (push i args2)            do (push i args2)
764            unless (and (not (apply #'> args))            unless (and (not (apply #'> args))
# Line 767  Line 767 
767    nil)    nil)
768    
769  (deftest >.7  (deftest >.7
770    (let* ((len (min 256 call-arguments-limit))    (let* ((len (min 256 (1- call-arguments-limit)))
771           (args-proto (loop for i from 1 to len collect i)))           (args-proto (loop for i from 1 to len collect i)))
772      (loop for i from 1 below len      (loop for i from 1 below len
773            for args = (copy-list args-proto)            for args = (copy-list args-proto)
# Line 848  Line 848 
848    (let ((args (list 17))    (let ((args (list 17))
849          (args2 (list 0))          (args2 (list 0))
850          (args3 nil))          (args3 nil))
851      (loop for i from 2 to (min 256 call-arguments-limit)      (loop for i from 2 to (min 256 (1- call-arguments-limit))
852            do (push 17 args)            do (push 17 args)
853            do (push (- i) args2)            do (push (- i) args2)
854            do (push i args3)            do (push i args3)
# Line 859  Line 859 
859    nil)    nil)
860    
861  (deftest >=.7  (deftest >=.7
862    (let* ((len (min 256 call-arguments-limit))    (let* ((len (min 256 (1- call-arguments-limit)))
863           (args-proto (loop for i from 1 to len collect i)))           (args-proto (loop for i from 1 to len collect i)))
864      (loop for i from 1 below len      (loop for i from 1 below len
865            for args = (copy-list args-proto)            for args = (copy-list args-proto)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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