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

[slime-devel] comma shortcut doesn't work always
by Edi Weitz 31 Jan '06

31 Jan '06

Another minor glitch that I encountered is that the comma shortcut in the REPL doesn't always work. I can consistently reproduce it (GNU Emacs 21.3.50 and also 21.3 release) like this: 1. Make sure point is at the beginning of a REPL input line. 2. Split Emacs frame into two windows, one of them being the REPL the other one containing something else. 3. Hide REPL window with C-x 0. 4. Now type M-x slime. 5. Type the comma. At this point I'm not asked for a shortcut command in the minibuffer but the comma is simply entered into the REPL instead. Anybody else seeing this? Cheers, Edi.

10 25

Re: [slime-devel] Re: CLISP SLIME implementation breaks in CVS
by Bill_Clementson＠peoplesoft.com 21 Jan '06

21 Jan '06

Luke Gorrie <luke(a)bluetail.com> writes: > Bill_Clementson(a)peoplesoft.com writes: > > > My previous SLIME installation was a CVS install from 4/18. I've just taken > > the latest CVS install and the CLISP SLIME implementation (under Windows) > > breaks. Here is the error: > > > > COERCE: #<MACRO #<COMPILED-CLOSURE SWANK::DEFSLIMEFUN>> cannot be coerced > > to type FUNCTION > > [Condition of type SIMPLE-TYPE-ERROR] > > I can reproduce this but I've no idea what is causing it. It /looks/ > like someone is trying to call defslimefun as a function rather than a > macro, but I don't see where it could happen -- the macro is declared > at the top of the only file that refers to it. > > I did fix a different but similar problem that I got under CLISP. It > seems like I had to swap the order of a couple of macros, one of which > expanded into into code that calls the other, but that surely can't be > the reason. > > > Backtrace: > > 0: EVAL frame for form (SWANK:CREATE-SWANK-SERVER 4007) > > Mine actually gives an empty backtrace (!). I fixed the Elisp-side to > handle that incase it helps someone more CLISP-savvy find the problem. Has anybody had any luck in finding the source of this problem? CLISP still breaks for me in the latest CVS. I have had a look at all of the DEFSLIMEFUN's that were modified since 4/18 (the previous CVS version that I had which was working ok with CLISP) and haven't found any obvious clues. Any suggestions on how I might debug this issue as it occurs at startup during the slime-connect processing in Emacs (after CLISP has started up successfully)? - Bill

5 6

[slime-devel] Comment indentation in newer Emacsen
by Edi Weitz 03 Jul '05

03 Jul '05

Dumb question number two for today: I've recently switched to a CVS build (circa end of January) of GNU Emacs on Windows. Now, if I have a function like this in a lisp mode buffer (defun foo () "This is a very very very very very very very very very very very very long comment line." (bar x)) and press M-q within the comment string the result looks like so: (defun foo () "This is a very very very very very very very very very very very very long comment line." (bar x)) However, in 21.3 the result looked like this (defun foo () "This is a very very very very very very very very very very very very long comment line." (bar x)) which is what I prefer. Is this a bug or can the behaviour be changed with some setting that I'm missing? Thanks, Edi.

3 3

[slime-devel] Problems with LWW FLI
by Edi Weitz 29 Mar '05

29 Mar '05

Hi! Has anyone else problems with SLIME when using Lispworks on Windows (XP) and its FLI? I've run into a (reproducable but complicated) situation where SLIME simply hung while there were no problems from the LW IDE or from the command line. I'm sitting at my Linux laptop now but I can try to create a simple test case - I just wanted to check if this is a known problem. Cheers, Edi.

4 11

[slime-devel] installing slime in fedora core 3?
by Jason Wang 15 Mar '05

15 Mar '05

hi, i'm very new to linux.. i have installed Fedora Core 3 on my computer, it's working fine. I want to install slime onto Fedora Core 3.... i can't seem to follow the installation instructions.. on the installation instructions: (slime-setup) when i typed this into emacs and compile and run it, it just returned nil.. anyone know what's happening? thanks alot :D -- www.programer.name - my own personal blog : ) The mind is its own place, and in itself can make a heav'n of hell, a hell of heav'n. What matter where, if I be still the same, and what I should be, all but less than he whom thunder hath made greater? Here at least we shall be free; th' Almighty hath not built here for his envy, will not drive us hence: Here we may reign secure, and in my choice to reign is worth ambition though in hell: Better to reign in hell, than serve in heav'n. --- John Milton, in his epic poem Paradise Lost

3 5

[slime-devel] Post 1.0 official release?
by Peter Seibel 02 Mar '05

02 Mar '05

Are there any plans for a 1.1 or 1.0.1 or whatever "official" release. (I think I've read all the SLIME messages that have come across the transom in recent months but I haven't been paying super close attention so may have missed an announcement or discussion.) I ask because after the 25th when I turn in my last page proof, I'm going to be spending a month getting together a Lisp in a Box distro that includes the code from my book. And I seem to recall that SLIME 1.0 doesn't work with the newer versions of SBCL (because of the Unicode support added to SBCL?). So from my purely selfish point of view, now would be an excellent time for an official upgrade of SLIME. If that's not going to happen I'll probably build a LIAB distro with some snapshot of CVS SLIME that seems to work well. Also, if there are specific things that need to happen before a 1.1 or 1.0.1 release of SLIME, let me know; maybe I can tackle some of them. -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

