#(#! (lisp::in-package :pcl) #("~&DFUN constructor caching is ~A." pcl::*enable-dfun-constructor-caching* "enabled" "disabled" pcl::*dfun-constructors* "~&~S ~S" pcl::*raise-metatypes-to-class-p* (pcl::emit-checking pcl::emit-caching pcl::emit-in-checking-cache-p pcl::emit-constant-value) lisp::class pcl::+pcl+ pcl::checking pcl::caching pcl::constant-value pcl::default-method-only pcl::arg-info pcl::slot-value-using-class (lisp::setf pcl::slot-value-using-class) pcl::slot-boundp-using-class pcl::*precompiling-lap* lisp::progn pcl::precompile-dfun-constructor (lisp::load) pcl::load-precompiled-dfun-constructor lisp::quote pcl::dfun-info "#<" "~A" " " ">" pcl::no-methods pcl::initial pcl::initial-dispatch pcl::dispatch pcl::accessor-dfun-info pcl::accessor-dfun-info-accessor-type pcl::one-index-dfun-info pcl::one-index-dfun-info-index pcl::n-n pcl::one-class pcl::one-class-wrapper0 pcl::two-class pcl::two-class-wrapper1 pcl::one-index pcl::checking-function lisp::multiple-value-bind (pcl::dfun pcl::cache pcl::info) lisp::funcall pcl::update-dfun (pcl::dfun pcl::cache pcl::info) conditions::case-failure :name conditions::ecase :datum :expected-type (lisp::member . #0=(pcl::reader pcl::writer)) :possibilities #0# (lisp::member . #1=(pcl::reader pcl::writer)) #1# pcl::reader pcl::emit-one-class-reader pcl::emit-one-class-writer pcl::emit-two-class-reader pcl::emit-two-class-writer pcl::emit-one-index-readers pcl::emit-one-index-writers pcl::emit-n-n-readers pcl::emit-n-n-writers pcl::emit-default-only pcl::emit-checking :slot-name-lists lisp::nil pcl::std-instance pcl::*funcallable-instance-marker* "What kind of instance is this?" pcl::*sgf-methods-index* pcl::emit-caching lisp::nil (pcl::unknown) pcl::*boot-state* pcl::complete :constant-value pcl::emit-constant-value "~&Name ~S caching cost ~D dispatch cost ~D~%" pcl::*the-class-built-in-class* pcl::*built-in-typep-cost* pcl::*the-class-structure-class* pcl::*structure-typep-cost* pcl::*non-built-in-typep-cost* pcl::*cache-lookup-cost* pcl::*wrapper-of-cost* pcl::*secondary-dfun-call-cost* (pcl::dispatch pcl::initial-dispatch) pcl::cache-miss-values pcl::accessor lisp::when lisp::and lisp::not pcl::memq pcl::*dfun-miss-gfs-on-stack* lisp::let lisp::cons pcl::invoke-emf pcl::*lazy-dfun-compute-p* lisp::nil pcl::*sgf-arg-info-index* pcl::*early-p* lisp::nil lisp::nil lisp::nil pcl::name lisp::nil lisp::nil (lisp::member . #2=(pcl::reader pcl::writer)) #2# lisp::let* pcl::.free. lisp::assoc pcl::*free-hash-tables* lisp::if (lisp::cdr pcl::.free.) (lisp::pop (lisp::cdr pcl::.free.)) lisp::make-hash-table :test lisp::multiple-value-prog1 lisp::clrhash lisp::push (lisp::cdr pcl::.free.) pcl::with-hash-table lisp::eq lisp::nil pcl::*the-class-standard-reader-method* pcl::*the-class-standard-writer-method* pcl::writer pcl::*new-class* pcl::*the-class-t* (lisp::member . #3=(pcl::reader pcl::writer)) #3# lisp::nil (lisp::member . #4=(pcl::one-class pcl::two-class pcl::one-index pcl::n-n)) #4# lisp::nil (lisp::member . #5=(pcl::one-class pcl::two-class pcl::one-index pcl::n-n)) #5# pcl::fast-method-call pcl::method-call pcl::class-eq "The function ~S requires at least ~D arguments" pcl::*the-class-standard-object* pcl::*the-class-standard-method* lisp::nil pcl::*the-class-structure-object* pcl::*name->class->slotd-table* "This can't happen" lisp::nil lisp::nil lisp::nil pcl::specializer lisp::type lisp::nil pcl::*in-precompute-effective-methods-p* "~s cannot handle the second argument ~s" pcl::specializer-applicable-using-type-p lisp::eql "~s cannot handle the second argument ~s" pcl::braid pcl::*effective-method-table* pcl::all-applicable pcl::dfun-list pcl::cache pcl::*minimum-cache-size-to-list* :key pcl::dfun-count (pcl::one-class pcl::two-class pcl::default-method-only pcl::one-index pcl::n-n pcl::checking pcl::caching pcl::dispatch) "~&There are ~4d dfuns of type ~s" "~% ~S~%" pcl::gfs-of-type pcl::gf-arg-info pcl::generic-function-name pcl::make-top-level-form :cache pcl::printing-random-thing-internal :accessor-type :index :wrapper0 :wrapper1 :function conditions::error pcl::one-class-dfun-info pcl::get-dfun-constructor pcl::accessor-miss-function pcl::two-class-dfun-info pcl::get-cache pcl::one-index-limit-fn pcl::fill-dfun-cache pcl::make-one-index-accessor-dfun pcl::default-limit-fn pcl::n-n-accessors-limit-fn pcl::n-n-dfun-info pcl::make-n-n-accessor-dfun pcl::use-caching-dfun-p pcl::make-caching-dfun pcl::use-dispatch-dfun-p pcl::make-dispatch-dfun pcl::get-generic-function-info lisp::every pcl::default-method-only-dfun-info pcl::checking-limit-fn pcl::checking-dfun-info pcl::make-final-ordinary-dfun-internal pcl::make-checking-dfun lisp::nil lisp::nil pcl::early-gf-p pcl::cclosure-env-nthcdr pcl::%cclosure-env-nthcdr pcl::generic-function-methods lisp::some pcl::use-constant-value-dfun-p pcl::make-constant-value-dfun pcl::caching-limit-fn pcl::caching-dfun-info pcl::compute-applicable-methods-emf-std-p lisp::notany pcl::constant-value-dfun-info pcl::caching-dfun-cost pcl::dispatch-dfun-cost pcl::gdefinition lisp::identity pcl::generate-discrimination-net-internal pcl::methods-contain-eql-specializer-p pcl::get-dispatch-function pcl::dispatch-dfun-info pcl::get-secondary-dispatch-function1 pcl::arg-info-nkeys pcl::gf-dfun-info pcl::copy-cache pcl::gf-dfun-cache pcl::make-emf-cache pcl::precompute-effective-methods pcl::initial-dispatch-dfun-info pcl::insure-caching-dfun pcl::initial-dfun-info pcl::make-final-dfun-internal pcl::final-accessor-dfun-type pcl::make-early-accessor pcl::make-final-accessor-dfun pcl::set-dfun pcl::early-method-standard-accessor-slot-name pcl::make-one-class-accessor-dfun lisp::nil lisp::nil pcl::make-accessor-table pcl::class-wrapper pcl::make-two-class-accessor-dfun pcl::make-final-one-index-accessor-dfun pcl::make-final-n-n-accessor-dfun pcl::make-final-caching-dfun pcl::no-methods-dfun-info pcl::method-specializers pcl::make-final-constant-value-dfun pcl::make-final-dispatch-dfun pcl::get-secondary-dispatch-function pcl::make-final-checking-dfun pcl::fill-cache system::structure-subtype-p pcl::method-function-get pcl::wrapper-of pcl::check-wrapper-validity pcl::cache-miss-values-internal pcl::compute-applicable-methods-using-types pcl::compute-applicable-methods-using-classes pcl::default-secondary-dispatch-function pcl::accessor-values lisp::boundp pcl::accessor-values-internal pcl::early-method-qualifiers pcl::method-qualifiers pcl::early-method-standard-accessor-p pcl::early-class-precedence-list pcl::class-precedence-list pcl::early-method-class pcl::standard-accessor-method-p pcl::early-accessor-method-slot-name pcl::accessor-method-slot-name pcl::early-class-slotds pcl::early-slot-definition-name pcl::find-slot-definition pcl::slot-accessor-std-p pcl::early-slot-definition-location pcl::slot-definition-location pcl::early-method-specializers pcl::class-finalized-p pcl::sort-applicable-methods pcl::sort-methods lisp::stable-sort pcl::specializer-type pcl::bootstrap-slot-index pcl::prototype pcl::class-can-precede-p lisp::position pcl::saut-not-class pcl::saut-not-class-eq pcl::saut-not-prototype pcl::saut-not-eql pcl::type-class pcl::class-of pcl::superclasses-compatible-p pcl::classes-have-common-subclass-p pcl::class-direct-subclasses pcl::class-applicable-using-class-p pcl::type-from-specializer pcl::saut-and pcl::saut-not pcl::saut-class pcl::saut-prototype pcl::saut-class-eq pcl::saut-eql pcl::find-class pcl::get-secondary-dispatch-function2 pcl::generic-function-method-combination pcl::compute-effective-method pcl::make-effective-method-function1 pcl::standard-compute-effective-method pcl::generate-discrimination-net pcl::compute-secondary-dispatch-function1 pcl::eql-specializer-p pcl::early-gf-name pcl::make-initial-dfun pcl::compute-discriminating-function pcl::set-funcallable-instance-function pcl::free-cache pcl::map-all-generic-functions pcl::list-dfun pcl::list-large-cache lisp::< lisp::car lisp::sort pcl::count-dfun pcl::no-applicable-method pcl::early-class-direct-subclasses pcl::class-might-precede-p pcl::class-name pcl::order-specializers pcl::standard-writer-method-p pcl::standard-reader-method-p pcl::bootstrap-set-slot pcl::initial-dfun pcl::constant-value-miss pcl::method-fast-function pcl::method-function pcl::caching-miss pcl::checking-miss pcl::accessor-miss (system::%init . #((system::setvv 251 (system::mc lisp::nil 142)) (system::setvv 250 (system::mc lisp::nil 141)) (system::setvv 212 (system::mc lisp::nil 140)) (system::setvv 211 (system::mc lisp::nil 139)) (system::*make-special (lisp::quote pcl::*dfun-constructors*)) (lisp::or (lisp::boundp (lisp::quote pcl::*dfun-constructors*)) (lisp::setq pcl::*dfun-constructors* lisp::nil)) (system::*make-special (lisp::quote pcl::*enable-dfun-constructor-caching*)) (lisp::or (lisp::boundp (lisp::quote pcl::*enable-dfun-constructor-caching*)) (lisp::setq pcl::*enable-dfun-constructor-caching* lisp::t)) (system::mfsfun (lisp::quote pcl::show-dfun-constructors) 0 0) (system::*make-special (lisp::quote pcl::*raise-metatypes-to-class-p*)) (lisp::or (lisp::boundp (lisp::quote pcl::*raise-metatypes-to-class-p*)) (lisp::setq pcl::*raise-metatypes-to-class-p* lisp::t)) (system::mf (lisp::quote pcl::get-dfun-constructor) 1) (system::mfsfun (lisp::quote pcl::load-precompiled-dfun-constructor) 2 4) (system::mm (lisp::quote pcl::precompile-dfun-constructors) 3) (system::define-structure (lisp::quote pcl::dfun-info) (lisp::quote pcl::dfun-info-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6=(pcl::cache lisp::nil lisp::t lisp::nil 0))) (lisp::quote pcl::copy-dfun-info) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-DFUN-INFO|)) (lisp::quote 1) (lisp::quote pcl::dfun-info-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-DFUN-INFO|) 4 16384 5) (system::mfsfun (lisp::quote pcl::print-dfun-info) 6 3) (system::define-structure (lisp::quote pcl::no-methods) (lisp::quote pcl::no-methods-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6#)) (lisp::quote pcl::copy-no-methods) (lisp::quote lisp::nil) (lisp::quote pcl::dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-NO-METHODS| (pcl::no-methods-dfun-info lisp::nil))) (lisp::quote 1) (lisp::quote pcl::no-methods-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-NO-METHODS|) 7 16384 8) (system::mfsfun (lisp::quote pcl::no-methods-dfun-info) 9 0) (system::define-structure (lisp::quote pcl::initial) (lisp::quote pcl::initial-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6#)) (lisp::quote pcl::copy-initial) (lisp::quote lisp::nil) (lisp::quote pcl::dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-INITIAL| (pcl::initial-dfun-info lisp::nil))) (lisp::quote 1) (lisp::quote pcl::initial-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-INITIAL|) 10 16384 11) (system::mfsfun (lisp::quote pcl::initial-dfun-info) 12 0) (system::define-structure (lisp::quote pcl::initial-dispatch) (lisp::quote pcl::initial-dispatch-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6#)) (lisp::quote pcl::copy-initial-dispatch) (lisp::quote lisp::nil) (lisp::quote pcl::dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-INITIAL-DISPATCH| (pcl::initial-dispatch-dfun-info lisp::nil))) (lisp::quote 1) (lisp::quote pcl::initial-dispatch-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-INITIAL-DISPATCH|) 13 16384 14) (system::mfsfun (lisp::quote pcl::initial-dispatch-dfun-info) 15 0) (system::define-structure (lisp::quote pcl::dispatch) (lisp::quote pcl::dispatch-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6#)) (lisp::quote pcl::copy-dispatch) (lisp::quote lisp::nil) (lisp::quote pcl::dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-DISPATCH| (pcl::dispatch-dfun-info lisp::nil))) (lisp::quote 1) (lisp::quote pcl::dispatch-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-DISPATCH|) 16 16384 17) (system::mfsfun (lisp::quote pcl::dispatch-dfun-info) 18 0) (system::define-structure (lisp::quote pcl::default-method-only) (lisp::quote pcl::default-method-only-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6#)) (lisp::quote pcl::copy-default-method-only) (lisp::quote lisp::nil) (lisp::quote pcl::dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-DEFAULT-METHOD-ONLY| (pcl::default-method-only-dfun-info lisp::nil))) (lisp::quote 1) (lisp::quote pcl::default-method-only-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-DEFAULT-METHOD-ONLY|) 19 16384 20) (system::mfsfun (lisp::quote pcl::default-method-only-dfun-info) 21 0) (system::define-structure (lisp::quote pcl::accessor-dfun-info) (lisp::quote pcl::accessor-dfun-info-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6# #7=(pcl::accessor-type lisp::nil lisp::t lisp::nil 1))) (lisp::quote pcl::copy-accessor-dfun-info) (lisp::quote lisp::nil) (lisp::quote pcl::dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-ACCESSOR-DFUN-INFO|)) (lisp::quote 2) (lisp::quote pcl::accessor-dfun-info-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-ACCESSOR-DFUN-INFO|) 22 16384 23) (system::mm (lisp::quote pcl::dfun-info-accessor-type) 24) (system::define-structure (lisp::quote pcl::one-index-dfun-info) (lisp::quote pcl::one-index-dfun-info-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6# #7# #8=(pcl::index lisp::nil lisp::t lisp::nil 2))) (lisp::quote pcl::copy-one-index-dfun-info) (lisp::quote lisp::nil) (lisp::quote pcl::accessor-dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-ONE-INDEX-DFUN-INFO|)) (lisp::quote 3) (lisp::quote pcl::one-index-dfun-info-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-ONE-INDEX-DFUN-INFO|) 25 16384 26) (system::mm (lisp::quote pcl::dfun-info-index) 27) (system::define-structure (lisp::quote pcl::n-n) (lisp::quote pcl::n-n-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6# #7#)) (lisp::quote pcl::copy-n-n) (lisp::quote lisp::nil) (lisp::quote pcl::accessor-dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-N-N| (pcl::n-n-dfun-info (pcl::accessor-type pcl::cache)))) (lisp::quote 2) (lisp::quote pcl::n-n-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-N-N|) 28 16384 29) (system::mfsfun (lisp::quote pcl::n-n-dfun-info) 30 2) (system::define-structure (lisp::quote pcl::one-class) (lisp::quote pcl::one-class-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6# #7# #8# #9=(pcl::wrapper0 lisp::nil lisp::t lisp::nil 3))) (lisp::quote pcl::copy-one-class) (lisp::quote lisp::nil) (lisp::quote pcl::one-index-dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-ONE-CLASS| (pcl::one-class-dfun-info (pcl::accessor-type pcl::index pcl::wrapper0)))) (lisp::quote 4) (lisp::quote pcl::one-class-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-ONE-CLASS|) 31 16384 32) (system::mfsfun (lisp::quote pcl::one-class-dfun-info) 33 3) (system::mm (lisp::quote pcl::dfun-info-wrapper0) 34) (system::define-structure (lisp::quote pcl::two-class) (lisp::quote pcl::two-class-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6# #7# #8# #9# (pcl::wrapper1 lisp::nil lisp::t lisp::nil 4))) (lisp::quote pcl::copy-two-class) (lisp::quote lisp::nil) (lisp::quote pcl::one-class) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-TWO-CLASS| (pcl::two-class-dfun-info (pcl::accessor-type pcl::index pcl::wrapper0 pcl::wrapper1)))) (lisp::quote 5) (lisp::quote pcl::two-class-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-TWO-CLASS|) 35 16384 36) (system::mfsfun (lisp::quote pcl::two-class-dfun-info) 37 4) (system::mm (lisp::quote pcl::dfun-info-wrapper1) 38) (system::define-structure (lisp::quote pcl::one-index) (lisp::quote pcl::one-index-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6# #7# #8#)) (lisp::quote pcl::copy-one-index) (lisp::quote lisp::nil) (lisp::quote pcl::one-index-dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-ONE-INDEX| (pcl::one-index-dfun-info (pcl::accessor-type pcl::index pcl::cache)))) (lisp::quote 3) (lisp::quote pcl::one-index-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-ONE-INDEX|) 39 16384 40) (system::mfsfun (lisp::quote pcl::one-index-dfun-info) 41 3) (system::define-structure (lisp::quote pcl::checking) (lisp::quote pcl::checking-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6# (lisp::function lisp::nil lisp::t lisp::nil 1))) (lisp::quote pcl::copy-checking) (lisp::quote lisp::nil) (lisp::quote pcl::dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-CHECKING| (pcl::checking-dfun-info (lisp::function pcl::cache)))) (lisp::quote 2) (lisp::quote pcl::checking-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-CHECKING|) 42 16384 43) (system::mfsfun (lisp::quote pcl::checking-dfun-info) 44 2) (system::mm (lisp::quote pcl::dfun-info-function) 45) (system::define-structure (lisp::quote pcl::caching) (lisp::quote pcl::caching-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6#)) (lisp::quote pcl::copy-caching) (lisp::quote lisp::nil) (lisp::quote pcl::dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-CACHING| (pcl::caching-dfun-info (pcl::cache)))) (lisp::quote 1) (lisp::quote pcl::caching-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-CACHING|) 46 16384 47) (system::mfsfun (lisp::quote pcl::caching-dfun-info) 48 1) (system::define-structure (lisp::quote pcl::constant-value) (lisp::quote pcl::constant-value-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (#6#)) (lisp::quote pcl::copy-constant-value) (lisp::quote lisp::nil) (lisp::quote pcl::dfun-info) (lisp::quote pcl::print-dfun-info) (lisp::quote (pcl::|__si::MAKE-CONSTANT-VALUE| (pcl::constant-value-dfun-info (pcl::cache)))) (lisp::quote 1) (lisp::quote pcl::constant-value-p) (lisp::quote lisp::nil)) (system::mfvfun-key (lisp::quote pcl::|__si::MAKE-CONSTANT-VALUE|) 49 16384 50) (system::mfsfun (lisp::quote pcl::constant-value-dfun-info) 51 1) (system::mm (lisp::quote pcl::dfun-update) 52) (system::mfsfun (lisp::quote pcl::accessor-miss-function) 53 2) (system::mf (lisp::quote pcl::make-one-class-accessor-dfun) 54) (system::mf (lisp::quote pcl::make-two-class-accessor-dfun) 55) (system::mf (lisp::quote pcl::make-one-index-accessor-dfun) 56) (system::mf (lisp::quote pcl::make-final-one-index-accessor-dfun) 57) (system::mfsfun (lisp::quote pcl::one-index-limit-fn) 58 257) (system::mf (lisp::quote pcl::make-n-n-accessor-dfun) 59) (system::mf (lisp::quote pcl::make-final-n-n-accessor-dfun) 60) (system::mfsfun (lisp::quote pcl::n-n-accessors-limit-fn) 61 257) (system::mf (lisp::quote pcl::make-checking-dfun) 62) (system::mf (lisp::quote pcl::make-final-checking-dfun) 63) (system::mfsfun (lisp::quote pcl::use-default-method-only-dfun-p) 64 1) (system::setvv 71 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::use-caching-dfun-p) 65 1) (system::mfsfun (lisp::quote pcl::checking-limit-fn) 66 257) (system::mf (lisp::quote pcl::make-caching-dfun) 67) (system::mf (lisp::quote pcl::make-final-caching-dfun) 68) (system::mfsfun (lisp::quote pcl::caching-limit-fn) 69 257) (system::mf (lisp::quote pcl::insure-caching-dfun) 70) (system::setvv 77 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfvfun (lisp::quote pcl::use-constant-value-dfun-p) 71 513) (system::mf (lisp::quote pcl::make-constant-value-dfun) 72) (system::mf (lisp::quote pcl::make-final-constant-value-dfun) 73) (system::mfvfun (lisp::quote pcl::use-dispatch-dfun-p) 74 513) (system::mfsfun (lisp::quote pcl::show-dfun-costs) 75 1) (system::*make-special (lisp::quote pcl::*non-built-in-typep-cost*)) (lisp::setq pcl::*non-built-in-typep-cost* 1) (system::*make-special (lisp::quote pcl::*structure-typep-cost*)) (lisp::setq pcl::*structure-typep-cost* 1) (system::*make-special (lisp::quote pcl::*built-in-typep-cost*)) (lisp::setq pcl::*built-in-typep-cost* 0) (system::mf (lisp::quote pcl::dispatch-dfun-cost) 76) (system::*make-special (lisp::quote pcl::*cache-lookup-cost*)) (lisp::setq pcl::*cache-lookup-cost* 1) (system::*make-special (lisp::quote pcl::*wrapper-of-cost*)) (lisp::setq pcl::*wrapper-of-cost* 0) (system::*make-special (lisp::quote pcl::*secondary-dfun-call-cost*)) (lisp::setq pcl::*secondary-dfun-call-cost* 1) (system::mfsfun (lisp::quote pcl::caching-dfun-cost) 77 1) (lisp::setq pcl::*non-built-in-typep-cost* 100) (lisp::setq pcl::*structure-typep-cost* 15) (lisp::setq pcl::*built-in-typep-cost* 5) (lisp::setq pcl::*cache-lookup-cost* 30) (lisp::setq pcl::*wrapper-of-cost* 15) (lisp::setq pcl::*secondary-dfun-call-cost* 30) (system::mf (lisp::quote pcl::make-dispatch-dfun) 78) (system::mf (lisp::quote pcl::get-dispatch-function) 79) (system::mf (lisp::quote pcl::make-final-dispatch-dfun) 80) (system::mfsfun (lisp::quote pcl::update-dispatch-dfuns) 81 0) (system::mfvfun (lisp::quote pcl::fill-dfun-cache) 82 1284) (system::mfsfun (lisp::quote pcl::make-final-ordinary-dfun-internal) 83 5) (system::*make-special (lisp::quote pcl::*dfun-miss-gfs-on-stack*)) (lisp::or (lisp::boundp (lisp::quote pcl::*dfun-miss-gfs-on-stack*)) (lisp::setq pcl::*dfun-miss-gfs-on-stack* lisp::nil)) (system::putprop (lisp::quote pcl::dfun-miss) (lisp::quote 1) #10=(lisp::quote system::pretty-print-format)) (system::mm (lisp::quote pcl::dfun-miss) 84) (system::*make-special (lisp::quote pcl::*lazy-dfun-compute-p*)) (lisp::or (lisp::boundp (lisp::quote pcl::*lazy-dfun-compute-p*)) (lisp::setq pcl::*lazy-dfun-compute-p* lisp::t)) (system::*make-special (lisp::quote pcl::*early-p*)) (lisp::or (lisp::boundp (lisp::quote pcl::*early-p*)) (lisp::setq pcl::*early-p* lisp::nil)) (system::setvv 104 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 107 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-initial-dfun) 85 1) (system::setvv 108 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 109 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 111 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 112 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-early-accessor) 86 2) (system::mf (lisp::quote pcl::initial-dfun) 87) (system::mfvfun (lisp::quote pcl::make-final-dfun) 88 513) (system::*make-special (lisp::quote pcl::*new-class*)) (lisp::or (lisp::boundp (lisp::quote pcl::*new-class*)) (lisp::setq pcl::*new-class* lisp::nil)) (system::*make-special (lisp::quote pcl::*free-hash-tables*)) (lisp::or (lisp::boundp (lisp::quote pcl::*free-hash-tables*)) (lisp::setq pcl::*free-hash-tables* (lisp::mapcar (lisp::function lisp::list) (lisp::quote (lisp::eq lisp::equal lisp::eql))))) (system::putprop (lisp::quote pcl::with-hash-table) (lisp::quote 1) #10#) (system::mm (lisp::quote pcl::with-hash-table) 89) (system::putprop (lisp::quote pcl::with-eq-hash-table) (lisp::quote 1) #10#) (system::mm (lisp::quote pcl::with-eq-hash-table) 90) (system::setvv 130 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::final-accessor-dfun-type) 91 1) (system::mf (lisp::quote pcl::make-final-accessor-dfun) 92) (system::mf (lisp::quote pcl::make-final-dfun-internal) 93) (system::setvv 138 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 141 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::accessor-miss) 94) (system::mf (lisp::quote pcl::checking-miss) 95) (system::mf (lisp::quote pcl::caching-miss) 96) (system::mf (lisp::quote pcl::constant-value-miss) 97) (system::mf (lisp::quote pcl::cache-miss-values) 98) (system::mf (lisp::quote pcl::cache-miss-values-internal) 99) (system::mf (lisp::quote pcl::accessor-values) 100) (system::mf (lisp::quote pcl::accessor-values1) 101) (system::mf (lisp::quote pcl::accessor-values-internal) 102) (system::setvv 150 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::make-accessor-table) 103) (system::setvv 154 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 155 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::compute-applicable-methods-using-types) 104) (system::mfsfun (lisp::quote pcl::sort-applicable-methods) 105 3) (system::mfsfun (lisp::quote pcl::sort-methods) 106 3) (system::setvv 156 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 159 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::order-specializers) 107) (system::mfsfun (lisp::quote pcl::map-all-orders) 108 3) (system::*make-special (lisp::quote pcl::*in-precompute-effective-methods-p*)) (lisp::or (lisp::boundp (lisp::quote pcl::*in-precompute-effective-methods-p*)) (lisp::setq pcl::*in-precompute-effective-methods-p* lisp::nil)) (system::mfsfun (lisp::quote pcl::class-might-precede-p) 109 2) (system::mfsfun (lisp::quote pcl::compute-precedence) 110 3) (system::mf (lisp::quote pcl::saut-and) 111) (system::mf (lisp::quote pcl::saut-not) 112) (system::mfsfun (lisp::quote pcl::saut-not-class) 113 2) (system::mfsfun (lisp::quote pcl::saut-not-prototype) 114 2) (system::mfsfun (lisp::quote pcl::saut-not-class-eq) 115 2) (system::mfsfun (lisp::quote pcl::saut-not-eql) 116 2) (system::mf (lisp::quote pcl::class-applicable-using-class-p) 117) (system::mfsfun (lisp::quote pcl::classes-have-common-subclass-p) 118 2) (system::mf (lisp::quote pcl::saut-class) 119) (system::mf (lisp::quote pcl::saut-class-eq) 120) (system::mf (lisp::quote pcl::saut-prototype) 121) (system::mf (lisp::quote pcl::saut-eql) 122) (system::mf (lisp::quote pcl::specializer-applicable-using-type-p) 123) (system::mf (lisp::quote pcl::map-all-classes) 124) (system::*make-special (lisp::quote pcl::*effective-method-table*)) (lisp::or (lisp::boundp (lisp::quote pcl::*effective-method-table*)) (lisp::setq pcl::*effective-method-table* (lisp::make-hash-table :test (lisp::quote lisp::eq)))) (system::mf (lisp::quote pcl::get-secondary-dispatch-function) 125) (system::mfvfun (lisp::quote pcl::get-secondary-dispatch-function1) 126 2053) (system::mfsfun (lisp::quote pcl::get-secondary-dispatch-function2) 127 8) (system::mf (lisp::quote pcl::get-effective-method-function) 128) (system::mfvfun (lisp::quote pcl::get-effective-method-function1) 129 770) (system::mfsfun (lisp::quote pcl::methods-contain-eql-specializer-p) 130 1) (system::mfvfun (lisp::quote pcl::update-dfun) 131 1025) (system::*make-special (lisp::quote pcl::dfun-count)) (lisp::or (lisp::boundp (lisp::quote pcl::dfun-count)) (lisp::setq pcl::dfun-count lisp::nil)) (system::*make-special (lisp::quote pcl::dfun-list)) (lisp::or (lisp::boundp (lisp::quote pcl::dfun-list)) (lisp::setq pcl::dfun-list lisp::nil)) (system::*make-special (lisp::quote pcl::*minimum-cache-size-to-list*)) (system::mfsfun (lisp::quote pcl::list-dfun) 132 1) (system::mfsfun (lisp::quote pcl::list-all-dfuns) 133 0) (system::mfsfun (lisp::quote pcl::list-large-cache) 134 1) (system::mf (lisp::quote pcl::list-large-caches) 135) (system::mfsfun (lisp::quote pcl::count-dfun) 136 1) (system::mf (lisp::quote pcl::count-all-dfuns) 137) (system::mfsfun (lisp::quote pcl::gfs-of-type) 138 1) (system::debug (lisp::quote pcl::show-dfun-constructors) (lisp::quote (pcl::generator-entry #:g5131 pcl::args-entry))) (system::debug (lisp::quote pcl::get-dfun-constructor) (lisp::quote (pcl::generator pcl::args pcl::generator-entry pcl::args-entry #:g5135))) (system::debug (lisp::quote pcl::load-precompiled-dfun-constructor) (lisp::quote (pcl::generator-entry pcl::args-entry pcl::dfun-type pcl::metatypes pcl::gfs pcl::gf))) (system::debug (lisp::quote pcl::|__si::MAKE-DFUN-INFO|) (lisp::quote (pcl::cache))) (system::debug (lisp::quote pcl::|__si::MAKE-NO-METHODS|) (lisp::quote (pcl::cache))) (system::debug (lisp::quote pcl::|__si::MAKE-INITIAL|) (lisp::quote (pcl::cache))) (system::debug (lisp::quote pcl::|__si::MAKE-INITIAL-DISPATCH|) (lisp::quote (pcl::cache))) (system::debug (lisp::quote pcl::|__si::MAKE-DISPATCH|) (lisp::quote (pcl::cache))) (system::debug (lisp::quote pcl::|__si::MAKE-DEFAULT-METHOD-ONLY|) (lisp::quote (pcl::cache))) (system::debug (lisp::quote pcl::|__si::MAKE-ACCESSOR-DFUN-INFO|) (lisp::quote (pcl::cache pcl::accessor-type))) (system::debug (lisp::quote pcl::|__si::MAKE-ONE-INDEX-DFUN-INFO|) (lisp::quote (pcl::cache pcl::accessor-type pcl::index))) (system::debug (lisp::quote pcl::|__si::MAKE-N-N|) (lisp::quote (pcl::cache pcl::accessor-type))) (system::debug (lisp::quote pcl::|__si::MAKE-ONE-CLASS|) (lisp::quote (pcl::cache pcl::accessor-type pcl::index pcl::wrapper0))) (system::debug (lisp::quote pcl::|__si::MAKE-TWO-CLASS|) (lisp::quote (pcl::cache pcl::accessor-type pcl::index pcl::wrapper0 pcl::wrapper1))) (system::debug (lisp::quote pcl::|__si::MAKE-ONE-INDEX|) (lisp::quote (pcl::cache pcl::accessor-type pcl::index))) (system::debug (lisp::quote pcl::|__si::MAKE-CHECKING|) (lisp::quote (pcl::cache lisp::function))) (system::debug (lisp::quote pcl::|__si::MAKE-CACHING|) (lisp::quote (pcl::cache))) (system::debug (lisp::quote pcl::|__si::MAKE-CONSTANT-VALUE|) (lisp::quote (pcl::cache))) (system::debug (lisp::quote pcl::accessor-miss-function) (lisp::quote (pcl::dfun-info pcl::gf))) (system::debug (lisp::quote pcl::make-one-class-accessor-dfun) (lisp::quote (pcl::gf lisp::type pcl::wrapper pcl::index))) (system::debug (lisp::quote pcl::make-two-class-accessor-dfun) (lisp::quote (pcl::gf lisp::type pcl::w0 pcl::w1 pcl::index))) (system::debug (lisp::quote pcl::make-one-index-accessor-dfun) (lisp::quote (pcl::gf lisp::type pcl::index pcl::cache pcl::emit pcl::cache pcl::dfun-info))) (system::debug (lisp::quote pcl::make-final-one-index-accessor-dfun) (lisp::quote (pcl::gf lisp::type pcl::index pcl::table))) (system::debug (lisp::quote pcl::make-n-n-accessor-dfun) (lisp::quote (pcl::gf lisp::type pcl::cache pcl::emit pcl::cache pcl::dfun-info))) (system::debug (lisp::quote pcl::make-final-n-n-accessor-dfun) (lisp::quote (pcl::gf lisp::type pcl::table))) (system::debug (lisp::quote pcl::make-checking-dfun) (lisp::quote (lisp::generic-function lisp::function pcl::cache pcl::cache pcl::dfun-info))) (system::debug (lisp::quote pcl::make-final-checking-dfun) (lisp::quote (lisp::generic-function lisp::function pcl::classes-list pcl::new-class))) (system::debug (lisp::quote pcl::make-caching-dfun) (lisp::quote (lisp::generic-function pcl::cache pcl::cache pcl::dfun-info))) (system::debug (lisp::quote pcl::make-final-caching-dfun) (lisp::quote (lisp::generic-function pcl::classes-list pcl::new-class))) (system::debug (lisp::quote pcl::insure-caching-dfun) (lisp::quote (pcl::gf pcl::mt))) (system::debug (lisp::quote pcl::use-constant-value-dfun-p) (lisp::quote (pcl::early-p pcl::boolean-values-p pcl::default))) (system::debug (lisp::quote pcl::make-constant-value-dfun) (lisp::quote (lisp::generic-function pcl::cache pcl::cache pcl::dfun-info))) (system::debug (lisp::quote pcl::make-final-constant-value-dfun) (lisp::quote (lisp::generic-function pcl::classes-list pcl::new-class))) (system::debug (lisp::quote pcl::use-dispatch-dfun-p) (lisp::quote (pcl::gf pcl::caching-p))) (system::debug (lisp::quote pcl::dispatch-dfun-cost) (lisp::quote (pcl::gf pcl::limit))) (system::debug (lisp::quote pcl::caching-dfun-cost) (lisp::quote (pcl::arg-info pcl::nreq))) (system::debug (lisp::quote pcl::make-dispatch-dfun) (lisp::quote (pcl::gf))) (system::debug (lisp::quote pcl::get-dispatch-function) (lisp::quote (pcl::gf))) (system::debug (lisp::quote pcl::make-final-dispatch-dfun) (lisp::quote (pcl::gf))) (system::debug (lisp::quote pcl::update-dispatch-dfuns) (lisp::quote (#:g5195 pcl::gf))) (system::debug (lisp::quote pcl::fill-dfun-cache) (lisp::quote (pcl::cache pcl::valuep pcl::nkeys pcl::limit-fn pcl::cache))) (system::debug (lisp::quote pcl::make-final-ordinary-dfun-internal) (lisp::quote (pcl::arg-info pcl::nkeys pcl::new-class pcl::cache))) (system::debug (lisp::quote pcl::make-initial-dfun) (lisp::quote (pcl::gf pcl::caching-p pcl::classes-list))) (system::debug (lisp::quote pcl::make-early-accessor) (lisp::quote (pcl::methods pcl::slot-name))) (system::debug (lisp::quote pcl::initial-dfun) (lisp::quote (pcl::gf pcl::args))) (system::debug (lisp::quote pcl::make-final-dfun) (lisp::quote (pcl::gf pcl::classes-list))) (system::debug (lisp::quote pcl::make-final-accessor-dfun) (lisp::quote (pcl::gf lisp::type pcl::classes-list pcl::new-class pcl::.free. pcl::table #:g5227))) (system::debug (lisp::quote pcl::make-final-dfun-internal) (lisp::quote (pcl::gf pcl::classes-list lisp::nil pcl::specls))) (system::debug (lisp::quote pcl::accessor-miss) (lisp::quote (pcl::gf pcl::new lisp::object pcl::dfun-info pcl::ostate pcl::otype pcl::cache pcl::args pcl::nemf pcl::wrappers pcl::ntype pcl::nindex))) (system::debug (lisp::quote pcl::checking-miss) (lisp::quote (lisp::generic-function pcl::args pcl::dfun-info))) (system::debug (lisp::quote pcl::caching-miss) (lisp::quote (lisp::generic-function pcl::args pcl::dfun-info))) (system::debug (lisp::quote pcl::constant-value-miss) (lisp::quote (lisp::generic-function pcl::args pcl::dfun-info lisp::nil lisp::function pcl::value pcl::ncache))) (system::debug (lisp::quote pcl::cache-miss-values) (lisp::quote (pcl::gf pcl::args pcl::state pcl::wrappers pcl::classes pcl::types))) (system::debug (lisp::quote pcl::cache-miss-values-internal) (lisp::quote (pcl::gf pcl::arg-info pcl::wrappers pcl::classes pcl::types pcl::state pcl::for-accessor-p pcl::for-cache-p pcl::cam-std-p))) (system::debug (lisp::quote pcl::accessor-values) (lisp::quote (lisp::nil pcl::arg-info pcl::classes pcl::methods pcl::accessor-type pcl::accessor-class))) (system::debug (lisp::quote pcl::accessor-values1) (lisp::quote (pcl::gf pcl::accessor-type pcl::accessor-class lisp::type pcl::types pcl::methods))) (system::debug (lisp::quote pcl::accessor-values-internal) (lisp::quote (pcl::accessor-type pcl::accessor-class pcl::methods pcl::meth pcl::early-p pcl::slot-name pcl::slotd #:g5289 pcl::slot))) (system::debug (lisp::quote pcl::make-accessor-table) (lisp::quote (pcl::gf lisp::type pcl::table lisp::nil pcl::all-index pcl::no-class-slots-p pcl::early-p lisp::first lisp::second pcl::size lisp::method pcl::specializers pcl::specl pcl::specl-cpl pcl::so-p pcl::slot-name))) (system::debug (lisp::quote pcl::compute-applicable-methods-using-types) (lisp::quote (lisp::generic-function pcl::types #:g5309 lisp::method pcl::specl))) (system::debug (lisp::quote pcl::sort-applicable-methods) (lisp::quote (pcl::types))) (system::debug (lisp::quote pcl::sort-methods) (lisp::quote (pcl::compare-classes-function pcl::precedence))) (system::debug (lisp::quote pcl::order-specializers) (lisp::quote (pcl::specl1 pcl::specl2 pcl::index pcl::compare-classes-function))) (system::debug (lisp::quote pcl::map-all-orders) (lisp::quote (pcl::choices lisp::nil pcl::c #:g5353 #:g5355))) (system::debug (lisp::quote pcl::compute-precedence) (lisp::quote (#:g5364))) (system::debug (lisp::quote pcl::saut-and) (lisp::quote (pcl::specl lisp::type #:g5367 lisp::type))) (system::debug (lisp::quote pcl::saut-not) (lisp::quote (pcl::specl lisp::type))) (system::debug (lisp::quote pcl::saut-not-class) (lisp::quote (lisp::class pcl::cpl))) (system::debug (lisp::quote pcl::saut-not-prototype) (lisp::quote (lisp::class pcl::cpl))) (system::debug (lisp::quote pcl::class-applicable-using-class-p) (lisp::quote (pcl::specl lisp::type))) (system::debug (lisp::quote pcl::classes-have-common-subclass-p) (lisp::quote (pcl::class1-sub))) (system::debug (lisp::quote pcl::saut-class) (lisp::quote (pcl::specl lisp::type))) (system::debug (lisp::quote pcl::saut-class-eq) (lisp::quote (pcl::specl lisp::type))) (system::debug (lisp::quote pcl::saut-eql) (lisp::quote (pcl::specl lisp::type))) (system::debug (lisp::quote pcl::specializer-applicable-using-type-p) (lisp::quote (pcl::specl lisp::type))) (system::debug (lisp::quote pcl::map-all-classes) (lisp::quote (lisp::function pcl::root pcl::braid-p))) (system::debug (lisp::quote pcl::get-secondary-dispatch-function) (lisp::quote (pcl::gf pcl::methods pcl::types pcl::method-alist pcl::wrappers))) (system::debug (lisp::quote pcl::get-secondary-dispatch-function1) (lisp::quote (pcl::key pcl::ht-value #:g5378 #:g5387 pcl::wrappers-p pcl::all-applicable-p pcl::all-sorted-p pcl::function-p))) (system::debug (lisp::quote pcl::get-secondary-dispatch-function2) (lisp::quote (pcl::combin pcl::effective))) (system::debug (lisp::quote pcl::get-effective-method-function) (lisp::quote (pcl::gf pcl::methods pcl::method-alist pcl::wrappers))) (system::debug (lisp::quote pcl::get-effective-method-function1) (lisp::quote (pcl::gf pcl::methods pcl::sorted-p))) (system::debug (lisp::quote pcl::methods-contain-eql-specializer-p) (lisp::quote (lisp::method #:g5390 pcl::spec))) (system::debug (lisp::quote pcl::update-dfun) (lisp::quote (pcl::early-p pcl::dfun pcl::cache pcl::info))) (system::debug (lisp::quote pcl::list-dfun) (lisp::quote (pcl::sym pcl::a #:g5392 #:g5395))) (system::debug (lisp::quote pcl::list-large-cache) (lisp::quote (pcl::sym pcl::cache #:g5396 #:g5399))) (system::debug (lisp::quote pcl::count-dfun) (lisp::quote (pcl::sym pcl::cache pcl::a #:g5400 pcl::b #:g5407 #:g5405))) (system::debug (lisp::quote pcl::count-all-dfuns) (lisp::quote (lisp::nil #:g5411))) (system::debug (lisp::quote pcl::gfs-of-type) (lisp::quote (lisp::type pcl::gf-list)))))) )