Commit | Line | Data |
---|---|---|
c4569e8b C |
1 | (File pp.l) |
2 | (printaccross lambda go cdr setq nwritn car $prdf atom null cond quote princ prog) | |
3 | (printmacrochar lambda add1 cadr $prdf princ cddr cdr null or cond) | |
4 | (printdef lambda $prdf car cddaddr setq liszt-internal-do mapc cadaddr terpri quote princ last caaddr memq cdddr caddr dtpr atom cadr bigp not cdr null zerop and cond) | |
5 | (print-lambda lambda tab terpr + $prdf null cddr liszt-internal-do mapc eq let cadr print car quote princ add1 setq return last cdr cond prog) | |
6 | (printprog lambda + $prdf tab atom null cddr liszt-internal-do mapc cadr print car quote princ add1 setq return last cdr cond prog) | |
7 | ($prd1 lambda print progn printret return quote $patom1 pntlen plus atom |1+| cdr setq null cond car $prdf prog) | |
8 | ($prdf lambda go terpr $prd1 nwritn $patom1 printaccross charcnt + <& print progn printret not printmacrochar Internal-bcdcall getdisc eq bcdp setq cxr getd symbolp funcall quote get or car atom dtpr tab return $prdf patom terpri |1+| flatc cdr >& and cond prog) | |
9 | ($prpr lambda pp-form) | |
10 | (pp-form lambda $prdf setq) | |
11 | (condclosefile lambda setq close terpr cond) | |
12 | (pp-prop lambda quote list pp-form) | |
13 | (pp-function lambda list pp-form or msg-print terpr progn msg quote get bcdp caadr memq cadr dtpr and cond) | |
14 | (pp-value lambda quote list pp-form) | |
15 | (pp nlambda get terpri or msg-print progn msg bcdp not cxr getd list apply boundp and eq cdr liszt-internal-do mapc go pp-form outfile cadr eval quote equal dtpr return terpr condclosefile car null cond setq prog) | |
16 | (printret macro cadr cdr append cons quote list) |