5 8

[slime-devel] Trying to get started with OpenMCL
by rif 01 Mar '05

01 Mar '05

I downloaded the latest OpenMCL distribution for OS x (openmcl-darwinppc-all-0.14.2-p1.tar.gz) and a fresh CVS slime. I tried to start slime with M-x slime from an emacs with a .emacs containing only: (setq inferior-lisp-program "/Applications/ccl/scripts/openmcl") (add-to-list 'load-path "/Users/rif/Software/slime") (require 'slime) (slime-setup) When I ran M-x slime, I got the following: (load "/Users/rif/Software/slime/swank-loader.lisp" :verbose t) (swank:start-server "/tmp/slime.10272" :external-format :iso-latin-1-unix) Welcome to OpenMCL Version (Beta: Darwin) 0.14.2-p1! ? ;Loading #P"/Users/rif/Software/slime/swank-loader.lisp"... ;Loading #P"/Users/rif/.slime/fasl/openmcl/swank-backend.dfsl"... ;Loading #P"/Users/rif/.slime/fasl/openmcl/nregex.dfsl"... ;Loading #P"/Users/rif/.slime/fasl/openmcl/metering.dfsl"... ;Compiling "/Users/rif/Software/slime/swank-openmcl.lisp"... ;Compiler warnings for "/Users/rif/Software/slime/swank-openmcl.lisp" : ; Unused lexical variable STREAM, in (MAKE-STREAM-INTERACTIVE (T)). ; Warning: Interface file #4P"ccl:darwin-headers;libc;functions.cdb" does not exist. ; While executing: CCL::CDB-OPEN Read error between positions 8480 and 8595 in /Users/rif/Software/slime/swank-openmcl.lisp. > Error in process listener(1): Foreign function not found: OS::|tmpnam| > While executing: CCL::LOAD-EXTERNAL-FUNCTION > Type :POP to abort. Type :? for other options. 1 > Any suggestions? Cheers, rif

3 4

[slime-devel] please make the new extended trace and the original trace coexist.
by Chisheng Huang 28 Feb '05

28 Feb '05

> I've been thinking that it might be better to bind the "extended" > trace command with a prefix arg so that the previous "non-extended" > behaviour becomes the default for C-c C-t. This allows all CLs that > implement the simpler form of trace to work without problems and only > when invoked with C-u C-c C-t will the trace command do something > different. > > Regards, > > António Leitão. I like this idea a lot. With the extended trace command, it is not convenient to trace all methods of a generic function if I do not have a (DEFGENERIC ...) defined. To do that, I have to either type (TRACE ...) into a REPL or do C-c C-t on all (defmethod ...). Or maybe I'm missing something? Please make the new extended trace command coexist with the original one. Thanks a lot. -cph

3 2

[slime-devel] Viper-mode and SLIME
by Vincent Foley 25 Feb '05

25 Feb '05

Hello everyone, I've searched Google without any luck, so I'll ask here: when I use SLIME with viper-mode, the minor-mode keybindings (such as C-c C-c, etc.) are not loaded. If I comment out the part about viper in my .emacs, the keybindings are loaded. Is it possible to have both viper and slime keybindings at the same time? Thank you, Vincent. -- Vincent Foley-Bourgon Blog: http://www.livejournal.com/~gnuvince [ 6 * 9 = 42 ] whileTrue: [ World run ]

2 1

[slime-devel] SLIME 1.0 Install Problem on Win2k/CLisp
by Tad Ashlock 25 Feb '05

25 Feb '05

I'm a long-time Emacs user, but I'm just starting to learn Common Lisp. SLIME looks great, but I'm having a problem during installation. I have the following system: Windows 2000 SP4 CLisp version 2.30 GNU Emacs 21.3.50.1 (i386-mingw-nt5.0.2195) I installed SLIME version 1.0 as per the manual and added the following to my .emacs file: ------------------------------------------------------ ;;; SLIME Configuration (setq inferior-lisp-program "c:/devtools/clisp/lisp.exe -M c:/devtools/clisp/lispinit.mem -B c:/devtools/clisp/") (add-to-list 'load-path "d:/pub/site-lisp/slime") (require 'slime) (slime-setup) ------------------------------------------------------ But when I 'M-x slime', I get the following in the *inferior-lisp* buffer: ====================================================== [1]> ;; Loading file D:\Pub\site-lisp\slime\swank-loader.lisp ... ;; Compiling D:\Pub\site-lisp\slime\swank-backend.lisp... Compiling file D:\Pub\site-lisp\slime\swank-backend.lisp ... WARNING in DEFINTERFACE-GEN-DEFAULT-IMPL in lines 43..64 : variable RECEIVED-ARGS is not used. Misspelled or missing IGNORE declaration? WARNING in (DEFINTERFACE EMACS-CONNECTED (STREAM) ...)-19-3-1-1 in lines 134..144 : variable STREAM is not used. Misspelled or missing IGNORE declaration? WARNING in (DEFINTERFACE MAKE-STREAM-INTERACTIVE (STREAM) ...)-37-3-1-1 in lines 268..274 : variable STREAM is not used. Misspelled or missing IGNORE declaration? WARNING in (DEFINTERFACE CONDITION-REFERENCES (CONDITION) ...)-55-3-1-1 in lines 413..420 : variable CONDITION is not used. Misspelled or missing IGNORE declaration? *** - DEFSTRUCT: invalid syntax for name and options: (:LOCATION (:TYPE LIST) :NAMED (:CONSTRUCTOR MAKE-LOCATION (BUFFER POSITION &OPTIONAL HINTS))) 1. Break SWANK-BACKEND[2]> ====================================================== And I get the following message on the message line over and over: "Polling "c:/Temp/slime.1252".. (Abort with `M-x slime-abort-connection'.)" I went back a few months in the slime-devel archives, but I didn't see anything describing this problem. Thank you, Tad Ashlock

