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

[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

[slime-devel] debug-in-emacs mod suggestion
by Alan Ruttenberg 03 Jul '04

03 Jul '04

Instead of calling compute-restarts directly call an implementation-define swank-compute-restarts. Default that function to call compute-restarts. In openmcl we would define (defun swank-compute-restarts (condition) (butlast (compute-restarts condition) 2)) or something more robust, if I can figure that out, to get rid of the restarts that blow away the slime/emacs connection. BTW, I would make the change myself but my password to the slime CVS seems to have gone bad and mail to the common-lisp.net maintainers has not yet yielded a response. Perhaps Helmut or Luke could help me out... -Alan

2 2

Re: [slime-devel] return value
by Nicolas Neuss 03 Jul '04

03 Jul '04

Rolf Wester <rolf.wester(a)ilt.fraunhofer.de> writes: > Thank you for the answer. Unfortunately C-x M-e and C-x C-e show the same > behaviour. When evaluating > (let ((v (make-array 10 :initial-element 1.0))) v) > with either C-x M-e or C-x C-e the 1.0s ore displayed in the mini-buffer > but not in the *slime-repl* nor in the *SLIME-Typeout* buffer. > > Regards > > Rolf > > P.S.: I'm using slime-1.0alpha and CMUCL18e Oops. You're right. I have returned to SLIME only recently (I have even made a pause with Lisp). Sorry for the misinformation, Nicolas.

1 0

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

03 Jul '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.452 slime/ChangeLog:1.458 --- slime/ChangeLog:1.452 Wed Jun 30 23:35:50 2004 +++ slime/ChangeLog Fri Jul 2 17:08:16 2004 @@ -1,3 +1,29 @@ +2004-07-03 Luke Gorrie <luke(a)bluetail.com> + + * hyperspec.el (common-lisp-hyperspec-section-4.0): Bugfix from + Lennart Staflin. + + * slime.el (slime-repl-clear-output): Avoid clearing the previous + REPL expression too. Patch from Andras Simon. + + * swank-backend.lisp (definterface): Don't use + NO-APPLICABLE-METHOD for default methods. Instead just define them + as regular methods with all argument types being + T. Defimplementation will then replace them by using the same + signature. N-A-M was a stupid idea! + +2004-07-02 Brian Downing <bdowning(a)lavos.net> + + * slime.el (slime-reindent-defun): Added a check for (boundp + 'slime-repl-input-start-mark) before checking the variable, as + XEmacs leaves variables unbound when `make-variable-buffer-local' + is run, while GNU Emacs binds them to NIL. + +2004-07-02 Martin Simmons <martin(a)xanalys.com> + + * swank-lispworks.lisp (dspec-stream-position, + make-dspec-location): Fix typo in features for LW 4.1 and 4.2. + 2004-07-01 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> * swank-lispworks.lisp (frame-actual-args): Bind

1 0

[slime-devel] HyperSpec 4.0, section lookup
by Lennart Staflin 03 Jul '04

03 Jul '04

I would like to suggest the following change to hyperspec.el --- hyperspec.el 30 Jun 2004 19:48:40 +0200 1.5 +++ hyperspec.el 02 Jul 2004 11:51:16 +0200 @@ -1135,10 +1135,9 @@ "") ".htm"))) -(defun common-lisp-hyperpsec-section-4.0 (indices) - (let ((string (format "%sBody/sec%s_" - common-lisp-hyperspec-root - (pop indices)))) +(defun common-lisp-hyperspec-section-4.0 (indices) + (let ((string (format "%sBody/sec_" + common-lisp-hyperspec-root))) (concat string (mapconcat (lambda (n) (format "%d" n)) That section naming works with the hyperspec copy I got. I hope it's the same for all copies. That the function name is misspelled suggests that that function hasn't been tested much. //Lennart Staflin

4 3

[slime-devel] slime-repl-clear-output
by Andras Simon 03 Jul '04

03 Jul '04

clears the last input as well; is this intentional? There's probably a better way with properties or markers, but here's what I mean: --- slime.el.~1.352.~ Wed Jun 30 23:12:30 2004 +++ slime.el Fri Jul 2 12:22:26 2004 @@ -2428,6 +2428,8 @@ (interactive) (let ((start (save-excursion (slime-repl-previous-prompt) + (forward-sexp) + (forward-line) (point))) (end (1- (slime-repl-input-line-beginning-position)))) (when (< start end) Andras

2 1

[slime-devel] AllegroCL looses ability to load a system
by Edi Weitz 02 Jul '04

02 Jul '04

Hi! Sometimes, in the middle of working on an application with SLIME (from CVS) and AllegroCL (7.0 beta) AllegroCL looses the ability to load a system with the ",l" shortcut. I usually start my sessions loading the system I'm currently working on and at this point it works fine but after a couple of breaks, backtraces and whatever it ceases to work. I'm afraid I can't provide an easy test case right now cause I'm in the middle of a project but maybe the attached backtrace is enought for the SLIME gurus. Cheers, Edi. No methods applicable for generic function #<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:OPERATE-ON-SYSTEM> with args ("prodata" "LOAD-OP") of classes (STRING STRING) [Condition of type PROGRAM-ERROR] Restarts: 0: [CONTINUE] Try calling it again 1: [ABORT] Abort SLIME compilation. 2: [ABORT] Abort handling SLIME request. 3: [ABORT] Abort entirely from this (lisp) process. Backtrace: 0: (SWANK::DEBUG-IN-EMACS #<PROGRAM-ERROR @ #x721d29a2>) 1: ((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT)) 2: (SWANK:SWANK-DEBUGGER-HOOK #<PROGRAM-ERROR @ #x721d29a2> #<Function SWANK-DEBUGGER-HOOK>) 3: (CERROR "Try calling it again" PROGRAM-ERROR :FORMAT-CONTROL "No methods applicable for generic function ~s with args ~s of classes ~s" :FORMAT-ARGUMENTS (#<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:OPERATE-ON-SYSTEM> ("prodata" "LOAD-OP") (STRING STRING))) 4: ((METHOD NO-APPLICABLE-METHOD (T)) #<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:OPERATE-ON-SYSTEM> "prodata" "LOAD-OP") 5: ((:INTERNAL SWANK:OPERATE-ON-SYSTEM-FOR-EMACS 0)) 6: (SWANK::MEASURE-TIME-INTERVAL #<Closure (:INTERNAL SWANK:OPERATE-ON-SYSTEM-FOR-EMACS 0) @ #x721d28da>) 7: (SWANK::SWANK-COMPILER #<Closure (:INTERNAL SWANK:OPERATE-ON-SYSTEM-FOR-EMACS 0) @ #x721d28da>) 8: (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP") 9: (EVAL (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP")) 10: (SWANK::EVAL-FOR-EMACS (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP") NIL 104) 11: (FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP") NIL 104) 12: (SWANK::READ-FROM-EMACS) 13: ((:INTERNAL SWANK::HANDLE-REQUEST 0)) 14: (SWANK::CALL-WITH-REDIRECTED-IO #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM package> #<The PROFILER package> #<The SWANK package> #<The SWANK-BACKEND package> #<The SWANK-COMPLETION-TEST package> #<The SWANK-IO-PACKAGE package> #<The SWANK-LOADER package> #<The SYSTEM package> #<The TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>)) #<Function (:INTERNAL SWANK::HANDLE-REQUEST 0)>) 15: (SWANK::HANDLE-REQUEST #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM package> #<The PROFILER package> #<The SWANK package> #<The SWANK-BACKEND package> #<The SWANK-COMPLETION-TEST package> #<The SWANK-IO-PACKAGE package> #<The SWANK-LOADER package> #<The SYSTEM package> #<The TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>))) 16: ((:INTERNAL SWANK::REPL-LOOP 0)) 17: (SWANK::CALL-WITH-REDIRECTED-IO #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM package> #<The PROFILER package> #<The SWANK package> #<The SWANK-BACKEND package> #<The SWANK-COMPLETION-TEST package> #<The SWANK-IO-PACKAGE package> #<The SWANK-LOADER package> #<The SYSTEM package> #<The TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>)) #<Closure (:INTERNAL SWANK::REPL-LOOP 0) @ #x7154e302>) 18: (SWANK::REPL-LOOP #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM package> #<The PROFILER package> #<The SWANK package> #<The SWANK-BACKEND package> #<The SWANK-COMPLETION-TEST package> #<The SWANK-IO-PACKAGE package> #<The SWANK-LOADER package> #<The SYSTEM package> #<The TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>))) 19: ((:INTERNAL SWANK::SPAWN-THREADS-FOR-CONNECTION 2))

2 2

[slime-devel] Allegro error I've been getting lately
by Peter Seibel 02 Jul '04

02 Jul '04

Every so often something I do at the REPL in Allegro (6.2 on GNU/Linux) will confuse SLIME. I'll see this message in the minibuffer and will get no response. error in process filter: No frame at point If I hit return a couple times I get: ; No value and the prompt back. Here's an elisp backtrace: Debugger entered--Lisp error: (error "No frame at point") signal(error ("No frame at point")) error("No frame at point") (cond (frame (car frame)) (t (error "No frame at point"))) (let ((frame ...)) (cond (frame ...) (t ...))) sldb-frame-number-at-point() (save-excursion (sldb-backward-frame) (sldb-frame-number-at-point)) sldb-previous-frame-number() (let ((number ...)) (cond (...) (t ...))) (save-excursion (mapc (function sldb-insert-frame) frames) (let (...) (cond ... ...))) (if (null frames) nil (when maximum-length (assert ...)) (save-excursion (mapc ... frames) (let ... ...))) (unless (null frames) (when maximum-length (assert ...)) (save-excursion (mapc ... frames) (let ... ...))) sldb-insert-frames(((0 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x717506aa>)" 0 52 ...) (:location ... ... nil)) (1 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (2 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x717506aa> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (3 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR")) (4 #("(READ #1=#<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> NIL #1#)" 0 85 ...) (:error "Unknown source location for READ")) (5 #("(SWANK::EVAL-REGION \"(tpl:processes)\n\" T)" 0 41 ...) (:location ... ... nil)) (6 #("((:INTERNAL SWANK:LISTENER-EVAL 0))" 0 35 ...) (:location ... ... nil)) (7 #("((METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x71750632>)" 0 109 ...) (:location ... ... nil)) (8 #("(SWANK:LISTENER-EVAL \"(tpl:processes)\n\")" 0 40 ...) (:location ... ... nil)) (9 #("(EVAL (SWANK:LISTENER-EVAL \"(tpl:processes)\n\"))" 0 47 ...) (:error "Unknown source location for EVAL")) (10 #("(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 78 ...) (:location ... ... nil)) (11 #("(FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 86 ...) (:error "Unknown source location for FUNCALL")) (12 #("(SWANK::READ-FROM-EMACS)" 0 24 ...) (:location ... ... nil)) (13 #("(SWANK::SLDB-LOOP 6)" 0 20 ...) (:location ... ... nil)) (14 #("((:INTERNAL SWANK::DEBUG-IN-EMACS 0))" 0 37 ...) (:location ... ... nil)) (15 #("((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<Function (:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)" 0 108 ...) (:location ... ... nil)) (16 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x7183d94a>)" 0 52 ...) (:location ... ... nil)) (17 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (18 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (19 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7183d932> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR"))) nil) (if (equal sldb-level level) nil (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration (setq sldb-saved-window-configuration ...)) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name (format "sldb[%d]" sldb-level)) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert (in-sldb-face section #("Restarts:" 0 9 ...)) "\n") (sldb-insert-restarts restarts) (insert "\n" (in-sldb-face section #("Backtrace:" 0 10 ...)) "\n") (setq sldb-backtrace-start-marker (point-marker)) (sldb-insert-frames (sldb-prune-initial-frames frames) nil) (run-hooks (quote sldb-hook)) (pop-to-buffer (current-buffer)) (setq buffer-read-only t) (when (and slime-stack-eval-tags ...) (recursive-edit))) (unless (equal sldb-level level) (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration (setq sldb-saved-window-configuration ...)) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name (format "sldb[%d]" sldb-level)) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert (in-sldb-face section #("Restarts:" 0 9 ...)) "\n") (sldb-insert-restarts restarts) (insert "\n" (in-sldb-face section #("Backtrace:" 0 10 ...)) "\n") (setq sldb-backtrace-start-marker (point-marker)) (sldb-insert-frames (sldb-prune-initial-frames frames) nil) (run-hooks (quote sldb-hook)) (pop-to-buffer (current-buffer)) (setq buffer-read-only t) (when (and slime-stack-eval-tags ...) (recursive-edit))) (save-current-buffer (set-buffer (sldb-get-buffer thread)) (unless (equal sldb-level level) (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration ...) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name ...) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert ... "\n") (sldb-insert-restarts restarts) (insert "\n" ... "\n") (setq sldb-backtrace-start-marker ...) (sldb-insert-frames ... nil) (run-hooks ...) (pop-to-buffer ...) (setq buffer-read-only t) (when ... ...))) (with-current-buffer (sldb-get-buffer thread) (unless (equal sldb-level level) (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration ...) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name ...) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert ... "\n") (sldb-insert-restarts restarts) (insert "\n" ... "\n") (setq sldb-backtrace-start-marker ...) (sldb-insert-frames ... nil) (run-hooks ...) (pop-to-buffer ...) (setq buffer-read-only t) (when ... ...))) sldb-setup(1 7 (#("The symbol \"PROCESSES\" is not external in the TOP-LEVEL package. [file\nposition = 14]" 0 85 (face sldb-topline-face)) #(" [Condition of type READER-ERROR]" 0 35 (face sldb-condition-face)) nil) ((#("RETURN-VALUE" 0 12 ...) #("Return a value instead of calling PROCESSES." 0 44 ...)) (#("USE-VALUE" 0 9 ...) #("Try calling a function other than PROCESSES." 0 44 ...)) (#("STORE-VALUE" 0 11 ...) #("Setf the symbol-function of PROCESSES and call it again." 0 56 ...)) (#("ABORT" 0 5 ...) #("Abort handling SLIME request." 0 29 ...)) (#("ABORT" 0 5 ...) #("Abort entirely from this process." 0 33 ...))) ((0 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x717506aa>)" 0 52 ...) (:location ... ... nil)) (1 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (2 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x717506aa> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (3 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR")) (4 #("(READ #1=#<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> NIL #1#)" 0 85 ...) (:error "Unknown source location for READ")) (5 #("(SWANK::EVAL-REGION \"(tpl:processes)\n\" T)" 0 41 ...) (:location ... ... nil)) (6 #("((:INTERNAL SWANK:LISTENER-EVAL 0))" 0 35 ...) (:location ... ... nil)) (7 #("((METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x71750632>)" 0 109 ...) (:location ... ... nil)) (8 #("(SWANK:LISTENER-EVAL \"(tpl:processes)\n\")" 0 40 ...) (:location ... ... nil)) (9 #("(EVAL (SWANK:LISTENER-EVAL \"(tpl:processes)\n\"))" 0 47 ...) (:error "Unknown source location for EVAL")) (10 #("(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 78 ...) (:location ... ... nil)) (11 #("(FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 86 ...) (:error "Unknown source location for FUNCALL")) (12 #("(SWANK::READ-FROM-EMACS)" 0 24 ...) (:location ... ... nil)) (13 #("(SWANK::SLDB-LOOP 6)" 0 20 ...) (:location ... ... nil)) (14 #("((:INTERNAL SWANK::DEBUG-IN-EMACS 0))" 0 37 ...) (:location ... ... nil)) (15 #("((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<Function (:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)" 0 108 ...) (:location ... ... nil)) (16 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x7183d94a>)" 0 52 ...) (:location ... ... nil)) (17 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (18 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (19 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7183d932> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR")))) slime-dispatch-event((:debug 1 7 (#("The symbol \"PROCESSES\" is not external in the TOP-LEVEL package. [file\nposition = 14]" 0 85 ...) #(" [Condition of type READER-ERROR]" 0 35 ...) nil) ((#("RETURN-VALUE" 0 12 ...) #("Return a value instead of calling PROCESSES." 0 44 ...)) (#("USE-VALUE" 0 9 ...) #("Try calling a function other than PROCESSES." 0 44 ...)) (#("STORE-VALUE" 0 11 ...) #("Setf the symbol-function of PROCESSES and call it again." 0 56 ...)) (#("ABORT" 0 5 ...) #("Abort handling SLIME request." 0 29 ...)) (#("ABORT" 0 5 ...) #("Abort entirely from this process." 0 33 ...))) ((0 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x717506aa>)" 0 52 ...) ...) (1 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) ...) (2 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x717506aa> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) ...) (3 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) ...) (4 #("(READ #1=#<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> NIL #1#)" 0 85 ...) ...) (5 #("(SWANK::EVAL-REGION \"(tpl:processes)\n\" T)" 0 41 ...) ...) (6 #("((:INTERNAL SWANK:LISTENER-EVAL 0))" 0 35 ...) ...) (7 #("((METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x71750632>)" 0 109 ...) ...) (8 #("(SWANK:LISTENER-EVAL \"(tpl:processes)\n\")" 0 40 ...) ...) (9 #("(EVAL (SWANK:LISTENER-EVAL \"(tpl:processes)\n\"))" 0 47 ...) ...) (10 #("(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 78 ...) ...) (11 #("(FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 86 ...) ...) (12 #("(SWANK::READ-FROM-EMACS)" 0 24 ...) ...) (13 #("(SWANK::SLDB-LOOP 6)" 0 20 ...) ...) (14 #("((:INTERNAL SWANK::DEBUG-IN-EMACS 0))" 0 37 ...) ...) (15 #("((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<Function (:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)" 0 108 ...) ...) (16 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x7183d94a>)" 0 52 ...) ...) (17 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) ...) (18 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) ...) (19 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7183d932> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) ...))) #<process SLIME Lisp>) slime-process-available-input() slime-net-filter(#<process SLIME Lisp> " (17 \"((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))\" (:location (:file \"/home/peter/cvs/slime/swank.lisp\") (:position 39988) nil)) (18 \"(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)\" (:location (:file \"/home/peter/cvs/slime/swank.lisp\") (:position 39988) nil)) (19 \"(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \\\"(tpl:processes)\\\" pos 14 @ #x7183d932> :FORMAT-CONTROL \\\"~?~@[ [file position = ~d]~]\\\" :FORMAT-ARGUMENTS (\\\"~\nThe symbol ~s is not external in the ~a package.\\\" (\\\"PROCESSES\\\" \\\"TOP-LEVEL\\\") 14))\" (:error \"Unknown source location for ERROR\"))))\n..(:debug-activate 1 7)\n") -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

1 1

[slime-devel] downcased symbols inserted by SLIME-INSERT-ARGLIST
by Thomas Schilling 02 Jul '04

02 Jul '04

Would be nice if the above would be the case. (Could try to implement it myself, but I think it's faster to post my request here than to figure out how to do it-- haven't done any bigger emacs programming yet.) Thanks. -ts -- ,, \../ / <<< The LISP Effect |_\\ _==__ __ | |bb| | _________________________________________________

2 2

[slime-devel] return value
by Rolf Wester 02 Jul '04

02 Jul '04

Hi, I just started using SLIME and have a question concerning the output of return values. Is is possible to get return values printed into the *slime-repl* buffer instead of into the mini-buffer? Regards Rolf

2 1

[slime-devel] Incomplete check of *features* in slime-lispworks.lisp
by peder＠klingenberg.no 02 Jul '04

02 Jul '04

At least in my version of lispworks 4.2, the *feature* contains :LISPWORKS4.2, but no :LISPWORKS-4.2. This breaks the test for LW 4.3 or above in slime-lispworks.lisp. The following simple patch agains CVS HEAD fixes it for me. I've left the existing symbols in place in case this is something that changes with patchlevel or something, and included LISPWORKS4.1 for completeness. =================================================================== RCS file: /project/slime/cvsroot/slime/swank-lispworks.lisp,v retrieving revision 1.50 diff -u -b -r1.50 swank-lispworks.lisp --- swank-lispworks.lisp 1 Jul 2004 06:33:18 -0000 1.50 +++ swank-lispworks.lisp 2 Jul 2004 07:59:18 -0000 @@ -380,7 +380,7 @@ (*readtable* ,readtable)) ,@body))))) -#-(or lispworks-4.1 lispworks-4.2) ; no dspec:parse-form-dspec prior to 4.3 +#-(or lispworks-4.1 lispworks-4.2 lispworks4.1 lispworks4.2) ; no dspec:parse-form-dspec prior to 4.3 (defun dspec-stream-position (stream dspec) (with-fairly-standard-io-syntax (loop (let* ((pos (file-position stream)) ...Peder... -- Sløv uten dop.

2 2