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

[slime-devel] Ha
by jennhillsuperstar＠gmail.com 21 Aug '08

21 Aug '08

Sent on the TELUS Mobility network with BlackBerry

1 0

[slime-devel] (no subject)
by jennhillsuperstar＠gmail.com 21 Aug '08

21 Aug '08

Sent on the TELUS Mobility network with BlackBerry

1 0

[slime-devel] Port File and Dedicated SLIME Instance
by Volkan YAZICI 20 Aug '08

20 Aug '08

Hi, [Sorry if this question was asked before. I couldn't find something related in the archives.] When I start SLIME with `M-x slime' in emacs, below lines appear in the *inferior-lisp* buffer: (progn (load "/home/vy/elisp/slime/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall (read-from-string "swank:start-server") "/tmp/slime.2951" :coding-system "utf-8-unix")) This is SBCL 1.0.19.27, an implementation of ANSI Common Lisp. ... ; loading #P"/home/vy/.slime/fasl/2008-08-14/sbcl-1.0.19.27-linux-x86-64/swank.fasl" WARNING: These Swank interfaces are unimplemented: (CALLS-WHO DISASSEMBLE-FRAME SLDB-BREAK-AT-START SLDB-BREAK-ON-RETURN WHO-SPECIALIZES) ;; Swank started at port: 56586. ;; SWANK: sb-thread::get-foreground ... 56586 * First problem is SLIME doesn't place `/tmp/slime.<emacs-pid>' file. 1. Do I need to turn some variable on to make SLIME write the port number its accepting connections from to the port file? Then I start a second emacs instance and try to connect the related swank session using `M-x slime-connect'. (Such a thing is possible, isn't it?) But emacs complains that make client process failed: connection refused, :name, SLIME Lisp, :buffer, nil, :host, 127.0.0.1, :service, 5658 Then I kill (C-x k) my initial *slime-repl sbcl* buffer (typing `y' in the prompt asking me if I am sure that I want to close the existing connections too). This time emacs complains with the same error message as above and below lines appear in the *inferior-lisp* buffer. ; swank:close-connection: end of file on #<SB-SYS:FD-STREAM for "a socket" {1003442631}> Furthermore, in any of the above cases `netstat -plunt' doesn't produce any output related with sbcl process. 2. How can I start SLIME on a dedicated TCP/IP socket? 3. Is it possible to connect to a single swank session using multiple client (SLIME) connections? 4. How can I make my swank session to not close its listener after one of clients disconnects? (Or in other words, how can I pass ":DONT-CLOSE T" option SWANK:START-SERVER within emacs? Regards.

3 4

[slime-devel] custom tweaks for object system
by David O'Toole 20 Aug '08

20 Aug '08

Hello folks. I use SLIME for all my Common Lisp interaction. I recently implemented a custom prototype-based object system for a roguelike game project i'm doing. With the use of reader macros and some code walking, I can write methods like this: > (define-method equip cell (item &optional slot) > (when [is-equipment item] > (let ((match [equipment-match self item])) > (setf (getf <equipment> > (or slot (first match))) > item) > [add-category item :equipped] > ;; remove from inventory > [remove-item self item]))) The syntax is [method-name object &rest args] and <foo> represents (field-value self :foo) Another example: > (define-method forward world (method-key &rest args) > "Send unhandled messages to the player object. > This is where most world computations start, because nothing happens > in a roguelike until the user has pressed a key." > (let ((player <player>) > (phase-number <phase-number>)) > (with-message-queue <message-queue> > ;; send the message, possibly generating queued messages > (apply #'send method-key player args) > ;; process any messages that were generated > [process-messages self] > ;; update the player's action points > [take-turn player phase-number] > ;; if this is the player's last turn, begin the cpu phase > ;; otherwise, stay in player phase and exit > (unless [needs-turn player phase-number] > [run-cpu-phase self]))) > nil) > I would like this to work with SLIME's arguments list lookup and so on. My system retains all the documentation and arglist info at runtime so I could probably hook this up somehow. Any suggestions on how I could make this work with SLIME?

3 4

[slime-devel] [PATCH] fix the indentation of IF forms in the slime-indentation contrib
by Luis Oliveira 20 Aug '08

20 Aug '08

Hello, The attached patch changes the indentation of IF forms from (if foo bar baz) to (if foo bar baz) which is, AFAIK, the most widespread way of indenting IF forms. Also, this patch <http://common-lisp.net/~loliveira/patches/slime-changelog-nuke-trailing-whi…> removes lots of trailing whitespace from the ChangeLog via M-x delete-trailing-whitespace. -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/

