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

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

24 Feb '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.615 slime/ChangeLog:1.616 --- slime/ChangeLog:1.615 Wed Feb 23 14:13:18 2005 +++ slime/ChangeLog Thu Feb 24 19:18:10 2005 @@ -1,3 +1,39 @@ +2005-02-24 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-dispatch-event): Add :eval-no-wait and :eval + events. + (slime-eval-for-lisp): New function. + (sldb-buffers): Delete the variable. Use buffer-list instead. + + * swank.lisp: (eval-for-emacs): Use the new backend function + call-with-debugger-hook. + (eval-in-emacs): Cleaned up. Add support for synchronous RPCs. + (receive-eval-result): New function. + (dispatch-event, read-from-socket-io, send-to-socket-io): New + :eval event. Rename :%apply to :eval-no-wait. + (read-user-input-from-emacs, evaluate-in-emacs): Increment + *read-input-catch-tag* instead of re-binding it. Reduces the + danger of throwing to the wrong tag a bit. + + * swank-backend.lisp (call-with-debugger-hook): New function. + Useful if the backend needs special incantations for BREAK. + (toggle-trace-function): Add a default implementation for simple + symbols. + + * swank-lispworks.lisp (slime-env): New class. + (call-with-debugger-hook): Use env:with-environment to pop up our + debugger on a BREAK. + (toggle-trace-method, parse-fspec, tracedp, toggle-trace): + Implement method tracing. + + * swank-sbcl.lisp (call-with-debugger-hook): Bind + sb-ext:*invoke-debugger-hook* instead of setting it in + emacs-connected. + (emacs-connected): Deleted. + + * swank-loader.lisp (compile-files-if-needed-serially): Reduce + verbosity by setting the :print argument for compile-file to nil. + 2005-02-23 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-startup-animation, slime-repl-update-banner):

1 0

[slime-devel] SLIME with AllegroCL on Windows - dumb question
by Edi Weitz 24 Feb '05

24 Feb '05

Hi! Attention: Question shows again my complete Emacs ignorance. I've recently begun to use the combination mentioned in the subject. I use a setup as described by Bill Clementson which mainly looks like this: (global-set-key [(f6)] '(lambda () (interactive) (shell-command "c:/PROGRA~1/acl70/alisp.exe +B +cm -L ~/.slime.lisp&") (slime-connect "localhost" 4005))) This works fine most of the time but sometimes fails with Connecting to Swank on port 4005.. open-network-stream: make client process failed: connection refused, :name, SLIME Lisp, :buffer, nil, :host, localhost, :service, 4005 which obviously happens if AllegroCL is not quite ready to accept connections when SLIME tries to connect. I can fix this with adding something like sit-for before the call to slime-connect but either I wait too long which makes the call unnecessary slow or I'm still in a time frame where the error described above can happen. Question: Can I replace the call to sit-for with something that waits until AllegroCL is ready? Or is there a better solution to start AllegroCL from SLIME under Windows? Thanks, Edi.

5 10

[slime-devel] Using swank.. :)
by Bruno Loff 24 Feb '05

24 Feb '05

Hey :) I'm trying to make a plugin for the Eclipse (www.eclipse.org) platform to work with common lisp. I was wondering if it was possible for me to use Swank to interact with lisp, or if it's too tightly integrated to the way emacs works. If it isn't, is there any documentation on Swank? I'm not even sure if it's what I'm looking for: a layer that facilitates compilation, evaluation and debugging for a lisp-using process. Have fun, Bruno Loff

2 1

[slime-devel] Re: [slime-cvs] CVS update: slime/ChangeLog
by Denis Bueno 24 Feb '05

24 Feb '05

> diff -u slime/ChangeLog:1.613 slime/ChangeLog:1.614 > --- slime/ChangeLog:1.613 Mon Feb 21 00:08:37 2005 > +++ slime/ChangeLog Tue Feb 22 07:06:58 2005 > @@ -1,3 +1,12 @@ > +2005-02-22 Helmut Eller <heller(a)common-lisp.net> > + > + * slime.el (slime-complete-form): Emacs 20 compatibility fix. > + (slime-repl-update-banner): Remove animation stuff. > + (slime-startup-animation): Deleted. Why oh why was this deleted? This feature gave me warm and fuzzy feelings at the start of every lisp hacking session! Can it at least be optionally enabled? -- Denis Bueno

8 9

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

