When I start the CLIM Listener by evaluating:
(clim-listener:run-listener)
I get the error with backtrace included below. I use McCLIM CVS sources updated a few minutes ago, with CMUCL Snapshot 2005-01 under Slackware Linux 10.0.
Paolo
----------------------------------------------------------------------------- #<CLIM-CLX::CLX-MEDIUM {58FE5205}> fell through ETYPECASE expression. Wanted one of (STREAM (MEMBER T) STRING NULL). [Condition of type CONDITIONS::CASE-FAILURE]
Restarts: 0: [ABORT ] Return to application command loop 1: [RETURN-TO-LISTENER] Return to listener. 2: Return to Top-Level.
Debug (type H for help)
(FORMAT #<CLIM-CLX::CLX-MEDIUM {58FE5205}> "~A" "CL-USER") Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/format.lisp. 0] backtrace
0: (FORMAT #<CLIM-CLX::CLX-MEDIUM {58FE5205}> "~A" "CL-USER") 1: ((METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL NIL (CLIM:MEDIUM T T)) (#(2 5 6 3 2 ...) . #(# #)) #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> ...) 2: ((FLET #:CONT0 CLIM-LISTENER::PRINT-LISTENER-PROMPT) #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {58EBB45D}>) 3: ((METHOD CLIM:INVOKE-WITH-TEXT-STYLE NIL (CLIM:MEDIUM T T)) #<unused-arg> #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> #<Closure Over Function (FLET #:CONT19 ) {58BAECD1}> ...) 4: ((FLET #:CONT25 ) #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {58EBB45D}>) 5: ((METHOD CLIM:INVOKE-WITH-TEXT-STYLE NIL (CLIM:MEDIUM T T)) #<unused-arg> #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> #<Closure Over Function (FLET #:CONT19 ) {58BAEB51}> ...) 6: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#() . #(# # # # # ...)) #<unused-arg> #<CLIM-LISTENER::LISTENER {580BE0DD}> (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT)) 7: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4720)" #<unused-arg> #<unused-arg> #<CLIM-LISTENER::LISTENER {580BE0DD}> (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT)) 8: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#(22) . #()) #<unused-arg> #<CLIM-LISTENER::LISTENER {580BE0DD}> #<unused-arg>) 9: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM-LISTENER::LISTENER)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {11686409}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-LISTENER::LISTENER {580BE0DD}> (:LISTENER-FUNCALL NIL)) 10: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME)) (#(18 17) . #(#)) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {583301C9}> :PV-CELL NIL :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL :FUNCTION # :PV-CELL # :NEXT-METHOD-CALL NIL :ARG-INFO #) :ARG-INFO (1 . T)) #<CLIM-LISTENER::LISTENER {580BE0DD}> (:LISTENER-FUNCALL NIL)) 11: (INTERACTIVE-EVAL (CLIM-LISTENER:RUN-LISTENER)) 12: (LISP::%TOP-LEVEL) 13: ((LABELS LISP::RESTART-LISP SAVE-LISP))
0] -----------------------------------------------------------------------------