fix: add (in-package :passepartout) to 5 skill files missing it

Eliminates COMMON-LISP-USER::DEFSKILL and other package-related
STYLE-WARNINGs during compilation. Files affected:
- gateway-messaging, programming-repl, programming-standards,
  system-memory, system-archivist
Remaining warnings are cross-skill references (vault functions)
and minor same-file forward refs — category 2 per ROADMAP.
This commit is contained in:
2026-05-04 18:34:33 -04:00
parent 740ff3bb89
commit 1456e59f7f
10 changed files with 20 additions and 0 deletions

View File

@@ -1,3 +1,5 @@
(in-package :passepartout)
(defvar *gateway-configs* (make-hash-table :test 'equal)
"Maps platform name to plist (:token :thread :interval :enabled)")

View File

@@ -1,3 +1,5 @@
(in-package :passepartout)
(defvar *repl-package* :passepartout
"Default package for REPL evaluations.")

View File

@@ -1,3 +1,5 @@
(in-package :passepartout)
(defun standards-git-clean-p (dir)
"Checks if a directory has uncommitted changes."
(let ((status (uiop:run-program (list "git" "-C" (namestring dir) "status" "--porcelain")

View File

@@ -1,3 +1,5 @@
(in-package :passepartout)
(defvar *archivist-last-scribe* 0
"Universal time of the last Scribe distillation run.")

View File

@@ -1,3 +1,5 @@
(in-package :passepartout)
(defun memory-inspect (&key (type-filter nil) (todo-filter nil) (limit 10))
"Returns a structured report of memory state.
Optional filters: TYPE-FILTER (keyword), TODO-FILTER (string).

View File

@@ -21,6 +21,8 @@ This replaces the old ~gateway-manager~ skill. The Telegram/Signal platform code
** Data
#+begin_src lisp
(in-package :passepartout)
(defvar *gateway-configs* (make-hash-table :test 'equal)
"Maps platform name to plist (:token :thread :interval :enabled)")

View File

@@ -36,6 +36,8 @@ The REPL skill fills this gap by:
** Global State
;; REPL-VERIFIED: 2026-05-03T13:00:00
#+begin_src lisp
(in-package :passepartout)
(defvar *repl-package* :passepartout
"Default package for REPL evaluations.")

View File

@@ -89,6 +89,8 @@ CLOSED: [2026-05-02 Sat 18:00]
** Standards Enforcement
;; REPL-VERIFIED: 2026-05-03T13:00:00
#+begin_src lisp
(in-package :passepartout)
(defun standards-git-clean-p (dir)
"Checks if a directory has uncommitted changes."
(let ((status (uiop:run-program (list "git" "-C" (namestring dir) "status" "--porcelain")

View File

@@ -20,6 +20,8 @@ events, performing two core functions:
;; REPL-VERIFIED: 2026-05-03T13:00:00
#+begin_src lisp
(in-package :passepartout)
(defvar *archivist-last-scribe* 0
"Universal time of the last Scribe distillation run.")

View File

@@ -12,6 +12,8 @@ Because Lisp is homoiconic (code is data), memory objects can be read as executa
;; REPL-VERIFIED: 2026-05-03T13:00:00
#+begin_src lisp
(in-package :passepartout)
(defun memory-inspect (&key (type-filter nil) (todo-filter nil) (limit 10))
"Returns a structured report of memory state.
Optional filters: TYPE-FILTER (keyword), TODO-FILTER (string).