23 Feb '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.614 slime/ChangeLog:1.615 --- slime/ChangeLog:1.614 Tue Feb 22 07:06:58 2005 +++ slime/ChangeLog Wed Feb 23 14:13:18 2005 @@ -1,3 +1,13 @@ +2005-02-23 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-startup-animation, slime-repl-update-banner): + Put the animation back in to keep the kids quiet. + (slime-kill-without-query-p): Change default to nil. + (slime-eval-describe, slime-eval-region) + (slime-pprint-eval-last-expression): Fix typos in docstrings. + (slime-eval/compile-defun-dwim): Deleted. We never had a key + binding anyway. + 2005-02-22 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-complete-form): Emacs 20 compatibility fix.

1 0

[slime-devel] api for swank:create-swank-server
by Marco Baringer 23 Feb '05

23 Feb '05

create-swank-server's API is currently: (create-swank-server &optional port style announce-fn dont-close external-format) i'm not too keen on all those &optional arg (especially since i often like to set dont-close to T and leave pert, style and announce-fn as tehir defalut values). no i'd like to change the API to this: (create-swank-server &optional port &key style announce-fn dont-close external-format) ^^^^ as this would be an incompatable change i'd like to know who's using create-swank-server outside of slime and what they think about this change. -- -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

2 3

[slime-devel] AllegroCL compiler notes
by Edi Weitz 23 Feb '05

23 Feb '05

If I compile ASDF systems in AllegroCL using SLIME I frequently see compiler optimization notes about closures which are being stack-allocated. I don't see these notes if I compile these systems without SLIME. Is the compiler made chatty by SLIME on purpose or are some optimization settings from SWANK spilled? Either way, I'd rather not see these notes if the compilation went through without problems otherwise. Is there a way to turn this off? Thanks, Edi.

2 2

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

22 Feb '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.613 slime/ChangeLog:1.614 --- slime/ChangeLog:1.613 Mon Feb 21 00:08:37 2005 +++ slime/ChangeLog Tue Feb 22 07:06:58 2005 @@ -1,3 +1,12 @@ +2005-02-22 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-complete-form): Emacs 20 compatibility fix. + (slime-repl-update-banner): Remove animation stuff. + (slime-startup-animation): Deleted. + + * swank-lispworks.lisp (compute-applicable-methods-using-classes): + Implement it. + 2005-02-20 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> Supersede the command slime-insert-arglist with the new command

1 0

[slime-devel] [Patch] Follow-up patch for slime-complete-form
by Matthias Koeppe 22 Feb '05

22 Feb '05

