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

[slime-devel] SLIME debugger and local vars
by Lynn Quam 22 Nov '04

22 Nov '04

I have been using the SLIME debugger extensively with CMUCL and ALlegro 6.0. I find the SLIME debugger to be a big improvement over the "native" Lisp debuggers. One of the biggest improvements is having a uniform debugger and inspector interface for the different Lisps. Here is my question: In Allegro, with (declaim (optimize (safety 3)(space 1)(speed 2)(debug 2))) I find that most of the local variables are available in the SLIME debugger, but that the variable names are lost. The debugger prints something like: 13: ((METHOD INTERSECT-CURVE-WITH-DTM ...) Locals: TERRAIN-MODEL = #<NON-LINEAR-MAPPED-REGULAR-GRID-TERRAIN-MODEL @ #x2059e39a> CURVE-FN = #<Closure (:INTERNAL (METHOD INTERSECT-CAMERA-RAY-WITH-TERRAIN-MODEL ...))> S0 = 1.0 SEMI-INFINITE-P = T SYSTEM-TOOL::START = T EXCL::|local-0| = ... EXCL::|local-1| = ... EXCL::|local-2| = ... ... I tried (debug 3), but that didn't appear to help. Is this because the symbol names are not available, or because the debugger cannot figure out the assiciation between the stack locations and the local variables? In CMUCL with (declaim (optimize (safety 3)(space 1)(speed 2)(debug 9/4))) I find that most local variable values print as :<NOT-AVAILABLE> in the SLIME debugger. The debugger prints something like: 10: ((METHOD CME::INTERSECT-CURVE-WITH-DTM ...) Locals: PCL::.KEY. = :<NOT-AVAILABLE> PCL::.PV-CELL. = (#(1 2) . #()) PCL::.PV. = :<NOT-AVAILABLE> PCL::.REST-ARG. = (:SEMI-INFINITE-P T) PCL::.SLOTS0. = :<NOT-AVAILABLE> CURVE-FN = #<Closure Over Function "DEFMETHOD INTERSECT-CAMERA-RAY-WITH-TERRAIN-MODEL ...> DEFAULT-Z = :<NOT-AVAILABLE> DTM-TO-LVCS-TRANSFORM = :<NOT-AVAILABLE> FUNCTION = :<NOT-AVAILABLE> I tried: (declaim (optimize (safety 3)(space 0)(speed 0)(debug 3))), but that didn't appear to help. What is the problem?

2 1

[slime-devel] supported platforms
by Alex Mizrahi 22 Nov '04

22 Nov '04

Hello, All! looks like statement: -- SLIME works with .. and with XEmacs version 21 on Unix, OSX, and Win32. -- is incorrect. i have XEmacs 21.1.3 on Solaris x86 10 (because i found no newer binaries for this OS, and don't have C compiler to build new xemacs) and it refuses to work. it demanded lots of elisp files, after i copied them from newer xemacs (21.4.13) is said -- Symbol's chain of function indirections contains a loop: define-minor-mode -- which i don't know how to deal with.. so looks like slime is not working on XEmacs 21.1.3 or i'm missing something (possibly somewhere there is a set of elisp files which makes it work.. i tried latest of 21.1 - 21.1.14, it still doesn't work..) With best regards, Alex 'killer_storm' Mizrahi.

2 2

Re: [slime-devel] Re: sbcl regression with slime
by Helmut Eller 21 Nov '04

21 Nov '04

Christophe Rhodes <csr21(a)cam.ac.uk> writes: > I see this as an interim step towards what I would consider a proper > solution: the variant of (1) which reads "the communication protocol > between slime and lisp is defined over octets; where these octets are > to be interpreted as forming character data, the encoding is > ucs-4-bigendian". The point of this would be to allow those lisps > supporting more characters than 256 to communicate these characters, > while having those with just 256 (or fewer) characters simply deal > with a slightly more space-wasteful protocol. Why do you want to use ucs-4? Why not utf-8? Is that SBCL's internal format? If we want to use a multibyte encoding at all, we should also consider emacs-mule, that's Emacs' internal encoding used for multibyte characters. In general, I don't like this multibyte character shit. It seems to me like a feature that 99% of the users don't need. I certainly don't need it. Helmut.

4 11

[slime-devel] accept-connection
by Marco Baringer 21 Nov '04

21 Nov '04

is there any reason accept-connection's external-format argument doesn't default to :iso-latin-1-unix? -- -Marco Ring the bells that still can ring. Forget your perfect offering. There is a crack in everything. That's how the light gets in. -Leonard Cohen

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 20 Nov '04

20 Nov '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.572 slime/ChangeLog:1.575 --- slime/ChangeLog:1.572 Fri Nov 19 20:11:41 2004 +++ slime/ChangeLog Sat Nov 20 21:49:09 2004 @@ -1,3 +1,17 @@ +2004-11-20 Helmut Eller <heller(a)common-lisp.net> + + * swank-sbcl.lisp (make-socket-io-stream): Add some #+sb-unicode. + +2004-11-20 Travis Cross <travis(a)crosswirecorp.com> + + * swank-sbcl.lisp (thread-status): Fix unbalanced parenthesis. + +2004-11-20 Marco Baringer <mb(a)bese.it> + + * swank-openmcl.lisp (make-stream-interactive): Only add ouptut + streams (subclasses of ccl:fundamental-output-stream) to + ccl::*auto-flush-streams*. + 2004-11-19 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-net-coding-system): New variable. Specifies the

1 0

[slime-devel] [PATCH] (minor bug?)
by Travis Cross 20 Nov '04

20 Nov '04

When compiling SLIME (latest cvs) for SBCL 0.8.15, swank-sbcl.lisp would break with an 'unbalanced parenthesis' error. This patch fixed the issue for me (indentation was already correct). Thanks, -- Travis *** swank-sbcl.lisp.orig Fri Nov 19 14:06:36 2004 --- swank-sbcl.lisp Sat Nov 20 14:17:05 2004 *************** *** 856,862 **** (2 "stopped") (3 "dead") (t (format nil "??? ~A" state))))) ! (t "??? ???")))))) (defimplementation make-lock (&key name) (sb-thread:make-mutex :name name)) --- 856,862 ---- (2 "stopped") (3 "dead") (t (format nil "??? ~A" state))))) ! (t "??? ???"))))) (defimplementation make-lock (&key name) (sb-thread:make-mutex :name name))

2 1

[slime-devel] SLIME broken for OpenMCL
by David Steuber 20 Nov '04

20 Nov '04

In current CVS HEAD using Carbon Emacs from CVS (2004-10-29) and OpenMCL I'm thrown immediately into the debugger when I do M-x slime. a does not get me out: In the *sldb* buffer: No applicable method for args: (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>) to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146> [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] #<RESTART ABORT #xC8F76> 1: [ABORT-BREAK] #<RESTART ABORT-BREAK #xC8F9E> Backtrace: 0: (#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>) 1: (CCL::EVENT-POLL) 2: (CCL::HOUSEKEEPING) 3: (#<Anonymous Function #x60F911E>) In the *slime-events* buffer: (:emacs-rex (swank:connection-info) nil t 1) (:open-dedicated-output-stream 52683) (:indentation-update (("with-lock-grabbed-maybe" . 1) ("with-ioblock-input-locked" . 1) ("with-package-write-lock" . 1) ("with-slot-values" . 2) ("with-eagain" . 2) ("without-gcing" . 0) ("with-restart" . 1) ("with-auxiliary-foreign-types" . 0) ("with-ppc-local-vinsn-macros" . 1) ("with-package-read-lock" . 1) ("while" . 1) ("%ilogior" . 1) ("with-call-method-context" . 1) ("with-dll-node-freelist" . 1) ("with-open-dir" . 1) ("ignoring-without-interrupts" . 0) ("with-area-macptr" . 1) ("with-standard-abort-handling" . 1) ("once-only" . 1) ("def-kernel-restart" . 3) ...)) (:return (:ok (25784 "OpenMCL" "openmcl" (:cltl2 :mcl2\.0 :primary-classes :ccl :ccl-2 :ccl-3 :ccl-4 :coral :common-lisp :mcl :openmcl :ansi-cl :processes :unix :openmcl-native-threads :openmcl-partial-mop :mcl-common-mop-subset :openmcl-mop-2 :interfaces-2 :powerpc ...) :spawn)) 1) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 2) (:return (:abort) 2) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 3) (:return (:abort) 3) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 4) (:return (:abort) 4) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 5) (:return (:abort) 5) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 6) (:return (:abort) 6) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:backtrace 4 43) nil 0 7) (:return (:ok nil) 7) (:debug-activate 0 1)

3 7

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 19 Nov '04

