add system-file-patterns into connection-info

lem-project · Nov 30, 2024 · 25177e0 · 25177e0
1 parent af94fe5
commit 25177e0
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/micros.lisp b/micros.lisp
@@ -1481,7 +1481,10 @@ VERSION: the protocol version"
       :modules ,*modules*
       :package (:name ,(package-name *package*)
                :prompt ,(package-string-for-prompt *package*))
-      :version ,(version))))
+      :version ,(version)
+      :system-file-patterns ,(mapcar #'namestring
+                                     (mapcar #'second
+                                             (logical-pathname-translations "SYS"))))))
 
 (defun debug-on-swank-error ()
   (assert (eq *debug-on-swank-protocol-error* *debug-swank-backend*))