[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog swank-kawa.scm 
Log Message:
* swank-kawa.scm (%%runnable): Update for changes in SVN version.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/08/21 21:34:12	1.409
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/03 07:25:24	1.410
@@ -1,3 +1,7 @@
+2010-09-03  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-kawa.scm (%%runnable): Update for changes in SVN version.
+
 2010-08-21  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-fuzzy.el (slime-fuzzy-choices-buffer): XEmacs compatibility.
--- /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2010/05/28 10:49:35	1.22
+++ /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2010/09/03 07:25:24	1.23
@@ -484,8 +484,6 @@
 
 ;;; FIXME: not thread safe
 (df %read ((port <gnu.mapping.InPort>) (table <gnu.kawa.lispexpr.ReadTable>))
-  ;;  (parameterize ((current-readtable table))
-  ;;                (read)))
   (let ((old (gnu.kawa.lispexpr.ReadTable:getCurrent)))
     (try-finally
      (seq (gnu.kawa.lispexpr.ReadTable:setCurrent table)
@@ -1274,7 +1272,7 @@
      (log "exception-catch-location: ~s\n" (src-loc>str (! catch-location e)))
      (let ((l (! catch-location e)))
        (cond ((or (nul? l)
-                  ;; (member (! source-path l) '("gnu/expr/ModuleExp.java")
+                  ;; (member (! source-path l) '("gnu/expr/ModuleExp.java"))
                   )
               (process-exception e c state))
              (#t
@@ -1746,10 +1744,11 @@
     thread))
 
 (df %%runnable (f => <java.lang.Runnable>) 
-  (<runnable> f)
-  ;;(<gnu.mapping.RunnableClosure> f)
+  ;;(<runnable> f)
+  (<gnu.mapping.RunnableClosure> f)
   )
 
+#|
 (df %runnable (f => <java.lang.Runnable>)
   (<runnable>
    (fun ()
@@ -1758,6 +1757,7 @@
                     (log "exception in thread ~s: ~s" (current-thread)
                           ex)
                     (! printStackTrace ex))))))
+|#
 
 (df chan () 
   (let ((lock (<object>))
@@ -1866,6 +1866,7 @@
                           ,(map (fun (e) (! to-string e))
                                 (array-to-list (! get-stack-trace ex))))))))))
 
+#|
 (define-simple-class <runnable> (<gnu.mapping.RunnableClosure>)
   (f :: <gnu.mapping.Procedure>)
   ((*init* (f <gnu.mapping.Procedure>))
@@ -1875,6 +1876,7 @@
    (! set-environment-raw (<gnu.mapping.CallContext>:getInstance)
       (@ environment (this)))
    (! apply0 f)))
+|#
 
 ;;;; Logging