       
#(#! 
(lisp::in-package (lisp::quote user::lisp))#! 
(lisp::export (lisp::quote (lisp::reduce lisp::fill lisp::replace lisp::remove lisp::remove-if lisp::remove-if-not lisp::delete lisp::delete-if lisp::delete-if-not lisp::count lisp::count-if lisp::count-if-not lisp::substitute lisp::substitute-if lisp::substitute-if-not lisp::nsubstitute lisp::nsubstitute-if lisp::nsubstitute-if-not lisp::find lisp::find-if lisp::find-if-not lisp::position lisp::position-if lisp::position-if-not lisp::remove-duplicates lisp::delete-duplicates lisp::mismatch lisp::search lisp::with-hash-table-iterator lisp::sort lisp::stable-sort lisp::merge lisp::map-into)))#! 
(lisp::in-package (lisp::quote lisp::system))
#(lisp::list lisp::string lisp::bit-vector lisp::array "~S is not a sequence." "Fixnum expected." "START is greater than END." "both test and test not supplied" "bad sequence limit ~a" 2147483647 :from-end :test :test-not :start :end :count :key lisp::vector "ind" lisp::let lisp::macrolet (lisp::quote lisp::multiple-value-bind) (lisp::quote (system::more system::key system::val)) (lisp::quote system::next-hash-table-entry) lisp::quote (lisp::quote lisp::cond) (lisp::quote (lisp::>= (lisp::the lisp::fixnum system::more) 0)) (lisp::quote lisp::setq) (lisp::quote system::more) (lisp::quote (lisp::values lisp::t system::key system::val)) (lisp::quote (lisp::t (lisp::values lisp::nil lisp::nil lisp::nil))) system::bad-seq-limit :initial-value lisp::identity system::the-start system::the-end :end2 :start2 :end1 :start1 system::test-error system::call-test lisp::delete lisp::remove lisp::funcall system::internal-count lisp::make-sequence system::seqtype lisp::count lisp::substitute lisp::nsubstitute lisp::find lisp::position system::member1 lisp::delete-duplicates system::list-merge-sort system::quick-sort lisp::sort lisp::coerce lisp::array-has-fill-pointer-p lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil (system::%init . #((lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (lisp::proclaim (lisp::quote (lisp::function system::seqtype (lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::seqtype) 0 1) (lisp::proclaim (lisp::quote (lisp::function system::call-test (lisp::t lisp::t lisp::t lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::call-test) 1 4) (lisp::proclaim (lisp::quote (lisp::function system::check-seq-start-end (lisp::t lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::check-seq-start-end) 2 2) (lisp::proclaim (lisp::quote (lisp::function system::test-error lisp::nil lisp::t))) (system::mfsfun (lisp::quote system::test-error) 3 0) (system::mfvfun (lisp::quote system::bad-seq-limit) 4 513) (system::mfsfun (lisp::quote system::the-end) 5 258) (system::mfsfun (lisp::quote system::the-start) 6 257) (system::mf (lisp::quote lisp::reduce) 7) (system::mfvfun-key (lisp::quote lisp::fill) 8 1538 9) (system::mfvfun-key (lisp::quote lisp::replace) 10 2562 11) (system::mfvfun-key (lisp::quote lisp::remove) 12 4098 13) (system::mfvfun-key (lisp::quote lisp::remove-if) 14 3074 15) (system::mfvfun-key (lisp::quote lisp::remove-if-not) 16 3074 17) (system::mfvfun-key (lisp::quote lisp::delete) 18 4098 19) (system::mfvfun-key (lisp::quote lisp::delete-if) 20 3074 21) (system::mfvfun-key (lisp::quote lisp::delete-if-not) 22 3074 23) (system::mfvfun-key (lisp::quote lisp::count) 24 3586 25) (system::mfvfun-key (lisp::quote lisp::count-if) 26 2562 27) (system::mfvfun-key (lisp::quote lisp::count-if-not) 28 2562 29) (system::mfvfun-key (lisp::quote system::internal-count) 30 4098 31) (system::mfvfun-key (lisp::quote system::internal-count-if) 32 3074 33) (system::mfvfun-key (lisp::quote system::internal-count-if-not) 34 3074 35) (system::mfvfun-key (lisp::quote lisp::substitute) 36 4355 37) (system::mfvfun-key (lisp::quote lisp::substitute-if) 38 3331 39) (system::mfvfun-key (lisp::quote lisp::substitute-if-not) 40 3331 41) (system::mfvfun-key (lisp::quote lisp::nsubstitute) 42 4355 43) (system::mfvfun-key (lisp::quote lisp::nsubstitute-if) 44 3331 45) (system::mfvfun-key (lisp::quote lisp::nsubstitute-if-not) 46 3331 47) (system::mfvfun-key (lisp::quote lisp::find) 48 3586 49) (system::mfvfun-key (lisp::quote lisp::find-if) 50 2562 51) (system::mfvfun-key (lisp::quote lisp::find-if-not) 52 2562 53) (system::mfvfun-key (lisp::quote lisp::position) 54 3586 55) (system::mfvfun-key (lisp::quote lisp::position-if) 56 2562 57) (system::mfvfun-key (lisp::quote lisp::position-if-not) 58 2562 59) (system::mfvfun-key (lisp::quote lisp::remove-duplicates) 60 3329 61) (system::mfvfun-key (lisp::quote lisp::delete-duplicates) 62 3329 63) (system::mfvfun-key (lisp::quote lisp::mismatch) 64 4610 65) (system::mfvfun-key (lisp::quote lisp::search) 66 4610 67) (system::mf (lisp::quote lisp::sort) 68) (system::mf (lisp::quote system::list-merge-sort) 69) (lisp::proclaim (lisp::quote (lisp::function system::quick-sort (lisp::t lisp::fixnum lisp::fixnum lisp::t lisp::t) lisp::t))) (system::mfsfun (lisp::quote system::quick-sort) 70 81925) (system::mf (lisp::quote lisp::stable-sort) 71) (system::mfvfun-key (lisp::quote lisp::merge) 72 1540 73) (system::mf (lisp::quote lisp::map-into) 74) (system::putprop (lisp::quote lisp::with-hash-table-iterator) (lisp::quote 1) (lisp::quote system::pretty-print-format)) (system::mm (lisp::quote lisp::with-hash-table-iterator) 75))))
)
