[nongnu] externals/sly e914200 07/47: wait-for-input: better "not implemented" error.

[ELPA Syncer]

branch: externals/sly
commit e914200f304eaf29cbf9896dcdd16977e3879ff6
Author: Stas Boukarev <stassats@gmail.com>
Commit: João Távora <joaotavora@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 <joaotavora@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