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

[slime-devel] Daily ChangeLog diff
by Helmut Eller 11 Dec '11

11 Dec '11

Index: slime/ChangeLog diff -u slime/ChangeLog:1.2281 slime/ChangeLog:1.2286 --- slime/ChangeLog:1.2281 Fri Dec 9 03:02:03 2011 +++ slime/ChangeLog Sat Dec 10 04:58:42 2011 @@ -1,3 +1,30 @@ +2011-12-10 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (auto-flush-loop): Don't use call-with-io-timeout. + Removing it had no effect on the number of failed tests. If you + want it back, first create a test case to demonstrate the problem. + * swank-backend.lisp: Mention that locks should only be used in + swank-gray.lisp. + +2011-12-10 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp: Move io-redirection to contrib/swank-repl.lisp. + +2011-12-10 Helmut Eller <heller(a)common-lisp.net> + + Make *active-threads* a slot of the connection struct. + + * swank.lisp (*active-threads*): Deleted + ([struct] multithreaded-connection): New slot active-threads. + (find-worker-thread, interrupt-worker-thread) + (thread-for-evaluation): Update accordingly. + (add-active-thread, remove-active-thread): New helpers. + +2011-12-10 Helmut Eller <heller(a)common-lisp.net> + + * swank-loader.lisp (delete-stale-contrib-fasl-files): New. + (compile-contribs): Use it. + 2011-12-09 Helmut Eller <heller(a)common-lisp.net> Create an extra thread for the indentation cache. @@ -18,7 +45,7 @@ 2011-12-07 Helmut Eller <heller(a)common-lisp.net> * swank.lisp (*slime-interrupts-enabled*): Describe the idea - behind the interrupt handlig code a bit. + behind the interrupt handling code a bit. 2011-12-07 Helmut Eller <heller(a)common-lisp.net> @@ -79,7 +106,7 @@ 2011-12-07 Stas Boukarev <stassats(a)gmail.com> - * doc/.cvsignore: Aadd html.tgz + * doc/.cvsignore: Add html.tgz 2011-12-07 Didier Verna <didier(a)xemacs.org> Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.525 slime/contrib/ChangeLog:1.526 --- slime/contrib/ChangeLog:1.525 Thu Dec 8 05:54:19 2011 +++ slime/contrib/ChangeLog Sat Dec 10 04:33:57 2011 @@ -1,3 +1,11 @@ +2011-12-10 Helmut Eller <heller(a)common-lisp.net> + + Don't call init-global-stream-redirection in *after-init-hook*. + *after-init-hook* may be called before the contrib was loaded. + + * swank-repl.lisp (maybe-redirect-global-io): Call + init-global-stream-redirection here instead. + 2011-12-08 Nikodemus Siivola <nikodemus(a)random-state.net> * slime-cl-indent.el (lisp-indent-maximum-backtracking)

1 0

[slime-devel] installing
by Haris Bogdanovich 10 Dec '11

10 Dec '11

I download slime-current.gz When I decompress it I just get slime-current file without a suffix. Shouldn't I get a folder instead ? Thanks

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 10 Dec '11

10 Dec '11

Index: slime/ChangeLog diff -u slime/ChangeLog:1.2280 slime/ChangeLog:1.2281 --- slime/ChangeLog:1.2280 Wed Dec 7 14:04:37 2011 +++ slime/ChangeLog Fri Dec 9 03:02:03 2011 @@ -1,3 +1,20 @@ +2011-12-09 Helmut Eller <heller(a)common-lisp.net> + + Create an extra thread for the indentation cache. + + * swank.lisp (indentation-cache-loop): New. + ([struct] multithreaded-connection): New slot + indentation-cache-thread. + (control-thread, cleanup-connection-threads): Create/kill it. + (send-to-indentation-cache): New function. + (update-indentation-information, sync-indentation-to-emacs): Use + it. + (perform-indentation-update, update-indentation/delta-for-emacs): + Add package as argument; that used to be *buffer-package. Can + again be simpler as the indentation-cache-thread doesn't share the + cache with others. + (handle-indentation-cache-request, symbol-packages): New helpers. + 2011-12-07 Helmut Eller <heller(a)common-lisp.net> * swank.lisp (*slime-interrupts-enabled*): Describe the idea

1 0

[slime-devel] Abort loading file "/usr/share/common-lisp/source/slime/swank-loader.lisp"
by Irène Durand 09 Dec '11

09 Dec '11

Hello, I am teaching Lisp for a weak in Vietnam. One of my students could not start Slime although he had the same environment (Ubuntu, Emacs23, SBCL) as his other colleagues. He has installed SBCL and Slime using "apt-get". All the things I usually try usually in the .emacs file did not work so I am turning to you for help. Below the trace of the loading of Slime. I thank you in advance, Irène Durand Le 09/12/11 08:37, Thien Sy a écrit : > (progn (load "/usr/share/common-lisp/source/slime/swank-loader.lisp" > :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall > (read-from-string "swank:start-server") "/tmp/slime.3613" > :coding-system "iso-latin-1-unix")) > > This is SBCL 1.0.50.0.debian, an implementation of ANSI Common Lisp. > More information about SBCL is available at <http://www.sbcl.org/>. > > SBCL is free software, provided as is, with absolutely no warranty. > It is mostly in the public domain; some portions are provided under > BSD-style licenses. See the CREDITS and COPYING files in the > distribution for more information. > * > ; loading #P"/usr/share/common-lisp/source/slime/swank-loader.lisp" > > debugger invoked on a SB-C::INPUT-ERROR-IN-COMPILE-FILE in thread #<THREAD > > "initial thread" RUNNING > > > {AA65749}>: > READ failure in COMPILE-FILE: > SB-INT:SIMPLE-READER-PACKAGE-ERROR at 5611 (line 143, column 52) > on #<SB-SYS:FD-STREAM > > for "file /usr/share/common-lisp/source/slime/swank-loader.lisp" > > {AA713D1}>: > package "ASDF" not found > > Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. > > restarts (invokable by number or by possibly-abbreviated name): > 0: [ABORT] Abort loading file > "/usr/share/common-lisp/source/slime/swank-loader.lisp". > 1: Exit debugger, returning to top level. > > (SB-C::READ-FOR-COMPILE-FILE > #<SB-SYS:FD-STREAM > for "file /usr/share/common-lisp/source/slime/swank-loader.lisp" > {AA713D1}> > 5230) > 0] > Duong Thien Sy > LINF09 >

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 09 Dec '11

09 Dec '11

Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.523 slime/contrib/ChangeLog:1.525 --- slime/contrib/ChangeLog:1.523 Tue Dec 6 10:57:18 2011 +++ slime/contrib/ChangeLog Thu Dec 8 05:54:19 2011 @@ -1,3 +1,19 @@ +2011-12-08 Nikodemus Siivola <nikodemus(a)random-state.net> + + * slime-cl-indent.el (lisp-indent-maximum-backtracking) + ("basic"): Increase default backtracking level to 6, so that at + least mildly nested macrolet-lambda lists can be identified as + such. + + * slime-cl-indent.el (common-lisp-init-standard-indentation): Fix + FLET indentation spec, which caused local function lambda-lists to + be indented as part of the body. + + * slime-cl-indent-test.txt (tests 72-76): New tests. + + * slime-cl-indent.el (common-lisp-init-standard-indentation): New function, + wraps initialization of the common-lisp-indent-function properties. + 2011-12-06 Didier Verna <didier(a)xemacs.org> * slime-asdf.el (slime-asdf): New custom group.

1 0

[slime-devel] Custom and local keywords
by davazp＠gmail.com 08 Dec '11

08 Dec '11

I have written a little patch for `slime-fontifying-fu.el' which adds support for custom keywords: (setq slime-custom-keywords '("until" "once-only")) and for file local keywords: ;;; Local variables: ;;; slime-local-keywords: ("ucond") ;;; End: Please, modify it as you need and consider to apply it if you consider convenient. Thanks you. index 20c78d5..f99ef43 100644 --- a/contrib/slime-fontifying-fu.el +++ b/contrib/slime-fontifying-fu.el @@ -1,4 +1,3 @@ - (define-slime-contrib slime-fontifying-fu "Additional fontification tweaks: Fontify WITH-FOO, DO-FOO, DEFINE-FOO like standard macros. @@ -6,24 +5,59 @@ Fontify CHECK-FOO like CHECK-TYPE." (:authors "Tobias C. Rittweiler <tcr(a)freebits.de>") (:license "GPL") (:on-load - (font-lock-add-keywords - 'lisp-mode slime-additional-font-lock-keywords) + (font-lock-add-keywords 'lisp-mode + slime-additional-font-lock-keywords) + (slime-add-custom-keyword) + (add-hook 'hack-local-variables-hook 'slime-hack-local-variables) (when slime-highlight-suppressed-forms (slime-activate-font-lock-magic))) (:on-unload ;; FIXME: remove `slime-search-suppressed-forms', and remove the ;; extend-region hook. - (font-lock-remove-keywords - 'lisp-mode slime-additional-font-lock-keywords))) + ;; FIXME: remove `slime-custom-keywords'. + (font-lock-remove-keywords + 'lisp-mode slime-additional-font-lock-keywords) + (remove-hook 'hack-local-variables-hook 'slime-hack-local-variables))) + ;;; Fontify WITH-FOO, DO-FOO, and DEFINE-FOO like standard macros. ;;; Fontify CHECK-FOO like CHECK-TYPE. (defvar slime-additional-font-lock-keywords - '(("(\\(\\(\\s_\\|\\w\\)*:\\(define-\\|do-\\|with-\\|without-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face) + '(("(\\(\\(\\s_\\|\\w\\)*:\\(define-\\|do-\\|with-\\|without-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face) ("(\\(\\(define-\\|do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face) ("(\\(check-\\(\\s_\\|\\w\\)*\\)" 1 font-lock-warning-face) ("(\\(assert-\\(\\s_\\|\\w\\)*\\)" 1 font-lock-warning-face))) +(defvar slime-custom-keywords nil + "A list of extra keywords to highlight in the current +buffer. Each element is a string or a list (KEYWORD FACE) where +KEYWORD is string to highlight using FACE.") + +(defvar slime-local-keywords nil + "A list of keywords to highlight in the current buffer. Each +element is a string or a list (KEYWORD FACE) where KEYWORD is +string to highlight using FACE.") +(make-local-variable 'slime-local-keywords) + +(defun slime-keyword-spec (spec) + (let (keyword face) + (etypecase spec + (string + (setq keyword spec) + (setq face 'font-lock-keyword-face)) + (list + (setq keyword (car spec)) + (setq face (cadr spec)))) + (let ((regex (concat "(\\(" (regexp-quote keyword) "\\)\\W"))) + (list regex 1 face)))) + +(defun slime-add-custom-keyword () + (let ((custom-keywords (mapcar 'slime-keyword-spec slime-custom-keywords))) + (font-lock-add-keywords 'lisp-mode custom-keywords))) + +(defun slime-hack-local-variables () + (let ((local-keywords (mapcar 'slime-keyword-spec slime-local-keywords))) + (font-lock-add-keywords nil local-keywords))) ;;;; Specially fontify forms suppressed by a reader conditional. @@ -79,18 +113,18 @@ Fontify CHECK-FOO like CHECK-TYPE." (condition-case condition (setq result (slime-search-suppressed-forms-internal limit)) (end-of-file ; e.g. #+( - (setq result nil)) + (setq result nil)) ;; We found a reader conditional we couldn't process for ;; some reason; however, there may still be other reader ;; conditionals before `limit'. (invalid-read-syntax ; e.g. #+#.foo (setq result 'retry)) (scan-error ; e.g. #+nil (foo ... - (setq result 'retry)) + (setq result 'retry)) (slime-incorrect-feature-expression ; e.g. #+(not foo bar) (setq result 'retry)) (slime-unknown-feature-expression ; e.g. #+(foo) - (setq result 'retry)) + (setq result 'retry)) (error (setq result nil) (slime-display-warning @@ -109,13 +143,13 @@ position, or nil." ;;; conditional is at the same nesting level. (condition-case nil (let* ((orig-pt (point))) - (when-let (reader-conditional-pt + (when-let (reader-conditional-pt (search-backward-regexp slime-reader-conditionals-regexp ;; We restrict the search to the ;; beginning of the /previous/ defun. (save-excursion (beginning-of-defun) (point)) t)) - (let* ((parser-state + (let* ((parser-state (parse-partial-sexp (progn (goto-char (+ reader-conditional-pt 2)) (forward-sexp) ; skip feature expr. (point)) @@ -168,7 +202,7 @@ position, or nil." (let ((depth (nth 0 state))) (when (plusp depth) (ignore-errors (up-list (- depth)))) ; ignore unbalanced parentheses - (when-let (upper-pt (nth 1 state)) + (when-let (upper-pt (nth 1 state)) (goto-char upper-pt) (while (when-let (upper-pt (nth 1 (slime-current-parser-state))) (goto-char upper-pt)))))))) @@ -185,7 +219,7 @@ position, or nil." (t pt)))) (goto-char end) (while (search-backward-regexp slime-reader-conditionals-regexp beg t) - (setq end (max end (save-excursion + (setq end (max end (save-excursion (ignore-errors (slime-forward-reader-conditional)) (point))))) (values (or (/= beg orig-beg) (/= end orig-end)) beg end))) @@ -203,12 +237,12 @@ position, or nil." 'lisp-mode `((slime-search-suppressed-forms 0 ,''slime-reader-conditional-face t))) - (add-hook 'lisp-mode-hook - #'(lambda () + (add-hook 'lisp-mode-hook + #'(lambda () (add-hook 'font-lock-extend-region-functions 'slime-extend-region-for-font-lock t t))))) -(let ((byte-compile-warnings '())) +(let ((byte-compile-warnings '())) (mapc #'byte-compile '(slime-extend-region-for-font-lock slime-compute-region-for-font-lock @@ -333,11 +367,11 @@ position, or nil." 'slime-reader-conditional-face (get-text-property (point) 'face))))) -(defun* slime-initialize-lisp-buffer-for-test-suite +(defun* slime-initialize-lisp-buffer-for-test-suite (&key (font-lock-magic t) (autodoc t)) (let ((hook lisp-mode-hook)) (unwind-protect - (progn + (progn (set (make-local-variable 'slime-highlight-suppressed-forms) font-lock-magic) (setq lisp-mode-hook nil)

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 08 Dec '11

08 Dec '11

Index: slime/ChangeLog diff -u slime/ChangeLog:1.2271 slime/ChangeLog:1.2280 --- slime/ChangeLog:1.2271 Tue Dec 6 10:57:34 2011 +++ slime/ChangeLog Wed Dec 7 14:04:37 2011 @@ -1,3 +1,74 @@ +2011-12-07 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (*slime-interrupts-enabled*): Describe the idea + behind the interrupt handlig code a bit. + +2011-12-07 Helmut Eller <heller(a)common-lisp.net> + + Make *event-queue* and *events-enqueued* slots of the connection + struct. + + * swank.lisp (*event-queue*, *events-enqueued*): Deleted + ([struct] singlethreaded-connection): New slots event-queue and + events-enqueued. + (poll-for-event, send-event, wait-for-event/event-loop): Update + accordingly. + +2011-12-07 Helmut Eller <heller(a)common-lisp.net> + + * slime.el ([xemacs]): Use (find-coding-system 'utf-8-unix) + instead of checking the XEmacs version to decide when 'un-define + is required. + +2011-12-07 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (send-to-emacs): Add a without-slime-interrupts to + protect send/receive from arbitrary interrupts. + +2011-12-07 Helmut Eller <heller(a)common-lisp.net> + + Move flow control from dispatch-event to send-to-emacs. + + * swank.lisp (*send-counter*): New thread local variable. + (with-connection): Bind it. + (send-to-emacs): Call maybe-slow-down. + (maybe-slow-down, ping-pong): Go through dispatch-event instead of + writing to the socket directly. + (dispatch-event): Re-add thread arg to :ping/:emacs-pong. + Also add a :test-delay event. + (perform-indentation-update): Use with-connection to bind + *emacs-connection* and *send-counter*. + (background-message): Remove reference to connection.slowdown. + (flow-control-test): New support code for testing flow-control. + ([defstruct] connection): Delete send-counter and slowdown slots. + + * slime.el (slime-dispatch-event): Re-add thread arg to + :ping/:emacs-pong and :test-delay event. + ([test] flow-control): New test. + +2011-12-07 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-update-system-indentation): Moved to + contrib/slime-indentation.el. + +2011-12-07 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-batch-test): Forgot to rename slime-run-one-test + to slime-run-test here. + (slime-net-connect): Remove coding-system argument. + (slime-xref-insert-recompilation-flags): Use insert-char instead + of (dotimes (i ..) (insert " " ..)) to avoid the compiler warning. + ([test] break, slime-forward-sexp): Use _i in dotimes. + +2011-12-07 Stas Boukarev <stassats(a)gmail.com> + + * doc/.cvsignore: Aadd html.tgz + +2011-12-07 Didier Verna <didier(a)xemacs.org> + + * doc/.cvsignore: Add more files generated by Texinfo (.kys, .fns + and .vrs). + 2011-12-05 Didier Verna <didier(a)xemacs.org> * slime.el ([xemacs]): Don't require 'un-define in XEmacs 21.5 and

