usr/lib/lisp/syntax.x

(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)