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

Diff of /gcl/pcl/pcl_slots_boot.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 3  Line 3 
3  (lisp::in-package :pcl)  (lisp::in-package :pcl)
4  #(lisp::if lisp::symbolp lisp::or lisp::get lisp::quote pcl::reader-symbol pcl::writer-symbol pcl::boundp-symbol lisp::intern lisp::format "~A ~A slot ~a" lisp::symbol-package lisp::package-name "UNINTERNED" lisp::symbol-name pcl::*slot-accessor-name-package* (lisp::progn (lisp::error "non-symbol and non-interned symbol slot name accessors~  #(lisp::if lisp::symbolp lisp::or lisp::get lisp::quote pcl::reader-symbol pcl::writer-symbol pcl::boundp-symbol lisp::intern lisp::format "~A ~A slot ~a" lisp::symbol-package lisp::package-name "UNINTERNED" lisp::symbol-name pcl::*slot-accessor-name-package* (lisp::progn (lisp::error "non-symbol and non-interned symbol slot name accessors~
5                   are not yet implemented")) "READER" "non-symbol and non-interned symbol slot name accessors~                   are not yet implemented")) "READER" "non-symbol and non-interned symbol slot name accessors~
6                   are not yet implemented" "WRITER" "BOUNDP" pcl::%fboundp pcl::no-slot "No class has a slot named ~S (~s has no function binding)." "~s requires its slot-name argument to be a constant" pcl::accessor-slot-value pcl::asv-funcall pcl::reader "~s requires its slot-name argument to be a constant" pcl::accessor-set-slot-value pcl::writer lisp::let "~s requires its slot-name argument to be a constant" pcl::accessor-slot-boundp pcl::slot-boundp-normal pcl::*slot-unbound* "~S is not a standard-class" pcl::std-instance pcl::index (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) lisp::boundp "~S is not a standard-class" pcl::*funcallable-instance-marker* "not fsc" lisp::nil "not std" (lisp::fixnum lisp::cons) lisp::nil (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) pcl::fast-method-call pcl::method-call pcl::sdfun (pcl::method-call lisp::function) (pcl::method-call lisp::function) (pcl::method-call lisp::function) :method-spec pcl::internal-reader-method :fast-function lisp::nil lisp::nil "What kind of instance is this?" "The wrapper for class ~S does not have the slot ~S" (:plist (:arg-info (1))) lisp::nil lisp::nil (:plist (:arg-info (1))) lisp::nil pcl::..slot-unbound.. (:plist (:arg-info (1))) :plist :slot-name-lists :pv-table-symbol pcl::reader-method lisp::nil (:plist (:arg-info (1))) lisp::nil (:plist (:arg-info (2))) pcl::writer-method lisp::nil (:plist (:arg-info (2))) lisp::nil (:plist (:arg-info (1))) pcl::boundp-method lisp::nil (:plist (:arg-info (1))) pcl::*the-class-slot-object* pcl::slot-reader-symbol pcl::slot-writer-symbol pcl::slot-boundp-symbol pcl::slot-definition-internal-reader-function system::turbo-closure pcl::structure-class-p pcl::slot-definition-internal-writer-function pcl::make-structure-slot-boundp-function pcl::standard-class-p pcl::funcallable-standard-class-p pcl::slot-definition-name pcl::slot-definition-location pcl::make-optimized-std-reader-method-function pcl::make-optimized-std-writer-method-function pcl::make-optimized-std-boundp-method-function system::typecase-error-string pcl::set-function-name pcl::make-optimized-structure-slot-value-using-class-method-function pcl::make-optimized-structure-setf-slot-value-using-class-method-function pcl::make-optimized-structure-slot-boundp-using-class-method-function pcl::make-optimized-std-slot-value-using-class-method-function pcl::make-optimized-std-setf-slot-value-using-class-method-function pcl::make-optimized-std-slot-boundp-using-class-method-function pcl::class-name pcl::ensure-generic-function pcl::generic-function-methods pcl::add-reader-method pcl::add-writer-method pcl::initialize-internal-slot-gfs pcl::cclosure-env-nthcdr pcl::%cclosure-env-nthcdr pcl::slot-boundp pcl::set-slot-value pcl::slot-value pcl::class-of pcl::slot-unbound system::structure-subtype-p (system::%init . #((system::mm (lisp::quote pcl::slot-symbol) 0) (system::mfsfun (lisp::quote pcl::slot-reader-symbol) 1 1) (system::mfsfun (lisp::quote pcl::slot-writer-symbol) 2 1) (system::mfsfun (lisp::quote pcl::slot-boundp-symbol) 3 1) (system::mm (lisp::quote pcl::asv-funcall) 4) (system::mfsfun (lisp::quote pcl::no-slot) 5 2) (system::mm (lisp::quote pcl::accessor-slot-value) 6) (system::mm (lisp::quote pcl::accessor-set-slot-value) 7) (system::*make-constant (lisp::quote pcl::*optimize-slot-boundp*) lisp::nil) (system::mm (lisp::quote pcl::accessor-slot-boundp) 8) (system::mfsfun (lisp::quote pcl::structure-slot-boundp) 9 1) (system::mfsfun (lisp::quote pcl::make-structure-slot-boundp-function) 10 1) (system::mf (lisp::quote pcl::get-optimized-std-accessor-method-function) 11) (system::mf (lisp::quote pcl::make-optimized-std-reader-method-function) 12) (system::mf (lisp::quote pcl::make-optimized-std-writer-method-function) 13) (system::mf (lisp::quote pcl::make-optimized-std-boundp-method-function) 14) (system::mfsfun (lisp::quote pcl::make-optimized-structure-slot-value-using-class-method-function) 15 1) (system::mfsfun (lisp::quote pcl::make-optimized-structure-setf-slot-value-using-class-method-function) 16 1) (system::mfsfun (lisp::quote pcl::make-optimized-structure-slot-boundp-using-class-method-function) 17 1) (system::mf (lisp::quote pcl::get-optimized-std-slot-value-using-class-method-function) 18) (system::setvv 46 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 49 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-optimized-std-slot-value-using-class-method-function) 19 3) (system::mfsfun (lisp::quote pcl::make-optimized-std-setf-slot-value-using-class-method-function) 20 3) (system::mfsfun (lisp::quote pcl::make-optimized-std-slot-boundp-using-class-method-function) 21 3) (system::mf (lisp::quote pcl::get-accessor-from-svuc-method-function) 22) (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 69 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 70 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-internal-reader-method-function) 23 2) (system::setvv 72 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 79 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-std-reader-method-function) 24 2) (system::setvv 81 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 84 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-std-writer-method-function) 25 2) (system::setvv 86 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 89 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-std-boundp-method-function) 26 2) (system::mfvfun (lisp::quote pcl::initialize-internal-slot-gfs) 27 513) (system::mfsfun (lisp::quote pcl::initialize-internal-slot-gfs*) 28 3) (system::debug (lisp::quote pcl::make-structure-slot-boundp-function) (lisp::quote (pcl::reader pcl::fun))) (system::debug (lisp::quote pcl::get-optimized-std-accessor-method-function) (lisp::quote (lisp::class pcl::slotd pcl::name pcl::fsc-p pcl::slot-name pcl::index lisp::function pcl::value))) (system::debug (lisp::quote pcl::make-optimized-std-reader-method-function) (lisp::quote (pcl::fsc-p pcl::slot-name pcl::index))) (system::debug (lisp::quote pcl::make-optimized-std-writer-method-function) (lisp::quote (pcl::fsc-p pcl::slot-name pcl::index))) (system::debug (lisp::quote pcl::make-optimized-std-boundp-method-function) (lisp::quote (pcl::fsc-p pcl::slot-name pcl::index))) (system::debug (lisp::quote pcl::make-optimized-structure-slot-value-using-class-method-function) (lisp::quote (lisp::function))) (system::debug (lisp::quote pcl::make-optimized-structure-setf-slot-value-using-class-method-function) (lisp::quote (lisp::function))) (system::debug (lisp::quote pcl::make-optimized-structure-slot-boundp-using-class-method-function) (lisp::quote (lisp::function))) (system::debug (lisp::quote pcl::get-optimized-std-slot-value-using-class-method-function) (lisp::quote (lisp::class pcl::slotd pcl::name pcl::fsc-p pcl::slot-name pcl::index lisp::function))) (system::debug (lisp::quote pcl::make-optimized-std-slot-value-using-class-method-function) (lisp::quote (pcl::index pcl::slot-name))) (system::debug (lisp::quote pcl::make-optimized-std-setf-slot-value-using-class-method-function) (lisp::quote (pcl::index))) (system::debug (lisp::quote pcl::make-optimized-std-slot-boundp-using-class-method-function) (lisp::quote (pcl::index))) (system::debug (lisp::quote pcl::get-accessor-from-svuc-method-function) (lisp::quote (lisp::class pcl::slotd pcl::sdfun pcl::name))) (system::debug (lisp::quote pcl::make-internal-reader-method-function) (lisp::quote (pcl::slot-name))) (system::debug (lisp::quote pcl::make-std-reader-method-function) (lisp::quote (pcl::slot-name pcl::pv-table-symbol pcl::initargs #:g4689))) (system::debug (lisp::quote pcl::make-std-writer-method-function) (lisp::quote (pcl::slot-name pcl::pv-table-symbol pcl::initargs #:g4764))) (system::debug (lisp::quote pcl::make-std-boundp-method-function) (lisp::quote (pcl::slot-name pcl::pv-table-symbol pcl::initargs #:g4831))) (system::debug (lisp::quote pcl::initialize-internal-slot-gfs) (lisp::quote (pcl::slot-name lisp::type))) (system::debug (lisp::quote pcl::initialize-internal-slot-gfs*) (lisp::quote (pcl::reader))))))                   are not yet implemented" "WRITER" "BOUNDP" pcl::%fboundp pcl::no-slot "No class has a slot named ~S (~s has no function binding)." "~s requires its slot-name argument to be a constant" pcl::accessor-slot-value pcl::asv-funcall pcl::reader "~s requires its slot-name argument to be a constant" pcl::accessor-set-slot-value pcl::writer lisp::let "~s requires its slot-name argument to be a constant" pcl::accessor-slot-boundp pcl::slot-boundp-normal pcl::*slot-unbound* "~S is not a standard-class" pcl::std-instance pcl::index (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) lisp::boundp "~S is not a standard-class" pcl::*funcallable-instance-marker* "not fsc" lisp::nil "not std" (lisp::fixnum lisp::cons) lisp::nil (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) (lisp::fixnum lisp::cons) pcl::fast-method-call pcl::method-call pcl::sdfun (pcl::method-call lisp::function) (pcl::method-call lisp::function) (pcl::method-call lisp::function) :method-spec pcl::internal-reader-method :fast-function lisp::nil lisp::nil "What kind of instance is this?" "The wrapper for class ~S does not have the slot ~S" (:plist (:arg-info (1))) lisp::nil lisp::nil (:plist (:arg-info (1))) lisp::nil pcl::..slot-unbound.. (:plist (:arg-info (1))) :plist :slot-name-lists :pv-table-symbol pcl::reader-method lisp::nil (:plist (:arg-info (1))) lisp::nil (:plist (:arg-info (2))) pcl::writer-method lisp::nil (:plist (:arg-info (2))) lisp::nil (:plist (:arg-info (1))) pcl::boundp-method lisp::nil (:plist (:arg-info (1))) pcl::*the-class-slot-object* pcl::slot-reader-symbol pcl::slot-writer-symbol pcl::slot-boundp-symbol pcl::slot-definition-internal-reader-function system::turbo-closure pcl::structure-class-p pcl::slot-definition-internal-writer-function pcl::make-structure-slot-boundp-function pcl::standard-class-p pcl::funcallable-standard-class-p pcl::slot-definition-name pcl::slot-definition-location pcl::make-optimized-std-reader-method-function pcl::make-optimized-std-writer-method-function pcl::make-optimized-std-boundp-method-function system::typecase-error-string pcl::set-function-name pcl::make-optimized-structure-slot-value-using-class-method-function pcl::make-optimized-structure-setf-slot-value-using-class-method-function pcl::make-optimized-structure-slot-boundp-using-class-method-function pcl::make-optimized-std-slot-value-using-class-method-function pcl::make-optimized-std-setf-slot-value-using-class-method-function pcl::make-optimized-std-slot-boundp-using-class-method-function pcl::class-name pcl::ensure-generic-function pcl::generic-function-methods pcl::add-reader-method pcl::add-writer-method pcl::initialize-internal-slot-gfs pcl::cclosure-env-nthcdr pcl::%cclosure-env-nthcdr pcl::slot-boundp pcl::set-slot-value pcl::slot-value pcl::class-of pcl::slot-unbound system::structure-subtype-p (system::%init . #((system::mm (lisp::quote pcl::slot-symbol) 0) (system::mfsfun (lisp::quote pcl::slot-reader-symbol) 1 1) (system::mfsfun (lisp::quote pcl::slot-writer-symbol) 2 1) (system::mfsfun (lisp::quote pcl::slot-boundp-symbol) 3 1) (system::mm (lisp::quote pcl::asv-funcall) 4) (system::mfsfun (lisp::quote pcl::no-slot) 5 2) (system::mm (lisp::quote pcl::accessor-slot-value) 6) (system::mm (lisp::quote pcl::accessor-set-slot-value) 7) (system::*make-constant (lisp::quote pcl::*optimize-slot-boundp*) lisp::nil) (system::mm (lisp::quote pcl::accessor-slot-boundp) 8) (system::mfsfun (lisp::quote pcl::structure-slot-boundp) 9 1) (system::mfsfun (lisp::quote pcl::make-structure-slot-boundp-function) 10 1) (system::mf (lisp::quote pcl::get-optimized-std-accessor-method-function) 11) (system::mf (lisp::quote pcl::make-optimized-std-reader-method-function) 12) (system::mf (lisp::quote pcl::make-optimized-std-writer-method-function) 13) (system::mf (lisp::quote pcl::make-optimized-std-boundp-method-function) 14) (system::mfsfun (lisp::quote pcl::make-optimized-structure-slot-value-using-class-method-function) 15 1) (system::mfsfun (lisp::quote pcl::make-optimized-structure-setf-slot-value-using-class-method-function) 16 1) (system::mfsfun (lisp::quote pcl::make-optimized-structure-slot-boundp-using-class-method-function) 17 1) (system::mf (lisp::quote pcl::get-optimized-std-slot-value-using-class-method-function) 18) (system::setvv 46 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 49 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-optimized-std-slot-value-using-class-method-function) 19 3) (system::mfsfun (lisp::quote pcl::make-optimized-std-setf-slot-value-using-class-method-function) 20 3) (system::mfsfun (lisp::quote pcl::make-optimized-std-slot-boundp-using-class-method-function) 21 3) (system::mf (lisp::quote pcl::get-accessor-from-svuc-method-function) 22) (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 69 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 70 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-internal-reader-method-function) 23 2) (system::setvv 72 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 79 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-std-reader-method-function) 24 2) (system::setvv 81 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 84 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-std-writer-method-function) 25 2) (system::setvv 86 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 89 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-std-boundp-method-function) 26 2) (system::mfvfun (lisp::quote pcl::initialize-internal-slot-gfs) 27 513) (system::mfsfun (lisp::quote pcl::initialize-internal-slot-gfs*) 28 3) (system::debug (lisp::quote pcl::make-structure-slot-boundp-function) (lisp::quote (pcl::reader pcl::fun))) (system::debug (lisp::quote pcl::get-optimized-std-accessor-method-function) (lisp::quote (lisp::class pcl::slotd pcl::name pcl::fsc-p pcl::slot-name pcl::index lisp::function pcl::value))) (system::debug (lisp::quote pcl::make-optimized-std-reader-method-function) (lisp::quote (pcl::fsc-p pcl::slot-name pcl::index))) (system::debug (lisp::quote pcl::make-optimized-std-writer-method-function) (lisp::quote (pcl::fsc-p pcl::slot-name pcl::index))) (system::debug (lisp::quote pcl::make-optimized-std-boundp-method-function) (lisp::quote (pcl::fsc-p pcl::slot-name pcl::index))) (system::debug (lisp::quote pcl::make-optimized-structure-slot-value-using-class-method-function) (lisp::quote (lisp::function))) (system::debug (lisp::quote pcl::make-optimized-structure-setf-slot-value-using-class-method-function) (lisp::quote (lisp::function))) (system::debug (lisp::quote pcl::make-optimized-structure-slot-boundp-using-class-method-function) (lisp::quote (lisp::function))) (system::debug (lisp::quote pcl::get-optimized-std-slot-value-using-class-method-function) (lisp::quote (lisp::class pcl::slotd pcl::name pcl::fsc-p pcl::slot-name pcl::index lisp::function))) (system::debug (lisp::quote pcl::make-optimized-std-slot-value-using-class-method-function) (lisp::quote (pcl::index pcl::slot-name))) (system::debug (lisp::quote pcl::make-optimized-std-setf-slot-value-using-class-method-function) (lisp::quote (pcl::index))) (system::debug (lisp::quote pcl::make-optimized-std-slot-boundp-using-class-method-function) (lisp::quote (pcl::index))) (system::debug (lisp::quote pcl::get-accessor-from-svuc-method-function) (lisp::quote (lisp::class pcl::slotd pcl::sdfun pcl::name))) (system::debug (lisp::quote pcl::make-internal-reader-method-function) (lisp::quote (pcl::slot-name))) (system::debug (lisp::quote pcl::make-std-reader-method-function) (lisp::quote (pcl::slot-name pcl::pv-table-symbol pcl::initargs #:g4690))) (system::debug (lisp::quote pcl::make-std-writer-method-function) (lisp::quote (pcl::slot-name pcl::pv-table-symbol pcl::initargs #:g4765))) (system::debug (lisp::quote pcl::make-std-boundp-method-function) (lisp::quote (pcl::slot-name pcl::pv-table-symbol pcl::initargs #:g4832))) (system::debug (lisp::quote pcl::initialize-internal-slot-gfs) (lisp::quote (pcl::slot-name lisp::type))) (system::debug (lisp::quote pcl::initialize-internal-slot-gfs*) (lisp::quote (pcl::reader))))))
7  )  )

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