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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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