BSD 4_3 development

[unix-history] / usr / lib / lisp / array.x

diff --git a/usr/lib/lisp/array.x b/usr/lib/lisp/array.x
index b172815..c84ee87 100644 (file)
--- a/usr/lib/lisp/array.x
+++ b/usr/lib/lisp/array.x
@@ -6,10 +6,11 @@
 (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)
 (storeintern lambda cons apply)
 (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)
 (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)
 (storeintern lambda cons apply)
 (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)

-(arrac-nD lexpr value-eval set cpy1 replace memq arrayref null cddr do error + |1+| eq cond length setq cdr arg car getaux let)
-(arrac-twoD lexpr error set cxr getdata caddr offset-cxr simple-arrayref value-eval eq cond cdr arg car getaux let)
+(arrac-nD lexpr value-eval set cpy1 replace memq arrayref null cddr do error + |1+| eq cond cdr length setq arg car getaux let)
+(arrac-twoD lexpr error set cxr getdata caddr offset-cxr simple-arrayref cdr value-eval eq cond arg car getaux let)

 (arrac-oneD lexpr error set cxr getdata arg offset-cxr simple-arrayref cdr value-eval eq cond)
 (ev-arraycall lambda apply)
 (arrac-oneD lexpr error set cxr getdata arg offset-cxr simple-arrayref cdr value-eval eq cond)
 (ev-arraycall lambda apply)

+(array-type lambda getaux car error arrayp not cond)

 (arraycall macro append quote cons cdddr caddr cadr)
 (arraycall macro append quote cons cdddr caddr cadr)

-(*array lexpr return putd arrayref set bigp not zerop and or sizeof cxr getd small-segment marray let null apply cdr cons |1-| do eq quote memq arg error - setq lessp cond prog)
+(*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)

 (array macro cdddr append caddr cadr list quote cons)
 (array macro cdddr append caddr cadr list quote cons)