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

[slime-devel] Bug in test-print-arglist?
by szergling 03 Mar '09

03 Mar '09

I saw the following today (trying to get ABCL to run), WARNING: Test failed: (EVAL-WHEN (&ANY :COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) &BODY BODY) => "(eval-when (&any :compile-toplevel :load-toplevel :execute) &body body)" Expected: "(eval-when (&any :compile-toplevel :load-toplevel :execute) &body body)" In case it's not clear, the test failed because it was using string= while the arglist-to-string output contains an extra newline right after "...&body". This test originated from contrib/swank-arglists.lisp. The wrapping is specified by *print-right-margin*, which the test sets to nil. I am not sure what the appropriate value should be. >From the Hyperspec on *print-right-margin*: "If it is nil, the right margin is taken to be the maximum line length such that output can be displayed without wraparound or truncation. If this cannot be determined, an implementation-dependent value is used." Cheers,

1 0

[slime-devel] Daily ChangeLog diff
by Helmut Eller 03 Mar '09

03 Mar '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1703 slime/ChangeLog:1.1704 --- slime/ChangeLog:1.1703 Fri Feb 27 22:00:25 2009 +++ slime/ChangeLog Mon Mar 2 20:35:54 2009 @@ -1,3 +1,9 @@ +2009-03-02 Tobias C. Rittweiler <tcr(a)freebits.de> + + * hyperspec.el (common-lisp-hyperspec-symbols): Add entries for + reader macros even when `common-lisp-hyperspec-symbol-table' is + bound to some value. + 2009-02-27 Tobias C. Rittweiler <tcr(a)freebits.de> * slime.el ([test] macroexpand): New test case.

1 0

[slime-devel] Minibuffer display of values
by jcm＠sdf.lonestar.org 02 Mar '09

02 Mar '09

Perhaps I have accidentally turned this feature off, or missed the post on how to turn it back on... but how do I make symbol values appear in the minibuffer in slime mode when the point is over them? This used to work, unless the feature has been removed.

2 1

[slime-devel] unhooking from slime before saving sbcl core?
by Michael Hannemann 02 Mar '09

02 Mar '09

Hi all, I'm new to SLIME, although a co-worker has been prodding me to look at it for a year. I'm also new to SBCL, although I used CMUCL a fair amount several years ago. I apologize if the following is a FAQ -- I scoured the manual and searched through the gmane archives of this list, but I could've missed something. When I write a core image out from SBCL which I'm talking to via SLIME, then try to load it from the command line without SLIME, I get a long stream of warning messages. This happens immediately on startup. I've deleted my .sbclrc file so user init is not to blame. (Also, when I start up SBCL from the shell, this doesn't happen.) The lisp is not dead, just injured; I can get out of the break loop. However, any time I get back into a break loop, I'm in trouble again. My co-worker suggested setting *debugger-hook* to nil, so I tried that, to no avail. I still get the errors (example below), and once I get back to a usable prompt in the lisp, I see that it's set to SWANK:SWANK-DEBUGGER-HOOK again. I've copied the first chunk of what I see on startup to the end of this message. This is MacOSX, SLIME from CVS a day or two ago, SBCL 1.0.23. Any advice? Thanks, Michael --- * Help! 11 nested errors. SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded. 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE # {128E6F6D}>)[:EXTERNAL] 1: (BACKTRACE 536870911 #<SYNONYM-STREAM :SYMBOL SB-SYS:*TTY* {128E6DE9}>) [...] 17: (FORMAT #<SB-SYS:FD-STREAM for \"a socket\" {10026331}> \"~6,'0x\")[:EXTERNAL] 18: (SWANK::ENCODE-MESSAGE (:DEBUG 0 11 (\"Couldn't write to #<SB-SYS:FD-STREAM for \\\"a socket\\\" {10026331}>: Bad file descriptor\" \" [Condition of type SB-INT:SIMPLE-STREAM-ERROR]\" NIL) ((\"ABORT\" \"Return to sldb level 10.\") [... and a lot more ...]) 19: (SWANK::SLDB-LOOP 11) 20: (SWANK::SLDB-LOOP 11)[:EXTERNAL] 21: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) (*PRINT-PPRINT-DISPATCH* . #<SB-PRETTY:PPRINT-DISPATCH-TABLE {10224B19}>) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T) (*PRINT-LINES*) (*PRINT-ESCAPE* . T) (*PRINT-RIGHT-MARGIN* . 65) (SWANK::*SLDB-BITVECTOR-LENGTH* . 25) (SWANK::*SLDB-STRING-LENGTH* . 50)) #<FUNCTION (LAMBDA NIL) {10245C55}>) 22: ((LAMBDA (SWANK-BACKEND::DEBUGGER-LOOP-FN)) #<FUNCTION (LAMBDA NIL) {10245C05}>) 23: (SWANK::DEBUG-IN-EMACS #<SB-INT:SIMPLE-STREAM-ERROR {12771809}>) 24: (SWANK:INVOKE-SLIME-DEBUGGER #<SB-INT:SIMPLE-STREAM-ERROR {12771809}>) 25: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {12771A2D}>) 26: (SWANK:SWANK-DEBUGGER-HOOK #<SB-INT:SIMPLE-STREAM-ERROR {12771809}> #<unavailable argument>) 27: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-STREAM-ERROR {12771809}>) 28: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-STREAM-ERROR {12771809}>)[:EXTERNAL] [... and on for hundreds of lines ...]

