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

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 25 Apr '08

25 Apr '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1348 slime/ChangeLog:1.1349 --- slime/ChangeLog:1.1348 Wed Apr 23 21:44:35 2008 +++ slime/ChangeLog Thu Apr 24 14:51:16 2008 @@ -1,3 +1,8 @@ +2008-04-24 Tobias C. Rittweiler <tcr(a)freebits.de> + + * swank-backend.lisp: Clarified docstrings of interface functions + in the Debugging section. + 2008-04-23 Geo Carncross <geocar(a)gmail.com> * swank-source-file-cache.lisp (skip-comments-and-whitespace):

1 0

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 24 Apr '08

24 Apr '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1345 slime/ChangeLog:1.1348 --- slime/ChangeLog:1.1345 Thu Apr 17 11:21:57 2008 +++ slime/ChangeLog Wed Apr 23 21:44:35 2008 @@ -1,3 +1,17 @@ +2008-04-23 Geo Carncross <geocar(a)gmail.com> + + * swank-source-file-cache.lisp (skip-comments-and-whitespace): + Include #\Page as whitespace + + * swank-ecl.lisp (find-source-location): Initial support for + find-source-location with functions + (flush-streams): Workaround differences in different ECL versions + (find-definitions): basic/simple implementation of find-definitions + + * swank-loader.lisp (*sysdep-files*): Include swank-source-path-parser + and swank-source-file-cache for ECL + + 2008-04-17 Travis Cross <travis(a)travislists.com> * swank.asd: Don't make a compile-op a no-op so that a

1 0

[slime-devel] slime working with sbcl 1.0.16 win32 ?
by Chisheng Huang 23 Apr '08

23 Apr '08

Hi, Has anybody tried to run SBCL 1.0.16 Win32 with Slime? After I did M-x slime, the mini buffer printed out "spawning child process: invalid argument". I tried Slime with 1.0.16 and 1.0.16.4 of SBCL Win32 and both did not work. Any idea? Best, -cph

2 3

[slime-devel] [PATCH] Bind *read-eval* in slime-version-string
by Madhu 22 Apr '08

22 Apr '08

SWANK-LOADER::SLIME-VERSION-STRING calls READ on the first form of the ChangeLog file without binding *READ-EVAL* to NIL, which is a potential security hole. This minor patch fixes that, to avoid future dire advisories...

4 9

[slime-devel] Very simple cygwin clisp + NTEmacs + slime hack breaks meta-point in strange way
by Nathaniel Calloway 20 Apr '08

20 Apr '08

