[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv20636

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (*maximum-pipelined-output-chunks*): New variable

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/09 19:57:06	1.1423
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/09 19:57:12	1.1424
@@ -18,6 +18,10 @@
 
 2008-08-09  Helmut Eller  <heller at common-lisp.net>
 
+	* swank.lisp (*maximum-pipelined-output-chunks*): New variable
+
+2008-08-09  Helmut Eller  <heller at common-lisp.net>
+
 	Display the "Use default debugger" restart more prominently.
 
 	* swank.lisp (swank-debugger-hook): Bind a user visible restart
--- /project/slime/cvsroot/slime/swank.lisp	2008/08/09 19:57:00	1.558
+++ /project/slime/cvsroot/slime/swank.lisp	2008/08/09 19:57:12	1.559
@@ -746,14 +746,17 @@
                  :name "auto-flush-thread"))
         (values dedicated-output in out io repl-results)))))
 
+(defvar *maximum-pipelined-output-chunks* 20)
+
 ;; FIXME: if wait-for-event aborts the event will stay in the queue forever.
 (defun make-output-function (connection)
   "Create function to send user output to Emacs."
-  (let ((max 100) (i 0) (tag 0) (l 0))
+  (let ((i 0) (tag 0) (l 0))
     (lambda (string)
       (with-connection (connection)
         (with-simple-restart (abort "Abort sending output to Emacs.")
-          (when (or (= i max) (> l (* 80 20 5)))
+          (when (or (= i *maximum-pipelined-output-chunks*) 
+                    (> l (* 80 20 5)))
             (setf tag (mod (1+ tag) 1000))
             (send-to-emacs `(:ping ,(current-thread-id) ,tag))
             (wait-for-event `(:emacs-pong ,tag))