[nongnu] elpa/slime 81b6508cdf: make-auto-flush-thread: sleep longer on allegro.

[ELPA Syncer]

branch: elpa/slime
commit 81b6508cdf344b72fe4af1eadbc0194d64163643
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    make-auto-flush-thread: sleep longer on allegro.
    
    It doesn't support short sleep.
    
    Fixes #831
---
 swank/gray.lisp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/swank/gray.lisp b/swank/gray.lisp
index 76a1005726..5e7f8a3bb8 100644
--- a/swank/gray.lisp
+++ b/swank/gray.lisp
@@ -40,7 +40,7 @@
 (in-package swank/gray)
 
 ;;; Avoid using CLOS in the auto-flush thread due to possible
-;;; deadlocks between CLOS and streams.  
+;;; deadlocks between CLOS and streams.
 (defstruct stream-data
   (output-fn)
   (buffer (make-string 64000))
@@ -52,7 +52,7 @@
 
 (defclass slime-output-stream (fundamental-character-output-stream)
   ((data :initform (make-stream-data)
-         :initarg :data 
+         :initarg :data
          :accessor data)))
 
 (defmacro with-stream-data (data &body body)
@@ -218,8 +218,10 @@
 (defimplementation make-auto-flush-thread (stream)
   (if (typep stream 'slime-output-stream)
       (setf (stream-data-flush-thread (data stream))
-            (spawn (lambda () (auto-flush-loop stream 0.005 t (lambda (stream) 
-                                                                
(%stream-finish-output (data stream)))))
+            (spawn (lambda () (auto-flush-loop stream #-allegro 0.005
+                                                      #+allegro 0.08
+                                                      t (lambda (stream)
+                                                          
(%stream-finish-output (data stream)))))
                    :name "auto-flush-thread"))
       (spawn (lambda () (auto-flush-loop stream *auto-flush-interval*))
              :name "auto-flush-thread")))