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

[slime-devel] SBCL's with-timeout failed with slime-input-stream
by Jianshi Huang 02 Dec '10

02 Dec '10

Hi, I'm using SLIME (2010-11-07) with SBCL(1.0.44.22) on Linux x8664. The following code should signal an sb-ext:timeout condition but with-timeout isn't functioning on slime-input-stream with-timeout works with SBCL started from terminal. (sb-ext:with-timeout 1 (read *standard-input*)) CL-USER> *standard-input* #<SWANK-BACKEND::SLIME-INPUT-STREAM {1002C88D31}> Cheers, -- Jianshi Huang

3 4

[slime-devel] `slime-swank-port-file' format string
by MON KEY 24 Nov '10

24 Nov '10

`slime-swank-port-file's format string is generated from value of `emacs-pid' which returns an integer. Is there some reason why the format string shouldn't use "slime.%d" instead of "slime.%S"? -- /s_P\

1 0

[slime-devel] Execute REPL in main thread
by Tobias C Rittweiler 24 Nov '10

24 Nov '10

People on macosx are regularly bitten by some arcane restrictions in e.g. opengl that requires stuff to be executed in the main thread. Is it a too arcane use case, or do you think it warrants a new communication style that makes sure the main thread is used for the REPL? Actually there are more uses, for example I have a script "start-swank <port>" which I'd like to die in case something goes wrong with the Slime connection rather than be stuck in the native repl. -T.

2 1

[slime-devel] advanced source location recording
by Mark H. David 16 Nov '10

16 Nov '10

I have a fancy def type of macro -- lets call it DEFOPERATION, which takes a function name, args, and body, and eventually emits a corresponding DEFUN form to get the function defined. It gets sprinkled throughout the sources, but doesn't immediately invoke DEFUN. Instead, at some later point, another macro form is invoked -- lets say it's (DEFINE-DEFS-NOW), and that actually emits all the defuns. The problem is that when I do meta-. on any so-defined function, it takes me to the line in the source containing (DEFINE-DEFS-NOW). Not too interesting a place to go. What I really want is for it to take me to the corresponding DEFOPERATION. How can I make this work better in SLIME? Or, if it's an implementation thing, or partially so, what can I do specifically in my Lisps, specifically CCL and/or SBCL, to make this work better? Thanks, Mark

3 4

[slime-devel] Daily ChangeLog diff
by Helmut Eller 14 Nov '10

14 Nov '10

Index: slime/ChangeLog diff -u slime/ChangeLog:1.2164 slime/ChangeLog:1.2165 --- slime/ChangeLog:1.2164 Fri Nov 12 14:42:51 2010 +++ slime/ChangeLog Sat Nov 13 06:18:03 2010 @@ -1,3 +1,13 @@ +2010-11-13 Helmut Eller <heller(a)common-lisp.net> + + Improve source locations for compiler messages in Lispworks. + + * swank-lispworks.lisp (map-error-database) + (signal-error-data-base, make-dspec-progenitor-location): Pass the + edit-path along. + (signal-undefined-functions): No edit-path available so just use + nil. + 2010-11-12 Helmut Eller <heller(a)common-lisp.net> Improve frame-source-location for Lispworks.

1 0

[slime-devel] Daily ChangeLog diff
by Helmut Eller 13 Nov '10

13 Nov '10

Index: slime/ChangeLog diff -u slime/ChangeLog:1.2163 slime/ChangeLog:1.2164 --- slime/ChangeLog:1.2163 Sun Nov 7 14:48:21 2010 +++ slime/ChangeLog Fri Nov 12 14:42:51 2010 @@ -1,3 +1,17 @@ +2010-11-12 Helmut Eller <heller(a)common-lisp.net> + + Improve frame-source-location for Lispworks. + + * swank-lispworks.lisp (frame-source-location): Exctract the + edit-path from the frame and pass it to Emacs. + (edit-path-to-cmucl-source-path): New function. + (frame-location): Use it. + + * slime.el (slime-location-offset): Add a :edit-path property. + (slime-search-edit-path): New function. + (slime-search-call-site): Fix regexp to match + zero arg functions. + 2010-11-07 Helmut Eller <heller(a)common-lisp.net> * swank-backend.lisp (label-value-line): Remove display-nil-value.

1 0

[slime-devel] `slime-space', `slime-show-arglist', `slime-echo-arglist' + STFU
by MON KEY 09 Nov '10

09 Nov '10

