Commit | Line | Data |
---|---|---|
c5b5273e C |
1 | (File machacks.l) |
2 | (^ lambda expt) | |
3 | (defsubst macro cond if car cdr nreverse null do append cons quote list cdddr caddr cadr) | |
4 | (check-arg-type macro null cond if quote list cadddr caddr cadr) | |
5 | (check-arg macro atom cond if quote list cadddr caddr cadr) | |
6 | (defconst macro quote list if car cddr setq cond caddr cadddr cadr) | |
7 | (local-declare macro nreverse cdr list car setq null liszt-internal-do mapcar append quote cons cddr cadr) | |
8 | (let-globally macro list or append quote nreverse cdr gensym car cons setq null liszt-internal-do mapcar let cddr cadr) | |
9 | (defunp macro car caar eq cond cdr nreconc reverse let append cons quote list cdddr caddr cadr) | |
10 | (tailp lambda cdr return eq cond null do) | |
11 | (pairp macro quote list cadr) | |
12 | (every lambda cdr if every Internal-bcdcall getdisc quote eq bcdp setq cxr getd symbolp cond car funcall and null or) | |
13 | (some lambda cdr some Internal-bcdcall getdisc quote eq bcdp setq cxr getd symbolp car funcall cond if null not and) | |
14 | (del-if-not lambda cddr rplacd Internal-bcdcall getdisc quote eq bcdp setq cxr getd symbolp and cadr second funcall not cond if cdr null do cons let) | |
15 | (del-if lambda cddr rplacd Internal-bcdcall getdisc quote eq bcdp setq cxr getd symbolp and cadr second funcall cond if cdr null do cons let) | |
16 | (del lambda cddr rplacd |1-| bigp zerop not Internal-bcdcall getdisc quote eq bcdp cxr getd symbolp cadr second funcall and cond cdr null do cons let setq) | |
17 | (rem-if-not lambda cdr rplacd list Internal-bcdcall getdisc eq bcdp setq cxr getd symbolp and car funcall cond null do quote let) | |
18 | (rem-if lambda cdr rplacd list Internal-bcdcall getdisc eq bcdp setq cxr getd symbolp and car funcall not cond null do quote let) | |
19 | (rem lambda |1-| rplacd list bigp not cdr zerop Internal-bcdcall getdisc eq bcdp cxr getd symbolp and car funcall or cond null do quote let setq) | |
20 | (mem lambda cdr return Internal-bcdcall getdisc quote eq bcdp setq cxr getd symbolp and car funcall cond if null do) | |
21 | (find-postion-in-list-equal lambda |1+| cdr setq return car equal cond if null do) | |
22 | (find-position-in-list lambda |1+| cdr setq return car eq cond if null do) | |
23 | (butlast lambda butlast car cons cdr null cond) | |
24 | (circular-list lambda last rplacd append copylist setq) | |
25 | (copytree macro quote list cadr) | |
26 | (copylist macro quote cons cadr) | |
27 | (rest4 macro quote list cadr) | |
28 | (rest3 macro quote list cadr) | |
29 | (rest2 macro quote list cadr) | |
30 | (rest1 macro quote list cadr) | |
31 | (seventh macro quote list cadr) | |
32 | (sixth macro quote list cadr) | |
33 | (fifth macro quote list cadr) | |
34 | (fourth macro quote list cadr) | |
35 | (third macro quote list cadr) | |
36 | (second macro quote list cadr) | |
37 | (first macro quote list cadr) | |
38 | (gcd lambda remainder bigp not cdr null and zerop do minus setq plusp or) | |
39 | (macro macro append cons quote list cdddr caddr cadr) | |
40 | (symbolconc macro append quote cons cdr) | |
41 | (dolist macro list quote cons cddr cadadr caadr) | |
42 | (dotimes macro list quote cons symbolp fixp or cond if cddr cadadr caadr) | |
43 | (psetq macro cons quote list cond cdddr caddr cadr) | |
44 | (>= macro nreverse cond car quote list setf push cdr null do cons list* setq cdddr caddr cadr) | |
45 | (<= macro nreverse cond car quote list setf push cdr null do cons list* setq cdddr caddr cadr) | |
46 | (bit-clear macro quote list caddr cadr) | |
47 | (bit-set macro quote list caddr cadr) | |
48 | (bit-test macro cons quote list cdr) | |
49 | (lognot macro quote cons cadr) | |
50 | (logxor macro quote cons cdr) | |
51 | (logior macro quote cons cdr) | |
52 | (logand macro quote cons cdr) | |
53 | (if-for-maclisp-else-lispm macro car cdr) | |
54 | (unless macro cons quote list cddr cadr) | |
55 | (when macro cons quote list cddr cadr) | |
56 | (for macro append list quote cons cddddr cadddr caddr cadr) | |
57 | (ttf macro quote cons cdr) | |
58 | (construct-list* lambda cdr null car cadr quote list cddr do reverse setq) | |
59 | (list* macro construct-list* car null cond cdr) | |
60 | (fboundp macro quote list copy dtpr or cond cadr) | |
61 | (displace lambda car list rplacd rplaca quote error atom cond) | |
62 | (coutput lambda terpr print) |