PSF: Stabilizing workspace after crash. Valid kernel/skill fixes.

projects/org-skill-tech-analyst/src/analyst-logic.lisp

@@ -1,19 +1,3 @@
-;;;; analyst-logic.lisp --- TDD automation for the PSF (Unified).
-;;;; This file is TANGLED from notes/org-skill-tech-analyst.org. DO NOT EDIT MANUALLY.
-
-(defpackage :org-skill-tech-analyst
-  (:use :cl :uiop :local-time)
-  (:export #:tech-analyst-perceive-signed-protocol
-           #:tech-analyst-scan-all-notes
-           #:trigger-skill-tech-analyst
-           #:neuro-skill-tech-analyst
-           #:tech-analyst-actuate))
-
-(in-package :org-skill-tech-analyst)
-
-(defun kernel-log (message &rest args)
-  (format t "~&[ANALYST] ~?" message args))
-
 (defun tech-analyst-perceive-signed-protocol (note-path)
   "Checks if a master note has a SIGNED PROTOCOL and lacks a TDD suite in the material project."
   (let* ((content (uiop:read-file-string note-path))
@@ -76,7 +60,7 @@
          (test-dir (format nil "~atests/" project-dir))
          (test-path (format nil "~atests/test-suite.lisp" project-dir)))
     
-    (kernel-log "Actuating TDD Suite for ~a" project-name)
+    (org-agent:kernel-log "ANALYST - Actuating TDD Suite for ~a" project-name)
     (ensure-directories-exist test-dir)
     (with-open-file (out test-path :direction :output :if-exists :supersede)
       (format out ";;; TDD Suite for ~a~%~a" project-name test-content))