slime-devel September 2009

slime-devel@common-lisp.net

26 participants
46 discussions

Start a nNew thread

[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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

slime-devel September 2009