home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / seqlib.data < prev    next >
Encoding:
Text File  |  1994-05-10  |  4.8 KB  |  8 lines
  1.        
  2. #(#! 
  3. (lisp::in-package (lisp::quote user::lisp))#! 
  4. (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::sort lisp::stable-sort lisp::merge)))#! 
  5. (lisp::in-package (lisp::quote lisp::system))
  6. #(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 system::bad-seq-limit :initial-value system::the-start system::the-end :end2 :start2 :end1 :start1 lisp::identity 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::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 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 . #((system::warn-version 0) (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))))
  7. )
  8.