[slime-devel] Error when typing `(in-package' in Lisp mode buffer

[Paolo Amoroso]

As soon as I type the "e" of "(in-package" in a Lisp mode buffer,
SLIME stops with the error message included below, and reissues the
error until I delete enough characters to make the string no longer
recognizable as a package setting form.  I use SLIME CVS sources
updated a few hours ago with GNU Emacs 20.7.2 and CMUCL 18e under
Debian Woody.


Paolo

-----------------------------------------------------------------
Error in function SWANK::GUESS-BUFFER-PACKAGE:  Package nil not found.
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [CONTINUE] Use current package. [COMMON-LISP-USER]
  1: [ABORT] Abort handling SLIME request.
  2: [ABORT] Return to Top-Level.

Backtrace:
  0: (SWANK::GUESS-BUFFER-PACKAGE "nil")
  1: (SWANK::EVAL-FOR-EMACS (SWANK:ARGLIST-FOR-ECHO-AREA '("in-package"))
                            "nil"
                            11)
  2: ("DEFUN HANDLE-REQUEST")
  3: (SWANK::CALL-WITH-REDIRECTED-IO
      #S(SWANK::CONNECTION
           :SOCKET-IO #<Stream for descriptor 6>
           :DEDICATED-OUTPUT #1=#<Stream for descriptor 7>
           :USER-INPUT #2=#<SWANK-BACKEND::SLIME-INPUT-STREAM {48607ECD}>
           :USER-OUTPUT #1#
           :USER-IO #<Two-Way Stream, Input = #2#, Output = #1#>
           ...)
      #<Function "DEFUN HANDLE-REQUEST" {4845C931}>)
  4: (SWANK::HANDLE-REQUEST
      #S(SWANK::CONNECTION
           :SOCKET-IO #<Stream for descriptor 6>
           :DEDICATED-OUTPUT #1=#<Stream for descriptor 7>
           :USER-INPUT #2=#<SWANK-BACKEND::SLIME-INPUT-STREAM {48607ECD}>
           :USER-OUTPUT #1#
           :USER-IO #<Two-Way Stream, Input = #2#, Output = #1#>
           ...))
  5: (SWANK::PROCESS-AVAILABLE-INPUT #<Stream for descriptor 6>
                                     #<Closure Over Function "DEFUN INSTALL-SIGIO-HANDLER"
                                       {48682EB1}>)
  6: (SWANK::HANDLER)
  7: (SWANK-BACKEND::SIGIO-HANDLER #<#1=unused-arg> #<#1#> #<#1#>)
  8: ("Foreign function call land")
  9: ("Foreign function call land")
  10: ("Foreign function call land")
  11: ("Foreign function call land")
  12: ("Foreign function call land")
  13: (SYSTEM:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)
  14: (COMMON-LISP::DO-INPUT #<Stream for Standard Input>)
  15: (COMMON-LISP::INPUT-CHARACTER #<Stream for Standard Input>
                                    NIL
                                    (COMMON-LISP::*EOF*))
  16: (COMMON-LISP::SYNONYM-IN #<Synonym Stream to SYSTEM:*STDIN*>
                               NIL
                               (COMMON-LISP::*EOF*))
  17: (COMMON-LISP::TWO-WAY-IN
       #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>>
       NIL
       (COMMON-LISP::*EOF*))
  18: (READ-CHAR
       #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>>
       NIL
       (COMMON-LISP::*EOF*)
       #<unused-arg>)
  19: (READ-PRESERVING-WHITESPACE
       #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>>
       NIL
       (:EOF)
       T)
  20: (READ-PRESERVING-WHITESPACE
       #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>>
       NIL
       (:EOF)
       NIL)
  21: (READ-PRESERVING-WHITESPACE 4
                                  #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>>
                                  NIL
                                  (:EOF)
                                  ...)[:EXTERNAL]
  22: (READ
       #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>>
       NIL
       (:EOF)
       NIL)
  23: (COMMON-LISP::%TOP-LEVEL)
  24: (COMMON-LISP::RESTART-LISP)

-----------------------------------------------------------------

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