branch: externals/sly
commit e79f9f20d33d59bcde04a9d5be8e234e0aa8f61b
Author: Stas Boukarev <[email protected]>
Commit: João Távora <[email protected]>
sbcl: consult sb-impl:+internal-features+ when reading source files.
* slynk/slynk-source-path-parser.lisp: Rework.
Cherry-picked-from: SLIME commit 0ed00496727141a3a12c69bb353b1c8f6d39d876.
Co-authored-by: João Távora <[email protected]>
---
slynk/slynk-source-path-parser.lisp | 3 +++
1 file changed, 3 insertions(+)
diff --git a/slynk/slynk-source-path-parser.lisp
b/slynk/slynk-source-path-parser.lisp
index c63ba38..da22610 100644
--- a/slynk/slynk-source-path-parser.lisp
+++ b/slynk/slynk-source-path-parser.lisp
@@ -112,6 +112,9 @@ subexpressions of the object to stream positions."
(let* ((source-map (make-hash-table :test #'eq))
(*readtable* (make-source-recording-readtable *readtable* source-map))
(*read-suppress* nil)
+ #+sbcl
+ (*features* (append *features*
+ (symbol-value (find-symbol "+INTERNAL-FEATURES+"
'sb-impl))))
(start (file-position stream))
(form (ignore-errors (read stream)))
(end (file-position stream)))
