[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv8553

Modified Files:
	ChangeLog swank-lispworks.lisp 
Log Message:
* swank-lispworks.lisp (thread-attributes): Implemented.

--- /project/slime/cvsroot/slime/ChangeLog	2009/07/02 14:14:26	1.1804
+++ /project/slime/cvsroot/slime/ChangeLog	2009/07/02 14:14:33	1.1805
@@ -1,9 +1,13 @@
+2009-07-02  Terje Norderhaug <terje at in-progress.com>
+
+	* swank-lispworks.lisp (thread-attributes): Implemented.
+
 2009-07-02  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (ed-in-emacs): Handle symbols/function-names better.
 	* slime.el (slime-ed): Updated accordingly.
 
-2009-07-02  Helmut Eller  <heller at common-lisp.net>
+2009-07-02  Terje Norderhaug <terje at in-progress.com>
 
 	* swank.lisp (operator-arglist): Don't use pprint-fill
 	for people with wide screens.
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2009/06/21 07:22:56	1.130
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2009/07/02 14:14:33	1.131
@@ -859,6 +859,10 @@
         (acons var `(eval (quote ,form))
                mp:*process-initial-bindings* )))
 
+(defimplementation thread-attributes (thread)
+  (list :priority (mp:process-priority thread)
+        :idle (mp:process-idle-time thread)))
+
 ;;; Some intergration with the lispworks environment
 
 (defun swank-sym (name) (find-symbol (string name) :swank))