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

FLET/LABEL would not compile as toplevel forms because the value of *CURRENT-FUNCTION* is NIL for toplevel forms

Browse source
This commit is contained in:
jjgarcia 2005-02-21 11:18:51 +00:00
parent 22581ee106
commit 4bd4b5a32a
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/cmpflet.lsp
View file

@ -226,9 +226,10 @@
(return nil))
((and (fun-p fun) (same-fname-p (fun-name fun) fname))
(incf (fun-ref fun))
(if build-object
(setf (fun-ref-ccb fun) t)
(push fun (fun-referred-funs *current-function*)))
(cond (build-object
(setf (fun-ref-ccb fun) t))
(*current-function*
(push fun (fun-referred-funs *current-function*))))
;; we introduce a variable to hold the funob
(let ((var (fun-var fun)))
(cond (ccb (when build-object