[nongnu] externals/sly 463cef6 20/47: sbcl/sexp-in-bounds-p: descend into comma-expr.

[ELPA Syncer]

branch: externals/sly
commit 463cef6b81e410cb159fa8dd41be01e558ca8b04
Author: Stas Boukarev <stassats@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    sbcl/sexp-in-bounds-p: descend into comma-expr.
    
    * slynk/backend/sbcl.lisp (sexp-in-bounds-p, sexp-ref): Rework.
    
    Co-authored-by: João Távora <joaotavora@gmail.com>
    Cherry-picked-from: SLIME commit 10e10d19f785aace847c5a17cb2e4ffd9d318a40
---
 slynk/backend/sbcl.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/slynk/backend/sbcl.lisp b/slynk/backend/sbcl.lisp
index 53db168..9d6737f 100644
--- a/slynk/backend/sbcl.lisp
+++ b/slynk/backend/sbcl.lisp
@@ -2013,7 +2013,7 @@ stack."
 #+#.(slynk-backend:with-symbol 'comma-expr 'sb-impl)
 (progn
   (defmethod sexp-in-bounds-p ((s sb-impl::comma) i)
-    (= i 1))
+    (sexp-in-bounds-p (sb-impl::comma-expr s) i))
 
   (defmethod sexp-ref ((s sb-impl::comma) i)
-    (sb-impl::comma-expr s)))
+    (sexp-ref (sb-impl::comma-expr s) i)))