Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Oct 19 13:10:23 2002 UTC | revision 1.3 by camm, Sat Oct 26 16:18:13 2002 UTC | |
---|---|---|
# | Line 87 | Line 87 |
87 | (values x y z)) | (values x y z)) |
88 | nil nil nil) | nil nil nil) |
89 | ||
90 | #| | |
91 | (deftest multiple-value-setq.12 | (deftest multiple-value-setq.12 |
92 | (let ((n (min 100 multiple-values-limit)) | (let ((n (min 100 multiple-values-limit)) |
93 | (vars nil) | (vars nil) |
# | Line 106 | Line 106 |
106 | unless (eval form) | unless (eval form) |
107 | collect (list i form))) | collect (list i form))) |
108 | nil) | nil) |
109 | |# |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |