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:
@@ -1,3 +1,5 @@
|
|||||||
|
(in-package :passepartout)
|
||||||
|
|
||||||
(defvar *gateway-configs* (make-hash-table :test 'equal)
|
(defvar *gateway-configs* (make-hash-table :test 'equal)
|
||||||
"Maps platform name to plist (:token :thread :interval :enabled)")
|
"Maps platform name to plist (:token :thread :interval :enabled)")
|
||||||
|
|
||||||
|
|||||||
@@ -1,3 +1,5 @@
|
|||||||
|
(in-package :passepartout)
|
||||||
|
|
||||||
(defvar *repl-package* :passepartout
|
(defvar *repl-package* :passepartout
|
||||||
"Default package for REPL evaluations.")
|
"Default package for REPL evaluations.")
|
||||||
|
|
||||||
|
|||||||
@@ -1,3 +1,5 @@
|
|||||||
|
(in-package :passepartout)
|
||||||
|
|
||||||
(defun standards-git-clean-p (dir)
|
(defun standards-git-clean-p (dir)
|
||||||
"Checks if a directory has uncommitted changes."
|
"Checks if a directory has uncommitted changes."
|
||||||
(let ((status (uiop:run-program (list "git" "-C" (namestring dir) "status" "--porcelain")
|
(let ((status (uiop:run-program (list "git" "-C" (namestring dir) "status" "--porcelain")
|
||||||
|
|||||||
@@ -1,3 +1,5 @@
|
|||||||
|
(in-package :passepartout)
|
||||||
|
|
||||||
(defvar *archivist-last-scribe* 0
|
(defvar *archivist-last-scribe* 0
|
||||||
"Universal time of the last Scribe distillation run.")
|
"Universal time of the last Scribe distillation run.")
|
||||||
|
|
||||||
|
|||||||
@@ -1,3 +1,5 @@
|
|||||||
|
(in-package :passepartout)
|
||||||
|
|
||||||
(defun memory-inspect (&key (type-filter nil) (todo-filter nil) (limit 10))
|
(defun memory-inspect (&key (type-filter nil) (todo-filter nil) (limit 10))
|
||||||
"Returns a structured report of memory state.
|
"Returns a structured report of memory state.
|
||||||
Optional filters: TYPE-FILTER (keyword), TODO-FILTER (string).
|
Optional filters: TYPE-FILTER (keyword), TODO-FILTER (string).
|
||||||
|
|||||||
@@ -21,6 +21,8 @@ This replaces the old ~gateway-manager~ skill. The Telegram/Signal platform code
|
|||||||
|
|
||||||
** Data
|
** Data
|
||||||
#+begin_src lisp
|
#+begin_src lisp
|
||||||
|
(in-package :passepartout)
|
||||||
|
|
||||||
(defvar *gateway-configs* (make-hash-table :test 'equal)
|
(defvar *gateway-configs* (make-hash-table :test 'equal)
|
||||||
"Maps platform name to plist (:token :thread :interval :enabled)")
|
"Maps platform name to plist (:token :thread :interval :enabled)")
|
||||||
|
|
||||||
|
|||||||
@@ -36,6 +36,8 @@ The REPL skill fills this gap by:
|
|||||||
** Global State
|
** Global State
|
||||||
;; REPL-VERIFIED: 2026-05-03T13:00:00
|
;; REPL-VERIFIED: 2026-05-03T13:00:00
|
||||||
#+begin_src lisp
|
#+begin_src lisp
|
||||||
|
(in-package :passepartout)
|
||||||
|
|
||||||
(defvar *repl-package* :passepartout
|
(defvar *repl-package* :passepartout
|
||||||
"Default package for REPL evaluations.")
|
"Default package for REPL evaluations.")
|
||||||
|
|
||||||
|
|||||||
@@ -89,6 +89,8 @@ CLOSED: [2026-05-02 Sat 18:00]
|
|||||||
** Standards Enforcement
|
** Standards Enforcement
|
||||||
;; REPL-VERIFIED: 2026-05-03T13:00:00
|
;; REPL-VERIFIED: 2026-05-03T13:00:00
|
||||||
#+begin_src lisp
|
#+begin_src lisp
|
||||||
|
(in-package :passepartout)
|
||||||
|
|
||||||
(defun standards-git-clean-p (dir)
|
(defun standards-git-clean-p (dir)
|
||||||
"Checks if a directory has uncommitted changes."
|
"Checks if a directory has uncommitted changes."
|
||||||
(let ((status (uiop:run-program (list "git" "-C" (namestring dir) "status" "--porcelain")
|
(let ((status (uiop:run-program (list "git" "-C" (namestring dir) "status" "--porcelain")
|
||||||
|
|||||||
@@ -20,6 +20,8 @@ events, performing two core functions:
|
|||||||
|
|
||||||
;; REPL-VERIFIED: 2026-05-03T13:00:00
|
;; REPL-VERIFIED: 2026-05-03T13:00:00
|
||||||
#+begin_src lisp
|
#+begin_src lisp
|
||||||
|
(in-package :passepartout)
|
||||||
|
|
||||||
(defvar *archivist-last-scribe* 0
|
(defvar *archivist-last-scribe* 0
|
||||||
"Universal time of the last Scribe distillation run.")
|
"Universal time of the last Scribe distillation run.")
|
||||||
|
|
||||||
|
|||||||
@@ -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
|
;; REPL-VERIFIED: 2026-05-03T13:00:00
|
||||||
#+begin_src lisp
|
#+begin_src lisp
|
||||||
|
(in-package :passepartout)
|
||||||
|
|
||||||
(defun memory-inspect (&key (type-filter nil) (todo-filter nil) (limit 10))
|
(defun memory-inspect (&key (type-filter nil) (todo-filter nil) (limit 10))
|
||||||
"Returns a structured report of memory state.
|
"Returns a structured report of memory state.
|
||||||
Optional filters: TYPE-FILTER (keyword), TODO-FILTER (string).
|
Optional filters: TYPE-FILTER (keyword), TODO-FILTER (string).
|
||||||
|
|||||||
Reference in New Issue
Block a user