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

Diff of /gcl/pcl/pcl_defcombin.data

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

revision 1.1 by camm, Wed Feb 26 22:21:39 2003 UTC revision 1.1.6.1 by camm, Tue Sep 23 18:39:21 2003 UTC
# Line 9  Line 9 
9                      all methods have either the single qualifier ~S or the~%~                      all methods have either the single qualifier ~S or the~%~
10                      single qualifier :AROUND." pcl::call-method lisp::error "No ~S methods for the generic function ~S." pcl::make-method pcl::long-method-combination (pcl::standard-method-combination) lisp::function (pcl::long-method-combination-function) (:function) :arguments :generic-function (lisp::load lisp::eval) pcl::load-long-defcombin (lisp::generic-function lisp::type pcl::options) pcl::*long-method-combination-functions* pcl::.generic-function. lisp::apply lisp::lambda (pcl::method-combination-options pcl::.method-combination.) (pcl::.generic-function. pcl::.method-combination. pcl::.applicable-methods.) (lisp::progn pcl::.generic-function. pcl::.method-combination. pcl::.applicable-methods.) lisp::block pcl::.long-method-combination-function. lisp::or lisp::if lisp::equal pcl::.specializers. lisp::return-from "More than one method of type ~S ~                      single qualifier :AROUND." pcl::call-method lisp::error "No ~S methods for the generic function ~S." pcl::make-method pcl::long-method-combination (pcl::standard-method-combination) lisp::function (pcl::long-method-combination-function) (:function) :arguments :generic-function (lisp::load lisp::eval) pcl::load-long-defcombin (lisp::generic-function lisp::type pcl::options) pcl::*long-method-combination-functions* pcl::.generic-function. lisp::apply lisp::lambda (pcl::method-combination-options pcl::.method-combination.) (pcl::.generic-function. pcl::.method-combination. pcl::.applicable-methods.) (lisp::progn pcl::.generic-function. pcl::.method-combination. pcl::.applicable-methods.) lisp::block pcl::.long-method-combination-function. lisp::or lisp::if lisp::equal pcl::.specializers. lisp::return-from "More than one method of type ~S ~
11                                        with the same specializers." lisp::setq lisp::push pcl::.method. lisp::when lisp::null "No ~S methods." :most-specific-first lisp::nreverse :most-specific-last lisp::ecase (:most-specific-last) lisp::let lisp::dolist (pcl::.method. pcl::.applicable-methods.) ((pcl::.qualifiers. (pcl::method-qualifiers pcl::.method.)) (pcl::.specializers. (pcl::method-specializers pcl::.method.))) (lisp::progn pcl::.qualifiers. pcl::.specializers.) lisp::cond (:description :order :required) :description :order :required (lisp::null pcl::.qualifiers.) lisp::* pcl::.qualifiers. pcl::qualifier-check-runtime "In the method group specifier ~S,~%~                                        with the same specializers." lisp::setq lisp::push pcl::.method. lisp::when lisp::null "No ~S methods." :most-specific-first lisp::nreverse :most-specific-last lisp::ecase (:most-specific-last) lisp::let lisp::dolist (pcl::.method. pcl::.applicable-methods.) ((pcl::.qualifiers. (pcl::method-qualifiers pcl::.method.)) (pcl::.specializers. (pcl::method-specializers pcl::.method.))) (lisp::progn pcl::.qualifiers. pcl::.specializers.) lisp::cond (:description :order :required) :description :order :required (lisp::null pcl::.qualifiers.) lisp::* pcl::.qualifiers. pcl::qualifier-check-runtime "In the method group specifier ~S,~%~
12                     ~S isn't a valid qualifier pattern." "methods matching one of the patterns: ~{~S, ~} ~S" "methods matching the pattern: ~S" lisp::nil lisp::&rest lisp::&allow-other-keys lisp::&key (lisp::&allow-other-keys) (lisp::&rest pcl::.ignore.) pcl::inner-result. lisp::list (lisp::quote lisp::apply) (lisp::quote lisp::function) (lisp::quote lisp::lambda) pcl::.ignore. (lisp::quote (lisp::declare (lisp::ignore pcl::.ignore.))) (lisp::quote pcl::.combined-method-args.) pcl::expand-long-defcombin pcl::expand-short-defcombin pcl::method-combination-error pcl::load-defclass pcl::make-top-level-form pcl::load-truename pcl::find-class pcl::intern-eql-specializer pcl::get-method pcl::find-method-combination pcl::make-instance pcl::remove-method pcl::add-method pcl::method-combination-type pcl::short-combination-operator pcl::short-combination-identity-with-one-argument pcl::method-qualifiers pcl::make-long-method-combination-function pcl::extract-declarations pcl::wrap-method-group-specifier-bindings pcl::deal-with-arguments-option pcl::parse-method-group-specifier pcl::parse-qualifier-pattern pcl::make-default-method-group-description pcl::invalid-method-error pcl::do-short-method-combination (system::%init . #((system::mm (lisp::quote pcl::define-method-combination) 0) (pcl::proclaim-defgeneric (lisp::quote pcl::find-method-combination) (lisp::quote ((lisp::generic-function lisp::generic-function) (lisp::type (lisp::eql (lisp::quote pcl::standard))) pcl::options))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|) 1 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::find-method-combination) (lisp::quote lisp::nil) (lisp::quote (lisp::generic-function (lisp::eql pcl::standard) lisp::t)) (lisp::quote (lisp::generic-function lisp::type pcl::options)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #0=#:|Defclass SHORT-METHOD-COMBINATION8890|) 2) (#0#) (system::mfsfun (lisp::quote pcl::expand-short-defcombin) 3 1) (system::mf (lisp::quote pcl::load-short-defcombin) 4) (system::mf (lisp::quote pcl::do-short-method-combination) 5) (pcl::proclaim-defgeneric (lisp::quote pcl::compute-effective-method) (lisp::quote ((lisp::generic-function lisp::generic-function) (pcl::combin pcl::short-method-combination) pcl::applicable-methods))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|) 6 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::compute-effective-method) (lisp::quote lisp::nil) (lisp::quote (lisp::generic-function pcl::short-method-combination lisp::t)) (lisp::quote (lisp::generic-function pcl::combin pcl::applicable-methods)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #1=#:|Defclass LONG-METHOD-COMBINATION8913|) 7) (#1#) (system::mfsfun (lisp::quote pcl::expand-long-defcombin) 8 1) (system::*make-special (lisp::quote pcl::*long-method-combination-functions*)) (lisp::or (lisp::boundp (lisp::quote pcl::*long-method-combination-functions*)) (lisp::setq pcl::*long-method-combination-functions* (lisp::make-hash-table :test (lisp::function lisp::eq)))) (system::mf (lisp::quote pcl::load-long-defcombin) 9) (pcl::proclaim-defgeneric (lisp::quote pcl::compute-effective-method) (lisp::quote ((lisp::generic-function lisp::generic-function) (pcl::combin pcl::long-method-combination) pcl::applicable-methods))) (system::mf (lisp::quote pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|) 10) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::compute-effective-method) (lisp::quote lisp::nil) (lisp::quote (lisp::generic-function pcl::long-method-combination lisp::t)) (lisp::quote (lisp::generic-function pcl::combin pcl::applicable-methods)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (system::mf (lisp::quote pcl::make-long-method-combination-function) 11) (system::mfsfun (lisp::quote pcl::wrap-method-group-specifier-bindings) 12 3) (system::mf (lisp::quote pcl::parse-method-group-specifier) 13) (system::mfsfun (lisp::quote pcl::parse-qualifier-pattern) 14 2) (system::mfsfun (lisp::quote pcl::qualifier-check-runtime) 15 2) (system::mfsfun (lisp::quote pcl::make-default-method-group-description) 16 1) (system::setvv 102 lisp::lambda-list-keywords) (system::mfsfun (lisp::quote pcl::deal-with-arguments-option) 17 2) (system::debug (lisp::quote pcl::expand-short-defcombin) (lisp::quote (lisp::type pcl::documentation pcl::identity-with-one-arg pcl::operator))) (system::debug (lisp::quote pcl::load-short-defcombin) (lisp::quote (lisp::type pcl::operator pcl::ioa pcl::doc lisp::truename pcl::specializers pcl::old-method pcl::new-method))) (system::debug (lisp::quote pcl::do-short-method-combination) (lisp::quote (lisp::type pcl::options pcl::operator pcl::ioa lisp::method pcl::doc))) (system::debug (lisp::quote pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|) (lisp::quote (lisp::type pcl::m))) (system::debug (lisp::quote pcl::load-long-defcombin) (lisp::quote (lisp::type pcl::doc lisp::function pcl::specializers pcl::old-method pcl::new-method))) (system::debug (lisp::quote pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::generic-function pcl::combin pcl::applicable-methods))) (system::debug (lisp::quote pcl::make-long-method-combination-function) (lisp::quote (lisp::nil pcl::ll pcl::method-group-specifiers pcl::arguments-option pcl::gf-var pcl::body #:g8931 #:g8933))) (system::debug (lisp::quote pcl::wrap-method-group-specifier-bindings) (lisp::quote (pcl::method-group-specifier))) (system::debug (lisp::quote pcl::parse-method-group-specifier) (lisp::quote (pcl::method-group-specifier pcl::name pcl::tests))) (system::debug (lisp::quote pcl::deal-with-arguments-option) (lisp::quote (pcl::intercept-lambda-list pcl::intercept-rebindings pcl::arg))))))                     ~S isn't a valid qualifier pattern." "methods matching one of the patterns: ~{~S, ~} ~S" "methods matching the pattern: ~S" lisp::nil lisp::&rest lisp::&allow-other-keys lisp::&key (lisp::&allow-other-keys) (lisp::&rest pcl::.ignore.) pcl::inner-result. lisp::list (lisp::quote lisp::apply) (lisp::quote lisp::function) (lisp::quote lisp::lambda) pcl::.ignore. (lisp::quote (lisp::declare (lisp::ignore pcl::.ignore.))) (lisp::quote pcl::.combined-method-args.) pcl::expand-long-defcombin pcl::expand-short-defcombin pcl::method-combination-error pcl::load-defclass pcl::make-top-level-form pcl::load-truename pcl::find-class pcl::intern-eql-specializer pcl::get-method pcl::find-method-combination pcl::make-instance pcl::remove-method pcl::add-method pcl::method-combination-type pcl::short-combination-operator pcl::short-combination-identity-with-one-argument pcl::method-qualifiers pcl::make-long-method-combination-function pcl::extract-declarations pcl::wrap-method-group-specifier-bindings pcl::deal-with-arguments-option pcl::parse-method-group-specifier pcl::parse-qualifier-pattern pcl::make-default-method-group-description pcl::invalid-method-error pcl::do-short-method-combination (system::%init . #((system::mm (lisp::quote pcl::define-method-combination) 0) (pcl::proclaim-defgeneric (lisp::quote pcl::find-method-combination) (lisp::quote ((lisp::generic-function lisp::generic-function) (lisp::type (lisp::eql (lisp::quote pcl::standard))) pcl::options))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|) 1 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::find-method-combination) (lisp::quote lisp::nil) (lisp::quote (lisp::generic-function (lisp::eql pcl::standard) lisp::t)) (lisp::quote (lisp::generic-function lisp::type pcl::options)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #0=#:|Defclass SHORT-METHOD-COMBINATION8894|) 2) (#0#) (system::mfsfun (lisp::quote pcl::expand-short-defcombin) 3 1) (system::mf (lisp::quote pcl::load-short-defcombin) 4) (system::mf (lisp::quote pcl::do-short-method-combination) 5) (pcl::proclaim-defgeneric (lisp::quote pcl::compute-effective-method) (lisp::quote ((lisp::generic-function lisp::generic-function) (pcl::combin pcl::short-method-combination) pcl::applicable-methods))) (system::mfsfun (lisp::quote pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|) 6 5) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::compute-effective-method) (lisp::quote lisp::nil) (lisp::quote (lisp::generic-function pcl::short-method-combination lisp::t)) (lisp::quote (lisp::generic-function pcl::combin pcl::applicable-methods)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (system::mf (lisp::quote #1=#:|Defclass LONG-METHOD-COMBINATION8917|) 7) (#1#) (system::mfsfun (lisp::quote pcl::expand-long-defcombin) 8 1) (system::*make-special (lisp::quote pcl::*long-method-combination-functions*)) (lisp::or (lisp::boundp (lisp::quote pcl::*long-method-combination-functions*)) (lisp::setq pcl::*long-method-combination-functions* (lisp::make-hash-table :test (lisp::function lisp::eq)))) (system::mf (lisp::quote pcl::load-long-defcombin) 9) (pcl::proclaim-defgeneric (lisp::quote pcl::compute-effective-method) (lisp::quote ((lisp::generic-function lisp::generic-function) (pcl::combin pcl::long-method-combination) pcl::applicable-methods))) (system::mf (lisp::quote pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|) 10) (pcl::load-defmethod (lisp::quote lisp::standard-method) (lisp::quote pcl::compute-effective-method) (lisp::quote lisp::nil) (lisp::quote (lisp::generic-function pcl::long-method-combination lisp::t)) (lisp::quote (lisp::generic-function pcl::combin pcl::applicable-methods)) (lisp::list* :fast-function (lisp::function pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|) (lisp::quote (:plist (:arg-info (3))))) (lisp::quote lisp::nil)) (system::mf (lisp::quote pcl::make-long-method-combination-function) 11) (system::mfsfun (lisp::quote pcl::wrap-method-group-specifier-bindings) 12 3) (system::mf (lisp::quote pcl::parse-method-group-specifier) 13) (system::mfsfun (lisp::quote pcl::parse-qualifier-pattern) 14 2) (system::mfsfun (lisp::quote pcl::qualifier-check-runtime) 15 2) (system::mfsfun (lisp::quote pcl::make-default-method-group-description) 16 1) (system::setvv 102 lisp::lambda-list-keywords) (system::mfsfun (lisp::quote pcl::deal-with-arguments-option) 17 2) (system::debug (lisp::quote pcl::expand-short-defcombin) (lisp::quote (lisp::type pcl::documentation pcl::identity-with-one-arg pcl::operator))) (system::debug (lisp::quote pcl::load-short-defcombin) (lisp::quote (lisp::type pcl::operator pcl::ioa pcl::doc lisp::truename pcl::specializers pcl::old-method pcl::new-method))) (system::debug (lisp::quote pcl::do-short-method-combination) (lisp::quote (lisp::type pcl::options pcl::operator pcl::ioa lisp::method pcl::doc))) (system::debug (lisp::quote pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|) (lisp::quote (lisp::type pcl::m))) (system::debug (lisp::quote pcl::load-long-defcombin) (lisp::quote (lisp::type pcl::doc lisp::function pcl::specializers pcl::old-method pcl::new-method))) (system::debug (lisp::quote pcl::|(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|) (lisp::quote (pcl::.pv-cell. pcl::.next-method-call. lisp::generic-function pcl::combin pcl::applicable-methods))) (system::debug (lisp::quote pcl::make-long-method-combination-function) (lisp::quote (lisp::nil pcl::ll pcl::method-group-specifiers pcl::arguments-option pcl::gf-var pcl::body #:g8935 #:g8937))) (system::debug (lisp::quote pcl::wrap-method-group-specifier-bindings) (lisp::quote (pcl::method-group-specifier))) (system::debug (lisp::quote pcl::parse-method-group-specifier) (lisp::quote (pcl::method-group-specifier pcl::name pcl::tests))) (system::debug (lisp::quote pcl::deal-with-arguments-option) (lisp::quote (pcl::intercept-lambda-list pcl::intercept-rebindings pcl::arg))))))
13  )  )

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

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