I think the following transcript more-or-less sums up the
problem. It's not significant, since an error was going to be reported
anyway, but still, it would be nice to see the real error. :)
* (defgeneric foo () (:method-combination standard bleh))
Error in function "DEFVAR *METHOD-COMBINATION-ERROR*":
METHOD-COMBINATION-ERROR was called outside the dynamic scope
of a method combination function (inside the body of
DEFINE-METHOD-COMBINATION or a method on the generic
function COMPUTE-EFFECTIVE-METHOD).
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
("DEFVAR *METHOD-COMBINATION-ERROR*" #<unavailable-arg> #<unavailable-arg>)[:OPTIONAL]
0] back
0: ("DEFVAR *METHOD-COMBINATION-ERROR*" #<unavailable-arg>
#<unavailable-arg>)[:OPTIONAL]
1: (PCL::|(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|
#<unused-arg>
#<unused-arg>
#<unused-arg>
#<unused-arg>
...)
2: (PCL::REAL-ENSURE-GF-USING-CLASS--NULL #<unused-arg>
FOO
:LAMBDA-LIST
NIL
...)
3: (EVAL (DEFGENERIC FOO NIL (:METHOD-COMBINATION STANDARD BLEH)))
4: (INTERACTIVE-EVAL (DEFGENERIC FOO NIL (:METHOD-COMBINATION STANDARD BLEH)))
5: (COMMON-LISP::%TOP-LEVEL)
6: (COMMON-LISP::RESTART-LISP)
0] down
(PCL::|(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|
#<unused-arg>
#<unused-arg>
#<unused-arg>
#<unused-arg>
...)
1] vso 2
; File has been modified since compilation:
; target:pcl/defcombin.lisp
; Using form offset instead of character position.
(DEFMETHOD FIND-METHOD-COMBINATION
((GENERIC-FUNCTION GENERIC-FUNCTION) (TYPE (EQL 'STANDARD)) OPTIONS)
(WHEN OPTIONS
(#:***HERE***
(METHOD-COMBINATION-ERROR
"The method combination type STANDARD accepts no options.")))
*STANDARD-METHOD-COMBINATION*)
--
-> -/ - Rahul Jain - \- <-
-> -\ http://linux.rice.edu/~rahul -=- mailto:[EMAIL PROTECTED] /- <-
-> -X "Structure is nothing if it is all you got. Skeletons spook X- <-
-> -/ people if [they] try to walk around on their own. I really \- <-
-> -\ wonder why XML does not." -- Erik Naggum, comp.lang.lisp /- <-
|--|--------|--------------|----|-------------|------|---------|-----|-|
(c)1996-2002, All rights reserved. Disclaimer available upon request.
