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

[slime-devel] Sending values to the repl
by Daniel White 03 Sep '09

03 Sep '09

I want to send values to the repl from the Lisp image. (swank::eval-in-emacs '(slime-repl-send-string "(+ 1 1)")) Firstly, is there a simpler way to approach this? Secondly, the problem is that SLIME-DISPATCH-EVENT for an :EMACS-REX event returns the result of (SLIME-RECOMPUTE-MODELINES T), being: [nil 0 0 100000 nil slime-update-all-modelines nil idle] EVAL-IN-EMACS tries to read this and fails horribly throwing up the following error: error while parsing arguments to DESTRUCTURING-BIND: invalid number of elements in (SWANK-IO-PACKAGE::[NIL 0 0 100000 NIL SWANK-IO-PACKAGE::SLIME-UPDATE-ALL-MODELINES NIL SWANK-IO-PACKAGE::IDLE]) to satisfy lambda list (SWANK::VALUE): exactly 1 expected, but 8 found [Condition of type SB-KERNEL::ARG-COUNT-ERROR] As far as I can see, the solution is to have SLIME-REPL-SEND-STRING return T since there doesn't seem to be anything relying on this current behaviour. I've attached a patch in the case that this is indeed a sane solution. -- Daniel White

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 02 Sep '09

02 Sep '09

Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.239 slime/contrib/ChangeLog:1.240 --- slime/contrib/ChangeLog:1.239 Fri Aug 28 19:50:48 2009 +++ slime/contrib/ChangeLog Tue Sep 1 08:56:23 2009 @@ -1,3 +1,9 @@ +2009-09-01 Stas Boukarev <stassats(a)gmail.com> + + * swank-arglists.lisp (decode-required-arg): Arglists for some forms + in LispWorks, e.g. flet, contain strings, so handle strings too. + Reported by Nick Levine. + 2009-08-28 Stas Boukarev <stassats(a)gmail.com> * slime-c-p-c.el (slime-contextual-completions): Remove debugging code.

3 2

[slime-devel] TYPE ERROR: The value 9 is not of type LIST
by Sebastian Tennant 02 Sep '09

02 Sep '09

Hi all, I'm running a threaded SBCL version 1.0.30 with SLIME version 2009-08-19 in GNU Emacs verison 22.2.1. Non-ASCII characters break the connection to the REPL: CL-USER> "ğ" "ğ" The REPL is hung at this point. When I hit RET, the *inferior-lisp* buffer is flooded with text and the minibuffer reports: Lisp connection closed unexpectedly: connection broken by remote peer Relevant content of *inferior-lisp* buffer attached. Any suggestions as to how to solve/debug this problem much appreciated. Regards, Sebastian -- Emacs' AlsaPlayer - Music Without Jolts Lightweight, full-featured and mindful of your idyllic happiness. http://home.gna.org/eap

4 13

[slime-devel] slime-switch-to-output-buffer
by Nick Levine 02 Sep '09

02 Sep '09

FYI, this is documented with the keybinding C-c C-z but the binding is not present. - nick

2 2

[slime-devel] symbol completion case sensitive
by Nick Levine 02 Sep '09

02 Sep '09

Basic symbol completion is case sensitive: MAKE-INSTAN won't complete. (Given that CL symbol names are upper cased, this is broken as well as annoying). Compound completion can handle MAKE-INSTAN but not Make-instan. -nick

2 1

Re: [slime-devel] [Ecls-list] [patch] fd-handler communication style support in swank-ecl
by Ram Krishnan 01 Sep '09

01 Sep '09

Bummer; sorry, Windows ECL users. The `sockets' requirement was there from before I added the fd-handler patch, so I'm leaving that alone. Here's an update to the patch with the `fd-handler' goodness conditionally enabled, based on whether the `serve-event' module was successfully loaded. -ram Index: swank-ecl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-ecl.lisp,v retrieving revision 1.45 diff -u -8 -p -r1.45 swank-ecl.lisp --- swank-ecl.lisp 27 Jul 2009 04:08:41 -0000 1.45 +++ swank-ecl.lisp 1 Sep 2009 17:52:25 -0000 @@ -21,16 +21,21 @@ (swank-backend::import-swank-mop-symbols :clos '(:eql-specializer :eql-specializer-object :generic-function-declarations :specializer-direct-methods :compute-applicable-methods-using-classes))) +(eval-when (:compile-toplevel :load-toplevel :execute) + (ignore-errors + (require 'serve-event) + (pushnew :serve-event *features*))) + ;;;; TCP Server (eval-when (:compile-toplevel :load-toplevel :execute) (require 'sockets)) (defun resolve-hostname (name) (car (sb-bsd-sockets:host-ent-addresses @@ -44,16 +49,17 @@ (sb-bsd-sockets:socket-bind socket (resolve-hostname host) port) (sb-bsd-sockets:socket-listen socket 5) socket)) (defimplementation local-port (socket) (nth-value 1 (sb-bsd-sockets:socket-name socket))) (defimplementation close-socket (socket) + #+serve-event (remove-fd-handlers socket) (sb-bsd-sockets:socket-close socket)) (defimplementation accept-connection (socket &key external-format buffering timeout) (declare (ignore buffering timeout external-format)) (make-socket-io-stream (accept socket))) @@ -65,17 +71,17 @@ (defun accept (socket) "Like socket-accept, but retry on EAGAIN." (loop (handler-case (return (sb-bsd-sockets:socket-accept socket)) (sb-bsd-sockets:interrupted-error ())))) (defimplementation preferred-communication-style () - (values nil)) + (values #+serve-event :fd-handler)) (defvar *external-format-to-coding-system* '((:iso-8859-1 "latin-1" "latin-1-unix" "iso-latin-1-unix" "iso-8859-1" "iso-8859-1-unix") (:utf-8 "utf-8" "utf-8-unix"))) (defimplementation find-external-format (coding-system) @@ -111,16 +117,60 @@ #+nil (defimplementation default-directory () (namestring (ext:getcwd))) (defimplementation quit-lisp () (ext:quit)) +;;;; Serve Event Handlers + +#+serve-event +(progn + +(defun socket-fd (socket) + (etypecase socket + (fixnum socket) + (sb-bsd-sockets:socket (sb-bsd-sockets:socket-file-descriptor socket)) + (file-stream (si:file-stream-fd socket)))) + +(defvar *descriptor-handlers* (make-hash-table :test 'eq)) + +(defimplementation add-fd-handler (socket fun) + (let* ((fd (socket-fd socket)) + (handler (gethash fd *descriptor-handlers*))) + (when handler + (serve-event:remove-fd-handler handler)) + (prog1 + (setf (gethash fd *descriptor-handlers*) + (serve-event:add-fd-handler fd + :input + #'(lambda (x) + (declare (ignorable x)) + (funcall fun)))) + (serve-event:serve-event)))) + +(defimplementation remove-fd-handlers (socket) + (let ((handler (gethash (socket-fd socket) *descriptor-handlers*))) + (when handler + (serve-event:remove-fd-handler handler)))) + +(defimplementation wait-for-input (streams &optional timeout) + (assert (member timeout '(nil t))) + (loop + (let ((ready (remove-if-not #'listen streams))) + (when ready (return ready))) + ;; (when timeout (return nil)) + (when (check-slime-interrupts) (return :interrupt)) + (serve-event:serve-event))) + +) ; progn + + ;;;; Compilation (defvar *buffer-name* nil) (defvar *buffer-start-position*) (defvar *buffer-string*) (defvar *compile-filename*) (defun signal-compiler-condition (&rest args) @@ -490,16 +540,19 @@ #-#.(swank-backend::with-symbol '+ECL-VERSION-NUMBER+ 'EXT) (skip-toplevel-forms pos s) (skip-comments-and-whitespace s) (read-snippet s)))))))) `(:error (format nil "Source definition of ~S not found" obj)))) ;;;; Profiling +#+profile +(progn + (eval-when (:compile-toplevel :load-toplevel :execute) (require 'profile)) (defimplementation profile (fname) (when fname (eval `(profile:profile ,fname)))) (defimplementation unprofile (fname) (when fname (eval `(profile:unprofile ,fname)))) @@ -516,17 +569,17 @@ "Reset profiling counters.") (defimplementation profiled-functions () (profile:profile)) (defimplementation profile-package (package callers methods) (declare (ignore callers methods)) (eval `(profile:profile ,(package-name (find-package package))))) - +) ; progn ;;;; Threads #+threads (progn (defvar *thread-id-counter* 0) (defvar *thread-id-counter-lock* On 9/1/09, Juan Jose Garcia-Ripoll <juanjose.garciaripoll(a)googlemail.com> wrote: > On Tue, Sep 1, 2009 at 6:26 AM, Ram Krishnan<kriyative(a)gmail.com> wrote: > > Here's a minor patch to add support for the `fd-handler' communication > > style in swank-ecl.lisp. I've only tested this with ECL 9.8.4 and SLIME > > CVS on OSX. I can't think of any reason why this shouldn't "just work" > > on any reasonable *nix on which ECL runs, and includes the SOCKETS and > > SERVE-EVENT modules. > > > I would like to remark that the patch is not conditioned on the > existence of both modules and it will definitely break when using ECL > on Windows. > > Juanjo > > > -- > Instituto de Física Fundamental, CSIC > c/ Serrano, 113b, Madrid 28006 (Spain) > http://juanjose.garciaripoll.googlepages.com >

1 0

[slime-devel] arglist for flet in LispWorks doesn't sit well with SLIME
by Nick Levine 01 Sep '09

01 Sep '09

I'd hesitate to say whose side of the fence the bug is on - LW returns something which SLIME can't parse (and SLIME can't parse it) - but here it is. CL-USER 1 > (function-lambda-list 'flet) (("(function-name lambda-list [[local-declaration* | local-documentation]] local-form*)*") &BODY SYSTEM::BODY) CL-USER 2 > - n

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 01 Sep '09

01 Sep '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1845 slime/ChangeLog:1.1847 --- slime/ChangeLog:1.1845 Thu Aug 27 16:19:26 2009 +++ slime/ChangeLog Mon Aug 31 13:08:17 2009 @@ -1,3 +1,18 @@ +2009-08-31 Helmut Eller <heller(a)common-lisp.net> + + Don't advice ccl::break-loop. + Should not be necessary as we can now use ccl:*break-hook*. + + * swank-ccl.lisp ([advice] ccl::break-loop): Deleted. + +2009-08-31 Helmut Eller <heller(a)common-lisp.net> + + Keep note overlays in a global variable. + That's simpler and cheaper than scanning all buffers. + + * slime.el (slime-note-overlays): New variable. + (slime-make-note-overlay, slime-remove-old-overlays): Use it. + 2009-08-27 Stas Boukarev <stassats(a)gmail.com> * slime.el (slime-remove-old-overlays): delete notes at the very beginning

1 0

[slime-devel] [patch] fd-handler communication style support in swank-ecl
by Ram Krishnan 01 Sep '09

01 Sep '09

Hi, Here's a minor patch to add support for the `fd-handler' communication style in swank-ecl.lisp. I've only tested this with ECL 9.8.4 and SLIME CVS on OSX. I can't think of any reason why this shouldn't "just work" on any reasonable *nix on which ECL runs, and includes the SOCKETS and SERVE-EVENT modules. There is a known issue with this patch, with disconnecting from and reconnecting to the swank server. The reconnection will hang, until `(serve-event:serve-event)' is evaluated in the *inferior-lisp* buffer. Regards, -ram Index: swank-ecl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-ecl.lisp,v retrieving revision 1.45 diff -u -8 -p -r1.45 swank-ecl.lisp --- swank-ecl.lisp 27 Jul 2009 04:08:41 -0000 1.45 +++ swank-ecl.lisp 31 Aug 2009 05:30:45 -0000 @@ -44,16 +44,17 @@ (sb-bsd-sockets:socket-bind socket (resolve-hostname host) port) (sb-bsd-sockets:socket-listen socket 5) socket)) (defimplementation local-port (socket) (nth-value 1 (sb-bsd-sockets:socket-name socket))) (defimplementation close-socket (socket) + (remove-fd-handlers socket) (sb-bsd-sockets:socket-close socket)) (defimplementation accept-connection (socket &key external-format buffering timeout) (declare (ignore buffering timeout external-format)) (make-socket-io-stream (accept socket))) @@ -65,17 +66,17 @@ (defun accept (socket) "Like socket-accept, but retry on EAGAIN." (loop (handler-case (return (sb-bsd-sockets:socket-accept socket)) (sb-bsd-sockets:interrupted-error ())))) (defimplementation preferred-communication-style () - (values nil)) + (values :fd-handler)) (defvar *external-format-to-coding-system* '((:iso-8859-1 "latin-1" "latin-1-unix" "iso-latin-1-unix" "iso-8859-1" "iso-8859-1-unix") (:utf-8 "utf-8" "utf-8-unix"))) (defimplementation find-external-format (coding-system) @@ -111,16 +112,58 @@ #+nil (defimplementation default-directory () (namestring (ext:getcwd))) (defimplementation quit-lisp () (ext:quit)) +;;;; Serve Event Handlers + +(eval-when (:compile-toplevel :load-toplevel :execute) + (require 'serve-event)) + +(defun socket-fd (socket) + (etypecase socket + (fixnum socket) + (sb-bsd-sockets:socket (sb-bsd-sockets:socket-file-descriptor socket)) + (file-stream (si:file-stream-fd socket)))) + +(defvar *descriptor-handlers* (make-hash-table :test 'eq)) + +(defimplementation add-fd-handler (socket fun) + (let* ((fd (socket-fd socket)) + (handler (gethash fd *descriptor-handlers*))) + (when handler + (serve-event:remove-fd-handler handler)) + (prog1 + (setf (gethash fd *descriptor-handlers*) + (serve-event:add-fd-handler fd + :input + #'(lambda (x) + (declare (ignorable x)) + (funcall fun)))) + (serve-event:serve-event)))) + +(defimplementation remove-fd-handlers (socket) + (let ((handler (gethash (socket-fd socket) *descriptor-handlers*))) + (when handler + (serve-event:remove-fd-handler handler)))) + +(defimplementation wait-for-input (streams &optional timeout) + (assert (member timeout '(nil t))) + (loop + (let ((ready (remove-if-not #'listen streams))) + (when ready (return ready))) + ;; (when timeout (return nil)) + (when (check-slime-interrupts) (return :interrupt)) + (serve-event:serve-event))) + + ;;;; Compilation (defvar *buffer-name* nil) (defvar *buffer-start-position*) (defvar *buffer-string*) (defvar *compile-filename*) (defun signal-compiler-condition (&rest args) @@ -490,16 +533,19 @@ #-#.(swank-backend::with-symbol '+ECL-VERSION-NUMBER+ 'EXT) (skip-toplevel-forms pos s) (skip-comments-and-whitespace s) (read-snippet s)))))))) `(:error (format nil "Source definition of ~S not found" obj)))) ;;;; Profiling +#+profile +(progn + (eval-when (:compile-toplevel :load-toplevel :execute) (require 'profile)) (defimplementation profile (fname) (when fname (eval `(profile:profile ,fname)))) (defimplementation unprofile (fname) (when fname (eval `(profile:unprofile ,fname)))) @@ -516,17 +562,17 @@ "Reset profiling counters.") (defimplementation profiled-functions () (profile:profile)) (defimplementation profile-package (package callers methods) (declare (ignore callers methods)) (eval `(profile:profile ,(package-name (find-package package))))) - +) ; progn ;;;; Threads #+threads (progn (defvar *thread-id-counter* 0) (defvar *thread-id-counter-lock*

1 0

[slime-devel] [patch] add a new protocol message for outputting images
by Stanislaw Halik 29 Aug '09

29 Aug '09

Here's a new protocol message for outputting images. Unlike the previous approach, it doesn't rely upon EVAL-IN-EMACS. The Bad Thing is that it puts REPL-specific code inside DISPATCH-EVENT which should be contrib-agnostic. There seems to be no way to add protocol messages in contribs, maybe there's some better way not involving protocol messages. I added the `fake-p' stuff because if it isn't there, the image is displayed right before the last REPL result (maybe dependent upon presentations?). PS in the last commit I got credited as "StanisBaw". The "ł" character apparently got turned into this "B". It can be transliterated to ASCII as "l" if the changelog has problems with Unicode. diff --git a/contrib/slime-repl.el b/contrib/slime-repl.el index 9e05531..3bcb894 100644 --- a/contrib/slime-repl.el +++ b/contrib/slime-repl.el @@ -719,23 +719,27 @@ balanced." (goto-char (point-max)) (recenter -1)))) -(defun slime-repl-send-input (&optional newline) +(defun slime-repl-send-input (&optional newline fake-p) "Goto to the end of the input and send the current input. -If NEWLINE is true then add a newline at the end of the input." +If NEWLINE is true then add a newline at the end of the input. +When FAKE-P is true it doesn't get added to history. Useful for +adding images to the REPL." (unless (slime-repl-in-input-area-p) (error "No input at point.")) (goto-char (point-max)) (let ((end (point))) ; end of input, without the newline - (slime-repl-add-to-input-history - (buffer-substring slime-repl-input-start-mark end)) + (unless fake-p + (slime-repl-add-to-input-history + (buffer-substring slime-repl-input-start-mark end))) (when newline (insert "\n") (slime-repl-show-maximum-output)) - (let ((inhibit-modification-hooks t)) - (add-text-properties slime-repl-input-start-mark - (point) - `(slime-repl-old-input - ,(incf slime-repl-old-input-counter)))) + (unless fake-p + (let ((inhibit-modification-hooks t)) + (add-text-properties slime-repl-input-start-mark + (point) + `(slime-repl-old-input + ,(incf slime-repl-old-input-counter))))) (let ((overlay (make-overlay slime-repl-input-start-mark end))) ;; These properties are on an overlay so that they won't be taken ;; by kill/yank. @@ -745,7 +749,8 @@ If NEWLINE is true then add a newline at the end of the input." (goto-char (point-max)) (slime-mark-input-start) (slime-mark-output-start) - (slime-repl-send-string input))) + (unless fake-p + (slime-repl-send-string input)))) (defun slime-repl-grab-old-input (replace) "Resend the old REPL input at point. diff --git a/slime.el b/slime.el index c392996..e60a022 100644 --- a/slime.el +++ b/slime.el @@ -2392,6 +2392,12 @@ Debugged requests are ignored." (let ((slime-dispatching-connection (or process (slime-connection)))) (or (run-hook-with-args-until-success 'slime-event-hooks event) (destructure-case event + ((:write-image pathname) + (if (file-exists-p pathname) + (with-current-buffer (slime-repl-buffer) + (insert-image (create-image pathname)) + (slime-repl-send-input t t)) + (error "No such file: '%s'" pathname))) ((:emacs-rex form package thread continuation) (when (and (slime-use-sigint-for-interrupt) (slime-busy-p)) (slime-display-oneliner "; pipelined request... %S" form)) diff --git a/swank.lisp b/swank.lisp index 9b1f0f4..a259797 100644 --- a/swank.lisp +++ b/swank.lisp @@ -1174,7 +1174,16 @@ The processing is done in the extent of the toplevel restart." ((:reader-error packet condition) (encode-message `(:reader-error ,packet ,(safe-condition-message condition)) - (current-socket-io))))) + (current-socket-io))) + ((:write-image pathname) + (handler-case (namestring (truename pathname)) + (error (e) + (declare (ignore e)) + nil) + (:no-error (string) + (when string + (encode-message `(:write-image ,string) + (current-socket-io)))))))) (defvar *event-queue* '()) (defvar *events-enqueued* 0) @@ -3845,4 +3854,4 @@ Collisions are caused because package information is ignored." (defun init () (run-hook *after-init-hook*)) -;;; swank.lisp ends here \ No newline at end of file +;;; swank.lisp ends here

3 2