/[gcl]/gcl/pcl/pcl_cache.data
ViewVC logotype

Diff of /gcl/pcl/pcl_cache.data

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Wed Feb 26 22:21:38 2003 UTC revision 1.1.6.1 by camm, Tue Sep 23 18:39:20 2003 UTC
# Line 9  Line 9 
9            not actually keep PCL from running, but it may degrade cache~@            not actually keep PCL from running, but it may degrade cache~@
10            performance.~@            performance.~@
11            You may want to consider changing the value of the constant~@            You may want to consider changing the value of the constant~@
12            WRAPPER-CACHE-NUMBER-ADDS-OK."))) (system::*make-constant (lisp::quote pcl::wrapper-layout) (lisp::quote (lisp::number lisp::number lisp::number lisp::number lisp::number lisp::number lisp::number lisp::number pcl::state pcl::instance-slots-layout pcl::class-slots lisp::class pcl::no-of-instance-slots))) (system::setvv 32 pcl::wrapper-layout) (system::mfsfun (lisp::quote pcl::wrapper-field) 17 1) (system::mfsfun (lisp::quote pcl::next-wrapper-field) 18 1) (system::mm (lisp::quote pcl::first-wrapper-cache-number-index) 19) (system::mm (lisp::quote pcl::next-wrapper-cache-number-index) 20) (system::mm (lisp::quote pcl::wrapper-cache-number-vector) 21) (system::mm (lisp::quote pcl::cache-number-vector-ref) 22) (system::mm (lisp::quote pcl::wrapper-ref) 23) (system::mm (lisp::quote pcl::wrapper-state) 24) (system::mm (lisp::quote pcl::wrapper-instance-slots-layout) 25) (system::mm (lisp::quote pcl::wrapper-class-slots) 26) (system::mm (lisp::quote pcl::wrapper-class) 27) (system::mm (lisp::quote pcl::wrapper-no-of-instance-slots) 28) (system::mm (lisp::quote pcl::make-wrapper-internal) 29) (system::mfvfun (lisp::quote pcl::make-wrapper) 30 513) (system::mm (lisp::quote pcl::wrapper-cache-number-vector-ref) 31) (system::mm (lisp::quote pcl::class-no-of-instance-slots) 32) (system::mm (lisp::quote pcl::wrapper-class*) 33) (system::mm (lisp::quote pcl::invalid-wrapper-p) 34) (system::*make-special (lisp::quote pcl::*previous-nwrappers*)) (lisp::or (lisp::boundp (lisp::quote pcl::*previous-nwrappers*)) (lisp::setq pcl::*previous-nwrappers* (lisp::make-hash-table))) (system::mfsfun (lisp::quote pcl::invalidate-wrapper) 35 3) (system::mfsfun (lisp::quote pcl::check-wrapper-validity) 36 1) (system::mm (lisp::quote pcl::check-wrapper-validity1) 37) (system::*make-special (lisp::quote pcl::*free-caches*)) (lisp::or (lisp::boundp (lisp::quote pcl::*free-caches*)) (lisp::setq pcl::*free-caches* lisp::nil)) (system::mfsfun (lisp::quote pcl::get-cache) 38 262148) (system::mfvfun (lisp::quote pcl::get-cache-from-cache) 39 770) (system::mfsfun (lisp::quote pcl::copy-cache) 40 1) (system::mfsfun (lisp::quote pcl::free-cache) 41 1) (system::mfsfun (lisp::quote pcl::compute-line-size) 42 1) (system::mf (lisp::quote pcl::compute-cache-parameters) 43) (system::mfsfun (lisp::quote pcl::compute-primary-cache-location) 44 20739) (system::mfvfun (lisp::quote pcl::compute-primary-cache-location-from-location) 45 770) (system::mfsfun (lisp::quote pcl::raise-metatype) 46 2) (system::putprop (lisp::quote pcl::with-dfun-wrappers) (lisp::quote 3) #2#) (system::mm (lisp::quote pcl::with-dfun-wrappers) 47) (system::*make-special (lisp::quote pcl::*dfun-arg-symbols*)) (lisp::or (lisp::boundp (lisp::quote pcl::*dfun-arg-symbols*)) (lisp::setq pcl::*dfun-arg-symbols* (lisp::quote (pcl::.arg0. pcl::.arg1. pcl::.arg2. pcl::.arg3.)))) (system::mfsfun (lisp::quote pcl::dfun-arg-symbol) 48 1) (system::*make-special (lisp::quote pcl::*slot-vector-symbols*)) (lisp::or (lisp::boundp (lisp::quote pcl::*slot-vector-symbols*)) (lisp::setq pcl::*slot-vector-symbols* (lisp::quote (pcl::.slots0. pcl::.slots1. pcl::.slots2. pcl::.slots3.)))) (system::mfsfun (lisp::quote pcl::slot-vector-symbol) 49 1) (system::mfsfun (lisp::quote pcl::make-dfun-lambda-list) 50 2) (system::mfsfun (lisp::quote pcl::make-dlap-lambda-list) 51 2) (system::mfvfun (lisp::quote pcl::make-emf-call) 52 1027) (system::mfsfun (lisp::quote pcl::make-dfun-call) 53 3) (system::mfsfun (lisp::quote pcl::make-dfun-arg-list) 54 2) (system::mfsfun (lisp::quote pcl::make-fast-method-call-lambda-list) 55 2) (system::putprop (lisp::quote pcl::fin-lambda-fn) (lisp::quote 1) #2#) (system::mm (lisp::quote pcl::fin-lambda-fn) 56) (system::mfsfun (lisp::quote pcl::make-dispatch-lambda) 57 4) (system::*make-special (lisp::quote pcl::*cache*)) (lisp::or (lisp::boundp (lisp::quote pcl::*cache*)) (lisp::setq pcl::*cache* lisp::nil)) (system::*make-constant (lisp::quote pcl::*local-cache-functions*) (lisp::quote ((pcl::cache lisp::nil pcl::.cache.) (pcl::nkeys lisp::nil (pcl::cache-nkeys pcl::.cache.)) (pcl::line-size lisp::nil (pcl::cache-line-size pcl::.cache.)) (lisp::vector lisp::nil (pcl::cache-vector pcl::.cache.)) (pcl::valuep lisp::nil (pcl::cache-valuep pcl::.cache.)) (pcl::nlines lisp::nil (pcl::cache-nlines pcl::.cache.)) (pcl::max-location lisp::nil (pcl::cache-max-location pcl::.cache.)) (pcl::limit-fn lisp::nil (pcl::cache-limit-fn pcl::.cache.)) (pcl::size lisp::nil (pcl::cache-size pcl::.cache.)) (pcl::mask lisp::nil (pcl::cache-mask pcl::.cache.)) (pcl::field lisp::nil (pcl::cache-field pcl::.cache.)) (pcl::overflow lisp::nil (pcl::cache-overflow pcl::.cache.)) (pcl::line-reserved-p (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::and (lisp::= (pcl::nkeys) 1) (lisp::= pcl::line 0))) (pcl::location-reserved-p (pcl::location) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::location)) (lisp::and (lisp::= (pcl::nkeys) 1) (lisp::= pcl::location 0))) (pcl::line-location (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::when (pcl::line-reserved-p pcl::line) (lisp::error "line is reserved")) (lisp::if (lisp::= (pcl::nkeys) 1) (lisp::the pcl::non-negative-fixnum (lisp::* pcl::line (pcl::line-size))) (lisp::the pcl::non-negative-fixnum (lisp::1+ (lisp::the pcl::non-negative-fixnum (lisp::* pcl::line (pcl::line-size))))))) (pcl::location-line (pcl::location) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::location)) (lisp::if (lisp::= (pcl::nkeys) 1) (lisp::floor pcl::location (pcl::line-size)) (lisp::floor (lisp::the pcl::non-negative-fixnum (lisp::1- pcl::location)) (pcl::line-size)))) (pcl::line-wrappers (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::when (pcl::line-reserved-p pcl::line) (lisp::error "Line is reserved.")) (pcl::location-wrappers (pcl::line-location pcl::line))) (pcl::location-wrappers (pcl::location) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::location)) (lisp::if (lisp::= (pcl::nkeys) 1) (pcl::cache-vector-ref (lisp::vector) pcl::location) (lisp::let ((lisp::list (lisp::make-list (pcl::nkeys))) (lisp::vector (lisp::vector))) (lisp::declare (lisp::simple-vector lisp::vector)) (pcl::dotimes (pcl::i (pcl::nkeys) lisp::list) (lisp::setf (lisp::nth pcl::i lisp::list) (pcl::cache-vector-ref lisp::vector (lisp::+ pcl::location pcl::i))))))) (pcl::line-matches-wrappers-p (pcl::line pcl::wrappers) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::and (lisp::not (pcl::line-reserved-p pcl::line)) (pcl::location-matches-wrappers-p (pcl::line-location pcl::line) pcl::wrappers))) (pcl::location-matches-wrappers-p (pcl::loc pcl::wrappers) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::loc)) (lisp::let ((pcl::cache-vector (lisp::vector))) (lisp::declare (lisp::simple-vector pcl::cache-vector)) (lisp::if (lisp::= (pcl::nkeys) 1) (lisp::eq pcl::wrappers (pcl::cache-vector-ref pcl::cache-vector pcl::loc)) (pcl::dotimes (pcl::i (pcl::nkeys) lisp::t) (lisp::unless (lisp::eq (lisp::pop pcl::wrappers) (pcl::cache-vector-ref pcl::cache-vector (lisp::+ pcl::loc pcl::i))) (lisp::return lisp::nil)))))) (pcl::line-value (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::when (pcl::line-reserved-p pcl::line) (lisp::error "Line is reserved.")) (pcl::location-value (pcl::line-location pcl::line))) (pcl::location-value (pcl::loc) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::loc)) (lisp::and (pcl::valuep) (pcl::cache-vector-ref (lisp::vector) (lisp::+ pcl::loc (pcl::nkeys))))) (pcl::line-full-p (pcl::line) (lisp::when (pcl::line-reserved-p pcl::line) (lisp::error "Line is reserved.")) (lisp::not (lisp::null (pcl::cache-vector-ref (lisp::vector) (pcl::line-location pcl::line))))) (pcl::line-valid-p (pcl::line pcl::wrappers) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::when (pcl::line-reserved-p pcl::line) (lisp::error "Line is reserved.")) (pcl::location-valid-p (pcl::line-location pcl::line) pcl::wrappers)) (pcl::location-valid-p (pcl::loc pcl::wrappers) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::loc)) (lisp::let ((pcl::cache-vector (lisp::vector)) (pcl::wrappers-mismatch-p (lisp::null pcl::wrappers))) (lisp::declare (lisp::simple-vector pcl::cache-vector)) (pcl::dotimes (pcl::i (pcl::nkeys) pcl::wrappers-mismatch-p) (lisp::let ((pcl::wrapper (pcl::cache-vector-ref pcl::cache-vector (lisp::+ pcl::loc pcl::i)))) (lisp::when (lisp::or (lisp::null pcl::wrapper) (pcl::invalid-wrapper-p pcl::wrapper)) (lisp::return lisp::nil)) (lisp::unless (lisp::and pcl::wrappers (lisp::eq pcl::wrapper (lisp::if (lisp::consp pcl::wrappers) (lisp::pop pcl::wrappers) pcl::wrappers))) (lisp::setq pcl::wrappers-mismatch-p lisp::t)))))) (pcl::line-separation (pcl::line-1 pcl::line-2) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line-1 pcl::line-2)) (lisp::let ((pcl::diff (lisp::the lisp::fixnum (lisp::- pcl::line-2 pcl::line-1)))) (lisp::declare (lisp::fixnum pcl::diff)) (lisp::when (lisp::minusp pcl::diff) (lisp::setq pcl::diff (lisp::+ pcl::diff (pcl::nlines))) (lisp::when (pcl::line-reserved-p 0) (lisp::setq pcl::diff (lisp::1- pcl::diff)))) pcl::diff)) (pcl::next-line (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::if (lisp::= pcl::line (lisp::the lisp::fixnum (lisp::1- (pcl::nlines)))) (lisp::if (pcl::line-reserved-p 0) 1 0) (lisp::the pcl::non-negative-fixnum (lisp::1+ pcl::line)))) (pcl::next-location (pcl::loc) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::loc)) (lisp::if (lisp::= pcl::loc (pcl::max-location)) (lisp::if (lisp::= (pcl::nkeys) 1) (pcl::line-size) 1) (lisp::the pcl::non-negative-fixnum (lisp::+ pcl::loc (pcl::line-size))))) (pcl::line-primary (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (pcl::location-line (pcl::line-primary-location pcl::line))) (pcl::line-primary-location (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (pcl::compute-primary-cache-location-from-location (pcl::cache) (pcl::line-location pcl::line)))))) (system::setvv 150 pcl::*local-cache-functions*) (system::putprop (lisp::quote pcl::with-local-cache-functions) (lisp::quote 1) #2#) (system::mm (lisp::quote pcl::with-local-cache-functions) 58) (system::*make-special (lisp::quote pcl::*cache-expand-threshold*)) (lisp::or (lisp::boundp (lisp::quote pcl::*cache-expand-threshold*)) (lisp::setq pcl::*cache-expand-threshold* 1.25F0)) (system::mfvfun (lisp::quote pcl::fill-cache) 59 1027) (system::*make-special (lisp::quote pcl::*check-cache-p*)) (lisp::or (lisp::boundp (lisp::quote pcl::*check-cache-p*)) (lisp::setq pcl::*check-cache-p* lisp::nil)) (system::mm (lisp::quote pcl::maybe-check-cache) 60) (system::mfsfun (lisp::quote pcl::check-cache) 61 1) (system::mfvfun (lisp::quote pcl::probe-cache) 62 1026) (system::mfvfun (lisp::quote pcl::map-cache) 63 770) (system::mfsfun (lisp::quote pcl::cache-count) 64 257) (system::mfsfun (lisp::quote pcl::entry-in-cache-p) 65 3) (system::mfsfun (lisp::quote pcl::fill-cache-p) 66 4) (system::mfsfun (lisp::quote pcl::fill-cache-from-cache-p) 67 262148) (system::mfsfun (lisp::quote pcl::adjust-cache) 68 4) (system::mfsfun (lisp::quote pcl::expand-cache) 69 4) (system::mf (lisp::quote pcl::find-free-cache-line) 70) (system::mfsfun (lisp::quote pcl::default-limit-fn) 71 257) (system::*make-special (lisp::quote pcl::*empty-cache*)) (lisp::or (lisp::boundp (lisp::quote pcl::*empty-cache*)) (lisp::setq pcl::*empty-cache* (pcl::make-cache))) (lisp::block lisp::nil (lisp::let* ((#4=#:g3738 (lisp::quote ((1 513) (3 257) (3 129) (14 128) (6 65) (2 64) (7 33) (16 32) (16 17) (32 16) (64 9) (64 8) (6 5) (128 4) (35 2)))) (pcl::n-size (lisp::car #4#))) (lisp::tagbody #5=#:g3739 (lisp::if (lisp::endp #4#) (lisp::return (lisp::progn lisp::nil))) (lisp::tagbody (lisp::let ((pcl::n (lisp::car pcl::n-size)) (pcl::size (lisp::cadr pcl::n-size))) (lisp::mapcar (lisp::function pcl::free-cache-vector) (lisp::mapcar (lisp::function pcl::get-cache-vector) (lisp::make-list pcl::n :initial-element pcl::size))))) (lisp::setq #4# (lisp::cdr #4#) pcl::n-size (lisp::car #4#)) (lisp::go #5#)))) (system::mfsfun (lisp::quote pcl::caches-to-allocate) 72 0) (system::debug (lisp::quote pcl::|__si::MAKE-CACHE|) (lisp::quote (pcl::owner pcl::nkeys pcl::valuep pcl::nlines pcl::field pcl::limit-fn pcl::mask pcl::size pcl::line-size pcl::max-location lisp::vector pcl::overflow))) (system::debug (lisp::quote pcl::make-cache) (lisp::quote (pcl::limit-fn))) (system::debug (lisp::quote pcl::get-cache-vector) (lisp::quote (#:g2590))) (system::debug (lisp::quote pcl::show-free-cache-vectors) (lisp::quote (iterate::elements pcl::e pcl::size pcl::entry pcl::allocated pcl::head))) (system::debug (lisp::quote pcl::make-wrapper) (lisp::quote (pcl::no-of-instance-slots lisp::class))) (system::debug (lisp::quote pcl::invalidate-wrapper) (lisp::quote (#:g2670 pcl::previous))) (system::debug (lisp::quote pcl::check-wrapper-validity) (lisp::quote (pcl::owrapper pcl::state))) (system::debug (lisp::quote pcl::get-cache-from-cache) (lisp::quote (pcl::old-cache pcl::new-nlines pcl::new-field))) (system::debug (lisp::quote pcl::copy-cache) (lisp::quote (pcl::new-cache pcl::size pcl::old-vector pcl::new-vector))) (system::debug (lisp::quote pcl::compute-cache-parameters) (lisp::quote (pcl::nkeys pcl::valuep pcl::nlines-or-cache-vector))) (system::debug (lisp::quote pcl::compute-primary-cache-location) (lisp::quote (pcl::wrapper))) (system::debug (lisp::quote pcl::compute-primary-cache-location-from-location) (lisp::quote (pcl::to-cache pcl::from-location pcl::from-cache))) (system::debug (lisp::quote pcl::raise-metatype) (lisp::quote (pcl::new-specializer pcl::slot pcl::standard pcl::fsc lisp::structure pcl::built-in))) (system::debug (lisp::quote pcl::make-emf-call) (lisp::quote (pcl::metatypes pcl::applyp pcl::fn-variable pcl::emf-type))) (system::debug (lisp::quote pcl::fill-cache) (lisp::quote (pcl::cache pcl::wrappers pcl::value pcl::free-cache-p))) (system::debug (lisp::quote pcl::check-cache) (lisp::quote (pcl::home-loc pcl::home pcl::sep))) (system::debug (lisp::quote pcl::probe-cache) (lisp::quote (pcl::cache pcl::wrappers pcl::default pcl::limit-fn))) (system::debug (lisp::quote pcl::map-cache) (lisp::quote (lisp::function pcl::cache pcl::set-p))) (system::debug (lisp::quote pcl::entry-in-cache-p) (lisp::quote (#:g3183))) (system::debug (lisp::quote pcl::fill-cache-p) (lisp::quote (#:g3245 #:g3247 #:g3260))) (system::debug (lisp::quote pcl::fill-cache-from-cache-p) (lisp::quote (#:g3326 #:g3328 #:g3341))) (system::debug (lisp::quote pcl::adjust-cache) (lisp::quote (pcl::cache pcl::ncache #:g3489 pcl::wrappers+value))) (system::debug (lisp::quote pcl::expand-cache) (lisp::quote (pcl::cache pcl::.cache. pcl::ncache #:g3645 pcl::wrappers+value))) (system::debug (lisp::quote pcl::find-free-cache-line) (lisp::quote (pcl::primary pcl::cache pcl::wrappers))) (system::debug (lisp::quote pcl::caches-to-allocate) (lisp::quote (lisp::nil pcl::l))))))            WRAPPER-CACHE-NUMBER-ADDS-OK."))) (system::*make-constant (lisp::quote pcl::wrapper-layout) (lisp::quote (lisp::number lisp::number lisp::number lisp::number lisp::number lisp::number lisp::number lisp::number pcl::state pcl::instance-slots-layout pcl::class-slots lisp::class pcl::no-of-instance-slots))) (system::setvv 32 pcl::wrapper-layout) (system::mfsfun (lisp::quote pcl::wrapper-field) 17 1) (system::mfsfun (lisp::quote pcl::next-wrapper-field) 18 1) (system::mm (lisp::quote pcl::first-wrapper-cache-number-index) 19) (system::mm (lisp::quote pcl::next-wrapper-cache-number-index) 20) (system::mm (lisp::quote pcl::wrapper-cache-number-vector) 21) (system::mm (lisp::quote pcl::cache-number-vector-ref) 22) (system::mm (lisp::quote pcl::wrapper-ref) 23) (system::mm (lisp::quote pcl::wrapper-state) 24) (system::mm (lisp::quote pcl::wrapper-instance-slots-layout) 25) (system::mm (lisp::quote pcl::wrapper-class-slots) 26) (system::mm (lisp::quote pcl::wrapper-class) 27) (system::mm (lisp::quote pcl::wrapper-no-of-instance-slots) 28) (system::mm (lisp::quote pcl::make-wrapper-internal) 29) (system::mfvfun (lisp::quote pcl::make-wrapper) 30 513) (system::mm (lisp::quote pcl::wrapper-cache-number-vector-ref) 31) (system::mm (lisp::quote pcl::class-no-of-instance-slots) 32) (system::mm (lisp::quote pcl::wrapper-class*) 33) (system::mm (lisp::quote pcl::invalid-wrapper-p) 34) (system::*make-special (lisp::quote pcl::*previous-nwrappers*)) (lisp::or (lisp::boundp (lisp::quote pcl::*previous-nwrappers*)) (lisp::setq pcl::*previous-nwrappers* (lisp::make-hash-table))) (system::mfsfun (lisp::quote pcl::invalidate-wrapper) 35 3) (system::mfsfun (lisp::quote pcl::check-wrapper-validity) 36 1) (system::mm (lisp::quote pcl::check-wrapper-validity1) 37) (system::*make-special (lisp::quote pcl::*free-caches*)) (lisp::or (lisp::boundp (lisp::quote pcl::*free-caches*)) (lisp::setq pcl::*free-caches* lisp::nil)) (system::mfsfun (lisp::quote pcl::get-cache) 38 262148) (system::mfvfun (lisp::quote pcl::get-cache-from-cache) 39 770) (system::mfsfun (lisp::quote pcl::copy-cache) 40 1) (system::mfsfun (lisp::quote pcl::free-cache) 41 1) (system::mfsfun (lisp::quote pcl::compute-line-size) 42 1) (system::mf (lisp::quote pcl::compute-cache-parameters) 43) (system::mfsfun (lisp::quote pcl::compute-primary-cache-location) 44 20739) (system::mfvfun (lisp::quote pcl::compute-primary-cache-location-from-location) 45 770) (system::mfsfun (lisp::quote pcl::raise-metatype) 46 2) (system::putprop (lisp::quote pcl::with-dfun-wrappers) (lisp::quote 3) #2#) (system::mm (lisp::quote pcl::with-dfun-wrappers) 47) (system::*make-special (lisp::quote pcl::*dfun-arg-symbols*)) (lisp::or (lisp::boundp (lisp::quote pcl::*dfun-arg-symbols*)) (lisp::setq pcl::*dfun-arg-symbols* (lisp::quote (pcl::.arg0. pcl::.arg1. pcl::.arg2. pcl::.arg3.)))) (system::mfsfun (lisp::quote pcl::dfun-arg-symbol) 48 1) (system::*make-special (lisp::quote pcl::*slot-vector-symbols*)) (lisp::or (lisp::boundp (lisp::quote pcl::*slot-vector-symbols*)) (lisp::setq pcl::*slot-vector-symbols* (lisp::quote (pcl::.slots0. pcl::.slots1. pcl::.slots2. pcl::.slots3.)))) (system::mfsfun (lisp::quote pcl::slot-vector-symbol) 49 1) (system::mfsfun (lisp::quote pcl::make-dfun-lambda-list) 50 2) (system::mfsfun (lisp::quote pcl::make-dlap-lambda-list) 51 2) (system::mfvfun (lisp::quote pcl::make-emf-call) 52 1027) (system::mfsfun (lisp::quote pcl::make-dfun-call) 53 3) (system::mfsfun (lisp::quote pcl::make-dfun-arg-list) 54 2) (system::mfsfun (lisp::quote pcl::make-fast-method-call-lambda-list) 55 2) (system::putprop (lisp::quote pcl::fin-lambda-fn) (lisp::quote 1) #2#) (system::mm (lisp::quote pcl::fin-lambda-fn) 56) (system::mfsfun (lisp::quote pcl::make-dispatch-lambda) 57 4) (system::*make-special (lisp::quote pcl::*cache*)) (lisp::or (lisp::boundp (lisp::quote pcl::*cache*)) (lisp::setq pcl::*cache* lisp::nil)) (system::*make-constant (lisp::quote pcl::*local-cache-functions*) (lisp::quote ((pcl::cache lisp::nil pcl::.cache.) (pcl::nkeys lisp::nil (pcl::cache-nkeys pcl::.cache.)) (pcl::line-size lisp::nil (pcl::cache-line-size pcl::.cache.)) (lisp::vector lisp::nil (pcl::cache-vector pcl::.cache.)) (pcl::valuep lisp::nil (pcl::cache-valuep pcl::.cache.)) (pcl::nlines lisp::nil (pcl::cache-nlines pcl::.cache.)) (pcl::max-location lisp::nil (pcl::cache-max-location pcl::.cache.)) (pcl::limit-fn lisp::nil (pcl::cache-limit-fn pcl::.cache.)) (pcl::size lisp::nil (pcl::cache-size pcl::.cache.)) (pcl::mask lisp::nil (pcl::cache-mask pcl::.cache.)) (pcl::field lisp::nil (pcl::cache-field pcl::.cache.)) (pcl::overflow lisp::nil (pcl::cache-overflow pcl::.cache.)) (pcl::line-reserved-p (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::and (lisp::= (pcl::nkeys) 1) (lisp::= pcl::line 0))) (pcl::location-reserved-p (pcl::location) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::location)) (lisp::and (lisp::= (pcl::nkeys) 1) (lisp::= pcl::location 0))) (pcl::line-location (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::when (pcl::line-reserved-p pcl::line) (lisp::error "line is reserved")) (lisp::if (lisp::= (pcl::nkeys) 1) (lisp::the pcl::non-negative-fixnum (lisp::* pcl::line (pcl::line-size))) (lisp::the pcl::non-negative-fixnum (lisp::1+ (lisp::the pcl::non-negative-fixnum (lisp::* pcl::line (pcl::line-size))))))) (pcl::location-line (pcl::location) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::location)) (lisp::if (lisp::= (pcl::nkeys) 1) (lisp::floor pcl::location (pcl::line-size)) (lisp::floor (lisp::the pcl::non-negative-fixnum (lisp::1- pcl::location)) (pcl::line-size)))) (pcl::line-wrappers (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::when (pcl::line-reserved-p pcl::line) (lisp::error "Line is reserved.")) (pcl::location-wrappers (pcl::line-location pcl::line))) (pcl::location-wrappers (pcl::location) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::location)) (lisp::if (lisp::= (pcl::nkeys) 1) (pcl::cache-vector-ref (lisp::vector) pcl::location) (lisp::let ((lisp::list (lisp::make-list (pcl::nkeys))) (lisp::vector (lisp::vector))) (lisp::declare (lisp::simple-vector lisp::vector)) (lisp::dotimes (pcl::i (pcl::nkeys) lisp::list) (lisp::setf (lisp::nth pcl::i lisp::list) (pcl::cache-vector-ref lisp::vector (lisp::+ pcl::location pcl::i))))))) (pcl::line-matches-wrappers-p (pcl::line pcl::wrappers) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::and (lisp::not (pcl::line-reserved-p pcl::line)) (pcl::location-matches-wrappers-p (pcl::line-location pcl::line) pcl::wrappers))) (pcl::location-matches-wrappers-p (pcl::loc pcl::wrappers) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::loc)) (lisp::let ((pcl::cache-vector (lisp::vector))) (lisp::declare (lisp::simple-vector pcl::cache-vector)) (lisp::if (lisp::= (pcl::nkeys) 1) (lisp::eq pcl::wrappers (pcl::cache-vector-ref pcl::cache-vector pcl::loc)) (lisp::dotimes (pcl::i (pcl::nkeys) lisp::t) (lisp::unless (lisp::eq (lisp::pop pcl::wrappers) (pcl::cache-vector-ref pcl::cache-vector (lisp::+ pcl::loc pcl::i))) (lisp::return lisp::nil)))))) (pcl::line-value (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::when (pcl::line-reserved-p pcl::line) (lisp::error "Line is reserved.")) (pcl::location-value (pcl::line-location pcl::line))) (pcl::location-value (pcl::loc) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::loc)) (lisp::and (pcl::valuep) (pcl::cache-vector-ref (lisp::vector) (lisp::+ pcl::loc (pcl::nkeys))))) (pcl::line-full-p (pcl::line) (lisp::when (pcl::line-reserved-p pcl::line) (lisp::error "Line is reserved.")) (lisp::not (lisp::null (pcl::cache-vector-ref (lisp::vector) (pcl::line-location pcl::line))))) (pcl::line-valid-p (pcl::line pcl::wrappers) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::when (pcl::line-reserved-p pcl::line) (lisp::error "Line is reserved.")) (pcl::location-valid-p (pcl::line-location pcl::line) pcl::wrappers)) (pcl::location-valid-p (pcl::loc pcl::wrappers) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::loc)) (lisp::let ((pcl::cache-vector (lisp::vector)) (pcl::wrappers-mismatch-p (lisp::null pcl::wrappers))) (lisp::declare (lisp::simple-vector pcl::cache-vector)) (lisp::dotimes (pcl::i (pcl::nkeys) pcl::wrappers-mismatch-p) (lisp::let ((pcl::wrapper (pcl::cache-vector-ref pcl::cache-vector (lisp::+ pcl::loc pcl::i)))) (lisp::when (lisp::or (lisp::null pcl::wrapper) (pcl::invalid-wrapper-p pcl::wrapper)) (lisp::return lisp::nil)) (lisp::unless (lisp::and pcl::wrappers (lisp::eq pcl::wrapper (lisp::if (lisp::consp pcl::wrappers) (lisp::pop pcl::wrappers) pcl::wrappers))) (lisp::setq pcl::wrappers-mismatch-p lisp::t)))))) (pcl::line-separation (pcl::line-1 pcl::line-2) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line-1 pcl::line-2)) (lisp::let ((pcl::diff (lisp::the lisp::fixnum (lisp::- pcl::line-2 pcl::line-1)))) (lisp::declare (lisp::fixnum pcl::diff)) (lisp::when (lisp::minusp pcl::diff) (lisp::setq pcl::diff (lisp::+ pcl::diff (pcl::nlines))) (lisp::when (pcl::line-reserved-p 0) (lisp::setq pcl::diff (lisp::1- pcl::diff)))) pcl::diff)) (pcl::next-line (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (lisp::if (lisp::= pcl::line (lisp::the lisp::fixnum (lisp::1- (pcl::nlines)))) (lisp::if (pcl::line-reserved-p 0) 1 0) (lisp::the pcl::non-negative-fixnum (lisp::1+ pcl::line)))) (pcl::next-location (pcl::loc) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::loc)) (lisp::if (lisp::= pcl::loc (pcl::max-location)) (lisp::if (lisp::= (pcl::nkeys) 1) (pcl::line-size) 1) (lisp::the pcl::non-negative-fixnum (lisp::+ pcl::loc (pcl::line-size))))) (pcl::line-primary (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (pcl::location-line (pcl::line-primary-location pcl::line))) (pcl::line-primary-location (pcl::line) (lisp::declare (lisp::type pcl::non-negative-fixnum pcl::line)) (pcl::compute-primary-cache-location-from-location (pcl::cache) (pcl::line-location pcl::line)))))) (system::setvv 150 pcl::*local-cache-functions*) (system::putprop (lisp::quote pcl::with-local-cache-functions) (lisp::quote 1) #2#) (system::mm (lisp::quote pcl::with-local-cache-functions) 58) (system::*make-special (lisp::quote pcl::*cache-expand-threshold*)) (lisp::or (lisp::boundp (lisp::quote pcl::*cache-expand-threshold*)) (lisp::setq pcl::*cache-expand-threshold* 1.25F0)) (system::mfvfun (lisp::quote pcl::fill-cache) 59 1027) (system::*make-special (lisp::quote pcl::*check-cache-p*)) (lisp::or (lisp::boundp (lisp::quote pcl::*check-cache-p*)) (lisp::setq pcl::*check-cache-p* lisp::nil)) (system::mm (lisp::quote pcl::maybe-check-cache) 60) (system::mfsfun (lisp::quote pcl::check-cache) 61 1) (system::mfvfun (lisp::quote pcl::probe-cache) 62 1026) (system::mfvfun (lisp::quote pcl::map-cache) 63 770) (system::mfsfun (lisp::quote pcl::cache-count) 64 257) (system::mfsfun (lisp::quote pcl::entry-in-cache-p) 65 3) (system::mfsfun (lisp::quote pcl::fill-cache-p) 66 4) (system::mfsfun (lisp::quote pcl::fill-cache-from-cache-p) 67 262148) (system::mfsfun (lisp::quote pcl::adjust-cache) 68 4) (system::mfsfun (lisp::quote pcl::expand-cache) 69 4) (system::mf (lisp::quote pcl::find-free-cache-line) 70) (system::mfsfun (lisp::quote pcl::default-limit-fn) 71 257) (system::*make-special (lisp::quote pcl::*empty-cache*)) (lisp::or (lisp::boundp (lisp::quote pcl::*empty-cache*)) (lisp::setq pcl::*empty-cache* (pcl::make-cache))) (lisp::block lisp::nil (lisp::let* ((#4=#:g3738 (lisp::quote ((1 513) (3 257) (3 129) (14 128) (6 65) (2 64) (7 33) (16 32) (16 17) (32 16) (64 9) (64 8) (6 5) (128 4) (35 2)))) (pcl::n-size (lisp::car #4#))) (lisp::tagbody #5=#:g3739 (lisp::if (lisp::endp #4#) (lisp::return (lisp::progn lisp::nil))) (lisp::tagbody (lisp::let ((pcl::n (lisp::car pcl::n-size)) (pcl::size (lisp::cadr pcl::n-size))) (lisp::mapcar (lisp::function pcl::free-cache-vector) (lisp::mapcar (lisp::function pcl::get-cache-vector) (lisp::make-list pcl::n :initial-element pcl::size))))) (lisp::setq #4# (lisp::cdr #4#) pcl::n-size (lisp::car #4#)) (lisp::go #5#)))) (system::mfsfun (lisp::quote pcl::caches-to-allocate) 72 0) (system::debug (lisp::quote pcl::|__si::MAKE-CACHE|) (lisp::quote (pcl::owner pcl::nkeys pcl::valuep pcl::nlines pcl::field pcl::limit-fn pcl::mask pcl::size pcl::line-size pcl::max-location lisp::vector pcl::overflow))) (system::debug (lisp::quote pcl::make-cache) (lisp::quote (pcl::limit-fn))) (system::debug (lisp::quote pcl::get-cache-vector) (lisp::quote (#:g2590))) (system::debug (lisp::quote pcl::show-free-cache-vectors) (lisp::quote (iterate::elements pcl::e pcl::size pcl::entry pcl::allocated pcl::head))) (system::debug (lisp::quote pcl::make-wrapper) (lisp::quote (pcl::no-of-instance-slots lisp::class))) (system::debug (lisp::quote pcl::invalidate-wrapper) (lisp::quote (#:g2670 pcl::previous))) (system::debug (lisp::quote pcl::check-wrapper-validity) (lisp::quote (pcl::owrapper pcl::state))) (system::debug (lisp::quote pcl::get-cache-from-cache) (lisp::quote (pcl::old-cache pcl::new-nlines pcl::new-field))) (system::debug (lisp::quote pcl::copy-cache) (lisp::quote (pcl::new-cache pcl::size pcl::old-vector pcl::new-vector))) (system::debug (lisp::quote pcl::compute-cache-parameters) (lisp::quote (pcl::nkeys pcl::valuep pcl::nlines-or-cache-vector))) (system::debug (lisp::quote pcl::compute-primary-cache-location) (lisp::quote (pcl::wrapper))) (system::debug (lisp::quote pcl::compute-primary-cache-location-from-location) (lisp::quote (pcl::to-cache pcl::from-location pcl::from-cache))) (system::debug (lisp::quote pcl::raise-metatype) (lisp::quote (pcl::new-specializer pcl::slot pcl::standard pcl::fsc lisp::structure pcl::built-in))) (system::debug (lisp::quote pcl::make-emf-call) (lisp::quote (pcl::metatypes pcl::applyp pcl::fn-variable pcl::emf-type))) (system::debug (lisp::quote pcl::fill-cache) (lisp::quote (pcl::cache pcl::wrappers pcl::value pcl::free-cache-p))) (system::debug (lisp::quote pcl::check-cache) (lisp::quote (pcl::home-loc pcl::home pcl::sep))) (system::debug (lisp::quote pcl::probe-cache) (lisp::quote (pcl::cache pcl::wrappers pcl::default pcl::limit-fn))) (system::debug (lisp::quote pcl::map-cache) (lisp::quote (lisp::function pcl::cache pcl::set-p))) (system::debug (lisp::quote pcl::entry-in-cache-p) (lisp::quote (#:g3183))) (system::debug (lisp::quote pcl::fill-cache-p) (lisp::quote (#:g3245 #:g3247 #:g3260))) (system::debug (lisp::quote pcl::fill-cache-from-cache-p) (lisp::quote (#:g3326 #:g3328 #:g3341))) (system::debug (lisp::quote pcl::adjust-cache) (lisp::quote (pcl::cache pcl::ncache #:g3489 pcl::wrappers+value))) (system::debug (lisp::quote pcl::expand-cache) (lisp::quote (pcl::cache pcl::.cache. pcl::ncache #:g3645 pcl::wrappers+value))) (system::debug (lisp::quote pcl::find-free-cache-line) (lisp::quote (pcl::primary pcl::cache pcl::wrappers))) (system::debug (lisp::quote pcl::caches-to-allocate) (lisp::quote (lisp::nil pcl::l))))))
13  )  )

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26