Consolidate Lisp utilities into core skills

- Merge lisp-validator + lisp-repair → org-skill-lisp-utils.org
- Add self-fix skill (from contrib)
- Add engineering standards skill (from contrib)
- Delete old org-skill-lisp-validator.org

This consolidates all Lisp utilities (count-char, deterministic-repair,
neural-repair, structural/syntactic/semantic validation) into one skill.

skills/org-skill-self-fix.org

@@ -0,0 +1,95 @@
+:PROPERTIES:
+:ID:       65891ce2-a465-49e6-a0c1-be13d3288d55
+:CREATED:  [2026-03-30 Mon 21:16]
+:EDITED:   [2026-04-09 Thu]
+:END:
+#+TITLE: SKILL: Self-Fix Agent
+#+STARTUP: content
+#+FILETAGS: :self-repair:autonomy:debugging:autonomy:
+
+* Overview
+The *Self-Fix Agent* is the system's "Repair Mechanism." It takes failure hypotheses, applies surgical code modifications, and verifies them using the Memory's rollback capabilities.
+
+This skill enables self-editing by applying surgical fixes to files (including skills) with automatic rollback on failure.
+
+* Phase D: Build (Implementation)
+
+** Repair Logic
+#+begin_src lisp :tangle ../library/gen/org-skill-self-fix.lisp
+(in-package :opencortex)
+#+end_src
+
+#+begin_src lisp :tangle ../library/gen/org-skill-self-fix.lisp
+(defun self-fix-apply (action context)
+  "Applies a surgical code fix and reloads the modified skill."
+  (declare (ignore context))
+  (let* ((payload (getf action :payload))
+         (target-file (getf payload :file))
+         (old-code (getf payload :old))
+         (new-code (getf payload :new))
+         (is-skill (and (stringp (namestring target-file))
+                        (search "skills/" (namestring target-file)))))
+    
+    (opencortex:snapshot-memory)
+    (opencortex:harness-log "SELF-FIX - Attempting surgical fix on ~a..." target-file)
+    
+    (handler-case
+        (if (uiop:file-exists-p target-file)
+            (let ((content (uiop:read-file-string target-file)))
+              (if (search old-code content)
+                  (let ((new-content (cl-ppcre:regex-replace-all (cl-ppcre:quote-meta-chars old-code) content new-code)))
+                    (with-open-file (out target-file :direction :output :if-exists :supersede)
+                      (write-string new-content out))
+                    
+                    (if is-skill
+                        (progn
+                          (opencortex:harness-log "SELF-FIX - Reloading modified skill ~a..." target-file)
+                          (if (opencortex:load-skill-from-org target-file)
+                              (progn
+                                (opencortex:harness-log "SELF-FIX SUCCESS - Applied and reloaded.")
+                                t)
+                              (progn
+                                (opencortex:harness-log "SELF-FIX FAILURE - Skill reload failed. Rolling back.")
+                                (with-open-file (out target-file :direction :output :if-exists :supersede)
+                                  (write-string content out))
+                                (opencortex:rollback-memory 0)
+                                nil)))
+                        (progn
+                          (opencortex:harness-log "SELF-FIX SUCCESS - Applied fix to file.")
+                          t)))
+                  (progn (opencortex:harness-log "SELF-FIX FAILURE - Pattern not found.") nil)))
+            (progn (opencortex:harness-log "SELF-FIX FAILURE - File not found.") nil))
+      (error (c)
+        (opencortex:harness-log "SELF-FIX CRASH - ~a. Rolling back." c)
+        (opencortex:rollback-memory 0)
+        nil))))
+#+end_src
+
+** Cognitive Tool
+#+begin_src lisp :tangle ../library/gen/org-skill-self-fix.lisp
+(def-cognitive-tool :repair-file 
+  "Applies a surgical code modification to a file and reloads the skill if applicable."
+  ((:file :type :string :description "Path to the target file")
+   (:old :type :string :description "The literal code block to find")
+   (:new :type :string :description "The literal code block to replace it with"))
+  :body (lambda (args)
+          (if (self-fix-apply (list :payload args) nil)
+              "REPAIR SUCCESSFUL."
+              "REPAIR FAILED.")))
+#+end_src
+
+** Skill Definition
+#+begin_src lisp :tangle ../library/gen/org-skill-self-fix.lisp
+(defskill :skill-self-fix
+  :priority 95
+  :trigger (lambda (context) (eq (getf (getf context :payload) :sensor) :repair-request))
+  :probabilistic (lambda (context)
+           (format nil "You are the opencortex Repair Actuator. Synthesize a surgical fix for the reported failure.
+Return a Lisp plist for :repair-file."))
+  :deterministic (lambda (action context)
+              (let ((payload (getf action :payload)))
+                (self-fix-apply action context))))
+#+end_src
+
+* See Also
+- [[file:org-skill-lisp-utils.org][Lisp Utils]] - Utilities, repair, and validation