emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/sly e6bc13d9f5: Fix #595: Unbreak clisp which doesn't use


From: ELPA Syncer
Subject: [nongnu] elpa/sly e6bc13d9f5: Fix #595: Unbreak clisp which doesn't use :spawn comm style
Date: Tue, 23 May 2023 09:01:01 -0400 (EDT)

branch: elpa/sly
commit e6bc13d9f55e3763e6daea527cb88a776c479d8e
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Fix #595: Unbreak clisp which doesn't use :spawn comm style
    
    The default value for SLYNK-MREPL::*DEDICATED-OUTPUT-STREAM-BUFFERING* 
depends on
    the comm style and, previously, a rare but possible 'nil' comm style (as in 
Clisp)
    would also prevent a gray stream from being used for the dedicated output 
stream,
    
    So a native stream would be used instead.  This is possible, but only
    on sbcl and cmucl.  So always make a gray stream, regardless of the
    value of SLYNK-MREPL::*DEDICATED-OUTPUT-STREAM-BUFFERING*.
    
    Fix #595, Fix #600.
    
    * contrib/slynk-mrepl.lisp (open-dedicated-output-stream): Always
    use line-buffering for the dedicated output stream.
---
 contrib/slynk-mrepl.lisp | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/contrib/slynk-mrepl.lisp b/contrib/slynk-mrepl.lisp
index 71d853c147..6bf6a8630a 100644
--- a/contrib/slynk-mrepl.lisp
+++ b/contrib/slynk-mrepl.lisp
@@ -568,12 +568,10 @@ deliver output to Emacs."
                      ;; socket whenever it sees fit.
                      ;;
                      #-(or sbcl cmucl)
-                     (if (eq *dedicated-output-stream-buffering* :line)
-                         (slynk-backend:make-output-stream
-                          (lambda (string)
-                            (write-sequence string dedicated)
-                            (force-output dedicated)))
-                         dedicated)))
+                     (slynk-backend:make-output-stream
+                      (lambda (string)
+                        (write-sequence string dedicated)
+                        (force-output dedicated)))))
                (prog1 result
                  (format result
                          "~&; Dedicated output stream setup (port ~a)~%"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]