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

[slime-devel] sldb frame restarts now work with non-null argument lists under Allegro
by Ian Eslick 20 Jan '05

20 Jan '05

I have filed a bug report with Franz to fix the incorrect implementation of the spec for 'debugger:frame-retry' that was causing the failure of frame restarts with arguments. I did find a workaround for this (highly annoying) problem. --------------------- ;;; XXX doesn't work for frames with arguments (defimplementation restart-frame (frame-number) (let ((frame (nth-frame frame-number))) (apply #'debugger:frame-retry (append (list frame (debugger:frame-function frame)) (cdr (debugger:frame-expression frame)))))) --------------------- The comment should be removed. This has been tested on keyword, optional and standard argument lists but may not work for all cases. Cheers, Ian

2 1

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 19 Jan '05

19 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.600 slime/ChangeLog:1.602 --- slime/ChangeLog:1.600 Tue Jan 18 08:03:16 2005 +++ slime/ChangeLog Wed Jan 19 10:32:16 2005 @@ -1,10 +1,39 @@ +2005-01-19 Helmut Eller <heller(a)common-lisp.net> + + * swank-gray.lisp (stream-unread-char): If the char argument + doesn't match the contents in the buffer, ignore it and emit a + warning instead. + +2005-01-19 Utz-Uwe Haus <haus+slime(a)merkur.math.uni-magdeburg.de> + + * swank-cmucl.lisp (breakpoint): Add a slot for return values to + make return values inspectable in the debugger. + (signal-breakpoint): Initialize the new slot. + +2005-01-19 Matthias Koeppe <mkoeppe+slime(a)merkur.math.uni-magdeburg.de> + + * slime.el (slime-insert-arglist): Inserts a template for a + function call instead of the plain arglist; this makes a + difference for functions with optional and keyword arguments. + + * swank.lisp (arglist-to-template-string): New function. + (arglist-for-insertion): Use it + (decode-keyword-arg, decode-optional-arg): New functions. + +2005-01-19 Lars Magne Ingebrigtsen <larsi(a)gnus.org> + + * slime.el (slime-header-line-p): Customize variable to + enable/disable the header-line in the REPL. + 2005-01-18 Luke Gorrie <luke(a)synap.se> * slime.el (slime-complete-symbol*-fancy): New variable to enable extra bells and whistles with slime-complete-symbol*. Currently - controls whether to use arglists semantically. - (slime-complete-symbol*): Avoid displaying an arglist when the - minibuffer is active. + controls whether to use arglists semantically. Default is t. + (slime-complete-symbol*-fancy-bit): Factored out this function. + Only do "semantic" completion when the symbol is in + function-position, avoid interning argument names in Emacs, and + don't display arglists if the minibuffer is active. 2005-01-14 Luke Gorrie <luke(a)synap.se>

1 0

[slime-devel] Patch to make slime-insert-arglist more useful
by Matthias Koeppe 19 Jan '05

19 Jan '05

