[nongnu] externals/sly e79f9f2 23/47: sbcl: consult sb-impl:+internal-features+ when reading source files.

[ELPA Syncer]

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

    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 <joaotavora@gmail.com>
---
 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)))