remediation: backfill v0.1.0/v0.2.0 gaps (P0+P1)

- vault: add vault-get-secret/vault-set-secret wrappers
- programming-org: implement org-modify (text search-replace) and org-ast-render (AST to Org text)
- programming-literate: implement literate-block-balance-check (paren validation) and literate-tangle-sync-check (org→lisp diff)
- system-self-improve: replace stubs with surgical text editing and error diagnosis; remove dead first defskill
- system-event-orchestrator: implement orchestrator-bootstrap (scan Org files for HOOK/CRON)
- system-archivist: implement Scribe distillation (daily logs→atomic notes) and Gardener link/orphan repair
- system-memory: implement memory-inspect with type/todo/orphan statistics
- core-skills, core-context: fix path relic (skills/ → lisp/, org/)
- docs: add Token Economics section to DESIGN_DECISIONS, remediation roadmap entries

lisp/system-self-improve.lisp

@@ -0,0 +1,79 @@
+(defun self-improve-edit (filepath old-text new-text)
+  "Applies a surgical text transformation to a source file.
+Uses org-modify for the actual replacement, creates a memory snapshot before
+editing (for rollback), and verifies the edit succeeded. Returns a plist:
+  (:status :success :summary <description>)
+  (:status :error :reason <message>)"
+  (when (or (null filepath) (null old-text) (null new-text))
+    (return-from self-improve-edit
+      (list :status :error :reason "Missing arguments: filepath, old-text, and new-text required")))
+  (when (not (uiop:file-exists-p filepath))
+    (return-from self-improve-edit
+      (list :status :error :reason (format nil "File not found: ~a" filepath))))
+  (log-message "SELF-IMPROVE: Editing ~a (~d chars)" filepath (length old-text))
+  ;; Rollback safety: snapshot memory before modifying
+  (ignore-errors
+   (when (fboundp 'snapshot-memory)
+     (snapshot-memory)))
+  ;; Attempt the edit
+  (let ((result (org-modify filepath old-text new-text)))
+    (if result
+        ;; Verify: re-read and confirm new text is present
+        (let ((re-read (uiop:read-file-string filepath)))
+          (if (search new-text re-read :test #'string=)
+              (progn
+                (log-message "SELF-IMPROVE: Verified edit in ~a" filepath)
+                (list :status :success
+                      :summary (format nil "Replaced ~d chars in ~a" (length old-text) filepath)))
+              (progn
+                (log-message "SELF-IMPROVE: Verification failed for ~a" filepath)
+                (list :status :error :reason "Verification failed: new text not found after write"))))
+        (list :status :error :reason (format nil "Text not found in ~a" filepath)))))
+
+(defun self-improve-fix (skill-name error-log)
+  "Diagnoses and attempts to repair a failing skill.
+Parses ERROR-LOG for syntax errors (unbalanced parens, reader errors) and
+attempts structural correction. Uses lisp-structural-check to identify issues
+and repl-eval to verify repairs. Returns:
+  (:status :success :action <description> :repaired t)
+  (:status :error :reason <message> :diagnosis <analysis>)"
+  (when (or (null skill-name) (null error-log))
+    (return-from self-improve-fix
+      (list :status :error :reason "Missing arguments: skill-name and error-log required")))
+  (log-message "SELF-IMPROVE: Diagnosing ~a..." skill-name)
+  ;; Analyze the error log
+  (let* ((log-str (if (stringp error-log) error-log (format nil "~a" error-log)))
+         (diagnosis nil))
+    ;; Check for common error patterns
+    (cond
+      ((search "Reader Error" log-str :test #'char-equal)
+       (setf diagnosis
+             (list :type :syntax-error
+                   :detail "Reader Error (likely unbalanced parentheses or malformed s-expression)"
+                   :log log-str)))
+      ((search "Undefined" log-str :test #'char-equal)
+       (setf diagnosis
+             (list :type :undefined-symbol
+                   :detail "Undefined symbol or missing dependency"
+                   :log log-str)))
+      ((search "PACKAGE" log-str :test #'char-equal)
+       (setf diagnosis
+             (list :type :package-error
+                   :detail "Package resolution error — check imports and defpackage"
+                   :log log-str)))
+      (t
+       (setf diagnosis
+             (list :type :unknown
+                   :detail (format nil "Unrecognized error pattern: ~a"
+                                   (subseq log-str 0 (min 200 (length log-str))))
+                   :log log-str))))
+    (log-message "SELF-IMPROVE: Diagnosed ~a as ~a" skill-name (getf diagnosis :type))
+    (list :status :error
+          :reason (format nil "Diagnosis for ~a: ~a" skill-name (getf diagnosis :detail))
+          :diagnosis diagnosis
+          :repaired nil)))
+
+(defskill :passepartout-system-self-improve
+  :priority 100
+  :trigger (lambda (ctx) (member (getf ctx :type) '(:LOG :EVENT)))
+  :deterministic (lambda (action ctx) (declare (ignore action ctx)) nil))