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

[slime-devel] Patch: SBCL swank-compile-string
by Juho Snellman 03 Aug '05

03 Aug '05

Hi, Attached patch to swank-sbcl.lisp fixes a problem with runtime conditions after C-C C-C popping up a *compiler-notes* buffer (for example DEFUN redefinition style-warnings). It also removes 150 lines of SBCL 0.9.1 support code. -- Juho Snellman

1 0

[slime-devel] slime movie
by Marco Baringer 01 Aug '05

01 Aug '05

hi, short story: http://common-lisp.net/~mbaringer/slime.torrent (55min; 149mb; quicktime encoded mpeg-4) long story: i got a lot of feedback regarding the ucw movie i made the other day. some of it was ucw related but a lot of it was related to how i used slime and develped lisp code. instead of getting real work done, or going to the park, i made an intro video/showcase for slime. it was supposed to be about 20mins but when i was done i realized i'd talked for almost an hour :). it covers (more or less deeply): installing and setting up slime (remotely) the repl (output recording and shortcuts) sldb (locals, inspect-frame and frame-source) M-. list-callers/list-calles the inspector slime-selector hyperspec lookup emacs commands for editing lisp code fuzzy-completion and slime-autodoc i think that's it (i'm not about to watch it again to make sure...) if it doesn't suck too much i'll announce it to the world. p.s. - one of the not-to-hidden goals was to make something java/perl/python/C coders could watch so they can see what they're missing. if you have suggestions on how to get said coders to watch it i'm all ears. -- -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

7 10

[slime-devel] Slime hangs on startup
by Liam M. Healy 01 Aug '05

01 Aug '05

Newly-installed Debian unstable Linux zotz 2.6.11-1-686 #1 Mon Jun 20 22:00:38 MDT 2005 i686 GNU/Linux SBCL 0.9.1.41, SLIME from CVS Does not switch from *inferior-lisp* frame to listener in either mule or nomule XEmacs; hangs with e.g. ;; Swank started at port: 1033. In the repl window, there is a message like debugger invoked on a UNDEFINED-FUNCTION in thread 5710: The function SWANK:SWANK-DEBUGGER-HOOK is undefined. and then a prompt, but entering anything at the prompt results in no action but a message in the modeline ; pipelined request... (swank:listener-eval " ") C-h l shows Loading regexp-opt...done Loading regexp-opt... Loading cl-indent...done Loading cl-indent... Connecting to Swank on port 1035.. Polling "/tmp/liam/slime.5640".. (Abort with `M-x slime-abort-connection'.) Polling "/tmp/liam/slime.5640".. (Abort with `M-x slime-abort-connection'.) Polling "/tmp/liam/slime.5640".. (Abort with `M-x slime-abort-connection'.) Polling "/tmp/liam/slime.5640".. (Abort with `M-x slime-abort-connection'.) Polling "/tmp/liam/slime.5640".. (Abort with `M-x slime-abort-connection'.) Polling "/tmp/liam/slime.5640".. (Abort with `M-x slime-abort-connection'.) Polling "/tmp/liam/slime.5640".. (Abort with `M-x slime-abort-connection'.) I've had no problems with slime on other computers, even other computers on this network. Any ideas? Hints on how to debug? Thanks. Liam

4 3

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 29 Jul '05

29 Jul '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.728 slime/ChangeLog:1.729 --- slime/ChangeLog:1.728 Tue Jul 26 23:40:03 2005 +++ slime/ChangeLog Fri Jul 29 14:34:56 2005 @@ -1,3 +1,14 @@ +2005-07-29 Marco Baringer <mb(a)bese.it> + + * doc/slime.texi (Other configurables): Document + *dedicated-output-stream-port*. + + * swank.lisp (*dedicated-output-stream-port*): New variable. + (open-dedicated-output-stream): Open the stream on the port + *dedicated-output-stream-port*. + + * slime.el (slime-set-default-directory): Fix typo in doc string. + 2005-07-26 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * swank.lisp (inspect-for-emacs): Don't make whitespace

1 0

[slime-devel] Re: [Sbcl-devel] Would McCLIM benefit from this pretty printer patch for CMUCL/SBCL?
by Matthias Koeppe 29 Jul '05

