Parent Directory | Revision Log | Patch
revision 1.23 by pfdietz, Sat Jun 25 02:03:12 2005 UTC | revision 1.24 by pfdietz, Mon Jun 27 02:47:05 2005 UTC | |
---|---|---|
# | Line 151 | Line 151 |
151 | ||
152 | ;;; flet works with a large (maximal?) number of arguments | ;;; flet works with a large (maximal?) number of arguments |
153 | (deftest flet.20 | (deftest flet.20 |
154 | (let* ((n (min lambda-parameters-limit 1024)) | (let* ((n (min (1- lambda-parameters-limit) 1024))) |
155 | (vars (loop for i from 1 to n collect (gensym)))) | (vars (loop repeat n collect (gensym)))) |
156 | (eval | (eval |
157 | `(eqlt ,n | `(eqlt ,n |
158 | (flet ((%f ,vars (+ ,@ vars))) | (flet ((%f ,vars (+ ,@ vars))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |