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

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 23 Mar '06

23 Mar '06

Index: slime/ChangeLog diff -u slime/ChangeLog:1.863 slime/ChangeLog:1.867 --- slime/ChangeLog:1.863 Tue Mar 21 21:48:38 2006 +++ slime/ChangeLog Thu Mar 23 00:02:54 2006 @@ -1,5 +1,56 @@ +2006-03-23 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + + * slime.el (slime-qualify-cl-symbol-name): Strip leading colon + from package names for qualifying symbols. + (slime-call-defun): New command. + (slime-keys): Bind it to C-c C-y. + (slime-easy-menu): Show it in the menu. + + * slime.el (slime-autodoc-use-multiline-p): New defcustom. + (slime-autodoc-message): Use it here. Fix bug that autodoc + messages exceeding one line could not be overwritten by later + autodoc messages. + (slime-autodoc-pre-command-refresh-echo-area): Use message + rather than slime-background-message. + + * swank.lisp (casify): Removed. + (casify-char, tokenize-symbol-thoroughly): New functions. + (parse-symbol): Use tokenize-symbol-thoroughly, so as to handle + |escaped symbols|. This fixes arglist display for operators with + strange symbol names. + +2006-03-23 Douglas Crosher <dcrosher(a)common-lisp.net> + + * swank-backend (accept-connection): add a 'timeout argument to + this function. + + * swank-backend (set-stream-timeout): new implementation specific + function. Used to set the timeout for stream operations, which + can help make the network connection establishment more robust. + + * swank (setup-server): ignore errors from the function 'serve to + allow another connection to be made. + + * swank (serve-connection): ensure the listener socket is closed + when 'dont-close is false, even if the connection attempt fails. + + * swank (accept-authenticated-connection): ensure the new + connection is closed if the connection establishment fails. Set a + short stream timeout to prevent denial of survice. + + * swank (open-dedicated-output-stream): ensure the listener socket + is closed, even if unable to open the dedicated stream. Implement + a timeout while waiting for a connection for the dedicate stream + to prevent denial of service. + + * swank (create-connection): ensure the new connection is closed + if not successful. + 2006-03-22 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + * swank.lisp (arglist-for-echo-area): Fix when arg-indices are + not given. + * slime.el (slime-ed): Handle (FILENAME :charpos CHARPOS). * swank.lisp (inspect-for-emacs): Specialize on FILE-STREAM and

1 0

[slime-devel] Propose a patch to fix load error on Win32
by Pisin Bootvong 22 Mar '06

22 Mar '06

