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

[slime-devel] suggestion for ~/.slime/fasl/*
by Pascal J.Bourguignon 27 Oct '04

27 Oct '04

Some lisp implementation can be run on different architectures. If users keep the same home on different computers this will lead to collision in ~/.slime/fasl/* directories. To generate the directory name for fasl files, I use the following function, adding the machine type: (defun first-word (text) (let ((pos (position (character " ") text))) (if pos (subseq text 0 pos) text))) (defun implementation-id () (format nil "~A-~A-~A" (first-word (lisp-implementation-type)) (first-word (lisp-implementation-version)) (first-word (machine-type))));;implementation-id -- __Pascal Bourguignon__ http://www.informatimago.com/ Voting Democrat or Republican is like choosing a cabin in the Titanic.

5 11

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 27 Oct '04

27 Oct '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.558 slime/ChangeLog:1.559 --- slime/ChangeLog:1.558 Tue Oct 26 02:45:35 2004 +++ slime/ChangeLog Wed Oct 27 12:59:06 2004 @@ -1,3 +1,8 @@ +2004-10-27 Helmut Eller <heller(a)common-lisp.net> + + * swank-sbcl.lisp (signal-compiler-condition): Actually delete one + of the reader-conditionalized forms. + 2004-10-26 Helmut Eller <heller(a)common-lisp.net> * cl-indent.el: Add indentation specs for some missing CL symbols.

1 0

[slime-devel] Sayoonara command doesn't close repl buffer
by Bill_Clementson＠peoplesoft.com 27 Oct '04

27 Oct '04

I just upgraded from a late-September SLIME (yes, I know that's pretty slack :) ) to CVS and noticed something different. The Sayoonara REPL command (when you type ",s<enter>" in the repl buffer) closes the CL implementation but not the slime repl buffer. I did notice that the repl buffer now no longer has a numeric sufffix - instead it's If it's suffixed with the CL implementatin name. Since I haven't been following the mailing list very closely lately, I'm not sure whether this behaviour is intentional or not. If it is not intentional, the following patch should fix the problem: *** c:/DOCUME~1/BC1886~1/LOCALS~1/Temp/slime-orig.el Tue Oct 26 19:02:52 2004 --- c:/DOCUME~1/BC1886~1/LOCALS~1/Temp/slime.el Tue Oct 26 19:02:52 2004 *************** *** 3108,3113 **** --- 3108,3114 ---- (when (or (string= (buffer-name buf) slime-event-buffer-name) (string-match "^\\*inferior-lisp*" (buffer-name buf)) (string-match "^\\*slime-repl\\[[0-9]+\\]\\*$" (buffer-name buf)) + (string-match (concat "^\\"(format "*slime-repl %s*" (slime-connection-name))) (buffer-name buf)) (string-match "^\\*sldb .*\\*$" (buffer-name buf))) (kill-buffer buf)))) -- Bill Clementson

1 0

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 26 Oct '04

26 Oct '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.556 slime/ChangeLog:1.558 --- slime/ChangeLog:1.556 Mon Oct 25 18:20:43 2004 +++ slime/ChangeLog Tue Oct 26 02:45:35 2004 @@ -1,3 +1,35 @@ +2004-10-26 Helmut Eller <heller(a)common-lisp.net> + + * cl-indent.el: Add indentation specs for some missing CL symbols. + (lisp-prefix-match-indentation): Change default to + nil to avoid confusion for people who don't care about the issue. + + * swank-sbcl.lisp (signal-compiler-condition): Remove reader + conditionals as the current code doesn't work in any SBCL before + 0.8.13 anyway. + + * swank-source-path-parser.lisp: Remove workarounds for SBCL bugs. + The bugs are fixed in the versions we support. + + * swank-cmucl.lisp (read-error-location) + (signal-compiler-condition): Handle read-errors. + (swank-compile-file): Don't load the fasl file if there was an + error. + + * swank.lisp (define-printer-variables): Handle doc strings + properly. + (*sldb-pprint-dispatch*): Initialize it with the default dispatch + table. + + * slime.el (slime-init-command): New function to send the command + to load swank. Having a separate function for the task should + make it easier to start a Lips with a preloaded swank. + (slime-maybe-start-lisp): Use it. + (slime-maybe-start-multiprocessing): Deleted. + (slime-repl-buffer): Include the name of the implementation. + (slime-set-default-directory) + (slime-sync-package-and-default-directory): Translate filenames. + 2004-10-25 Marco Baringer <mb(a)bese.it> * swank.lisp (inspect-for-emacs array): Properly deal with arrays

1 0

[slime-devel] slime-inspect woes (openmcl)
by R. Mattes 26 Oct '04

26 Oct '04

When i try to run slime-inspect (find-class 'araneida:request) slime drops me into the debugger with the following message: destructure-case failed: ("This is instantiated when a client makes a request to the http server") [Condition of type SIMPLE-ERROR] The backtrace is here: Backtrace: 0: (SWANK::INSPECTOR-CONTENT-FOR-EMACS '("Name: " (:VALUE REQUEST) (:NEWLINE) "Super classes: " (:VALUE #<STANDARD-CLASS STANDARD-OBJECT>) (:NEWLINE) "Direct Slots: " (:VALUE #<STANDARD-DIRECT-SLOT-DEFINITION for instance slot URL #x35449AC6> "URL") ", " (:VALUE #<STANDARD-DIRECT-SLOT-DEFINITION for instance slot HTTP-VERSION #x35449A7E> "HTTP-VERSION") ...)) 1: (SWANK::INSPECT-OBJECT #<STANDARD-CLASS REQUEST>) 2: (SWANK:INIT-INSPECTOR "(find-class 'request)") 3: (CCL::CALL-CHECK-REGS 'SWANK:INIT-INSPECTOR) 4: (SWANK::EVAL-FOR-EMACS '(SWANK:INIT-INSPECTOR "(find-class 'request)") "ARANEIDA" 70) 5: (FUNCALL 'SWANK::EVAL-FOR-EMACS) 6: (#<Anonymous Function #x353DE5C6>) 7: (SWANK::CALL-WITH-REDIRECTED-IO #<Anonymous Function #x353DE5C6> #<CONNECTION #x35415FBE>) 8: (SWANK::HANDLE-REQUEST #<CONNECTION #x35415FBE>) 9: (#<Anonymous Function #x353DBB86> #<CONNECTION #x35415FBE>) 10: (SWANK::CALL-WITH-REDIRECTED-IO #<CCL:COMPILED-LEXICAL-CLOSURE #x35417246> '(#<RESTART CCL:ABORT-BREAK #x711B1DF6> #<RESTART ABORT #x711B1E1E>)) 11: (SWANK::REPL-LOOP #<CONNECTION #x35415FBE>) 12: (CCL::RUN-PROCESS-INITIAL-FORM '(#<CCL:COMPILED-LEXICAL-CLOSURE #x3541538E>) #<PROCESS repl-thread(6) [Active] #x354153C6>) 13: (#<Anonymous Function #x3510043E> '(#<CCL:COMPILED-LEXICAL-CLOSURE #x3541538E>) 0) 14: (#<Anonymous Function #x350F34CE> 66926 #<LISP-THREAD repl-thread [tcr @ #x415B8] #x354154B6>) A "normal" (inspect (find-class 'araneida:request)) works without any problems. TIA Ralf Mattes

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 25 Oct '04

25 Oct '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.555 slime/ChangeLog:1.556 --- slime/ChangeLog:1.555 Tue Oct 19 20:59:52 2004 +++ slime/ChangeLog Mon Oct 25 18:20:43 2004 @@ -1,3 +1,31 @@ +2004-10-25 Marco Baringer <mb(a)bese.it> + + * swank.lisp (inspect-for-emacs array): Properly deal with arrays + without fill pointers. + (inspect-for-emacs function): Show function-lambda-expression + when available. + + * swank-openmcl.lisp (specializer-name): New function. + (who-specializes): Use it. + (maybe-method-location): Use it. + (function-source-location): Use it. + + * swank-cmucl.lisp (inspect-for-emacs function): Use next + method's values and simply add cmucl specific details. + + * slime.el (slime-repl-defparameter): Change default value to "*". + +2004-10-25 Thomas Schilling <tjs_ng(a)yahoo.de> + + * swank-allegro.lisp (inspect-for-emacs): Use + excl::external-fn_symdef to get the function documentation. + + * swank.lisp (inspect-for-emacs): Order generic function's methods + and show abbreviated docs for methods. + (abbrev-doc): New function. + (methods-by-applicability): New function. + (*gf-method-getter*): New variable. + 2004-10-19 Luke Gorrie <luke(a)synap.se> * slime.el (slime-show-source-location): Call `push-mark' to push

1 0

[slime-devel] slime-sync-package-and-default-directory filename translation
by usenet＠gorgeous.org 25 Oct '04

25 Oct '04

I think slime-sync-package-and-default-directory needs to use slime-translate-to-lisp-filename-function. Patch is attached. Otherwise talking to SBCL from Windows via SSH and Samba seems to be working perfectly. Graham

2 1

[slime-devel] some inspector conveniencies (patch)
by Thomas Schilling 25 Oct '04

25 Oct '04

I think I already sent these some days ago but they never got commited. So I revised them and resend them, in short it's (all concerning the inspector): - when inspecting gf: - display short docs for gf methods (when available) - sort them by applicability (according to a #lisp suggestion some time ago), although this is still a little buggy but IMO still better than no ordering at all users can specify their own function if they don't like the default by setting `*gf-method-getter*' (feel free to rename this to sth. more sensible) - when inspecting class: - abbrev'd docs for methods specialising on the class - print them one per line - order them by name (not customizable) -ts ,---- Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.253 diff -u -r1.253 swank.lisp --- swank.lisp 19 Oct 2004 06:14:17 -0000 1.253 +++ swank.lisp 24 Oct 2004 19:48:01 -0000 @@ -2786,6 +2786,68 @@ collect "#<unbound>" collect '(:newline))))) +(defvar *gf-method-getter* 'methods-by-applicability + "This function is called to get the methods of a generic function. +The default returns the method sorted by applicability. +See `methods-by-applicability'.") + +;;; Largely inspired by (+ copied from) the McCLIM listener +(defun methods-by-applicability (gf) + "Return methods ordered by qualifiers, then by most specific argument types. + +Qualifier ordering is: :before, :around, primary, and :after. +We use the length of the class precedence list to determine which type is +more specific." + ;;FIXME: How to deal with argument-precedence-order? + (let* ((methods (copy-list (swank-mop:generic-function-methods gf))) + (lambda-list (swank-mop:generic-function-lambda-list gf))) + ;; sorter function (most specific is defined as smaller) + (flet ((method< (meth1 meth2) + ;; First ordering rule is by qualifiers, that is :before-methods + ;; come before :around methods, before primary methods, before + ;; :after methods, other qualifiers are treated like none at all + ;; (so like primary methods) + (let ((qualifier-order '(:before :around nil :after))) + (let ((q1 (or (position (first (swank-mop:method-qualifiers meth1)) qualifier-order) 2)) + (q2 (or (position (first (swank-mop:method-qualifiers meth2)) qualifier-order) 2))) + (cond ((< q1 q2) (return-from method< t)) + ((> q1 q2) (return-from method< nil))))) + ;; If qualifiers are equal, go by arguments + (loop for sp1 in (swank-mop:method-specializers meth1) + for sp2 in (swank-mop:method-specializers meth2) + do (cond + ((eq sp1 sp2)) ;; continue comparision + ;; an eql specializer is most specific + ((typep sp1 'swank-mop:eql-specializer) + (return-from method< t)) + ((typep sp2 'swank-mop:eql-specializer) + (return-from method< nil)) + ;; otherwise the longer the CPL the more specific + ;; the specializer is + ;; FIXME: Taking the CPL as indicator has the problem + ;; that unfinalized classes are most specific. Can we pick + ;; a reasonable default or do something with SUBTYPEP ? + (t (let ((l1 (if (swank-mop:class-finalized-p sp1) + (length (swank-mop:class-precedence-list sp1)) + 0)) + (l2 (if (swank-mop:class-finalized-p sp2) + (length (swank-mop:class-precedence-list sp2)) + 0))) + (cond + ((> l1 l2) + (return-from method< t)) + ((< l1 l2) + (return-from method< nil)))))) + finally (return nil)))) + (declare (dynamic-extent #'method<)) + (sort methods #'method<)))) + +(defun abbrev-doc (doc &optional (maxlen 80)) + "Return the first sentence of DOC, but not more than MAXLAN characters." + (subseq doc 0 (min (1+ (or (position #\. doc) (1- maxlen))) + maxlen + (length doc)))) + (defmethod inspect-for-emacs ((gf standard-generic-function) (inspector t)) (declare (ignore inspector)) (values "A generic function." @@ -2797,13 +2859,17 @@ "It uses " (:value ,(swank-mop:generic-function-method-combination gf)) " method combination." (:newline) "Methods: " (:newline) ,@(loop - for method in (swank-mop:generic-function-methods gf) + for method in (funcall *gf-method-getter* gf) collect `(:value ,method ,(inspector-princ ;; drop the first element (the name of the generic function) (cdr (method-for-inspect-value method)))) collect " " collect (let ((meth method)) `(:action "[remove method]" ,(lambda () (remove-method gf meth)))) + collect '(:newline) + if (documentation method t) + collect " Documentation: " and + collect (abbrev-doc (documentation method t)) collect '(:newline))))) (defmethod inspect-for-emacs ((method standard-method) (inspector t)) @@ -2860,8 +2926,18 @@ ,@(when (swank-mop:specializer-direct-methods class) `("It is used as a direct specializer in the following methods:" (:newline) ,@(loop - for method in (swank-mop:specializer-direct-methods class) + for method in (sort (copy-list (swank-mop:specializer-direct-methods class)) + #'string< :key (lambda (x) + (symbol-name + (let ((name (swank-mop::generic-function-name + (swank-mop::method-generic-function x)))) + (if (symbolp name) name (second name)))))) + collect " " collect `(:value ,method ,(inspector-princ (method-for-inspect-value method))) + collect '(:newline) + if (documentation method t) + collect " Documentation: " and + collect (abbrev-doc (documentation method t)) and collect '(:newline)))) "Prototype: " ,(if (swank-mop:class-finalized-p class) `(:value ,(swank-mop:class-prototype class))

2 1

[slime-devel] tiny inspector fix for acl62
by Thomas Schilling 24 Oct '04

24 Oct '04

I don't like error messages ... ,------ Index: swank-allegro.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-allegro.lisp,v retrieving revision 1.60 diff -u -r1.60 swank-allegro.lisp --- swank-allegro.lisp 1 Oct 2004 12:16:44 -0000 1.60 +++ swank-allegro.lisp 24 Oct 2004 18:55:03 -0000 @@ -419,7 +419,7 @@ `("Name: " (:value ,(function-name f)) (:newline) "Its argument list is: " ,(princ-to-string (arglist f)) (:newline) "Documentation:" (:newline) - ,(documentation f 'function)))) + ,(documentation (excl::external-fn_symdef f) 'function)))) (defmethod inspect-for-emacs ((class structure-class) (inspector acl-inspector)) (values "A structure class."

1 0

[slime-devel] (in-package foo)
by Neo-LISPer 23 Oct '04

23 Oct '04

When I SLIME-EVAL-LAST-EXPRESSION something like (IN-PACKAGE FOO), it does not change *PACKAGE*. Any way to fix this?

4 3