2 2

[slime-devel] [RfC] Per event bindings
by Tobias C. Rittweiler 20 Aug '08

20 Aug '08

Hi, I recently introduced Swank-Compilation-Units; within one such units the compiler notes of several compilation requests are accumulated. These units were introduced to implement C-c C-k in Xrefs buffers where several toplevel forms should be recompiled at once (the reason we don't do it with one request is the preservation of source-locations.) The current implementation works perfectly fine with threads. But there's a use case that will break for the serve-event communication style: Let's say you have some form which will activate some application's event loop, and you use C-c C-c to "evaluate" the form. This C-c C-c will bind *SWANK-COMPILATION-UNIT*. All consequent C-c C-c's will be executed in a dynamic environment where *SWANK-COMPILATION-UNIT* is still bound to that the unit of the application-event-loop evaluation. This means that the compilation of all consequent C-c C-c's will be accumulated, which means they won't be displayed at all (as long as the event loop is running.) The reason behind this behaviour is that I do (defvar *swank-compilation-unit* nil) (defmacro with-swank-compilation-unit (...) ... `(let ((*swank-compilation-unit* (or *swank-compilation-unit* (make-swank-compilation-unit)))) ...)) which works perfectly reasonable for threads, but not for SERVE-EVENT, as that will interrupt, and execute new code within the dynamic contour of the interrupted code. A solution to this is to introduce per event bindings which are implemented differently depending on the communication-style used (for :spawn, thread-local bindings can be used; for :fd-handler, we'd need some mapping from some request-id to the value.) Opinions? -T. PS: If the form starting the application's event loop is started by using C-M-x rather than C-c C-c this problem doesn't occur, as C-M-x doesn't involve Swank-Compilation-Units. It could be argued that C-M-x is the right keybinding to evaluate the form in the first place. So there's the question if the abovely sketched solution is worthwhile at all. Of course, we may be bitten by this in future in some form which manifests itself in a much more obscure way than the bug described above. This is a kinda handwaving argument, but I wanted to raise the issue anyway.

2 2

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

20 Aug '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1449 slime/ChangeLog:1.1453 --- slime/ChangeLog:1.1449 Tue Aug 12 13:54:43 2008 +++ slime/ChangeLog Thu Aug 14 11:32:40 2008 @@ -1,3 +1,47 @@ +2008-08-14 Tobias C. Rittweiler <tcr(a)freebits.de> + + If another frame is already displaying a REPL, `C-c C-z' will now + select this window instead of splitting the current frame, and + displaying the REPL in the newly created window. + + * slime.el (slime-switch-to-output-buffer-search-all-frames): New + variable to customize this behaviour, as it may not be optimal for + people using multiple screens at once. + (slime-switch-to-output-buffer): Adapted accordingly. + +2008-08-14 Tobias C. Rittweiler <tcr(a)freebits.de> + + Xref buffers: `M-,' in an Xref buffer will now revert to an Emacs + state as of before the Xref command. + + * slime.el (slime-xref-mode-map): Add `slime-xref-retract' as `M-,' + (slime-xref-retract): New. Restores the emacs snapshot unconditionally. + (slime-xref-quit): Use it. + +2008-08-14 Tobias C. Rittweiler <tcr(a)freebits.de> + + Xref buffers: `q', and `SPC' will push onto the find-definition + stack such that M-, will work afterwards. + + * slime.el (defstruct slime-emacs-snapshot): Also save the point + explicitly. It is implicitly stored already in the + window-configuration, but inaccessible therein. + (slime-current-emacs-snapshot, slime-set-emacs-snapshot): Adapted. + (slime-push-definition-stack-from-snapshot): New. Reason for above + changes. + + (slime-with-popup-buffer): Make sure that the current + emacs-snapshot is taken, not only when the :emacs-snapshot + argument is NIL at expansion time, but also on runtime. + + (slime-with-xref-buffer): The name of the Xref buffer was created + at expansion time, but must be computed at runtime. Fix that. + (slime-xref-quit): Use `slime-push-definition-stack-from-snapshot' + (sime-xref-goto): Adapted to also push onto the stack. + + * slime.el (slime-compute-modeline-package): Cleaned up. + (slime-update-modeline-string): Ditto. + 2008-08-12 Helmut Eller <heller(a)common-lisp.net> Add a dump-image function to the loader.

4 10