So after reading some of the horror stories of getting clisp inside cygwin to work with slime + emacs on windows, I was determined to get a simpler solution than rewriting how all the path names are parsed inside slime. So this is what I came up with in my .emacs: (require 'slime) (slime-setup) (defun slimed () (interactive) (let ((lisp-process (start-process "lisp" "lisp" "clisp" "-i ~/.slime.lisp -ansi"))) (while (and (memq (process-status lisp-process) '(open run)) (goto-char (point-max)) (forward-line -1) (not (looking-at ";; Swank started"))) (accept-process-output lisp-process 1) (sit-for 1)) (slime-connect "127.0.0.1" 4005))) My .slime.lisp file is: (load "/usr/emacs/site-lisp/slime/swank-loader.lisp") (swank-loader::loadup) (swank::create-server) So, everything works great! I was super pleased with the hack, "slimed" gets slime REPL running and everything in slime-mode works.... except for M-. It causes the slime trace quoted below, but only in cases where it should actually find the symbol in question. If the symbol isn't defined, slime propperly indicates this. I'm somewhat new to slime (and windows), so if anyone has any insight, let me know. For the record I'm using the CVS version of slime on Emacs 22.2 with clisp 2.44. Thanks, -Nat Slime trace: -------------------------------------------------- PARSE-NAMESTRING: argument #1=(SYSTEM::DEFUN/DEFMACRO #P"/home/Nat/.slime.lisp" 3 3) should be a pathname designator #2=(OR STRING FILE-STREAM PATHNAME) [Condition of type SIMPLE-TYPE-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [CLOSE-CONNECTION] Close SLIME connection 2: [SKIP] skip (CREATE-SERVER) Backtrace: 0: [319] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-STEPPING-P* <--> NIL [No Locals] 1: [316] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-LEVEL* <--> 0 2: [313] frame binding variables (~ = dynamically): | ~ *PACKAGE* <--> #<PACKAGE COMMON-LISP-USER> 3: <1/307> #<COMPILED-FUNCTION SWANK::DEBUG-IN-EMACS> - #(NIL #<SIMPLE-TYPE-ERROR #x1025C0AD>) 4: <1/304> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> [302] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 5: <1/299> #<SYSTEM-FUNCTION INVOKE-DEBUGGER> 1 [298] frame binding variables (~ = dynamically): | ~ SYSTEM::*PRIN-STREAM* <--> #<UNBOUND> 6: [295] frame binding variables (~ = dynamically): | ~ *PRINT-READABLY* <--> NIL 7: [292] frame binding variables (~ = dynamically): | ~ *PRINT-ESCAPE* <--> T 8: <1/289> #<SYSTEM-FUNCTION PARSE-NAMESTRING> 1 - #<UNBOUND> 9: <1/283> #<SYSTEM-FUNCTION PATHNAME-TYPE> - NIL 10: <1/278> #<COMPILED-FUNCTION SWANK-BACKEND::FSPEC-PATHNAME> - #<COMPILED-FUNCTION SWANK-BACKEND::FSPEC-LOCATION> 11: <1/276> #<COMPILED-FUNCTION SWANK-BACKEND::FSPEC-LOCATION> - TEST 12: <1/273> #<COMPILED-FUNCTION #:|244 245 (DEFIMPLEMENTATION FIND-DEFINITIONS (NAME) ...)-21-1-1|> - #<COMPILED-FUNCTION #:|244 245 (DEFIMPLEMENTATION FIND-DEFINITIONS (NAME) ...)-21-1-1|> 13: <1/269> #<COMPILED-FUNCTION SWANK-BACKEND:FIND-DEFINITIONS> - #<COMPILED-FUNCTION SWANK::XREF>ELISP> 14: <1/263> #<COMPILED-FUNCTION SWANK:FIND-DEFINITIONS-FOR-EMACS> - #<COMPILED-FUNCTION SWANK:FIND-DEFINITIONS-FOR-EMACS> 15: [261] EVAL frame for form (SWANK:FIND-DEFINITIONS-FOR-EMACS "test") 16: [258] frame binding environments VAR_ENV <--> NIL FUN_ENV <--> NIL BLOCK_ENV <--> NIL GO_ENV <--> NIL DECL_ENV <--> ((DECLARATION OPTIMIZE DECLARATION)) 17: <1/253> #<SYSTEM-FUNCTION EVAL> [252] frame binding variables (~ = dynamically): | ~ SWANK::*BUFFER-PACKAGE* <--> #<UNBOUND> 18: [249] frame binding variables (~ = dynamically): | ~ SWANK::*PENDING-CONTINUATIONS* <--> NIL 19: [246] frame binding variables (~ = dynamically): | ~ SWANK::*BUFFER-READTABLE* <--> #<UNBOUND> 20: [242] unwind-protect frame [No Locals] 21: <1/237> #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS-1> - #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS-1> 22: [236] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 23: <1/232> #<COMPILED-FUNCTION #:|592 597 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-57-3-1|> - #<COMPILED-FUNCTION #:|592 597 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-57-3-1|> 24: <1/227> #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK> - #(NIL (SWANK:FIND-DEFINITIONS-FOR-EMACS "test") NIL 11) 25: <1/223> #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS> <2/223> #<SYSTEM-FUNCTION FUNCALL> 4 - SWANK::EVAL-FOR-EMACS 26: <1/217> #<COMPILED-FUNCTION SWANK::READ-FROM-EMACS> [217] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-QUIT-RESTART* <--> ABORT 27: [214] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> (#S(RESTART :NAME SWANK::CLOSE-CONNECTION :TEST #1=#<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG #:SIMPLE-RESTART-21719 :INVOKE-FUNCTION NIL :REPORT #<FUNCTION :LAMBDA (STREAM) (FORMAT STREAM "Close SLIME connection")> :INTERACTIVE #2=#<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE> :MEANINGFULP T) #S(RESTART :NAME SYSTEM::SKIP :TEST #1# :INVOKE-TAG NIL :INVOKE-FUNCTION #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM-1> :REPORT #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM-2> :INTERACTIVE #2# :MEANINGFULP T) #S(RESTART :NAME SYSTEM::STOP :TEST #1# :INVOKE-TAG NIL :INVOKE-FUNCTION #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM-3> :REPORT #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM-4> :INTERACTIVE #2# :MEANINGFULP T)) 28: [211] catch frame for tag #:SIMPLE-RESTART-21209 29: <1/207> #<COMPILED-FUNCTION SWANK::HANDLE-REQUEST-1> - #<COMPILED-FUNCTION SWANK::HANDLE-REQUEST-1> 30: [206] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 31: <1/202> #<COMPILED-FUNCTION #:|592 597 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-57-3-1|> - #<COMPILED-FUNCTION #:|592 597 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-57-3-1|> 32: <1/197> #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK> - #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-1> 33: <1/194> #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-1> - #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-1> 34: [193] frame binding variables (~ = dynamically): | ~ *TERMINAL-IO* <--> #<IO TERMINAL-STREAM> 35: [190] frame binding variables (~ = dynamically): | ~ *STANDARD-INPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 36: [187] frame binding variables (~ = dynamically): | ~ *QUERY-IO* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 37: [184] frame binding variables (~ = dynamically): | ~ *DEBUG-IO* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 38: [181] frame binding variables (~ = dynamically): | ~ *TRACE-OUTPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 39: [178] frame binding variables (~ = dynamically): | ~ *ERROR-OUTPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 40: [175] frame binding variables (~ = dynamically): | ~ *STANDARD-OUTPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 41: <1/167> #<COMPILED-FUNCTION SWANK::CALL-WITH-REDIRECTED-IO> - #<COMPILED-FUNCTION SWANK::MAYBE-CALL-WITH-IO-REDIRECTION> 42: <1/164> #<COMPILED-FUNCTION SWANK::MAYBE-CALL-WITH-IO-REDIRECTION> [162] frame binding variables (~ = dynamically): | ~ SWANK::*EMACS-CONNECTION* <--> NIL 43: <1/157> #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION> [155] frame binding variables (~ = dynamically): | ~ SWANK::*SWANK-STATE-STACK* <--> NIL 44: <1/151> #<COMPILED-FUNCTION SWANK::HANDLE-REQUEST> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-2> 45: <1/149> #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-2> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-2> 46: [148] handler frame for conditions SWANK::SWANK-ERROR 47: [142] compiled block frame for #S(RESTART :NAME SWANK::CLOSE-CONNECTION :TEST #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG #:SIMPLE-RESTART-21719 :INVOKE-FUNCTION NIL :REPORT #<FUNCTION :LAMBDA (STREAM) (FORMAT STREAM "Close SLIME connection")> :INTERACTIVE #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE> :MEANINGFULP T) 48: [138] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> (#S(RESTART :NAME SYSTEM::SKIP :TEST #1=#<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG NIL :INVOKE-FUNCTION #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM-1> :REPORT #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM-2> :INTERACTIVE #2=#<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE> :MEANINGFULP T) #S(RESTART :NAME SYSTEM::STOP :TEST #1# :INVOKE-TAG NIL :INVOKE-FUNCTION #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM-3> :REPORT #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM-4> :INTERACTIVE #2# :MEANINGFULP T)) 49: [135] catch frame for tag #:SIMPLE-RESTART-21719 50: [132] unwind-protect frame 51: <1/128> #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS> 52: <1/125> #<COMPILED-FUNCTION SWANK::SERVE-REQUESTS> - #<SWANK::CONNECTION #x10274595> 53: [122] unwind-protect frame 54: <1/118> #<COMPILED-FUNCTION SWANK::SERVE-CONNECTION> - #<COMPILED-FUNCTION SWANK::SETUP-SERVER-SERVE> 55: <1/113> #<COMPILED-FUNCTION SWANK::SETUP-SERVER-SERVE> - NIL 56: <1/107> #<COMPILED-FUNCTION SWANK::SETUP-SERVER> - #<COMPILED-FUNCTION SWANK:CREATE-SERVER> 57: <1/101> #<COMPILED-FUNCTION SWANK:CREATE-SERVER> - #<COMPILED-FUNCTION SWANK:CREATE-SERVER> 58: [96] EVAL frame for form (SWANK:CREATE-SERVER) 59: [93] frame binding environments VAR_ENV <--> NIL FUN_ENV <--> NIL BLOCK_ENV <--> NIL GO_ENV <--> NIL DECL_ENV <--> ((DECLARATION OPTIMIZE DECLARATION)) 60: <1/88> #<SYSTEM-FUNCTION EVAL> - #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM-LOW> [No Locals] 61: <1/86> #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM-LOW> [85] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> NIL 62: [82] compiled tagbody frame for #(NIL NIL) 63: <1/74> #<COMPILED-FUNCTION SYSTEM::EVAL-LOADED-FORM> - (SWANK:CREATE-SERVER) 64: [71] unwind-protect frame 65: [69] frame binding variables (~ = dynamically): 66: [68] frame binding variables (~ = dynamically): | ~ SYSTEM::*C-ERROR-OUTPUT* <--> #<UNBOUND> 67: [65] frame binding variables (~ = dynamically): | ~ *READTABLE* <--> #<READTABLE #x100B5AED> 68: [62] frame binding variables (~ = dynamically): | ~ *PACKAGE* <--> #<PACKAGE COMMON-LISP-USER> 69: [59] frame binding variables (~ = dynamically): | ~ FFI::*FOREIGN-LIBRARY* <--> NIL 70: [56] frame binding variables (~ = dynamically): | ~ FFI::*FOREIGN-LANGUAGE* <--> NIL 71: [53] frame binding variables (~ = dynamically): | ~ SYSTEM::*CURRENT-SOURCE-LINE-2* <--> NIL 72: [50] frame binding variables (~ = dynamically): | ~ SYSTEM::*CURRENT-SOURCE-LINE-1* <--> NIL 73: [47] frame binding variables (~ = dynamically): | ~ SYSTEM::*CURRENT-SOURCE-FILE* <--> NIL 74: [44] frame binding variables (~ = dynamically): | ~ *LOAD-TRUENAME* <--> NIL 75: [41] frame binding variables (~ = dynamically): | ~ *LOAD-PATHNAME* <--> NIL 76: [38] frame binding variables (~ = dynamically): | ~ SYSTEM::*LOAD-INPUT-STREAM* <--> NIL 77: [35] frame binding variables (~ = dynamically): | ~ SYSTEM::*LOAD-LEVEL* <--> 0 78: [30] frame binding variables (~ = dynamically): | ~ *LOAD-OBSOLETE-ACTION* <--> NIL 79: [27] frame binding variables (~ = dynamically): | ~ *LOAD-COMPILING* <--> NIL 80: [23] frame binding variables (~ = dynamically): | ~ *LOAD-ECHO* <--> NIL 81: [20] frame binding variables (~ = dynamically): | ~ *LOAD-PRINT* <--> NIL 82: [17] frame binding variables (~ = dynamically): | ~ *LOAD-VERBOSE* <--> T

