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

[slime-devel] Re: [Sbcl-devel] "Cannot find source location" Error
by Jean-Philippe Barrette-LaPierre 13 Dec '07

13 Dec '07

On 12-Dec-07, at 7:23 PM, Juho Snellman wrote: > Jean-Philippe Barrette-LaPierre <jpb(a)rrette.com> writes: > >> I'm using sbcl-1.0.12.25-x86-darwin took from http://sbcl.static.net/ >> builds/. >> When I evaluate the following code: >> >> (declaim (optimize (speed 0) (space 0) (compilation-speed 0) >> (debug 3))) >> >> (defun test () >> (break)) >> >> (test) >> >> The "source" command within the debugger returns this: >> "Cannot find source localtion for #<COMPILED-CODE-LOCATION (SB- >> C::VARARGS-ENTRY BREAK)>" >> >> Is it a known problem? What am I doing wrong? > > You're trying to show the source of BREAK. Assuming your goal was to > show the location of the *call* to BREAK, you need to navigate to the > debugger frame for TEST (with up/down) before using the command. > Sorry, the source of the problem originated with SLIME usage. I tried to send a quick example that wouldn't rely on SLIME behavior and I didn't checked properly what I was doing. You're right sbcl behaves as it should in that case. It seems in fact to be a problem with SLIME. It seems someone has already sent an email about this problem: http://common-lisp.net/pipermail/slime-devel/2007-November/006761.html == little part of message == I start SBCL by M-m M-x slime SLIME does start up, I get a lisp prompt and it seems to behave normally. However, the connection between SBCL and SLIME is rather shaky. At some point during working with SBCL, I lose the function parameter info, I also can't break running code then. == end of part of message == If I load the test file (code above) within slime and I do: M-x slime M-x slime-compile-and-load-file When I enter in the debugger, the "v" command for any of my own stack frame, it prints: #<SB-DI::COMPILED-DEBUG-FUN TEST> has no debug-block information. or #<SB-DI::COMPILED-DEBUG-FUN TEST> has no debug-block information. However, if I compile back and load (slime-compile-and-load-file) the file, without having specified the action to take for the debugger (Debugger is still active), then I can see that the same messages are displayed for 1/10 of a second, but then "Evaluation aborted" is printed. I'm using slime-2.0, but slime-cvs (took around the 2007-12-10) does the same thing. Here's the *slime-event* buffer: (:emacs-rex (swank:connection-info) nil t 1) (:indentation-update (("with-locked-hash-table" . 1) ("with-unlocked-packages" . 1) ("with-timeout" . 1) ("define-source-context" . 2) ("without-package-locks" . 0) ("with-unique-names" . 1) ("with-float-traps-masked" . 1) ("awhen" . 1) ("defun-cached" . 2) ("prepare-for-fast-read-char" . 1) ("dx-flet" . 1) ("once-only" . 1) ("define-function-name-syntax" . 2) ("do-info" . 1) ("dx-let" . 1) ("dovector" . 1) ("collect" . 1) ("named-lambda" . 2) ("with-rebound-io-syntax" . 0) ("prepare-for-fast-read-byte" . 1) ...)) (:return (:ok (:pid 17387 :style :fd-handler :lisp-implementation (:type "SBCL" :name "sbcl" :version "1.0.12.25") :machine (:instance "jean-philippe-barrette-lapierres-computer.local" :type "X86" :version nil) :features (:sb-bsd-sockets-addrinfo :asdf :ansi-cl :common-lisp :sbcl :sb- doc :sb-test :sb-ldb :sb-package-locks :sb-unicode :sb-eval :sb- source-locations :ieee-floating-point :x86 :unix :mach- o :bsd :darwin :mach-exception-handler :sb-lutex ...) :package (:name "COMMON-LISP-USER" :prompt "CL-USER"))) 1) (:emacs-rex (swank:compile-file-for-emacs "/Users/jpbarrette/Projects/ MakeGrapher/test.lisp" t) nil t 2) (:write-string "\n") (:write-string "; compiling file \"/Users/jpbarrette/Projects/ MakeGrapher/test.lisp\" (written 12 DEC 2007 09:08:11 PM):\n\n; / Users/jpbarrette/Projects/MakeGrapher/test.fasl written\n; compilation finished in 0:00:00\ntest2: a 1\ntest: b 1\n") (:debug 0 1 ("break" " [Condition of type SIMPLE-CONDITION]" nil nil) (("CONTINUE" "Return from BREAK.") ("ABORT" "Abort SLIME compilation.") ("ABORT-REQUEST" "Abort handling SLIME request.") ("ABORT" "Exit debugger, returning to top level.")) ((0 "(BREAK \"break\")") (1 "(TEST 1)") (2 "(TEST2 1)") (3 "(SB-FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for \"file /Users/ jpbarrette/Projects/MakeGrapher/test.fasl\" {11B487B1}>)") (4 "((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))") (5 "(SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for \"file /Users/ jpbarrette/Projects/MakeGrapher/test.fasl\" {11B487B1}> NIL #<unavailable argument>)") (6 "(SB-FASL::INTERNAL-LOAD #P\"/Users/jpbarrette/Projects/ MakeGrapher/test.fasl\" #P\"/Users/jpbarrette/Projects/MakeGrapher/ test.fasl\" :ERROR NIL NIL :BINARY NIL)") (7 "(SB-FASL::INTERNAL-LOAD #P\"/Users/jpbarrette/Projects/ MakeGrapher/test.fasl\" #P\"/Users/jpbarrette/Projects/MakeGrapher/ test.fasl\" :ERROR NIL NIL NIL :DEFAULT)") (8 "(LOAD #P\"/Users/jpbarrette/Projects/MakeGrapher/test.fasl\")") (9 "((SB-PCL::FAST-METHOD SWANK-BACKEND:SWANK-COMPILE-FILE (T #1= \"#<...>\" . #1#)) #<unused argument> #<unused argument> \"/Users/ jpbarrette/Projects/MakeGrapher/test.lisp\" T NIL)") (10 "(SWANK::MEASURE-TIME-INTERVAL #<CLOSURE (LAMBDA NIL) {119AB815} >)") (11 "(SWANK::SWANK-COMPILER #<CLOSURE (LAMBDA NIL) {119AB815}>)") (12 "((LAMBDA NIL))") (13 "((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL) {119A6DC5}>)") (14 "(SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL) {119A6DC5}>)") (15 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:COMPILE-FILE-FOR-EMACS \"/ Users/jpbarrette/Projects/MakeGrapher/test.lisp\" T) #<NULL-LEXENV>)") (16 "((LAMBDA NIL))") (17 "((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK- DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {119A6C8D}>)") (18 "((LAMBDA NIL))") (19 "((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK- DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {11F7E895}>)")) (2)) (:debug-activate 0 1) (:emacs-rex (swank:frame-source-location-for-emacs 1) nil 0 3) (:return (:ok (:error "unhandled DEBUG-CONDITION:\n#<SB-DI::COMPILED-DEBUG-FUN TEST> has no debug-block information.")) 3) (:debug-activate 0 1) (:emacs-rex (swank:frame-source-location-for-emacs 2) nil 0 4) (:return (:ok (:error "unhandled DEBUG-CONDITION:\n#<SB-DI::COMPILED-DEBUG-FUN TEST2> has no debug-block information.")) 4) (:debug-activate 0 1) (:emacs-rex (swank:compile-file-for-emacs "/Users/jpbarrette/Projects/ MakeGrapher/test.lisp" t) nil t 5) (:write-string "; compiling file \"/Users/jpbarrette/Projects/ MakeGrapher/test.lisp\" (written 12 DEC 2007 09:08:11 PM):\n") (:write-string "\n; /Users/jpbarrette/Projects/MakeGrapher/test.fasl written\n; compilation finished in 0:00:00\nSTYLE-WARNING: redefining TEST in DEFUN\nSTYLE-WARNING: redefining TEST2 in DEFUN\ntest2: a 1 \ntest: b 1\n") (:debug 0 2 ("break" " [Condition of type SIMPLE-CONDITION]" nil nil) (("CONTINUE" "Return from BREAK.") ("ABORT" "Abort SLIME compilation.") ("ABORT" "Return to sldb level 1.") ("CONTINUE" "Return from BREAK.") ("ABORT" "Abort SLIME compilation.") ("ABORT-REQUEST" "Abort handling SLIME request.") ("ABORT" "Exit debugger, returning to top level.")) ((0 "(BREAK \"break\")") (1 "(TEST 1)") (2 "(TEST2 1)") (3 "(SB-FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for \"file /Users/ jpbarrette/Projects/MakeGrapher/test.fasl\" {11BFD571}>)") (4 "((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))") (5 "(SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for \"file /Users/ jpbarrette/Projects/MakeGrapher/test.fasl\" {11BFD571}> NIL #<unavailable argument>)") (6 "(SB-FASL::INTERNAL-LOAD #P\"/Users/jpbarrette/Projects/ MakeGrapher/test.fasl\" #P\"/Users/jpbarrette/Projects/MakeGrapher/ test.fasl\" :ERROR NIL NIL :BINARY NIL)") (7 "(SB-FASL::INTERNAL-LOAD #P\"/Users/jpbarrette/Projects/ MakeGrapher/test.fasl\" #P\"/Users/jpbarrette/Projects/MakeGrapher/ test.fasl\" :ERROR NIL NIL NIL :DEFAULT)") (8 "(LOAD #P\"/Users/jpbarrette/Projects/MakeGrapher/test.fasl\")") (9 "((SB-PCL::FAST-METHOD SWANK-BACKEND:SWANK-COMPILE-FILE (T #1= \"#<...>\" . #1#)) #<unused argument> #<unused argument> \"/Users/ jpbarrette/Projects/MakeGrapher/test.lisp\" T NIL)") (10 "(SWANK::MEASURE-TIME-INTERVAL #<CLOSURE (LAMBDA NIL) {11BC3FED} >)") (11 "(SWANK::SWANK-COMPILER #<CLOSURE (LAMBDA NIL) {11BC3FED}>)") (12 "((LAMBDA NIL))") (13 "((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL) {11BC3FCD}>)") (14 "(SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL) {11BC3FCD}>)") (15 "(SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:COMPILE-FILE-FOR-EMACS \"/ Users/jpbarrette/Projects/MakeGrapher/test.lisp\" T) #<NULL-LEXENV>)") (16 "((LAMBDA NIL))") (17 "((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK- DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {11BC3E95}>)") (18 "(SWANK::SLDB-LOOP 1)") (19 "((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING- ENVIRONMENT (T)) #<unused argument> #<unused argument> #<FUNCTION (LAMBDA NIL) {120F761D}>)")) (5 2)) (:debug-activate 0 2) (:emacs-rex (swank:frame-source-location-for-emacs 1) nil 0 6) (:debug-condition 0 "#<SB-DI::COMPILED-DEBUG-FUN TEST> has no debug- block information.") (:return (:abort) 6) (:debug-activate 0 2) (:emacs-rex (swank:frame-source-location-for-emacs 2) nil 0 7) (:debug-condition 0 "#<SB-DI::COMPILED-DEBUG-FUN TEST2> has no debug- block information.") (:return (:abort) 7) (:debug-activate 0 2) > And frankly, I would suggest using the Slime debugger rather than the > built-in one. > > -- > Juho Snellman >

