Commit | Line | Data |
---|---|---|
fa41e9f6 C |
1 | (File lmhacks.l) |
2 | (old-printer lambda cxr getd putd quote setq) | |
3 | (new-printer lambda cxr getd putd quote setq) | |
4 | (zprint-hunk lambda |1+| cdr cxr zprin1a if return patom lessp < null not and cond quote equal = hunksize do tyo) | |
5 | (zprint-list lambda |1-| cdr car if return eq =& = quote zprin1a patom null cond dtpr not or do tyo) | |
6 | (zprin1a lambda =& = zprint-hunk hunkp |1-| zprint-list dtpr xxprint atom send-internal send get-handler-for if function fclosure-function eq fclosurep and instancep maknum :typep progn si:printing-random-object quote named-structure-invoke-carefully or named-structure-p setq patom null cond) | |
7 | (zprin1 lambda or quote zprin1a setq) | |
8 | (zprinc lambda or zprin1a setq) | |
9 | (zprint lambda quote zprin1 setq) | |
10 | (send-internal lambda flavor-default-handler vref flavor-method-hash-table gethash or eq cond if lexpr-funcall declare) | |
11 | (:typep lambda Internal-bcdcall getdisc bcdp cxr getd symbolp funcall hunkp get nthcdr car nth memq null if named-structure-p setq instance-typep quote function fclosure-function eq fclosurep and instancep cond) | |
12 | (defselect macro return rplacd last go prog loop not and liszt-internal-do mapc setf push caar concat atom setq nreverse null do append ferror cdr car eq cond if list quote cons gensym intern let cddr caddadr cadadr caadr) | |
13 | (named-structure-invoke-internal (lambda . local) ferror and lexpr-funcall quote get cond if named-structure-symbol setq let) | |
14 | (named-structure-invoke-carefully lambda named-structure-invoke-internal) | |
15 | (named-structure-invoke lambda named-structure-invoke-internal) | |
16 | (named-structure-symbol lambda ferror named-structure-p or) | |
17 | (named-structure-p lambda quote get if car dtpr vprop vectorp cxr setq atom hunkp and or cond) | |
18 | (si:printing-random-object macro and append list quote cons ferror cdr setq eq cond car caseq selectq null do let cddr cddadr cadadr caadr) | |
19 | (make-list lambda return |1+| rplacd cdr list greaterp cddr error eq cond caseq selectq car setq go null and prog loop) | |
20 | (union lambda return cons setf push memq not cond cdr car setq go null and prog loop) | |
21 | (multiple-value-list-1 lambda ferror cons list* - nthcdr rplacd cdr >& > list eq =& = cond) | |
22 | (multiple-value-list macro quote list cadr) | |
23 | (multiple-value-bind macro append list quote cons cdddr caddr cadr) | |
24 | (multiple-value macro |1+| setq setf push and nreverse reverse return cdr do list car null not cond if append quote cons caddr cadr) | |
25 | (values-list lambda set car not cond if null cdr do length setq) | |
26 | (values macro setq setf push reverse return null cond do append car first length list quote cons cdr) |