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

[slime-devel] Canonical package nicknames patch
by Peter Seibel 11 Jul '04

11 Jul '04

So it mildly annoys me that SLIME does this: CL-USER> (in-package :foo) #<The FOO package> FOO> (in-package :cl-user) #<The COMMON-LISP-USER package> USER> Note the final prompt. I seem to recall some discussion of this. I have a tiny patch to swank.lisp that causes shortest-package-nickname to check a *canonical-packge-names* alist first to see if there's a known prefered name for a given package. Currently *canonical-packge-names* contains only ("COMMON-LISP-USER" . "CL-USER"). I can check this in if folks think it's a good idea (or at least not a bad one.) If you want I can also change the function name from shortest-package-nickname to canonical-package-nickname which would be more descriptive of the new behavior. -Peter Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.210 diff -u -r1.210 swank.lisp --- swank.lisp 7 Jul 2004 15:09:33 -0000 1.210 +++ swank.lisp 9 Jul 2004 16:15:25 -0000 @@ -54,6 +54,9 @@ (defconstant keyword-package (find-package :keyword) "The KEYWORD package.") +(defvar *canonical-packge-names* + '(("COMMON-LISP-USER" . "CL-USER"))) + (defvar *swank-io-package* (let ((package (make-package :swank-io-package :use '()))) (import '(nil t quote) package) @@ -1313,11 +1316,12 @@ (defun shortest-package-nickname (package) "Return the shortest nickname (or canonical name) of PACKAGE." - (loop for name in (cons (package-name package) (package-nicknames package)) - for shortest = name then (if (< (length name) (length shortest)) - name - shortest) - finally (return shortest))) + (or (cdr (assoc (package-name package) *canonical-packge-names* :test #'string=)) + (loop for name in (cons (package-name package) (package-nicknames package)) + for shortest = name then (if (< (length name) (length shortest)) + name + shortest) + finally (return shortest)))) (defslimefun interactive-eval-region (string) (with-buffer-syntax () -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

4 7

[slime-devel] Slightly OT: texi2html of slime.texi
by David Steuber 10 Jul '04

10 Jul '04

Hi, Just a quick question here. Why does texi2html put the Contents near the end of the document? Is it something to do with the way the texi source is set up, or is it a bug in texi2html? To see what I mean, you can look here: http://www.david-steuber.com/~david/Lisp/slime.html I generally like to have a separate HTML copy of the documentation. Anyway, other than that minor detail, the documentation looks good and the links all seem to work.

1 0

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

10 Jul '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.464 slime/ChangeLog:1.466 --- slime/ChangeLog:1.464 Wed Jul 7 08:10:08 2004 +++ slime/ChangeLog Fri Jul 9 11:09:18 2004 @@ -1,3 +1,19 @@ +2004-07-09 Peter Seibel <peter(a)javamonkey.com> + + * swank.lisp (package-string-for-prompt): Change the way package + name in prompt is computed. N.B. after this change the name + displayed will not necsarily be either an actual name or nickname + of the package: if the name contains dots by default the prompt + will only display the last element, i.e. COM.GIGAMONKEYS.SPAM will + be shown as SPAM. This change also makes CL-USER the canonical + name for COMMON-LISP-USER even in implementations that provide a + shorter nickname such as USER. + +2004-07-09 Christophe Rhodes <csr21(a)cam.ac.uk> + + * slime.el (sldb-lookup-reference): substitute hyphens for spaces + in the url. + 2004-07-07 Thomas Schilling <tjs_ng(a)yahoo.de> * swank.lisp (arglist-for-insertion): Changed formatting to use

1 0

[slime-devel] What expressions can be inspected with slime-inspect?
by Paolo Amoroso 09 Jul '04

09 Jul '04

What kind of expressions it is possible to inspect with the `slime-inspect' command? Suppose I evaluate this in a SLIME repl: (defclass my-class () ((a) (b)) then invoke `slime-inspect' from a Lisp mode buffer with `C-c I' and type: (make-instance 'cl-user::my-class) I get this error: Error in function PCL::FIND-CLASS-FROM-CELL: No class named: COMMON-LISP-USER::MY-CLASS. [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Abort handling SLIME request. 1: [ABORT] Return to Top-Level. Backtrace: 0: (PCL::FIND-CLASS-FROM-CELL COMMON-LISP-USER::MY-CLASS NIL T) 1: ("DEFMETHOD MAKE-INSTANCE (SYMBOL)" #<#1=unused-arg> #<#1#> COMMON-LISP-USER::MY-CLASS NIL) 2: ("DEFSLIMEFUN INIT-INSPECTOR") --more-- Am I supposed to do that? In which environment does `slime-inspect' evaluate expressions? Paolo -- Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film

2 7

[slime-devel] condition references in *compiler-notes*
by Christophe Rhodes 09 Jul '04

09 Jul '04

Hi, Attached is a patch implementing compiler note references in the *compiler-notes* buffer. I'm sending it here for discussion, not only because it only works in bleeding-edge sbcl (yes, once again breaking all released versions...) but because of some of the violence I've done to slime.el. I'm aware of the badly-factored nature of the current patch, and I promise to fix that, but what worries in particular is the stuff in slime-tree-default-printer: how does it work, and what am I allowed to do there. What I have seems to work currently, but additional newlines (from terpri or (insert "\n")) cause weird stuff to happen -- I don't really understand why, but the " |" things ended up at the bottom, as in <http://www-jcsu.jesus.cam.ac.uk/~csr21/tree-oops.png">. Understanding what's going on would probably enable me to make a cleaner patch... 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] 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