Commit | Line | Data |
---|---|---|
cd3cec25 C |
1 | (File vector.l) |
2 | (set-in-fclosure lambda |1+| int:fclosure-stack-stuff return car eq vref setq lessp < vsize do error fclosurep not cond) | |
3 | (symeval-in-fclosure lambda |1+| int:fclosure-stack-stuff return car eq vref setq lessp < vsize do error fclosurep not cond) | |
4 | (vector-dump lambda |1+| vref lessp < not do terpr vprop vsize setq msg-print progn msg let) | |
5 | (fclosure-function lambda vref fclosurep and) | |
6 | (fclosure-alist lambda error |1+| cadr car cons setf push vref setq lessp < not vsize do fclosurep cond) | |
7 | (fclosurep lambda vprop quote eq vectorp and) | |
8 | (fclosure-list lexpr |1+| make-fclosure-with-alist setq setf push nreverse greaterp > list cons |1-| + cdr <& arg do minusp eq let listify error evenp not cond) | |
9 | (fclosure lambda list make-fclosure-with-alist) | |
10 | (make-fclosure-with-alist lambda list nconc copyint* cons boundp cdr return caar eq assq symbolp car setq vset setf do quote length |1+| new-vector let error dtpr null or not cond) | |
11 | (vputprop lambda putprop vsetprop cons ncons setq dtpr not cond if vprop let) | |
12 | (vget lambda get dtpr cond if vprop let) | |
13 | (vsize-byte lambda error int:vsize vectorip cond if) | |
14 | (vsize-word lambda error int:vsize vectorip cond if) | |
15 | (vsize lambda error int:vsize vectorip vectorp or cond if) | |
16 | (vseti-long lambda int:vset vsize cdr <& or fixp error vectorip not cond vset-macro) | |
17 | (vseti-word lambda int:vset vsize-word cdr <& or fixp error vectorip not cond vset-macro) | |
18 | (vseti-byte lambda int:vset vsize-byte cdr <& or fixp error vectorip not cond vset-macro) | |
19 | (vset lambda int:vset vsize cdr <& or fixp error vectorp not cond vset-macro) | |
20 | (vrefi-long lambda int:vref vsize lessp <& < or fixp error vectorip not cond vref-macro) | |
21 | (vrefi-word lambda int:vref vsize-word lessp <& < or fixp error vectorip not cond vref-macro) | |
22 | (vrefi-byte lambda int:vref vsize-byte lessp <& < or fixp error vectorip not cond vref-macro) | |
23 | (vref lambda int:vref vsize lessp <& < or fixp error vectorp not cond vref-macro) | |
24 | (vectori-long lexpr arg int:vset <& < |1-| do new-vectori-long let vector-macro) | |
25 | (vectori-word lexpr arg int:vset <& < |1-| do new-vectori-word let vector-macro) | |
26 | (vectori-byte lexpr arg int:vset <& < |1-| do new-vectori-byte let vector-macro) | |
27 | (vector lexpr arg int:vset <& < |1-| do new-vector let vector-macro) |