Hi, I am sending below a little patch for the new slime-complete-form functionality. Cheers, Matthias 2005-02-22 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> * swank.lisp (print-decoded-arglist-as-template): If keyword is not a keyword symbol, quote it in the template. (extra-keywords): Return a secondary value (allow-other-keys). For make-instance, try to finalize the class if it is not finalized yet (fix for Allegro CL 6.2). If class is not finalizable, use direct slots instead of slots and indicate that the keywords are not complete. (enrich-decoded-arglist-with-extra-keywords): New function, use the secondary value of extra-keywords. (arglist-for-insertion, complete-form): Use it here. * swank-backend.lisp (:swank-mop package): Export finalize-inheritance. Index: swank-backend.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-backend.lisp,v retrieving revision 1.79 diff -u -p -r1.79 swank-backend.lisp --- swank-backend.lisp 20 Feb 2005 20:20:39 -0000 1.79 +++ swank-backend.lisp 22 Feb 2005 22:12:32 -0000 @@ -83,7 +83,8 @@ #:slot-definition-readers #:slot-definition-writers ;; generic function protocol - #:compute-applicable-methods-using-classes)) + #:compute-applicable-methods-using-classes + #:finalize-inheritance)) (in-package :swank-backend) Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.280 diff -u -p -r1.280 swank.lisp --- swank.lisp 20 Feb 2005 20:29:14 -0000 1.280 +++ swank.lisp 22 Feb 2005 22:12:34 -0000 @@ -1327,7 +1327,9 @@ whether &allow-other-keys appears somewh (format t "[~A]" arg)) (dolist (keyword (arglist.keyword-args decoded-arglist)) (space) - (format t "~W ~A" keyword keyword)) + (format t "~W ~A" + (if (keywordp keyword) keyword `',keyword) + keyword)) (when (and (arglist.rest decoded-arglist) (or (not (arglist.keyword-args decoded-arglist)) (arglist.allow-other-keys-p decoded-arglist))) @@ -1338,8 +1340,9 @@ whether &allow-other-keys appears somewh (pprint-newline :fill)) (defgeneric extra-keywords (operator &rest args) - (:documentation "Return a list of extra keywords of OPERATOR (a symbol) -when applied to the (unevaluated) ARGS.")) + (:documentation "Return a list of extra keywords of OPERATOR (a +symbol) when applied to the (unevaluated) ARGS. As a secondary value, +return whether other keys are allowed.")) (defmethod extra-keywords (operator &rest args) ;; default method @@ -1358,20 +1361,44 @@ when applied to the (unevaluated) ARGS." (eq (car class-name-form) 'quote)) (let* ((class-name (cadr class-name-form)) (class (find-class class-name nil))) + (unless (swank-mop:class-finalized-p class) + ;; Try to finalize the class, which can fail if + ;; superclasses are not defined yet + (handler-case (swank-mop:finalize-inheritance class) + (program-error (c) + (declare (ignore c))))) (when class ;; We have the case (make-instance 'CLASS ...) ;; with a known CLASS. - (let ((slot-init-keywords - (loop for slot in (swank-mop:class-slots class) - append (swank-mop:slot-definition-initargs slot))) - (initialize-instance-keywords - (applicable-methods-keywords #'initialize-instance - (list class)))) - (return-from extra-keywords - (append slot-init-keywords - initialize-instance-keywords)))))))) + (multiple-value-bind (slots allow-other-keys-p) + (if (swank-mop:class-finalized-p class) + (values (swank-mop:class-slots class) nil) + (values (swank-mop:class-direct-slots class) t)) + (let ((slot-init-keywords + (loop for slot in slots + append (swank-mop:slot-definition-initargs slot))) + (initialize-instance-keywords + (applicable-methods-keywords #'initialize-instance + (list class)))) + (return-from extra-keywords + (values (append slot-init-keywords + initialize-instance-keywords) + allow-other-keys-p))))))))) (call-next-method)) +(defun enrich-decoded-arglist-with-extra-keywords (decoded-arglist form) + (multiple-value-bind (extra-keywords extra-aok) + (apply #'extra-keywords form) + (with-str + ;; enrich the list of keywords with the extra keywords + (setf (arglist.keyword-args decoded-arglist) + (remove-duplicates + (append (arglist.keyword-args decoded-arglist) + extra-keywords))) + (setf (arglist.allow-other-keys-p decoded-arglist) + (or (arglist.allow-other-keys-p decoded-arglist) extra-aok))) + decoded-arglist) + (defslimefun arglist-for-insertion (name) (with-buffer-syntax () (let ((symbol (parse-symbol name))) @@ -1383,13 +1410,9 @@ when applied to the (unevaluated) ARGS." ((member :not-available) :not-available) (list - (let ((decoded-arglist (decode-arglist arglist)) - (extra-keywords (extra-keywords symbol))) - ;; enrich the list of keywords with the extra keywords - (setf (arglist.keyword-args decoded-arglist) - (remove-duplicates - (append (arglist.keyword-args decoded-arglist) - extra-keywords))) + (let ((decoded-arglist (decode-arglist arglist))) + (enrich-decoded-arglist-with-extra-keywords decoded-arglist + (list symbol)) (decoded-arglist-to-template-string decoded-arglist *buffer-package*)))))) (t @@ -1426,13 +1449,8 @@ by adding a template for the missing arg ((member :not-available) :not-available) (list - (let ((decoded-arglist (decode-arglist arglist)) - (extra-keywords (apply #'extra-keywords form))) - ;; enrich the list of keywords with the extra keywords - (setf (arglist.keyword-args decoded-arglist) - (remove-duplicates - (append (arglist.keyword-args decoded-arglist) - extra-keywords))) + (let ((decoded-arglist (decode-arglist arglist))) + (enrich-decoded-arglist-with-extra-keywords decoded-arglist form) ;; get rid of formal args already provided (remove-actual-args decoded-arglist argument-forms) (return-from complete-form -- Matthias Koeppe -- http://www.math.uni-magdeburg.de/~mkoeppe

1 0

[slime-devel] sbcl ffi, alien-definition and slime-compile-file
by Maurice 22 Feb '05

22 Feb '05

Hi, I use slime 1.0 with emacs 21.3.1 and sbcl 0.8.19.29. If I run the command slime-compile-file with the following code everything is OK: (defpackage :test-c-call (:use :cl :sb-alien :sb-c-call)) (in-package :test-c-call) (define-alien-routine my-func void) However, if I change the above my-func-definition to return a pointer for example: (define-alien-routine my-func (* t)) Then I get the this error: error while parsing arguments to DESTRUCTURING-BIND: invalid number of elements in () to satisfy lambda list ((SWANK-BACKEND::START . SWANK-BACKEND::END)): exactly 1 expected, but 0 found [Condition of type SB-KERNEL::ARG-COUNT-ERROR] This happens only when using the slime-compile-* functions. If I enter the alien-definition directly on the repl-prompt it gives me no error. Maybe you know how to fix that. Thank you.

2 2