       
#(#! 
(lisp::in-package (lisp::quote user::lisp))#! 
(lisp::export (lisp::quote (lisp::make-array lisp::vector lisp::array-element-type lisp::array-rank lisp::array-dimension lisp::array-dimensions lisp::array-in-bounds-p lisp::array-row-major-index lisp::adjustable-array-p lisp::bit lisp::sbit lisp::bit-and lisp::bit-ior lisp::bit-xor lisp::bit-eqv lisp::bit-nand lisp::bit-nor lisp::bit-andc1 lisp::bit-andc2 lisp::bit-orc1 lisp::bit-orc2 lisp::bit-not lisp::array-has-fill-pointer-p lisp::fill-pointer lisp::vector-push lisp::vector-push-extend lisp::vector-pop lisp::adjust-array)))#! 
(lisp::in-package (lisp::quote lisp::system))
#((lisp::bit lisp::unsigned-char lisp::signed-char lisp::unsigned-short lisp::signed-short lisp::fixnum) lisp::fixnum (lisp::bit lisp::unsigned-char lisp::signed-char lisp::unsigned-short lisp::signed-short) lisp::character lisp::string-char (lisp::string-char lisp::bit lisp::short-float lisp::long-float) "fill pointer for 1 dimensional arrays only" :initial-element :element-type :initial-contents "The rank of the array is ~R,~%~
               ~7@Tbut ~R ~:*~[indices are~;index is~:;indices are~] ~
               supplied." :fill-pointer "The fill pointer of the vector ~S zero." ":fill-pointer specified for array with no fill pointer" :static :adjustable lisp::bit "bad :fill-pointer arg: ~a" lisp::subtypep 0 :displaced-index-offset :displaced-to system::best-array-element-type system::get-aelttype system::make-array1 system::sequence-cursor system::aset-by-cursor system::increment-cursor lisp::make-array lisp::adjust-array lisp::array-has-fill-pointer-p system::staticp lisp::array-dimensions lisp::array-total-size system::copy-array-portion lisp::array-in-bounds-p (system::%init . #((lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (system::mfsfun (lisp::quote system::best-array-element-type) 0 1) (system::mfvfun-key (lisp::quote lisp::make-array) 1 4353 2) (system::mfsfun (lisp::quote system::increment-cursor) 3 2) (system::mfsfun (lisp::quote system::sequence-cursor) 4 2) (system::mfvfun (lisp::quote lisp::vector) 5 16384) (system::mfsfun (lisp::quote lisp::array-dimensions) 6 1) (system::mfvfun (lisp::quote lisp::array-in-bounds-p) 7 16385) (system::mfvfun (lisp::quote lisp::array-row-major-index) 8 16385) (system::mfvfun (lisp::quote lisp::bit) 9 16385) (system::mfvfun (lisp::quote lisp::sbit) 10 16385) (system::mfvfun (lisp::quote lisp::bit-and) 11 770) (system::mfvfun (lisp::quote lisp::bit-ior) 12 770) (system::mfvfun (lisp::quote lisp::bit-xor) 13 770) (system::mfvfun (lisp::quote lisp::bit-eqv) 14 770) (system::mfvfun (lisp::quote lisp::bit-nand) 15 770) (system::mfvfun (lisp::quote lisp::bit-nor) 16 770) (system::mfvfun (lisp::quote lisp::bit-andc1) 17 770) (system::mfvfun (lisp::quote lisp::bit-andc2) 18 770) (system::mfvfun (lisp::quote lisp::bit-orc1) 19 770) (system::mfvfun (lisp::quote lisp::bit-orc2) 20 770) (system::mfvfun (lisp::quote lisp::bit-not) 21 513) (system::mfsfun (lisp::quote lisp::vector-push) 22 2) (system::mfvfun (lisp::quote lisp::vector-push-extend) 23 770) (system::mfsfun (lisp::quote lisp::vector-pop) 24 1) (system::mfvfun-key (lisp::quote lisp::adjust-array) 25 16386 26))))
)
