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

[Paolo Amoroso]

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