franz/fasl.c
/* chktt - builds a list of transfer table entries which don't yet have
  a function associated with them, i.e if this transfer table entry
  were used, an undefined function error would result
 */
builds a list of transfer table entries which don't yet have
a function associated with them, i.e if this transfer table entry
were used, an undefined function error would result
builds a list of transfer table entries which don ' t yet have a function associated with them i . e if this transfer table entry were used an undefined function error would result
lispval 
chktt()
{
	register struct trtab *temptt;
	register struct trent *tement;
	register lispval retlst,curv;
	Savestack(4);
	retlst = newdot();		
	protect(retlst);
	for (temptt = trhead; temptt != 0 ; temptt = temptt->nxtt)
	{ 
            for(tement = &temptt->trentrs[0] ; tement->fcn != 0 ; tement++)
	    {
	       if(tement->name->a.fnbnd == nil)
	       {
		  curv= newdot();
		  curv->d.car = tement->name;
		  curv->d.cdr = retlst->d.cdr;
		  retlst->d.cdr = curv;
		}
	     }
	 }
	 Restorestack();
	 return(retlst->d.cdr);
}
lispval chktt ( ) { register struct trtab * temptt ; register struct trent * tement ; register lispval retlst , curv ; Savestack ( 4 ) ; retlst = newdot ( ) ; protect ( retlst ) ; for ( temptt = trhead ; temptt != 0 ; temptt = temptt -> nxtt ) { for ( tement = & temptt -> trentrs [ 0 ] ; tement -> fcn != 0 ; tement ++ ) { if ( tement -> name -> a . fnbnd == nil ) { curv = newdot ( ) ; curv -> d . car = tement -> name ; curv -> d . cdr = retlst -> d . cdr ; retlst -> d . cdr = curv ; } } } Restorestack ( ) ; return ( retlst -> d . cdr ) ; }
chktt - builds a list of transfer table entries which don't yet have
a function associated with them, i.e if this transfer table entry
were used, an undefined function error would result
chktt - builds a list of transfer table entries which don ' t yet have a function associated with them i . e if this transfer table entry were used an undefined function error would result
/* build list of undef functions */