4.3BSD/usr/lib/lisp/format.x

(File format.l)
(format-test lambda format)
(ferror lambda error cdr quote lexpr-funcall setq car stringp cond if let)
(format:nsubstring lambda - + substring declare)
(format:string-search-char lambda return |1+| getcharn cdr eq =& and >& flatc do declare)
(format:fresh-line lambda terpr nwritn cons rplacd cadr eq =& = not cdr and dtpr cond)
(format:terpr lambda terpr cdr cons rplacd dtpr cond)
(format:printorpatom lambda patom print exploden nreverse cdr getcharn car cons setq null explode liszt-internal-do mapcar nreconc rplacd dtpr cond)
(format:print lambda format:printorpatom)
(format:patom lambda format:printorpatom)
(format:tyo lambda tyo cdr cons rplacd dtpr cond)
(roman-char lambda quote + nthcdr car format:tyo)
(roman-step lambda lessp < >= do - roman-char not eq =& = and remainder setq |1+| quotient roman-step >& > cond)
(english-print-thousand lambda bigp not null setq zerop <& < eq =& = and quote format:tyo |1-| cdr cxr ar-1 format:patom >& > cond quotient remainder let declare)
(english-print lambda |1-| cxr ar-1 remainder quotient setq lessp english-print-thousand >& > do minus english-print format:tyo quote <& < format:patom eq bigp not cdr null and zerop cond declare)
(make-list-array lambda |1+| car cdr rplacx null do length makhunk let)
(^:format-handler lambda *throw if lessp < equal bigp not cdr and zerop setq cxr null cond let)
(}:format-handler lambda)
({:format-handler lambda |1-| format-ctl-string quote *catch cdr car prog1 pop flatc if and return format:nsubstring setq + getcharn eq =& cond ferror |1+| equal = null format:string-search-char do cxr or let)
(;:format-handler lambda case-scan)
(|]:format-handler| lambda)
(|[:format-handler| lambda case-scan or <& < not >= ferror and |1+| setq car prog1 error null cxr cdr >& > cond let)
(case-scan lambda case-scan and or return equal eq =& = cond |1+| getcharn *throw cdr <& lessp < not >= do quote *catch declare setq)
(q:format-handler lambda |1-| cdr cxr cons setq apply <& < do)
(format-ctl-justify lambda - format-ctl-repeat-char greaterp > and setq)
(format-ctl-repeat-char lambda |1+| format:tyo eq =& do setq null cond declare)
(~:format-handler lambda cxr format-ctl-repeat-char)
(|\|:format-handler| lambda cxr format-ctl-repeat-char)
(x:format-handler lambda cxr format-ctl-repeat-char)
(&:format-handler lambda format:fresh-line)
(ch10:format-handler lambda return |1-| getcharn memq lessp < >= do |1+| setq not format:tyo cond)
(%:format-handler lambda |1+| format:terpr equal = do cxr or let declare)
(g:format-handler lambda nthcdr cxr or let)
(*:format-handler lambda nthcdr cdr + minus setq cond if cxr or let)
(p:format-handler lambda format:tyo eq =& = if |1+| cdr prog1 pop ferror null |1-| nthcdr car nth setq cond let)
(c:format-handler lambda + cdr symeval rassq car setq let ascii format:patom and ferror >& > <& < fixp not or cond)
(s:format-handler lambda format-ctl-ascii)
(format-ctl-ascii lambda format-ctl-justify max |\\| cdr - + format-ctl-repeat-char flatc flatsize format:patom format:print getcharn numberp not setq null cond cxr let)
(a:format-handler lambda format-ctl-ascii)
(format-ctl-octal lambda format:patom flatc format-ctl-justify and getcharn numberp not setq null cond cxr let)
(format-prc lambda - plus format:tyo format:patom <& < cond)
(format-binpr1 lambda remainder format-prc quotient format-binpr1 equal cond)
(format-binpr lambda minus format-binpr1 quote lessp ferror <& < >& > or format:patom equal cond)
(format:anyradix-printer lambda car format:tyo nreverse liszt-internal-do mapc length format-ctl-justify format-binpr list or cdr roman-step quote english-print and cxr setq null cond let)
(o:format-handler lambda format:anyradix-printer)
(r:format-handler lambda format:anyradix-printer)
(f:format-handler lambda concat setq <& < >& > fixp and cxr let format:patom floatp not cond)
(d:format-handler lambda format:patom flatc format-ctl-justify getcharn numberp not setq null quote english-print roman-step >& > <& < and cond cxr let)
(defformat macro append cons quote list length eq =& = dtpr symbolp or ferror memq not concat setq fixp cond let cddddr cadddr caddr cadr)
(format-ctl-op lambda |1+| Internal-bcdcall getdisc bcdp cxr getd symbolp and caddr funcall ferror or cadr quote cdr car return caar eq null do assq concat setq stringp cond)
(format-ctl-string lambda format-ctl-op ascii concat quote ferror null let length car prog1 pop rplacx as-1 eq =& or + >& > <= getcharn |1+| makhunk return and format:patom format:nsubstring nsubstring equal = neq format:string-search-char string-search-char cond setq cdr <& lessp < not >= flatc do declare)
(format-ctl-list lambda cdr car format-ctl-op)
(format lambda nreverse maknam and cdr format-ctl-list car do format-ctl-string stringp get_pname symbolp list quote null eq cond setq let)