slime-devel July 2009

slime-devel@common-lisp.net

23 participants
41 discussions

[slime-devel] Daily ChangeLog diff
by Helmut Eller 05 Jul '09

05 Jul '09

Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.221 slime/contrib/ChangeLog:1.222 --- slime/contrib/ChangeLog:1.221 Thu Jul 2 13:00:25 2009 +++ slime/contrib/ChangeLog Sat Jul 4 05:54:16 2009 @@ -1,3 +1,15 @@ +2009-07-04 Tobias C. Rittweiler <tcr(a)freebits.de> + + Fix font-lock magic for s-code.lisp in the series package. + + * slime-fontifying-fu.el (slime-beginning-of-tlf): Use + `syntax-ppss-toplevel-pos' on GNU Emacs. Old definition is + retained for systems where it's not available. Also wrap an + `ignore-errors' around the call to `up-list' in the old definition + to guard against unbalanced parentheses. + + Reported by Stelian Ionescu, Raymond Toy. + 2009-07-02 Stas Boukarev <stassats(a)gmail.com> * slime-repl.el (slime-repl-delete-current-input): Make it interactive.

1 0

[slime-devel] [NEW] all-logical-hosts
by Terje Norderhaug 03 Jul '09

03 Jul '09

I am making a logical pathname inspector for use with Swank. Common LISP provides #'logical-pathname-translations that works on the name of a logical host. However, it assumes that the developer already know the hostnames. However, Common LISP does not provide a function to get all logical hostnames. I suggest adding a function to Swank to discover the names of all logical hosts. Here is a candidate with implementations for Clozure and LispWorks: ;; swank-backend.lisp (definterface all-logical-hosts () "Return a list of the names of all logical hosts" NIL) ;; swank-openmcl.lisp (defimplementation all-logical-hosts () (mapcar #'car ccl::%logical-host-translations%)) ;; swank-lispworks.lisp (defimplementation all-logical-hosts () (let (result) (maphash (lambda (key value)(push key result)) system::*logical-pathname-translations*) result)) ;; alternatively: (defimplementation all-logical-hosts () (loop for key being the hash-keys of system::*logical-pathname- translations* collect key)) -- Terje Norderhaug

1 0

[slime-devel] Daily ChangeLog diff
by Helmut Eller 03 Jul '09

03 Jul '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1802 slime/ChangeLog:1.1806 --- slime/ChangeLog:1.1802 Thu Jul 2 00:13:10 2009 +++ slime/ChangeLog Thu Jul 2 13:00:21 2009 @@ -1,5 +1,24 @@ 2009-07-02 Stas Boukarev <stassats(a)gmail.com> + * slime.el (slime-beginning-of-symbol): Limit searching to 2000 + characters. + +2009-07-02 Terje Norderhaug <terje(a)in-progress.com> + + * swank-lispworks.lisp (thread-attributes): Implemented. + +2009-07-02 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (ed-in-emacs): Handle symbols/function-names better. + * slime.el (slime-ed): Updated accordingly. + +2009-07-02 Terje Norderhaug <terje(a)in-progress.com> + + * swank.lisp (operator-arglist): Don't use pprint-fill + for people with wide screens. + +2009-07-02 Stas Boukarev <stassats(a)gmail.com> + * slime.el (slime-net-coding-system): make it customizable. (slime-inspector-operate-on-click): Make --more-- button in the inspector clickable. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.220 slime/contrib/ChangeLog:1.221 --- slime/contrib/ChangeLog:1.220 Sun Jun 28 04:51:18 2009 +++ slime/contrib/ChangeLog Thu Jul 2 13:00:25 2009 @@ -1,3 +1,7 @@ +2009-07-02 Stas Boukarev <stassats(a)gmail.com> + + * slime-repl.el (slime-repl-delete-current-input): Make it interactive. + 2009-06-28 Stas Boukarev <stassats(a)gmail.com> * slime-fuzzy.el (slime-fuzzy-complete-symbol): show message in the

1 0

[slime-devel] [BUG] ed-in-emacs on symbols
by Terje Norderhaug 02 Jul '09

02 Jul '09

The ed-in-emacs function may err when given certain symbols as argument. In particular, multiple escaped characters in a symbol can trip it up. For example, with AquaMacs + Clozure: (ed 'a\ b\ c) => error in process filter: Wrong number of arguments: NIL, 3 (ed-in-emacs '|ab)c|) => error in process filter: No known definition for: common-lisp- user::ab (in nil) The cause is that ed-in-emacs attempts to pass the raw symbol when dispatching :ED to emacs: 1. dispatch-event: (:EMACS-REX (SWANK:LISTENER-EVAL "(ed 'a\\ b\\ c)") "COMMON-LISP-USER" :REPL-THREAD 74) 2. send-event: #<PROCESS repl-thread(36)> (:EMACS-REX (SWANK:LISTENER- EVAL "(ed 'a\\ b\\ c)") "COMMON-LISP-USER" 74) 3. dispatch-event: (:ED COMMON-LISP-USER::|A B C|) 4. WRITE: (:ed common-lisp-user::|A B C|) Common LISP typically outputs a symbol using bars for |multiple escape|. However, this is not understood by the emacs reader. How can we change the encoding of the :ED dispatch symbol argument to fix this issue? -- Terje Norderhaug

2 2

[slime-devel] Fontification error in series/s-code.lisp
by Stelian Ionescu 02 Jul '09

02 Jul '09

$ emacs --version GNU Emacs 23.1.50.1 Warning (slime): "s-code.lisp":921:4 (pt=35805). Caught error when trying to extend the region for fontification. The error was: (cl-assertion-failed (not (plusp (nth 0 (slime-current-parser-state))))) Further: font-lock-beg=35981, font-lock-end=36491. Backtrace: backtrace() slime-bug("Caught error when trying to extend the region for fontification. The error was: %S Further: font-lock-beg=%d, font-lock-end=%d." (cl-assertion-failed (not (plusp ...))) 35981 36491) slime-extend-region-for-font-lock() font-lock-default-fontify-region(35981 36491 nil) font-lock-fontify-region(35981 36491) run-hook-with-args(font-lock-fontify-region 35981 36491) byte-code("\302\303 #\207" [start next run-hook-with-args jit-lock-functions] 4) jit-lock-fontify-now(35981 36481) jit-lock-function(35981) -- Stelian Ionescu a.k.a. fe[nl]ix Quidquid latine dictum sit, altum videtur.

1 0

[slime-devel] [PATCH] operator-arglist
by Terje Norderhaug 02 Jul '09

02 Jul '09

The operator-arglist slimefun uses #'pprint-fill to format an arglist without enclosing parentheses. Unfortunately, for longer arglists, a consequence is that the output might be pretty printed based on the output width on the server lisp, potentially leading to unwanted linebreaks and whitespace in the result. For example, using Clozure, evaluate operator-arglist for #'cl:directory: (swank::operator-arglist "DIRECTORY" "COMMON-LISP") => "(DIRECTORY PATH &KEY DIRECTORIES FILES ALL DIRECTORY-PATHNAMES INCLUDE-EMACS-LOCKFILES TEST FOLLOW-LINKS)" Such results may require a cleanup to be presented by the client on one line or with the preferred width. It would be preferable to have the result single spaced and without linebreaks, leaving the formatting to the swank client: "(DIRECTORY PATH &KEY DIRECTORIES FILES ALL DIRECTORY-PATHNAMES INCLUDE-EMACS-LOCKFILES TEST FOLLOW-LINKS)" Here is a patch that writes the function name and arglist as a list on a single line: diff -u slime-2009-06-30/swank.lisp patch/swank.lisp --- slime-2009-06-30/swank.lisp 2009-06-29 00:15:06.000000000 -0700 +++ patch/swank.lisp 2009-06-30 14:04:48.000000000 -0700 @@ -3005,7 +3005,7 @@ (let ((args (arglist (parse-symbol name (guess-buffer-package package)))) (*print-escape* nil)) (cond ((eq args :not-available) nil) - (t (format nil "(~a ~/pprint-fill/)" name args)))))) + (t (princ-to-string (cons name args))))))) -- Terje Norderhaug

2 2

[slime-devel] Lispworks thread-attributes
by Terje Norderhaug 02 Jul '09

02 Jul '09

Here is a candidate implementation of thread-attributes for LispWorks: ; swank-lispworks.lisp (defimplementation thread-attributes (thread) (list :priority (mp:process-priority thread) :idle (mp:process-idle-time thread))) -- Terje Norderhaug

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 02 Jul '09

02 Jul '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1801 slime/ChangeLog:1.1802 --- slime/ChangeLog:1.1801 Tue Jun 30 23:38:54 2009 +++ slime/ChangeLog Thu Jul 2 00:13:10 2009 @@ -1,3 +1,9 @@ +2009-07-02 Stas Boukarev <stassats(a)gmail.com> + + * slime.el (slime-net-coding-system): make it customizable. + (slime-inspector-operate-on-click): Make --more-- button in + the inspector clickable. + 2009-06-30 Geo Carncross <geocar(a)gmail.com> * swank-ecl.lisp: Package profiling support

1 0

[slime-devel] Patch to add multi-threading to ABCL SLIME CVS HEAD
by Mark Evenson 02 Jul '09

02 Jul '09

