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

[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

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

17 Oct '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.548 slime/ChangeLog:1.552 --- slime/ChangeLog:1.548 Thu Oct 7 21:33:00 2004 +++ slime/ChangeLog Sun Oct 17 23:51:40 2004 @@ -1,3 +1,60 @@ +2004-10-17 Luke Gorrie <luke(a)synap.se> + + * slime.el (slime-message): Use slime-typeout-frame if available. + +2004-10-17 Helmut Eller <heller(a)common-lisp.net> + + * cl-indent.el: Our local copy. Should eventually be merged the + file with in the main distribution. + + * slime.el: (slime-find-buffer-package-function): New variable to + allow customization for unusal syntax. + (slime-maybe-rearrange-inferior-lisp): Removed unused function. + (slime-set-inferior-process): Non-macro version to make + byte-compiler happy. Reported by Raymond Wiker. + (slime-maybe-start-lisp): Use it. + (slime-sync-package-and-default-directory): Synch the + default-directory in the REPL buffer too. + (slime-goto-connection): Close the connection list window. + Suggested by Andras Simon. + (slime-repl-clear-buffer): Place point after the prompt. + (selector-method ?i): Use slime-process to switch to the right + buffer. + (slime-background-message): Do nothing if the minibuffer is + active. + (slime-indent-and-complete-symbol): Don't indent if we at the same + line as the prompt. + + * swank.lisp (*sldb-pprint-frames*): Renamed to + *sldb-print-pretty*. + (*sldb-print-level*, *sldb-print-length*, *sldb-print-circle*) + (*sldb-print-readbly): Group of new variables to customize + printing in the debugger. The default values should be safe. + (define-printer-variables, with-printer-settings): New macros to + make defining and binding groups of printer variables easier. + (inspect-for-emacs-list): Fix bug with circular lists and only + shows the first 40 elements. + (inspect-for-emacs): Various cleanups. + (all-qualified-readnames): Removed. It was not needed because + common-lisp-indent-function strips of any package prefix and + downcases the symbol anyway. + (printer-variables sldb-print): Ooops. Better use sldb-print as prefix + than sldb alone. *sldb-level* was already defined. + + * swank-cmucl.lisp (inspect-for-emacs (code-component)): + Disassemble the memory region if there's not enough debug info. + +2004-10-17 Jan Rychter <jan(a)rychter.com> + + * swank-cmucl.lisp (return-from-frame): Add it. + +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*

1 0

[slime-devel] slime-message fixes
by Thomas F. Burdick 17 Oct '04

17 Oct '04

Using Carbon Emacs, slime-message currently uses message, which only shows up to 7 lines. Similarly, slime-display-message doesn't necessarily show all of the message, either. For me, this means truncated displays of compiler notes :-( The following patch fixes slime-message to show the entirety of a message, at least on my system. Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.408 diff -u -F^(def -r1.408 slime.el --- slime.el 3 Oct 2004 12:56:10 -0000 1.408 +++ slime.el 11 Oct 2004 02:24:33 -0000 @@ -917,10 +917,12 @@ (defun slime-message (format &rest args) other Emacsen they use the \"typeout frame\" if it is active, otherwise a temporary window that is automatically dismissed before the next command." - (if (or (featurep 'xemacs) - (= emacs-major-version 20)) - (slime-display-message (apply #'format format args) "*SLIME Note*") - (apply 'message format args))) + (let ((message (apply #'format format args))) + (if (or (featurep 'xemacs) + (= emacs-major-version 20) + (> (count ?\n message) 6)) + (slime-display-message message "*SLIME Note*") + (message "%s" message)))) (defun slime-display-message (message buffer-name) "Display MESSAGE in the echo area or in BUFFER-NAME. @@ -940,8 +942,7 @@ (defun slime-display-message (message bu (goto-char (point-min)) (let ((win (slime-create-message-window))) (set-window-buffer win (current-buffer)) - (shrink-window-if-larger-than-buffer - (display-buffer (current-buffer))))) + (fit-window-to-buffer (display-buffer (current-buffer))))) (push (lambda () (delete-windows-on buffer) (bury-buffer buffer)) slime-pre-command-actions)))) (t (message "%s" message))))

2 2

[slime-devel] forcing use of typeout frame
by pjm＠spe.com 17 Oct '04

17 Oct '04

I'm using Slime with SBCL and have a typeout frame but output is still going into the minibuffer, even when multiple lines should be displayed. Any idea what I have misconfigured? Thanks, Patrick

2 1

[slime-devel] slime equivalent of ilisp-defpackage-command-string ?
by Pascal J.Bourguignon 17 Oct '04

17 Oct '04

What is the slime equivalent of ilisp-defpackage-command-string? That is, a regexp that allow the user to indicate slime what sexp sets the current package (in-package)? I've got a custom macro that invokes IN-PACKAGE, and obviously, it is not recognized, so my slime-eval-last-expression are always executed in the wrong package... ilisp did the right thing )-; -- __Pascal Bourguignon__ http://www.informatimago.com/ Voting Democrat or Republican is like choosing a cabin in the Titanic.

2 1

[slime-devel] slime-inferior-process?
by Raymond Wiker 17 Oct '04

17 Oct '04

I'm having some trouble byte-compiling slime.el v 1.408. The compielr fails because there is no (setf slime-inferior-process) defined. In fact, looking at the code, there seems to be some confusion as to whether slime-inferior-process is a simple variable, a pair of functions for associating a process id with a network connection, or even a member of a class or struct.

2 2

[slime-devel] indentation ???
by Pascal J.Bourguignon 17 Oct '04

17 Oct '04

Indentation without slime: (DEFMACRO DEFTRANSLATION (TABLE TEXT LANGUAGE TRANSLATION &REST LANGS-TRANS) `(PROGN (DEFVAR ,TABLE (MAKE-HASH-TABLE :TEST (FUNCTION EQUAL))) (SETF ,@(DO ((LT (CONS LANGUAGE (CONS TRANSLATION LANGS-TRANS))) (RESULT ,())) ((NULL LT) (NREVERSE RESULT)) (PUSH `(GETHASH (CONS ,TEXT ,(POP LT)) ,TABLE)) (LET ((TRANS (POP LT))) (IF (EQ TRANSLATION :IDEM) `,TEXT `,TRANSLATION))))) );;deftranslation (DEFUN LOCALIZE (TABLE LANGUAGE TEXT) " RETURN: A version of the text in the given language. " (LET ((SYM (INTERN-SOFT TEXT TABLE))) (IF SYM (LET ((RESULT (GET SYM LANGUAGE))) (IF RESULT RESULT (LOCALIZE TABLE :EN TEXT))) TEXT)));;localize Indentation with slime: (DEFMACRO DEFTRANSLATION (TABLE TEXT LANGUAGE TRANSLATION &REST LANGS-TRANS) `(PROGN (DEFVAR ,TABLE (MAKE-HASH-TABLE :TEST (FUNCTION EQUAL))) (SETF ,@(DO ((LT (CONS LANGUAGE (CONS TRANSLATION LANGS-TRANS))) (RESULT ,())) ((NULL LT) (NREVERSE RESULT)) (PUSH `(GETHASH (CONS ,TEXT ,(POP LT)) ,TABLE)) (LET ((TRANS (POP LT))) (IF (EQ TRANSLATION :IDEM) `,TEXT `,TRANSLATION))))) );;DEFTRANSLATION (DEFUN LOCALIZE (TABLE LANGUAGE TEXT) " RETURN: A version of the text in the given language. " (LET ((SYM (INTERN-SOFT TEXT TABLE))) (IF SYM (LET ((RESULT (GET SYM LANGUAGE))) (IF RESULT RESULT (LOCALIZE TABLE :EN TEXT))) TEXT)));;LOCALIZE The slime-indentation of &REST is right, but all the rest is wrong. How could I disable it? -- __Pascal Bourguignon__ http://www.informatimago.com/ Voting Democrat or Republican is like choosing a cabin in the Titanic.

2 1