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

Diff of /gcl/pcl/pcl_combin.data

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

revision 1.1 by camm, Wed Feb 26 22:21:38 2003 UTC revision 1.2 by camm, Tue Sep 23 21:48:34 2003 UTC
# Line 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package :pcl)  (lisp::in-package :pcl)
4  #(pcl::call-method :early-method pcl::fast-method-call pcl::method-call pcl::make-method pcl::*boot-state* pcl::complete :arg-info :function :pv-cell :next-method-call :call-method-args pcl::*rebound-effective-method-gensyms* "EFFECTIVE-METHOD-GENSYM-~D" pcl::*global-effective-method-gensyms* "PCL" lisp::lambda (lisp::declare (lisp::ignore pcl::.pv-cell. pcl::.next-method-call.)) (lisp::error "~S outside of an effective method form" (lisp::quote pcl::call-method)) pcl::.fast-call-method. pcl::.call-method. pcl::call-method-list pcl::.fast-call-method-list. pcl::.call-method-list. lisp::dolist pcl::emf pcl::.meth. pcl::.meth-list. pcl::combined-method lisp::progn :before :after :around lisp::error "No primary method for the generic function ~S." lisp::quote lisp::multiple-value-prog1 pcl::*invalid-method-error* pcl::*method-combination-error* pcl::early-method-function pcl::method-fast-function pcl::method-function-pv-table pcl::pv-wrappers-from-all-wrappers pcl::pv-table-lookup pcl::method-function-from-fast-function pcl::method-function pcl::make-effective-method-function1 pcl::make-effective-method-function-simple pcl::make-effective-method-function-internal pcl::method-p pcl::gf-fast-method-function-p pcl::get-method-function pcl::make-effective-method-function-simple1 pcl::method-function-get pcl::make-fast-method-call pcl::make-method-call pcl::make-emf-from-method pcl::make-effective-method-function pcl::get-generic-function-info pcl::make-fast-method-call-lambda-list pcl::make-effective-method-function-type lisp::every pcl::default-test-converter pcl::get-effective-method-gensym pcl::make-emf-call pcl::default-code-converter pcl::default-constant-converter pcl::early-gf-p pcl::early-gf-name pcl::generic-function-name pcl::expand-effective-method-function pcl::get-function1 pcl::early-method-qualifiers pcl::method-qualifiers pcl::make-call-methods pcl::standard-compute-effective-method pcl::set-function-name pcl::memf-constant-converter pcl::memf-code-converter pcl::memf-test-converter (system::%init . #((system::mf (lisp::quote pcl::get-method-function) 0) (system::mf (lisp::quote pcl::make-effective-method-function) 1) (system::mfsfun (lisp::quote pcl::make-effective-method-function1) 2 4) (system::mfsfun (lisp::quote pcl::make-effective-method-function-type) 3 4) (system::mfvfun (lisp::quote pcl::make-effective-method-function-simple) 4 770) (system::mfvfun (lisp::quote pcl::make-emf-from-method) 5 1538) (system::mf (lisp::quote pcl::make-effective-method-function-simple1) 6) (system::*make-special (lisp::quote pcl::*global-effective-method-gensyms*)) (lisp::or (lisp::boundp (lisp::quote pcl::*global-effective-method-gensyms*)) (lisp::setq pcl::*global-effective-method-gensyms* lisp::nil)) (system::*make-special (lisp::quote pcl::*rebound-effective-method-gensyms*)) (system::mfsfun (lisp::quote pcl::get-effective-method-gensym) 7 0) (lisp::let ((pcl::*rebound-effective-method-gensyms* lisp::nil)) (pcl::dotimes (pcl::i 10) (pcl::get-effective-method-gensym))) (system::mfvfun (lisp::quote pcl::expand-effective-method-function) 8 770) (system::mfsfun (lisp::quote pcl::expand-emf-call-method) 9 5) (system::mm (lisp::quote pcl::call-method) 10) (system::mfsfun (lisp::quote pcl::memf-test-converter) 11 4) (system::mf (lisp::quote pcl::memf-code-converter) 12) (system::mfsfun (lisp::quote pcl::memf-constant-converter) 13 2) (system::mfsfun (lisp::quote pcl::make-effective-method-function-internal) 14 4) (system::mm (lisp::quote pcl::call-method-list) 15) (system::mfsfun (lisp::quote pcl::make-call-methods) 16 1) (system::mfsfun (lisp::quote pcl::standard-compute-effective-method) 17 3) (system::mfsfun (lisp::quote pcl::compute-effective-method) 18 3) (system::*make-special (lisp::quote pcl::*invalid-method-error*)) (lisp::or (lisp::boundp (lisp::quote pcl::*invalid-method-error*)) (lisp::setq pcl::*invalid-method-error* (lisp::function (lisp::lambda (lisp::&rest pcl::args) (lisp::declare (lisp::ignore pcl::args)) (lisp::error "INVALID-METHOD-ERROR was called outside the dynamic scope~%~  #(pcl::call-method :early-method pcl::fast-method-call pcl::method-call pcl::make-method pcl::*boot-state* pcl::complete :arg-info :function :pv-cell :next-method-call :call-method-args pcl::*rebound-effective-method-gensyms* "EFFECTIVE-METHOD-GENSYM-~D" pcl::*global-effective-method-gensyms* "PCL" lisp::lambda (lisp::declare (lisp::ignore pcl::.pv-cell. pcl::.next-method-call.)) (lisp::error "~S outside of an effective method form" (lisp::quote pcl::call-method)) pcl::.fast-call-method. pcl::.call-method. pcl::call-method-list pcl::.fast-call-method-list. pcl::.call-method-list. lisp::dolist pcl::emf pcl::.meth. pcl::.meth-list. pcl::combined-method lisp::progn :before :after :around lisp::error "No primary method for the generic function ~S." lisp::quote lisp::multiple-value-prog1 pcl::*invalid-method-error* pcl::*method-combination-error* pcl::early-method-function pcl::method-fast-function pcl::method-function-pv-table pcl::pv-wrappers-from-all-wrappers pcl::pv-table-lookup pcl::method-function-from-fast-function pcl::method-function pcl::make-effective-method-function1 pcl::make-effective-method-function-simple pcl::make-effective-method-function-internal pcl::method-p pcl::gf-fast-method-function-p pcl::get-method-function pcl::make-effective-method-function-simple1 pcl::method-function-get pcl::make-fast-method-call pcl::make-method-call pcl::make-emf-from-method pcl::make-effective-method-function pcl::get-generic-function-info pcl::make-fast-method-call-lambda-list pcl::make-effective-method-function-type lisp::every pcl::default-test-converter pcl::get-effective-method-gensym pcl::make-emf-call pcl::default-code-converter pcl::default-constant-converter pcl::early-gf-p pcl::early-gf-name pcl::generic-function-name pcl::expand-effective-method-function pcl::get-function1 pcl::early-method-qualifiers pcl::method-qualifiers pcl::make-call-methods pcl::standard-compute-effective-method pcl::set-function-name pcl::memf-constant-converter pcl::memf-code-converter pcl::memf-test-converter (system::%init . #((system::mf (lisp::quote pcl::get-method-function) 0) (system::mf (lisp::quote pcl::make-effective-method-function) 1) (system::mfsfun (lisp::quote pcl::make-effective-method-function1) 2 4) (system::mfsfun (lisp::quote pcl::make-effective-method-function-type) 3 4) (system::mfvfun (lisp::quote pcl::make-effective-method-function-simple) 4 770) (system::mfvfun (lisp::quote pcl::make-emf-from-method) 5 1538) (system::mf (lisp::quote pcl::make-effective-method-function-simple1) 6) (system::*make-special (lisp::quote pcl::*global-effective-method-gensyms*)) (lisp::or (lisp::boundp (lisp::quote pcl::*global-effective-method-gensyms*)) (lisp::setq pcl::*global-effective-method-gensyms* lisp::nil)) (system::*make-special (lisp::quote pcl::*rebound-effective-method-gensyms*)) (system::mfsfun (lisp::quote pcl::get-effective-method-gensym) 7 0) (lisp::let ((pcl::*rebound-effective-method-gensyms* lisp::nil)) (lisp::dotimes (pcl::i 10) (pcl::get-effective-method-gensym))) (system::mfvfun (lisp::quote pcl::expand-effective-method-function) 8 770) (system::mfsfun (lisp::quote pcl::expand-emf-call-method) 9 5) (system::mm (lisp::quote pcl::call-method) 10) (system::mfsfun (lisp::quote pcl::memf-test-converter) 11 4) (system::mf (lisp::quote pcl::memf-code-converter) 12) (system::mfsfun (lisp::quote pcl::memf-constant-converter) 13 2) (system::mfsfun (lisp::quote pcl::make-effective-method-function-internal) 14 4) (system::mm (lisp::quote pcl::call-method-list) 15) (system::mfsfun (lisp::quote pcl::make-call-methods) 16 1) (system::mfsfun (lisp::quote pcl::standard-compute-effective-method) 17 3) (system::mfsfun (lisp::quote pcl::compute-effective-method) 18 3) (system::*make-special (lisp::quote pcl::*invalid-method-error*)) (lisp::or (lisp::boundp (lisp::quote pcl::*invalid-method-error*)) (lisp::setq pcl::*invalid-method-error* (lisp::function (lisp::lambda (lisp::&rest pcl::args) (lisp::declare (lisp::ignore pcl::args)) (lisp::error "INVALID-METHOD-ERROR was called outside the dynamic scope~%~
5                 of a method combination function (inside the body of~%~                 of a method combination function (inside the body of~%~
6                 DEFINE-METHOD-COMBINATION or a method on the generic~%~                 DEFINE-METHOD-COMBINATION or a method on the generic~%~
7                 function COMPUTE-EFFECTIVE-METHOD)."))))) (system::*make-special (lisp::quote pcl::*method-combination-error*)) (lisp::or (lisp::boundp (lisp::quote pcl::*method-combination-error*)) (lisp::setq pcl::*method-combination-error* (lisp::function (lisp::lambda (lisp::&rest pcl::args) (lisp::declare (lisp::ignore pcl::args)) (lisp::error "METHOD-COMBINATION-ERROR was called outside the dynamic scope~%~                 function COMPUTE-EFFECTIVE-METHOD)."))))) (system::*make-special (lisp::quote pcl::*method-combination-error*)) (lisp::or (lisp::boundp (lisp::quote pcl::*method-combination-error*)) (lisp::setq pcl::*method-combination-error* (lisp::function (lisp::lambda (lisp::&rest pcl::args) (lisp::declare (lisp::ignore pcl::args)) (lisp::error "METHOD-COMBINATION-ERROR was called outside the dynamic scope~%~

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