5 |
(lisp::in-package (lisp::quote lisp::system)) |
(lisp::in-package (lisp::quote lisp::system)) |
6 |
#((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,~%~ |
#((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 |
~7@Tbut ~R ~:*~[indices are~;index is~:;indices are~] ~ |
~7@Tbut ~R ~:*~[indices are~;index is~:;indices are~] ~ |
8 |
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 system::best-array-element-type 0 :displaced-index-offset :displaced-to 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::mf (lisp::quote lisp::upgraded-array-element-type) 1) (system::mfvfun-key (lisp::quote lisp::make-array) 2 16385 3) (system::mfsfun (lisp::quote system::increment-cursor) 4 2) (system::mfsfun (lisp::quote system::sequence-cursor) 5 2) (system::mfvfun (lisp::quote lisp::vector) 6 16384) (system::mfsfun (lisp::quote lisp::array-dimensions) 7 1) (system::mfvfun (lisp::quote lisp::array-in-bounds-p) 8 16385) (system::mfvfun (lisp::quote lisp::array-row-major-index) 9 16385) (system::mfvfun (lisp::quote lisp::bit) 10 16385) (system::mfvfun (lisp::quote lisp::sbit) 11 16385) (system::mfvfun (lisp::quote lisp::bit-and) 12 770) (system::mfvfun (lisp::quote lisp::bit-ior) 13 770) (system::mfvfun (lisp::quote lisp::bit-xor) 14 770) (system::mfvfun (lisp::quote lisp::bit-eqv) 15 770) (system::mfvfun (lisp::quote lisp::bit-nand) 16 770) (system::mfvfun (lisp::quote lisp::bit-nor) 17 770) (system::mfvfun (lisp::quote lisp::bit-andc1) 18 770) (system::mfvfun (lisp::quote lisp::bit-andc2) 19 770) (system::mfvfun (lisp::quote lisp::bit-orc1) 20 770) (system::mfvfun (lisp::quote lisp::bit-orc2) 21 770) (system::mfvfun (lisp::quote lisp::bit-not) 22 513) (system::mfsfun (lisp::quote lisp::vector-push) 23 2) (system::mfvfun (lisp::quote lisp::vector-push-extend) 24 770) (system::mfsfun (lisp::quote lisp::vector-pop) 25 1) (system::mfvfun-key (lisp::quote lisp::adjust-array) 26 16386 27)))) |
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 system::best-array-element-type 0 :displaced-index-offset :displaced-to 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 (lisp::quote lisp::upgraded-array-element-type) 1 513) (system::mfvfun-key (lisp::quote lisp::make-array) 2 16385 3) (system::mfsfun (lisp::quote system::increment-cursor) 4 2) (system::mfsfun (lisp::quote system::sequence-cursor) 5 2) (system::mfvfun (lisp::quote lisp::vector) 6 16384) (system::mfsfun (lisp::quote lisp::array-dimensions) 7 1) (system::mfvfun (lisp::quote lisp::array-in-bounds-p) 8 16385) (system::mfvfun (lisp::quote lisp::array-row-major-index) 9 16385) (system::mfvfun (lisp::quote lisp::bit) 10 16385) (system::mfvfun (lisp::quote lisp::sbit) 11 16385) (system::mfvfun (lisp::quote lisp::bit-and) 12 770) (system::mfvfun (lisp::quote lisp::bit-ior) 13 770) (system::mfvfun (lisp::quote lisp::bit-xor) 14 770) (system::mfvfun (lisp::quote lisp::bit-eqv) 15 770) (system::mfvfun (lisp::quote lisp::bit-nand) 16 770) (system::mfvfun (lisp::quote lisp::bit-nor) 17 770) (system::mfvfun (lisp::quote lisp::bit-andc1) 18 770) (system::mfvfun (lisp::quote lisp::bit-andc2) 19 770) (system::mfvfun (lisp::quote lisp::bit-orc1) 20 770) (system::mfvfun (lisp::quote lisp::bit-orc2) 21 770) (system::mfvfun (lisp::quote lisp::bit-not) 22 513) (system::mfsfun (lisp::quote lisp::vector-push) 23 2) (system::mfvfun (lisp::quote lisp::vector-push-extend) 24 770) (system::mfsfun (lisp::quote lisp::vector-pop) 25 1) (system::mfvfun-key (lisp::quote lisp::adjust-array) 26 16386 27)))) |
9 |
) |
) |