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

Diff of /gcl/pcl/pcl_slots.data

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

revision 1.1 by camm, Wed Feb 26 22:21:42 2003 UTC revision 1.2 by camm, Tue Jul 15 18:03:39 2003 UTC
# Line 5  Line 5 
5                             so it can't be read by the default ~s method." pcl::slot-value-using-class lisp::nil "What kind of instance is this?" "The slot ~s has neither :instance nor :class allocation, ~@                             so it can't be read by the default ~s method." pcl::slot-value-using-class lisp::nil "What kind of instance is this?" "The slot ~s has neither :instance nor :class allocation, ~@
6                             so it can't be written by the default ~s method." (lisp::setf pcl::slot-value-using-class) lisp::nil "What kind of instance is this?" "The slot ~s has neither :instance nor :class allocation, ~@                             so it can't be written by the default ~s method." (lisp::setf pcl::slot-value-using-class) lisp::nil "What kind of instance is this?" "The slot ~s has neither :instance nor :class allocation, ~@
7                             so it can't be read by the default ~s method." pcl::slot-boundp-using-class lisp::nil "What kind of instance is this?" "The slot ~s has neither :instance nor :class allocation, ~@                             so it can't be read by the default ~s method." pcl::slot-boundp-using-class lisp::nil "What kind of instance is this?" "The slot ~s has neither :instance nor :class allocation, ~@
8                             so it can't be written by the default ~s method." pcl::slot-makunbound-using-class "Structure slots can't be unbound" "When attempting to ~A,~%the slot ~S is missing from the object ~S." "read the slot's value (slot-value)" "set the slot's value to ~S (setf of slot-value)" "test to see if slot is bound (slot-boundp)" "make the slot unbound (slot-makunbound)" "The slot ~S is unbound in the object ~S." lisp::position (lisp::fixnum lisp::cons) "Can't allocate an instance of class ~S" pcl::cclosure-env-nthcdr pcl::%cclosure-env-nthcdr pcl::slot-missing pcl::slot-unbound pcl::class-wrapper pcl::class-prototype pcl::get-class-slot-value-1 pcl::set-class-slot-value-1 pcl::class-slots pcl::slot-definition-name pcl::class-of pcl::find-slot-definition pcl::|SETF PCL SLOT-VALUE-USING-CLASS| pcl::slot-definition-location pcl::check-wrapper-validity pcl::slot-definition-internal-reader-function pcl::slot-definition-internal-writer-function pcl::wrapper-of system::typecase-error-string pcl::class-finalized-p pcl::finalize-inheritance pcl::class-defstruct-constructor pcl::class-name (system::%init . #((pcl::proclaim-defgeneric (lisp::quote pcl::wrapper-fetcher) (lisp::quote ((lisp::class lisp::standard-class)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|) 0 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::wrapper-fetcher) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-class)) (lisp::quote (lisp::class)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|) (lisp::quote (:plist (:arg-info (1) :constant-value pcl::std-instance-wrapper)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slots-fetcher) (lisp::quote ((lisp::class lisp::standard-class)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|) 1 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slots-fetcher) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-class)) (lisp::quote (lisp::class)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|) (lisp::quote (:plist (:arg-info (1) :constant-value pcl::std-instance-slots)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::raw-instance-allocator) (lisp::quote ((lisp::class lisp::standard-class)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|) 2 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::raw-instance-allocator) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-class)) (lisp::quote (lisp::class)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|) (lisp::quote (:plist (:arg-info (1) :constant-value pcl::allocate-standard-instance)))) (lisp::quote lisp::nil)) (system::setvv 3 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::set-wrapper) 3 2) (system::setvv 7 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::swap-wrappers-and-slots) 4 2) (system::mf (lisp::quote pcl::get-class-slot-value-1) 5) (system::mf (lisp::quote pcl::set-class-slot-value-1) 6) (pcl::proclaim-defgeneric (lisp::quote pcl::class-slot-value) (lisp::quote ((lisp::class pcl::std-class) pcl::slot-name))) (system::mf (lisp::quote pcl::|(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T))|) 7) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::class-slot-value) (lisp::quote lisp::nil) (lisp::quote (pcl::std-class lisp::t)) (lisp::quote (lisp::class pcl::slot-name)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote #0=(lisp::setf pcl::class-slot-value)) (lisp::quote (pcl::nv (lisp::class pcl::std-class) pcl::slot-name))) (system::mf (lisp::quote pcl::|(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|) 8) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote #0#) (lisp::quote lisp::nil) (lisp::quote (lisp::t pcl::std-class lisp::t)) (lisp::quote (pcl::nv lisp::class pcl::slot-name)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (system::mfsfun (lisp::quote pcl::find-slot-definition) 9 2) (system::mf (lisp::quote pcl::slot-value) 10) (lisp::let ((#1=#:g5984 (lisp::quote pcl::slot-value-normal))) (pcl::|SETF PCL GDEFINITION| (lisp::function pcl::slot-value) #1#)) (system::putprop (lisp::quote pcl::slot-value) (lisp::caddr (system::defmacro* (lisp::quote pcl::slot-value) (lisp::quote (pcl::object-form pcl::slot-name-form)) (lisp::quote ((lisp::if (lisp::and (lisp::constantp pcl::slot-name-form) (lisp::let ((pcl::slot-name (lisp::eval pcl::slot-name-form))) (lisp::and (lisp::symbolp pcl::slot-name) (lisp::symbol-package pcl::slot-name)))) (lisp::list (lisp::quote pcl::accessor-slot-value) pcl::object-form pcl::slot-name-form) (lisp::list (lisp::quote pcl::slot-value-normal) pcl::object-form pcl::slot-name-form)))))) #2=(lisp::quote compiler::compiler-macro)) (system::mf (lisp::quote pcl::set-slot-value) 11) (lisp::let ((#3=#:g5988 (lisp::quote pcl::set-slot-value-normal))) (pcl::|SETF PCL GDEFINITION| (lisp::function pcl::set-slot-value) #3#)) (system::putprop (lisp::quote pcl::set-slot-value) (lisp::caddr (system::defmacro* (lisp::quote pcl::set-slot-value) (lisp::quote (pcl::object-form pcl::slot-name-form pcl::new-value-form)) (lisp::quote ((lisp::if (lisp::and (lisp::constantp pcl::slot-name-form) (lisp::let ((pcl::slot-name (lisp::eval pcl::slot-name-form))) (lisp::and (lisp::symbolp pcl::slot-name) (lisp::symbol-package pcl::slot-name)))) (lisp::list (lisp::quote pcl::accessor-set-slot-value) pcl::object-form pcl::slot-name-form pcl::new-value-form) (lisp::list (lisp::quote pcl::set-slot-value-normal) pcl::object-form pcl::slot-name-form pcl::new-value-form)))))) #2#) (system::*make-constant (lisp::quote pcl::*optimize-slot-boundp*) lisp::nil) (system::mf (lisp::quote pcl::slot-boundp) 12) (lisp::let ((#4=#:g5989 (lisp::quote pcl::slot-boundp-normal))) (pcl::|SETF PCL GDEFINITION| (lisp::function pcl::slot-boundp) #4#)) (system::putprop (lisp::quote pcl::slot-boundp) (lisp::caddr (system::defmacro* (lisp::quote pcl::slot-boundp) (lisp::quote (pcl::object-form pcl::slot-name-form)) (lisp::quote ((lisp::if (lisp::and (lisp::constantp pcl::slot-name-form) (lisp::let ((pcl::slot-name (lisp::eval pcl::slot-name-form))) (lisp::and (lisp::symbolp pcl::slot-name) (lisp::symbol-package pcl::slot-name)))) (lisp::list (lisp::quote pcl::accessor-slot-boundp) pcl::object-form pcl::slot-name-form) (lisp::list (lisp::quote pcl::slot-boundp-normal) pcl::object-form pcl::slot-name-form)))))) #2#) (system::mf (lisp::quote pcl::slot-makunbound) 13) (system::mfsfun (lisp::quote pcl::slot-exists-p) 14 2) (system::mf (lisp::quote pcl::slot-value-or-default) 15) (system::mfsfun (lisp::quote pcl::standard-instance-access) 16 2) (system::mfsfun (lisp::quote pcl::funcallable-standard-instance-access) 17 2) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-value-using-class) (lisp::quote ((lisp::class pcl::std-class) (lisp::object lisp::standard-object) (pcl::slotd pcl::standard-effective-slot-definition)))) (system::setvv 15 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) 18) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-value-using-class) (lisp::quote lisp::nil) (lisp::quote (pcl::std-class lisp::standard-object pcl::standard-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote #5=(lisp::setf pcl::slot-value-using-class)) (lisp::quote (pcl::new-value (lisp::class pcl::std-class) (lisp::object lisp::standard-object) (pcl::slotd pcl::standard-effective-slot-definition)))) (system::setvv 19 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) 19 6) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote #5#) (lisp::quote lisp::nil) (lisp::quote (lisp::t pcl::std-class lisp::standard-object pcl::standard-effective-slot-definition)) (lisp::quote (pcl::new-value lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (4))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-boundp-using-class) (lisp::quote ((lisp::class pcl::std-class) (lisp::object lisp::standard-object) (pcl::slotd pcl::standard-effective-slot-definition)))) (system::setvv 23 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) 20 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-boundp-using-class) (lisp::quote lisp::nil) (lisp::quote (pcl::std-class lisp::standard-object pcl::standard-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-makunbound-using-class) (lisp::quote ((lisp::class pcl::std-class) (lisp::object lisp::standard-object) (pcl::slotd pcl::standard-effective-slot-definition)))) (system::setvv 27 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) 21 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-makunbound-using-class) (lisp::quote lisp::nil) (lisp::quote (pcl::std-class lisp::standard-object pcl::standard-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-value-using-class) (lisp::quote ((lisp::class lisp::structure-class) (lisp::object lisp::structure-object) (pcl::slotd pcl::structure-effective-slot-definition)))) (system::mf (lisp::quote pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) 22) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-value-using-class) (lisp::quote lisp::nil) (lisp::quote (lisp::structure-class lisp::structure-object pcl::structure-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote #6=(lisp::setf pcl::slot-value-using-class)) (lisp::quote (pcl::new-value (lisp::class lisp::structure-class) (lisp::object lisp::structure-object) (pcl::slotd pcl::structure-effective-slot-definition)))) (system::mf (lisp::quote pcl::|(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) 23) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote #6#) (lisp::quote lisp::nil) (lisp::quote (lisp::t lisp::structure-class lisp::structure-object pcl::structure-effective-slot-definition)) (lisp::quote (pcl::new-value lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (4))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-boundp-using-class) (lisp::quote ((lisp::class lisp::structure-class) (lisp::object lisp::structure-object) (pcl::slotd pcl::structure-effective-slot-definition)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) 24 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-boundp-using-class) (lisp::quote lisp::nil) (lisp::quote (lisp::structure-class lisp::structure-object pcl::structure-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3) :constant-value lisp::t)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-makunbound-using-class) (lisp::quote ((lisp::class lisp::structure-class) (lisp::object lisp::structure-object) (pcl::slotd pcl::structure-effective-slot-definition)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) 25 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-makunbound-using-class) (lisp::quote lisp::nil) (lisp::quote (lisp::structure-class lisp::structure-object pcl::structure-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-missing) (lisp::quote ((lisp::class lisp::t) pcl::instance pcl::slot-name pcl::operation lisp::&optional pcl::new-value))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-MISSING (T T T T))|) 26 7) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-missing) (lisp::quote lisp::nil) (lisp::quote (lisp::t lisp::t lisp::t lisp::t)) (lisp::quote (lisp::class pcl::instance pcl::slot-name pcl::operation lisp::&optional pcl::new-value)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-MISSING (T T T T))|) (lisp::quote (:plist (:arg-info (4 . lisp::t))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-unbound) (lisp::quote ((lisp::class lisp::t) pcl::instance pcl::slot-name))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-UNBOUND (T T T))|) 27 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-unbound) (lisp::quote lisp::nil) (lisp::quote (lisp::t lisp::t lisp::t)) (lisp::quote (lisp::class pcl::instance pcl::slot-name)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-UNBOUND (T T T))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (system::mf (lisp::quote pcl::slot-unbound-internal) 28) (pcl::proclaim-defgeneric (lisp::quote pcl::allocate-instance) (lisp::quote ((lisp::class lisp::standard-class) lisp::&rest pcl::initargs))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))|) 29 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::allocate-instance) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-class)) (lisp::quote (lisp::class lisp::&rest pcl::initargs)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))|) (lisp::quote (:plist (:arg-info (1 . lisp::t))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::allocate-instance) (lisp::quote ((lisp::class lisp::structure-class) lisp::&rest pcl::initargs))) (system::mf (lisp::quote pcl::|(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|) 30) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::allocate-instance) (lisp::quote lisp::nil) (lisp::quote (lisp::structure-class)) (lisp::quote (lisp::class lisp::&rest pcl::initargs)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|) (lisp::quote (:plist (:arg-info (1 . lisp::t))))) (lisp::quote lisp::nil)) (system::debug (lisp::quote pcl::set-wrapper) (lisp::quote (#:g5943))) (system::debug (lisp::quote pcl::swap-wrappers-and-slots) (lisp::quote (#:g5952 #:g5953))) (system::debug (lisp::quote pcl::get-class-slot-value-1) (lisp::quote (lisp::object pcl::wrapper pcl::slot-name))) (system::debug (lisp::quote pcl::set-class-slot-value-1) (lisp::quote (pcl::new-value lisp::object pcl::wrapper pcl::slot-name))) (system::debug (lisp::quote pcl::|(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class pcl::slot-name))) (system::debug (lisp::quote pcl::|(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::nv lisp::class pcl::slot-name))) (system::debug (lisp::quote pcl::find-slot-definition) (lisp::quote (#:g5982 pcl::slot))) (system::debug (lisp::quote pcl::slot-value) (lisp::quote (lisp::object pcl::slot-name lisp::class pcl::slot-definition))) (system::debug (lisp::quote pcl::set-slot-value) (lisp::quote (lisp::object pcl::slot-name pcl::new-value lisp::class pcl::slot-definition))) (system::debug (lisp::quote pcl::slot-boundp) (lisp::quote (lisp::object pcl::slot-name lisp::class pcl::slot-definition))) (system::debug (lisp::quote pcl::slot-makunbound) (lisp::quote (lisp::object pcl::slot-name lisp::class pcl::slot-definition))) (system::debug (lisp::quote pcl::slot-value-or-default) (lisp::quote (lisp::object pcl::slot-name pcl::default))) (system::debug (lisp::quote pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class lisp::object pcl::slotd pcl::location pcl::value))) (system::debug (lisp::quote pcl::|(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (pcl::location pcl::value))) (system::debug (lisp::quote pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class lisp::object pcl::slotd lisp::function pcl::value))) (system::debug (lisp::quote pcl::|(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::new-value lisp::class lisp::object pcl::slotd))) (system::debug (lisp::quote pcl::|(FAST-METHOD SLOT-MISSING (T T T T))|) (lisp::quote (pcl::new-value))) (system::debug (lisp::quote pcl::slot-unbound-internal) (lisp::quote (pcl::instance lisp::position))) (system::debug (lisp::quote pcl::|(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class pcl::.rest-arg.))))))                             so it can't be written by the default ~s method." pcl::slot-makunbound-using-class "Structure slots can't be unbound" "When attempting to ~A,~%the slot ~S is missing from the object ~S." "read the slot's value (slot-value)" "set the slot's value to ~S (setf of slot-value)" "test to see if slot is bound (slot-boundp)" "make the slot unbound (slot-makunbound)" "The slot ~S is unbound in the object ~S." lisp::position (lisp::fixnum lisp::cons) "Can't allocate an instance of class ~S" pcl::cclosure-env-nthcdr pcl::%cclosure-env-nthcdr pcl::slot-missing pcl::slot-unbound pcl::class-wrapper pcl::class-prototype pcl::get-class-slot-value-1 pcl::set-class-slot-value-1 pcl::class-slots pcl::slot-definition-name pcl::class-of pcl::find-slot-definition pcl::|SETF PCL SLOT-VALUE-USING-CLASS| pcl::slot-definition-location pcl::check-wrapper-validity pcl::slot-definition-internal-reader-function pcl::slot-definition-internal-writer-function pcl::wrapper-of system::typecase-error-string pcl::class-finalized-p pcl::finalize-inheritance pcl::class-defstruct-constructor pcl::class-name (system::%init . #((pcl::proclaim-defgeneric (lisp::quote pcl::wrapper-fetcher) (lisp::quote ((lisp::class lisp::standard-class)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|) 0 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::wrapper-fetcher) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-class)) (lisp::quote (lisp::class)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|) (lisp::quote (:plist (:arg-info (1) :constant-value pcl::std-instance-wrapper)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slots-fetcher) (lisp::quote ((lisp::class lisp::standard-class)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|) 1 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slots-fetcher) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-class)) (lisp::quote (lisp::class)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|) (lisp::quote (:plist (:arg-info (1) :constant-value pcl::std-instance-slots)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::raw-instance-allocator) (lisp::quote ((lisp::class lisp::standard-class)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|) 2 3) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::raw-instance-allocator) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-class)) (lisp::quote (lisp::class)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|) (lisp::quote (:plist (:arg-info (1) :constant-value pcl::allocate-standard-instance)))) (lisp::quote lisp::nil)) (system::setvv 3 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::set-wrapper) 3 2) (system::setvv 7 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::swap-wrappers-and-slots) 4 2) (system::mf (lisp::quote pcl::get-class-slot-value-1) 5) (system::mf (lisp::quote pcl::set-class-slot-value-1) 6) (pcl::proclaim-defgeneric (lisp::quote pcl::class-slot-value) (lisp::quote ((lisp::class pcl::std-class) pcl::slot-name))) (system::mf (lisp::quote pcl::|(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T))|) 7) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::class-slot-value) (lisp::quote lisp::nil) (lisp::quote (pcl::std-class lisp::t)) (lisp::quote (lisp::class pcl::slot-name)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T))|) (lisp::quote (:plist (:arg-info (2))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote #0=(lisp::setf pcl::class-slot-value)) (lisp::quote (pcl::nv (lisp::class pcl::std-class) pcl::slot-name))) (system::mf (lisp::quote pcl::|(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|) 8) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote #0#) (lisp::quote lisp::nil) (lisp::quote (lisp::t pcl::std-class lisp::t)) (lisp::quote (pcl::nv lisp::class pcl::slot-name)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (system::mfsfun (lisp::quote pcl::find-slot-definition) 9 2) (system::mf (lisp::quote pcl::slot-value) 10) (lisp::let ((#1=#:g5985 (lisp::quote pcl::slot-value-normal))) (pcl::|SETF PCL GDEFINITION| (lisp::function pcl::slot-value) #1#)) (system::putprop (lisp::quote pcl::slot-value) (lisp::caddr (system::defmacro* (lisp::quote pcl::slot-value) (lisp::quote (pcl::object-form pcl::slot-name-form)) (lisp::quote ((lisp::if (lisp::and (lisp::constantp pcl::slot-name-form) (lisp::let ((pcl::slot-name (lisp::eval pcl::slot-name-form))) (lisp::and (lisp::symbolp pcl::slot-name) (lisp::symbol-package pcl::slot-name)))) (lisp::list (lisp::quote pcl::accessor-slot-value) pcl::object-form pcl::slot-name-form) (lisp::list (lisp::quote pcl::slot-value-normal) pcl::object-form pcl::slot-name-form)))))) #2=(lisp::quote compiler::compiler-macro)) (system::mf (lisp::quote pcl::set-slot-value) 11) (lisp::let ((#3=#:g5989 (lisp::quote pcl::set-slot-value-normal))) (pcl::|SETF PCL GDEFINITION| (lisp::function pcl::set-slot-value) #3#)) (system::putprop (lisp::quote pcl::set-slot-value) (lisp::caddr (system::defmacro* (lisp::quote pcl::set-slot-value) (lisp::quote (pcl::object-form pcl::slot-name-form pcl::new-value-form)) (lisp::quote ((lisp::if (lisp::and (lisp::constantp pcl::slot-name-form) (lisp::let ((pcl::slot-name (lisp::eval pcl::slot-name-form))) (lisp::and (lisp::symbolp pcl::slot-name) (lisp::symbol-package pcl::slot-name)))) (lisp::list (lisp::quote pcl::accessor-set-slot-value) pcl::object-form pcl::slot-name-form pcl::new-value-form) (lisp::list (lisp::quote pcl::set-slot-value-normal) pcl::object-form pcl::slot-name-form pcl::new-value-form)))))) #2#) (system::*make-constant (lisp::quote pcl::*optimize-slot-boundp*) lisp::nil) (system::mf (lisp::quote pcl::slot-boundp) 12) (lisp::let ((#4=#:g5990 (lisp::quote pcl::slot-boundp-normal))) (pcl::|SETF PCL GDEFINITION| (lisp::function pcl::slot-boundp) #4#)) (system::putprop (lisp::quote pcl::slot-boundp) (lisp::caddr (system::defmacro* (lisp::quote pcl::slot-boundp) (lisp::quote (pcl::object-form pcl::slot-name-form)) (lisp::quote ((lisp::if (lisp::and (lisp::constantp pcl::slot-name-form) (lisp::let ((pcl::slot-name (lisp::eval pcl::slot-name-form))) (lisp::and (lisp::symbolp pcl::slot-name) (lisp::symbol-package pcl::slot-name)))) (lisp::list (lisp::quote pcl::accessor-slot-boundp) pcl::object-form pcl::slot-name-form) (lisp::list (lisp::quote pcl::slot-boundp-normal) pcl::object-form pcl::slot-name-form)))))) #2#) (system::mf (lisp::quote pcl::slot-makunbound) 13) (system::mfsfun (lisp::quote pcl::slot-exists-p) 14 2) (system::mf (lisp::quote pcl::slot-value-or-default) 15) (system::mfsfun (lisp::quote pcl::standard-instance-access) 16 2) (system::mfsfun (lisp::quote pcl::funcallable-standard-instance-access) 17 2) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-value-using-class) (lisp::quote ((lisp::class pcl::std-class) (lisp::object lisp::standard-object) (pcl::slotd pcl::standard-effective-slot-definition)))) (system::setvv 15 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) 18) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-value-using-class) (lisp::quote lisp::nil) (lisp::quote (pcl::std-class lisp::standard-object pcl::standard-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote #5=(lisp::setf pcl::slot-value-using-class)) (lisp::quote (pcl::new-value (lisp::class pcl::std-class) (lisp::object lisp::standard-object) (pcl::slotd pcl::standard-effective-slot-definition)))) (system::setvv 19 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) 19 6) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote #5#) (lisp::quote lisp::nil) (lisp::quote (lisp::t pcl::std-class lisp::standard-object pcl::standard-effective-slot-definition)) (lisp::quote (pcl::new-value lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (4))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-boundp-using-class) (lisp::quote ((lisp::class pcl::std-class) (lisp::object lisp::standard-object) (pcl::slotd pcl::standard-effective-slot-definition)))) (system::setvv 23 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) 20 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-boundp-using-class) (lisp::quote lisp::nil) (lisp::quote (pcl::std-class lisp::standard-object pcl::standard-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-makunbound-using-class) (lisp::quote ((lisp::class pcl::std-class) (lisp::object lisp::standard-object) (pcl::slotd pcl::standard-effective-slot-definition)))) (system::setvv 27 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) 21 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-makunbound-using-class) (lisp::quote lisp::nil) (lisp::quote (pcl::std-class lisp::standard-object pcl::standard-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-value-using-class) (lisp::quote ((lisp::class lisp::structure-class) (lisp::object lisp::structure-object) (pcl::slotd pcl::structure-effective-slot-definition)))) (system::mf (lisp::quote pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) 22) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-value-using-class) (lisp::quote lisp::nil) (lisp::quote (lisp::structure-class lisp::structure-object pcl::structure-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote #6=(lisp::setf pcl::slot-value-using-class)) (lisp::quote (pcl::new-value (lisp::class lisp::structure-class) (lisp::object lisp::structure-object) (pcl::slotd pcl::structure-effective-slot-definition)))) (system::mf (lisp::quote pcl::|(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) 23) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote #6#) (lisp::quote lisp::nil) (lisp::quote (lisp::t lisp::structure-class lisp::structure-object pcl::structure-effective-slot-definition)) (lisp::quote (pcl::new-value lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (4))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-boundp-using-class) (lisp::quote ((lisp::class lisp::structure-class) (lisp::object lisp::structure-object) (pcl::slotd pcl::structure-effective-slot-definition)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) 24 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-boundp-using-class) (lisp::quote lisp::nil) (lisp::quote (lisp::structure-class lisp::structure-object pcl::structure-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3) :constant-value lisp::t)))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-makunbound-using-class) (lisp::quote ((lisp::class lisp::structure-class) (lisp::object lisp::structure-object) (pcl::slotd pcl::structure-effective-slot-definition)))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) 25 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-makunbound-using-class) (lisp::quote lisp::nil) (lisp::quote (lisp::structure-class lisp::structure-object pcl::structure-effective-slot-definition)) (lisp::quote (lisp::class lisp::object pcl::slotd)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-missing) (lisp::quote ((lisp::class lisp::t) pcl::instance pcl::slot-name pcl::operation lisp::&optional pcl::new-value))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-MISSING (T T T T))|) 26 7) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-missing) (lisp::quote lisp::nil) (lisp::quote (lisp::t lisp::t lisp::t lisp::t)) (lisp::quote (lisp::class pcl::instance pcl::slot-name pcl::operation lisp::&optional pcl::new-value)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-MISSING (T T T T))|) (lisp::quote (:plist (:arg-info (4 . lisp::t))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::slot-unbound) (lisp::quote ((lisp::class lisp::t) pcl::instance pcl::slot-name))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD SLOT-UNBOUND (T T T))|) 27 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::slot-unbound) (lisp::quote lisp::nil) (lisp::quote (lisp::t lisp::t lisp::t)) (lisp::quote (lisp::class pcl::instance pcl::slot-name)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD SLOT-UNBOUND (T T T))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (system::mf (lisp::quote pcl::slot-unbound-internal) 28) (pcl::proclaim-defgeneric (lisp::quote pcl::allocate-instance) (lisp::quote ((lisp::class lisp::standard-class) lisp::&rest pcl::initargs))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))|) 29 4) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::allocate-instance) (lisp::quote lisp::nil) (lisp::quote (lisp::standard-class)) (lisp::quote (lisp::class lisp::&rest pcl::initargs)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))|) (lisp::quote (:plist (:arg-info (1 . lisp::t))))) (lisp::quote lisp::nil)) (pcl::proclaim-defgeneric (lisp::quote pcl::allocate-instance) (lisp::quote ((lisp::class lisp::structure-class) lisp::&rest pcl::initargs))) (system::mf (lisp::quote pcl::|(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|) 30) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::allocate-instance) (lisp::quote lisp::nil) (lisp::quote (lisp::structure-class)) (lisp::quote (lisp::class lisp::&rest pcl::initargs)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|) (lisp::quote (:plist (:arg-info (1 . lisp::t))))) (lisp::quote lisp::nil)) (system::debug (lisp::quote pcl::set-wrapper) (lisp::quote (#:g5944))) (system::debug (lisp::quote pcl::swap-wrappers-and-slots) (lisp::quote (#:g5953 #:g5954))) (system::debug (lisp::quote pcl::get-class-slot-value-1) (lisp::quote (lisp::object pcl::wrapper pcl::slot-name))) (system::debug (lisp::quote pcl::set-class-slot-value-1) (lisp::quote (pcl::new-value lisp::object pcl::wrapper pcl::slot-name))) (system::debug (lisp::quote pcl::|(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class pcl::slot-name))) (system::debug (lisp::quote pcl::|(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::nv lisp::class pcl::slot-name))) (system::debug (lisp::quote pcl::find-slot-definition) (lisp::quote (#:g5983 pcl::slot))) (system::debug (lisp::quote pcl::slot-value) (lisp::quote (lisp::object pcl::slot-name lisp::class pcl::slot-definition))) (system::debug (lisp::quote pcl::set-slot-value) (lisp::quote (lisp::object pcl::slot-name pcl::new-value lisp::class pcl::slot-definition))) (system::debug (lisp::quote pcl::slot-boundp) (lisp::quote (lisp::object pcl::slot-name lisp::class pcl::slot-definition))) (system::debug (lisp::quote pcl::slot-makunbound) (lisp::quote (lisp::object pcl::slot-name lisp::class pcl::slot-definition))) (system::debug (lisp::quote pcl::slot-value-or-default) (lisp::quote (lisp::object pcl::slot-name pcl::default))) (system::debug (lisp::quote pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class lisp::object pcl::slotd pcl::location pcl::value))) (system::debug (lisp::quote pcl::|(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (pcl::location pcl::value))) (system::debug (lisp::quote pcl::|(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class lisp::object pcl::slotd lisp::function pcl::value))) (system::debug (lisp::quote pcl::|(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. pcl::new-value lisp::class lisp::object pcl::slotd))) (system::debug (lisp::quote pcl::|(FAST-METHOD SLOT-MISSING (T T T T))|) (lisp::quote (pcl::new-value))) (system::debug (lisp::quote pcl::slot-unbound-internal) (lisp::quote (pcl::instance lisp::position))) (system::debug (lisp::quote pcl::|(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::class pcl::.rest-arg.))))))
9  )  )

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

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