- slime-devel - mailman3.common-lisp.net

[slime-devel] notes out of order
by Christophe Rhodes 09 Jul '04

09 Jul '04

Hi, C-c C-k on the attached file seems to put the notes in the *compiler-notes* buffer out of order, but differently from before (when they were in reverse order -- now it's 3, 1, 2). Cheers, Christophe -- http://www-jcsu.jesus.cam.ac.uk/~csr21/ +44 1223 510 299/+44 7729 383 757 (set-pprint-dispatch 'number (lambda (s o) (declare (special b)) (format s b))) (defvar b "~&Just another Lisp hacker~%") (pprint #36rJesusCollegeCambridge)

1 0

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 08 Jul '04

08 Jul '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.461 slime/ChangeLog:1.464 --- slime/ChangeLog:1.461 Sat Jul 3 22:17:26 2004 +++ slime/ChangeLog Wed Jul 7 08:10:08 2004 @@ -1,3 +1,30 @@ +2004-07-07 Thomas Schilling <tjs_ng(a)yahoo.de> + + * swank.lisp (arglist-for-insertion): Changed formatting to use + arglist-to-string. That results in proper cases for + slime-insert-arglist. + +2004-07-07 Luke Gorrie <luke(a)bluetail.com> + + * swank-loader.lisp (*lisp-name*): Include the version number in + ACL. + + * slime.el (slime-alistify): Preserve order. This keeps the + *compiler-notes* right. Pointed out by Christophe Rhodes. + (slime-repl-update-banner-p): Renamed from slime-reply-.. + (slime-changelog-date): Reintroduced for informational purposes. + (slime-repl-update-banner): Show ChangeLog date in the animation. + (slime-space): Do arglist lookup before inserting the + space. Otherwise we get a funky race condition: entering the space + may trigger `first-change-hook', which would send an async + notification to Lisp, which would put us in the 'busy' state and + thus we wouldn't lookup the arglist! Detective work by Edi Weitz. + (sldb-prune-initial-frames): More regexp fudgery :-(. + (read-directory-name): Use `file-name-as-directory' to ensure we + have the trailing / on the directory name. + (byte-compile-warnings): Bye-compile slime-alistify. Its inputs + can be pretty big. + 2004-07-04 Luke Gorrie <luke(a)bluetail.com> * slime.el, swank-backend.lisp, swank.lisp: Added a new backend

1 0

[slime-devel] More Slime hangs on threaded SBCL
by Nikodemus Siivola 07 Jul '04

07 Jul '04

Slime REPL hangs after startup on threaded SBCL (on a 2.4 kernel, yeah, but it didn't used to do this): typing things there has no effect. The same happens for all :fd-handler :sigio and :spaw styles, just the backtraces (appended) differ. For :fd-handler 0: ("foreign function call land: ra=#x805AFD1") 1: ("foreign function call land: ra=#x805AEA3") 2: ("foreign function call land: ra=#x8051627") 3: ("foreign function call land: ra=#x8053AC5") 4: ("foreign function call land: ra=#x4006D650") 5: ("hairy arg processor for top level local call SB!SYS:WAIT-UNTIL-FD-USABLE" 0 :INPUT NIL) 6: (SB-IMPL::FROB-INPUT 1 #<FILE-STREAM for "standard input" {9003331}>)[:EXTERNAL] 7: (SB-IMPL::INPUT-CHARACTER 3 #<FILE-STREAM for "standard input" {9003331}> NIL #:EOF-OBJECT)[:EXTERNAL] 8: ("hairy arg processor for top level local call READ-CHAR" #<FILE-STREAM for "standard input" {9003331}> NIL #:EOF-OBJECT #<unused argument>) 9: ("hairy arg processor for top level local call READ-CHAR" #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {5029DB1}> NIL #:EOF-OBJECT #<unused argument>) 10: ("hairy arg processor for top level local call READ-CHAR" #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {A02EF11}> NIL #:EOF-OBJECT #<unused argument>) 11: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE" #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {A02EF11}> NIL (NIL) T) 12: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE" #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {A02EF11}> NIL (NIL) NIL) 13: ("hairy arg processor for top level local call READ" #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {A02EF11}> NIL (NIL) NIL) 14: (SB-IMPL::REPL-READ-FORM-FUN 2 #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {A02EF11}> #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-OUTPUT* {A02EEB1}>)[:EXTERNAL] 15: (SB-IMPL::REPL-FUN 1 NIL)[:EXTERNAL] 16: ("#'(LAMBDA NIL (LOOP # #))") 17: ("XEP for #'(LAMBDA NIL (LOOP # #))" 0)[:EXTERNAL] 18: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX 1 #<FUNCTION "CLOSURE" {96F4B75}>)[:EXTERNAL] 19: (SB-IMPL::TOPLEVEL-REPL 1 NIL)[:EXTERNAL] 20: (SB-IMPL::TOPLEVEL-INIT 0)[:EXTERNAL] 21: ("FLET SB!IMPL::RESTART-LISP") For :sigio 0: ((SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<unused argument> #<unused argument> #<FUNCTION "#'(LAMBDA NIL (SWANK::SLDB-LOOP SWANK::*SLDB-LEVEL*))" {922CFCD}>) 1: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR {95962B9}>) 2: (INVOKE-DEBUGGER 1 #<SIMPLE-ERROR {95962B9}>)[:EXTERNAL] 3: (SWANK::SIMPLE-BREAK) 4: ("#'(LAMBDA NIL (LET # #))") 5: (SWANK::CALL-WITH-REDIRECTED-IO #S(SWANK::CONNECTION :SOCKET-IO #<FILE-STREAM for #1="a constant string" {9B3C6E1}> :DEDICATED-OUTPUT #2=#<FILE-STREAM for #1# {947D2F1}> :USER-INPUT #3=#<SWANK-BACKEND::SLIME-INPUT-STREAM {9554D81}> :USER-OUTPUT #2# :USER-IO #<TWO-WAY-STREAM :INPUT-STREAM #3# :OUTPUT-STREAM #2#> :READER-THREAD NIL :CONTROL-THREAD NIL :REPL-THREAD NIL :SERVE-REQUESTS #<FUNCTION SWANK::INSTALL-SIGIO-HANDLER> :READ #<FUNCTION SWANK::READ-FROM-SOCKET-IO> :SEND #<FUNCTION SWANK::SEND-TO-SOCKET-IO> :CLEANUP #<FUNCTION SWANK::DEINSTALL-SIGIO-HANDLER> :INDENTATION-CACHE #<HASH-TABLE :TEST EQ :COUNT 54 {9B42309}> :INDENTATION-CACHE-PACKAGES (#<PACKAGE "SWANK-COMPLETION-TEST"> #<PACKAGE "SWANK-IO-PACKAGE"> #<PACKAGE "SWANK"> #<PACKAGE "SB-POSIX-INTERNAL"> #<PACKAGE "SB-POSIX"> #<PACKAGE "SB-POSIX-SYSTEM"> #<PACKAGE "ASDF3997"> #<PACKAGE "SB-INTROSPECT"> #<PACKAGE "SB-BSD-SOCKETS"> #<PACKAGE "SB-BSD-SOCKETS-INTERNAL"> #<PACKAGE "SB-BSD-SOCKETS-SYSTEM"> #<PACKAGE "SB-GROVEL"> #<PACKAGE "SB-GROVEL-SYSTEM"> #<PACKAGE "ASDF3773"> #<PACKAGE "ASDF3772"> #<PACKAGE "NREGEX"> #<PACKAGE "SWANK-BACKEND"> #<PACKAGE "SWANK-LOADER"> #<PACKAGE "ASDF"> #<PACKAGE "COMMON-LISP-USER"> #<PACKAGE "SB-LOOP"> #<PACKAGE "SB-IMPL"> #<PACKAGE "KEYWORD"> #<PACKAGE "SB-WALKER"> #<PACKAGE "SB-PROFILE"> #<PACKAGE "SB-PRETTY"> #<PACKAGE "SB-MOP"> #<PACKAGE "SB-INT"> #<PACKAGE "SB-GRAY"> #<PACKAGE "SB-FORMAT"> #<PACKAGE "SB-FASL"> #<PACKAGE "SB-DISASSEM"> #<PACKAGE "SB-DEBUG"> #<PACKAGE "SB-C"> #<PACKAGE "SB-BIGNUM"> #<PACKAGE "SB-ASSEM"> #<PACKAGE "SB-ALIEN-INTERNALS"> #<PACKAGE "SB-SYS"> #<PACKAGE "SB-ALIEN"> #<PACKAGE "SB-PCL"> #<PACKAGE "SB-UNIX"> #<PACKAGE "SB-VM"> #<PACKAGE "SB-THREAD"> #<PACKAGE "SB-DI"> #<PACKAGE "SB-KERNEL"> #<PACKAGE "SB-EXT"> #<PACKAGE "COMMON-LISP">)) #<FUNCTION "#'(LAMBDA NIL (LET # #))" {90ECF1D}>) 6: (SWANK::HANDLE-REQUEST #S(SWANK::CONNECTION :SOCKET-IO #<FILE-STREAM for #1="a constant string" {9B3C6E1}> :DEDICATED-OUTPUT #2=#<FILE-STREAM for #1# {947D2F1}> :USER-INPUT #3=#<SWANK-BACKEND::SLIME-INPUT-STREAM {9554D81}> :USER-OUTPUT #2# :USER-IO #<TWO-WAY-STREAM :INPUT-STREAM #3# :OUTPUT-STREAM #2#> :READER-THREAD NIL :CONTROL-THREAD NIL :REPL-THREAD NIL :SERVE-REQUESTS #<FUNCTION SWANK::INSTALL-SIGIO-HANDLER> :READ #<FUNCTION SWANK::READ-FROM-SOCKET-IO> :SEND #<FUNCTION SWANK::SEND-TO-SOCKET-IO> :CLEANUP #<FUNCTION SWANK::DEINSTALL-SIGIO-HANDLER> :INDENTATION-CACHE #<HASH-TABLE :TEST EQ :COUNT 54 {9B42309}> :INDENTATION-CACHE-PACKAGES (#<PACKAGE "SWANK-COMPLETION-TEST"> #<PACKAGE "SWANK-IO-PACKAGE"> #<PACKAGE "SWANK"> #<PACKAGE "SB-POSIX-INTERNAL"> #<PACKAGE "SB-POSIX"> #<PACKAGE "SB-POSIX-SYSTEM"> #<PACKAGE "ASDF3997"> #<PACKAGE "SB-INTROSPECT"> #<PACKAGE "SB-BSD-SOCKETS"> #<PACKAGE "SB-BSD-SOCKETS-INTERNAL"> #<PACKAGE "SB-BSD-SOCKETS-SYSTEM"> #<PACKAGE "SB-GROVEL"> #<PACKAGE "SB-GROVEL-SYSTEM"> #<PACKAGE "ASDF3773"> #<PACKAGE "ASDF3772"> #<PACKAGE "NREGEX"> #<PACKAGE "SWANK-BACKEND"> #<PACKAGE "SWANK-LOADER"> #<PACKAGE "ASDF"> #<PACKAGE "COMMON-LISP-USER"> #<PACKAGE "SB-LOOP"> #<PACKAGE "SB-IMPL"> #<PACKAGE "KEYWORD"> #<PACKAGE "SB-WALKER"> #<PACKAGE "SB-PROFILE"> #<PACKAGE "SB-PRETTY"> #<PACKAGE "SB-MOP"> #<PACKAGE "SB-INT"> #<PACKAGE "SB-GRAY"> #<PACKAGE "SB-FORMAT"> #<PACKAGE "SB-FASL"> #<PACKAGE "SB-DISASSEM"> #<PACKAGE "SB-DEBUG"> #<PACKAGE "SB-C"> #<PACKAGE "SB-BIGNUM"> #<PACKAGE "SB-ASSEM"> #<PACKAGE "SB-ALIEN-INTERNALS"> #<PACKAGE "SB-SYS"> #<PACKAGE "SB-ALIEN"> #<PACKAGE "SB-PCL"> #<PACKAGE "SB-UNIX"> #<PACKAGE "SB-VM"> #<PACKAGE "SB-THREAD"> #<PACKAGE "SB-DI"> #<PACKAGE "SB-KERNEL"> #<PACKAGE "SB-EXT"> #<PACKAGE "COMMON-LISP">))) 7: (SWANK::PROCESS-AVAILABLE-INPUT #<FILE-STREAM for "a constant string" {9B3C6E1}> #<FUNCTION "CLOSURE" {95960ED}>) 8: ("FLET SWANK::HANDLER") 9: (SWANK-BACKEND::SIGIO-HANDLER #<unused argument> #<unused argument> #<unused argument>) 10: ("#'(LAMBDA (SIGNAL SWANK-BACKEND::CODE SWANK-BACKEND::SCP) (SWANK-BACKEND::SIGIO-HANDLER SIGNAL SWANK-BACKEND::CODE ...))" 29 #.(SB-SYS:INT-SAP #X403775D0) #.(SB-SYS:INT-SAP #X40377650)) 11: ("foreign function call land: ra=#x805AFD1") 12: ("foreign function call land: ra=#x805AEA3") 13: ("foreign function call land: ra=#x8051627") 14: ("foreign function call land: ra=#x8053AC5") 15: ("foreign function call land: ra=#x4006D650") 16: ("hairy arg processor for top level local call SB!SYS:WAIT-UNTIL-FD-USABLE" 0 :INPUT NIL) 17: (SB-IMPL::FROB-INPUT 1 #<FILE-STREAM for "standard input" {9003261}>)[:EXTERNAL] 18: (SB-IMPL::INPUT-CHARACTER 3 #<FILE-STREAM for "standard input" {9003261}> NIL #:EOF-OBJECT)[:EXTERNAL] 19: ("hairy arg processor for top level local call READ-CHAR" #<FILE-STREAM for "standard input" {9003261}> NIL #:EOF-OBJECT #<unused argument>) 20: ("hairy arg processor for top level local call READ-CHAR" #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {5029DB1}> NIL #:EOF-OBJECT #<unused argument>) 21: ("hairy arg processor for top level local call READ-CHAR" #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {969FC41}> NIL #:EOF-OBJECT #<unused argument>) 22: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE" #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {969FC41}> NIL (NIL) T) 23: ("hairy arg processor for top level local call READ-PRESERVING-WHITESPACE" #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {969FC41}> NIL (NIL) NIL) 24: ("hairy arg processor for top level local call READ" #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {969FC41}> NIL (NIL) NIL) 25: (SB-IMPL::REPL-READ-FORM-FUN 2 #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {969FC41}> #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-OUTPUT* {969E4F1}>)[:EXTERNAL] 26: (SB-IMPL::REPL-FUN 1 NIL)[:EXTERNAL] 27: ("#'(LAMBDA NIL (LOOP # #))") 28: ("XEP for #'(LAMBDA NIL (LOOP # #))" 0)[:EXTERNAL] 29: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX 1 #<FUNCTION "CLOSURE" {96F4B75}>)[:EXTERNAL] 30: (SB-IMPL::TOPLEVEL-REPL 1 NIL)[:EXTERNAL] 31: (SB-IMPL::TOPLEVEL-INIT 0)[:EXTERNAL] 32: ("FLET SB!IMPL::RESTART-LISP") For :spawn 0: ((SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<unused argument> #<unused argument> #<FUNCTION "#'(LAMBDA NIL (SWANK::SLDB-LOOP SWANK::*SLDB-LEVEL*))" {922B555}>) 1: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR {95E7279}>) 2: (INVOKE-DEBUGGER 1 #<SIMPLE-ERROR {95E7279}>)[:EXTERNAL] 3: (SWANK::SIMPLE-BREAK) 4: ("foreign function call land: ra=#x805AFD1") 5: ("foreign function call land: ra=#x805B178") 6: ("foreign function call land: ra=#x4006E3B3") 7: ("foreign function call land: ra=#x8059C64") 8: (SB-THREAD::UNBLOCK-SIGCONT-AND-SLEEP 0)[:EXTERNAL] 9: (SB-THREAD:CONDITION-WAIT 2 #S(SB-THREAD:WAITQUEUE :NAME NIL :LOCK 0 :DATA (2345)) #S(SB-THREAD:MUTEX :NAME NIL :LOCK 0 :DATA NIL :VALUE NIL))[:EXTERNAL] 10: ((SWANK-BACKEND:RECEIVE NIL) #<unused argument> #<unused argument>) 11: (SWANK::READ-FROM-EMACS) 12: ("#'(LAMBDA NIL (LET # #))") 13: (SWANK::CALL-WITH-REDIRECTED-IO #S(SWANK::CONNECTION :SOCKET-IO #<FILE-STREAM for #1="a constant string" {9B7B731}> :DEDICATED-OUTPUT #2=#<FILE-STREAM for #1# {94D4D99}> :USER-INPUT #3=#<SWANK-BACKEND::SLIME-INPUT-STREAM {95BC799}> :USER-OUTPUT #2# :USER-IO #<TWO-WAY-STREAM :INPUT-STREAM #3# :OUTPUT-STREAM #2#> :READER-THREAD 2344 :CONTROL-THREAD 2343 :REPL-THREAD 2345 :SERVE-REQUESTS #<FUNCTION SWANK::SPAWN-THREADS-FOR-CONNECTION> :READ #<FUNCTION SWANK::READ-FROM-CONTROL-THREAD> :SEND #<FUNCTION SWANK::SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<HASH-TABLE :TEST EQ :COUNT 54 {9B81371}> :INDENTATION-CACHE-PACKAGES (#<PACKAGE "SWANK-COMPLETION-TEST"> #<PACKAGE "SWANK-IO-PACKAGE"> #<PACKAGE "SWANK"> #<PACKAGE "SB-POSIX-INTERNAL"> #<PACKAGE "SB-POSIX"> #<PACKAGE "SB-POSIX-SYSTEM"> #<PACKAGE "ASDF3997"> #<PACKAGE "SB-INTROSPECT"> #<PACKAGE "SB-BSD-SOCKETS"> #<PACKAGE "SB-BSD-SOCKETS-INTERNAL"> #<PACKAGE "SB-BSD-SOCKETS-SYSTEM"> #<PACKAGE "SB-GROVEL"> #<PACKAGE "SB-GROVEL-SYSTEM"> #<PACKAGE "ASDF3773"> #<PACKAGE "ASDF3772"> #<PACKAGE "NREGEX"> #<PACKAGE "SWANK-BACKEND"> #<PACKAGE "SWANK-LOADER"> #<PACKAGE "ASDF"> #<PACKAGE "COMMON-LISP-USER"> #<PACKAGE "SB-LOOP"> #<PACKAGE "SB-IMPL"> #<PACKAGE "KEYWORD"> #<PACKAGE "SB-WALKER"> #<PACKAGE "SB-PROFILE"> #<PACKAGE "SB-PRETTY"> #<PACKAGE "SB-MOP"> #<PACKAGE "SB-INT"> #<PACKAGE "SB-GRAY"> #<PACKAGE "SB-FORMAT"> #<PACKAGE "SB-FASL"> #<PACKAGE "SB-DISASSEM"> #<PACKAGE "SB-DEBUG"> #<PACKAGE "SB-C"> #<PACKAGE "SB-BIGNUM"> #<PACKAGE "SB-ASSEM"> #<PACKAGE "SB-ALIEN-INTERNALS"> #<PACKAGE "SB-SYS"> #<PACKAGE "SB-ALIEN"> #<PACKAGE "SB-PCL"> #<PACKAGE "SB-UNIX"> #<PACKAGE "SB-VM"> #<PACKAGE "SB-THREAD"> #<PACKAGE "SB-DI"> #<PACKAGE "SB-KERNEL"> #<PACKAGE "SB-EXT"> #<PACKAGE "COMMON-LISP">)) #<FUNCTION "#'(LAMBDA NIL (LET # #))" {90E92FD}>) 14: (SWANK::HANDLE-REQUEST #S(SWANK::CONNECTION :SOCKET-IO #<FILE-STREAM for #1="a constant string" {9B7B731}> :DEDICATED-OUTPUT #2=#<FILE-STREAM for #1# {94D4D99}> :USER-INPUT #3=#<SWANK-BACKEND::SLIME-INPUT-STREAM {95BC799}> :USER-OUTPUT #2# :USER-IO #<TWO-WAY-STREAM :INPUT-STREAM #3# :OUTPUT-STREAM #2#> :READER-THREAD 2344 :CONTROL-THREAD 2343 :REPL-THREAD 2345 :SERVE-REQUESTS #<FUNCTION SWANK::SPAWN-THREADS-FOR-CONNECTION> :READ #<FUNCTION SWANK::READ-FROM-CONTROL-THREAD> :SEND #<FUNCTION SWANK::SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<HASH-TABLE :TEST EQ :COUNT 54 {9B81371}> :INDENTATION-CACHE-PACKAGES (#<PACKAGE "SWANK-COMPLETION-TEST"> #<PACKAGE "SWANK-IO-PACKAGE"> #<PACKAGE "SWANK"> #<PACKAGE "SB-POSIX-INTERNAL"> #<PACKAGE "SB-POSIX"> #<PACKAGE "SB-POSIX-SYSTEM"> #<PACKAGE "ASDF3997"> #<PACKAGE "SB-INTROSPECT"> #<PACKAGE "SB-BSD-SOCKETS"> #<PACKAGE "SB-BSD-SOCKETS-INTERNAL"> #<PACKAGE "SB-BSD-SOCKETS-SYSTEM"> #<PACKAGE "SB-GROVEL"> #<PACKAGE "SB-GROVEL-SYSTEM"> #<PACKAGE "ASDF3773"> #<PACKAGE "ASDF3772"> #<PACKAGE "NREGEX"> #<PACKAGE "SWANK-BACKEND"> #<PACKAGE "SWANK-LOADER"> #<PACKAGE "ASDF"> #<PACKAGE "COMMON-LISP-USER"> #<PACKAGE "SB-LOOP"> #<PACKAGE "SB-IMPL"> #<PACKAGE "KEYWORD"> #<PACKAGE "SB-WALKER"> #<PACKAGE "SB-PROFILE"> #<PACKAGE "SB-PRETTY"> #<PACKAGE "SB-MOP"> #<PACKAGE "SB-INT"> #<PACKAGE "SB-GRAY"> #<PACKAGE "SB-FORMAT"> #<PACKAGE "SB-FASL"> #<PACKAGE "SB-DISASSEM"> #<PACKAGE "SB-DEBUG"> #<PACKAGE "SB-C"> #<PACKAGE "SB-BIGNUM"> #<PACKAGE "SB-ASSEM"> #<PACKAGE "SB-ALIEN-INTERNALS"> #<PACKAGE "SB-SYS"> #<PACKAGE "SB-ALIEN"> #<PACKAGE "SB-PCL"> #<PACKAGE "SB-UNIX"> #<PACKAGE "SB-VM"> #<PACKAGE "SB-THREAD"> #<PACKAGE "SB-DI"> #<PACKAGE "SB-KERNEL"> #<PACKAGE "SB-EXT"> #<PACKAGE "COMMON-LISP">))) 15: ("#'(LAMBDA NIL (LET # #))") 16: ("XEP for #'(LAMBDA NIL (LET # #))" 0)[:EXTERNAL] 17: (SWANK::CALL-WITH-REDIRECTED-IO #S(SWANK::CONNECTION :SOCKET-IO #<FILE-STREAM for #1="a constant string" {9B7B731}> :DEDICATED-OUTPUT #2=#<FILE-STREAM for #1# {94D4D99}> :USER-INPUT #3=#<SWANK-BACKEND::SLIME-INPUT-STREAM {95BC799}> :USER-OUTPUT #2# :USER-IO #<TWO-WAY-STREAM :INPUT-STREAM #3# :OUTPUT-STREAM #2#> :READER-THREAD 2344 :CONTROL-THREAD 2343 :REPL-THREAD 2345 :SERVE-REQUESTS #<FUNCTION SWANK::SPAWN-THREADS-FOR-CONNECTION> :READ #<FUNCTION SWANK::READ-FROM-CONTROL-THREAD> :SEND #<FUNCTION SWANK::SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<HASH-TABLE :TEST EQ :COUNT 54 {9B81371}> :INDENTATION-CACHE-PACKAGES (#<PACKAGE "SWANK-COMPLETION-TEST"> #<PACKAGE "SWANK-IO-PACKAGE"> #<PACKAGE "SWANK"> #<PACKAGE "SB-POSIX-INTERNAL"> #<PACKAGE "SB-POSIX"> #<PACKAGE "SB-POSIX-SYSTEM"> #<PACKAGE "ASDF3997"> #<PACKAGE "SB-INTROSPECT"> #<PACKAGE "SB-BSD-SOCKETS"> #<PACKAGE "SB-BSD-SOCKETS-INTERNAL"> #<PACKAGE "SB-BSD-SOCKETS-SYSTEM"> #<PACKAGE "SB-GROVEL"> #<PACKAGE "SB-GROVEL-SYSTEM"> #<PACKAGE "ASDF3773"> #<PACKAGE "ASDF3772"> #<PACKAGE "NREGEX"> #<PACKAGE "SWANK-BACKEND"> #<PACKAGE "SWANK-LOADER"> #<PACKAGE "ASDF"> #<PACKAGE "COMMON-LISP-USER"> #<PACKAGE "SB-LOOP"> #<PACKAGE "SB-IMPL"> #<PACKAGE "KEYWORD"> #<PACKAGE "SB-WALKER"> #<PACKAGE "SB-PROFILE"> #<PACKAGE "SB-PRETTY"> #<PACKAGE "SB-MOP"> #<PACKAGE "SB-INT"> #<PACKAGE "SB-GRAY"> #<PACKAGE "SB-FORMAT"> #<PACKAGE "SB-FASL"> #<PACKAGE "SB-DISASSEM"> #<PACKAGE "SB-DEBUG"> #<PACKAGE "SB-C"> #<PACKAGE "SB-BIGNUM"> #<PACKAGE "SB-ASSEM"> #<PACKAGE "SB-ALIEN-INTERNALS"> #<PACKAGE "SB-SYS"> #<PACKAGE "SB-ALIEN"> #<PACKAGE "SB-PCL"> #<PACKAGE "SB-UNIX"> #<PACKAGE "SB-VM"> #<PACKAGE "SB-THREAD"> #<PACKAGE "SB-DI"> #<PACKAGE "SB-KERNEL"> #<PACKAGE "SB-EXT"> #<PACKAGE "COMMON-LISP">)) #<FUNCTION "CLOSURE" {95E7055}>) 18: (SWANK::REPL-LOOP #S(SWANK::CONNECTION :SOCKET-IO #<FILE-STREAM for #1="a constant string" {9B7B731}> :DEDICATED-OUTPUT #2=#<FILE-STREAM for #1# {94D4D99}> :USER-INPUT #3=#<SWANK-BACKEND::SLIME-INPUT-STREAM {95BC799}> :USER-OUTPUT #2# :USER-IO #<TWO-WAY-STREAM :INPUT-STREAM #3# :OUTPUT-STREAM #2#> :READER-THREAD 2344 :CONTROL-THREAD 2343 :REPL-THREAD 2345 :SERVE-REQUESTS #<FUNCTION SWANK::SPAWN-THREADS-FOR-CONNECTION> :READ #<FUNCTION SWANK::READ-FROM-CONTROL-THREAD> :SEND #<FUNCTION SWANK::SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<HASH-TABLE :TEST EQ :COUNT 54 {9B81371}> :INDENTATION-CACHE-PACKAGES (#<PACKAGE "SWANK-COMPLETION-TEST"> #<PACKAGE "SWANK-IO-PACKAGE"> #<PACKAGE "SWANK"> #<PACKAGE "SB-POSIX-INTERNAL"> #<PACKAGE "SB-POSIX"> #<PACKAGE "SB-POSIX-SYSTEM"> #<PACKAGE "ASDF3997"> #<PACKAGE "SB-INTROSPECT"> #<PACKAGE "SB-BSD-SOCKETS"> #<PACKAGE "SB-BSD-SOCKETS-INTERNAL"> #<PACKAGE "SB-BSD-SOCKETS-SYSTEM"> #<PACKAGE "SB-GROVEL"> #<PACKAGE "SB-GROVEL-SYSTEM"> #<PACKAGE "ASDF3773"> #<PACKAGE "ASDF3772"> #<PACKAGE "NREGEX"> #<PACKAGE "SWANK-BACKEND"> #<PACKAGE "SWANK-LOADER"> #<PACKAGE "ASDF"> #<PACKAGE "COMMON-LISP-USER"> #<PACKAGE "SB-LOOP"> #<PACKAGE "SB-IMPL"> #<PACKAGE "KEYWORD"> #<PACKAGE "SB-WALKER"> #<PACKAGE "SB-PROFILE"> #<PACKAGE "SB-PRETTY"> #<PACKAGE "SB-MOP"> #<PACKAGE "SB-INT"> #<PACKAGE "SB-GRAY"> #<PACKAGE "SB-FORMAT"> #<PACKAGE "SB-FASL"> #<PACKAGE "SB-DISASSEM"> #<PACKAGE "SB-DEBUG"> #<PACKAGE "SB-C"> #<PACKAGE "SB-BIGNUM"> #<PACKAGE "SB-ASSEM"> #<PACKAGE "SB-ALIEN-INTERNALS"> #<PACKAGE "SB-SYS"> #<PACKAGE "SB-ALIEN"> #<PACKAGE "SB-PCL"> #<PACKAGE "SB-UNIX"> #<PACKAGE "SB-VM"> #<PACKAGE "SB-THREAD"> #<PACKAGE "SB-DI"> #<PACKAGE "SB-KERNEL"> #<PACKAGE "SB-EXT"> #<PACKAGE "COMMON-LISP">))) 19: ("#'(LAMBDA NIL (LET # # ...))") 20: ("foreign function call land: ra=#x805AFD1") 21: ("foreign function call land: ra=#x805ADED") Cheers, -- Nikodemus "Not as clumsy or random as a C++ or Java. An elegant weapon for a more civilized time."

1 1

[slime-devel] slime-symbol-name-at-point for "ERROR: with SYMBOLS."
by Pascal J.Bourguignon 07 Jul '04

07 Jul '04

Here is a version of slime-symbol-name-at-point that's more sophisticated than the one using thing-at-point. If there's a dot-double-quote after the symbol at point, then it removes the dot. The Right Thing would be to match the symbol at point depending on the expected symbols (known CLHS / current program symbols), and to try several possibilities (to be able to handle case when the symbol-dot does not end a string). (defun slime-symbol-name-at-point () "Return the name of the symbol at point, otherwise nil." (save-restriction ;; Don't be tricked into grabbing the REPL prompt. (when (and (eq major-mode 'slime-repl-mode) (>= (point) slime-repl-input-start-mark)) (narrow-to-region slime-repl-input-start-mark (point-max))) (save-excursion (skip-syntax-forward "w_") (skip-syntax-backward "-") (let ((string (let ((bounds (bounds-of-thing-at-point 'symbol))) (when bounds (buffer-substring (car bounds) (progn (goto-char (1- (cdr bounds))) (if (looking-at "\\.\"") (1- (cdr bounds)) (cdr bounds)))))))) (and string ;; In Emacs20 (thing-at-point 'symbol) returns "" instead ;; of nil when called from an empty (or ;; narrowed-to-empty) buffer. (not (equal string "")) (substring-no-properties string)))))) -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein

2 2

[slime-devel] SLIME-SPACE not always working?
by Edi Weitz 07 Jul '04

07 Jul '04

Hi! I /think/ this used to work differently some time ago, but I'm not sure. For a simple example create a file "foo.lisp" which has nothing but the line (zerop 42) in it. Now position point behind the "p" and press the space bar. I see no arglist in the mini-buffer. If I instead press backspace, then "p" and the space bar, I see the arglist. Is this expected behaviour? [Linux, FSF Emacs 21.3, CMUCL 18e, SLIME from CVS.] Thanks, Edi.

2 5

[slime-devel] How to stop a lengthy computation?
by Pascal J.Bourguignon 07 Jul '04

07 Jul '04

How do you stop a lengthy computation? Obviously, if I ask, it's because a mere C-g does not work! (I use clisp under slime). -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein

4 4

[slime-devel] no applicable method for the generic function SWANK-BACKEND:SPAWN
by Liam Healy 07 Jul '04

07 Jul '04

I was using an older version in XEmacs, then did a cvs update today. Using sbcl-mt, slime now ends in an error: M-x slime ends with * ;; Swank started at port: 32846. debugger invoked on a SIMPLE-ERROR in thread 2825: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:SPAWN (0)> when called with arguments (# :NAME "Swank"). You can type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT ] Reduce debugger level (leaving debugger, returning to toplevel). 1: [TOPLEVEL] Restart at toplevel READ/EVAL/PRINT loop. ((NO-APPLICABLE-METHOD (T)) #<unavailable argument> #<unavailable argument> #<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:SPAWN (0)> (#<FUNCTION "CLOSURE" {965627D}> :NAME "Swank")) 0] :a Liam

1 0

[slime-devel] Bug report: finish-output does not finish with slime!
by Pascal J.Bourguignon 06 Jul '04

06 Jul '04

CL-USER> (dolist (max '(10 100 1000)) (format t "~2% max = ~D ~%" max) (finish-output) (time (make-grid-dfa 10))) max = 10 Real time: 0.030129 sec. Run time: 0.03 sec. Space: 614340 Bytes max = 100 Real time: 0.080329 sec. Run time: 0.07 sec. Space: 614340 Bytes GC: 1, GC time: 0.05 sec. max = 1000 Real time: 0.027293 sec. Run time: 0.03 sec. Space: 614340 Bytes NIL CL-USER> (dolist (max '(10 100 1000)) (format t "~2% max = ~D ~%" max) (finish-output) (time (make-grid-dfa max))) In the first case, the output shows, but actually it's at the end. In the second case, since we've got O(n^2) processing time, I'm still waiting the first line! -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 04 Jul '04

04 Jul '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.458 slime/ChangeLog:1.461 --- slime/ChangeLog:1.458 Fri Jul 2 17:08:16 2004 +++ slime/ChangeLog Sat Jul 3 22:17:26 2004 @@ -1,3 +1,38 @@ +2004-07-04 Luke Gorrie <luke(a)bluetail.com> + + * slime.el, swank-backend.lisp, swank.lisp: Added a new backend + function `buffer-first-change' which is called via Emacs's + `first-change-hook' in slime-mode buffers. This gives Lisp a + chance to do something with source files before you change them on + disk. + + * swank-cmucl.lisp (buffer-first-change): Suck the source file + into the cache unless already present. This is for M-. to increase + the chances of our having a copy of the sources corresponding with + the loaded code. Should help with the case where a user edits and + saves a file (without recompiling it) and then M-.'s for one of + its definitions. + + * swank-allegro.lisp (make-process/inherit): Changed reader + conditionals to use fwrappers for #+(version>= 6). + + * swank-backend.lisp (make-stream-interactive): This backend + function is called with each stream that will be used for + user-interaction, i.e. the redirected stdio streams. Can be used + to setup special output-flushing or similar. + + * swank.lisp (open-streams): Call make-stream-interactive on the + redirected io streams. + + * swank-allegro.lisp (make-stream-interactive): Set + interactive-stream-p slot on the stream to make it auto-flush. + (*swank-thread*, *inherited-bindings*): New variables. + (spawn): Bind *swank-thread* to T. + (make-process/inherit): Fwrapper (advice) for + mp:make-process. When *swank-thread* is T then make the new thread + inherit "sliminess": debugger hook, I/O streams, and also + *swank-thread* so that its children will inherit too. + 2004-07-03 Luke Gorrie <luke(a)bluetail.com> * hyperspec.el (common-lisp-hyperspec-section-4.0): Bugfix from

1 0

[slime-devel] Multi-threaded debugging in Allegro?
by Peter Seibel 04 Jul '04

04 Jul '04

So I was checking out whether multi-threaded debugging in Allegro worked and did this: CL-USER> (mp:process-run-function "foo" #'(lambda () (break))) One time it seemed to have opened up an SLDB buffer to debug the thread which I didn't notice at first and found later. But I just tried it again from a freshly started SLIME and it didn't go into SLDB. So two questions: 1) Am I doing something wrong now that's causing it not to use SLDB and 2) Assuming I am, is it supposed to silently create the SLDB buffer? Is there some way to know that a thread has ended up in the debugger? -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

2 7