Listener: error when typing nonexistent symbol

[Paolo Amoroso]

Suppose I type at the CLIM Listener prompt a symbol that does not
exist (`#' marks the position of the cursor):

  (clim:format-graph-from-root#

If I type SPACE now, I get the error included below.  I use the latest
McCLIM CVS sources with CMUCL 18e under Debian Woody.


Paolo

----------------------------------------------------------------------
Unable to display error condition:
Error in function UNIX::SIGSEGV-HANDLER:  Segmentation Violation at #xB2800.

Restarts:
  0: [CONTINUE          ] Use symbol anyway.
  1: [ABORT             ] Return to application command loop
  2: [RETURN-TO-LISTENER] Return to listener.
  3:                      Return to Top-Level.

Debug  (type H for help)

(COMMON-LISP::READ-TOKEN #<CLIM:STANDARD-INPUT-EDITING-STREAM {489AE0AD}> #\c)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer exists:
  target:code/reader.lisp.
0] backtrace

0: (COMMON-LISP::READ-TOKEN #<CLIM:STANDARD-INPUT-EDITING-STREAM {489AE0AD}>
                            #\c)
1: (COMMON-LISP::READ-MAYBE-NOTHING
    #<CLIM:STANDARD-INPUT-EDITING-STREAM {489AE0AD}>
    #\c)
2: (COMMON-LISP::READ-LIST #<CLIM:STANDARD-INPUT-EDITING-STREAM {489AE0AD}>
                           #<unused-arg>)
3: (READ-PRESERVING-WHITESPACE #<CLIM:STANDARD-INPUT-EDITING-STREAM {489AE0AD}>
                               T
                               NIL
                               T)
4: (READ-PRESERVING-WHITESPACE #<CLIM:STANDARD-INPUT-EDITING-STREAM {489AE0AD}>
                               T
                               NIL
                               NIL)
5: (READ-PRESERVING-WHITESPACE 4
                               #<CLIM:STANDARD-INPUT-EDITING-STREAM {489AE0AD}>
                               T
                               NIL
                               ...)[:EXTERNAL]
6: ("DEFINE-PRESENTATION-METHOD ACCEPT" #<unused-arg> #<unused-arg>
    #<CLIM-INTERNALS::|(presentation-type CLIM::FORM)| {490D4DAD}> CLIM:FORM
    ...)
7: ("DEFUN ACCEPT-1" #<CLIM:STANDARD-INPUT-EDITING-STREAM {489AE0AD}>)
8: (CLIM:ACCEPT CLIM:FORM
                :STREAM
                #<CLIM:STANDARD-INPUT-EDITING-STREAM {489AE0AD}>
                :PROMPT
                ...)
9: ("DEFMETHOD READ-FRAME-COMMAND (LISTENER)"
    #<CLIM:STANDARD-INPUT-EDITING-STREAM {489AE0AD}>)
10: ("DEFMETHOD INVOKE-WITH-INPUT-EDITING (EXTENDED-INPUT-STREAM T T T T)"
     #<unused-arg> #<unused-arg>
     #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {4899EFD5}>
     #<Closure Over Function "DEFMETHOD READ-FRAME-COMMAND (LISTENER)"
       {489AC689}>
     ...)
11: ("DEFMETHOD INVOKE-WITH-INPUT-EDITING :AROUND (EXTENDED-OUTPUT-STREAM T T T T)"
     #<unused-arg>
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function "DEFMETHOD INVOKE-WITH-INPUT-EDITING (EXTENDED-INPUT-STREAM T T T T)"
                      {112F5EE1}>
          :PV-CELL NIL
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #
                                 :PV-CELL NIL
                                 :NEXT-METHOD-CALL NIL
                                 :ARG-INFO #)
          :ARG-INFO (5))
     #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {4899EFD5}>
     #<Closure Over Function "DEFMETHOD READ-FRAME-COMMAND (LISTENER)"
       {489AC689}>
     ...)
12: ("DEFMETHOD READ-FRAME-COMMAND (LISTENER)" #<unused-arg> #<unused-arg>
     #<CLIM-LISTENER::LISTENER {4896F2AD}>
     (:STREAM #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {4899EFD5}>))
13: ("DEFMETHOD READ-FRAME-COMMAND :AROUND (APPLICATION-FRAME)" #<unused-arg>
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function "DEFMETHOD READ-FRAME-COMMAND (LISTENER)"
                      {4828A0B9}>
          :PV-CELL NIL
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #
                                 :PV-CELL NIL
                                 :NEXT-METHOD-CALL NIL
                                 :ARG-INFO #)
          :ARG-INFO (1 . T))
     #<CLIM-LISTENER::LISTENER {4896F2AD}>
     (:STREAM #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {4899EFD5}>))
14: ("DEFMETHOD READ-FRAME-COMMAND :AROUND (LISTENER)" #<unused-arg>
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function "DEFMETHOD READ-FRAME-COMMAND :AROUND (APPLICATION-FRAME)"
                      {113E6109}>
          :PV-CELL NIL
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #
                                 :PV-CELL NIL
                                 :NEXT-METHOD-CALL #
                                 :ARG-INFO #)
          :ARG-INFO (1 . T))
     #<CLIM-LISTENER::LISTENER {4896F2AD}>
     (:STREAM #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {4899EFD5}>))
15: ("DEFMETHOD DEFAULT-FRAME-TOP-LEVEL (APPLICATION-FRAME)" #<unused-arg>
     #<unused-arg> #<CLIM-LISTENER::LISTENER {4896F2AD}>
     (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT))
16: ("DEFMETHOD RUN-FRAME-TOP-LEVEL (APPLICATION-FRAME)" #<unused-arg>
     #<unused-arg> #<CLIM-LISTENER::LISTENER {4896F2AD}> #<unused-arg>)
17: ("DEFMETHOD RUN-FRAME-TOP-LEVEL (LISTENER)" #<unused-arg>
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function "DEFMETHOD RUN-FRAME-TOP-LEVEL (APPLICATION-FRAME)"
                      {113F3209}>
          :PV-CELL NIL
          :NEXT-METHOD-CALL NIL
          :ARG-INFO (1 . T))
     #<CLIM-LISTENER::LISTENER {4896F2AD}> NIL)
18: ("DEFMETHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)" #<unused-arg>
     #S(PCL::FAST-METHOD-CALL
          :FUNCTION #<Function "DEFMETHOD RUN-FRAME-TOP-LEVEL (LISTENER)"
                      {487BD0D9}>
          :PV-CELL NIL
          :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                 :FUNCTION #
                                 :PV-CELL NIL
                                 :NEXT-METHOD-CALL NIL
                                 :ARG-INFO #)
          :ARG-INFO (1 . T))
     #<CLIM-LISTENER::LISTENER {4896F2AD}> NIL)
19: (INTERACTIVE-EVAL (CLIM-LISTENER:RUN-LISTENER))
20: (COMMON-LISP::%TOP-LEVEL)
21: (COMMON-LISP::RESTART-LISP)

0]
----------------------------------------------------------------------

-- 
Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film