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

[slime-devel] M-. too smart sometimes
by Nikodemus Siivola 30 Jun '09

30 Jun '09

(defun foo (x) (let ((cons (cons x x))) (cons cons cons))) Hit M-. on first CONS in (CONS CONS CONS). Point jumps to the binding of CONS, not the definition of function CONS -- and no XREF buffer appears. Cheers, -- Nikodemus

1 0

[slime-devel] Daily ChangeLog diff
by Helmut Eller 30 Jun '09

30 Jun '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1799 slime/ChangeLog:1.1800 --- slime/ChangeLog:1.1799 Mon Jun 29 00:24:51 2009 +++ slime/ChangeLog Mon Jun 29 22:50:25 2009 @@ -1,3 +1,8 @@ +2009-06-30 Stas Boukarev <stassats(a)gmail.com> + + * swank-openmcl.lisp (arglist): Return :not-available if the arglist + cannot be obtained. Patch by Terje Norderhaug. + 2009-06-29 Stas Boukarev <stassats(a)gmail.com> * swank.lisp (open-streams): do not create unnecessary output stream

1 0

[slime-devel] [PATCH] arglist for Clozure
by Terje Norderhaug 30 Jun '09

30 Jun '09

When used with Clozure, the #'operator-arglist slimefun incorrectly does not return NIL for unbound functions: (fboundp 'cl::bogus) => NIL (swank:operator-arglist "BOGUS" "COMMON-LISP") => "(BOGUS )" The interface function #'arglist (called by #'swank:operator-arglist) is documented to return "the :not-available keyword if the arglist cannot be determined". However: (swank::arglist 'cl::bogus) => NIL The fix is to make the arglist function of the Clozure backend return :not-available when there is no binding: diff -u slime-2009-06-29/swank-openmcl.lisp patch/swank-openmcl.lisp --- slime-2009-06-29/swank-openmcl.lisp 2009-06-29 00:15:06.000000000 -0700 +++ patch/swank-openmcl.lisp 2009-06-29 15:04:51.000000000 -0700 @@ -206,7 +206,11 @@ ;;; Arglist (defimplementation arglist (fname) - (arglist% fname)) + (multiple-value-bind (arglist binding) + (arglist% fname) + (if binding + arglist + :not-available))) (defmethod arglist% ((f symbol)) (ccl:arglist f)) -- Terje Norderhaug

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 29 Jun '09

