roadmap: mark P4 style-warning fix as DONE

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.

docs/ROADMAP.org

@@ -339,7 +339,8 @@ for targeted retrieval of specific function docs or test blocks by heading name.
 ***** DONE P3: Variable name drift normalization (out of scope for now) :backfill:
 CLOSED: [2026-05-03 Sun 11:50]
 
-***** TODO P4: Eliminate STYLE-WARNINGs from setup output             :cosmetic:
+***** DONE P4: Eliminate STYLE-WARNINGs from setup output             :cosmetic:
+CLOSED: [2026-05-04 Mon]
 SBCL emits ~25 STYLE-WARNINGs at boot due to forward references (function
 called before its =defun= appears in the file). Actual bugs (C/T, handler-case,
 bare =return=) are already fixed. Remaining warnings fall into two categories:

lisp/gateway-messaging.lisp

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

lisp/programming-repl.lisp

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

lisp/programming-standards.lisp

@@ -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")

lisp/system-archivist.lisp

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

lisp/system-memory.lisp

@@ -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).

org/gateway-messaging.org

@@ -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)")
 

org/programming-repl.org

@@ -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.")
 

org/programming-standards.org

@@ -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")

org/system-archivist.org

@@ -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.")
 

org/system-memory.org

@@ -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).