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

Diff of /gcl/pcl/pcl_env.data

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

revision 1.2 by camm, Tue Jul 15 18:03:38 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:34 2003 UTC
# Line 3  Line 3 
3  (lisp::in-package :pcl)  (lisp::in-package :pcl)
4  #(pcl::describe-object #0=(lisp::object lisp::stream) lisp::*standard-output* lisp::describe pcl::definition-before-pcl "~%~S is an instance of class ~S:" "~% The following slots have :INSTANCE allocation:" "~% The following slots have :CLASS allocation:" "~% The following slots have allocation as shown:" "~% ~A ~S ~VT  ~S" "~% ~A~VT  ~S" "~A is a generic function.~%" "Its arguments are:~%  ~S~%" "Its methods are:" "~2%    ~{~S ~}~:S =>~%" pcl::*describe-metaobjects-as-objects-p* pcl::fast-method-call lisp::nil pcl::std-instance pcl::*funcallable-instance-marker* pcl::method-call pcl::.next-method-call. (pcl::method-call lisp::function) "No next method." "~&~S is a class, it is an instance of ~S.~%" "Its proper name is ~S.~%" "Its name is ~S, but this is not a proper name.~%" "It has no name (the name is NIL).~%" "The direct superclasses are: ~:S, and the direct~%~  #(pcl::describe-object #0=(lisp::object lisp::stream) lisp::*standard-output* lisp::describe pcl::definition-before-pcl "~%~S is an instance of class ~S:" "~% The following slots have :INSTANCE allocation:" "~% The following slots have :CLASS allocation:" "~% The following slots have allocation as shown:" "~% ~A ~S ~VT  ~S" "~% ~A~VT  ~S" "~A is a generic function.~%" "Its arguments are:~%  ~S~%" "Its methods are:" "~2%    ~{~S ~}~:S =>~%" pcl::*describe-metaobjects-as-objects-p* pcl::fast-method-call lisp::nil pcl::std-instance pcl::*funcallable-instance-marker* pcl::method-call pcl::.next-method-call. (pcl::method-call lisp::function) "No next method." "~&~S is a class, it is an instance of ~S.~%" "Its proper name is ~S.~%" "Its name is ~S, but this is not a proper name.~%" "It has no name (the name is NIL).~%" "The direct superclasses are: ~:S, and the direct~%~
5             subclasses are: ~:S.  The class precedence list is:~%~S~%~             subclasses are: ~:S.  The class precedence list is:~%~S~%~
6             There are ~D methods specialized for this class." lisp::nil (pcl::method-call lisp::function) "~&~S is a ~S.~%" "You can also call it~@[ ~{~S~^, ~} or~] ~S.~%" :inherited "It has ~D internal and ~D external symbols (~D total).~%" "It uses the packages ~{~S~^, ~}.~%" "It is used by the packages ~{~S~^, ~}.~%" pcl::traced-method lisp::standard-class (lisp::method) :name lisp::method :readers :writers :initargs (:method) lisp::function (pcl::method-function) (:function) :initfunction lisp::generic-function (pcl::method-generic-function) ((lisp::setf pcl::method-generic-function)) (:initform lisp::nil) (pcl::method-generic-function) lisp::nil pcl::..slot-unbound.. lisp::nil lisp::nil lisp::nil :method :function pcl::*traced-methods* "~S is not a traced method?" slot-accessor-name::|LISP METHOD slot READER| lisp::untrace lisp::trace pcl::undefmethod-1 lisp::quote pcl::load-defgeneric pcl::describe-package pcl::class-of pcl::slots-to-inspect pcl::slot-definition-name pcl::slot-definition-allocation :instance :class pcl::slot-value-or-default pcl::class-slots pcl::generic-function-pretty-arglist pcl::generic-function-methods pcl::method-qualifiers pcl::unparse-specializers pcl::method-fast-function pcl::method-function system::structure-subtype-p pcl::cclosure-env-nthcdr pcl::%cclosure-env-nthcdr system::typecase-error-string pcl::class-name pcl::find-class pcl::class-direct-superclasses pcl::class-direct-subclasses pcl::class-precedence-list pcl::specializer-direct-methods system::package-size pcl::false pcl::load-defclass pcl::method-lambda-list pcl::method-specializers pcl::accessor-method-slot-name pcl::parse-method-or-spec pcl::trace-method-internal pcl::make-instance pcl::remove-method pcl::add-method pcl::method-generic-function pcl::%fboundp pcl::no-slot lisp::remove (system::%init . #((pcl::proclaim-defgeneric (lisp::quote pcl::describe-object) (lisp::quote #0#)) (system::mf (lisp::quote #1=#:|(DEFGENERIC DESCRIBE-OBJECT)9122|) 0) (#1#) (system::mf (lisp::quote pcl::pcl-describe) 1) (pcl::proclaim-defgeneric (lisp::quote pcl::describe-object) (lisp::quote (lisp::object lisp::stream))) (system::mf (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (T T))|) 2) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::describe-object) (lisp::quote lisp::nil) (lisp::quote (lisp::t lisp::t)) (lisp::quote (lisp::object lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD DESCRIBE-OBJECT (T T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::redefine-function (lisp::quote lisp::describe) (lisp::quote pcl::pcl-describe)) (pcl::proclaim-defgeneric (lisp::quote pcl::describe-object) (lisp::quote ((lisp::object pcl::slot-object) lisp::stream))) (system::mf (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|) 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::describe-object) (lisp::quote lisp::nil) (lisp::quote (pcl::slot-object lisp::t)) (lisp::quote (lisp::object lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slots-to-inspect) (lisp::quote ((lisp::class pcl::slot-class) (lisp::object pcl::slot-object)))) (system::mf (lisp::quote pcl::|(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|) 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slots-to-inspect) (lisp::quote lisp::nil) (lisp::quote (pcl::slot-class pcl::slot-object)) (lisp::quote (lisp::class lisp::object)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (system::*make-special (lisp::quote pcl::*describe-metaobjects-as-objects-p*)) (lisp::or (lisp::boundp (lisp::quote pcl::*describe-metaobjects-as-objects-p*)) (lisp::setq pcl::*describe-metaobjects-as-objects-p* lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::describe-object) (lisp::quote ((pcl::fun lisp::standard-generic-function) lisp::stream))) (system::setvv 17 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T))|) 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::describe-object) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-generic-function lisp::t)) (lisp::quote (pcl::fun lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::describe-object) (lisp::quote ((lisp::class lisp::class) lisp::stream))) (system::setvv 29 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (CLASS T))|) 6) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::describe-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 DESCRIBE-OBJECT (CLASS T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mfsfun (lisp::quote pcl::describe-package) 7 2) (system::mf (lisp::quote #2=#:|Defclass TRACED-METHOD9243|) 8) (#2#) (pcl::proclaim-defgeneric (lisp::quote pcl::method-lambda-list) (lisp::quote ((pcl::m pcl::traced-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (lisp::method)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 55 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|) 9) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::method-lambda-list) (lisp::quote lisp::nil) (lisp::quote (pcl::traced-method)) (lisp::quote (pcl::m)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil lisp::method)) :pv-table-symbol #3=#:|pv-table|)))) (lisp::quote #3#)) (pcl::proclaim-defgeneric (lisp::quote pcl::method-specializers) (lisp::quote ((pcl::m pcl::traced-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (lisp::method)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 57 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|) 10) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::method-specializers) (lisp::quote lisp::nil) (lisp::quote (pcl::traced-method)) (lisp::quote (pcl::m)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil lisp::method)) :pv-table-symbol #4=#:|pv-table|)))) (lisp::quote #4#)) (pcl::proclaim-defgeneric (lisp::quote pcl::method-qualifiers) (lisp::quote ((pcl::m pcl::traced-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (lisp::method)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 58 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|) 11) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::method-qualifiers) (lisp::quote lisp::nil) (lisp::quote (pcl::traced-method)) (lisp::quote (pcl::m)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil lisp::method)) :pv-table-symbol #5=#:|pv-table|)))) (lisp::quote #5#)) (pcl::proclaim-defgeneric (lisp::quote pcl::accessor-method-slot-name) (lisp::quote ((pcl::m pcl::traced-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (lisp::method)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 59 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))|) 12) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::accessor-method-slot-name) (lisp::quote lisp::nil) (lisp::quote (pcl::traced-method)) (lisp::quote (pcl::m)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil lisp::method)) :pv-table-symbol #6=#:|pv-table|)))) (lisp::quote #6#)) (system::*make-special (lisp::quote pcl::*traced-methods*)) (lisp::or (lisp::boundp (lisp::quote pcl::*traced-methods*)) (lisp::setq pcl::*traced-methods* lisp::nil)) (system::mfvfun (lisp::quote pcl::trace-method) 13 16385) (system::mf (lisp::quote pcl::untrace-method) 14) (system::mfsfun (lisp::quote pcl::trace-method-internal) 15 3) (system::mm (lisp::quote pcl::undefmethod) 16) (system::mfsfun (lisp::quote pcl::undefmethod-1) 17 1) (lisp::let* ((#7=#:g9314 :pcl)) (lisp::setq lisp::*features* (lisp::adjoin #7# lisp::*features*))) (lisp::let* ((#8=#:g9315 :portable-commonloops)) (lisp::setq lisp::*features* (lisp::adjoin #8# lisp::*features*))) (lisp::let* ((#9=#:g9316 :pcl-structures)) (lisp::setq lisp::*features* (lisp::adjoin #9# lisp::*features*))) (system::debug (lisp::quote pcl::pcl-describe) (lisp::quote (lisp::object))) (system::debug (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (T T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::object lisp::stream))) (system::debug (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::object lisp::stream lisp::class pcl::slotds pcl::max-slot-name-length pcl::slotd pcl::slotd))) (system::debug (lisp::quote pcl::|(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class lisp::object))) (system::debug (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::fun lisp::stream #:g9186 pcl::meth))) (system::debug (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (CLASS T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class lisp::stream))) (system::debug (lisp::quote pcl::describe-package) (lisp::quote (#:g9225 #:g9230 #:g9241))) (system::debug (lisp::quote pcl::|(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::m))) (system::debug (lisp::quote pcl::|(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::m))) (system::debug (lisp::quote pcl::|(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::m))) (system::debug (lisp::quote pcl::|(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::m))) (system::debug (lisp::quote pcl::trace-method) (lisp::quote (pcl::spec pcl::options))) (system::debug (lisp::quote pcl::untrace-method) (lisp::quote (pcl::spec pcl::m))))))             There are ~D methods specialized for this class." lisp::nil (pcl::method-call lisp::function) "~&~S is a ~S.~%" "You can also call it~@[ ~{~S~^, ~} or~] ~S.~%" :package-error "Cannot coerce ~S to a package~%" :inherited "It has ~D internal and ~D external symbols (~D total).~%" "It uses the packages ~{~S~^, ~}.~%" "It is used by the packages ~{~S~^, ~}.~%" pcl::traced-method lisp::standard-class (lisp::method) :name lisp::method :readers :writers :initargs (:method) lisp::function (pcl::method-function) (:function) :initfunction lisp::generic-function (pcl::method-generic-function) ((lisp::setf pcl::method-generic-function)) (:initform lisp::nil) (pcl::method-generic-function) lisp::nil pcl::..slot-unbound.. lisp::nil lisp::nil lisp::nil :method :function pcl::*traced-methods* "~S is not a traced method?" slot-accessor-name::|LISP METHOD slot READER| lisp::untrace lisp::trace pcl::undefmethod-1 lisp::quote pcl::load-defgeneric pcl::describe-package pcl::class-of pcl::slots-to-inspect pcl::slot-definition-name pcl::slot-definition-allocation :instance :class pcl::slot-value-or-default pcl::class-slots pcl::generic-function-pretty-arglist pcl::generic-function-methods pcl::method-qualifiers pcl::unparse-specializers pcl::method-fast-function pcl::method-function system::structure-subtype-p pcl::cclosure-env-nthcdr pcl::%cclosure-env-nthcdr system::typecase-error-string pcl::class-name pcl::find-class pcl::class-direct-superclasses pcl::class-direct-subclasses pcl::class-precedence-list pcl::specializer-direct-methods lisp::specific-error system::package-size pcl::false pcl::load-defclass pcl::method-lambda-list pcl::method-specializers pcl::accessor-method-slot-name pcl::parse-method-or-spec pcl::trace-method-internal pcl::make-instance pcl::remove-method pcl::add-method pcl::method-generic-function pcl::%fboundp pcl::no-slot lisp::remove (system::%init . #((pcl::proclaim-defgeneric (lisp::quote pcl::describe-object) (lisp::quote #0#)) (system::mf (lisp::quote #1=#:|(DEFGENERIC DESCRIBE-OBJECT)9136|) 0) (#1#) (system::mf (lisp::quote pcl::pcl-describe) 1) (pcl::proclaim-defgeneric (lisp::quote pcl::describe-object) (lisp::quote (lisp::object lisp::stream))) (system::mf (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (T T))|) 2) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::describe-object) (lisp::quote lisp::nil) (lisp::quote (lisp::t lisp::t)) (lisp::quote (lisp::object lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD DESCRIBE-OBJECT (T T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::redefine-function (lisp::quote lisp::describe) (lisp::quote pcl::pcl-describe)) (pcl::proclaim-defgeneric (lisp::quote pcl::describe-object) (lisp::quote ((lisp::object pcl::slot-object) lisp::stream))) (system::mf (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|) 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::describe-object) (lisp::quote lisp::nil) (lisp::quote (pcl::slot-object lisp::t)) (lisp::quote (lisp::object lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slots-to-inspect) (lisp::quote ((lisp::class pcl::slot-class) (lisp::object pcl::slot-object)))) (system::mf (lisp::quote pcl::|(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|) 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slots-to-inspect) (lisp::quote lisp::nil) (lisp::quote (pcl::slot-class pcl::slot-object)) (lisp::quote (lisp::class lisp::object)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (system::*make-special (lisp::quote pcl::*describe-metaobjects-as-objects-p*)) (lisp::or (lisp::boundp (lisp::quote pcl::*describe-metaobjects-as-objects-p*)) (lisp::setq pcl::*describe-metaobjects-as-objects-p* lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::describe-object) (lisp::quote ((pcl::fun lisp::standard-generic-function) lisp::stream))) (system::setvv 17 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T))|) 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::describe-object) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-generic-function lisp::t)) (lisp::quote (pcl::fun lisp::stream)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::describe-object) (lisp::quote ((lisp::class lisp::class) lisp::stream))) (system::setvv 29 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (CLASS T))|) 6) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::describe-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 DESCRIBE-OBJECT (CLASS T))|) (lisp::quote (:plist (:arg-info (2) :needs-next-methods-p lisp::t)))) (lisp::quote lisp::nil)) (system::mfsfun (lisp::quote pcl::describe-package) 7 2) (system::mf (lisp::quote #2=#:|Defclass TRACED-METHOD9257|) 8) (#2#) (pcl::proclaim-defgeneric (lisp::quote pcl::method-lambda-list) (lisp::quote ((pcl::m pcl::traced-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (lisp::method)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 57 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|) 9) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::method-lambda-list) (lisp::quote lisp::nil) (lisp::quote (pcl::traced-method)) (lisp::quote (pcl::m)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil lisp::method)) :pv-table-symbol #3=#:|pv-table|)))) (lisp::quote #3#)) (pcl::proclaim-defgeneric (lisp::quote pcl::method-specializers) (lisp::quote ((pcl::m pcl::traced-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (lisp::method)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 59 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|) 10) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::method-specializers) (lisp::quote lisp::nil) (lisp::quote (pcl::traced-method)) (lisp::quote (pcl::m)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil lisp::method)) :pv-table-symbol #4=#:|pv-table|)))) (lisp::quote #4#)) (pcl::proclaim-defgeneric (lisp::quote pcl::method-qualifiers) (lisp::quote ((pcl::m pcl::traced-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (lisp::method)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 60 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|) 11) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::method-qualifiers) (lisp::quote lisp::nil) (lisp::quote (pcl::traced-method)) (lisp::quote (pcl::m)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil lisp::method)) :pv-table-symbol #5=#:|pv-table|)))) (lisp::quote #5#)) (pcl::proclaim-defgeneric (lisp::quote pcl::accessor-method-slot-name) (lisp::quote ((pcl::m pcl::traced-method)))) (pcl::initialize-internal-slot-gfs* (lisp::quote (lisp::method)) (lisp::quote lisp::nil) (lisp::quote lisp::nil)) (system::setvv 61 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))|) 12) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::accessor-method-slot-name) (lisp::quote lisp::nil) (lisp::quote (pcl::traced-method)) (lisp::quote (pcl::m)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))|) (lisp::quote (:plist (:arg-info (1) :slot-name-lists ((lisp::nil lisp::method)) :pv-table-symbol #6=#:|pv-table|)))) (lisp::quote #6#)) (system::*make-special (lisp::quote pcl::*traced-methods*)) (lisp::or (lisp::boundp (lisp::quote pcl::*traced-methods*)) (lisp::setq pcl::*traced-methods* lisp::nil)) (system::mfvfun (lisp::quote pcl::trace-method) 13 16385) (system::mf (lisp::quote pcl::untrace-method) 14) (system::mfsfun (lisp::quote pcl::trace-method-internal) 15 3) (system::mm (lisp::quote pcl::undefmethod) 16) (system::mfsfun (lisp::quote pcl::undefmethod-1) 17 1) (lisp::let* ((#7=#:g9328 :pcl)) (lisp::setq lisp::*features* (lisp::adjoin #7# lisp::*features*))) (lisp::let* ((#8=#:g9329 :portable-commonloops)) (lisp::setq lisp::*features* (lisp::adjoin #8# lisp::*features*))) (lisp::let* ((#9=#:g9330 :pcl-structures)) (lisp::setq lisp::*features* (lisp::adjoin #9# lisp::*features*))) (system::debug (lisp::quote pcl::pcl-describe) (lisp::quote (lisp::object))) (system::debug (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (T T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::object lisp::stream))) (system::debug (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::object lisp::stream lisp::class pcl::slotds pcl::max-slot-name-length pcl::slotd pcl::slotd))) (system::debug (lisp::quote pcl::|(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class lisp::object))) (system::debug (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::fun lisp::stream #:g9200 pcl::meth))) (system::debug (lisp::quote pcl::|(FAST-METHOD DESCRIBE-OBJECT (CLASS T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class lisp::stream))) (system::debug (lisp::quote pcl::describe-package) (lisp::quote (#:g9252 #:g9244))) (system::debug (lisp::quote pcl::|(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::m))) (system::debug (lisp::quote pcl::|(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::m))) (system::debug (lisp::quote pcl::|(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::m))) (system::debug (lisp::quote pcl::|(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::m))) (system::debug (lisp::quote pcl::trace-method) (lisp::quote (pcl::spec pcl::options))) (system::debug (lisp::quote pcl::untrace-method) (lisp::quote (pcl::spec pcl::m))))))
7  )  )

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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