BSD 4_1_snap development

Work on file usr/lib/lisp/syntax.x

Synthesized-from: CSRG/cd1/4.1.snap

diff --git a/usr/lib/lisp/syntax.x b/usr/lib/lisp/syntax.x
new file mode 100644 (file)
index 0000000..21807ed
--- /dev/null
+++ b/usr/lib/lisp/syntax.x
@@ -0,0 +1,4 @@
+(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)