1 0

[slime-devel] Cygwin - Emacs 22 - SBCL - swank-loader.lisp does not exist
by Terrence Brannon 11 Dec '07

11 Dec '07

Ok, I slimmed my slime init things down to exactly what is in the SLIME README: ;;; SLIME (add-to-list 'load-path "~/mydocs/dl/slime/slime/") (setq inferior-lisp-program "sbcl") (require 'slime) (slime-setup) And I have the CVS version of SLIME. However, when I type M-x slime the following occurs: (progn (load "/home/W049945/mydocs/dl/slime/slime/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank:start- server") "/cygdrive/c/DOCUME~1/W049945/LOCALS~1/Temp/slime.3140" :coding- system "iso-latin-1-unix")) (progn (load "/home/W049945/mydocs/dl/slime/slime/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank:start- server") "/cygdrive/c/DOCUME~1/W049945/LOCALS~1/Temp/slime.3140" :coding- system "iso-latin-1-unix")) This is SBCL 1.0.9, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. This is experimental prerelease support for the Windows platform: use at your own risk. "Your Kitten of Death awaits!" * debugger invoked on a SB-INT:SIMPLE-FILE-ERROR: "\\home\\W049945\\mydocs\\dl\\slime\\slime\\swank-loader.lisp" does not exist. Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. (SB-FASL::INTERNAL-LOAD #P"\\home\\W049945\\mydocs\\dl\\slime\\slime\\swank-loader.lisp" NIL :ERROR T NIL NIL :DEFAULT) 0]

1 1

[slime-devel] Filename translator example in manual
by Abhishek Reddy 11 Dec '07

11 Dec '07

Hi, In subsection 8.1.3 of the manual, the example code for slime-create-filename-translator contains a misleading error. It uses :machine-instance "remote.example.com" and :remote-host "remote", whereas the those values should be swapped. There's also a typo ("transaltions") in the relevant text before the example code. Diff: Index: slime.texi =================================================================== RCS file: /project/slime/cvsroot/slime/doc/slime.texi,v retrieving revision 1.61 diff -u -r1.61 slime.texi --- slime.texi 27 Nov 2007 13:16:52 -0000 1.61 +++ slime.texi 11 Dec 2007 12:22:51 -0000 @@ -2137,11 +2137,11 @@ (and vice-versa). Assuming the remote machine's host name is @code{remote.example.com}, @code{cl:machine-instance} returns ``remote'' and we login as the user ``user'' we can use @SLIME{}'s -built-in mechanism to setup the proper transaltions by simply doing: +built-in mechanism to setup the proper translations by simply doing: @example -(push (slime-create-filename-translator :machine-instance "remote.example.com" - :remote-host "remote" +(push (slime-create-filename-translator :remote-host "remote.example.com" + :machine-instance "remote" :username "user") slime-filename-translations) @end example Cheers, Abhishek

2 2

[slime-devel] cygwin sbcl - swank-loader.lisp not run through slime-filename-translations
by Terrence Brannon 11 Dec '07

11 Dec '07

Hello, as you can see from my .emacs setup, I am using cygpath to translate filenames from emacs to lisp and vice versa. However, during M-x slime that variable does not translate swank-loader.lisp as the *Messages* buffer indicates. I am using SLIME 2006. --- inferior lisp transcript --- (load "/home/Administrator/mydocs/dl/slime-2.0/swank-loader.lisp" :verbose t) (swank:start-server "c:\\DOCUME~1\\ADMINI~1\\LOCALS~1\\Temp\\slime.3392 " :external-format :iso-latin-1-unix) This is SBCL 1.0.12, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. This is experimental prerelease support for the Windows platform: use at your own risk. "Your Kitten of Death awaits!" * debugger invoked on a SB-INT:SIMPLE-FILE-ERROR: "\\home\\Administrator\\mydocs\\dl\\slime-2.0\\swank-loader.lisp" does not exist. Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. (SB-FASL::INTERNAL-LOAD #P"\\home\\Administrator\\mydocs\\dl\\slime-2.0\\swank-loader.lisp" NIL :ERROR T NIL NIL :DEFAULT) 0] debugger invoked on a SB-INT:SIMPLE-READER-PACKAGE-ERROR: SB-INT:SIMPLE-READER-PACKAGE-ERROR on #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {90CC391}>: package "SWANK" not found Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. (SB-IMPL::READ-TOKEN #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {90CC391}> #\s) 0[2] --- .emacs file --- ;;; SLIME (add-to-list 'load-path "~/mydocs/dl/slime-2.0/") (setq inferior-lisp-program "sbcl") (require 'slime) (add-hook 'lisp-mode-hook (lambda () (slime-mode t) (setq lisp-indent-function 'common-lisp-indent-function))) ;(setq slime-backend "/home/Administrator/mydocs/dl/slime-2.0/swank-loader.lisp") (setq slime-filename-translations '((".*" (lambda (emacs-filename) (let ((result (shell-command-to-string (concat "cygpath -w " emacs-filename)))) (progn (message (concat "TO-lisp: " result)) result))) (lambda (lisp-filename) (let ((result (shell-command-to-string (concat "cygpath " lisp-filename)))) (progn (message (concat "FROM-lisp: " result)) result)))))) (defadvice slime-init-command (around fix-slime-init activate) (let* ((filename (ad-get-arg 0)) ;; We can't use slime-to-lisp-filename here, as that uses ;; slime-machine-instance, which needs the connection to ;; already be set up. (filename (funcall (first (slime-find-filename-translators "")) (expand-file-name filename)))) (ad-set-arg 0 filename) ad-do-it)) (slime-setup) --- Messages buffer: note that only a TO-slime message shows up during startup - no FROM-slime. -- TO-lisp: c:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\slime.3392 Polling "/cygdrive/c/DOCUME~1/ADMINI~1/LOCALS~1/Temp/slime.3392".. (Abort with `M-x slime-abort-connection'.) [273 times] byte-code: End of buffer

1 0

[slime-devel] Blast your ad to millions of blogs
by BlogBlaster＠common-lisp.net 09 Dec '07

09 Dec '07

1 0

[slime-devel] win32 SLIME : long time and huge buffer to generate 100, 000 data items
by Terrence Brannon 04 Dec '07

04 Dec '07

I'm wondering if there is some way to tell SLIME to not try to report all output from the inferior lisp? My emacs buffer-menu shows the slime-repl as huge and ever-growing: * *slime-repl sbc: 123816001 REPL I'm building a huge data structure and need some way of SLIME sending the command but turning off output from SBCL. Here is the code that is taking a long time to run: (defvar *datasize* 100000 "size of dataset") (defun gendata () (dotimes (i *datasize*) (let* ( (m (random (1+ i))) (n (random (1+ m))) (text (write (generate 'sentence))) ) (list :text text :m m :n n))) ) (setf *d* (gendata)) -- http://www.aliveandwell.org/ | http://www.SlowChess.com | http://mostholy.wholefoodfarmacy.com

3 3

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 03 Dec '07

03 Dec '07

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1253 slime/ChangeLog:1.1254 --- slime/ChangeLog:1.1253 Fri Nov 30 08:10:40 2007 +++ slime/ChangeLog Sun Dec 2 03:44:33 2007 @@ -1,3 +1,19 @@ +2007-12-02 Alan Caulkins <fatman(a)maxint.net> + + Make it possible to close listening sockets. + + * swank.lisp (stop-server, restart-server): New functions. + (*listener-sockets*): New variable. + (setup-server): Store open sockets in *listener-sockets*. + +2007-12-02 Helmut Eller <heller(a)common-lisp.net> + + Add hook to customize the region used by C-c C-c. + Useful to recognize block declarations in CMUCL sources. + + * slime.el (slime-region-for-defun-function): New variable. + (slime-region-for-defun-at-point): Use it. + 2007-11-30 Helmut Eller <heller(a)common-lisp.net> Handle byte-functions without debug-info.

1 0

[slime-devel] (1) archives (2) *** - invalid byte #x90 in CHARSET:CP1252 conversion
by Terrence Brannon 02 Dec '07

02 Dec '07

(1) the archives of this list are not searchable, perhap we should archive via google groups? (2) When starting SLIME under clisp on Cygwin, I get the error: *** - invalid byte #x90 in CHARSET:CP1252 conversion Startup transcript follows: (load "/home/Administrator/mydocs/dl/slime-2.0/swank-loader.lisp" :verbose t) (swank:start-server "/cygdrive/c/DOCUME~1/ADMINI~1/LOCALS~1/Temp/slime.4924" :external-format :iso-latin-1-unix) i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 Copyright (c) Bruno Haible, Sam Steingold 1999-2000 Copyright (c) Sam Steingold, Bruno Haible 2001-2006 *** - invalid byte #x90 in CHARSET:CP1252 conversion The following restarts are available: ABORT :R1 ABORT ABORT :R2 ABORT Break 1 [3]> -- http://www.aliveandwell.org/ | http://www.SlowChess.com | http://mostholy.wholefoodfarmacy.com

3 2

[slime-devel] Swank restart-server Patch
by Alan Caulkins 02 Dec '07

02 Dec '07

I run a long-lived lisp image that I access remotely, and I'd like to be able to update slime dynamically without stopping and restarting the whole image. The catch is that after the re-load, I need to restart the Swank listener thread in case the code for its function has changed. Although the current CVS version of Slime can stop a running Swank server by using kill-nth-thread, it doesn't expose the socket that the thread was listening to. Subsequent threads can't bind to the port number because there is already a socket using it, and without a reference to the socket object, it can't be closed. The attached patch provides this access by defining a new package variable, *listener-sockets*. There are also two new functions: stop-server and restart-server. I'm using SBCL 2.6.18, and I have only tested this code with :spawn style servers, but even though I don't use :fd-handler or :sigio, I have provided code for them if anyone is interested in trying it out. With these changes, an online update to a remote lisp should be possible from the Slime REPL as follows: <cvs update slime> (load ".../swank.asd") (asdf:oos 'asdf:load-op 'swank) (swank:restart-server :port 4005 :style :spawn :dont-close t) <slime-disconnect and restart emacs> This code works well for me, but I'm not very familiar with Slime implementation details, so it would not surprise me if I've missed something important in my patch. I hope it proves useful to others. Thanks, -A -- Linux: The ultimate video game.

2 1

[slime-devel] A little swank.asd/swank-loader.lisp rectification.
by Samium Gromoff 02 Dec '07

02 Dec '07

Good day folks, The patch below rectifies the swank.asd, making the ASDF load flow more natural. The per-implementation file constellation definition is moved into a separate file, used by both the ASDF and slime-loader methods. Tested both ways on SBCL with CVSly fresh Swank. regards, Samium Gromoff diff a/file-constellation.lisp-expr b/file-constellation.lisp-expr --- /dev/null +++ b/file-constellation.lisp-expr @@ -0,0 +1,10 @@ +#+cmu ("swank-source-path-parser" "swank-source-file-cache" "swank-cmucl") +#+scl ("swank-source-path-parser" "swank-source-file-cache" "swank-scl") +#+sbcl ("swank-source-path-parser" "swank-source-file-cache" "swank-sbcl" "swank-gray") +#+openmcl ("metering" "swank-openmcl" "swank-gray") +#+lispworks ("swank-lispworks" "swank-gray") +#+allegro ("swank-allegro" "swank-gray") +#+clisp ("xref" "metering" "swank-clisp" "swank-gray") +#+armedbear ("swank-abcl") +#+cormanlisp ("swank-corman" "swank-gray") +#+ecl ("swank-ecl" "swank-gray") diff a/swank-loader.lisp b/swank-loader.lisp --- a/swank-loader.lisp +++ b/swank-loader.lisp @@ -32,20 +32,10 @@ "The directory where to look for the source.") (defparameter *sysdep-files* - (append - '() - #+cmu '("swank-source-path-parser" "swank-source-file-cache" "swank-cmucl") - #+scl '("swank-source-path-parser" "swank-source-file-cache" "swank-scl") - #+sbcl '("swank-source-path-parser" "swank-source-file-cache" - "swank-sbcl" "swank-gray") - #+openmcl '("metering" "swank-openmcl" "swank-gray") - #+lispworks '("swank-lispworks" "swank-gray") - #+allegro '("swank-allegro" "swank-gray") - #+clisp '("xref" "metering" "swank-clisp" "swank-gray") - #+armedbear '("swank-abcl") - #+cormanlisp '("swank-corman" "swank-gray") - #+ecl '("swank-ecl" "swank-gray") - )) + '#.(with-open-file (s (make-pathname :directory (pathname-directory *load-truename*) + :name "file-constellation" :type "lisp-expr") + :direction :input) + (read s))) (defparameter *implementation-features* '(:allegro :lispworks :sbcl :openmcl :cmu :clisp :ccl :corman :cormanlisp diff a/swank-sbcl.lisp b/swank-sbcl.lisp --- a/swank-sbcl.lisp +++ b/swank-sbcl.lisp @@ -22,7 +22,8 @@ (declaim (optimize (debug 2) (sb-c:insert-step-conditions 0))) -(import-from :sb-gray *gray-stream-symbols* :swank-backend) +(unless (find-symbol (symbol-name (first *gray-stream-symbols*)) :swank-backend) + (import-from :sb-gray *gray-stream-symbols* :swank-backend)) ;;; backwards compability tests diff a/swank.asd b/swank.asd --- a/swank.asd +++ b/swank.asd @@ -24,24 +24,16 @@ (in-package :swank-loader) -(defclass cl-script-file (asdf:source-file) ()) - -(defmethod asdf:perform ((o asdf:compile-op) (f cl-script-file)) - t) -(defmethod asdf:perform ((o asdf:load-op) (f cl-script-file)) - (mapcar #'load (asdf:input-files o f))) -(defmethod asdf:output-files ((o asdf:compile-op) (f cl-script-file)) - nil) -(defmethod asdf:input-files ((o asdf:load-op) (c cl-script-file)) - (list (asdf:component-pathname c))) -(defmethod asdf:operation-done-p ((o asdf:compile-op) (c cl-script-file)) - t) -(defmethod asdf:source-file-type ((c cl-script-file) (s asdf:module)) - "lisp") - (asdf:defsystem :swank - :default-component-class cl-script-file - :components ((:file "swank-loader"))) + :serial t + :components #.(append + '((:file "swank-backend")) + (mapcar (lambda (file) `(:file ,file)) + (with-open-file (s (make-pathname :directory (pathname-directory *load-truename*) + :name "file-constellation" :type "lisp-expr") + :direction :input) + (read s))) + '((:file "swank")))) (defparameter *source-directory* (asdf:component-pathname (asdf:find-system :swank)))

3 4