Amr Gharbeia
31acf347de
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
- 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
30 lines
1.1 KiB
Common Lisp
30 lines
1.1 KiB
Common Lisp
(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")
|
|
:output :string
|
|
: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) (declare (ignore ctx)) t)
|
|
:probabilistic nil
|
|
:deterministic #'engineering-standards-gate)
|