mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-01 02:00:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

When compiling (function (lambda-block f (x) ...)), a block definition is missing.

Browse source
This commit is contained in:
jjgarcia 2002-11-05 13:29:34 +00:00
parent aff037d412
commit 569a5ef6f4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpspecial.lsp
View file

@ -115,7 +115,7 @@
(funob (c1lambda-expr (cddr fun)))
(info (second funob))
(closure (closure-p funob))
(body (cdddr fun))
(body `(BLOCK ,name ,@(cdddr fun)))
(fun (make-fun :name name
:cfun (next-cfun)
:closure closure)))