/[gcl]/gcl/ansi-tests/loop13.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/loop13.lsp

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

revision 1.2 by pfdietz, Wed Nov 20 12:23:11 2002 UTC revision 1.3 by pfdietz, Sun Sep 21 17:22:20 2003 UTC
# Line 37  Line 37 
37    1 2)    1 2)
38    
39  (deftest loop.13.8  (deftest loop.13.8
40    (let* ((limit (min 1000 (1- multiple-values-limit)))    (let* ((limit (min 1000 (1- (min call-arguments-limit
41                                       multiple-values-limit))))
42           (vals (make-list limit :initial-element :a))           (vals (make-list limit :initial-element :a))
43           (vals2 (multiple-value-list (eval `(loop return (values ,@vals))))))           (vals2 (multiple-value-list (eval `(loop return (values ,@vals))))))
44      (equalt vals vals2))      (equalt vals vals2))

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

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