Attached is a patch against SLIME CVS HEAD to implement multi-threading (aka the :spawn *COMMUNICATION-STYLE*) as a default in ABCL. In addition this patch muffles various STYLE-WARNING compilation messages via DECLARE forms. Among other things, this seems to fix the fugliness around where *STANDARD-OUTPUT* ends up and the missing CR (or LF) in the NIL *COMMUNICATION-STYLE*. This patch has been tested against ABCL 0.16.0-dev as of [svn r12022] with Emacs 22.3 under OS X. I didn't need to do much to the existing code except fix a typo while comparing against the current 'swank-sbcl.lisp' version, making me somewhat suspicious of why that code was not used in the first place (did someone just cut and paste the SBCL implementation without trying to get it to work? But thanks to whoever got it that far!) -- "A screaming comes across the sky. It has happened before, but there is nothing to compare to it now." diff -r 2225a8f2d322 -r 3c562ce589df swank-abcl.lisp --- a/swank-abcl.lisp Wed Jul 01 05:38:54 2009 +0200 +++ b/swank-abcl.lisp Wed Jul 01 11:06:42 2009 +0200 @@ -17,6 +17,7 @@ (defun sys::break (&optional (format-control "BREAK called") &rest format-arguments) (let ((*saved-backtrace* (backtrace-as-list-ignoring-swank-calls))) + (declare (ignore *saved-backtrace*)) (with-simple-restart (continue "Return from BREAK.") (invoke-debugger (sys::%make-condition 'simple-condition @@ -42,10 +43,16 @@ ;(defun class-finalized-p (class) t) -(defun slot-definition-documentation (slot) #+nil (documentation slot 't)) -(defun slot-definition-type (slot) t) -(defun class-prototype (class)) -(defun generic-function-declarations (gf)) +(defun slot-definition-documentation (slot) + (declare (ignore slot)) + #+nil (documentation slot 't)) +(defun slot-definition-type (slot) + (declare (ignore slot)) + t) +(defun class-prototype (class) + (declare (ignore class))) +(defun generic-function-declarations (gf) + (declare (ignore gf))) (defun specializer-direct-methods (spec) (mop::class-direct-methods spec)) (defun slot-definition-name (slot) @@ -61,9 +68,11 @@ (mop::%method-function method)) (defun slot-boundp-using-class (class object slotdef) + (declare (ignore class)) ; FIXME (system::slot-boundp object (slot-definition-name slotdef))) (defun slot-value-using-class (class object slotdef) + (declare (ignore class)) ; FIXME (system::slot-value object (slot-definition-name slotdef))) (import-to-swank-mop @@ -119,7 +128,7 @@ (defimplementation preferred-communication-style () - nil) + :spawn) (defimplementation create-socket (host port) (ext:make-server-socket port)) @@ -483,8 +492,8 @@ ;;;; Multithreading -(defimplementation startup-multiprocessing () - #+nil(mp:start-scheduler)) +#+nil ; Already started +(defimplementation startup-multiprocessing (continuation)) (defimplementation spawn (fn &key name) (ext:make-thread (lambda () (funcall fn)) :name name)) @@ -513,7 +522,23 @@ (defimplementation thread-status (thread) (format nil "Thread is ~:[dead~;alive~]" (ext:thread-alive-p thread))) +;; XXX should be a weak hash table +(defparameter *thread-description-map* (make-hash-table)) + +(defvar *thread-description-map-lock* + (ext:make-mutex)) + +(defimplementation thread-description (thread) + (ext:with-mutex (*thread-description-map-lock*) + (or (gethash thread *thread-description-map*) + "No description available."))) + +(defimplementation set-thread-description (thread description) + (ext:with-mutex (*thread-description-map-lock*) + (setf (gethash thread *thread-description-map*) description))) + (defimplementation make-lock (&key name) + (declare (ignore name)) (ext:make-thread-lock)) (defimplementation call-with-lock-held (lock function) @@ -525,8 +550,11 @@ (defimplementation all-threads () (copy-list (ext:mapcar-threads #'identity))) +(defimplementation thread-alive-p (thread) + (member thread (all-threads))) + (defimplementation interrupt-thread (thread fn) - (ext:interrupt-thread thread fn)) + (ext:interrupt-thread thread fn)) (defimplementation kill-thread (thread) (ext:destroy-thread thread)) @@ -542,14 +570,13 @@ (setf (getf (gethash thread *thread-props*) 'mailbox) (make-mailbox))))) -(defimplementation send (thread object) +(defimplementation send (thread message) (let ((mbox (mailbox thread))) (ext:with-mutex ((mailbox-mutex mbox)) (setf (mailbox-queue mbox) (nconc (mailbox-queue mbox) (list message)))))) -#+(or) -(defimplementation receive-if (thread &optional timeout) +(defimplementation receive-if (test &optional timeout) (let* ((mbox (mailbox (current-thread)))) (assert (or (not timeout) (eq timeout t))) (loop @@ -561,9 +588,7 @@ (setf (mailbox-queue mbox) (nconc (ldiff q tail) (cdr tail))) (return (car tail)))) (when (eq timeout t) (return (values nil t))) - ;;(java:jcall (java:jmethod "java.lang.Object" "wait") - ;; (mailbox-mutex mbox) 1000) - )))) + (sleep .05))))) (defimplementation quit-lisp () (ext:exit))

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 01 Jul '09

01 Jul '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1800 slime/ChangeLog:1.1801 --- slime/ChangeLog:1.1800 Mon Jun 29 22:50:25 2009 +++ slime/ChangeLog Tue Jun 30 23:38:54 2009 @@ -1,3 +1,7 @@ +2009-06-30 Geo Carncross <geocar(a)gmail.com> + + * swank-ecl.lisp: Package profiling support + 2009-06-30 Stas Boukarev <stassats(a)gmail.com> * swank-openmcl.lisp (arglist): Return :not-available if the arglist

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

slime-devel July 2009