Please find below a patch that makes C-c C-s (slime-insert-arglist) much more useful. Instead of inserting a formal argument list, it inserts a template for a function call; this makes a difference for functions with optional and keyword arguments. After inserting the arguments, point is left on the first argument, like ILISP's C-u M-x arglist-lisp does; this allows editing the arguments easily. Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.443 diff -u -p -u -r1.443 slime.el --- slime.el 16 Dec 2004 22:24:41 -0000 1.443 +++ slime.el 17 Dec 2004 13:24:07 -0000 @@ -4227,7 +4227,17 @@ more than one space." "Insert the argument list for NAME behind the symbol point is currently looking at." (interactive (list (slime-read-symbol-name "Arglist of: "))) - (insert (slime-eval `(swank:arglist-for-insertion ',name)))) + (let ((arglist (slime-eval `(swank:arglist-for-insertion ',name)))) + (cond + ((eq arglist :not-available) + (error "Arglist not available")) + ((string-match "^(" arglist) + (insert " ") + (save-excursion + (insert (substring arglist 1)))) + (t + (save-excursion + (insert arglist)))))) (defun slime-get-arglist (symbol-name) "Return the argument list for SYMBOL-NAME." Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.272 diff -u -p -u -r1.272 swank.lisp --- swank.lisp 16 Dec 2004 21:16:50 -0000 1.272 +++ swank.lisp 17 Dec 2004 13:25:18 -0000 @@ -1143,17 +1143,108 @@ pretty printing of (function foo) as #'f (*print-length* 10) (*print-circle* t)) (format nil "~A => ~A" sym (symbol-value sym))))))) +(defun decode-keyword-arg (arg) + "Decode a keyword item of formal argument list. +Return three values: keyword, argument name, default arg." + (cond + ((symbolp arg) + (values (intern (symbol-name arg) keyword-package) + arg + nil)) + ((and (consp arg) + (consp (car arg))) + (values (caar arg) + (cadar arg) + (cadr arg))) + ((consp arg) + (values (intern (symbol-name (car arg)) keyword-package) + (car arg) + (cadr arg))) + (t + (error "Bad keyword item of formal argument list")))) +(progn + (assert (equal (multiple-value-list (decode-keyword-arg 'x)) '(:x x nil))) + (assert (equal (multiple-value-list (decode-keyword-arg '(x t))) '(:x x t))) + (assert (equal (multiple-value-list (decode-keyword-arg '((:x y)))) '(:x y nil))) + (assert (equal (multiple-value-list (decode-keyword-arg '((:x y) t))) '(:x y t)))) +(defun decode-optional-arg (arg) + "Decode an optional item of a formal argument list. +Return two values: argument name, default arg." + (etypecase arg + (symbol + (values arg nil)) + (list + (values (car arg) (cadr arg))))) +(progn + (assert (equal (multiple-value-list (decode-optional-arg 'x)) '(x nil))) + (assert (equal (multiple-value-list (decode-optional-arg '(x t))) '(x t)))) + +(defun arglist-to-template-string (arglist package) + "Print the list ARGLIST for insertion as a template for a function call." + (setq arglist (clean-arglist arglist)) + (etypecase arglist + (null "()") + (cons + (with-output-to-string (*standard-output*) + (with-standard-io-syntax + (let ((*package* package) (*print-case* :downcase) + (*print-pretty* t) (*print-circle* nil) (*print-readably* nil) + (*print-level* 10) (*print-length* 20)) + (pprint-logical-block (nil nil :prefix "(" :suffix ")") + (let ((mode nil)) + (loop + (let ((arg (pop arglist))) + (typecase arg + ((member &key &optional &rest &body) + (setq mode arg)) + (string + (princ arg) + (unless (null arglist) + (write-char #\space))) + (t + (case mode + (&key + (multiple-value-bind (keyword arg-symbol default-arg) + (decode-keyword-arg arg) + (declare (ignore default-arg)) + (write keyword) + (write-char #\space) + (princ arg-symbol))) + (&optional + (multiple-value-bind (arg-symbol default-arg) + (decode-optional-arg arg) + (declare (ignore default-arg)) + (write-char #\[) + (princ arg-symbol) + (write-char #\]))) + (&body + (pprint-newline :mandatory) + (princ arg) + (princ "...")) + (&rest + (princ arg) + (princ "...")) + (otherwise + (princ arg))) + (unless (null arglist) + (write-char #\space))))) + (when (null arglist) (return)) + (pprint-newline :fill)))))))))) + +(defun test-print-template (list string) + (string= (arglist-to-template-string list (find-package :swank)) string)) + (defslimefun arglist-for-insertion (name) (with-buffer-syntax () (cond ((valid-operator-name-p name) (let ((arglist (arglist (parse-symbol name)))) (etypecase arglist ((member :not-available) - " <not available>") + :not-available) (list - (arglist-to-string arglist *buffer-package*))))) + (arglist-to-template-string arglist *buffer-package*))))) (t - " <not available>")))) + :not-available)))) ;;;; Evaluation -- Matthias Köppe -- http://www.math.uni-magdeburg.de/~mkoeppe

2 2

[slime-devel] Inspecting return value at breakpoints (patch included)
by Utz-Uwe Haus 19 Jan '05

19 Jan '05

Hi, I found that when I stop on a breakpoint set with sldb-break-on-return, I am often interested in inspecting the return value. That is printed in the sldb buffer, but not inspectable. Currently I am using the following modifications to signal-breakpoint in the CMUCL case, which make en entry in the breakpoint condition. Then, inspecting the condition yields the information I'm interested in. This is not very beautiful, and it only works with CMUCL, but in case someone can make use of it... later, Utz ----- Index: swank-cmucl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-cmucl.lisp,v retrieving revision 1.136 diff -u -r1.136 swank-cmucl.lisp --- swank-cmucl.lisp 13 Jan 2005 23:17:02 -0000 1.136 +++ swank-cmucl.lisp 18 Jan 2005 12:29:19 -0000 @@ -1727,7 +1727,8 @@ (c::compiled-debug-function-returns cdfun))) (define-condition breakpoint (simple-condition) - ((message :initarg :message :reader breakpoint.message)) + ((message :initarg :message :reader breakpoint.message) + (values :initarg :values :reader breakpoint.values)) (:report (lambda (c stream) (princ (breakpoint.message c) stream)))) (defimplementation condition-extras ((c breakpoint)) @@ -1740,13 +1741,18 @@ (flet ((brk (fstring &rest args) (let ((msg (apply #'format nil fstring args)) (debug:*stack-top-hint* frame)) - (break 'breakpoint :message msg)))) + (break 'breakpoint :message msg))) + (brk-with-values (values fstring &rest args) + (let ((msg (apply #'format nil fstring args)) + (debug:*stack-top-hint* frame)) + (break 'breakpoint :values values :message msg))) ) (with-struct (di::breakpoint- kind what) breakpoint (case kind (:code-location (case (di:code-location-kind what) ((:single-value-return :known-return :unknown-return) - (brk "Return value: ~{~S ~}" (breakpoint-values breakpoint))) + (brk-with-values (breakpoint-values breakpoint) + "Return value: ~{~S ~}" (breakpoint-values breakpoint))) (t (brk "Breakpoint: ~S ~S" (di:code-location-kind what) ----- -- Utz-Uwe Haus haus(a)mail.math.uni-magdeburg.de Inst. f. Mathemat. Optim. utz(a)uuhaus.de Uni Magdeburg PGP keys 1024/6AD23BE1 and 2048/5D0B72A1 GERMANY available via keyservers or email request

2 1

[slime-devel] SBCL 0.8.18 with SLIME
by frodeaux 19 Jan '05

19 Jan '05

I'm new to SLIME. Installing with the latest SBCL seems to go ok with the "Meta-x slime" until I get the following Connected. Hack and be merry! error in process filter: slime-process-available-input: Wrong type argument: listp, \223 error in process filter: Wrong type argument: listp, \223 Can anyone suggest how to deal with this? Thanks

2 1

[slime-devel] Problem with reading from *QUERY-IO*
by Peter Seibel 19 Jan '05

19 Jan '05

In a just synced SLIME running against a just synced CVS Emacs an GNU/Linux with Allegro 7.0 I seem to be having some trouble reading from *QUERY-IO*. One call works fine but two calls in a row drop me in a debugger, perhaps because there's some extra characters on the stream that are being considered as constituent chars. Here's a simple test case: CL-USER> (progn (read *query-io*) (read *query-io*)) :foo :bar ; Evaluation aborted The error in the debugger was this: Package "^@" not found. [Condition of type READER-ERROR] Restarts: 0: [ABORT] Abort handling SLIME request. 1: [ABORT] Abort entirely from this (lisp) process. Backtrace: 0: (SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x72144cd2>) 1: ((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT)) 2: (SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x72144cd2> #<Function SWANK-DEBUGGER-HOOK>) 3: (ERROR READER-ERROR :STREAM #<TWO-WAY-STREAM "" @ #x71345fd2> :FORMAT-CONTROL "~?~@[ [file position = ~d]~]" :FORMAT-ARGUMENTS ("Package ~S not found." ("") NIL)) 4: (READ #<TWO-WAY-STREAM "" @ #x71345fd2>) 5: (EVAL (PROGN (READ *QUERY-IO*) (READ *QUERY-IO*))) ... As far as I can tell the ^@ is a null (char-code #\^@) ==> 0 -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

3 2

[slime-devel] Small patch for disabling the Emacs 21 header line
by Lars Magne Ingebrigtsen 19 Jan '05

19 Jan '05

I really like using all the lines in my buffers, so here's a patch to allow people to switch the header line off: *** slime.el.~1.448.~ Mon Jan 17 15:50:47 2005 --- slime.el Wed Jan 19 11:08:17 2005 *************** *** 2273,2278 **** --- 2273,2283 ---- ;;;; Stream output + (defcustom slime-header-line-p t + "If non-nil, display a header line in Slime buffers." + :type 'boolean + :group 'slime-repl) + (make-variable-buffer-local (defvar slime-output-start nil "Marker for the start of the output for the evaluation.")) *************** *** 2311,2317 **** (slime-connection-port (slime-connection)) (slime-pid))) ;; Emacs21 has the fancy persistent header-line. ! (use-header-p (boundp 'header-line-format)) ;; and dancing text (animantep (and (fboundp 'animate-string) slime-startup-animation --- 2316,2323 ---- (slime-connection-port (slime-connection)) (slime-pid))) ;; Emacs21 has the fancy persistent header-line. ! (use-header-p (and slime-header-line-p ! (boundp 'header-line-format))) ;; and dancing text (animantep (and (fboundp 'animate-string) slime-startup-animation -- (domestic pets only, the antidote for overdose, milk.) larsi(a)gnus.org * Lars Magne Ingebrigtsen

2 1

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 18 Jan '05

18 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.599 slime/ChangeLog:1.600 --- slime/ChangeLog:1.599 Fri Jan 14 09:08:49 2005 +++ slime/ChangeLog Tue Jan 18 08:03:16 2005 @@ -1,3 +1,11 @@ +2005-01-18 Luke Gorrie <luke(a)synap.se> + + * slime.el (slime-complete-symbol*-fancy): New variable to enable + extra bells and whistles with slime-complete-symbol*. Currently + controls whether to use arglists semantically. + (slime-complete-symbol*): Avoid displaying an arglist when the + minibuffer is active. + 2005-01-14 Luke Gorrie <luke(a)synap.se> * slime.el (slime-repl-send-input): Make old input read-only using

1 0

[slime-devel] More completion shortcuts
by Edi Weitz 18 Jan '05

18 Jan '05

OK, here's another little completion shortcut that I think would be nice to have. YMMV, of course. Good night, Edi.

3 4

[slime-devel] *read-default-float-format* with C-c C-k, , load-system, etc.
by Dirk Gerrits 17 Jan '05

17 Jan '05

Hi, I'm not 100% sure this is a SLIME question, an ASDF question, or a Common Lisp question, but I'll ask it here anyway. In my program I'd like to have *read-default-float-format* be long-float instead of the default single-float. To accomplish this, I added (eval-when (:compile-toplevel :load-toplevel :execute) (setq *read-default-float-format* 'long-float)) to package.lisp, which should be the first file to be compiled/loaded by ASDF. Now if I do a ,load-system in the SLIME REPL, everything is fine: *read-default-float-format* evaluates to long-float during compilation and also does in the REPL. However, if I open one of my files, and add (defun foo () 50.0), do a C-M-x to compile it, and then call (foo) in the REPL, I get 50.0f0 instead of 50.0d0. C-c C-k doesn't help either, and C-x C-e on the 50.0 also produces a single-float. If I then save the file and do another ,load-system, then (foo) in the REPL /will/ return 50.0d0, as expected. How can I get C-M-x, C-c C-k and C-x C-e to use long-floats too? Am I doing something wrong that causes them to behave differently from ,load-system? I'm using SLIME and Emacs from CVS, and have set inferior-lisp-program and slime-multiprocessing to "sbcl" and t, respectively. Kind regards, Dirk Gerrits

4 13