mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 19:50:44 -07:00
Code Issues Projects Releases Packages Wiki Activity

c::*funs* may contain symbols (like CB marking closure boundary),

Browse source 
function structures (marking function definitions), or lists with the
format (fname MACRO interpreted-function), to denote MACROLET
expansions.
This commit is contained in:
jjgarcia 2002-12-17 10:45:36 +00:00
parent 8209fc021e
commit b0e60245a4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpflet.lsp
View file

@ -85,7 +85,7 @@
(when (or
(member var *vars* :test #'eq)
(member var *funs* :test #'eq :key
#'(lambda (x) (unless (symbolp x) (fun-var x))))
#'(lambda (x) (unless (or (consp x) (symbolp x)) (fun-var x))))
(member var *blocks* :test #'eq :key
#'(lambda (x) (unless (symbolp x) (blk-var x))))
(member var *tags* :test #'eq :key