The closure environment is now passed via the Lisp environment, and not as an argument to the function.

This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-16 18:36:03 +02:00
parent 7b55f82df7
commit 601ea9c780

View file

@ -400,7 +400,6 @@ The function thus belongs to the type of functions that ecl_make_cfun accepts."
(when varargs
(let ((first-arg (cond ((plusp nreq) (format nil "V~d" (+ req0 nreq)))
((eq closure-type 'CLOSURE) "env0")
((eq closure-type 'LEXICAL) (format nil "lex~D" (1- *level*)))
(t "narg"))))
(wt-nl