memex/system/skills/org-skill-scribe-rca.org

SKILL: Scribe-RCA Agent (Consensus Phase F Extension)

• Overview
• The RCA Mandate
• Symbolic Implementation (The Logic)
• Neuro-Cognitive Prompt (The 'Think' Loop)
• Registration

Overview

The Scribe-RCA Agent is a specialized extension of the Scribe role within the Personal Software Foundry (PSF). Its purpose is to close the "Learning Loop" by automatically extracting Root Cause Analysis (RCA) entries from failed tasks or session logs.

By populating the Institutional Memory, the Scribe-RCA ensures that the agent never repeats the same technical mistake twice.

The RCA Mandate

1. Perception: The Scribe must scan `$MEMEX_SYSTEM/logs/` and `*Messages*` for fatal Lisp or System errors.
2. Diagnosis: It must analyze the stack trace and the context of the failure to identify the Root Cause.

3. Distillation: It MUST generate a high-signal entry for the memory ledger, including:

   • Symptom: What the user/agent saw.
   • Root Cause: Why it actually happened.
   • Prevention: The specific heuristic or code-change required to prevent recurrence.

Symbolic Implementation (The Logic)

The following Lisp logic defines how the agent appends new learnings to the institutional memory.

(defun scribe-rca-append (symptom cause prevention)
  "Appends a new RCA entry to the institutional-memory.org file."
  (let* ((memex-dir (org-agent::get-env "MEMEX_DIR" "/app/"))
         (memory-file (format nil "~anotes/institutional-memory.org" memex-dir))
         (timestamp (format-time-string "[%Y-%m-%d %a]")))
    
    (kernel-log "SCRIBE-RCA - Recording new learning: ~a" cause)
    
    (with-open-file (out memory-file :direction :output :if-exists :append)
      (format out "~%** ~a ~a~%- **Symptom:** ~a~%- **Root Cause:** ~a~%- **Prevention:** ~a~%" 
              timestamp cause symptom cause prevention))
    
    (format nil "SUCCESS - Scribe-RCA updated Institutional Memory with: ~a" cause)))

Neuro-Cognitive Prompt (The 'Think' Loop)

When an error is detected, the neuro-layer is invoked with the log data to perform the analysis.

(defun neuro-skill-scribe-rca (context)
  (let* ((payload (getf context :payload))
         (error-log (getf payload :error-log)))
    (format nil "
      You are the PSF Scribe-RCA Agent. 
      A failure has occurred in the system. 
      
      ERROR LOG:
      ---
      ~a
      ---
      
      Your task: Perform a Root Cause Analysis.
      1. Identify the 'Symptom' (The visible error).
      2. Identify the 'Root Cause' (The underlying technical reason).
      3. Define a 'Prevention' heuristic (How to avoid this forever).
      
      Return a Lisp plist: (:target :scribe :action :rca-append :symptom \"...\" :cause \"...\" :prevention \"...\")
    " error-log)))

Registration

(defskill :skill-scribe-rca
  :priority 90
  :trigger #'trigger-skill-scribe-rca
  :neuro #'neuro-skill-scribe-rca
  :symbolic #'scribe-rca-append)