3 2

[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

[slime-devel] Small improvement in symbol-completion
by Antonio Menezes Leitao 22 Feb '05

22 Feb '05

Hi, While I'm working at the REPL, I sometimes need to use symbols that are not present in the current package. In this case, the slime-complete-symbol* function cannot complete the symbol at point. Here I propose a small change in slime.el in order to ask the user whether he/she wants to try completions in different packages. < (if (null completion-set) < (progn (slime-minibuffer-respecting-message --- > (if (and (null completion-set) > (if (y-or-n-p (format "Can't find completion for \"%s\" in the current package. Search other packages?" prefix)) > (dolist (package (slime-eval `(swank:list-all-package-names t)) t) > (setq completion-result (slime-completions (format "%s::%s" package prefix)) > completion-set (first completion-result) > completed-prefix (second completion-result)) > (when completion-set > (return nil))) > t)) > (progn (slime-minibuffer-respecting-message I used it, mainly, to "automagically" insert the package qualifier on a given function call. It works but it could be improved. The problem is that it stops searching packages as soon as one of them returns some completions. I tried to adapt it to present the user with all possible completions in all packages but the format of the slime-completions returned values and the use of the completed-prefix variable (that assumes that there's only one package) makes this a bit harder. So, before I start making some more serious changes, I would like to know if anyone thinks this is sufficiently useful to deserve more time investment. Best regards, António Leitão. Ps: on the Explorer Lisp Machine, this was _very_ useful when we were debugging large systems. But the behaviour wasn't exactly like this: IIRC, it was implemented using restarts.

1 0

[slime-devel] LWW 4.3.7 + Slime cvs head => belly up
by Chisheng Huang 22 Feb '05

22 Feb '05

I CVS updated Slime at 2005-02-21 23:02 GMT, proceeded to load swank-loader.lisp into LWW 4.3.7, and got the following: CL-USER 1 > (load "e:/slime/swank-loader") ; Loading text file e:\slime\swank-loader.lisp ;; Compiling e:\slime\swank-backend.lisp... . . . ; (LISPWORKS:TOP-LEVEL-FORM 118) ; (METHOD SWANK-BACKEND:SEND (T T)) ; (LISPWORKS:TOP-LEVEL-FORM 119) ; (LISPWORKS:TOP-LEVEL-FORM 120) ; (LISPWORKS:TOP-LEVEL-FORM 121) ; Loading fasl file C:\.slime\fasl\lispworks-4.3.7\swank-lispworks.fsl Error: Symbol COMPUTE-APPLICABLE-METHODS-USING-CLASSES not found in package CLOS 1 (continue) Retry assertion. 2 Try loading C:\.slime\fasl\lispworks-4.3.7\swank-lispworks.fsl again. 3 Give up loading C:\.slime\fasl\lispworks-4.3.7\swank-lispworks.fsl. 4 Try loading another file instead of C:\.slime\fasl\lispworks-4.3.7\swank-lispworks.fsl. 5 Try loading e:/slime/swank-loader again. 6 Give up loading e:/slime/swank-loader. 7 Try loading another file instead of e:/slime/swank-loader. 8 (abort) Return to level 0. 9 Return to top loop level 0. Type :b for backtrace, :c <option number> to proceed, or :? for other options SWANK-BACKEND 2 : 1 > Any idea? Thanks. -cph

2 1

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

21 Feb '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.612 slime/ChangeLog:1.613 --- slime/ChangeLog:1.612 Sun Feb 20 21:29:56 2005 +++ slime/ChangeLog Mon Feb 21 00:08:37 2005 @@ -1421,7 +1421,207 @@ slime-background-message. This displays multi-line arglists. (sldb-mode-map): Bind 'C' to sldb-inspect-condition. -2004-08-14 Helmut Eller <e +2004-08-14 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el (slime-find-buffer-package): Use "%s", not "%S", to + avoid ugly escape characters, if the package name contains dots. + +2004-08-13 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (sldb-eval-in-frame): Print result to the REPL when a + prefix argument is given. + Added pull-down menus for SLDB and the REPL. + + * swank-source-path-parser.lisp: Removed caching of readtables and + the source-map hashtable. Fresh creation is ultra-cheap (<1ms). + The caching didn't handle modifications to readtables and + generally made me feel uneasy while tracking down an obscure bug + in a reader macro. + The cached source-map hashtable also wasn't thread-safe (ho hum). + +2004-08-13 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el (slime-merge-notes, slime-tree-for-note): Use the short + note message for annotation in the source buffer and the long + message in the tree widget. Used to be the other way around. + (sldb-insert-frames): Set the `start-open' property for XEmacs. + Without `start-open', the `point-entered' property is inherited + when we insert something before the "--more--" marker. Reported + by Sundar Narasimhan. + + * swank.lisp (variable-desc-for-echo-area): Bind some printer + variables to limit the length of the output. + +2004-08-05 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (slime-setup): Added typeout-frame keyword argument. + (slime-thread-attach): Fixed misnamed function call. + +2004-08-04 Luke Gorrie <luke(a)bluetail.com> + + * swank-allegro.lisp (find-fspec-location): Fixed to work for more + types of definition than just functions. So M-. now works for e.g. + classes in Allegro. From Matthew Danish. + (find-fspec-location): Include the type of the definition in the + designator sent to Emacs. From Matthew Danish. + +2004-08-04 Martin Simmons <martin(a)xanalys.com> + + * swank-lispworks.lisp (frame-actual-args): Correct syntax for + handler-case. + +2004-08-04 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el: (slime-mode-map, slime-repl-mode-map) + (slime-repl-read-mode-map): Remove the binding for C-c C-g. C-c + C-b is now the default interrupt key. + (slime-list-repl-short-cuts): Don't trash the shortcut-table: copy + it before sorting. (Thanks to Mark Simpson.) + +2004-08-02 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (slime-connect): Shorten the welcome message by leaving + out the port number (which is displayed in the REPL anyway). This + avoids line-wrapping some messages of encouragement. + + * swank.lisp (with-buffer-syntax): Don't bind *readtable* to + *buffer-readtable* if they are already EQ. When we shadow this + binding the user can't assign *readtable* from the REPL so it's + best avoided when possible. + + * swank-allegro.lisp: Removed fwrapper-based code for inheriting + "swankiness" to newly spawned threads. This was fighting the + system and not the right thing. + + * slime.el (slime-choose-overlay-region): Tweaked the + multiline-annotation-avoidance code to work with forms not + starting with an open-paren, e.g. `(..) or #'(..). + (slime-update-modeline-package): New configurable. Non-nil (the + default) means update the Lisp package in the modeline using an + idle timer. + (slime-repl-send-input): Make the `slime-repl-old-input' property + cover the whole input (including newline) so that pressing RET on + the end of an input line works. + Use a unique integer as the value of this property to distinguish + adjacent inputs. + (slime-current-package): Deal with narrowing. + +2004-08-01 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * swank-allegro.lisp (swank-compile-string): Use a temporary file + and set excl::*source-pathname* manually. This way we can find + the source buffer of functions compiled with C-c C-c. + (call-with-temp-file, compile-from-temp-file): New functions. + (list-callers, function-callers, in-constants-p) + (map-function-constants): Implements list callers by groveling + through the constants pools of named functions. + + * swank-lispworks.lisp: Minor refactoring. + +2004-07-30 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el (slime-connection): Say "No default connection + selected" if there are open connections but no default connection. + (slime-tree-indent-item): Point wasn't updated correctly if the + last line was empty. Use insert-before-markers instead of insert + to do it properly. + (slime-draw-connection-list): Don't break if there is no default + connection. + + * swank-cmucl.lisp (call-with-debugging-environment): Only handle + DI::UNHANDLED-CONDITION not all DI:DEBUG-CONDITIONs. + + * swank-backend.lisp (sldb-condition): Show the original condition + in the message. + +2004-07-28 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el (slime-eval-feature-conditional): Treat uppercase + operators NOT, AND, OR correctly. + (sldb-find-buffer): Remove killed buffers. + (sldb-quit): Raise an error if the RPC returns. + (slime-expected-failures): Delete unused function. + (complete-symbol): Test completion of + swank::compile-file. LispWorks has extra completions for + cl::compile-file. + (arglist): Test arglist of method cl:class-name. Add enough + regexpery to pass the test in most implementations. + + * swank-sbcl.lisp (list-callers, list-callees): Implemented. + +2004-07-26 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (slime-first-change-hook): Add `save-match-data' to + avoid breaking e.g. query-replace. Also added `save-excursion' + just to be safe. + + * README: s/setup-slime/slime-setup/ in the .emacs snippet. + +2004-07-23 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (slime-set-state): Show the message in the modeline in + the case where we aren't connected. Otherwise the "not connected" + status is ignored. + (slime-net-sentinel): Close the connection before changing the + status message. The old behaviour of this combined with the old + behaviour of `slime-set-state' could generally cause spurious + errors after a connection was closed. + +2004-07-22 Luke Gorrie <luke(a)bluetail.com> + + * swank.lisp (carefully-find-package): Return *BUFFER-PACKAGE* if + no other package can be found. This is reverting a previous change + that broke completion in buffers with no known package. + + * slime.el (slime-maybe-start-lisp): Check that *inferior-lisp* + exists /and/ has a running process. Fixes a startup problem if + your inferior-lisp has died and you want to restart SLIME. + +2004-07-21 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (slime-sync-package-and-default-directory): Sync + `default-directory' in the REPL buffer too. + (slime-set-state): Convenience function for setting a connection's + state-name and updating the modeline if appropriate. This function + is called in the right places. + (slime-to-lisp-filename): Use `expand-file-name'. + +2004-07-20 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (slime-repl-update-banner): Restore old behaviour of + using an asynchronous evaluation to setup the REPL. This works + around a problem I'd reintroduced where the first REPL command + uses the wrong keymap. + +2004-07-20 Andreas Fuchs <asf(a)boinkor.net> + + * swank-sbcl.lisp (call-with-compilation-hooks): Trap and report + errors that cause compilation to fail, e.g. read errors. + +2004-07-19 Luke Gorrie <luke(a)bluetail.com> + + * HACKING: Updated. Some notes about Emacs features. + + * slime.el: More major refactoring. + Restructured and documented the networking and protocol code. + (slime-rex-continuations): Now connection-local. + +2004-07-18 Luke Gorrie <luke(a)bluetail.com> + + * slime.el: Major refactoring. + Mostly resectioning and reordering definitions to try and improve + readability. + (slime-get-temp-buffer-create): New utility function to popup a + temporary buffer that automatically has a binding on `q' to + intelligently restore window configuration. Handy, but currently + not applicable to all of our temporary buffers. + (slime-with-chosen-connection): Removed this macro. Consequently + the compilation commands no longer prompt for which connection to + use when given a prefix argument. `slime-switch-to-output-buffer' + still works like that, but for other cases I think the + connection-list buffer is sufficient. + (slime-eval-async): New arglist: (form &optional cont pkg). If the + continuation is unspecified then the evaluation result is ignored, and if the package is unspecified then (slime-buffer-package) is used. (slime-eval): Package arg now defaults to (slime-buffer-package). @@ -3185,7 +3385,109 @@ (describe-symbol-for-emacs, describe-definition): Distinguish between ordinary and generic functions. (call-with-debugging-environment): Unwind a few frames. Looks - bette + better and avoids the problems with the real topframe. + (interesting-frame-p): Use Lispworks dbg:*print-xxx* variables to + decide which frames are interesting. + (frame-actual-args): New function. + (print-frame): Use it. + + * swank.lisp (open-streams, make-output-function): Capture the + connection not only the socket. This way the streams can be used + from unrelated threads. Reported by Alain Picard. + (create-connection): Factorized. Initialize the streams after the + connection is created. + (initialize-streams-for-connection, spawn-threads-for-connection): + New functions. + (with-connection): Fix quoting bug and move upwards before first + use. + (guess-package-from-string): Add kludge for SBCL !-package names. + (apropos-list-for-emacs): Lispworks apparently returns duplicates; + remove them. + (inspect-object): Princ the label to allow strings and symbols. + (send-output-to-emacs): Deleted. + (defslimefun-unimplemented): Deleted. Was unused. + + * slime.el (slime-easy-menu): Add some more commands. + (slime-changelog-date): New variable. Initialized with the value + returned by the function of the same name. This detects + incompatible versions if Emacs has not been restarted after an + upgrade. + (slime-check-protocol-version, slime-init-output-buffer): Use it. + (slime-events-buffer, slime-log-event): Use fundamental mode + instead of lisp-mode to avoid excessive font-locking for messages + with lots of strings. + +2004-03-22 Luke Gorrie <luke(a)bluetail.com> + + * doc/slime.texi: New user manual. + + * swank.lisp (*communication-style*): New name for + *swank-in-background*. + Exported configuration variables: *communication-style*, + *log-events*, *use-dedicated-output-stream*. + +2004-03-20 Julian Stecklina <der_julian(a)web.de> + + * swank-sbcl.lisp (+o_async+, +f_setown+, +f_setfl+): Add correct + constants for FreeBSD. + +2004-03-19 Alan Shutko <ats(a)acm.org> + + * swank.lisp, swank-loader.lisp: Take into account + `pathname-device' when deriving paths. A fix for Windows. + +2004-03-19 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (slime-connected-hook): New hook called each time SLIME + successfully connects to Lisp. This is handy for calling + `slime-ensure-typeout-frame', if you want to use that feature. + (sldb-print-condition): New command to print the SLDB condition + description into the REPL, for reference after SLDB exits. Can be + called from `sldb-hook' if you want the condition to always be + printed. Bound to 'P' in SLDB. + +2004-03-18 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * swank.lisp (format-values-for-echo-area): Bind *package* to + *buffer-package*. + (load-system-for-emacs): Renamed from swank-load-system. + (carefully-find-package): Be friendly to case inverting + readtables. + (inspect-current-condition): New function. + + * swank-backend.lisp, swank-cmucl.lisp (set-default-directory): + New backend function. + + * swank-allegro.lisp, swank-clisp.lisp, swank-lispworks.lisp, + swank-sbcl.lisp (swank-compile-string): Be friendly to + case-inverting readtables. + + * slime.el (sldb-inspect-condition): Use + swank:inspect-current-condition. + (slime-inspector-label-face): Make it bold by default. + (slime-check-protocol-version, slime-process-available-input): + Wait 2 secs after displaying the error message. + (sldb-list-catch-tags, sldb-show-frame-details): Display catch + tags as symbols not as strings. + +2004-03-16 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el (slime-dispatch-event, slime-rex): Pass a form instead + of a string with :emacs-rex. + (slime-connection-name): New connection variable. Use it in + various places instead of slime-lisp-implementation-type-name. + + * swank.lisp: Better symbol completion for case-inverting + readtables. (Thanks Thomas F. Burdick for suggestions.) + (output-case-converter): New function. + (find-matching-symbols): Case convert the symbol-name before + comparing. + (compound-prefix-match, prefix-match-p): Use char= instead of + char-equal. + (case-convert-input): Renamed from case-convert. + (eval-for-emacs): Renamed from eval-string. Take a form instead + of a string. + (dispatch-event, read-from-socket-io): Update callers. (eval-region, interactive-eval): Use fresh-line to reset the column. 2004-03-13 Helmut Eller <e9626484(a)stud3.tuwien.ac.at>

1 0

[slime-devel] [Patch] Improve slime-insert-arglist for generic functions
by Matthias Koeppe 21 Feb '05

21 Feb '05

Hi, I am sending below a patch that extends the functionality of slime-insert-arglist for generic functions, especially make-instance. Cheers, Matthias 2005-02-20 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> Supersede the command slime-insert-arglist with the new command slime-complete-form and bind it to C-c C-s. The command completes an incomplete form with a template for the missing arguments. There is special code for discovering extra keywords of generic functions and for handling make-instance. Examples: (subseq "abc" <C-c C-s> --inserts--> start [end]) (find 17 <C-c C-s> --inserts--> sequence :from-end from-end :test test :test-not test-not :start start :end end :key key) (find 17 '(17 18 19) :test #'= <C-c C-s> --inserts--> :from-end from-end :test-not test-not :start start :end end :key key) (defclass foo () ((bar :initarg :bar))) (defmethod initialize-instance :after ((object foo) &key blub)) (make-instance 'foo <C-c C-s> --inserts--> :bar bar :blub blub initargs...) * swank.lisp (arglist): New struct for storing decoded arglists. (decode-arglist): New function. (arglist-keywords, methods-keywords, generic-function-keywords, applicable-methods-keywords): New functions. (decoded-arglist-to-template-string, print-decoded-arglist-as-template): New functions. (arglist-to-template-string): Rewrite using above functions. (remove-actual-args): New function. (complete-form): New slimefun. * swank.lisp (extra-keywords): New generic function. * swank-backend.lisp (:swank-mop package): Export compute-applicable-methods-using-classes. * swank.lisp (arglist-for-insertion): Use extra-keywords to enrich the list of keywords. * swank.lisp (valid-operator-symbol-p): New function. (valid-operator-name-p): Use valid-operator-symbol-p. * slime.el (slime-complete-form): New command. (slime-keys): Bind C-c C-s to slime-complete-form rather than slime-insert-arglist. Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.457 diff -u -p -r1.457 slime.el --- slime.el 18 Feb 2005 16:01:53 -0000 1.457 +++ slime.el 20 Feb 2005 18:45:39 -0000 @@ -566,7 +566,7 @@ A prefix argument disables this behaviou ("\M-g" slime-quit :prefixed t :inferior t :sldb t) ;; Documentation (" " slime-space :inferior t) - ("\C-s" slime-insert-arglist :prefixed t :inferior t) + ("\C-s" slime-complete-form :prefixed t :inferior t) ("\C-f" slime-describe-function :prefixed t :inferior t :sldb t) ("\M-d" slime-disassemble-symbol :prefixed t :inferior t :sldb t) ("\C-t" slime-toggle-trace-fdefinition :prefixed t :sldb t) @@ -4266,6 +4266,23 @@ currently looking at." (t (save-excursion (insert arglist)))))) + +(defun slime-complete-form () + "Complete the form at point. This is a superset of the +functionality of `slime-insert-arglist'." + (interactive) + ;; Find the (possibly incomplete) form around point. + (let* ((start (save-excursion (backward-up-list) (point))) + (end (point)) ; or try to find end (tricky)? + (form-string + (concat (buffer-substring-no-properties start end) ")"))) + (let ((result (slime-eval `(swank:complete-form ,form-string)))) + (if (eq result :not-available) + (error "Arglist not available") + (progn + (just-one-space) + (save-excursion + (insert result))))))) (defun slime-get-arglist (symbol-name) "Return the argument list for SYMBOL-NAME." Index: swank-backend.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-backend.lisp,v retrieving revision 1.78 diff -u -p -r1.78 swank-backend.lisp --- swank-backend.lisp 18 Feb 2005 16:03:48 -0000 1.78 +++ swank-backend.lisp 20 Feb 2005 18:45:39 -0000 @@ -81,7 +81,9 @@ #:slot-definition-name #:slot-definition-type #:slot-definition-readers - #:slot-definition-writers)) + #:slot-definition-writers + ;; generic function protocol + #:compute-applicable-methods-using-classes)) (in-package :swank-backend) Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.279 diff -u -p -r1.279 swank.lisp --- swank.lisp 18 Feb 2005 16:04:28 -0000 1.279 +++ swank.lisp 20 Feb 2005 18:45:41 -0000 @@ -1095,12 +1095,16 @@ Return the package or nil." default) default))) +(defun valid-operator-symbol-p (symbol) + "Test if SYMBOL names a function, macro, or special-operator." + (or (fboundp symbol) + (macro-function symbol) + (special-operator-p symbol))) + (defun valid-operator-name-p (string) "Test if STRING names a function, macro, or special-operator." (let ((symbol (parse-symbol string))) - (or (fboundp symbol) - (macro-function symbol) - (special-operator-p symbol)))) + (valid-operator-symbol-p symbol))) (defslimefun arglist-for-echo-area (names) "Return the arglist for the first function, macro, or special-op in NAMES." @@ -1221,51 +1225,224 @@ Return two values: argument name, defaul (assert (values-equal? (decode-optional-arg 'x) ('x nil))) (assert (values-equal? (decode-optional-arg '(x t)) ('x t)))) +(defstruct (arglist (:conc-name arglist.)) + required-args ; list of the required arguments + optional-args ; list of the optional arguments + keyword-args ; list of the keywords + rest ; name of the &rest or &body argument (if any) + body-p ; whether the rest argument is a &body + allow-other-keys-p) ; whether &allow-other-keys appeared + +(defun decode-arglist (arglist) + (let ((mode nil) + (result (make-arglist))) + (dolist (arg arglist) + (typecase arg + ((member &key &optional &rest &body &whole &aux) + (setq mode arg)) + ((member &allow-other-keys) + (setf (arglist.allow-other-keys-p result) t)) + (t + (case mode + (&key + (push (decode-keyword-arg arg) + (arglist.keyword-args result))) + (&optional + (push (decode-optional-arg arg) + (arglist.optional-args result))) + (&body + (setf (arglist.body-p result) t + (arglist.rest result) arg)) + (&rest + (setf (arglist.rest result) arg)) + ((nil) + (push arg (arglist.required-args result))))))) + (setf (arglist.required-args result) + (nreverse (arglist.required-args result))) + (setf (arglist.optional-args result) + (nreverse (arglist.optional-args result))) + (setf (arglist.keyword-args result) + (nreverse (arglist.keyword-args result))) + result)) + +(defun arglist-keywords (arglist) + "Return the list of keywords in ARGLIST. +As a secondary value, return whether &allow-other-keys appears." + (let ((decoded-arglist (decode-arglist arglist))) + (values (arglist.keyword-args decoded-arglist) + (arglist.allow-other-keys-p decoded-arglist)))) + +(defun methods-keywords (methods) + "Collect all keywords in the arglists of METHODS. +As a secondary value, return whether &allow-other-keys appears somewhere." + (let ((keywords '()) + (allow-other-keys nil)) + (dolist (method methods) + (multiple-value-bind (kw aok) + (arglist-keywords + (swank-mop:method-lambda-list method)) + (setq keywords (remove-duplicates (append keywords kw)) + allow-other-keys (or allow-other-keys aok)))) + (values keywords allow-other-keys))) + +(defun generic-function-keywords (generic-function) + "Collect all keywords in the methods of GENERIC-FUNCTION. +As a secondary value, return whether &allow-other-keys appears somewhere." + (methods-keywords + (swank-mop:generic-function-methods generic-function))) + +(defun applicable-methods-keywords (generic-function classes) + "Collect all keywords in the methods of GENERIC-FUNCTION that are +applicable for argument of CLASSES. As a secondary value, return +whether &allow-other-keys appears somewhere." + (methods-keywords + (swank-mop:compute-applicable-methods-using-classes generic-function classes))) + (defun arglist-to-template-string (arglist package) "Print the list ARGLIST for insertion as a template for a function call." - (setq arglist (clean-arglist arglist)) - (etypecase arglist - (null "()") - (cons - (with-output-to-string (*standard-output*) - (with-standard-io-syntax - (let ((*package* package) (*print-case* :downcase) - (*print-pretty* t) (*print-circle* nil) (*print-readably* nil) - (*print-level* 10) (*print-length* 20)) - (pprint-logical-block (nil nil :prefix "(" :suffix ")") - (arglist-to-template-string-aux arglist)))))))) + (decoded-arglist-to-template-string + (decode-arglist arglist) package)) -(defun arglist-to-template-string-aux (arglist) - (let ((mode nil)) - (loop - (let ((arg (pop arglist))) - (case arg - ((&key &optional &rest &body) - (setq mode arg)) - (t - (case mode - (&key (multiple-value-bind (key sym) (decode-keyword-arg arg) - (format t "~W ~A" key sym))) - (&optional (format t "[~A]" (decode-optional-arg arg))) - (&body (format t "~:@_~A..." arg)) - (&rest (format t "~A..." arg)) - (otherwise (princ arg))) - (unless (null arglist) - (write-char #\space))))) - (when (null arglist) (return)) - (pprint-newline :fill)))) +(defun decoded-arglist-to-template-string (decoded-arglist package &key (prefix "(") (suffix ")")) + (with-output-to-string (*standard-output*) + (with-standard-io-syntax + (let ((*package* package) (*print-case* :downcase) + (*print-pretty* t) (*print-circle* nil) (*print-readably* nil) + (*print-level* 10) (*print-length* 20)) + (pprint-logical-block (nil nil :prefix prefix :suffix suffix) + (print-decoded-arglist-as-template decoded-arglist)))))) + +(defun print-decoded-arglist-as-template (decoded-arglist) + (let ((first-p t)) + (flet ((space () + (unless first-p + (write-char #\space) + (pprint-newline :fill)) + (setq first-p nil))) + (dolist (arg (arglist.required-args decoded-arglist)) + (space) + (princ arg)) + (dolist (arg (arglist.optional-args decoded-arglist)) + (space) + (format t "[~A]" arg)) + (dolist (keyword (arglist.keyword-args decoded-arglist)) + (space) + (format t "~W ~A" keyword keyword)) + (when (and (arglist.rest decoded-arglist) + (or (not (arglist.keyword-args decoded-arglist)) + (arglist.allow-other-keys-p decoded-arglist))) + (if (arglist.body-p decoded-arglist) + (pprint-newline :mandatory) + (space)) + (format t "~A..." (arglist.rest decoded-arglist))))) + (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.")) + +(defmethod extra-keywords (operator &rest args) + ;; default method + (declare (ignore args)) + (let ((symbol-function (symbol-function operator))) + (if (typep symbol-function 'generic-function) + (generic-function-keywords symbol-function) + nil))) + +(defmethod extra-keywords ((operator (eql 'make-instance)) + &rest args) + (unless (null args) + (let ((class-name-form (car args))) + (when (and (listp class-name-form) + (= (length class-name-form) 2) + (eq (car class-name-form) 'quote)) + (let* ((class-name (cadr class-name-form)) + (class (find-class class-name nil))) + (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)))))))) + (call-next-method)) (defslimefun arglist-for-insertion (name) (with-buffer-syntax () - (cond ((valid-operator-name-p name) - (let ((arglist (arglist (parse-symbol name)))) - (etypecase arglist - ((member :not-available) + (let ((symbol (parse-symbol name))) + (cond + ((and symbol + (valid-operator-name-p name)) + (let ((arglist (arglist symbol))) + (etypecase arglist + ((member :not-available) :not-available) - (list - (arglist-to-template-string arglist *buffer-package*))))) - (t - :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))) + (decoded-arglist-to-template-string decoded-arglist + *buffer-package*)))))) + (t + :not-available))))) + +(defun remove-actual-args (decoded-arglist actual-arglist) + "Remove from DECODED-ARGLIST the arguments that have already been +provided in ACTUAL-ARGLIST." + (loop while (and actual-arglist + (arglist.required-args decoded-arglist)) + do (progn (pop actual-arglist) + (pop (arglist.required-args decoded-arglist)))) + (loop while (and actual-arglist + (arglist.optional-args decoded-arglist)) + do (progn (pop actual-arglist) + (pop (arglist.optional-args decoded-arglist)))) + (loop for keyword in actual-arglist by #'cddr + do (setf (arglist.keyword-args decoded-arglist) + (delete keyword (arglist.keyword-args decoded-arglist))))) + +(defslimefun complete-form (form-string) + "Read FORM-STRING in the current buffer package, then complete it +by adding a template for the missing arguments." + (with-buffer-syntax () + (handler-case + (let ((form (read-from-string form-string))) + (when (consp form) + (let ((operator-form (first form)) + (argument-forms (rest form))) + (when (and (symbolp operator-form) + (valid-operator-symbol-p operator-form)) + (let ((arglist (arglist operator-form))) + (etypecase arglist + ((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))) + ;; get rid of formal args already provided + (remove-actual-args decoded-arglist argument-forms) + (return-from complete-form + (decoded-arglist-to-template-string decoded-arglist + *buffer-package* + :prefix ""))))))))) + :not-available) + (reader-error (c) + (declare (ignore c)) + :not-available)))) ;;;; Evaluation -- Matthias Koeppe -- http://www.math.uni-magdeburg.de/~mkoeppe

3 3

[slime-devel] Slime packaging in Debian
by Robert Marlow 21 Feb '05

21 Feb '05

I just packaged up SLIME into .debs. I wanted to ask for opinions on how I've packaged them. I've packaged the slime *.el files and the swank *.lisp files into separate packages named slime-el and cl-swank respectively. My rationale is that some people such as myself may wish to install swank and slime on separate machines and use them over TCP. However separating them may make SLIME slightly more difficult to install for beginners. What do people here think? Also, in the process of making the source friendly with debian's common-lisp-controller I had to make some changes. I edited swank.asd and put all the file components from swank-loader.lisp into it. swank-loader doesn't get used at all this way. The only other change I had to make to get this to work was using the system definition utility to start swank in slime.el instead of swank-loader. I haven't catered for ~/.swank yet but I'm sure it can easily go elsewhere. I was wondering if my omission of swank-loader is likely to cause any complications and was also wondering what the rationale for including it was when system maintenance can be performed just by using something like ASDF or some other ubiquitous system definition utility. -- Robert Marlow <bobstopper(a)bobturf.org>

4 9

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

slime-devel February 2005