[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)~%"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/sly e6bc13d9f5: Fix #595: Unbreak clisp which doesn't use :spawn comm style,
ELPA Syncer <=