(File syntax.l) (add-syntax-class lambda fixnum-BitOr boole cons rplacd cdr car return caar eq assq setq null do dtpr error symbolp not cond) (getsyntax lambda error car rassq setq cond int:getsyntax let) (setsyntax lexpr putprop ascii int:setsyntax cdr return caar null do assq quote eq car rassq symbolp numberp and arg setq prog error equal or not cond)