v0.3.0: finish Async Embedding Gateway — mark-vector-stale, cron, defskill, ROADMAP updates

- Add mark-vector-stale(id, content): sets :vector to :pending, queues for re-embed
- Register cron job (embed-all-pending every 10m on :reflex tier via orchestrator)
- Add defskill :passepartout-system-model-embedding (priority 70)
- Remove embedding from topological-sort exclusion list in core-skills
- Export mark-vector-stale in core-defpackage
- Contract: items 4 (mark-vector-stale) and 5 (cron registration)
- Test: test-mark-vector-stale (5 checks)
- ROADMAP: mark Context Manager, Async Embedding Gateway, TUI Experience as DONE
- All v0.3.0 items now complete. Total: 5 suites, 85 checks, 0 failures

org/system-model-embedding.org

@@ -142,6 +142,38 @@ This replaces the old ~system-embedding-gateway~ with the same logic but renamed
 (log-message "EMBEDDING: Gateway loaded with provider ~a" *embedding-provider*)
 #+end_src
 
+** Stale vector marking
+#+begin_src lisp
+(defun mark-vector-stale (id &optional content)
+  "Mark a memory object's vector as :pending and queue it for re-embedding.
+When content is not supplied, reads from the object in *memory-store*."
+  (let* ((obj (gethash id *memory-store*))
+         (text (or content (and obj (memory-object-content obj)))))
+    (when obj
+      (setf (memory-object-vector obj) :pending))
+    (when text
+      (push (list :id id :text text) *embedding-queue*)
+      (log-message "EMBEDDING: Marked ~a vector stale, queued for re-embed" id))
+    (or obj text)))
+#+end_src
+
+** Skill Registration and Cron
+#+begin_src lisp
+(defskill :passepartout-system-model-embedding
+  :priority 70
+  :trigger (lambda (ctx) (declare (ignore ctx)) nil))
+
+;; Register periodic batch embedding via cron (when orchestrator available)
+(when (fboundp 'orchestrator-register-cron)
+  (handler-case
+      (orchestrator-register-cron :embed-batch
+                                  "<2026-05-05 Tue +10m>"
+                                  'embed-all-pending
+                                  :reflex)
+    (error (c)
+      (log-message "EMBEDDING: Cron registration failed: ~a" c))))
+#+end_src
+
 * Contract
 
 1. (embeddings-compute text): produces a vector (single-float array) for
@@ -151,6 +183,10 @@ This replaces the old ~system-embedding-gateway~ with the same logic but renamed
    an 8-element single-float vector deterministically from SHA-256.
 3. (embed-all-pending): drains ~*embedding-queue*~, computes vectors for
    all queued objects, and stores them in ~*memory-store*~ entries.
+4. (mark-vector-stale id &optional content): sets ~:vector~ to ~:pending~
+   and pushes object to ~*embedding-queue*~ for background re-embedding.
+5. Cron: ~embed-all-pending~ is registered with the orchestrator to run
+   on ~:reflex~ tier every 10 minutes for background batch processing.
 
 * Test Suite
 #+begin_src lisp
@@ -192,4 +228,20 @@ This replaces the old ~system-embedding-gateway~ with the same logic but renamed
     (fiveam:is (= 1 (length *embedding-queue*)))
     (embed-all-pending)
     (fiveam:is (null *embedding-queue*))))
+
+(fiveam:test test-mark-vector-stale
+  "Contract 4: mark-vector-stale sets vector to :pending and queues for re-embed."
+  (let ((*embedding-queue* nil))
+    ;; Create an object in memory with a vector
+    (let ((obj (make-memory-object :id "stale-test" :content "stale content"
+                                   :vector #(1.0 2.0 3.0))))
+      (setf (gethash "stale-test" *memory-store*) obj)
+      (mark-vector-stale "stale-test")
+      (fiveam:is (eq :pending (memory-object-vector obj)))
+      (fiveam:is (= 1 (length *embedding-queue*)))
+      (let ((item (first *embedding-queue*)))
+        (fiveam:is (string= "stale-test" (getf item :id)))
+        (fiveam:is (string= "stale content" (getf item :text))))
+      ;; Clean up
+      (remhash "stale-test" *memory-store*))))
 #+end_src