branch: externals/sly
commit 463cef6b81e410cb159fa8dd41be01e558ca8b04
Author: Stas Boukarev <[email protected]>
Commit: João Távora <[email protected]>
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 <[email protected]>
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)))
