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

[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

[slime-devel] Profile package support in ECL and Slime
by Marko Kocić 01 Jul '09

01 Jul '09

Here are two patches, one for ECL, one for SLIME that enables slime profile-package. Regards, Marko Kocić

2 1

[slime-devel] M-. too smart sometimes
by Nikodemus Siivola 30 Jun '09

30 Jun '09

(defun foo (x) (let ((cons (cons x x))) (cons cons cons))) Hit M-. on first CONS in (CONS CONS CONS). Point jumps to the binding of CONS, not the definition of function CONS -- and no XREF buffer appears. Cheers, -- Nikodemus

1 0

[slime-devel] Daily ChangeLog diff
by Helmut Eller 30 Jun '09

30 Jun '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1799 slime/ChangeLog:1.1800 --- slime/ChangeLog:1.1799 Mon Jun 29 00:24:51 2009 +++ slime/ChangeLog Mon Jun 29 22:50:25 2009 @@ -1,3 +1,8 @@ +2009-06-30 Stas Boukarev <stassats(a)gmail.com> + + * swank-openmcl.lisp (arglist): Return :not-available if the arglist + cannot be obtained. Patch by Terje Norderhaug. + 2009-06-29 Stas Boukarev <stassats(a)gmail.com> * swank.lisp (open-streams): do not create unnecessary output stream

1 0

[slime-devel] [PATCH] arglist for Clozure
by Terje Norderhaug 30 Jun '09

30 Jun '09

When used with Clozure, the #'operator-arglist slimefun incorrectly does not return NIL for unbound functions: (fboundp 'cl::bogus) => NIL (swank:operator-arglist "BOGUS" "COMMON-LISP") => "(BOGUS )" The interface function #'arglist (called by #'swank:operator-arglist) is documented to return "the :not-available keyword if the arglist cannot be determined". However: (swank::arglist 'cl::bogus) => NIL The fix is to make the arglist function of the Clozure backend return :not-available when there is no binding: diff -u slime-2009-06-29/swank-openmcl.lisp patch/swank-openmcl.lisp --- slime-2009-06-29/swank-openmcl.lisp 2009-06-29 00:15:06.000000000 -0700 +++ patch/swank-openmcl.lisp 2009-06-29 15:04:51.000000000 -0700 @@ -206,7 +206,11 @@ ;;; Arglist (defimplementation arglist (fname) - (arglist% fname)) + (multiple-value-bind (arglist binding) + (arglist% fname) + (if binding + arglist + :not-available))) (defmethod arglist% ((f symbol)) (ccl:arglist f)) -- Terje Norderhaug

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 29 Jun '09

29 Jun '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1794 slime/ChangeLog:1.1799 --- slime/ChangeLog:1.1794 Sat Jun 27 11:10:29 2009 +++ slime/ChangeLog Mon Jun 29 00:24:51 2009 @@ -1,3 +1,36 @@ +2009-06-29 Stas Boukarev <stassats(a)gmail.com> + + * swank.lisp (open-streams): do not create unnecessary output stream + when using dedicated output stream. Thanks to Terje Norderhaug. + +2009-06-28 Terje Norderhaug <terje(a)in-progress.com> + + Generalize list-threads for implementation-dependent attributes. + + * swank-backend.lisp (thread-attributes): New function. + * swank-openmcl (thread-attributes): Implement it. + * swank.lisp (list-threads): Return a table with the attribute + names as the first row and the new attributes in the last columns. + * slime.el (slime-update-threads-buffer): For now, ignore the + extra attributes. + +2009-06-28 Stelian Ionescu <stelian.ionescu-zeus(a)poste.it> + + * slime.el (slime-compiler-macroexpand-inplace) + (slime-compiler-macroexpand-1-inplace): New commands. + (slime-macroexpansion-minor-mode-map): Bind them. + +2009-06-28 Helmut Eller <heller(a)common-lisp.net> + + * swank-sbcl.lisp (add-fd-handler): Avoid recursive invocation + of the handler, e.g. when read-sequence blocks. + +2009-06-28 Stas Boukarev <stassats(a)gmail.com> + + * swank-openmcl.lisp (compiler-warning-short-message): In new + versions of CCL `compiler-warning-nrefs' slot + of the `compiler-warning' class is now a list, not an integer. + 2009-06-25 Geo Carncross <geocar(a)gmail.com> * swank-ecl.lisp: Profiling support by Marko Kocić @@ -13,12 +46,11 @@ SWANK:INSPECT-IN-EMACS. * swank.lisp (inspect-in-emacs): added keyword argument :wait. - + * slime.el (slime-dispatch-event): if swank requests response to :inspect, add a hook to the inspector to signal swank once done. (slime-open-inspector): add optional hook argument to be added as local kill-buffer-hook. - 2009-06-21 Helmut Eller <heller(a)common-lisp.net> @@ -26,6 +58,7 @@ contrib/slime-fontifying-fu.el 2009-06-21 Helmut Eller <heller(a)common-lisp.net> + Don't try so hard to get symbol-at-point right. The old implementation was complicated and didn't even pass it's own test suite. The new version is less ambitious but simpler. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.219 slime/contrib/ChangeLog:1.220 --- slime/contrib/ChangeLog:1.219 Tue Jun 23 14:11:13 2009 +++ slime/contrib/ChangeLog Sun Jun 28 04:51:18 2009 @@ -1,3 +1,12 @@ +2009-06-28 Stas Boukarev <stassats(a)gmail.com> + + * slime-fuzzy.el (slime-fuzzy-complete-symbol): show message in the + minibuffer after showing completion list, because completion + itself can take place in the minibuffer. + (slime-fuzzy-choices-buffer): if completion was started in the minibuffer, + don't switch to minibuffer in the other window, but select minibuffer window + instead. + 2009-06-23 Helmut Eller <heller(a)common-lisp.net> * swank-ikarus.ss, swank-larceny.scm, swank-r6rs.scm: New files.

1 0

[slime-devel] open-streams loosing a stream
by Terje Norderhaug 29 Jun '09

29 Jun '09

I am setting up a dedicated output stream between Swank and the client, with *use-dedicated-output-stream* set to T. I discovered that the open-streams function of swank apparently loose an open stream if *use-dedicated-output-stream* is non-nil: (let* ([...] (dedicated-output (if *use-dedicated-output-stream* (open-dedicated-output-stream (connection.socket-io connection)))) (out (make-output-stream output-fn)) (in (make-input-stream input-fn)) (out (or dedicated-output out)) <--- (io (make-two-way-stream in out)) (repl-results (make-output-stream-for-target connection :repl-result))) (when (eq (connection.communication-style connection) :spawn) (setf (connection.auto-flush-thread connection) (spawn (lambda () (auto-flush-loop out)) :name "auto-flush-thread"))) (values dedicated-output in out io repl-results))) I suppose this isn't intentional? Here is a candidate patch that avoids creating the output stream if there is a stream for dedicated- output: diff -u slime-2009-06-28/swank.lisp slime-2009-06-28+/swank.lisp --- slime-2009-06-28/swank.lisp 2009-06-25 00:15:03.000000000 -0700 +++ slime-2009-06-28+/swank.lisp 2009-06-28 18:17:56.000000000 -0700 @@ -905,9 +905,8 @@ (dedicated-output (if *use-dedicated-output-stream* (open-dedicated-output-stream (connection.socket-io connection)))) - (out (make-output-stream output-fn)) (in (make-input-stream input-fn)) - (out (or dedicated-output out)) + (out (or dedicated-output (make-output-stream output-fn))) (io (make-two-way-stream in out)) (repl-results (make-output-stream-for-target connection :repl-result))) -- Terje Norderhaug

2 1