Re: Bug#171633: ilisp: arglist display attempt in sbcl causes CL error

tags 171633 + upstream
thanks

Another bug report for xemacs, ilisp, and sbcl. 

I did commit changes to the CVS repository today to fix the sit-for
bug with xemacs.

-- 
       Kevin Rosenberg        |  .''`.  ** Debian GNU/Linux **
  http://b9.com/debian.html   | : :' :      The  universal
  GPG signed and encrypted    | `. `'      Operating System
     messages accepted.       |   `-    http://www.debian.org/


Bulent Murtezaoglu wrote:
> Package: ilisp
> Version: 5.12.0+cvs.2002.12.03
> Severity: important
> 
> This is independent of the bug #171001.  Running sbcl under ilisp and xemacs
> causes sbcl to enter the debugger upon hitting space after typing "(setf".
> I think the same happens in arglist fetch for anything and also on attempts 
> for M-tab completion.  
> 
> Here's how to reproduce it:
> 
> xemacs -q &
> M-x run-ilisp
> ;choose sbcl
> ;type "(setf" hit space
> 
> the sbcl backtrace is as follows (I backspaced over what I typed to cause the 
> error):
> Starting sbcl --noinform ...
> * 
> * ;;; 
> debugger invoked on condition of type SB-KERNEL:
> 0[3] ba
> 0: (SB-IMPL::READ-TOKEN 2 #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}> #\i)[:EXTERNAL]
> 1: (SB-IMPL::READ-MAYBE-NOTHING
>     2
>     #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>     #\i)[:EXTERNAL]
> 2: (SB-IMPL::READ-LIST
>     2
>     #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>     #<unavailable argument>)[:EXTERNAL]
> 3: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE"
>     #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>     T
>     NIL
>     T)
> 4: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE"
>     #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>     T
>     NIL
>     NIL)
> 5: ("hairy arg processor for top level local call READ"
>     #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>     T
>     NIL
>     NIL)
> 6: (SB-DEBUG::DEBUG-LOOP 0)[:EXTERNAL]
> 7: (INTERNAL-DEBUG 0)[:EXTERNAL]
> 8: ("#'(LAMBDA NIL (LET* # # ...))")
> 9: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX 1 #<FUNCTION "CLOSURE" {90DC7ED}>)[:EXTERNAL]
> 10: (ERROR 7 SB-KERNEL:READER-PACKAGE-ERROR)[:EXTERNAL]
> 11: (SB-IMPL::READ-TOKEN
>      2
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      #\i)[:EXTERNAL]
> 12: (SB-IMPL::READ-MAYBE-NOTHING
>      2
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      #\i)[:EXTERNAL]
> 13: (SB-IMPL::READ-LIST
>      2
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      #<unavailable argument>)[:EXTERNAL]
> 14: (SB-IMPL::READ-MAYBE-NOTHING
>      2
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      #\()[:EXTERNAL]
> 15: (SB-IMPL::READ-LIST
>      2
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      #<unavailable argument>)[:EXTERNAL]
> 16: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE"
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      T
>      NIL
>      T)
> 17: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE"
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      T
>      NIL
>      NIL)
> 18: ("hairy arg processor for top level local call READ"
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      T
>      NIL
>      NIL)
> 19: (SB-DEBUG::DEBUG-LOOP 0)[:EXTERNAL]
> 20: (INTERNAL-DEBUG 0)[:EXTERNAL]
> 21: ("#'(LAMBDA NIL (LET* # # ...))")
> 22: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX 1 #<FUNCTION "CLOSURE" {90C85BD}>)[:EXTERNAL]
> 23: (ERROR 7 SB-KERNEL:READER-PACKAGE-ERROR)[:EXTERNAL]
> 24: (SB-IMPL::READ-TOKEN
>      2
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      #\i)[:EXTERNAL]
> 25: (SB-IMPL::READ-MAYBE-NOTHING
>      2
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      #\i)[:EXTERNAL]
> 26: (SB-IMPL::READ-LIST
>      2
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      #<unavailable argument>)[:EXTERNAL]
> 27: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE"
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      T
>      NIL
>      T)
> 28: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE"
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      T
>      NIL
>      NIL)
> 29: ("hairy arg processor for top level local call READ"
>      #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {50CF731}>
>      T
>      NIL
>      NIL)
> 30: (SB-DEBUG::DEBUG-LOOP 0)[:EXTERNAL]
> 31: (INTERNAL-DEBUG 0)[:EXTERNAL]
> 32: ("#'(LAMBDA NIL (LET* # # ...))")
> 33: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX 1 #<FUNCTION "CLOSURE" {90588DD}>)[:EXTERNAL]
> 34: (ERROR 7 SB-KERNEL:READER-PACKAGE-ERROR)[:EXTERNAL]
> 35: (SB-IMPL::READ-TOKEN
>      2
>      #<TWO-WAY-STREAM
>        :INPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {53468F9}>
>        :OUTPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {5093189}>>
>      #\i)[:EXTERNAL]
> 36: (SB-IMPL::READ-MAYBE-NOTHING
>      2
>      #<TWO-WAY-STREAM
>        :INPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {53468F9}>
>        :OUTPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {5093189}>>
>      #\i)[:EXTERNAL]
> 37: (SB-IMPL::READ-LIST
>      2
>      #<TWO-WAY-STREAM
>        :INPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {53468F9}>
>        :OUTPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {5093189}>>
>      #<unavailable argument>)[:EXTERNAL]
> 38: (SB-IMPL::READ-MAYBE-NOTHING
>      2
>      #<TWO-WAY-STREAM
>        :INPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {53468F9}>
>        :OUTPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {5093189}>>
>      #\()[:EXTERNAL]
> 39: (SB-IMPL::READ-LIST
>      2
>      #<TWO-WAY-STREAM
>        :INPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {53468F9}>
>        :OUTPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {5093189}>>
>      #<unavailable argument>)[:EXTERNAL]
> 40: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE"
>      #<TWO-WAY-STREAM
>        :INPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {53468F9}>
>        :OUTPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {5093189}>>
>      NIL
>      (:EOF)
>      T)
> 41: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE"
>      #<TWO-WAY-STREAM
>        :INPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {53468F9}>
>        :OUTPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {5093189}>>
>      NIL
>      (:EOF)
>      NIL)
> 42: ("hairy arg processor for top level local call READ"
>      #<TWO-WAY-STREAM
>        :INPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {53468F9}>
>        :OUTPUT-STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {5093189}>>
>      NIL
>      (:EOF)
>      NIL)
> 43: (SB-IMPL::REPL 1 NIL)[:EXTERNAL]
> 44: (SB-IMPL::TOPLEVEL-REPL 1 NIL)[:EXTERNAL]
> 45: (SB-IMPL::TOPLEVEL-INIT 0)[:EXTERNAL]
> 46: ("FLET SB!IMPL::RESTART-LISP")
> 
> 0[4]
>  
> Additional info that reportbug missed:
> 
> ii  xemacs21       21.4.6-8       Editor and kitchen sink
> ii  sbcl           0.7.7-1        A development environment for Common Lisp
> 
> 
> Debian Release: testing/unstable
> Architecture: i386
> Kernel: Linux defter 2.4.20-pre5 #13 Sun Nov 24 20:50:08 EET 2002 i686
> Locale: LANG=C, LC_CTYPE=C
> 
> Versions of packages ilisp depends on:
> ii  debconf                       1.0.32     Debian configuration management sy
> ii  emacsen-common                1.4.15     Common facilities for all emacsen.


-------------------------------------------------------
This SF.net email is sponsored by: Microsoft Visual Studio.NET 
comprehensive development tool, built to increase your 
productivity. Try a free online hosted session at:
http://ads.sourceforge.net/cgi-bin/redirect.pl?micr0003en