From b67e087ff4661d33d495c8d4ca5d5921024b41ad Mon Sep 17 00:00:00 2001 From: CSRG Date: Fri, 4 Mar 1983 03:15:21 -0800 Subject: [PATCH] BSD 4_1c_2 development Work on file usr/lib/lisp/cmufncs.x Synthesized-from: CSRG/cd1/4.1c.2 --- usr/lib/lisp/cmufncs.x | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 usr/lib/lisp/cmufncs.x diff --git a/usr/lib/lisp/cmufncs.x b/usr/lib/lisp/cmufncs.x new file mode 100644 index 0000000000..973a17327f --- /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) -- 2.20.1