<br clear="all"><br>-- <br>(def (eval e l d c)<br> (if (atom? e)<br> ((ahandler (type e)) e l d c)<br> (eval (car e) l d <br> (fun (x) <br> (evapp x (cdr e) l d c)))))