From: CSRG <csrg@ucbvax.Berkeley.EDU>
Date: Fri, 4 Mar 1983 11:14:13 +0000 (-0800)
Subject: BSD 4_1c_2 development
X-Git-Tag: BSD-4_1c_2~194
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/6576c2c297360f9a005699964bcaa9015ec933e5

BSD 4_1c_2 development
Work on file usr/lib/lisp/cmumacs.x

Synthesized-from: CSRG/cd1/4.1c.2
---

diff --git a/usr/lib/lisp/cmumacs.x b/usr/lib/lisp/cmumacs.x
new file mode 100644
index 0000000000..1dd087b9fc
--- /dev/null
+++ b/usr/lib/lisp/cmumacs.x
@@ -0,0 +1,32 @@
+(File cmumacs.l)
+(while macro expand-do)
+(until macro expand-do)
+(ty macro cdr quote append)
+(set-of macro expand-set-of)
+(forall macro quote expand-ex)
+(for-each macro expand-fe)
+(for macro expand-do)
+(expand-set-of lambda ldiff length cdr Cnth car quote cons quote! return cddr list atom cond cadr setq prog)
+(expand-fe lambda cddr ldiff length cdddr Cnth ncons list atom progn quote car cdr setq cadr memq cond cons return prog)
+(in-line-lambda:415678421 lambda memq)
+(in-line-lambda:415678422 lambda memq)
+(expand-do lambda and rplacd cdr eq car null liszt-internal-do mapcan gensym list ncons cons quote! return quote function some exists cddr ldiff append cadr memq setq cond prog)
+(expand-ex lambda list cdr cdddr setq car ncons cadr atom cond quote caddr cons quote!)
+(exists macro quote expand-ex)
+(Cdo macro expand-do)
+(def macro cadr car list append cons quote status cond cdr)
+(dm macro append cons list quote status cond cddr cadr)
+(dn macro append cons list quote status cond cddr cadr)
+(de macro append cons list quote status cond cddr cadr)
+(lineread macro quote list car cdr setq cond cadr)
+(selectq macro cadr reverse cdar caar atom car cdr cond setq null cddr liszt-internal-do maplist append cons list quote gensym)
+(push macro quote list caddr cadr)
+(neq macro quote list caddr cadr)
+(construct-list* lambda cdr null car cadr quote list cddr do reverse setq)
+(list* macro construct-list* car null cond cdr)
+(quote!-expr-mac lambda cdr cddr quote!-expr-mac cadr car eq quote list atom null cond)
+(quote! macro quote!-expr-mac cdr)
+(quote!-expr lambda return and cdr setq prog append cddr quote!-expr cadr eval cons car eq atom cond)
+(*** macro cdr)
+(mark!changed macro list quote cons cadr)
+(dv macro quote list caddr cadr)