[mcclim-devel] CLIM-CLX::CLX-MEDIUM fell through ETYPECASE expression; error when starting Listener

[Paolo Amoroso]

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]
-----------------------------------------------------------------------------

-- 
Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log