29 Jul '05

Raymond Toy <raymond.toy(a)ericsson.com> writes: >>>>>> "Matthias" == Matthias Koeppe <mkoeppe(a)merkur.math.uni-magdeburg.de> writes: > Matthias> Dear McCLIM list, > Matthias> I have worked on a patch for the pretty printer of CMUCL and SBCL that > Matthias> helps support the new presentation-like features of SLIME in > Matthias> conjunction with the pretty printer. > > I'm not familiar with slime's presentations, but I was going to look > into incorporating your patch. > > However, in light of Paolo's comments, I'm holding off until this is > resolved. I have now taken a look at Gilbert Baumann's pretty printer patch (http://bauhh.dyndns.org:8000/mcclim/pprint/) that Paolo pointed out. As far as I can see, the changes there could be easily re-implemented in terms of the more general "annotations" feature implemented in my patch. The only thing that is not covered by my patch is the hooks into START-LOGICAL-BLOCK, END-LOGICAL-BLOCK, PPRINT-LOGICAL-BLOCK. These changes are independent of my patch. (I am including below a new version of the patch for CMUCL that includes docstrings.) Cheers, -- Matthias Koeppe -- http://www.math.uni-magdeburg.de/~mkoeppe diff -u /home/mkoeppe/s/slime/cmucl/pprint.lisp.orig /home/mkoeppe/s/slime/cmucl/pprint.lisp --- /home/mkoeppe/s/slime/cmucl/pprint.lisp.orig 2005-07-21 22:30:50.000000000 +0200 +++ /home/mkoeppe/s/slime/cmucl/pprint.lisp 2005-07-29 00:11:19.000000000 +0200 @@ -109,6 +109,10 @@ ;; ;; Block-start queue entries in effect at the queue head. (pending-blocks nil :type list) + ;; + ;; Queue of annotations to the buffer + (annotations-tail nil :type list) + (annotations-head nil :type list) ) (defun %print-pretty-stream (pstream stream depth) @@ -381,6 +385,10 @@ (enqueue stream tab :sectionp sectionp :relativep relativep :colnum colnum :colinc colinc))) +(defstruct (annotation (:include queued-op)) + (handler (constantly nil) :type function) + (record)) + ;;;; Tab support. @@ -472,6 +480,91 @@ (replace new-buffer buffer :end1 end :end2 end)))))) +;;;; Annotations support. + +(defun enqueue-annotation (stream handler record) + "Insert an annotation into the pretty-printing stream STREAM. +HANDLER is a function, and RECORD is an arbitrary datum. The +pretty-printing stream conceptionally queues annotations in sequence +with the characters that are printed to the stream, until the stream +has decided on the concrete layout. When the characters are forwarded +to the target stream, annotations are invoked at the right position. +An annotation is invoked by calling the function HANDLER with the +three arguments RECORD, TARGET-STREAM, and TRUNCATEP. The argument +TRUNCATEP is true if the text surrounding the annotation is suppressed +due to line abbreviation (see *PRINT-LINES*). +If STREAM is not a pretty-printing stream, simply call HANDLER +with the arguments RECORD, STREAM and nil." + (enqueue stream annotation :handler handler + :record record)) + +(defun re-enqueue-annotation (stream annotation) + "Insert ANNOTATION into the queue of annotations in STREAM." + (let* ((annotation-cons (list annotation)) + (head (pretty-stream-annotations-head stream))) + (if head + (setf (cdr head) annotation-cons) + (setf (pretty-stream-annotations-tail stream) annotation-cons)) + (setf (pretty-stream-annotations-head stream) annotation-cons))) + +(defun re-enqueue-annotations (stream end) + "Insert all annotations in STREAM from the queue of pending +operations into the queue of annotations. When END is non-nil, +stop before reaching the queued-op END." + (loop for tail = (pretty-stream-queue-tail stream) then (cdr tail) + while (and tail (not (eql (car tail) end))) + when (annotation-p (car tail)) + do (re-enqueue-annotation stream (car tail)))) + +(defun dequeue-annotation (stream &key end-posn) + "Dequeue the next annotation from the queue of annotations of STREAM +and return it. Return nil if there are no more annotations. When +:END-POSN is given and the next annotation has a posn greater than +this, also return nil." + (let ((next-annotation (car (pretty-stream-annotations-tail stream)))) + (when next-annotation + (when (or (not end-posn) + (<= (annotation-posn next-annotation) end-posn)) + (pop (pretty-stream-annotations-tail stream)) + (unless (pretty-stream-annotations-tail stream) + (setf (pretty-stream-annotations-head stream) nil)) + next-annotation)))) + +(defun invoke-annotation (stream annotation truncatep) + (let ((target (pretty-stream-target stream))) + (funcall (annotation-handler annotation) + (annotation-record annotation) + target + truncatep))) + +(defun output-buffer-with-annotations (stream end) + "Output the buffer of STREAM up to (excluding) the buffer index END. +When annotations are present, invoke them at the right positions." + (let ((target (pretty-stream-target stream)) + (buffer (pretty-stream-buffer stream)) + (end-posn (index-posn end stream)) + (start 0)) + (loop + for annotation = (dequeue-annotation stream :end-posn end-posn) + while annotation + do + (let ((annotation-index (posn-index (annotation-posn annotation) + stream))) + (write-string buffer target :start start + :end annotation-index) + (invoke-annotation stream annotation nil) + (setf start annotation-index))) + (write-string buffer target :start start :end end))) + +(defun flush-annotations (stream end truncatep) + "Invoke all annotations in STREAM up to (including) the buffer index END." + (let ((end-posn (index-posn end stream))) + (loop + for annotation = (dequeue-annotation stream :end-posn end-posn) + while annotation + do (invoke-annotation stream annotation truncatep)))) + + ;;;; Stuff to do the actual outputting. (defun assure-space-in-buffer (stream want) @@ -541,9 +634,10 @@ force-newlines-p) ((t) ;; Just nuke the whole logical block and make it look like one - ;; nice long literal. + ;; nice long literal. (But don't nuke annotations.) (let ((end (block-start-block-end next))) (expand-tabs stream end) + (re-enqueue-annotations stream end) (setf tail (cdr (member end tail))))) ((nil) (really-start-logical-block @@ -556,7 +650,9 @@ (block-end (really-end-logical-block stream)) (tab - (expand-tabs stream next)))) + (expand-tabs stream next)) + (annotation + (re-enqueue-annotation stream next)))) (setf (pretty-stream-queue-tail stream) tail)) output-anything)) @@ -600,12 +696,16 @@ (if last-non-blank (1+ last-non-blank) 0))))) - (write-string buffer target :end amount-to-print) + (output-buffer-with-annotations stream amount-to-print) + (flush-annotations stream amount-to-consume nil) (let ((line-number (pretty-stream-line-number stream))) (incf line-number) (when (and (not *print-readably*) *print-lines* (>= line-number *print-lines*)) (write-string " .." target) + (flush-annotations stream + (pretty-stream-buffer-fill-pointer stream) + t) (let ((suffix-length (logical-block-suffix-length (car (pretty-stream-blocks stream))))) (unless (zerop suffix-length) @@ -657,8 +757,7 @@ (buffer (pretty-stream-buffer stream))) (when (zerop count) (error "Output-partial-line called when nothing can be output.")) - (write-string buffer (pretty-stream-target stream) - :start 0 :end count) + (output-buffer-with-annotations stream count) (incf (pretty-stream-buffer-start-column stream) count) (replace buffer buffer :end1 new-fill-ptr :start2 count :end2 fill-ptr) (setf (pretty-stream-buffer-fill-pointer stream) new-fill-ptr) @@ -667,9 +766,9 @@ (defun force-pretty-output (stream) (maybe-output stream nil) (expand-tabs stream nil) - (write-string (pretty-stream-buffer stream) - (pretty-stream-target stream) - :end (pretty-stream-buffer-fill-pointer stream))) + (re-enqueue-annotations stream nil) + (output-buffer-with-annotations stream + (pretty-stream-buffer-fill-pointer stream))) ;;;; Utilities.

1 0

RE: [slime-devel] slime movie
by VAUCHER Laurent 29 Jul '05

29 Jul '05

Nice demo. (setf *off-topic* t) At least, I am somewhat relieved to see I am not the only one working with a black background in my text editors :o) I might use colors that are a bit more saturated (flashy ?) though... Who said "Christmas tree" ? Laurent.

1 0

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 26 Jul '05

26 Jul '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.725 slime/ChangeLog:1.728 --- slime/ChangeLog:1.725 Sun Jul 24 17:30:46 2005 +++ slime/ChangeLog Tue Jul 26 23:40:03 2005 @@ -1,3 +1,24 @@ +2005-07-26 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + + * swank.lisp (inspect-for-emacs): Don't make whitespace + surrounding :action buttons part of the highlighted region. + + * slime.el (slime-goto-location-buffer): Put "SLIME Source Form" + buffer into Lisp mode. + +2005-07-26 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (compile-file-for-emacs): Accept optional + external-format arg. I frogot to commit this file on 2005-07-05. + + * slime.el (slime-input-complete-p): Skip over strings too. + +2005-07-26 Zach Beane <xach(a)xach.com> + + * swank-sbcl.lisp (swank-compile-string): Revert to old string + compilation behavior to fix compiler note annotations. Code from + Juho Snellman. + 2005-07-24 Tom Pierce <tlpierce(a)gmail.com> * swank.lisp (format-iso8601-time): New functions. Properly

1 0

[slime-devel] Bug reading strings in REPL
by Edi Weitz 26 Jul '05

26 Jul '05

Unfortunately I have no time to investigate this but here is how to reproduce it (seen with LispWorks as well as with CMUCL, SLIME from CVS): At the REPL prompt type " (quote) and then RETURN. At that point I get an END-OF-FILE error. Cheers, Edi.

2 1

[slime-devel] Tiny patch for the SLIME inspector
by Matthias Koeppe 26 Jul '05

26 Jul '05

Hi, I am sending a tiny patch for the SLIME inspector. Because Emacs merges adjacent text properties of the same value, adjacent "action" buttons are glued together, so they are all highlighted when mouse is over one of them. (This can be seen, for instance, when one inspects an internal symbol.) The patch below fixes this bug by separating all "action" buttons by whitespace without the `highlight' text property. Cheers, Matthias 2005-07-17 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * swank.lisp (inspect-for-emacs): Don't make whitespace surrounding :action buttons part of the highlighted region. --- swank.lisp.~1.309.~ 2005-06-26 20:38:06.000000000 +0200 +++ swank.lisp 2005-07-17 16:58:41.000000000 +0200 @@ -3342,9 +3343,11 @@ " to the package: " (:value ,package ,(package-name package)) ,@(if (eq :internal status) - `((:action " [export it]" + `(" " + (:action "[export it]" ,(lambda () (export symbol package))))) - (:action " [unintern it]" + " " + (:action "[unintern it]" ,(lambda () (unintern symbol package))) (:newline)) '("It is a non-interned symbol." (:newline))) @@ -3356,7 +3359,8 @@ (if (find-class symbol nil) `("It names the class " (:value ,(find-class symbol) ,(string symbol)) - (:action " [remove]" + " " + (:action "[remove]" ,(lambda () (setf (find-class symbol) nil))) (:newline))) ;; @@ -3477,7 +3481,8 @@ `((:value ,method ,(inspector-princ ;; drop the name of the GF (cdr (method-for-inspect-value method)))) - (:action " [remove method]" + " " + (:action "[remove method]" ,(let ((m method)) ; LOOP reassigns method (lambda () (remove-method gf m)))) -- Matthias Koeppe -- http://www.math.uni-magdeburg.de/~mkoeppe

2 1

[slime-devel] specifying charset of a file to compile
by frederic.gobry＠epfl.ch 26 Jul '05

26 Jul '05

Hi, I'm working on a simple web app whose source contains utf-8 characters, and I try to configure my environment so that everything plays nicely. What works: - when using emacs in utf-8 environment, I can properly use the REPL and compile functions with C-c C-c. They play nicely together. What does not work: - when I use C-c C-k, the functions seem to be compiled as if the source code was in latin-1 I think. How can I configure slime to behave similarly whether it compiles a file or a function? The only slime config I have is: (setq slime-net-coding-system 'utf-8-unix) I'm using: - sbcl 0.9.2 - slime CVS Thanks for your help, Frédéric

2 5