[slime-devel] Unicode support for CMUCL
by Raymond Toy 19 Aug '08

19 Aug '08

Here is a small patch to enable support for Unicode for CMUCL. Seems to work. May need some more work on the *external-format-to-coding-system*, but iso-8859-1 and utf-8 appear to work ok, for the little bit of testing I've done. Ray --- swank-cmucl.lisp-orig 2008-06-01 18:06:07.000000000 -0400 +++ swank-cmucl.lisp 2008-06-01 18:01:44.000000000 -0400 @@ -99,10 +99,13 @@ (ext:close-socket fd))) (defimplementation accept-connection (socket &key - external-format buffering timeout) - (declare (ignore timeout external-format)) + external-format buffering timeout) + (declare (ignore timeout)) (let ((buffering (or buffering :full))) - (make-socket-io-stream (ext:accept-tcp-connection socket) buffering))) + (make-socket-io-stream (ext:accept-tcp-connection socket) + buffering + :external-format + (or external-format :iso-8859-1)))) ;;;;; Sockets @@ -117,10 +120,23 @@ (let ((hostent (ext:lookup-host-entry hostname))) (car (ext:host-entry-addr-list hostent)))) -(defun make-socket-io-stream (fd buffering) +(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) + (car (rassoc-if (lambda (x) (member coding-system x :test #'equal)) + *external-format-to-coding-system*))) + + +(defun make-socket-io-stream (fd buffering &key external-format) "Create a new input/output fd-stream for FD." (sys:make-fd-stream fd :input t :output t :element-type 'base-char - :buffering buffering)) + :buffering buffering + #+unicode :external-format + #+unicode external-format)) ;;;;; Signal-driven I/O

3 7

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

19 Aug '08

Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.120 slime/contrib/ChangeLog:1.121 --- slime/contrib/ChangeLog:1.120 Tue Aug 12 13:54:37 2008 +++ slime/contrib/ChangeLog Mon Aug 18 05:20:21 2008 @@ -1,3 +1,8 @@ +2008-08-18 Ariel Badichi <abadichi(a)bezeqint.net> + + * slime-fuzzy.el: Rename `add-local-hook' to `slime-add-local-hook'. + * slime-presentations.el: Ditto. + 2008-08-12 Helmut Eller <heller(a)common-lisp.net> * slime-clipboard.el (slime-clipboard-insert-ref): Set

1 0

[slime-devel] Missed `add-local-hook' renames
by Ariel Badichi 18 Aug '08

18 Aug '08

Hello, There are a couple of missing renames for `add-local-hook', which prevent SLIME from loading properly in Emacs if either `slime-fuzzy' or `slime-presentation' contribs are used. The following patch fixes that. Ariel commit feb5c8e7ba42ef14708ab2c1304e8d7cea8bb5cb Author: Ariel Badichi <abadichi(a)bezeqint.net> Date: Mon Aug 18 04:38:44 2008 +0300 More `add-local-hook' to `slime-add-local-hook' renames. diff --git a/contrib/slime-fuzzy.el b/contrib/slime-fuzzy.el index 42fc546..bbae454 100644 --- a/contrib/slime-fuzzy.el +++ b/contrib/slime-fuzzy.el @@ -359,7 +359,7 @@ done." (when (boundp 'window-configuration-change-hook) (add-hook 'window-configuration-change-hook 'slime-fuzzy-window-configuration-change)) - (add-local-hook 'kill-buffer-hook 'slime-fuzzy-abort) + (slime-add-local-hook 'kill-buffer-hook 'slime-fuzzy-abort) (setq buffer-quit-function 'slime-fuzzy-abort)) ; M-Esc Esc (when slime-fuzzy-completion-in-place ;; switch back to the original buffer diff --git a/contrib/slime-presentations.el b/contrib/slime-presentations.el index 3d298db..6da488b 100644 --- a/contrib/slime-presentations.el +++ b/contrib/slime-presentations.el @@ -858,8 +858,8 @@ even on Common Lisp implementations without weak hash tables." (lambda () ;; Respect the syntax text properties of presentation. (set (make-local-variable 'parse-sexp-lookup-properties) t) - (add-local-hook 'after-change-functions - 'slime-after-change-function))) + (slime-add-local-hook 'after-change-functions + 'slime-after-change-function))) (add-hook 'slime-event-hooks 'slime-dispatch-presentation-event) (setq slime-write-string-function 'slime-presentation-write) (add-hook 'slime-repl-return-hooks 'slime-presentation-on-return-pressed)

2 1