4 4

[slime-devel] Daily ChangeLog diff
by Helmut Eller 02 Mar '09

02 Mar '09

Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.184 slime/contrib/ChangeLog:1.186 --- slime/contrib/ChangeLog:1.184 Fri Feb 27 21:39:32 2009 +++ slime/contrib/ChangeLog Sun Mar 1 20:36:28 2009 @@ -1,3 +1,15 @@ +2009-02-28 Stas Boukarev <stassats(a)gmail.com> + + * slime-asdf.el (slime-read-system-name): Display default value as + part of the prompt, instead of inserting it as an input + candidate. + (slime-find-asd): Do not call `file-name-sans-extension' twice. + +2009-02-28 Stas Boukarev <stassats(a)gmail.com> + + * swank-arglists.lisp (variable-desc-for-echo-area): Print + values of special variables with ~S, not with ~A. + 2009-02-27 Tobias C. Rittweiler <tcr(a)freebits.de> * swank-arglists.lisp (read-conversatively-for-autodoc): Make it

1 0

[slime-devel] [patch] slime-edit-definition and asdf
by Tim 01 Mar '09

01 Mar '09

Hi! I wrote simple patch for swank.lisp. Now you can type M-. and see (ASDF:DEFSYSTEM SOMESYSTEM) among other stuff. You can select it and go to the definition of the system in somesystem.asd. Hope this will be usefull. Tim

2 1

[slime-devel] abcl special inspector support for java classes, methods, and other good stuff
by Russell McManus 01 Mar '09

01 Mar '09

I have written a couple of dozen lines of code to improve the way the inspector works in abcl for certain java objects. At this point, I can't work without these improvements, but I haven't been able to quite figure out how to produce a proper patch to slime for inclusion. Normally, what i do is execute the following forms after swank is already loaded. This seems to work fine. However when I put all the following forms into swank-abcl.lisp, this approach fails because the swank package is not loaded yet. Any ideas about how I can get organize the following code so that it works cleanly with slime? Thanks, -russ Here is the code: ;; this is the troublesome form. where should it go? (defmethod swank:emacs-inspect ((java-object java-object)) (swank-backend::emacs-inspect-java java-object)) (defun swank-backend::emacs-inspect-java-class (jclass) (flet ((jclass->name (jclass) (let* ((s (jclass-name jclass)) (prefix "java.lang.") (lang-pos (search prefix s))) (if lang-pos (subseq s (+ lang-pos (length prefix))) s)))) (append `("Java Class: " ,(princ-to-string jclass) (:newline)) `("Methods" (:newline)) (loop for method across (jclass-methods jclass) for i = 0 then (1+ i) append (let ((args (mapcar #'jclass->name (coerce (jmethod-params method) 'list)))) `(,(format nil "[~2D] ~A ~A(~{~A~^,~}): ~40T" i (jclass->name (jmethod-return-type method)) (jmethod-name method) args) (:value ,method) (:newline))))))) (defun swank-backend::emacs-inspect-java-object (jobject) (let* ((jclass (jobject-class jobject)) (fields (coerce (jclass-fields jclass) 'list))) (append `("Java Object" ":" ,(princ-to-string jobject) (:newline)) `("Java Class" ":" ,(jclass-name jclass) " " (:value ,jclass) (:newline)) `("Fields" (:newline)) (loop for field in fields for i = 0 then (1+ i) append `(,(format nil "[~2D] ~20A : " i (jfield-name field)) (:value ,(jcall (jmethod (jclass "java.lang.reflect.Field") "get" (jclass "java.lang.Object")) field jobject)) (:newline)))))) (defun swank-backend::emacs-inspect-java-method (jmethod) (let ((return-type (jcall (jmethod (jclass "java.lang.reflect.Method") "getReturnType") jmethod)) (args (coerce (jmethod-params jmethod) 'list))) (setf args (mapcar (lambda (arg) (jclass-name arg)) args)) (append `("Java Method: " ,(jmethod-name jmethod) (:newline)) `("Return Type: " ,(jclass-name return-type) ": " (:value ,return-type) (:newline)) (if args (append `("Arguments" (:newline)) (loop for arg in args for i = 0 then (1+ i) append `(,(format nil "[~2D] ~20A : " i arg) (:value ,arg) (:newline)))) `("Arguments: none" (:newline)))))) (defun swank-backend::emacs-inspect-java (java-object) (flet ((is-a (class-name) (jinstance-of-p java-object (jclass class-name)))) (cond ((is-a "java.lang.Class") (swank-backend::emacs-inspect-java-class java-object)) ((is-a "java.lang.reflect.Method") (swank-backend::emacs-inspect-java-method java-object)) (t (swank-backend::emacs-inspect-java-object java-object)))))

2 3

[slime-devel] Priting values of special variables readable.
by Stas Boukarev 01 Mar '09

01 Mar '09

I find printing values of special variables in echo area with ~A quite misleading, the following patch changes it to ~S. -- With Best Regards, Stas.

2 1