Hi, This patch should fix source file not found error when: - Run on Win32 (CLISP) - (user-homedir-pathname) is on different drive than *default-pathname-defaults* - Run slime a second time (so slime has to compare fasl file date with source code date). The problem is that PATHNAME-DIRECTORY does not include the drive letter. Please review and apply if it is ok. --- swank-loader-cvs-20060311.lisp 2006-02-25 21:57:21.000000000 +0700 +++ swank-loader.lisp 2006-03-11 16:27:18.625000000 +0700 @@ -179,8 +179,9 @@ (defun swank-source-files (source-directory) (mapcar (lambda (name) - (make-pathname :name name :type "lisp" - :directory (pathname-directory source-directory))) + (merge-pathnames + (make-pathname :name name :type "lisp") + source-directory)) `("swank-backend" ,@*sysdep-files* "swank"))) (defvar *fasl-directory* (default-fasl-directory)

1 0

[slime-devel] tramp-make-tramp-file-name
by Marco Baringer 21 Mar '06

21 Mar '06

my version of tramp-make-tramp-file-name (emacs 22.0.50.1) takes 5 arguments, not 4 as in slime-create-filename-translator. is this a bug or does this function have a differenet api on other emacs? -- -Marco Ring the bells that still can ring. Forget the perfect offering. There is a crack in everything. That's how the light gets in. -Leonard Cohen

4 3

[slime-devel] slime in its own frame?
by Rick Taube 21 Mar '06

21 Mar '06

how can i reliably start the slime repl running in its own dedicated frame? this little code snippet does open a new frame and start slime running inside it with the new slime frame the active frame. however, if i launch the new frame and then RESELECT my original frame with the mouse while "*inferior-lisp*" is booting but before the "*slime repl*" actually starts running, then the "*slime repl*" actually gets opened back in the original frame. that is, i want the "*slime repl*" to start in whatever frame the *inferior-lisp* buffer was started in, not whatever the currently active frame happens to be. (defun slime-own-frame () (let* ((inf "*inferior lisp*")) (switch-to-buffer-other-frame inf) (with-current-buffer inf (slime)) (bury-buffer inf))) --rick

1 0

Re: [slime-devel] Re: Problems getting {}[] recognized as parenthesis
by jjkola＠email.com 19 Mar '06

19 Mar '06

"GP lisper" <spambait(a)CloudDancer.com> wrote: > One night on IRC, antifuchs worked out this for me: > (add to your emacs defaults) > > ; fix [] in slime > (add-hook 'lisp-mode-hook > (lambda () > (slime-mode t) > (modify-syntax-entry ?\[ "(] " lisp-mode-syntax-table) > (modify-syntax-entry ?\] ")[ " lisp-mode-syntax-table))) It worked like a charm. Thanks a lot. Jyrki Jaakkola

1 0

[slime-devel] Patch: slime connect robustness
by Douglas Crosher 19 Mar '06

19 Mar '06

Hello, The slime connection establishment is currently not very robust to failed connection attempts. This could be a problem when using slime to connect to long running processes. For example, if you telnet to the slime listener port and close the connection then slime may hang indefinitely waiting for the dedicated output connection to be established. Further the sockets are not being closed reliably upon failed. The attached patches reworks the code to close sockets upon failer and adds timeouts while waiting for connections and when reading from the connection. If there are no objections or feedback then I will commit the changes later in the week. Regards Douglas Crosher Index: ChangeLog =================================================================== RCS file: /project/slime/cvsroot/slime/ChangeLog,v retrieving revision 1.860 diff -u -r1.860 ChangeLog --- ChangeLog 18 Mar 2006 07:45:18 -0000 1.860 +++ ChangeLog 19 Mar 2006 05:56:47 -0000 @@ -1,3 +1,30 @@ +2006-03-19 Douglas Crosher <dcrosher(a)common-lisp.net> + + * swank-backend (accept-connection): add a 'timeout argument to + this function. + + * swank-backend (set-stream-timeout): new implementation specific + function. Used to set the timeout for stream operations, which + can help make the network connection establishment more robust. + + * swank (setup-server): ignore errors from the function 'serve to + allow another connection to be made. + + * swank (serve-connection): ensure the listener socket is closed + when 'dont-close is false, even if the connection attempt fails. + + * swank (accept-authenticated-connection): ensure the new + connection is closed if the connection establishment fails. Set a + short stream timeout to prevent denial of survice. + + * swank (open-dedicated-output-stream): ensure the listener socket + is closed, even if unable to open the dedicated stream. Implement + a timeout while waiting for a connection for the dedicate stream + to prevent denial of service. + + * swank (create-connection): ensure the new connection is closed + if not successful. + 2006-03-18 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * slime.el (slime-goto-location-buffer): Avoid calling the Index: swank-allegro.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-allegro.lisp,v retrieving revision 1.84 diff -u -r1.84 swank-allegro.lisp --- swank-allegro.lisp 16 Mar 2006 18:34:17 -0000 1.84 +++ swank-allegro.lisp 19 Mar 2006 05:56:47 -0000 @@ -41,8 +41,9 @@ (defimplementation close-socket (socket) (close socket)) -(defimplementation accept-connection (socket &key external-format buffering) - (declare (ignore buffering)) +(defimplementation accept-connection (socket &key external-format buffering + timeout) + (declare (ignore buffering timeout)) (let ((ef (or external-format :iso-latin-1-unix)) (s (socket:accept-connection socket :wait t))) (set-external-format s ef) Index: swank-backend.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-backend.lisp,v retrieving revision 1.96 diff -u -r1.96 swank-backend.lisp --- swank-backend.lisp 25 Feb 2006 12:10:33 -0000 1.96 +++ swank-backend.lisp 19 Mar 2006 05:56:47 -0000 @@ -214,7 +214,7 @@ "Close the socket SOCKET.") (definterface accept-connection (socket &key external-format - buffering) + buffering timeout) "Accept a client connection on the listening socket SOCKET. Return a stream for the new connection.") @@ -234,6 +234,12 @@ "Return one of the symbols :spawn, :sigio, :fd-handler, or NIL." nil) +(definterface set-stream-timeout (stream timeout) + "Set the 'stream 'timeout. The timeout is either the real number + specifying the timeout in seconds or 'nil for no timeout." + (declare (ignore stream timeout)) + nil) + ;;; Base condition for networking errors. (define-condition network-error (simple-error) ()) Index: swank-clisp.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-clisp.lisp,v retrieving revision 1.57 diff -u -r1.57 swank-clisp.lisp --- swank-clisp.lisp 11 Nov 2005 23:43:43 -0000 1.57 +++ swank-clisp.lisp 19 Mar 2006 05:56:48 -0000 @@ -126,8 +126,8 @@ (defimplementation accept-connection (socket &key (external-format :iso-latin-1-unix) - buffering) - (declare (ignore buffering)) + buffering timeout) + (declare (ignore buffering timeout)) (socket:socket-accept socket :buffered nil ;; XXX should be t :element-type 'character Index: swank-cmucl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-cmucl.lisp,v retrieving revision 1.159 diff -u -r1.159 swank-cmucl.lisp --- swank-cmucl.lisp 22 Nov 2005 10:32:37 -0000 1.159 +++ swank-cmucl.lisp 19 Mar 2006 05:56:48 -0000 @@ -100,7 +100,9 @@ (defimplementation accept-connection (socket &key (external-format :iso-latin-1-unix) - (buffering :full)) + (buffering :full) + timeout) + (declare (ignore timeout)) (unless (eq external-format ':iso-latin-1-unix) (remove-fd-handlers socket) (remove-sigio-handlers socket) Index: swank-corman.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-corman.lisp,v retrieving revision 1.5 diff -u -r1.5 swank-corman.lisp --- swank-corman.lisp 11 Nov 2005 23:43:43 -0000 1.5 +++ swank-corman.lisp 19 Mar 2006 05:56:48 -0000 @@ -239,8 +239,8 @@ (defimplementation accept-connection (socket &key (external-format :iso-latin-1-unix) - buffering) - (declare (ignore buffering)) + buffering timeout) + (declare (ignore buffering timeout)) (ecase external-format (:iso-latin-1-unix (sockets:make-socket-stream (sockets:accept-socket socket))))) Index: swank-ecl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-ecl.lisp,v retrieving revision 1.4 diff -u -r1.4 swank-ecl.lisp --- swank-ecl.lisp 11 Nov 2005 23:43:43 -0000 1.4 +++ swank-ecl.lisp 19 Mar 2006 05:56:48 -0000 @@ -46,8 +46,8 @@ (defimplementation accept-connection (socket &key (external-format :iso-latin-1-unix) - buffering) - (declare (ignore buffering)) + buffering timeout) + (declare (ignore buffering timeout)) (assert (eq external-format :iso-latin-1-unix)) (make-socket-io-stream (accept socket) external-format)) Index: swank-lispworks.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-lispworks.lisp,v retrieving revision 1.82 diff -u -r1.82 swank-lispworks.lisp --- swank-lispworks.lisp 10 Feb 2006 16:54:01 -0000 1.82 +++ swank-lispworks.lisp 19 Mar 2006 05:56:48 -0000 @@ -67,8 +67,8 @@ (defimplementation accept-connection (socket &key (external-format :iso-latin-1-unix) - buffering) - (declare (ignore buffering)) + buffering timeout) + (declare (ignore buffering timeout)) (assert (eq external-format :iso-latin-1-unix)) (let* ((fd (comm::get-fd-from-socket socket))) (assert (/= fd -1)) Index: swank-openmcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-openmcl.lisp,v retrieving revision 1.106 diff -u -r1.106 swank-openmcl.lisp --- swank-openmcl.lisp 7 Mar 2006 09:51:52 -0000 1.106 +++ swank-openmcl.lisp 19 Mar 2006 05:56:48 -0000 @@ -168,8 +168,8 @@ (defimplementation accept-connection (socket &key (external-format :iso-latin-1-unix) - buffering) - (declare (ignore buffering)) + buffering timeout) + (declare (ignore buffering timeout)) (assert (eq external-format :iso-latin-1-unix)) (ccl:accept-connection socket :wait t)) Index: swank-sbcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v retrieving revision 1.152 diff -u -r1.152 swank-sbcl.lisp --- swank-sbcl.lisp 20 Jan 2006 21:31:20 -0000 1.152 +++ swank-sbcl.lisp 19 Mar 2006 05:56:49 -0000 @@ -60,7 +60,8 @@ (defimplementation accept-connection (socket &key (external-format :iso-latin-1-unix) - (buffering :full)) + (buffering :full) timeout) + (declare (ignore timeout)) (make-socket-io-stream (accept socket) external-format buffering)) (defvar *sigio-handlers* '() Index: swank-scl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-scl.lisp,v retrieving revision 1.5 diff -u -r1.5 swank-scl.lisp --- swank-scl.lisp 25 Feb 2006 17:46:13 -0000 1.5 +++ swank-scl.lisp 19 Mar 2006 05:56:49 -0000 @@ -54,10 +54,23 @@ (defimplementation accept-connection (socket &key (external-format :iso-latin-1-unix) - (buffering :full)) - (let ((external-format (or external-format :iso-latin-1-unix))) - (make-socket-io-stream (ext:accept-tcp-connection socket) - external-format buffering))) + (buffering :full) + (timeout nil)) + (let ((external-format (or external-format :iso-latin-1-unix)) + (fd (socket-fd socket))) + (loop + (let ((ready (sys:wait-until-fd-usable fd :input timeout))) + (unless ready + (error "Timeout accepting connection on socket: ~S~%" socket))) + (let ((new-fd (ignore-errors (ext:accept-tcp-connection fd)))) + (when new-fd + (return (make-socket-io-stream new-fd external-format buffering))))))) + +(defimplementation set-stream-timeout (stream timeout) + (check-type timeout (or null real)) + (if (fboundp 'ext::stream-timeout) + (setf (ext::stream-timeout stream) timeout) + (setf (slot-value (slot-value stream 'cl::stream) 'cl::timeout) timeout))) ;;;;; Sockets Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.364 diff -u -r1.364 swank.lisp --- swank.lisp 18 Mar 2006 07:37:22 -0000 1.364 +++ swank.lisp 19 Mar 2006 05:56:50 -0000 @@ -424,7 +424,7 @@ (serve-connection socket style dont-close external-format))) (ecase style (:spawn - (spawn (lambda () (loop do (serve) while dont-close)) + (spawn (lambda () (loop do (ignore-errors (serve)) while dont-close)) :name "Swank")) ((:fd-handler :sigio) (add-fd-handler socket (lambda () (serve)))) @@ -432,23 +432,34 @@ port))) (defun serve-connection (socket style dont-close external-format) - (let ((client (accept-authenticated-connection - socket :external-format external-format))) - (unless dont-close - (close-socket socket)) - (let ((connection (create-connection client style external-format))) - (run-hook *new-connection-hook* connection) - (push connection *connections*) - (serve-requests connection)))) + (let ((closed-socket-p nil)) + (unwind-protect + (let ((client (accept-authenticated-connection + socket :external-format external-format))) + (unless dont-close + (close-socket socket) + (setf closed-socket-p t)) + (let ((connection (create-connection client style external-format))) + (run-hook *new-connection-hook* connection) + (push connection *connections*) + (serve-requests connection))) + (unless (or dont-close closed-socket-p) + (close-socket socket))))) (defun accept-authenticated-connection (&rest args) (let ((new (apply #'accept-connection args)) - (secret (slime-secret))) - (when secret - (let ((first-val (decode-message new))) - (unless (and (stringp first-val) (string= first-val secret)) - (close new) - (error "Incoming connection doesn't know the password.")))) + (success nil)) + (unwind-protect + (let ((secret (slime-secret))) + (when secret + (set-stream-timeout new 20) + (let ((first-val (decode-message new))) + (unless (and (stringp first-val) (string= first-val secret)) + (error "Incoming connection doesn't know the password.")))) + (set-stream-timeout new nil) + (setf success t)) + (unless success + (close new :abort t))) new)) (defun slime-secret () @@ -518,13 +529,20 @@ Return an output stream suitable for writing program output. This is an optimized way for Lisp to deliver output to Emacs." - (let* ((socket (create-socket *loopback-interface* - *dedicated-output-stream-port*)) - (port (local-port socket))) - (encode-message `(:open-dedicated-output-stream ,port) socket-io) - (accept-authenticated-connection - socket :external-format external-format - :buffering *dedicated-output-stream-buffering*))) + (let ((socket (create-socket *loopback-interface* + *dedicated-output-stream-port*))) + (unwind-protect + (let ((port (local-port socket))) + (encode-message `(:open-dedicated-output-stream ,port) socket-io) + (let ((dedicated (accept-authenticated-connection + socket :external-format external-format + :buffering *dedicated-output-stream-buffering* + :timeout 30))) + (close-socket socket) + (setf socket nil) + dedicated)) + (when socket + (close-socket socket))))) (defun handle-request (connection) "Read and process one request. The processing is done in the extend @@ -828,34 +846,39 @@ connection)) (defun create-connection (socket-io style external-format) - (let ((c (ecase style - (:spawn - (make-connection :socket-io socket-io - :read #'read-from-control-thread - :send #'send-to-control-thread - :serve-requests #'spawn-threads-for-connection - :cleanup #'cleanup-connection-threads)) - (:sigio - (make-connection :socket-io socket-io - :read #'read-from-socket-io - :send #'send-to-socket-io - :serve-requests #'install-sigio-handler - :cleanup #'deinstall-sigio-handler)) - (:fd-handler - (make-connection :socket-io socket-io - :read #'read-from-socket-io - :send #'send-to-socket-io - :serve-requests #'install-fd-handler - :cleanup #'deinstall-fd-handler)) - ((nil) - (make-connection :socket-io socket-io - :read #'read-from-socket-io - :send #'send-to-socket-io - :serve-requests #'simple-serve-requests))))) - (setf (connection.communication-style c) style) - (setf (connection.external-format c) external-format) - (initialize-streams-for-connection c) - c)) + (let ((success nil)) + (unwind-protect + (let ((c (ecase style + (:spawn + (make-connection :socket-io socket-io + :read #'read-from-control-thread + :send #'send-to-control-thread + :serve-requests #'spawn-threads-for-connection + :cleanup #'cleanup-connection-threads)) + (:sigio + (make-connection :socket-io socket-io + :read #'read-from-socket-io + :send #'send-to-socket-io + :serve-requests #'install-sigio-handler + :cleanup #'deinstall-sigio-handler)) + (:fd-handler + (make-connection :socket-io socket-io + :read #'read-from-socket-io + :send #'send-to-socket-io + :serve-requests #'install-fd-handler + :cleanup #'deinstall-fd-handler)) + ((nil) + (make-connection :socket-io socket-io + :read #'read-from-socket-io + :send #'send-to-socket-io + :serve-requests #'simple-serve-requests))))) + (setf (connection.communication-style c) style) + (setf (connection.external-format c) external-format) + (initialize-streams-for-connection c) + (setf success t) + c) + (unless success + (close socket-io :abort t))))) ;;;; IO to Emacs

1 0

[slime-devel] Problems getting {}[] recognized as parenthesis
by jjkola＠email.com 18 Mar '06

18 Mar '06

Hi! I have been trying to make emacs show matching round and square brackets so that I could use meta parser from http://home.pipeline.com/~hbaker1/Prag-Parse.html. I have been using lispbox from http://gigamonkeys.com/book/lispbox which have slime (from cvs 10.1.2006) bundled. I also tried latest cvs version of slime to see if it would work better. I'm using mic-paren module for showing matching parenthesis. I have edited lisp-mode.el from emacs so that it should show matching parenthesis: (defvar emacs-lisp-mode-syntax-table (let ((table (make-syntax-table))) . . . (modify-syntax-entry ?$ "() " table) (modify-syntax-entry ?$ ")( " table) (modify-syntax-entry ?\[ "(] " table) (modify-syntax-entry ?\] ")[ " table) (modify-syntax-entry ?\{ "(} " table) (modify-syntax-entry ?\} "){ " table)) table)) (defvar lisp-mode-syntax-table (let ((table (copy-syntax-table emacs-lisp-mode-syntax-table))) (modify-syntax-entry ?\[ "(] " table) (modify-syntax-entry ?\] ")[ " table) (modify-syntax-entry ?\{ "(} " table) (modify-syntax-entry ?\} "){ " table) (modify-syntax-entry ?# "' 14bn" table) (modify-syntax-entry ?| "\" 23b" table) table)) When I checked syntax table mappings in slime mode I got this: [ _ which means: symbol ] .. _ _ which means: symbol { _ which means: symbol } .. DEL _ which means: symbol and then The parent syntax table is: [ (] which means: open, matches ] ] )[ which means: close, matches [ { (} which means: open, matches } } ){ which means: close, matches { So is there anything that I could do to make things work? Yours sincerely, Jyrki Jaakkola

2 1

[slime-devel] sbcl, threads and connections
by Christophe Rhodes 18 Mar '06

18 Mar '06

Hi, At some point SBCL's threading model changed, and that seems to have broken something in slime. (Some people will say at this point that I reap what I sow...). Specifically, while running (swank:ed-in-emacs 'and) in the REPL gives me an interface to choose which AND I would like to edit, running (sb-thread:make-thread (lambda () (swank:ed-in-emacs 'and))) gives me "NIL is not of type SWANK::CONNECTION". So at a guess this comes from the change in the initial value for special variables in new threads. What should I be looking at? Cheers, Christophe

2 2

[slime-devel] sbcl source position
by Gábor Melis 17 Mar '06

17 Mar '06

On sbcl head with slime head when trying to compile the src/code/numbers.lisp file in sbcl I get this: error while parsing arguments to DESTRUCTURING-BIND: invalid number of elements in ((52353 . 53472) (53454 . 53471) (52440 . 52874) (52847 . 52870)) to satisfy lambda list ((SWANK-BACKEND::START . SWANK-BACKEND::END)): exactly 1 expected, but 4 found [Condition of type ARG-COUNT-ERROR] Restarts: 0: [ABORT] Abort SLIME compilation. 1: [ABORT-REQUEST] Abort handling SLIME request. 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "worker" {B6E9EA1}>) Backtrace: 0: (SWANK-BACKEND::SOURCE-PATH-SOURCE-POSITION (0 4 3 2) NIL #<HASH-TABLE :TEST EQ :COUNT 47 {C30B181}>) 1: (SWANK-BACKEND::SOURCE-PATH-FILE-POSITION (104 4 3 2) #P"/home/mega/lisp/cvs/sbcl/src/code/numbers.lisp") 2: (SWANK-BACKEND::LOCATE-COMPILER-NOTE #P"/home/mega/lisp/cvs/sbcl/src/code/numbers.lisp" (104 4 3 2) " (SB-VM::LOGNOT-MOD32 (SB-KERNEL::PREPARE-ARGUMENT SB-VM::X))") 3: (SWANK-BACKEND::COMPILER-NOTE-LOCATION #<SB-C::COMPILER-ERROR-CONTEXT >) 4: (SWANK-BACKEND::SIGNAL-COMPILER-CONDITION #<CODE-DELETION-NOTE {C2CF5F9}> #<SB-C::COMPILER-ERROR-CONTEXT >) 5: (SWANK-BACKEND::HANDLE-NOTIFICATION-CONDITION #<CODE-DELETION-NOTE {C2CF5F9}>) 6: (SIGNAL #<CODE-DELETION-NOTE {C2CF5F9}>) 7: (SB-C:COMPILER-NOTIFY CODE-DELETION-NOTE) 8: (SB-C::NOTE-BLOCK-DELETION #<SB-C::CBLOCK NIL :START c1 {C2CE4B9}>) 9: (SB-C::DELETE-BLOCK #<SB-C::CBLOCK NIL :START c1 {C2CE4B9}> NIL) 10: (SB-C::CLEAN-COMPONENT #<SB-C:COMPONENT :NAME "DEFUN SB-VM::LOGNOT-MOD32" :REANALYZE T {C2CD839}> #<unavailable argument>) 11: (SB-C::IR1-OPTIMIZE #<SB-C:COMPONENT :NAME "DEFUN SB-VM::LOGNOT-MOD32" :REANALYZE T {C2CD839}> NIL) 12: (SB-C::IR1-OPTIMIZE-UNTIL-DONE #<SB-C:COMPONENT :NAME "DEFUN SB-VM::LOGNOT-MOD32" :REANALYZE T {C2CD839}>) 13: (SB-C::IR1-PHASES #<SB-C:COMPONENT :NAME "DEFUN SB-VM::LOGNOT-MOD32" :REANALYZE T {C2CD839}>) 14: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME "DEFUN SB-VM::LOGNOT-MOD32" :REANALYZE T {C2CD839}>) 15: (SB-C::COMPILE-TOPLEVEL (#<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (SB-C::TOP-LEVEL-FORM #) :KIND :TOPLEVEL :TYPE #<BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :VARS NIL {C2C70E9}>) NIL) 16: (SB-C::CONVERT-AND-MAYBE-COMPILE (SB-IMPL::%DEFUN (QUOTE SB-VM::LOGNOT-MOD32) (NAMED-LAMBDA SB-VM::LOGNOT-MOD32 (SB-VM::X) (BLOCK SB-VM::LOGNOT-MOD32 #)) NIL (QUOTE NIL) (SB-C:SOURCE-LOCATION)) (#1=(SB-IMPL::%DEFUN (QUOTE SB-VM::LOGNOT-MOD32) (NAMED-LAMBDA SB-VM::LOGNOT-MOD32 # #) NIL (QUOTE NIL) (SB-C:SOURCE-LOCATION)) #2=(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) #1#) (PROGN (EVAL-WHEN # #) #2#) SB-C::ORIGINAL-SOURCE-START 47 4 104)) 17: ((FLET SB-C::DEFAULT-PROCESSOR) (SB-IMPL::%DEFUN (QUOTE SB-VM::LOGNOT-MOD32) (NAMED-LAMBDA SB-VM::LOGNOT-MOD32 (SB-VM::X) (BLOCK SB-VM::LOGNOT-MOD32 #)) NIL (QUOTE NIL) (SB-C:SOURCE-LOCATION))) 18: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFUN (QUOTE SB-VM::LOGNOT-MOD32) (NAMED-LAMBDA SB-VM::LOGNOT-MOD32 (SB-VM::X) (BLOCK SB-VM::LOGNOT-MOD32 #)) NIL (QUOTE NIL) (SB-C:SOURCE-LOCATION)) (#1=(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFUN # # NIL # #)) (PROGN (EVAL-WHEN # #) #1#) SB-C::ORIGINAL-SOURCE-START 47 4 104) NIL) 19: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-IMPL::%DEFUN (QUOTE SB-VM::LOGNOT-MOD32) (NAMED-LAMBDA SB-VM::LOGNOT-MOD32 # #) NIL (QUOTE NIL) (SB-C:SOURCE-LOCATION))) (#1=(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFUN # # NIL # #)) (PROGN (EVAL-WHEN # #) #1#) SB-C::ORIGINAL-SOURCE-START 47 4 104) NIL) Gábor

1 0

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 17 Mar '06

17 Mar '06

Index: slime/ChangeLog diff -u slime/ChangeLog:1.856 slime/ChangeLog:1.859 --- slime/ChangeLog:1.856 Tue Mar 14 15:45:16 2006 +++ slime/ChangeLog Thu Mar 16 13:33:25 2006 @@ -1,3 +1,18 @@ +2006-03-16 Gábor Melis <mega(a)hotpop.com> + + * swank-allegro.lisp (inspect-for-emacs): Fix typo. + +2006-03-16 Gary King <gwking(a)metabang.com> + + * swank-loader.lisp (lisp-version-string): Modified swank-loader + so that Allegro's alisp and mlisp programs get different + locations. Otherwise mlisp complains about alisp's files. + +2006-03-16 Marco Baringer <mb(a)bese.it> + + * slime.el (slime-to-lisp-filename): Call expand-file-name before + passing the filename to the to-lisp function. + 2006-03-14 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * slime.el (slime-system-history): New variable.

1 0

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 17 Mar '06

17 Mar '06

Index: slime/ChangeLog diff -c slime/ChangeLog:1.856 slime/ChangeLog:1.859 *** slime/ChangeLog:1.856 Tue Mar 14 15:45:16 2006 --- slime/ChangeLog Thu Mar 16 13:33:25 2006 *************** *** 1,3 **** --- 1,18 ---- + 2006-03-16 Gábor Melis <mega(a)hotpop.com> + + * swank-allegro.lisp (inspect-for-emacs): Fix typo. + + 2006-03-16 Gary King <gwking(a)metabang.com> + + * swank-loader.lisp (lisp-version-string): Modified swank-loader + so that Allegro's alisp and mlisp programs get different + locations. Otherwise mlisp complains about alisp's files. + + 2006-03-16 Marco Baringer <mb(a)bese.it> + + * slime.el (slime-to-lisp-filename): Call expand-file-name before + passing the filename to the to-lisp function. + 2006-03-14 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * slime.el (slime-system-history): New variable.

1 0

[slime-devel] allegro inspect typo
by Gábor Melis 16 Mar '06

16 Mar '06

Index: swank-allegro.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-allegro.lisp,v retrieving revision 1.83 diff -u -p -r1.83 swank-allegro.lisp --- swank-allegro.lisp 14 Mar 2006 04:30:14 -0000 1.83 +++ swank-allegro.lisp 16 Mar 2006 16:14:32 -0000 @@ -510,7 +510,7 @@ (defmethod inspect-for-emacs ((o standard-object) (inspector acl-inspector)) inspector - (values (format "~A is a standard-object." o) (allegro-inspect o))) + (values (format nil "~A is a standard-object." o) (allegro-inspect o))) (defun allegro-inspect (o) (loop for (d dd) on (inspect::inspect-ctl o)

2 1

[slime-devel] Error using ,cd (~ not expanded)
by Stefan Kamphausen 16 Mar '06

16 Mar '06

Hi, since a few days I have this problem: * Open XEmacs * Start SLIME (M-x slime) * Wait for CMUCL to come up * Type ,cd [RET] * Select a directory, say ~/src/lisp/my-current-project [RET] * Get an error: File-error in function LISP::%SET-DEFAULT-DIRECTORY: "~/src/lisp/my-current-project" doesn't exist. [Condition of type KERNEL:SIMPLE-FILE-ERROR] Restarts: 0: [ABORT-REQUEST] Abort handling SLIME request. 1: [ABORT] Return to Top-Level. Backtrace: 0: (LISP::%SET-DEFAULT-DIRECTORY "~/src/lisp/my-current-project") 1: ((METHOD SWANK-BACKEND:SET-DEFAULT-DIRECTORY NIL (T)) #<#1=unused-arg> #<#1#> "~/src/lisp/my-current-project") 2: ("DEFUN EVAL-FOR-EMACS") 3: ((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK NIL (T T)) #<#1=unused-arg> #<#1#> #<Function SWANK:SWANK-DEBUGGER-HOOK {5879B171}> #<Closure Over Function "DEFUN EVAL-FOR-EMACS" {58B14A91}>) 4: ("DEFUN HANDLE-REQUEST") I think it boils down to the ~ not being expanded. When I... * ... first use M-x cd to change to the dir and then accept the default in ,cd it works. * ... give the full path like /home/user/src/lisp/my-current-project it works. I can try to track this down if you give me any pointers what to look for, but maybe someone here more familiar with the code just sees the solution immediately? My System: * SLIME CVS HEAD * XEmacs 21.4 (patch 17) "Jumbo Shrimp" XEmacs Lucid * CMUCL CMU Common Lisp CVS 19c 19c-release + minimal debian patches (19C) * Gentoo Linux Regards, Stefan -- "Feel free" mit GMX FreeMail! Monat f�r Monat 10 FreeSMS inklusive! http://www.gmx.net

2 2

[slime-devel] [patch] closing connections with :fd-handler style
by Stephen Compall 15 Mar '06

15 Mar '06

As far as I can tell, the only way a Swank connection object with style :fd-handler will ever be closed due to EOF (with close-connection) is if either the fd-handler implementation detects the EOF state and knows how to destroy Swank connections, or a condition is raised in the dynamic context of with-reader-error-handler. Looking at the topmost form in that context, however, it can only happen if (listen socket) answers T, so that the attempt to read can proceed and raise an eof-error, which gets wrapped up, etc. I modified process-available-input to test (listen socket) only after calling FN at least once; after all, it always returns T when the handler is called for a normal input state. Without this patch, my fd-handler backend gets into an endless loop calling the handler in install-fd-handler (with the :eof state); with this patch, the socket is closed, removed from *connections*, and from the fd-handler backend properly. Attached is the patch. -- Stephen Compall http://scompall.nocandysoftware.com/blog

2 4

[slime-devel] Odd bug - heads up
by Alan Ruttenberg 15 Mar '06

15 Mar '06

I found that presentations which were in my repl input history, weren't being recalled as presentations when I recalled previous history - they were coming back as text, and so would generally trigger a reader error when I tried the command. I tracked this down to (defun slime-repl-replace-input (string) (slime-repl-delete-current-input) (setq it string) (insert-and-inherit string)) If one uses insert, instead of insert-and-inherit then repl history works correctly for presentations, for me. No idea why this is problematic. It looks like this function has been this way for a long time - perhaps a bug in the emacs I am using (OS X tiger, fink installed, I think). Anyways, thought I'd post this in case anyone else was having the same problem, or had some insight as to why this is happening. -Alan

2 1

[slime-devel] Tracing with slime presentations
by Luigi Panzeri 09 Mar '06

09 Mar '06

Hi. i wrote a snippet to do tracing of functions allowing slime presentations (thanks to segv for helping me with present-object). Obviously this code works only on sbcl. (defun present-object (value &key (showvalue value) (printfun #'prin1) (stream *standard-output*)) (swank::presenting-object value stream (funcall printfun showvalue stream)) value) (defmacro present-trace (fun &rest rest) `(trace ,fun ;; present input arguments :print (present-object (let ((args nil)) (handler-case (loop for i upfrom 0 do (push (sb-debug::arg i) args)) (sb-kernel::index-too-large-error () args))) :showvalue '|inspect input| :stream *trace-output*) ;; present return values :print-after (present-object sb-debug:*trace-values* :showvalue '|inspect return values| :stream *standard-output*) ;; passing other args to trace ,@rest)) Maybe an sbcl expert can really improve and beautify this hack. Sorry if mail is duplicated. -- Luigi Panzeri aka Matley Chiave pubblica su http://www.imati.cnr.it/~panzeri/matley.asc Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film Evaluate Lisp: http://lisp.tech.coop/Evaluate%20Lisp

1 0

[slime-devel] Tracing with slime presentations
by Luigi Panzeri 09 Mar '06

09 Mar '06

Hi. i wrote a snippet to do tracing of functions using slime presentations (thanks to segv for showing me the slime presentation features and writing present-object) . Obviously this code works only on sbcl. (defun present-object (value &optional (stream *error-output*)) (swank::presenting-object value stream (prin1 value stream)) value) (defmacro slime-presentation-trace (fun) `(trace ,fun :print (present-object (let ((args nil)) (handler-case (loop for i upfrom 0 do (push (sb-debug::arg i) args)) (sb-kernel::index-too-large-error (var) args)))) :print-after (present-object sb-debug:*trace-values*))) Maybe an sbcl hacker can really improve and beautify this hack

1 0

[slime-devel] Problems with SLIME and SBCL
by Nicolas Neuss 08 Mar '06

08 Mar '06

Hello, since quite some time I am not able to run SLIME together with SBCL anymore. I did not care too much, since CMUCL and Allegro worked. However, I now am looking again at using OS threads on Linux/AMD64, and SBCL is my only option here. So I am interested to get it working again. Thus, I downloaded sbcl-0.9.9-x86-64-linux, CVS slime from today (Emacs on this machine is version 21.4.1), and did the usual installation as (add-to-list 'load-path PATH-TO-SLIME) (require 'slime) (slime-setup) Unfortunately, M-x slime does not succeed. The inferior-lisp buffer shows: WARNING: These Swank interfaces are unimplemented: (ACTIVATE-STEPPING CALLS-WHO DISASSEMBLE-FRAME INSPECT-FOR-EMACS SLDB-BREAK-AT-START SLDB-BREAK-ON-RETURN WHO-BINDS WHO-CALLS WHO-MACROEXPANDS WHO-REFERENCES WHO-SETS WHO-SPECIALIZES) T * ;; Swank started at port: 34981. NIL * Process inferior-lisp hangup Can anyone help me? Thank you very much, Nicolas.

2 2

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

08 Mar '06

Index: slime/ChangeLog diff -u slime/ChangeLog:1.852 slime/ChangeLog:1.853 --- slime/ChangeLog:1.852 Sat Mar 4 15:13:25 2006 +++ slime/ChangeLog Tue Mar 7 04:50:25 2006 @@ -1,3 +1,8 @@ +2006-03-06 Nathan Bird <nathan(a)acceleration.net> + + * slime.el: (slime-create-filename-translator): use the tramp + methods for dissecting and building filenames. + 2006-03-04 Wojciech Kaczmarek <wojtekk(a)kofeina.net> * slime.el (slime-filename-translations): Typo in example.

1 0

[slime-devel] Code Snippets for Debugging
by Gregory Novak 07 Mar '06

07 Mar '06

Attached are two code snippets that I came up with since I started using slime a few weeks ago. Probably there exist better ways to do these things, but I couldn't find them so I wrote my own. If there really isn't an existing way to do these things, perhaps they could be added to Slime. The first is intended to facilitate debugging. Often I find myself in an sldb buffer looking at a stack trace and it's not clear what went wrong. I'd like to evaluate some expressions in the stack frame to see intermediate results, but I don't want to type them in again. After all, I already typed them in and they're sitting there in the source file. So I type "v" in the debug buffer, put the point in an interesting place and execute gsn/slime-eval-last-expression-in-frame. It finds the sexp at point, switches to the sldb buffer, evaluates the expression, and then switches back. One sub-optimal thing is that the frame in which the expression is evaluated depends on hte position of the point in the sldb buffer even though you use the command in your source buffer. But using sldb-show-source, this seems to work fairly well. The second set of functions is alters slime-next-note/slime-previous-note to scan through certain types of compiler notes, rather than hitting them all. I found that I was getting zillions of notes and the errors were getting lost in the mix. So gsn/slime-next-not and gsn/slime-previous-note by default scan through all notes. However, with a prefix arg, they prompt for a type of error and henceforth stop only at that type of note. Comments/suggestions on style/implementation are welcome. Greg ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun gsn/slime-eval-last-expression-in-frame (sexp) "Eval the expression at POINT in a frame in the slime debugger. The frame used is determined by the location of POINT in the slime debugger buffer. The idea is to be able to be able to debug by using sldb-show-source in the slime debug buffer and then easily evaluate expression in your source file near the problem." (interactive (list (slime-last-expression))) (if (not (sldb-get-default-buffer)) (error "No debugger buffer") (save-excursion (set-buffer (sldb-get-default-buffer)) (sldb-eval-in-frame sexp)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar gsn/slime-scan-note-by-type-history nil "List storing history of entries to minibuffer prompt in gsn/slime-read-type") (defvar gsn/slime-scan-note-by-type-current '(:error :read-error :warning :style-warning :note) "Current type of note for which to search. This is stored so that the behavior is 'sticky' between invocations of the commands.") (defun gsn/slime-next-note (reset-type) "Interactively search for the next compiler note of the type given by gsn/slime-scan-note-by-type-current. With prefix arg, prompt for the value of gsn/slime-scan-note-by-type-current." (interactive "P") (when reset-type (gsn/slime-read-type)) (gsn/slime-next-note-by-type gsn/slime-scan-note-by-type-current)) (defun gsn/slime-previous-note (reset-type) "Interactively search for the previous compiler note of the type given by gsn/slime-scan-note-by-type-current. With prefix arg, prompt for the value of gsn/slime-scan-note-by-type-current." (interactive "P") (when reset-type (gsn/slime-read-type)) (gsn/slime-previous-note-by-type gsn/slime-scan-note-by-type-current)) (defun gsn/slime-read-type () "Prompt for the value of gsn/slime-scan-note-by-type-current. Store history (as strings) in gsn/slime-scan-note-by-type-history. Convert the string to a symbol and set gsn/slime-scan-note-by-type-current." (let ((type-string (completing-read "Type (default error): " '("all" "error" "read-error" "warning" "style-warning" "note") nil t nil 'gsn/slime-scan-note-by-type-history "error"))) (push type-string gsn/slime-scan-note-by-type-history) (setq gsn/slime-scan-note-by-type-current (cdr (assoc type-string '(("all" . (:error :read-error :warning :style-warning :note)) ("error" . (:error)) ("read-error" . (:read-error)) ("warning" . (:warning)) ("style-warning" . (:style-warning)) ("note" . (:note)))))))) (defun gsn/slime-scan-note-by-type (type scan-func) "Move point to the next/previous compiler note of type TYPE. SCAN-FUNC specifies how to advance through the notes so that this function doens't have to be duplicated for -next- and -previous-" (let ((original-pos (point)) (last-pos (point)) (sought-note-p (lambda (type) (and (slime-note-at-point) (memq (overlay-get (slime-note-at-point) 'severity) type))))) (funcall scan-func) (while (and (/= last-pos (point)) (not (funcall sought-note-p type))) (setq last-pos (point)) (funcall scan-func)) ;; let the user know if there are no more notes (if (funcall sought-note-p type) (slime-show-note (slime-note-at-point)) ;; If no next note, go back to where you started (goto-char original-pos) (message "No more notes.")))) (defun gsn/slime-next-note-by-type (type) "Move point to the next compiler note of type TYPE." (gsn/slime-scan-note-by-type type 'slime-find-next-note)) (defun gsn/slime-previous-note-by-type (type) "Move point to the next/previous compiler note of type TYPE." (gsn/slime-scan-note-by-type type 'slime-find-previous-note)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

1 0

[slime-devel] hacking "modern mode" in Franz
by Christopher C.Stacy 07 Mar '06

07 Mar '06

I frobbed this in swank-loader.lisp: ;======================================================================== (defun lisp-case-mode () #-allegro :case-insensitive #+allegro excl:*current-case-mode*) (defun unique-directory-name () "Return a name that can be used as a directory name that is unique to a Lisp implementation, Lisp implementation version, operating system, and hardware architecture." (flet ((first-of (features) (loop for f in features when (find f *features*) return it)) (maybe-warn (value fstring &rest args) (cond (value) (t (apply #'warn fstring args) "unknown")))) (let ((lisp (maybe-warn (first-of *implementation-features*) "No implementation feature found in ~a." *implementation-features*)) (os (maybe-warn (first-of *os-features*) "No os feature found in ~a." *os-features*)) (arch (maybe-warn (first-of *architecture-features*) "No architecture feature found in ~a." *architecture-features*)) (version (maybe-warn (lisp-version-string) "Don't know how to get Lisp ~ implementation version.")) (case (maybe-warn (lisp-case-mode) "Don't know uppercase/lowercase mode."))) (format nil "~(~@{~a~^-~}~)" lisp version case os arch)))) ;========================================================================

1 0

[slime-devel] slime-create-filename-translator revisted.
by Nathan Bird 07 Mar '06

07 Mar '06

I really liked the new slime translation stuff that went in a few days ago... except that tramp is a little bit different on xemacs. Part of it though, tramp has lots of functions for manipulating filenames. If we are going to depend on tramp for this feature, the automatic creation of translation functions, then lets use the tramp stuff that already has this configuration and functions built in. Here is a lisp paste showing what can be done with the new configuration. http://paste.lisp.org/display/17592 If you like, I can go link this from Cliki as well. Nathan Bird nathan(a)acceleration.net ? foo.el ? swank-loader.fas ? swank-loader.lib Index: ChangeLog =================================================================== RCS file: /project/slime/cvsroot/slime/ChangeLog,v retrieving revision 1.852 diff -u -r1.852 ChangeLog --- ChangeLog 4 Mar 2006 20:13:25 -0000 1.852 +++ ChangeLog 7 Mar 2006 04:46:46 -0000 @@ -1,3 +1,8 @@ +2006-03-06 Nathan Bird <nathan(a)acceleration.net> + + * slime.el: (slime-create-filename-translator): use the tramp + methods for dissecting and building filenames. + 2006-03-04 Wojciech Kaczmarek <wojtekk(a)kofeina.net> * slime.el (slime-filename-translations): Typo in example. Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.593 diff -u -r1.593 slime.el --- slime.el 4 Mar 2006 20:13:51 -0000 1.593 +++ slime.el 7 Mar 2006 04:46:49 -0000 @@ -1285,7 +1285,7 @@ remote-host username) "Creates a three element list suitable for push'ing onto -slime-filename-translations which uses tramp to load files on +slime-filename-translations which uses Tramp to load files on hostname using username. MACHINE-INSTANCE is a required parameter, REMOTE-HOST defaults to MACHINE-INSTANCE and USERNAME defaults to (user-login-name). @@ -1294,23 +1294,20 @@ which is just the value returned by cl:machine-instance on the remote lisp. REMOTE-HOST is the fully qualified domain name (or just the IP) of the remote machine. USERNAME is the username we -sholud login with." - (setf remote-host (or remote-host machine-instance) - username (or username (user-login-name))) - (lexical-let ((tramp-prefix (concat "/ssh:" username "@" remote-host ":"))) +should login with. +The functions created here expect your tramp-default-method or + tramp-default-method-alist to be setup correctly." + (lexical-let ((remote-host (or remote-host machine-instance)) + (username (or username (user-login-name)))) (list (concat "^" machine-instance "$") - `(lambda (emacs-filename) - (subseq emacs-filename (length ,tramp-prefix))) + (lambda (emacs-filename) + (tramp-file-name-localname + (tramp-dissect-file-name emacs-filename))) `(lambda (lisp-filename) - (concat ,tramp-prefix lisp-filename))))) - -(defun* slime-add-filename-translation (&key machine-instance - remote-host - username) - (push (slime-create-filename-translator :machine-instance machine-instance - :remote-host remote-host - :username username) - slime-filename-translations)) + (tramp-make-tramp-file-name nil + ,username + ,remote-host + lisp-filename))))) ;;;; Starting SLIME

2 3

[slime-devel] SLIME+Allegro on Windows
by mikel 06 Mar '06

06 Mar '06

Franz wants Peter Seibel's Lispbox to work with acl on Windows. The obstacle is that acl is not a console application on Windows, and doesn't provide a connection to standard input and standard output in the normal way. I've agreed to do a little legwork to find a way around this problem, and the first thing it occurred to me to do was to ask SLIME-devel what sort of connection support SLIME would need to connect to acl. Is it sufficient for the running acl to provide sockets, so that the lisp-side server can respond to the emacs-side SLIME protocol? What issues am I not thinking of in my naive view of this problem?

10 11

[slime-devel] Error signalling and handling in DEFINTERFACE methods?
by Peter Seibel 05 Mar '06

05 Mar '06

After being bit for about the billionth time by trying to ,cd to a file rather than a directory with the result of leaving *default-pathname-defaults* set to something that doesn't merge will with others, I decided to see if I could make SLIME protect me from myself. As a quick proof of concept, I made this change to swank-allegro.lisp: Index: swank-allegro.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-allegro.lisp,v retrieving revision 1.82 diff -u -r1.82 swank-allegro.lisp --- swank-allegro.lisp 10 Feb 2006 16:54:01 -0000 1.82 +++ swank-allegro.lisp 5 Mar 2006 18:09:36 -0000 @@ -85,6 +85,8 @@ "allegro") (defimplementation set-default-directory (directory) + (unless (excl:probe-directory directory) + (break "~a not a directory." directory)) (let ((dir (namestring (setf *default-pathname-defaults* (truename (merge-pathnames directory)))))) (excl:chdir dir) @@ -500,7 +502,7 @@ (defmethod inspect-for-emacs ((o standard-object) (inspector acl-inspector)) inspector - (values (format "~A is a standard-object." o) (allegro-inspect o))) + (values (format nil "~A is a standard-object." o) (allegro-inspect o))) (defun allegro-inspect (o) (loop for (d dd) on (inspect::inspect-ctl o) (Hmmm, the last chunk of that patch looks like some minor bug fix that I've had lying around that could usefully be applied to the mainline.) But that raises two questions: 1) Is there a standard protocol for signalling errors from functions that are invoked via comma shortcuts? At the moment simply BREAKing does the trick in the sense that I can then abort out of the debugger with no harm done but it seems a bit gross. 2) Is there some clever way to provide a *partial* default implementation. That is, I'd like in swank-backend.lisp to do the error checking (using a suitably portable replacement for EXCL:PROBE-DIRECTORY) before doing the moral equivalent of a CALL-NEXT-METHOD to get to the implementation-specific version. A literal CALL-NEXT-METHOD won't work, it seems, since although DEFIMPLEMENTATION expands to a method, it always expands to a method with default (i.e. T) specializations on all its parameters. -Peter -- Peter Seibel * peter(a)gigamonkeys.com Gigamonkeys Consulting * http://www.gigamonkeys.com/ Practical Common Lisp * http://www.gigamonkeys.com/book/

1 0