int lambdap(int addr){ int val; val = findsym(addr); if(val != 0) return(IS_LAMBDA(val)); else return(0); }
int lambdap(int addr){ int symaddr; symaddr = findsym(symname(addr)); if(symaddr == NIL) return(0); else { if((IS_FUNC(symaddr)) && (IS_LAMBDA(symaddr))) return(1); else return(0); } }
void markcell(int addr){ if(USED_CELL(addr)) return; MARK_CELL(addr); if(car(addr) != 0) markcell(car(addr)); if(cdr(addr) != 0) markcell(cdr(addr)); if((GET_BIND(addr) != 0) && (IS_LAMBDA(addr))) markcell(GET_BIND(addr)); }