#(#! (lisp::in-package :pcl) #(lisp::if lisp::symbolp lisp::or lisp::get lisp::quote pcl::reader-symbol pcl::writer-symbol pcl::boundp-symbol conditions::case-failure :name conditions::ecase :datum :expected-type (lisp::member . #0=(pcl::reader pcl::writer lisp::boundp)) :possibilities #0# 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~ are not yet implemented")) "READER" "non-symbol and non-interned symbol slot name accessors~ 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* (lisp::member . #1=(pcl::reader pcl::writer lisp::boundp)) #1# "~S is not a standard-class" (lisp::member . #2=(pcl::reader pcl::writer lisp::boundp)) #2# pcl::std-instance conditions::etypecase (lisp::or . #3=(lisp::fixnum lisp::cons)) #3# (lisp::or . #4=(lisp::fixnum lisp::cons)) #4# (lisp::or . #5=(lisp::fixnum lisp::cons)) #5# lisp::boundp (lisp::member . #6=(pcl::reader pcl::writer lisp::boundp)) #6# "~S is not a standard-class" (lisp::member . #7=(pcl::reader pcl::writer lisp::boundp)) #7# pcl::*funcallable-instance-marker* "not fsc" lisp::nil "not std" (lisp::or . #8=(lisp::fixnum lisp::cons)) #8# lisp::nil (lisp::or . #9=(lisp::fixnum lisp::cons)) #9# (lisp::or . #10=(lisp::fixnum lisp::cons)) #10# (lisp::or . #11=(lisp::fixnum lisp::cons)) #11# (lisp::or . #12=(lisp::fixnum lisp::cons)) #12# (lisp::or . #13=(lisp::fixnum lisp::cons)) #13# pcl::fast-method-call pcl::method-call (lisp::or . #14=(pcl::method-call lisp::function)) #14# (lisp::or . #15=(pcl::method-call lisp::function)) #15# (lisp::or . #16=(pcl::method-call lisp::function)) #16# :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" lisp::nil lisp::nil (:plist (:arg-info (1))) lisp::nil lisp::nil lisp::nil lisp::nil (:plist (:arg-info (1))) lisp::nil pcl::..slot-unbound.. lisp::nil (:plist (:arg-info (1))) :plist :slot-name-lists :pv-table-symbol pcl::reader-method lisp::nil lisp::nil (:plist (:arg-info (1))) lisp::nil lisp::nil (:plist (:arg-info (2))) pcl::writer-method lisp::nil lisp::nil (:plist (:arg-info (2))) lisp::nil lisp::nil (:plist (:arg-info (1))) pcl::boundp-method lisp::nil lisp::nil (:plist (:arg-info (1))) pcl::*the-class-slot-object* conditions::error 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 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 65 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 69 (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 91 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 92 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 95 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 96 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 98 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 99 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 100 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 101 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-internal-reader-method-function) 23 2) (system::setvv 103 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 105 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 111 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 112 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-std-reader-method-function) 24 2) (system::setvv 114 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 115 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 118 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 119 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mfsfun (lisp::quote pcl::make-std-writer-method-function) 25 2) (system::setvv 121 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 122 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 125 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 126 (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 #:g4879))) (system::debug (lisp::quote pcl::make-std-writer-method-function) (lisp::quote (pcl::slot-name pcl::pv-table-symbol pcl::initargs #:g4968))) (system::debug (lisp::quote pcl::make-std-boundp-method-function) (lisp::quote (pcl::slot-name pcl::pv-table-symbol pcl::initargs #:g5045))) (system::debug (lisp::quote pcl::initialize-internal-slot-gfs) (lisp::quote (pcl::name pcl::gf))) (system::debug (lisp::quote pcl::initialize-internal-slot-gfs*) (lisp::quote (lisp::boundp)))))) )