29 Jun '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1794 slime/ChangeLog:1.1799 --- slime/ChangeLog:1.1794 Sat Jun 27 11:10:29 2009 +++ slime/ChangeLog Mon Jun 29 00:24:51 2009 @@ -1,3 +1,36 @@ +2009-06-29 Stas Boukarev <stassats(a)gmail.com> + + * swank.lisp (open-streams): do not create unnecessary output stream + when using dedicated output stream. Thanks to Terje Norderhaug. + +2009-06-28 Terje Norderhaug <terje(a)in-progress.com> + + Generalize list-threads for implementation-dependent attributes. + + * swank-backend.lisp (thread-attributes): New function. + * swank-openmcl (thread-attributes): Implement it. + * swank.lisp (list-threads): Return a table with the attribute + names as the first row and the new attributes in the last columns. + * slime.el (slime-update-threads-buffer): For now, ignore the + extra attributes. + +2009-06-28 Stelian Ionescu <stelian.ionescu-zeus(a)poste.it> + + * slime.el (slime-compiler-macroexpand-inplace) + (slime-compiler-macroexpand-1-inplace): New commands. + (slime-macroexpansion-minor-mode-map): Bind them. + +2009-06-28 Helmut Eller <heller(a)common-lisp.net> + + * swank-sbcl.lisp (add-fd-handler): Avoid recursive invocation + of the handler, e.g. when read-sequence blocks. + +2009-06-28 Stas Boukarev <stassats(a)gmail.com> + + * swank-openmcl.lisp (compiler-warning-short-message): In new + versions of CCL `compiler-warning-nrefs' slot + of the `compiler-warning' class is now a list, not an integer. + 2009-06-25 Geo Carncross <geocar(a)gmail.com> * swank-ecl.lisp: Profiling support by Marko Kocić @@ -13,12 +46,11 @@ SWANK:INSPECT-IN-EMACS. * swank.lisp (inspect-in-emacs): added keyword argument :wait. - + * slime.el (slime-dispatch-event): if swank requests response to :inspect, add a hook to the inspector to signal swank once done. (slime-open-inspector): add optional hook argument to be added as local kill-buffer-hook. - 2009-06-21 Helmut Eller <heller(a)common-lisp.net> @@ -26,6 +58,7 @@ contrib/slime-fontifying-fu.el 2009-06-21 Helmut Eller <heller(a)common-lisp.net> + Don't try so hard to get symbol-at-point right. The old implementation was complicated and didn't even pass it's own test suite. The new version is less ambitious but simpler. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.219 slime/contrib/ChangeLog:1.220 --- slime/contrib/ChangeLog:1.219 Tue Jun 23 14:11:13 2009 +++ slime/contrib/ChangeLog Sun Jun 28 04:51:18 2009 @@ -1,3 +1,12 @@ +2009-06-28 Stas Boukarev <stassats(a)gmail.com> + + * slime-fuzzy.el (slime-fuzzy-complete-symbol): show message in the + minibuffer after showing completion list, because completion + itself can take place in the minibuffer. + (slime-fuzzy-choices-buffer): if completion was started in the minibuffer, + don't switch to minibuffer in the other window, but select minibuffer window + instead. + 2009-06-23 Helmut Eller <heller(a)common-lisp.net> * swank-ikarus.ss, swank-larceny.scm, swank-r6rs.scm: New files.

1 0

[slime-devel] open-streams loosing a stream
by Terje Norderhaug 29 Jun '09

29 Jun '09

I am setting up a dedicated output stream between Swank and the client, with *use-dedicated-output-stream* set to T. I discovered that the open-streams function of swank apparently loose an open stream if *use-dedicated-output-stream* is non-nil: (let* ([...] (dedicated-output (if *use-dedicated-output-stream* (open-dedicated-output-stream (connection.socket-io connection)))) (out (make-output-stream output-fn)) (in (make-input-stream input-fn)) (out (or dedicated-output out)) <--- (io (make-two-way-stream in out)) (repl-results (make-output-stream-for-target connection :repl-result))) (when (eq (connection.communication-style connection) :spawn) (setf (connection.auto-flush-thread connection) (spawn (lambda () (auto-flush-loop out)) :name "auto-flush-thread"))) (values dedicated-output in out io repl-results))) I suppose this isn't intentional? Here is a candidate patch that avoids creating the output stream if there is a stream for dedicated- output: diff -u slime-2009-06-28/swank.lisp slime-2009-06-28+/swank.lisp --- slime-2009-06-28/swank.lisp 2009-06-25 00:15:03.000000000 -0700 +++ slime-2009-06-28+/swank.lisp 2009-06-28 18:17:56.000000000 -0700 @@ -905,9 +905,8 @@ (dedicated-output (if *use-dedicated-output-stream* (open-dedicated-output-stream (connection.socket-io connection)))) - (out (make-output-stream output-fn)) (in (make-input-stream input-fn)) - (out (or dedicated-output out)) + (out (or dedicated-output (make-output-stream output-fn))) (io (make-two-way-stream in out)) (repl-results (make-output-stream-for-target connection :repl-result))) -- Terje Norderhaug

2 1

[slime-devel] [PATCH] Expand compiler macros inline
by Stelian Ionescu 28 Jun '09

28 Jun '09

Attached. -- Stelian Ionescu a.k.a. fe[nl]ix Quidquid latine dictum sit, altum videtur.

2 1

[slime-devel] too-eager *print-circle* binding in debugger
by Nikodemus Siivola 28 Jun '09

28 Jun '09

Test case: (error "~a" "duh") in terminal: debugger invoked on a SIMPLE-ERROR: duh in Slime: #1=#1# [Condition of type SIMPLE-ERROR] ...which is a bit suboptimal... Cheers, -- Nikodemus

3 4

[slime-devel] Daily ChangeLog diff
by Helmut Eller 28 Jun '09

28 Jun '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1793 slime/ChangeLog:1.1794 --- slime/ChangeLog:1.1793 Thu Jun 25 00:06:15 2009 +++ slime/ChangeLog Sat Jun 27 11:10:29 2009 @@ -2,6 +2,11 @@ * swank-ecl.lisp: Profiling support by Marko Kocić +2009-06-27 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-beginning-of-symbol): Skip over #., #-, and #+. + ([test] symbol-at-point.15 .. 17): Test it. + 2009-06-24 Nikodemus Siivola <nikodemus(a)random-state.net> Add :WAIT keyword argument to support blocking in

1 0

Re: [slime-devel] Connection to Emacs lost. condition: junk in string
by Kelly McDonald 28 Jun '09

28 Jun '09

Not sure if this is going to get threading hooked up correctly as I just joined the list. >Recently when I evaluate a relatively big function in slime (more that 6 >lines of code) I lose connection with swank. >I tried Emacs with different versions and slime with different versions, so >I don't know where else I can look for an error. >Could it be something with network on this particular workstation? I had this same behavior when evaluating a ~30k section of code. After a bit of debugging , I found that My setup: sbcl 1.0.29 (both binary x86 and local built 64bit - no threads enabled) slime/swank from git (or was that cvs?) 1) Threads were not available 2) the read-packet was getting interrupted by another swank event, it would read the packet length from the stream, but the first event had not finished yet so it was reading random characters in the first event to determine the length of the next packet and it crashed in parse-integer 3) wait-for-event was being recalled before the event had completely decoded. 4) I had turned logging on and I had seen (READ: 003999 - 6 digit packet length) (wait-for-event: ~s ~s~%) (READ: strjunk) being printed, instead of (READ:003999) (READ:validpacket). (I added some other logging points as well) 5) I think the problem was somewhere in wait-for-event/event-loop - but I didn't totally understand the code enough (and didn't have time enough) do debug any further. 6) I enabled threads in sbcl and the problem went away. Sorry I could not provide a patch or more information. If you have something for me to try, please let me know and I will test. Kelly McDonald

2 4

[slime-devel] renaming symbols locally
by Nikodemus Siivola 28 Jun '09

28 Jun '09

I got fed up doing this manually, and wrote the following. I'm know there are pre-existing versions and this isn't probably the best one, but it has one feature I missed: it checks for conflict potential before starting the renaming. Something like this would be nice to have in Slime, I think. Is there a contrib that would be appropriate for this? Also, this is way too deep in elisp-land for me to feel quite confident that this is a sane way to do this. (defun ns:slime-rename-symbol-in-defun (old new) "Replace `old' with `new' in the current defun." (interactive "sSymbol to replace: \nsSymbol to replace with: ") (catch 'abort (let ((count 0)) (save-excursion (destructuring-bind (start end) (slime-region-for-defun-at-point) ;; First scan to see if we have conflicts... (let ((size (length new)) (p start)) (goto-char start) ;; KLUDGE: no forward-op for slime-symbols, but this gets most ;; things right when used with SLIME-SYMBOL-AT-POINT. (forward-thing 'symbol) (loop while (and (< (point) end) (> (point) p)) do (let ((symbol (slime-symbol-at-point))) (when (equalp symbol new) (slime-beginning-of-symbol) (when (ns:slime-highlight-y-or-n-p (format "Pre-existing %s, abort? " new) (point) (+ (point) size)) (throw 'abort nil)) (slime-end-of-symbol))) (setf p (point)) (forward-thing 'symbol))) ;; ...then scan again to replace. (let ((size (length old)) (p start)) (goto-char start) (forward-thing 'symbol) (loop while (and (< (point) end) (> (point) p)) do (let ((symbol (slime-symbol-at-point))) (when (equalp symbol old) (slime-beginning-of-symbol) (when (ns:slime-highlight-y-or-n-p "Rename? " (point) (+ (point) size)) (delete-char size) (insert-string new) (incf count)) (slime-end-of-symbol))) (setf p (point)) (forward-thing 'symbol)))) (message "%d occurrances of %s replaced with %s" count old new) t)))) (defun ns:slime-highlight-y-or-n-p (string start end) "Ask a y-or-n-p question using `string' with the region delimited by `start' and `end' highlighted." (let (hilite) (unwind-protect (progn (setf hilite (make-overlay start end)) (overlay-put hilite 'face 'slime-highlight-face) (y-or-n-p string)) (when hilite (delete-overlay hilite))))) Cheers, -- Nikodemus

2 2