       
#(#! 
(lisp::in-package (lisp::quote user::compiler))
#(lisp::character lisp::vector lisp::array lisp::long-float compiler::boolean lisp::string lisp::bit-vector lisp::* -2147483648 2147483647 lisp::fixnum lisp::integer lisp::short-float lisp::stream (lisp::vector lisp::t) (lisp::vector lisp::t) (lisp::vector lisp::fixnum) (lisp::vector lisp::fixnum) (lisp::vector lisp::short-float) (lisp::vector lisp::short-float) (lisp::vector lisp::long-float) (lisp::vector lisp::long-float) (lisp::array lisp::t) (lisp::array lisp::t) (lisp::array lisp::string-char) (lisp::array lisp::string-char) (lisp::array lisp::bit) (lisp::array lisp::bit) (lisp::array lisp::fixnum) (lisp::array lisp::fixnum) (lisp::array lisp::short-float) (lisp::array lisp::short-float) (lisp::array lisp::long-float) (lisp::array lisp::long-float) lisp::values lisp::satisfies compiler::type-filter lisp::object lisp::string-char lisp::bit (lisp::fixnum lisp::float lisp::short-float lisp::long-float) (lisp::short-float lisp::long-float) (compiler::fixnum-float lisp::float) compiler::info "The type of the form ~s is not ~s." "The type of the form ~s is not ~s." "The default value of NIL is not FIXNUM." "The default value of NIL is not CHARACTER." "The default value of NIL is not LONG-FLOAT." "The default value of NIL is not SHORT-FLOAT." "The default value of NIL is not INTEGER" lisp::standard-char lisp::single-float lisp::double-float lisp::simple-string lisp::simple-bit-vector system::normalize-type lisp::simple-array system::best-array-element-type system::sub-interval-p lisp::subtypep compiler::fixnum-float lisp::float lisp::signed-char lisp::unsigned-char lisp::signed-short lisp::unsigned-short compiler::type-and compiler::copy-info compiler::cmpwarn compiler::c1nil (system::%init . #((system::mfsfun (lisp::quote compiler::object-type) 0 1) (system::mfsfun (lisp::quote compiler::type-filter) 1 1) (system::mfsfun (lisp::quote compiler::type-and) 2 2) (system::mfsfun (lisp::quote compiler::type>=) 3 2) (system::mfsfun (lisp::quote compiler::reset-info-type) 4 1) (system::mfsfun (lisp::quote compiler::and-form-type) 5 3) (system::mfsfun (lisp::quote compiler::check-form-type) 6 3) (system::mfsfun (lisp::quote compiler::default-init) 7 1))))
)
