BSD 4_1c_2 development

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

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

diff --git a/usr/lib/lisp/cmufncs.x b/usr/lib/lisp/cmufncs.x
new file mode 100644 (file)
index 0000000..973a173
--- /dev/null
+++ b/usr/lib/lisp/cmufncs.x
@@ -0,0 +1,36 @@
+(File cmufncs.l)
+(get-comment lambda cdr dreverse implode go cons return list car member setq tyi tyipeek eq cond prog)
+(disgusting lambda)
+(dc-dskin nlambda boundp and let mark!changed putprop caddr cons disgusting get-comment go cdr cadr eq return not cond quote car get setq prog)
+(nth lambda |1-| car bigp not cdr zerop lessp quote err atom and or do null cond)
+(yesno lambda memq cond selectq)
+(ttyesno lambda read yesno)
+(tconc lambda rplaca cdr rplacd dtpr ncons setq cons atom cond)
+(tailp lambda go cdr setq eq return atom cond prog and)
+(subpr lambda quote and cdar caar null cons eq not neq or return car subpr cdr setq go atom cond prog)
+(subpair lambda quote or subpr cond)
+(sort1 lambda sub1 sort1 merge1 go return rplacd Internal-bcdcall getdisc quote eq bcdp cxr getd symbolp car funcall or setq prog bigp not cdr and zerop null cond)
+(sort lambda go add1 merge1 return sort1 quote function setq null cond prog)
+(some lambda go cdr Internal-bcdcall getdisc quote eq bcdp setq cxr getd symbolp and car funcall return null cond prog)
+(remove lambda cons cdr remove car equal atom cond)
+(printlev lambda prinlev terpri)
+(prinlev lambda go patom atom null cdr *** return memcdr sub1 setq prog quote princ caddr cadr prinlev car eq and print dtpr not cond)
+(nthchar lambda bigp not cdr null and zerop minus reverse minusp explodec Cnth car plusp cond)
+(Cnth lambda go sub1 cdr setq return eq atom or prog cons >& > cond)
+(notevery lambda every not)
+(notany lambda some not)
+(merge1 lambda go return rplacd cdr prog1 Internal-bcdcall getdisc quote eq bcdp cxr getd symbolp and car funcall setq prog null cond)
+(merge lambda merge1 quote function setq null cond)
+(memcdr lambda go cdr setq return eq cond prog)
+(lsubst lambda cons cdr lsubst copy nconc car equal eq atom null cond)
+(ldiff lambda go rplacd quote error return cdr car cons ncons setq prog null eq cond)
+(lconc lambda rplaca cdr rplacd dtpr cons last setq atom cond return prog)
+(kwote lambda quote list)
+(insert lambda - go sub1 cddr cadr rplaca cdr cons rplacd equal not Internal-bcdcall getdisc eq bcdp cxr getd symbolp and car funcall <& < Cnth add1 *quo length prog function setq quote error eprint atom list null cond)
+(every lambda go cdr Internal-bcdcall getdisc quote eq bcdp setq cxr getd symbolp and car funcall return null cond prog)
+(dsubst lambda go cdr rplacd and dsubst rplaca equal car symbolp atom copy return setq eq cond prog)
+(dreverse lambda go length sub1 Cnth rplacd rplaca car cddr return cdr null or atom cond setq prog)
+(dremove lambda go return setq prog dremove cddr rplacd cadr rplaca cdr car eq atom cond)
+(attach lambda quote error eprint rplaca cdr car cons rplacd dtpr cond)
+(%lineread lambda go tyi memq tyipeek cdr reverse return car eq cond quote read cons setq prog)
+(tab lexpr cdr - printblanks terpri nwritn greaterp >& > cond arg setq prog)