#(#! (lisp::in-package :pcl) #("#<" "~S" "Instance" " " ">" "~A ~S ~:S" pcl::name "~A ~S" "Method-Combination ~S ~S" lisp::type pcl::options lisp::nil pcl::std-instance pcl::*funcallable-instance-marker* pcl::..slot-unbound.. :class lisp::nil :allocation :instance "structure slots must have :instance allocation" lisp::nil "~S doesn't seem to have a method-function" lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::generic-function "~A ~S ~{~S ~}~:S" pcl::fast-method-call lisp::nil pcl::method-call conditions::case-failure :name conditions::etypecase :datum :expected-type (lisp::or . #0=(pcl::method-call lisp::function)) :possibilities #0# lisp::nil (lisp::or . #1=(pcl::method-call lisp::function)) #1# ((pcl::print-object lisp::nil (lisp::standard-method lisp::t))) lisp::nil lisp::nil lisp::nil (lisp::or . #2=(pcl::method-call lisp::function)) #2# lisp::nil (lisp::or . #3=(pcl::method-call lisp::function)) #3# lisp::nil lisp::nil "~A ~S, slot:~S, ~:S" lisp::nil (lisp::or . #4=(pcl::method-call lisp::function)) #4# lisp::nil (lisp::or . #5=(pcl::method-call lisp::function)) #5# ((pcl::print-object lisp::nil (pcl::standard-accessor-method lisp::t))) lisp::nil lisp::nil lisp::nil (lisp::or . #6=(pcl::method-call lisp::function)) #6# lisp::nil (lisp::or . #7=(pcl::method-call lisp::function)) #7# lisp::nil "Attempt to reinitialize the method ~S.~%~ Method objects cannot be reinitialized." "a string or NULL" "a function" "Contains ~S which ~A" "Is not a proper list." "is not a non-null atom" "is not a symbol and so cannot be bound" "is a keyword and so cannot be bound" (lisp::t lisp::nil) "cannot be bound" "is a constant and so cannot be bound" "Contains ~S which ~A" "Is not a proper list." pcl::*allow-experimental-specializers-p* "is neither a class object nor an eql specializer" :qualifiers :lambda-list :specializers :function :fast-function :documentation "When initializing the method ~S:~%~ The ~S initialization argument was: ~S.~%~ which ~A." :slot-name :slot-definition "The value of the :SLOT-NAME initarg ~A." :method-spec :plist pcl::qualifiers lisp::nil :key lisp::nil lisp::nil pcl::methods "?" lisp::nil :argument-precedence-order :declarations :method-class :method-combination lisp::nil pcl::*the-class-method* "a subclass of the class METHOD" pcl::method-class "not supplied" "a subclass of the class METHOD" "a method combination object" lisp::method-combination "not supplied" "a method combination object" "When initializing the generic-function ~S:~%~ The ~S initialization argument was: ~A.~%~ It must be ~A." lisp::nil "~S does not name a generic-function." "There is no method for the generic-function ~S~%~ which matches the argument-specifiers ~S." pcl::function-arglist "The :arglist argument to make-specializable was not supplied~%~ and there is no version of FUNCTION-ARGLIST defined for this~%~ port of Portable CommonLoops.~%~ You must either define a version of FUNCTION-ARGLIST (which~%~ should be easy), and send it off to the Portable CommonLoops~%~ people or you should call make-specializable again with the~%~ :arglist keyword to specify the arglist." lisp::standard-generic-function lisp::nil :initial-element "No method on ~S with qualifiers ~:S and specializers ~:S." lisp::&aux (lisp::&optional lisp::&rest lisp::&key) pcl::*the-class-t* "Discriminating Function Arg ~D" lisp::&rest "Discriminating Function &rest Arg" lisp::nil pcl::arg-info lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil "The method ~S is already part of the generic~@ function ~S. It can't be added to another generic~@ function until it is removed from the first one." :new-method (pcl::make-instance pcl::default-initargs pcl::allocate-instance pcl::shared-initialize pcl::initialize-instance) "The method ~S is attached to the generic function~@ ~S. It can't be removed from the generic function~@ to which it is not attached." (pcl::make-instance pcl::default-initargs pcl::allocate-instance pcl::shared-initialize pcl::initialize-instance) lisp::eql pcl::class-eq lisp::nil lisp::nil "The function ~S requires at least ~D arguments" :constant-value pcl::*boot-state* pcl::complete pcl::compute-applicable-methods pcl::*std-cam-methods* pcl::*old-c-a-m-gf-methods* pcl::*the-class-standard-reader-method* pcl::reader pcl::*the-class-standard-writer-method* pcl::writer pcl::*the-class-standard-boundp-method* lisp::boundp pcl::*standard-method-combination* "error in get-accessor-method-function" pcl::*new-class* pcl::slot-object pcl::*standard-slot-value-using-class-method* pcl::*standard-setf-slot-value-using-class-method* pcl::*standard-slot-boundp-using-class-method* pcl::*structure-slot-value-using-class-method* pcl::*structure-setf-slot-value-using-class-method* pcl::*structure-slot-boundp-using-class-method* pcl::std-class lisp::standard-object pcl::standard-effective-slot-definition lisp::structure-class lisp::structure-object pcl::structure-effective-slot-definition pcl::*the-class-slot-object* pcl::*the-class-standard-object* pcl::*the-class-structure-object* (pcl::default) lisp::not lisp::eq pcl::*the-class-built-in-class* pcl::wrapper-class pcl::std-instance-wrapper pcl::class-of lisp::or pcl::std-instance-p pcl::fsc-instance-p pcl::memq lisp::quote pcl::class-precedence-list lisp::typep pcl::unordered-methods lisp::let pcl::.case-arg. lisp::cond lisp::member (lisp::t lisp::otherwise) pcl::scase pcl::mcase lisp::if pcl::class-test pcl::class-eq-test pcl::*in-precompute-effective-methods-p* lisp::and "The key for the last case arg to mcase was not T" :simple pcl::*eq-case-table-limit* pcl::*case-table-limit* :assoc :hash-table "Invalid eq-p argument" lisp::car lisp::cdr lisp::dolist pcl::e lisp::when (lisp::car pcl::e) (lisp::return (lisp::cdr pcl::e)) lisp::gethash conditions::ecase (lisp::member . #8=(:simple :assoc :hash-table)) #8# pcl::.call. pcl::.methods. pcl::.umethods. pcl::mlookup :mcase :test (lisp::member . #9=(:simple :assoc :hash-table)) #9# lisp::lambda ((lisp::declare (lisp::ignore pcl::.pv-cell. pcl::.next-method-call.))) lisp::locally (lisp::declare (lisp::optimize (lisp::speed 3) (lisp::safety 0))) pcl::emf pcl::sdfun-method :arg-info pcl::*show-make-unordered-methods-emf-calls* "~&make-unordered-methods-emf ~s~%" lisp::nil pcl::slot-value-using-class (lisp::setf pcl::slot-value-using-class) pcl::slot-boundp-using-class lisp::nil lisp::&allow-other-keys (lisp::&allow-other-keys) lisp::&key lisp::&optional pcl::required pcl::optional lisp::rest pcl::key (lisp::member . #10=(pcl::required pcl::optional pcl::key lisp::rest)) #10# (lisp::member . #11=(pcl::required pcl::optional pcl::key lisp::rest)) #11# pcl::class-name pcl::printing-random-thing-internal pcl::named-object-print-function pcl::capitalize-words pcl::slot-value-or-default pcl::cclosure-env-nthcdr pcl::%cclosure-env-nthcdr slot-accessor-name::|PCL ALLOCATION slot READER| slot-accessor-name::|LISP CLASS slot READER| slot-accessor-name::|PCL ALLOCATION slot WRITER| pcl::get-key-arg-tail slot-accessor-name::|LISP FUNCTION slot READER| slot-accessor-name::|PCL FAST-FUNCTION slot READER| pcl::method-function-from-fast-function slot-accessor-name::|LISP FUNCTION slot WRITER| slot-accessor-name::|PCL SPECIALIZERS slot READER| pcl::slot-boundp-normal pcl::method-generic-function pcl::generic-function-name pcl::method-qualifiers pcl::unparse-specializers pcl::accessor-method-slot-name pcl::legal-qualifier-p pcl::legal-specializer-p pcl::specializerp pcl::classp pcl::eql-specializer-p pcl::legal-qualifiers-p pcl::legal-lambda-list-p pcl::legal-specializers-p pcl::legal-method-function-p pcl::legal-documentation-p pcl::legal-slot-name-p pcl::initialize-method-function pcl::plist-value slot-accessor-name::|PCL SLOT-DEFINITION slot READER| pcl::accessor-method-class pcl::slot-class-p slot-accessor-name::|PCL SLOT-NAME slot READER| pcl::class-direct-slots pcl::slot-definition-name lisp::find slot-accessor-name::|PCL SLOT-DEFINITION slot WRITER| slot-accessor-name::|PCL SLOT-NAME slot WRITER| pcl::generic-function-methods pcl::set-function-name pcl::find-class pcl::class-eq-specializer pcl::*subtypep slot-accessor-name::|PCL METHOD-CLASS slot WRITER| pcl::method-combination-p pcl::generic-function-p pcl::get-method pcl::parse-specializers pcl::remove-method pcl::ensure-generic-function pcl::method-prototype-for-gf pcl::make-instance pcl::add-method :arglist pcl::gdefinition pcl::gf-pretty-arglist pcl::add-named-method pcl::same-specializer-p pcl::method-specializers lisp::every pcl::real-get-method pcl::compute-discriminating-function-arglist-info-internal lisp::< lisp::sort pcl::method-lambda-list pcl::gf-lambda-list slot-accessor-name::|PCL ARG-INFO slot READER| pcl::set-arg-info pcl::arg-info-valid-p pcl::update-dfun pcl::real-add-method pcl::add-direct-method pcl::type-class pcl::update-make-instance-function-table lisp::remove pcl::remove-direct-method pcl::types-from-arguments pcl::compute-applicable-methods-using-types pcl::class-incompatible-superclass-list pcl::specializer-class pcl::specializer-object slot-accessor-name::|LISP OBJECT slot READER| pcl::get-generic-function-info pcl::class-wrapper pcl::class-eq-type pcl::get-secondary-dispatch-function1 pcl::method-function-get pcl::method-fast-function pcl::method-function pcl::get-effective-method-function pcl::list-eq pcl::compute-applicable-methods-function pcl::gf-arg-info pcl::map-all-generic-functions pcl::update-c-a-m-gf-info pcl::update-gf-simple-accessor-type pcl::early-gf-p pcl::compute-applicable-methods-emf pcl::generic-function-method-combination pcl::standard-svuc-method pcl::structure-svuc-method pcl::get-optimized-std-accessor-method-function pcl::get-optimized-std-slot-value-using-class-method-function pcl::wrapper-of pcl::get-secondary-dispatch-function pcl::get-accessor-from-svuc-method-function pcl::update-std-or-str-methods pcl::map-all-classes pcl::set-standard-svuc-method pcl::set-structure-svuc-method pcl::class-direct-subclasses pcl::mec-all-classes-internal pcl::mec-all-classes pcl::mec-all-class-lists pcl::arg-info-nkeys lisp::identity pcl::generate-discrimination-net-internal lisp::class pcl::arg-info-number-required pcl::compute-secondary-dispatch-function1 conditions::error pcl::default-test-converter pcl::invoke-effective-method-function pcl::invoke-fast-method-call pcl::compute-mcase-parameters pcl::default-code-converter pcl::methods-converter pcl::default-constant-converter pcl::get-effective-method-function1 pcl::default-secondary-dispatch-function pcl::convert-methods pcl::arg-info-applyp pcl::make-dfun-lambda-list pcl::make-fast-method-call-lambda-list pcl::make-emf-call pcl::net-test-converter pcl::net-code-converter pcl::get-function1 pcl::slot-definition-reader-function pcl::slot-definition-writer-function pcl::slot-definition-boundp-function slot-accessor-name::|PCL DFUN-STATE slot READER| pcl::update-all-c-a-m-gf-info pcl::update-slot-value-gf-info pcl::slot-value-using-class-dfun pcl::setf-slot-value-using-class-dfun pcl::slot-boundp-using-class-dfun pcl::make-final-dfun pcl::make-initial-dfun pcl::make-final-dfun-internal pcl::set-dfun pcl::early-method-lambda-list pcl::analyze-lambda-list lisp::remove-if pcl::method-pretty-arglist pcl::function-keywords lisp::union pcl::sort-applicable-methods pcl::invoke-emf pcl::convert-table pcl::make-fast-method-call pcl::net-constant-converter pcl::type-from-specializer pcl::specializer-applicable-using-type-p pcl::augment-type pcl::class-from-type pcl::methods-contain-eql-specializer-p pcl::map-all-orders pcl::dfun-arg-symbol pcl::dnet-methods-p pcl::one-order-p pcl::get-wrappers-from-classes pcl::probe-cache pcl::sdfun-for-caching pcl::value-for-caching pcl::fill-cache pcl::class-finalized-p pcl::class-slots pcl::compute-slot-accessor-info pcl::no-applicable-method system::structure-subtype-p pcl::call-no-next-method (system::%init . #((pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote (pcl::instance lisp::stream))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD PRINT-OBJECT (T T))|) 0 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::t lisp::t)) (lisp::quote (pcl::instance lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD PRINT-OBJECT (T T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((lisp::class lisp::class) lisp::stream))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD PRINT-OBJECT (CLASS T))|) 1 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::class lisp::t)) (lisp::quote (lisp::class lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD PRINT-OBJECT (CLASS T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((pcl::slotd pcl::slot-definition) lisp::stream))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD PRINT-OBJECT (SLOT-DEFINITION T))|) 2 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (pcl::slot-definition lisp::t)) (lisp::quote (pcl::slotd lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD PRINT-OBJECT (SLOT-DEFINITION T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (system::mfvfun (lisp::quote pcl::named-object-print-function) 3 770) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((pcl::mc pcl::standard-method-combination) lisp::stream))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD-COMBINATION T))|) 4 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (pcl::standard-method-combination lisp::t)) (lisp::quote (pcl::mc lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD-COMBINATION T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::shared-initialize) (lisp::quote ((pcl::slotd pcl::standard-slot-definition) pcl::slot-names lisp::&key))) (pcl::initialize-internal-slot-gfs* (lisp::quote (pcl::allocation lisp::class pcl::allocation)) (lisp::quote (pcl::allocation)) (lisp::quote lisp::nil)) (system::setvv 11 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 16 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T))|) 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::shared-initialize) (lisp::quote (:after)) (lisp::quote (pcl::standard-slot-definition lisp::t)) (lisp::quote (pcl::slotd pcl::slot-names lisp::&key)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T))|) (lisp::quote (:plist (:arg-info (2 . lisp::t) :slot-name-lists ((lisp::nil lisp::class pcl::allocation) lisp::nil) :pv-table-symbol #12=#:|pv-table|)))) (lisp::quote #12#)) (pcl::proclaim-defgeneric (lisp::quote pcl::shared-initialize) (lisp::quote ((pcl::slotd pcl::structure-slot-definition) pcl::slot-names lisp::&key #13=(pcl::allocation :instance)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-SLOT-DEFINITION T))|) 6 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::shared-initialize) (lisp::quote (:after)) (lisp::quote (pcl::structure-slot-definition lisp::t)) (lisp::quote (pcl::slotd pcl::slot-names lisp::&key #13#)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-SLOT-DEFINITION T))|) (lisp::quote (:plist (:arg-info (2 . lisp::t))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::inform-type-system-about-class) (lisp::quote ((lisp::class lisp::structure-class) (pcl::name lisp::t)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STRUCTURE-CLASS T))|) 7 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::inform-type-system-about-class) (lisp::quote lisp::nil) (lisp::quote (lisp::structure-class lisp::t)) (lisp::quote (lisp::class pcl::name)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STRUCTURE-CLASS T))|) (lisp::quote (:plist (:arg-info (2) :constant-value lisp::nil)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::method-function) (lisp::quote ((lisp::method lisp::standard-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (pcl::fast-function lisp::function)) (lisp::quote (lisp::function)) (lisp::quote lisp::nil)) (system::setvv 20 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 22 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD))|) 8) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::method-function) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method)) (lisp::quote (lisp::method)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil lisp::function pcl::fast-function)) :pv-table-symbol #14=#:|pv-table|)))) (lisp::quote #14#)) (pcl::proclaim-defgeneric (lisp::quote pcl::accessor-method-class) (lisp::quote ((lisp::method pcl::standard-accessor-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (pcl::specializers)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 23 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 24 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD))|) 9 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::accessor-method-class) (lisp::quote lisp::nil) (lisp::quote (pcl::standard-accessor-method)) (lisp::quote (lisp::method)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil pcl::specializers)) :pv-table-symbol #15=#:|pv-table|)))) (lisp::quote #15#)) (pcl::proclaim-defgeneric (lisp::quote pcl::accessor-method-class) (lisp::quote ((lisp::method pcl::standard-writer-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (pcl::specializers)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 25 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 26 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD))|) 10 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::accessor-method-class) (lisp::quote lisp::nil) (lisp::quote (pcl::standard-writer-method)) (lisp::quote (lisp::method)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil pcl::specializers)) :pv-table-symbol #16=#:|pv-table|)))) (lisp::quote #16#)) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((lisp::method lisp::standard-method) lisp::stream))) (system::setvv 27 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 31 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 41 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 45 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 46 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 47 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 50 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 53 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD T))|) 11 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::method lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2) :slot-name-lists ((lisp::nil lisp::generic-function) lisp::nil) :pv-table-symbol #17=#:|pv-table|)))) (lisp::quote #17#)) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((lisp::method pcl::standard-accessor-method) lisp::stream))) (system::setvv 54 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 56 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 59 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 63 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 64 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 65 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 68 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 71 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD PRINT-OBJECT (STANDARD-ACCESSOR-METHOD T))|) 12 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (pcl::standard-accessor-method lisp::t)) (lisp::quote (lisp::method lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD PRINT-OBJECT (STANDARD-ACCESSOR-METHOD T))|) (lisp::quote (:plist (:arg-info (2) :slot-name-lists ((lisp::nil lisp::generic-function) lisp::nil) :pv-table-symbol #18=#:|pv-table|)))) (lisp::quote #18#)) (pcl::proclaim-defgeneric (lisp::quote pcl::reinitialize-instance) (lisp::quote ((lisp::method lisp::standard-method) lisp::&rest pcl::initargs))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD REINITIALIZE-INSTANCE (STANDARD-METHOD))|) 13 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::reinitialize-instance) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method)) (lisp::quote (lisp::method lisp::&rest pcl::initargs)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD REINITIALIZE-INSTANCE (STANDARD-METHOD))|) (lisp::quote (:plist (:arg-info (1 . lisp::t))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::legal-documentation-p) (lisp::quote ((lisp::object lisp::standard-method) pcl::x))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD LEGAL-DOCUMENTATION-P (STANDARD-METHOD T))|) 14 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::legal-documentation-p) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::object pcl::x)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD LEGAL-DOCUMENTATION-P (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::legal-lambda-list-p) (lisp::quote ((lisp::object lisp::standard-method) pcl::x))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD LEGAL-LAMBDA-LIST-P (STANDARD-METHOD T))|) 15 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::legal-lambda-list-p) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::object pcl::x)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD LEGAL-LAMBDA-LIST-P (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2) :constant-value lisp::t)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::legal-method-function-p) (lisp::quote ((lisp::object lisp::standard-method) pcl::x))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD LEGAL-METHOD-FUNCTION-P (STANDARD-METHOD T))|) 16 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::legal-method-function-p) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::object pcl::x)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD LEGAL-METHOD-FUNCTION-P (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::legal-qualifiers-p) (lisp::quote ((lisp::object lisp::standard-method) pcl::x))) (system::mf (lisp::quote pcl::|(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|) 17) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::legal-qualifiers-p) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::object pcl::x)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::legal-qualifier-p) (lisp::quote ((lisp::object lisp::standard-method) pcl::x))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD LEGAL-QUALIFIER-P (STANDARD-METHOD T))|) 18 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::legal-qualifier-p) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::object pcl::x)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD LEGAL-QUALIFIER-P (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::legal-slot-name-p) (lisp::quote ((lisp::object lisp::standard-method) pcl::x))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD LEGAL-SLOT-NAME-P (STANDARD-METHOD T))|) 19 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::legal-slot-name-p) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::object pcl::x)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD LEGAL-SLOT-NAME-P (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::legal-specializers-p) (lisp::quote ((lisp::object lisp::standard-method) pcl::x))) (system::mf (lisp::quote pcl::|(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|) 20) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::legal-specializers-p) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::object pcl::x)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (system::*make-special (lisp::quote pcl::*allow-experimental-specializers-p*)) (lisp::or (lisp::boundp (lisp::quote pcl::*allow-experimental-specializers-p*)) (lisp::setq pcl::*allow-experimental-specializers-p* lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::legal-specializer-p) (lisp::quote ((lisp::object lisp::standard-method) pcl::x))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD LEGAL-SPECIALIZER-P (STANDARD-METHOD T))|) 21 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::legal-specializer-p) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::object pcl::x)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD LEGAL-SPECIALIZER-P (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::shared-initialize) (lisp::quote ((lisp::method lisp::standard-method) pcl::slot-names lisp::&key pcl::qualifiers pcl::lambda-list pcl::specializers lisp::function pcl::fast-function pcl::documentation))) (system::mf (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T))|) 22) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::shared-initialize) (lisp::quote (:before)) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::method pcl::slot-names lisp::&key pcl::qualifiers pcl::lambda-list pcl::specializers lisp::function pcl::fast-function pcl::documentation)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2 . lisp::t))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::shared-initialize) (lisp::quote ((lisp::method pcl::standard-accessor-method) pcl::slot-names lisp::&key pcl::slot-name pcl::slot-definition))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T))|) 23 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::shared-initialize) (lisp::quote (:before)) (lisp::quote (pcl::standard-accessor-method lisp::t)) (lisp::quote (lisp::method pcl::slot-names lisp::&key pcl::slot-name pcl::slot-definition)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T))|) (lisp::quote (:plist (:arg-info (2 . lisp::t))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::shared-initialize) (lisp::quote ((lisp::method lisp::standard-method) pcl::slot-names lisp::&rest pcl::initargs lisp::&key pcl::qualifiers pcl::method-spec pcl::plist))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T))|) 24 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::shared-initialize) (lisp::quote (:after)) (lisp::quote (lisp::standard-method lisp::t)) (lisp::quote (lisp::method pcl::slot-names lisp::&rest pcl::initargs lisp::&key pcl::qualifiers pcl::method-spec pcl::plist)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T))|) (lisp::quote (:plist (:arg-info (2 . lisp::t))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::shared-initialize) (lisp::quote ((lisp::method pcl::standard-accessor-method) pcl::slot-names lisp::&key))) (pcl::initialize-internal-slot-gfs* (lisp::quote (pcl::slot-definition pcl::slot-name pcl::slot-definition pcl::slot-name pcl::slot-definition)) (lisp::quote (pcl::slot-name pcl::slot-definition)) (lisp::quote lisp::nil)) (system::setvv 100 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 102 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T))|) 25) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::shared-initialize) (lisp::quote (:after)) (lisp::quote (pcl::standard-accessor-method lisp::t)) (lisp::quote (lisp::method pcl::slot-names lisp::&key)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T))|) (lisp::quote (:plist (:arg-info (2 . lisp::t) :slot-name-lists ((lisp::nil pcl::slot-definition pcl::slot-name) lisp::nil) :pv-table-symbol #19=#:|pv-table|)))) (lisp::quote #19#)) (pcl::proclaim-defgeneric (lisp::quote pcl::method-qualifiers) (lisp::quote ((lisp::method lisp::standard-method)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD))|) 26 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::method-qualifiers) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method)) (lisp::quote (lisp::method)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD))|) (lisp::quote (:plist (:arg-info (1))))) (lisp::quote lisp::nil)) (system::*make-special (lisp::quote pcl::*the-class-generic-function*)) (lisp::or (lisp::boundp (lisp::quote pcl::*the-class-generic-function*)) (lisp::setq pcl::*the-class-generic-function* (pcl::find-class (lisp::quote lisp::generic-function)))) (system::*make-special (lisp::quote pcl::*the-class-standard-generic-function*)) (lisp::or (lisp::boundp (lisp::quote pcl::*the-class-standard-generic-function*)) (lisp::setq pcl::*the-class-standard-generic-function* (pcl::find-class (lisp::quote lisp::standard-generic-function)))) (pcl::proclaim-defgeneric (lisp::quote pcl::print-object) (lisp::quote ((lisp::generic-function lisp::generic-function) lisp::stream))) (system::setvv 103 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 106 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD PRINT-OBJECT (GENERIC-FUNCTION T))|) 27 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::print-object) (lisp::quote lisp::nil) (lisp::quote (lisp::generic-function lisp::t)) (lisp::quote (lisp::generic-function lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD PRINT-OBJECT (GENERIC-FUNCTION T))|) (lisp::quote (:plist (:arg-info (2) :slot-name-lists ((lisp::nil pcl::methods) lisp::nil) :pv-table-symbol #20=#:|pv-table|)))) (lisp::quote #20#)) (pcl::proclaim-defgeneric (lisp::quote pcl::shared-initialize) (lisp::quote ((lisp::generic-function lisp::standard-generic-function) pcl::slot-names lisp::&key #21=(pcl::name lisp::nil pcl::namep) #22=(pcl::lambda-list lisp::nil pcl::lambda-list-p) pcl::argument-precedence-order pcl::declarations pcl::documentation #23=(pcl::method-class lisp::nil pcl::method-class-supplied-p) #24=(lisp::method-combination lisp::nil pcl::method-combination-supplied-p)))) (pcl::initialize-internal-slot-gfs* (lisp::quote lisp::nil) (lisp::quote (pcl::method-class)) (lisp::quote lisp::nil)) (system::setvv 111 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 122 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))|) 28) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::shared-initialize) (lisp::quote (:before)) (lisp::quote (lisp::standard-generic-function lisp::t)) (lisp::quote (lisp::generic-function pcl::slot-names lisp::&key #21# #22# pcl::argument-precedence-order pcl::declarations pcl::documentation #23# #24#)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))|) (lisp::quote (:plist (:arg-info (2 . lisp::t) :slot-name-lists ((lisp::nil lisp::method-combination pcl::method-class) lisp::nil) :pv-table-symbol #25=#:|pv-table|)))) (lisp::quote #25#)) (pcl::proclaim-defgeneric (lisp::quote pcl::remove-named-method) (lisp::quote (pcl::generic-function-name pcl::argument-specifiers lisp::&optional pcl::extra))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD REMOVE-NAMED-METHOD (T T))|) 29 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::remove-named-method) (lisp::quote lisp::nil) (lisp::quote (lisp::t lisp::t)) (lisp::quote (pcl::generic-function-name pcl::argument-specifiers lisp::&optional pcl::extra)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD REMOVE-NAMED-METHOD (T T))|) (lisp::quote (:plist (:arg-info (2 . lisp::t))))) (lisp::quote lisp::nil)) (system::mfvfun (lisp::quote pcl::real-add-named-method) 30 16388) (system::setvv 128 lisp::lambda-list-keywords) (system::mfvfun-key (lisp::quote pcl::make-specializable) 31 16385 32) (system::mfvfun (lisp::quote pcl::real-get-method) 33 1027) (pcl::proclaim-defgeneric (lisp::quote pcl::find-method) (lisp::quote ((lisp::generic-function lisp::standard-generic-function) pcl::qualifiers pcl::specializers lisp::&optional #26=(pcl::errorp lisp::t)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD FIND-METHOD (STANDARD-GENERIC-FUNCTION T T))|) 34 6) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::find-method) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-generic-function lisp::t lisp::t)) (lisp::quote (lisp::generic-function pcl::qualifiers pcl::specializers lisp::&optional #26#)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD FIND-METHOD (STANDARD-GENERIC-FUNCTION T T))|) (lisp::quote (:plist (:arg-info (3 . lisp::t))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::compute-discriminating-function-arglist-info) (lisp::quote ((lisp::generic-function lisp::standard-generic-function)))) (system::mf (lisp::quote pcl::|(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO (STANDARD-GENERIC-FUNCTION))|) 35) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::compute-discriminating-function-arglist-info) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-generic-function)) (lisp::quote (lisp::generic-function)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (:plist (:arg-info (1))))) (lisp::quote lisp::nil)) (system::mf (lisp::quote pcl::compute-discriminating-function-arglist-info-internal) 36) (system::mfsfun (lisp::quote pcl::make-discriminating-function-arglist) 37 2) (pcl::proclaim-defgeneric (lisp::quote pcl::generic-function-lambda-list) (lisp::quote ((pcl::gf lisp::generic-function)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION))|) 38 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::generic-function-lambda-list) (lisp::quote lisp::nil) (lisp::quote (lisp::generic-function)) (lisp::quote (pcl::gf)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION))|) (lisp::quote (:plist (:arg-info (1))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::gf-fast-method-function-p) (lisp::quote ((pcl::gf lisp::standard-generic-function)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (pcl::arg-info)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 137 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 139 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION))|) 39 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::gf-fast-method-function-p) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-generic-function)) (lisp::quote (pcl::gf)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil pcl::arg-info)) :pv-table-symbol #27=#:|pv-table|)))) (lisp::quote #27#)) (pcl::proclaim-defgeneric (lisp::quote pcl::initialize-instance) (lisp::quote ((pcl::gf lisp::standard-generic-function) lisp::&key #28=(pcl::lambda-list lisp::nil pcl::lambda-list-p) pcl::argument-precedence-order))) (pcl::initialize-internal-slot-gfs* (lisp::quote (pcl::arg-info)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 140 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 141 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|) 40 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::initialize-instance) (lisp::quote (:after)) (lisp::quote (lisp::standard-generic-function)) (lisp::quote (pcl::gf lisp::&key #28# pcl::argument-precedence-order)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (:plist (:arg-info (1 . lisp::t) :slot-name-lists ((lisp::nil pcl::arg-info)) :pv-table-symbol #29=#:|pv-table|)))) (lisp::quote #29#)) (pcl::proclaim-defgeneric (lisp::quote pcl::reinitialize-instance) (lisp::quote ((pcl::gf lisp::standard-generic-function) lisp::&rest pcl::args lisp::&key #30=(pcl::lambda-list lisp::nil pcl::lambda-list-p) #31=(pcl::argument-precedence-order lisp::nil pcl::argument-precedence-order-p)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (pcl::arg-info)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 142 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 143 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|) 41 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::reinitialize-instance) (lisp::quote (:after)) (lisp::quote (lisp::standard-generic-function)) (lisp::quote (pcl::gf lisp::&rest pcl::args lisp::&key #30# #31#)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (:plist (:arg-info (1 . lisp::t) :slot-name-lists ((lisp::nil pcl::arg-info)) :pv-table-symbol #32=#:|pv-table|)))) (lisp::quote #32#)) (lisp::proclaim (lisp::quote (lisp::special pcl::*lazy-dfun-compute-p*))) (system::mfsfun (lisp::quote pcl::set-methods) 42 2) (system::mfvfun (lisp::quote pcl::real-add-method) 43 770) (system::mfsfun (lisp::quote pcl::real-remove-method) 44 2) (system::mfsfun (lisp::quote pcl::compute-applicable-methods-function) 45 2) (pcl::proclaim-defgeneric (lisp::quote pcl::compute-applicable-methods) (lisp::quote ((lisp::generic-function lisp::generic-function) pcl::arguments))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T))|) 46 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::compute-applicable-methods) (lisp::quote lisp::nil) (lisp::quote (lisp::generic-function lisp::t)) (lisp::quote (lisp::generic-function pcl::arguments)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::compute-applicable-methods-using-classes) (lisp::quote ((lisp::generic-function lisp::generic-function) pcl::classes))) (system::mf (lisp::quote pcl::|(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T))|) 47) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::compute-applicable-methods-using-classes) (lisp::quote lisp::nil) (lisp::quote (lisp::generic-function lisp::t)) (lisp::quote (lisp::generic-function pcl::classes)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (system::mfsfun (lisp::quote pcl::proclaim-incompatible-superclasses) 48 1) (system::mfsfun (lisp::quote pcl::superclasses-compatible-p) 49 2) (lisp::mapc (lisp::function pcl::proclaim-incompatible-superclasses) (lisp::quote ((lisp::built-in-class pcl::std-class lisp::structure-class) (lisp::standard-class pcl::funcallable-standard-class) (lisp::class pcl::eql-specializer pcl::class-eq-specializer lisp::method lisp::method-combination lisp::generic-function pcl::slot-definition) (lisp::number lisp::sequence lisp::character lisp::standard-object lisp::structure-object) (lisp::number lisp::array lisp::character lisp::symbol lisp::standard-object lisp::structure-object) (lisp::complex lisp::float lisp::rational) (lisp::integer lisp::ratio) (lisp::list lisp::vector) (lisp::cons lisp::null) (lisp::string lisp::bit-vector)))) (pcl::proclaim-defgeneric (lisp::quote pcl::same-specializer-p) (lisp::quote ((pcl::specl1 pcl::specializer) (pcl::specl2 pcl::specializer)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))|) 50 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::same-specializer-p) (lisp::quote lisp::nil) (lisp::quote (pcl::specializer pcl::specializer)) (lisp::quote (pcl::specl1 pcl::specl2)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))|) (lisp::quote (:plist (:arg-info (2) :constant-value lisp::nil)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::same-specializer-p) (lisp::quote ((pcl::specl1 lisp::class) (pcl::specl2 lisp::class)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS))|) 51 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::same-specializer-p) (lisp::quote lisp::nil) (lisp::quote (lisp::class lisp::class)) (lisp::quote (pcl::specl1 pcl::specl2)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::specializer-class) (lisp::quote ((pcl::specializer lisp::class)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SPECIALIZER-CLASS (CLASS))|) 52 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::specializer-class) (lisp::quote lisp::nil) (lisp::quote (lisp::class)) (lisp::quote (pcl::specializer)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SPECIALIZER-CLASS (CLASS))|) (lisp::quote (:plist (:arg-info (1))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::same-specializer-p) (lisp::quote ((pcl::specl1 pcl::class-eq-specializer) (pcl::specl2 pcl::class-eq-specializer)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))|) 53 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::same-specializer-p) (lisp::quote lisp::nil) (lisp::quote (pcl::class-eq-specializer pcl::class-eq-specializer)) (lisp::quote (pcl::specl1 pcl::specl2)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::same-specializer-p) (lisp::quote ((pcl::specl1 pcl::eql-specializer) (pcl::specl2 pcl::eql-specializer)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER))|) 54 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::same-specializer-p) (lisp::quote lisp::nil) (lisp::quote (pcl::eql-specializer pcl::eql-specializer)) (lisp::quote (pcl::specl1 pcl::specl2)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::specializer-class) (lisp::quote ((pcl::specializer pcl::eql-specializer)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (lisp::object)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 151 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 152 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))|) 55 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::specializer-class) (lisp::quote lisp::nil) (lisp::quote (pcl::eql-specializer)) (lisp::quote (pcl::specializer)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil lisp::object)) :pv-table-symbol #33=#:|pv-table|)))) (lisp::quote #33#)) (system::*make-special (lisp::quote pcl::*in-gf-arg-info-p*)) (lisp::or (lisp::boundp (lisp::quote pcl::*in-gf-arg-info-p*)) (lisp::setq pcl::*in-gf-arg-info-p* lisp::nil)) (lisp::let* ((#34=#:g9650 (lisp::quote pcl::arg-info-reader)) (#35=#:g9651 (lisp::let ((pcl::mf (pcl::initialize-method-function (pcl::make-internal-reader-method-function (lisp::quote lisp::standard-generic-function) (lisp::quote pcl::arg-info)) lisp::t))) (lisp::function (lisp::lambda (lisp::&rest pcl::args) (lisp::funcall pcl::mf pcl::args lisp::nil)))))) (lisp::funcall (lisp::function (lisp::setf pcl::gdefinition)) #35# #34#)) (system::mf (lisp::quote pcl::types-from-arguments) 56) (system::mfsfun (lisp::quote pcl::get-wrappers-from-classes) 57 4) (system::mf (lisp::quote pcl::sdfun-for-caching) 58) (system::mfsfun (lisp::quote pcl::value-for-caching) 59 2) (system::mfsfun (lisp::quote pcl::default-secondary-dispatch-function) 60 1) (system::mfsfun (lisp::quote pcl::list-eq) 61 2) (system::*make-special (lisp::quote pcl::*std-cam-methods*)) (lisp::or (lisp::boundp (lisp::quote pcl::*std-cam-methods*)) (lisp::setq pcl::*std-cam-methods* lisp::nil)) (system::mf (lisp::quote pcl::compute-applicable-methods-emf) 62) (system::mfsfun (lisp::quote pcl::compute-applicable-methods-emf-std-p) 63 1) (system::*make-special (lisp::quote pcl::*old-c-a-m-gf-methods*)) (lisp::or (lisp::boundp (lisp::quote pcl::*old-c-a-m-gf-methods*)) (lisp::setq pcl::*old-c-a-m-gf-methods* lisp::nil)) (system::mfsfun (lisp::quote pcl::update-all-c-a-m-gf-info) 64 1) (system::mfsfun (lisp::quote pcl::update-gf-info) 65 1) (system::mfsfun (lisp::quote pcl::update-c-a-m-gf-info) 66 1) (system::mfsfun (lisp::quote pcl::update-gf-simple-accessor-type) 67 1) (system::mf (lisp::quote pcl::get-accessor-method-function) 68) (system::mf (lisp::quote pcl::update-slot-value-gf-info) 69) (system::*make-special (lisp::quote pcl::*standard-slot-value-using-class-method*)) (lisp::or (lisp::boundp (lisp::quote pcl::*standard-slot-value-using-class-method*)) (lisp::setq pcl::*standard-slot-value-using-class-method* lisp::nil)) (system::*make-special (lisp::quote pcl::*standard-setf-slot-value-using-class-method*)) (lisp::or (lisp::boundp (lisp::quote pcl::*standard-setf-slot-value-using-class-method*)) (lisp::setq pcl::*standard-setf-slot-value-using-class-method* lisp::nil)) (system::*make-special (lisp::quote pcl::*standard-slot-boundp-using-class-method*)) (lisp::or (lisp::boundp (lisp::quote pcl::*standard-slot-boundp-using-class-method*)) (lisp::setq pcl::*standard-slot-boundp-using-class-method* lisp::nil)) (system::*make-special (lisp::quote pcl::*structure-slot-value-using-class-method*)) (lisp::or (lisp::boundp (lisp::quote pcl::*structure-slot-value-using-class-method*)) (lisp::setq pcl::*structure-slot-value-using-class-method* lisp::nil)) (system::*make-special (lisp::quote pcl::*structure-setf-slot-value-using-class-method*)) (lisp::or (lisp::boundp (lisp::quote pcl::*structure-setf-slot-value-using-class-method*)) (lisp::setq pcl::*structure-setf-slot-value-using-class-method* lisp::nil)) (system::*make-special (lisp::quote pcl::*structure-slot-boundp-using-class-method*)) (lisp::or (lisp::boundp (lisp::quote pcl::*structure-slot-boundp-using-class-method*)) (lisp::setq pcl::*structure-slot-boundp-using-class-method* lisp::nil)) (system::mfsfun (lisp::quote pcl::standard-svuc-method) 70 1) (system::mfsfun (lisp::quote pcl::set-standard-svuc-method) 71 2) (system::mfsfun (lisp::quote pcl::structure-svuc-method) 72 1) (system::mfsfun (lisp::quote pcl::set-structure-svuc-method) 73 2) (system::mfsfun (lisp::quote pcl::update-std-or-str-methods) 74 2) (system::mfsfun (lisp::quote pcl::mec-all-classes-internal) 75 2) (system::mfsfun (lisp::quote pcl::mec-all-classes) 76 2) (system::mfsfun (lisp::quote pcl::mec-all-class-lists) 77 2) (system::mfsfun (lisp::quote pcl::make-emf-cache) 78 5) (system::mm (lisp::quote pcl::class-test) 79) (system::mm (lisp::quote pcl::class-eq-test) 80) (system::mm (lisp::quote pcl::eql-test) 81) (system::mfsfun (lisp::quote pcl::dnet-methods-p) 82 1) (system::mm (lisp::quote pcl::scase) 83) (system::mm (lisp::quote pcl::mcase) 84) (system::mf (lisp::quote pcl::generate-discrimination-net) 85) (system::mfsfun (lisp::quote pcl::class-from-type) 86 1) (system::mfvfun (lisp::quote pcl::precompute-effective-methods) 87 770) (system::mfsfun (lisp::quote pcl::augment-type) 88 2) (system::mf (lisp::quote pcl::generate-discrimination-net-internal) 89) (system::mf (lisp::quote pcl::compute-secondary-dispatch-function) 90) (system::*make-special (lisp::quote pcl::*eq-case-table-limit*)) (lisp::or (lisp::boundp (lisp::quote pcl::*eq-case-table-limit*)) (lisp::setq pcl::*eq-case-table-limit* 15)) (system::*make-special (lisp::quote pcl::*case-table-limit*)) (lisp::or (lisp::boundp (lisp::quote pcl::*case-table-limit*)) (lisp::setq pcl::*case-table-limit* 10)) (system::mfsfun (lisp::quote pcl::compute-mcase-parameters) 91 1) (system::mm (lisp::quote pcl::mlookup) 92) (system::mfsfun (lisp::quote pcl::net-test-converter) 93 1) (system::mf (lisp::quote pcl::net-code-converter) 94) (system::mfsfun (lisp::quote pcl::net-constant-converter) 95 2) (system::mfsfun (lisp::quote pcl::methods-converter) 96 2) (system::mf (lisp::quote pcl::convert-methods) 97) (system::mfsfun (lisp::quote pcl::convert-table) 98 3) (system::mfvfun (lisp::quote pcl::compute-secondary-dispatch-function1) 99 770) (system::*make-special (lisp::quote pcl::*show-make-unordered-methods-emf-calls*)) (lisp::or (lisp::boundp (lisp::quote pcl::*show-make-unordered-methods-emf-calls*)) (lisp::setq pcl::*show-make-unordered-methods-emf-calls* lisp::nil)) (system::mfsfun (lisp::quote pcl::make-unordered-methods-emf) 100 2) (system::mf (lisp::quote pcl::slot-value-using-class-dfun) 101) (system::mf (lisp::quote pcl::setf-slot-value-using-class-dfun) 102) (system::mf (lisp::quote pcl::slot-boundp-using-class-dfun) 103) (pcl::proclaim-defgeneric (lisp::quote pcl::compute-discriminating-function) (lisp::quote ((pcl::gf lisp::standard-generic-function)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (pcl::dfun-state pcl::dfun-state pcl::arg-info pcl::dfun-state)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 247 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 251 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION (STANDARD-GENERIC-FUNCTION))|) 104) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::compute-discriminating-function) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-generic-function)) (lisp::quote (pcl::gf)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil pcl::arg-info pcl::dfun-state)) :pv-table-symbol #36=#:|pv-table|)))) (lisp::quote #36#)) (pcl::proclaim-defgeneric (lisp::quote pcl::update-gf-dfun) (lisp::quote ((lisp::class pcl::std-class) pcl::gf))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T))|) 105 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::update-gf-dfun) (lisp::quote lisp::nil) (lisp::quote (pcl::std-class lisp::t)) (lisp::quote (lisp::class pcl::gf)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::function-keywords) (lisp::quote ((lisp::method lisp::standard-method)))) (system::mf (lisp::quote pcl::|(FAST-METHOD FUNCTION-KEYWORDS (STANDARD-METHOD))|) 106) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::function-keywords) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method)) (lisp::quote (lisp::method)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD FUNCTION-KEYWORDS (STANDARD-METHOD))|) (lisp::quote (:plist (:arg-info (1))))) (lisp::quote lisp::nil)) (system::mfsfun (lisp::quote pcl::method-ll->generic-function-ll) 107 1) (pcl::proclaim-defgeneric (lisp::quote pcl::generic-function-pretty-arglist) (lisp::quote ((lisp::generic-function lisp::standard-generic-function)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|) 108 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::generic-function-pretty-arglist) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-generic-function)) (lisp::quote (lisp::generic-function)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (:plist (:arg-info (1))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::method-pretty-arglist) (lisp::quote ((lisp::method lisp::standard-method)))) (system::mf (lisp::quote pcl::|(FAST-METHOD METHOD-PRETTY-ARGLIST (STANDARD-METHOD))|) 109) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::method-pretty-arglist) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-method)) (lisp::quote (lisp::method)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD METHOD-PRETTY-ARGLIST (STANDARD-METHOD))|) (lisp::quote (:plist (:arg-info (1))))) (lisp::quote lisp::nil)) (system::debug (lisp::quote pcl::named-object-print-function) (lisp::quote (pcl::instance lisp::stream pcl::extra))) (system::debug (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::slotd lisp::nil pcl::.rest-arg.))) (system::debug (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-SLOT-DEFINITION T))|) (lisp::quote (pcl::.key. pcl::allocation))) (system::debug (lisp::quote pcl::|(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::method))) (system::debug (lisp::quote pcl::|(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD T))|) (lisp::quote (lisp::stream lisp::method pcl::.next-method-call.))) (system::debug (lisp::quote pcl::|(FAST-METHOD PRINT-OBJECT (STANDARD-ACCESSOR-METHOD T))|) (lisp::quote (lisp::stream lisp::method pcl::.next-method-call.))) (system::debug (lisp::quote pcl::|(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::object pcl::x))) (system::debug (lisp::quote pcl::|(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::object pcl::x))) (system::debug (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::method lisp::nil pcl::.rest-arg. pcl::qualifiers pcl::lambda-list pcl::specializers lisp::function pcl::fast-function pcl::documentation))) (system::debug (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T))|) (lisp::quote (pcl::slot-name pcl::slot-definition))) (system::debug (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T))|) (lisp::quote (pcl::qualifiers))) (system::debug (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::method lisp::nil pcl::.rest-arg.))) (system::debug (lisp::quote pcl::|(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::generic-function lisp::nil pcl::.rest-arg. pcl::.key. pcl::name pcl::.key. lisp::nil lisp::nil lisp::nil lisp::nil pcl::.key. pcl::method-class pcl::.key. lisp::method-combination))) (system::debug (lisp::quote pcl::|(FAST-METHOD REMOVE-NAMED-METHOD (T T))|) (lisp::quote (pcl::extra))) (system::debug (lisp::quote pcl::real-add-named-method) (lisp::quote (lisp::generic-function pcl::qualifiers pcl::proto pcl::new pcl::other-initargs))) (system::debug (lisp::quote pcl::make-specializable) (lisp::quote (pcl::original pcl::arg pcl::arglistp))) (system::debug (lisp::quote pcl::real-get-method) (lisp::quote (lisp::generic-function pcl::qualifiers pcl::specializers pcl::errorp))) (system::debug (lisp::quote pcl::|(FAST-METHOD FIND-METHOD (STANDARD-GENERIC-FUNCTION T T))|) (lisp::quote (pcl::errorp))) (system::debug (lisp::quote pcl::|(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::generic-function lisp::method))) (system::debug (lisp::quote pcl::compute-discriminating-function-arglist-info-internal) (lisp::quote (lisp::nil lisp::method pcl::number-of-requireds pcl::restp pcl::specialized-argument-positions #:g9456 pcl::arg))) (system::debug (lisp::quote pcl::|(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (pcl::.key. pcl::lambda-list pcl::argument-precedence-order))) (system::debug (lisp::quote pcl::|(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (pcl::.key. pcl::lambda-list pcl::.key. pcl::argument-precedence-order))) (system::debug (lisp::quote pcl::real-add-method) (lisp::quote (lisp::generic-function pcl::qualifiers pcl::specializers pcl::existing pcl::specializer))) (system::debug (lisp::quote pcl::real-remove-method) (lisp::quote (pcl::name pcl::specializers pcl::methods pcl::new-methods #:g9553 pcl::specializer))) (system::debug (lisp::quote pcl::|(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::generic-function pcl::classes))) (system::debug (lisp::quote pcl::proclaim-incompatible-superclasses) (lisp::quote (lisp::class pcl::other-class #:g9581))) (system::debug (lisp::quote pcl::superclasses-compatible-p) (lisp::quote (pcl::sc1 #:g9588 pcl::ic))) (system::debug (lisp::quote pcl::types-from-arguments) (lisp::quote (lisp::generic-function pcl::arguments pcl::type-modifier #:g9659))) (system::debug (lisp::quote pcl::get-wrappers-from-classes) (lisp::quote (#:g9662 lisp::class))) (system::debug (lisp::quote pcl::sdfun-for-caching) (lisp::quote (pcl::gf pcl::classes))) (system::debug (lisp::quote pcl::default-secondary-dispatch-function) (lisp::quote (lisp::generic-function))) (system::debug (lisp::quote pcl::compute-applicable-methods-emf) (lisp::quote (lisp::generic-function pcl::cam pcl::cam-methods))) (system::debug (lisp::quote pcl::update-all-c-a-m-gf-info) (lisp::quote (pcl::methods pcl::gfs-to-do pcl::gf-classes-to-do lisp::method #:g9675))) (system::debug (lisp::quote pcl::update-gf-simple-accessor-type) (lisp::quote (pcl::methods lisp::class lisp::type #:g9678 lisp::method))) (system::debug (lisp::quote pcl::get-accessor-method-function) (lisp::quote (pcl::gf lisp::type lisp::class pcl::slotd pcl::std-method pcl::str-method pcl::types1 pcl::types pcl::methods pcl::std-p lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::method))) (system::debug (lisp::quote pcl::update-slot-value-gf-info) (lisp::quote (pcl::gf lisp::type))) (system::debug (lisp::quote pcl::update-std-or-str-methods) (lisp::quote (#:g9692 lisp::method))) (system::debug (lisp::quote pcl::mec-all-classes) (lisp::quote (pcl::a-classes #:g9700))) (system::debug (lisp::quote pcl::mec-all-class-lists) (lisp::quote (pcl::car-all-classes pcl::all-class-lists))) (system::debug (lisp::quote pcl::make-emf-cache) (lisp::quote (pcl::new-class pcl::cache pcl::valuep lisp::generic-function pcl::arg-info pcl::nkeys pcl::metatypes pcl::wrappers pcl::precompute-p pcl::default #:g9711 lisp::method))) (system::debug (lisp::quote pcl::generate-discrimination-net) (lisp::quote (lisp::generic-function pcl::methods pcl::types pcl::sorted-p pcl::arg-info pcl::precedence))) (system::debug (lisp::quote pcl::class-from-type) (lisp::quote (#:g9724 lisp::type))) (system::debug (lisp::quote pcl::precompute-effective-methods) (lisp::quote (pcl::arg-info pcl::caching-p pcl::classes-list-p lisp::nil pcl::classes-list))) (system::debug (lisp::quote pcl::generate-discrimination-net-internal) (lisp::quote (pcl::gf pcl::methods pcl::types pcl::methods-function pcl::test-function pcl::type-function pcl::arg-info pcl::precedence pcl::nreq pcl::metatypes))) (system::debug (lisp::quote pcl::compute-secondary-dispatch-function) (lisp::quote (lisp::generic-function pcl::net pcl::method-alist pcl::wrappers))) (system::debug (lisp::quote pcl::compute-mcase-parameters) (lisp::quote (pcl::eq-p pcl::len lisp::type lisp::case))) (system::debug (lisp::quote pcl::net-code-converter) (lisp::quote (pcl::form))) (system::debug (lisp::quote pcl::net-constant-converter) (lisp::quote (pcl::mp lisp::list pcl::default))) (system::debug (lisp::quote pcl::convert-methods) (lisp::quote (pcl::constant pcl::method-alist pcl::wrappers))) (system::debug (lisp::quote pcl::convert-table) (lisp::quote (pcl::k+m #:g9755 #:g9757))) (system::debug (lisp::quote pcl::compute-secondary-dispatch-function1) (lisp::quote (pcl::name pcl::arg-info pcl::metatypes pcl::applyp pcl::fmc-arg-info pcl::arglist pcl::cfunction pcl::constants))) (system::debug (lisp::quote pcl::make-unordered-methods-emf) (lisp::quote (pcl::methods lisp::generic-function))) (system::debug (lisp::quote pcl::slot-value-using-class-dfun) (lisp::quote (lisp::nil lisp::object pcl::slotd))) (system::debug (lisp::quote pcl::setf-slot-value-using-class-dfun) (lisp::quote (pcl::new-value lisp::nil lisp::object pcl::slotd))) (system::debug (lisp::quote pcl::slot-boundp-using-class-dfun) (lisp::quote (lisp::nil lisp::object pcl::slotd))) (system::debug (lisp::quote pcl::|(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::gf))) (system::debug (lisp::quote pcl::|(FAST-METHOD FUNCTION-KEYWORDS (STANDARD-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::method))) (system::debug (lisp::quote pcl::method-ll->generic-function-ll) (lisp::quote (pcl::keyword-parameters))) (system::debug (lisp::quote pcl::|(FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|) (lisp::quote (#:g9843 pcl::m))) (system::debug (lisp::quote pcl::|(FAST-METHOD METHOD-PRETTY-ARGLIST (STANDARD-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::method pcl::arg)))))) )