[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv11580/contrib

Modified Files:
	ChangeLog swank-kawa.scm 
Log Message:
* swank-kawa.scm (listener-loop): Use close-port instead of
close-output-port.  close-output-port startet to signal errors in
recent versions.
(listener): Stop taking stack-snapshots on caught exceptions as
it's too slow. It was always expensive and in Java7 it's
unbearably slow.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2013/02/10 19:29:30	1.571
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2013/02/13 07:45:03	1.572
@@ -1,3 +1,12 @@
+2013-02-13  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-kawa.scm (listener-loop): Use close-port instead of
+	close-output-port.  close-output-port startet to signal errors in
+	recent versions.
+	(listener): Stop taking stack-snapshots on caught exceptions as
+	it's too slow. It was always expensive and in Java7 it's
+	unbearably slow.
+
 2013-02-10  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-repl.el (slime-open-stream-to-lisp): Use current
--- /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2012/10/14 12:57:56	1.29
+++ /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2013/02/13 07:45:04	1.30
@@ -602,7 +602,8 @@
     (let ((vm (as <vm> (rpc c `(get-vm)))))
       (send c `(set-listener ,(vm-mirror vm (current-thread))))
       (request-uncaught-exception-events vm)
-      (request-caught-exception-events vm)
+      ;;stack snaphost are too expensive
+      ;;(request-caught-exception-events vm)
       )
     (rpc c `(get-vm))
     (listener-loop c env out)))
@@ -619,7 +620,7 @@
     ;;(log "listener-loop: ~s ~s\n" (current-thread) c)
     (mlet ((form id) (recv c))
       (let ((restart (fun ()
-                       (close-output-port port)
+                       (close-port port)
                        (reply-abort c id)
                        (send (car (spawn/chan
                                    (fun (cc)