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

[Timothy Moore]

I'm not seeing  this. I think you might need to remove old fasl files.  
I didn't realize that this morning's checkin required that, but the new  
behavior of with-drawing-options probably does require a recompile of  
everything

Tim

On Feb 2, 2005, at 1:58 PM, Paolo Amoroso wrote:

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