Hello slime-devels, I'd like to propose the following changes/additions to `slime-space' around `slime-echo-arglist'. As best I can gather these provide the quickest path to toggling the verbosity of `slime-space's invocation of `slime-echo-arglist' (which I find too distracting at times). I'd also like to suggest that various of slime-autodoc's variables be made permanent-local. AFAICT the emacs-devels (esp. their fearless leader) are increasingly less adverse to judicious use of and apportioning of permanent buffer-locals and as such Slime could be making better use of permanent-locals as well :) -- /s_P\ ;;; ============================== ;;; :CREATED <Timestamp: #{2010-10-31T16:15:03-04:00Z}#{10437} - by MON> (defvar *slime-echo-arglist-STFU* nil "When non-nil `slime-space' won't invoke `slime-echo-arglist' verbosely.\n `slime-echo-arglist-behave-or-back-to-your-cage' toggles `slime-echo-arglist' back on, and `slime-echo-arglist-STFU' shuts it up again.\n Evaluate `slime-show-arglist' explicitly if an arglist is needed.\n :SEE-ALSO `slime-echo-arglist-function'.\n►►►") ;; (make-variable-buffer-local '*slime-echo-arglist-STFU*) (put '*slime-echo-arglist-STFU* 'permanent-local t) (set-default '*slime-echo-arglist-STFU* nil) (defun slime-echo-arglist-behave-or-back-to-your-cage () "De-gimpify `slime-space's and allow `slime-echo-arglist' in current-buffer.\n Evaluate `slime-echo-arglist-STFU' to tone down the minibuffer noise.\n :SEE ALSO `*slime-echo-arglist-STFU*', `slime-echo-arglist-function'.\n►►►" (interactive) (with-current-buffer (current-buffer) (set (make-local-variable 'slime-echo-arglist-STFU) nil))) (defun slime-echo-arglist-STFU () "Silence `slime-space's invocation of `slime-echo-arglist' in current-buffer.\n Evaluate `slime-echo-arglist-behave-or-back-to-your-cage' to turn it back on.\n Evaluate `slime-show-arglist' explicitly if an arglist is needed. :SEE-ALSO `*slime-echo-arglist-STFU*', `slime-echo-arglist-function'.\n►►►" (interactive) (with-current-buffer (current-buffer) (set (make-local-variable 'slime-echo-arglist-STFU) t))) (defun slime-space (n) (interactive "p") (self-insert-command n) (when (and (not *slime-echo-arglist-STFU*) ;; <- redefined here. (slime-background-activities-enabled-p)) (slime-echo-arglist))) (defun slime-space (n) "Insert a space and print some relevant information (function arglist). Designed to be bound to the SPC key. Prefix argument can be used to insert more than one space." (interactive "p") (self-insert-command n) (when (and (not *slime-echo-arglist-STFU*) ;; <- redefined here. (slime-background-activities-enabled-p)) (slime-echo-arglist)))

2 2

[slime-devel] `slime-goto-next-export-clause' in contrib/slime-package-fu.el missing needlessly
by MON KEY 09 Nov '10

09 Nov '10

;; From Emacs with slime-mode active (i.e. visiting a lisp file), ;; evaluating with `eval-expression' with point immediately ;; following this comment the following expression: ;; ;; (progn (slime-forward-sexp)(sit-for 1)(slime-goto-next-export-clause)) ;; ;; signals an error. It needn't. `slime-goto-next-export-clause' ;; could benefit from the addition of `slime-forward-cruft' after ;; the `skip-chars-forward' expression (see diff below). #+sbcl (:import-from #:sb-int #:keywordicate ) ;; (:shadowing-import-from {...} ) (:export ;; Following diff is against slime from CVS ;; ;; =================================================================== ;; RCS file: /project/slime/cvsroot/slime/contrib/slime-package-fu.el,v ;; retrieving revision 1.12 ;; diff -u -r1.12 slime-package-fu.el ;; --- slime-package-fu.el 24 Jul 2010 23:39:24 -0000 1.12 ;; +++ slime-package-fu.el 5 Nov 2010 23:08:16 -0000 ;; @@ -106,6 +106,7 @@ ;; (block nil ;; (while (ignore-errors (slime-forward-sexp) t) ;; (skip-chars-forward " \n\t") ;; + (slime-forward-cruft) ;; (when (slime-at-expression-p '(:export *)) ;; (setq point (point)) ;; (return))))) -- /s_P\

1 0

[slime-devel] Daily ChangeLog diff
by Helmut Eller 08 Nov '10

08 Nov '10

Index: slime/ChangeLog diff -u slime/ChangeLog:1.2161 slime/ChangeLog:1.2163 --- slime/ChangeLog:1.2161 Wed Nov 3 07:00:40 2010 +++ slime/ChangeLog Sun Nov 7 14:48:21 2010 @@ -1,3 +1,14 @@ +2010-11-07 Helmut Eller <heller(a)common-lisp.net> + + * swank-backend.lisp (label-value-line): Remove display-nil-value. + And the other stuff too. + (label-value-line*): Idem. + +2010-11-07 Helmut Eller <heller(a)common-lisp.net> + + * swank-loader.lisp: ASDF free again. And proud of it! + (default-fasl-dir, load-swank): Remove asdf stuff. + 2010-11-03 Stas Boukarev <stassats(a)gmail.com> * swank-loader.lisp (*architecture-features*): Add :arm for CCL

1 0

[slime-devel] additionnal option to slime-eval-print: prefix the result with "; ; --> "
by pjb＠informatimago.com 06 Nov '10

06 Nov '10

(progn (print "Hello World!") (values 1 2)) C-u C-x C-e inserts: "Hello World!" 1 2 With one more C-u: (progn (print "Hello World!") (values 1 2)) C-u C-u C-x C-e I'd want to get: "Hello World!" ;; --> 1 ;; 2 Hence this new version: (defun slime-eval-print (string) "Eval STRING in Lisp; insert any output and the result at point." (message "current-prefix-arg = %S" current-prefix-arg) (let ((commentp (and (listp current-prefix-arg) (integerp (first current-prefix-arg)) (< 4 (first current-prefix-arg))))) (slime-eval-async `(swank:eval-and-grab-output ,string) `(lambda (result) (destructuring-bind (output value) result (push-mark) (if ,commentp (progn (insert output) (let ((lines (split-string value "\n"))) (insert "\n;; --> " (first lines) "\n") (dolist (line (rest lines)) (insert ";; " line "\n")))) (insert output value))))))) (The ,commentp is icky, but it's emacs lisp). -- __Pascal Bourguignon__ http://www.informatimago.com/ A bad day in () is better than a good day in {}.

1 0