Commit | Line | Data |
---|---|---|
aada1f6c C |
1 | (File array.l) |
2 | (listarray lexpr return cpy1 eval cons arrayref lessp |1-| do memq getaux car arraydims cdr quote apply eq error cxr getd symbolp and arrayp cond arg setq prog) | |
3 | (fillarrayarray lambda |1+| arrayref replace >& do getlength min |1-| setq prog) | |
4 | (fillarray lambda |1+| cdr replace arrayref set >& do getaux car memq getlength |1-| arrayp fillarrayarray return cxr getd setq symbolp cond prog) | |
5 | (arraydims lambda quote *break break arrayp cxr getd car getaux symbolp cond) | |
6 | (small-segment lambda return remprop putdelta putlength fake putdata marray putprop greaterp + rplacd - rplaca segment maknum cons fixnum-BitAndNot boole lessp not and error null cond cdr car quote get desetq setq prog) | |
7 | (storeintern lambda cons apply) | |
8 | (store macro apply getdisc bcdp dtpr and or cxr getd setq arrayp cddr cadr append list cdr car quote cons return eq cond do caddr cdadr caadr) | |
9 | (arrac-nD lexpr value-eval set cpy1 replace memq arrayref null cddr do error + |1+| eq cond cdr length setq arg car getaux let) | |
10 | (arrac-twoD lexpr error set cxr getdata caddr offset-cxr simple-arrayref cdr value-eval eq cond arg car getaux let) | |
11 | (arrac-oneD lexpr error set cxr getdata arg offset-cxr simple-arrayref cdr value-eval eq cond) | |
12 | (ev-arraycall lambda apply) | |
13 | (array-type lambda getaux car error arrayp not cond) | |
14 | (arraycall macro append quote cons cdddr caddr cadr) | |
15 | (*array lexpr return putd arrayref set bigp not cdr zerop progn status and or sizeof cxr getd small-segment marray let null apply cons |1-| do eq quote memq arg error - setq lessp cond prog) | |
16 | (array macro cdddr append caddr cadr list quote cons) |