1 0

[slime-devel] Slime not loading under SBCL?
by Andrew Jones-Gonzales 19 Apr '08

19 Apr '08

Hi, When I go to load Slime from within Emacs I get the following error in *inferior-lisp*: WARNING: Not reloading SWANK. Package already exists. ;; Swank started at port: 35903. debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread" {A8066A9}>: SWANK-BACKEND:SPAWN not implementated 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. (SWANK-BACKEND:SPAWN #<CLOSURE (LAMBDA #) {A9BA30D}>) 0] Poking around the source files I see SPAWN implemented, but am not sure if SBCL just isn't finding it or what. I'm using the most recent SBCL available in Ubuntu's repositories (1.0.6) with Emacs 22.1.1. I just checked out Slime from CVS after uninstalling the Slime package for Ubuntu (I grabbed the CVS version to see if the connection issue I'm having is with S-XML-RPC or Slime). Any ideas? Thanks, -Andrew -- Andrew Jones-Gonzales

2 1

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 18 Apr '08

18 Apr '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1342 slime/ChangeLog:1.1345 --- slime/ChangeLog:1.1342 Sun Apr 6 05:58:40 2008 +++ slime/ChangeLog Thu Apr 17 11:21:57 2008 @@ -1,3 +1,24 @@ +2008-04-17 Travis Cross <travis(a)travislists.com> + + * swank.asd: Don't make a compile-op a no-op so that a + swank-loader.fasl file gets generated and (require 'swank) can be + called multiple times. + +2008-04-17 Zach Beane <xach(a)xach.com> + + C-c C-c with prefix args now uses the maximal debug level. + Only implemented for SBCL. + + * slime.el (slime-compile-with-maximum-debug): New variable. + (slime-compile-defun, slime-compile-region): Use it. + + * swank.lisp (compile-string-for-emacs): Accept new debug + argument. Update backend accordingly. + +2008-04-17 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-set-default-directory): Send absolute filenames. + 2008-04-06 Tobias C. Rittweiler <tcr(a)freebits.de> * slime.el (slime-edit-definition): The `slime-edit-definition-hooks' Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.105 slime/contrib/ChangeLog:1.106 --- slime/contrib/ChangeLog:1.105 Mon Apr 14 17:31:20 2008 +++ slime/contrib/ChangeLog Thu Apr 17 11:21:51 2008 @@ -1,3 +1,9 @@ +2008-04-17 Gábor Melis <mega(a)retes.hu> + + * swank-fancy-inspector.lisp (inspect-slot-for-emacs): + slime-read-object has been gone for a long time, replaced with + slime-read-from-minibuffer. + 2008-04-15 Marco Baringer <mb(a)bese.it> * slime-indentation.el (cl-indent::line-number): new function.

1 0

[slime-devel] Allegro and *globally-redirect-io*
by Gábor Melis 17 Apr '08

17 Apr '08

Workaround for longstanding issue with allegro and *globally-redirect-io* not working as intended. This prints HELLO to the *inferior lisp buffer: (mp:process-run-function "Test" (lambda () (loop (sleep 2) (print 'hello)))) because allegro repl binds the standard streams and the global io redirect effectively modifies the thread local binding. The workaround is called from initialize-multiprocessing which may not be the best place. Cheers, Gabor

2 1

[slime-devel] Inserting images into the REPL
by Ariel Badichi 17 Apr '08

17 Apr '08

Hello, What follows is a patch to SLIME-REPL-EMIT which allows a cool hack: inserting images into the REPL. I find it useful when experimenting with graphics-related code. CL code: (defun insert-image-into-repl (filename) (swank::eval-in-emacs `(progn (slime-repl-emit (lambda () (insert-image (create-image ,filename)) (insert #\Newline))) :ok)) (values)) (SLIME-ENABLE-EVALUATE-IN-EMACS needs to be true to make this work.) Ariel --- Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.936 diff -u -r1.936 slime.el --- slime.el 6 Apr 2008 09:58:17 -0000 1.936 +++ slime.el 14 Apr 2008 20:48:17 -0000 @@ -2555,13 +2555,17 @@ (:repl-result (slime-repl-emit-result string)) (t (slime-emit-string string target)))) -(defun slime-repl-emit (string) - ;; insert the string STRING in the output buffer +(defun slime-repl-emit (thing) + "Insert THING into the output buffer if it is a string or, if +it is a function, call it in the right context for insertion." (with-current-buffer (slime-output-buffer) (slime-with-output-end-mark - (slime-insert-propertized '(face slime-repl-output-face - rear-nonsticky (face)) - string) + (etypecase thing + (string + (slime-insert-propertized '(face slime-repl-output-face + rear-nonsticky (face)) + thing)) + (function (funcall thing))) (set-marker slime-output-end (point)) (when (and (= (point) slime-repl-prompt-start-mark) (not (bolp)))

2 1

[slime-devel] Error re-requiring swank
by Travis Cross 17 Apr '08

17 Apr '08

Greetings, Attempting to (require 'swank) twice in the same lisp image causes an error on (at least) SBCL-1.0.15 with asdf-binary-locations enabled. [1] The error is triggered when asdf:load-op [2] goes looking for swank-loader.fasl/swank-loader.lisp in the fasls directory (which, because of asdf-binary-locations, won't be the same directory that contained the source swank-loader.lisp). The "make compile-op a nop" stuff in swank.asd, however, makes sure that a swank-loader.fasl file will never get generated. This error occurs on the latest CVS but does not occur on swank CVS circa 2008-01-31. The attached patch corrects the issue by allowing swank-loader.fasl to be generated. This seems like the best solution to me, but I'm not familiar with the impact of this on other implementations. Cheers, -- Travis [1] Why is this important? I often have swank preloaded in my lisp image. If I then try to load a system that depends on swank, this error is triggered and prevents the system from loading. [2] actually, the method asdf:operation-done-p ((o asdf:load-op) ...) # sbcl --eval "(require 'swank)" ; loading #P"/root/.slime/fasl/sbcl-1.0.15-gentoo-linux-x86-64/swank-backend.fasl" ; loading #P"/root/.slime/fasl/sbcl-1.0.15-gentoo-linux-x86-64/swank-source-path-parser.fasl" ; loading #P"/root/.slime/fasl/sbcl-1.0.15-gentoo-linux-x86-64/swank-source-file-cache.fasl" ; loading #P"/root/.slime/fasl/sbcl-1.0.15-gentoo-linux-x86-64/swank-sbcl.fasl" ; loading #P"/root/.slime/fasl/sbcl-1.0.15-gentoo-linux-x86-64/swank-gray.fasl" ; loading #P"/root/.slime/fasl/sbcl-1.0.15-gentoo-linux-x86-64/swank.fasl" WARNING: These Swank interfaces are unimplemented: (CALLS-WHO DISASSEMBLE-FRAME SLDB-BREAK-AT-START SLDB-BREAK-ON-RETURN WHO-SPECIALIZES) * (require 'swank) debugger invoked on a SB-POSIX::FILE-ENOENT in thread #<THREAD "initial thread" {10026B6BC1}>: failed to find the WRITE-DATE of /var/lib/common-lisp/fasls/root/sbcl-1.0.15-gentoo-linux-x86-64/usr/share/common-lisp/source/swank/swank-loader.lisp: No such file or directory 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::SIMPLE-FILE-PERROR "failed to find the WRITE-DATE of ~A" #P"/var/lib/common-lisp/fasls/root/sbcl-1.0.15-gentoo-linux-x86-64/usr/share/common-lisp/source/swank/swank-loader.lisp" 2) 0] BACKTRACE 0: (SB-IMPL::SIMPLE-FILE-PERROR "failed to find the WRITE-DATE of ~A" #P"/var/lib/common-lisp/fasls/root/sbcl-1.0.15-gentoo-linux-x86-64/usr/share/common-lisp/source/swank/swank-loader.lisp" 2) 1: (SB-IMPL::SIMPLE-FILE-PERROR "failed to find the WRITE-DATE of ~A" #P"/var/lib/common-lisp/fasls/root/sbcl-1.0.15-gentoo-linux-x86-64/usr/share/common-lisp/source/swank/swank-loader.lisp" 2)[:EXTERNAL] 2: (SB-IMPL::QUERY-FILE-SYSTEM #P"/var/lib/common-lisp/fasls/root/sbcl-1.0.15-gentoo-linux-x86-64/usr/share/common-lisp/source/swank/swank-loader.lisp" :WRITE-DATE T) 3: (FILE-WRITE-DATE #P"/var/lib/common-lisp/fasls/root/sbcl-1.0.15-gentoo-linux-x86-64/usr/share/common-lisp/source/swank/swank-loader.lisp") 4: ((FLET ASDF::FWD-OR-RETURN-T) #P"/var/lib/common-lisp/fasls/root/sbcl-1.0.15-gentoo-linux-x86-64/usr/share/common-lisp/source/swank/swank-loader.lisp") 5: ((SB-PCL::FAST-METHOD ASDF:OPERATION-DONE-P (ASDF:OPERATION ASDF:COMPONENT)) #<unavailable argument> #<unavailable argument> #<ASDF:LOAD-OP NIL {1002EDB501}> #<SWANK-LOADER::SWANK-LOADER-FILE "swank-loader" {1002ABBA21}>) 6: ((SB-PCL::FAST-METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)) #(3 NIL) #<unavailable argument> #<ASDF:LOAD-OP NIL {1002EDB501}> #<SWANK-LOADER::SWANK-LOADER-FILE "swank-loader" {1002ABBA21}>) 7: ((SB-PCL::FAST-METHOD ASDF::TRAVERSE (ASDF:OPERATION ASDF:COMPONENT)) #(3 NIL) #<unavailable argument> #<ASDF:LOAD-OP NIL {1002EDB501}> #<ASDF:SYSTEM "swank" {1002A87861}>) 8: (ASDF:OPERATE ASDF:LOAD-OP SWANK)[:EXTERNAL] 9: (ASDF::MODULE-PROVIDE-ASDF SWANK) 10: ((LAMBDA (#:G[REQUIRE]18)) ASDF::MODULE-PROVIDE-ASDF) 11: (SB-IMPL::%MAP-FOR-EFFECT-ARITY-1 #<CLOSURE (LAMBDA #) {1002ED86E9}> (ASDF::MODULE-PROVIDE-ASDF SB-IMPL::MODULE-PROVIDE-CONTRIB)) 12: (REQUIRE SWANK NIL) 13: (SB-INT:SIMPLE-EVAL-IN-LEXENV (REQUIRE 'SWANK) #<NULL-LEXENV>) 14: (INTERACTIVE-EVAL (REQUIRE 'SWANK)) 15: (SB-IMPL::REPL-FUN NIL) 16: (SB-IMPL::REPL-FUN NIL)[:EXTERNAL] 17: ((LAMBDA ())) 18: ((LAMBDA ()))[:EXTERNAL] 19: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {1002ED7F19}>) 20: (SB-IMPL::TOPLEVEL-REPL NIL) 21: (SB-IMPL::TOPLEVEL-INIT) 22: ((LABELS SB-IMPL::RESTART-LISP)) 0] diff --git a/swank.asd b/swank.asd index 814f41c..6076d28 100644 --- a/swank.asd +++ b/swank.asd @@ -26,17 +26,6 @@ (defclass swank-loader-file (asdf:cl-source-file) ()) -;;;; make compile-op a nop - -(defmethod asdf:output-files ((o asdf:compile-op) (f swank-loader-file)) - (list (asdf:component-pathname f))) - -(defmethod asdf:perform ((o asdf:compile-op) (f swank-loader-file)) - t) - -(defmethod asdf:operation-done-p ((o asdf:compile-op) (f swank-loader-file)) - t) - ;;;; after loading run init (defmethod asdf:perform ((o asdf:load-op) (f swank-loader-file))

2 1