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@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@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel