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

[slime-devel] indentation!
by Pascal J.Bourguignon 22 Oct '04

22 Oct '04

How can we disable slime indentation and revert to the normal indentation? -- __Pascal Bourguignon__ http://www.informatimago.com/ Voting Democrat or Republican is like choosing a cabin in the Titanic.

2 2

[slime-devel] Confused Meta-Point
by d95-bli＠nada.kth.se 20 Oct '04

20 Oct '04

I wonder if there is some way to reset the information that MP uses to find definitions. Right now, I have a running image with a file which I have done a lot of editing on, and although MP happily finds definitions, it finds completely wrong ones. For instance I have a generic function where if I MP it, I get the list with the GF itself and all methods, but each one of those when selected jumps to a completely unrelated form in the source. Björn

2 2

[slime-devel] Is this right?
by Peter Seibel 20 Oct '04

20 Oct '04

These days (and perhaps before) function arguments get indented like this: (defun foo (x y z) (some-function x y z)) while I was sort of expecting the x, y, and z to be in one more space like this: (defun foo (x y z) (some-function x y z)) Have I slipped a cog? I can't find any variable in the customizable lisp indentation variables that controls this. Has it always been this way? -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

2 1

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

19 Oct '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.552 slime/ChangeLog:1.555 --- slime/ChangeLog:1.552 Sun Oct 17 23:51:40 2004 +++ slime/ChangeLog Tue Oct 19 20:59:52 2004 @@ -1,3 +1,15 @@ +2004-10-19 Luke Gorrie <luke(a)synap.se> + + * slime.el (slime-show-source-location): Call `push-mark' to push + the source position onto the global mark ring. + +2004-10-19 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (define-printer-variables): NIL is not a valid + docstring. Reported by Alain Picard. + (printer-variables sldb-print): Include print-gensym, + pprint-dispatch, base, radix, array, and lines. + 2004-10-17 Luke Gorrie <luke(a)synap.se> * slime.el (slime-message): Use slime-typeout-frame if available.

1 0

[slime-devel] Location of read errors
by Gerd Flaig 19 Oct '04

19 Oct '04

Hi, when I compile a buffer using C-c C-k and the source triggers a read error, I get thrown into sldb which shows something like this: Error in function LISP::FOP-EVAL-FOR-EFFECT: Attempt to load a file having a compile-time read error. [Condition of type SIMPLE-ERROR] Restarts: 0: [CONTINUE] Skip this form. 1: [CONTINUE] Return NIL from load of #p"/home/gefla/src/macho-0.4/src/message.x86f". 2: [ABORT] Abort SLIME compilation. 3: [ABORT] Abort handling SLIME request. 4: [ABORT] Return to Top-Level. Backtrace: 0: (LISP::FOP-EVAL-FOR-EFFECT) 1: (LISP::LOAD-GROUP #<Stream for file "/home/gefla/src/macho-0.4/src/message.x86f">) 2: (LISP::FASLOAD #<Stream for file "/home/gefla/src/macho-0.4/src/message.x86f">) 3: (LISP::INTERNAL-LOAD #p"/home/gefla/src/macho-0.4/src/message.x86f" #p"/home/gefla/src/macho-0.4/src/message.x86f" :ERROR :BINARY) 4: (LISP::INTERNAL-LOAD #p"/home/gefla/src/macho-0.4/src/message.x86f" #p"/home/gefla/src/macho-0.4/src/message.x86f" :ERROR NIL) 5: (LOAD #p"/home/gefla/src/macho-0.4/src/message.x86f" :VERBOSE T :PRINT ...) 6: (COMPILE-FILE "/home/gefla/src/macho-0.4/src/message.lisp" :OUTPUT-FILE T :ERROR-FILE ...) 7: ("DEFIMPLEMENTATION SWANK-COMPILE-FILE") [...] .. which is not too helpful. Pressing 'v' to view the source location shows the source for fop-eval-for-effect, which is not exactly where I wanted to go. The real error is buried in the REPL buffer. ; Compiling DEFUN PARSE-MIME-HEADER: ; ; Error: Read error at 7442: ; "(or (net.telent.date:parse-time/\ (cadr (split ";\\s*" received)))" ; Reader error at 7476 on #<Stream for file "/home/gefla/src/macho-0.4/src/message.lisp">: ; package "NET.TELENT.DATE" not found ; Did I misconfigure something or are read errors not handled in a sane way yet? Goodbyte, Gerd. -- Gerd Flaig Technik gerd(a)schlund.de Bei Schlund + Partner AG Brauerstraße 48 D-76135 Karlsruhe Physics is like sex: sure, it may give some practical results, but that's not why we do it. -- Richard Feynman

2 3

[slime-devel] Problem with viewing source with v from debugger
by Peter Seibel 19 Oct '04

19 Oct '04

My problem is not that I can't view source--works fine in Allegro 6.2 on GNU/Linux, fairly recent CVS Emacs, etc. My problem is that after v'ing around a few stack frames to find the code I need to fix I hit q in the sldb buffer to abort and the source I was just looking at disappears jumping me back to who know's where--probably what ever code my cursor was on before I evaluating whatever expression signaled the error. Is there any way to get the source to stay put? -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

2 1

[slime-devel] Macro indentation redux
by Peter Seibel 19 Oct '04

19 Oct '04

Okay, I'm totally confused. I have a couple macros with lambda lists like this: (defmacro with-gensyms ((&rest names) &body body) ... (defmacro once-only ((&rest names) &body body) ... It seems that a few weeks ago, when I used these macros Emacs would indent the bodies correctly, i.e. (with-gensyms (foo) (stuff ...)) and (once-only (foo) (stuff ...)) Then something changed and once-only started getting indented like this: (once-only (foo) (stuff ...)) Now (having just updated to CVS head) once-only gets indented correctly but with-gensyms is dorked up: (with-gensyms (foo) (stuff ...)) Help? (BTW, I'm using a fairly recent CVS version of Emacs--a week or two old, FWTW.) -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

5 13

[slime-devel] *sldb* fails to rebind printer control variables
by Lynn Quam 19 Oct '04

19 Oct '04

I find that debugging code involving the pprint functions (pprint-logical-block ...) is difficult because *sldb* continues to use the pprint control variables in effect when the debugger is entered. Perhaps *sldb* needs to rebind those variables to the "default state".

4 6

[slime-devel] swank.lisp compilation errors in Lispworks
by Alain.Picard＠memetrics.com 19 Oct '04

19 Oct '04

Dear Slimers, In current CVS version RCS file: /project/slime/cvsroot/slime/swank.lisp,v Working file: swank.lisp head: 1.251 There is a compilation error under Lispworks: ================================================================ CL-USER 1 > ; Loading text file /home/ap/Lisp/slime.cvs/swank-loader.lisp ; Loading fasl file /home/ap/.slime/fasl/lispworks-4.3.6/swank-backend.ufsl ; Loading fasl file /home/ap/.slime/fasl/lispworks-4.3.6/nregex.ufsl ; Loading fasl file /home/ap/.slime/fasl/lispworks-4.3.6/swank-lispworks.ufsl ; Loading fasl file /home/ap/.slime/fasl/lispworks-4.3.6/swank-gray.ufsl ;; Compiling /home/ap/Lisp/slime/swank.lisp... ;;; Compiling file /home/ap/Lisp/slime/swank.lisp ... ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on ; Loading fasl file /home/usr.local/Lispworks4.3/lib/4-3-0-0/modules/macros/specmac.ufsl ; Loading fasl file /home/usr.local/Lispworks4.3/lib/4-3-0-0/modules/seq/arraymac.ufsl **++++ Error between functions: Documentation NIL not of type STRING. ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-ESCAPE* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-RIGHT-MARGIN* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-CASE* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-LENGTH* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-LEVEL* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-CIRCLE* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 2 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-ESCAPE* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 2 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-RIGHT-MARGIN* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 2 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-CASE* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 2 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-LENGTH* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 2 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-LEVEL* assumed special ;;;*** Warning in (HARLEQUIN-COMMON-LISP:SUBFUNCTION 2 SWANK::SWANK-PPRINT): SWANK::*SWANK-PPRINT-CIRCLE* assumed special **++++ Error between functions: Documentation NIL not of type STRING. ;;;*** Warning in SWANK::DEBUG-IN-EMACS: SWANK::*SLDB-PRINT-READABLY* assumed special ;;;*** Warning in SWANK::DEBUG-IN-EMACS: SWANK::*SLDB-PRINT-CIRCLE* assumed special ;;;*** Warning in SWANK::DEBUG-IN-EMACS: SWANK::*SLDB-PRINT-LENGTH* assumed special ;;;*** Warning in SWANK::DEBUG-IN-EMACS: SWANK::*SLDB-PRINT-LEVEL* assumed special ;;;*** Warning in SWANK::DEBUG-IN-EMACS: SWANK::*SLDB-PRINT-PRETTY* assumed special ; Loading fasl file /home/usr.local/Lispworks4.3/lib/4-3-0-0/modules/package/packiter.ufsl ; Loading fasl file /home/usr.local/Lispworks4.3/lib/4-3-0-0/patches/packiter/0001/0001.ufsl ; Loaded public patch PACKITER 1.1 ; *** 2 errors detected, no fasl file produced. ;; *** Automatic Minor Clean Down ; Loading fasl file /home/ap/.slime/fasl/lispworks-4.3.6/swank.ufsl Warning: Using DEFPACKAGE to modify #<PACKAGE SWANK>. Warning: These Swank interfaces are unimplemented: (ADD-FD-HANDLER ADD-SIGIO-HANDLER DISASSEMBLE-FRAME PROFILE PROFILE-PACKAGE PROFILE-REPORT PROFILE-RESET PROFILED-FUNCTIONS REMOVE-FD-HANDLERS REMOVE-SIGIO-HANDLERS SLDB-BREAK-AT-START SLDB-BREAK-ON-RETURN SLDB-STEP UNPROFILE) ; Loading text file /home/ap/.swank.lisp #P"/home/ap/Lisp/slime.cvs/swank-loader.lisp" CL-USER 2 > ================================================================ Seems to have something to do with usages of this macro: (WITH-PRINTER-SETTINGS SLDB-PRINT in a few places. Cheers,

2 1

[slime-devel] find-definitions enhancements for sbcl
by Thomas F. Burdick 18 Oct '04

18 Oct '04

"M-." "How in the hell could that function *possibly* behave like it does?!?!" " ... oh, wait ... " The following patch adds compiler-macros, deftransforms, and defoptimizers to the things that M-. finds on sbcl. "Ahhhhh" Index: ChangeLog =================================================================== RCS file: /project/slime/cvsroot/slime/ChangeLog,v retrieving revision 1.548 diff -u -F^(def -r1.548 ChangeLog --- ChangeLog 7 Oct 2004 19:33:00 -0000 1.548 +++ ChangeLog 11 Oct 2004 18:07:51 -0000 @@ -1,3 +1,11 @@ +2004-10-11 Thomas Burdick <tfb(a)OCF.Berkeley.EDU> + + * swank-sbcl.lisp + (function-definitions): Find compiler macros, too. + (find-defintions, compiler-definitions) + (optimizer-definitions, transform-definitions): Add compiler + transformers and optimizers to the list of definitions. + 2004-10-07 Peter Seibel <peter(a)javamonkey.com> * swank.lisp (spawn-threads-for-connection): Bind *debugger-hook* Index: swank-sbcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v retrieving revision 1.104 diff -u -F^(def -r1.104 swank-sbcl.lisp --- swank-sbcl.lisp 17 Sep 2004 12:51:33 -0000 1.104 +++ swank-sbcl.lisp 11 Oct 2004 18:07:58 -0000 @@ -409,20 +409,52 @@ (defun method-definitions (gf) (defun function-definitions (name) (flet ((loc (fn name) (safe-function-source-location fn name))) - (cond ((and (symbolp name) (macro-function name)) - (list (list `(defmacro ,name) - (loc (macro-function name) name)))) - ((fboundp name) - (let ((fn (fdefinition name))) - (typecase fn - (generic-function - (cons (list `(defgeneric ,name) (loc fn name)) - (method-definitions fn))) - (t - (list (list `(function ,name) (loc fn name)))))))))) + (append + (cond ((and (symbolp name) (macro-function name)) + (list (list `(defmacro ,name) + (loc (macro-function name) name)))) + ((fboundp name) + (let ((fn (fdefinition name))) + (typecase fn + (generic-function + (cons (list `(defgeneric ,name) (loc fn name)) + (method-definitions fn))) + (t + (list (list `(function ,name) (loc fn name)))))))) + (when (compiler-macro-function name) + (list (list `(define-compiler-macro ,name) + (loc (compiler-macro-function name) name))))))) + +(defun transform-definitions (fun-info name) + (loop for xform in (sb-c::fun-info-transforms fun-info) + for loc = (safe-function-source-location + (sb-c::transform-function xform) name) + for typespec = (sb-kernel:type-specifier (sb-c::transform-type xform)) + for note = (sb-c::transform-note xform) + for spec = (if (consp typespec) + `(sb-c:deftransform ,(second typespec) ,note) + `(sb-c:deftransform ,note)) + collect `(,spec ,loc))) + +(defun optimizer-definitions (fun-info fun-name) + (let ((otypes '((sb-c::fun-info-derive-type . sb-c:derive-type) + (sb-c::fun-info-ltn-annotate . sb-c:ltn-annotate) + (sb-c::fun-info-ltn-annotate . sb-c:ltn-annotate) + (sb-c::fun-info-optimizer . sb-c:optimizer)))) + (loop for (reader . name) in otypes + for fn = (funcall reader fun-info) + when fn collect `((sb-c:defoptimizer ,name) + ,(safe-function-source-location fn fun-name))))) + +(defun compiler-definitions (name) + (let ((fun-info (sb-int:info :function :info name))) + (when fun-info + (append (transform-definitions fun-info name) + (optimizer-definitions fun-info name))))) (defimplementation find-definitions (name) - (function-definitions name)) + (append (function-definitions name) + (compiler-definitions name))) (defimplementation describe-symbol-for-emacs (symbol) "Return a plist describing SYMBOL.

3 3