1 0

[slime-devel] slime startup
by Haris Bogdanovich 07 Dec '11

07 Dec '11

Hi. I have in .emacs file: (add-to-list 'load-path "c:/lisp/clisp/") (add-to-list 'load-path "c:/lisp/slime/") (setq inferior-lisp-program "clisp -K full") (require 'slime) (slime-setup) (slime) and Emacs allways says polling, there is no inferior lisp buffder and all Slime menu options are greyed out ? Thanks

3 4

[slime-devel] [PATCH] doc/.cvsignore additions
by Didier Verna 07 Dec '11

07 Dec '11

Dear Slimers, here's a small update of doc/.cvsignore for ignoring some files generated by Texinfo. ChangeLog addition: 2011-12-07 Didier Verna <didier(a)xemacs.org> * doc/.cvsignore: Add more files generated by Texinfo (.kys, .fns and .vrs). slime source patch: Diff command: cvs -q diff -u Files affected: doc/.cvsignore Index: doc/.cvsignore =================================================================== RCS file: /project/slime/cvsroot/slime/doc/.cvsignore,v retrieving revision 1.2 diff -u -u -r1.2 .cvsignore --- doc/.cvsignore 5 Oct 2011 13:54:19 -0000 1.2 +++ doc/.cvsignore 7 Dec 2011 14:35:24 -0000 @@ -3,8 +3,10 @@ slime.cp slime.dvi slime.fn +slime.fns slime.info slime.ky +slime.kys slime.log slime.pdf slime.pg @@ -13,5 +15,6 @@ slime.toc slime.tp slime.vr +slime.vrs slime.html html -- Resistance is futile. You will be jazzimilated. Scientific site: http://www.lrde.epita.fr/~didier Music (Jazz) site: http://www.didierverna.com

2 1

[slime-devel] [PATCH] Don't require un-define in XEmacs >= 21.5
by Didier Verna 07 Dec '11

07 Dec '11

Dear Slimers, the following patch prevents Slime from loading Mule-UCS in a recent XEmacs which doesn't need it. ChangeLog addition: 2011-12-05 Didier Verna <didier(a)xemacs.org> * slime.el (featurep): Don't require 'un-define in XEmacs 21.5 and later. Mule-UCS is not needed anymore because of internal Unicode support (and conflicts with it). slime source patch: Diff command: cvs -q diff -u Files affected: slime.el Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.1383 diff -u -u -r1.1383 slime.el --- slime.el 5 Dec 2011 11:29:00 -0000 1.1383 +++ slime.el 5 Dec 2011 14:02:06 -0000 @@ -68,7 +68,10 @@ (require 'font-lock) (when (featurep 'xemacs) (require 'overlay) - (require 'un-define)) + (when (or (< emacs-major-version 21) + (and (= emacs-major-version 21) + (< emacs-minor-version 5))) + (require 'un-define))) (require 'easymenu) (eval-when (compile) (require 'arc-mode) -- Resistance is futile. You will be jazzimilated. Scientific site: http://www.lrde.epita.fr/~didier Music (Jazz) site: http://www.didierverna.com

2 2