[mcclim-devel] Method browser error: no matching method for GF CLASS-NAME when browsing PRINT-OBJECT

Andy Hefner ahefner at gmail.com
Thu Feb 3 16:10:25 UTC 2005


It currently doesn't understand EQL specializers, they're on the TODO
list. I think that the MOP doesn't make many promises about what an
EQL specializer really is, so at the time I wrote this I didn't bother
supporting them. I'm sure it can be fixed easily enough.


On Thu, 03 Feb 2005 16:53:00 +0100, Paolo Amoroso <amoroso at mclink.it> wrote:
> When I provide the name of the PRINT-OBJECT generic function as input
> to the method browser in Examples/method-browser.lisp, I get the error
> message with backtrace included below.  I use the latest McCLIM CVS
> sources with CMUCL Snapshot 2005-01 under Slackware Linux 10.0.
> 
> Paolo
> 
> ------------------------------------------------------------------------
> No matching method for the generic function
> #<STANDARD-GENERIC-FUNCTION CLASS-NAME (1) {281B2709}>, when called with
> arguments (#<PCL:EQL-SPECIALIZER {285532FD}>).
>    [Condition of type PCL::NO-APPLICABLE-METHOD-ERROR]
> 
> Restarts:
>   0: [CONTINUE] Retry call to :FUNCTION.
>   1: [ABORT   ] Return to application command loop
>   2:            Return to Top-Level.
> 
> Debug  (type H for help)
> 
> ("DEFMETHOD NO-APPLICABLE-METHOD (T)" #<unused-arg> #<unused-arg>
>  #<STANDARD-GENERIC-FUNCTION CLASS-NAME (1) {281B2709}>
>  (#<PCL:EQL-SPECIALIZER {285532FD}>))
> Source: Error finding source:
> Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer exists:
>   target:pcl/braid.lisp.
> 0] backtrace
> 
> 0: ("DEFMETHOD NO-APPLICABLE-METHOD (T)" #<unused-arg> #<unused-arg>
>     #<STANDARD-GENERIC-FUNCTION CLASS-NAME (1) {281B2709}>
>     (#<PCL:EQL-SPECIALIZER {285532FD}>))
> 1: ("DEFUN SORTED-GF-SPECIALIZERS" #<STANDARD-CLASS CLIM:OPACITY {283D4B55}>
>     #<PCL:EQL-SPECIALIZER {285532FD}>)
> 2: (LISP::MERGE-LISTS* #<unavailable-arg>
>                        #<unavailable-arg>
>                        #<Function "DEFUN SORTED-GF-SPECIALIZERS" {58F75D31}>
>                        NIL
>                        ...)
> 3: (LISP::SORT-LIST
>     (#<STANDARD-CLASS CLIM-CLX::CLX-PORT {282FEC85}>
>      #<STANDARD-CLASS CLIM-CLX::FONTSET {285FD915}>
>      #<STANDARD-CLASS CLIM:PANE {28322D0D}>
>      #<STANDARD-CLASS CLIM-INTERNALS::STANDARD-SPACE-REQUIREMENT {28343B4D}>
>      #<STANDARD-CLASS CLIM:COMMAND-TABLE {2838DC75}> ...)
>     #<Function "DEFUN SORTED-GF-SPECIALIZERS" {58F75D31}>
>     NIL)
> 4: (CLIM-DEMO::SORTED-GF-SPECIALIZERS
>     #<STANDARD-GENERIC-FUNCTION PRINT-OBJECT (47) {281B3739}>)
> 5: (CLIM-DEMO::COMPUTE-INITIAL-ARG-TYPES
>     #<STANDARD-GENERIC-FUNCTION PRINT-OBJECT (47) {281B3739}>)
> 6: (CLIM-DEMO::SETUP-NEW-GF #<CLIM-DEMO::METHOD-BROWSER {58428FFD}>
>                             #<STANDARD-GENERIC-FUNCTION PRINT-OBJECT (47)
>                               {281B3739}>)
> 7: (CLIM-INTERNALS::INVOKE-CALLBACK
>     #<CLIM:TEXT-FIELD-PANE CLIM-DEMO::GF-NAME-INPUT {58EF4FD5}>
>     CLIM-DEMO::GF-NAME-INPUT-CALLBACK)
> 8: ((METHOD CLIM:HANDLE-EVENT NIL (CLIM:TEXT-FIELD-PANE CLIM:KEY-PRESS-EVENT))
>     (#(64 67 22 21 64 ...) . #(#)) #<unused-arg>
>     #<CLIM:TEXT-FIELD-PANE CLIM-DEMO::GF-NAME-INPUT {58EF4FD5}>
>     #<CLIM:KEY-PRESS-EVENT {5892B97D}>)
> 9: (CLIM-INTERNALS::HANDLE-NON-STREAM-EVENT
>     #<CLIM-INTERNALS::PORT-EVENT-QUEUE {5849386D}>)
> 10: ((METHOD CLIM:STREAM-INPUT-WAIT NIL (CLIM:STANDARD-EXTENDED-INPUT-STREAM))
>      (#(18) . #(#)) #<unused-arg>
>      #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}>
>      (:TIMEOUT NIL :INPUT-WAIT-TEST
>       #<Function CLIM-INTERNALS::INPUT-CONTEXT-WAIT-TEST {1155B1F1}>))
> 11: ((METHOD CLIM:STREAM-READ-GESTURE NIL
>       (CLIM:STANDARD-EXTENDED-INPUT-STREAM))
>      (#(60) . #(#)) #<unused-arg>
>      #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}>
>      (:TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST ...))
> 12: (CLIM:READ-COMMAND
>      #<CLIM:STANDARD-COMMAND-TABLE CLIM-DEMO::METHOD-BROWSER {58EDF55D}>
>      :STREAM #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}>
>      :COMMAND-PARSER ...)
> 13: (CLIM:READ-COMMAND-USING-KEYSTROKES
>      #<CLIM:STANDARD-COMMAND-TABLE CLIM-DEMO::METHOD-BROWSER {58EDF55D}>
>      NIL
>      :STREAM #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}>
>      ...)
> 14: (CLIM:READ-COMMAND
>      #<CLIM:STANDARD-COMMAND-TABLE CLIM-DEMO::METHOD-BROWSER {58EDF55D}>
>      :STREAM #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}>
>      :COMMAND-PARSER ...)
> 15: ((METHOD CLIM:READ-FRAME-COMMAND (:AROUND) (CLIM:APPLICATION-FRAME))
>      (#(5) . #())
>      #S(PCL::FAST-METHOD-CALL
>           :FUNCTION #<Function # {11563581}>
>           :PV-CELL (# . #)
>           :NEXT-METHOD-CALL NIL
>           :ARG-INFO (1 . T))
>      #<CLIM-DEMO::METHOD-BROWSER {58428FFD}>
>      (:STREAM #<CLIM:APPLICATION-PANE CLIM-DEMO::OUTPUT-PANE {58EF43ED}>))
> 16: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME))
>      (#() . #(# # # # # ...)) #<unused-arg>
>      #<CLIM-DEMO::METHOD-BROWSER {58428FFD}> NIL)
> 17: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4227)" #<unused-arg> #<unused-arg>
>      #<CLIM-DEMO::METHOD-BROWSER {58428FFD}> NIL)
> 18: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME))
>      (#(20) . #()) #<unused-arg> #<CLIM-DEMO::METHOD-BROWSER {58428FFD}>
>      #<unused-arg>)
> 19: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME))
>      (#(16 15) . #(#))
>      #S(PCL::FAST-METHOD-CALL
>           :FUNCTION #<Function # {11686B49}>
>           :PV-CELL (# . #)
>           :NEXT-METHOD-CALL NIL
>           :ARG-INFO (1 . T))
>      #<CLIM-DEMO::METHOD-BROWSER {58428FFD}> NIL)
> 20: (INTERACTIVE-EVAL (CLIM-DEMO::RUN-TEST 'CLIM-DEMO::METHOD-BROWSER))
> 21: (LISP::%TOP-LEVEL)
> 22: ((LABELS LISP::RESTART-LISP
>        SAVE-LISP))
> 
> 0]
> ------------------------------------------------------------------------
> 
> --
> Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log
> _______________________________________________
> mcclim-devel mailing list
> mcclim-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel
>



More information about the mcclim-devel mailing list