19 Nov '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.570 slime/ChangeLog:1.572 --- slime/ChangeLog:1.570 Thu Nov 18 18:36:12 2004 +++ slime/ChangeLog Fri Nov 19 20:11:41 2004 @@ -1,3 +1,74 @@ +2004-11-19 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-net-coding-system): New variable. Specifies the + coding system to use for network communication. The default is + iso-latin-1 and should work for all Lisps. Only a small set of + coding systems is currently supported. + (slime-net-valid-coding-systems): New variable. A list of coding + systems which may be used. + (slime-check-coding-system, slime-coding-system-mulibyte-p) + (slime-coding-system-cl-name): New utility function for coding + systems. + (slime-net-connect, slime-make-net-buffer, + slime-open-stream-to-lisp): Use it. + (slime-net-decode-length, slime-net-encode-length): Renamed from + slime-net-read3 and slime-net-enc3. The length is now encoded as + a 6 char hex string. + + * swank.lisp (*coding-system*): New variable. + (start-server): Accept external-format as argument. + (create-server, create-swank-server, setup-server) + (serve-connection, open-dedicated-output-stream) + (create-connection): Ditto. + (defstruct connection): Add external-format slot. + (decode-message-length): New function for new length encoding. + (decode-message): Use it. + (encode-message): Use new encoding. + + * swank-cmucl.lisp (accept-connection): Accept external-format + argument. + (inspect-for-emacs): Add CMUCL specific versions for array and + vectors. + + * swank-sbcl.lisp, swank-openmcl.lisp, swank-lispworks.lisp, + swank-clisp.lisp, swank-backend.lisp, swank-allegro.lisp, + swank-abcl.lisp (accept-connection): Accept :external-format as + argument. + +2004-11-19 Matthew Danish <mrd+nospam(a)cmu.edu> + + * swank-allegro.lisp: (count-cr): New function. Convert + file-offsets to match Emacs' eol-conventions. + (find-definition-in-file): Use it. + + * slime.el (slime-insert-xrefs): Display the multi-line label much + more cleanly. + +2004-11-19 Helmut Eller <heller(a)common-lisp.net> + + * swank-sbcl.lisp (thread-status): Decode the thread-state-slot + instead of returning ???. + + * swank-allegro.lisp (swank-mop:slot-definition-documentation): + ACL 7 says documentation should have 2 args. So, pass t as second + argument. + (fspec-primary-name): Recurse until we have a symbol. + (allegro-inspect): New function. Mostly reverse engineered from + ACL's native inspector. + (inspect-for-emacs (t), inspect-for-emacs (function)): Use it. + + * wank.lisp (inspect-for-emacs array): Use row-major-aref instead + of a displaced array. I hope that does the same. + (inspect-for-emacs integer): Ignore errors in + decode-universal-time. Negative values and, in SBCL, also small + values cannot be decoded. + (list-threads): Include the thread-id. Useful for SLIME debugging. + + * slime.el (slime-list-threads, slime-thread-insert): Show the + thread-id. + (slime-thread-control-mode-map): Remove the binding for the + no-longer-existent slime-thread-goahead command. + 2004-11-18 Alexey Dejneka <adejneka(a)comail.ru> * swank.lisp (inspect-for-emacs): Fix bug in handling of arrays

1 0

[slime-devel] [PATCH] fix for bad source position in ACL6.2/win32
by Matthew Danish 19 Nov '04

19 Nov '04

Allegro 6.2 reports source position of definitions by file-position, which does not properly account for line-ending encoding. This means that a file with carriage returns will cause all reported positions to appear to be offset from the actual definition in the emacs buffer. This is assuming that your emacs is properly understanding the line-ending encoding and is not displaying a bunch of ^Ms at the end of every line. This quick hack counts the number of carriage returns that need to be subtracted from the file-position. It runs quickly enough on large (15msec to count CRs for 4481 lines in a file I am testing) files that I think it should be acceptable, unless someone has a better idea. I don't know if 7.0 has this problem as well; if not then this could be conditionalized. diff -u -r1.61 swank-allegro.lisp --- swank-allegro.lisp 25 Oct 2004 16:17:11 -0000 1.61 +++ swank-allegro.lisp 18 Nov 2004 22:12:25 -0000 @@ -274,10 +274,22 @@ (symbol (string fspec)) (list (string (second fspec))))) +(defun count-cr (file pos) + (let* ((bufsize 256) + (buf (make-array bufsize :element-type '(unsigned-byte 8))) + (cr-count 0)) + (with-open-file (stream file :direction :input) + (loop for bytes-read = (read-sequence buf stream) do + (incf cr-count (count (char-code #\return) buf + :end (min pos bytes-read))) + (decf pos bytes-read) + (when (<= pos 0) + (return cr-count)))))) + (defun find-definition-in-file (fspec type file) (let* ((start (scm:find-definition-in-file fspec type file)) (pos (if start - (list :position (1+ start)) + (list :position (1+ (- start (count-cr file start)))) (list :function-name (fspec-primary-name fspec))))) (make-location (list :file (namestring (truename file))) pos))) -- ;; Matthew Danish -- user: mrd domain: cmu.edu ;; OpenPGP public key: C24B6010 on keyring.debian.org

2 2

[slime-devel] CMUCL 19a: NIL is not of type SWANK::CONNECTION
by Chisheng Huang 19 Nov '04

19 Nov '04

Greetings, After I did a "cvs update" at 2004-11-18 20:23Z, I got a bunch of warning messages in the *inferior-lisp* buffer: Warning: (FUNCALL *GC-NOTIFY-BEFORE* LISP::PRE-GC-DYN-USAGE) lost: Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: NIL is not of type SWANK::CONNECTION Warning: (FUNCALL *GC-NOTIFY-AFTER* LISP::POST-GC-DYN-USAGE LISP::BYTES-FREED LISP::*GC-TRIGGER*) lost: Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: NIL is not of type SWANK::CONNECTION Slime retrieved by cvs update -D "2004-11-12" does not have this problem. Slime retrieved by cvs update -D "2004-11-16" does. Would somebody please look into this? Thanks a lot. Best, -cph PS. I'm using CMUCL 19a (x86/Linux) and GNU Emacs 21.3.1.

2 1