(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)