Add org-skill-literate-programming+engineering-standards skills

- Add org-skill-literate-programming: enforce Org discipline
  - One function per block, pre-tangle check, .lisp is derived
- Extend org-skill-engineering-standards with Phase 0-5 lifecycle
  - Test-first design, three chaos tiers
  - Literate programming rules, decision audit trail

library/gen/org-skill-engineering-standards.lisp

@@ -1,5 +1,3 @@
-(in-package :opencortex)
-
 (defun verify-git-clean-p (&optional (dir *project-root*))
   "Returns T if the git repository at DIR has no uncommitted changes."
   (let ((status (uiop:run-program (list "git" "-C" (namestring dir) "status" "--porcelain")
@@ -7,13 +5,25 @@
                                   :ignore-error-status t)))
     (string= "" (string-trim '(#\Space #\Newline #\Tab) status))))
 
+(defun engineering-standards-gate (action context)
+  "The deterministic gate for the Engineering Standards skill.
+
+  Checks:
+  1. Git tree is clean (warn if dirty)
+  2. Action has :engineering-standards-compliance note if high-impact
+
+  Returns ACTION unmodified. This is a warning gate, not a blocking gate."
+  (declare (ignore context))
+
+  ;; Check 1: Git cleanliness
+  (let ((dirty (not (verify-git-clean-p))))
+    (when dirty
+      (harness-log "ENGINEERING STANDARDS: Warning - Working tree is dirty. Commit before modifying files.")))
+
+  action)
+
 (defskill :skill-engineering-standards
   :priority 1000
-  :trigger (lambda (ctx) t)
+  :trigger (lambda (ctx) (declare (ignore ctx)) t)
   :probabilistic nil
-  :deterministic (lambda (action context)
-                    (declare (ignore action))
-                    (let ((dirty (verify-git-clean-p)))
-                      (unless dirty
-                        (harness-log "ENGINEERING STANDARDS: Warning - Working tree is dirty. Commit before modifying files.")))
-                    nil))
+  :deterministic #'engineering-standards-gate)