Parent Directory | Revision Log | 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)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |