#(#! (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" :wrong-type-argument "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))) lisp::specific-error 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::subtypep 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 (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 16386 9) (system::mfvfun-key (lisp::quote lisp::replace) 10 16386 11) (system::mfvfun-key (lisp::quote lisp::remove) 12 16386 13) (system::mfvfun-key (lisp::quote lisp::remove-if) 14 16386 15) (system::mfvfun-key (lisp::quote lisp::remove-if-not) 16 16386 17) (system::mfvfun-key (lisp::quote lisp::delete) 18 16386 19) (system::mfvfun-key (lisp::quote lisp::delete-if) 20 16386 21) (system::mfvfun-key (lisp::quote lisp::delete-if-not) 22 16386 23) (system::mfvfun-key (lisp::quote lisp::count) 24 16386 25) (system::mfvfun-key (lisp::quote lisp::count-if) 26 16386 27) (system::mfvfun-key (lisp::quote lisp::count-if-not) 28 16386 29) (system::mfvfun-key (lisp::quote system::internal-count) 30 16386 31) (system::mfvfun-key (lisp::quote system::internal-count-if) 32 16386 33) (system::mfvfun-key (lisp::quote system::internal-count-if-not) 34 16386 35) (system::mfvfun-key (lisp::quote lisp::substitute) 36 16387 37) (system::mfvfun-key (lisp::quote lisp::substitute-if) 38 16387 39) (system::mfvfun-key (lisp::quote lisp::substitute-if-not) 40 16387 41) (system::mfvfun-key (lisp::quote lisp::nsubstitute) 42 16387 43) (system::mfvfun-key (lisp::quote lisp::nsubstitute-if) 44 16387 45) (system::mfvfun-key (lisp::quote lisp::nsubstitute-if-not) 46 16387 47) (system::mfvfun-key (lisp::quote lisp::find) 48 16386 49) (system::mfvfun-key (lisp::quote lisp::find-if) 50 16386 51) (system::mfvfun-key (lisp::quote lisp::find-if-not) 52 16386 53) (system::mfvfun-key (lisp::quote lisp::position) 54 16386 55) (system::mfvfun-key (lisp::quote lisp::position-if) 56 16386 57) (system::mfvfun-key (lisp::quote lisp::position-if-not) 58 16386 59) (system::mfvfun-key (lisp::quote lisp::remove-duplicates) 60 16385 61) (system::mfvfun-key (lisp::quote lisp::delete-duplicates) 62 16385 63) (system::mfvfun-key (lisp::quote lisp::mismatch) 64 16386 65) (system::mfvfun-key (lisp::quote lisp::search) 66 16386 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 16388 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)))) )