branch: externals/sly
commit e914200f304eaf29cbf9896dcdd16977e3879ff6
Author: Stas Boukarev <stass...@gmail.com>
Commit: João Távora <joaotav...@gmail.com>
wait-for-input: better "not implemented" error.
Disable the SLY debugger or it will use wait-for-input as well and
never do anything.
* slynk/slynk-backend.lisp (wait-for-it): Better default
implementation.
Co-authored-by: João Távora <joaotav...@gmail.com>
Cherry-pick-from: SLIME commit bdef5868c41b306e54c21c68ed7775d3dbf56b0d
---
slynk/slynk-backend.lisp | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/slynk/slynk-backend.lisp b/slynk/slynk-backend.lisp
index 812df31..de9fb23 100644
--- a/slynk/slynk-backend.lisp
+++ b/slynk/slynk-backend.lisp
@@ -1467,7 +1467,17 @@ which are ready (or have reached end-of-file) without
waiting.
If TIMEOUT is a number and no streams is ready after TIMEOUT seconds,
return nil.
-Return :interrupt if an interrupt occurs while waiting.")
+Return :interrupt if an interrupt occurs while waiting."
+ (declare (ignore streams timeout))
+ ;; Invoking the slime debugger will just endlessly loop.
+ (call-with-debugger-hook
+ nil
+ (lambda ()
+ (error
+ "~s not implemented. Check if ~s = ~s is supported by the
implementation."
+ 'wait-for-input
+ (read-from-string "SLYNK:*COMMUNICATION-STYLE*")
+ (symbol-value (read-from-string "SLYNK:*COMMUNICATION-STYLE*"))))))
;;;; Locks
