add system-file-patterns to connection

lem-project · Nov 30, 2024 · 86d9f36 · 86d9f36
1 parent d929358
commit 86d9f36
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/extensions/lisp-mode/connection.lisp b/extensions/lisp-mode/connection.lisp
@@ -118,6 +118,7 @@
                   :type string
                   :documentation "The server's Swank version.")
    (features :accessor connection-features)
+   (system-file-patterns :accessor connection-system-file-patterns)
    (info :accessor connection-info)
    (command :initform nil :accessor connection-command)
    (process :initform nil :accessor connection-process)
@@ -200,7 +201,9 @@
                       (connection-package connection)
                       (getf (getf data :package) :name)
                       (connection-prompt-string connection)
-                      (getf (getf data :package) :prompt)))
+                      (getf (getf data :package) :prompt)
+                      (connection-system-file-patterns connection)
+                      (getf data :system-file-patterns)))
               (return)))
 
   (log:debug "Creating the REPL" connection)

diff --git a/qlfile.lock b/qlfile.lock
@@ -9,7 +9,7 @@
 ("micros" .
  (:class qlot/source/git:source-git
   :initargs (:remote-url "https://github.com/lem-project/micros.git")
-  :version "git-af94fe5d6688f67a092f604765fb706ebae44e99"))
+  :version "git-25177e04a946365397a0848a6545399860d310d0"))
 ("lem-mailbox" .
  (:class qlot/source/git:source-git
   :initargs (:remote-url "https://github.com/lem-project/lem-mailbox.git")