REFAC: Refactored perceive stage and relocated telemetry

literate/package.org

@@ -64,6 +64,7 @@ flowchart TD
    #:context-get-system-logs
    #:context-resolve-path
    #:context-get-skill-telemetry
+   #:harness-track-telemetry
    #:context-assemble-global-awareness
    
    ;; --- Reactive Signal Pipeline ---
@@ -149,6 +150,21 @@ The harness maintains a thread-safe circular log buffer to provide context for d
 (defvar *telemetry-lock* (bt:make-lock "harness-telemetry-lock"))
 #+end_src
 
+** Telemetry Implementation
+The system tracks the performance and reliability of individual skills. This logic is currently preserved in the package layer for future expansion into a dedicated telemetry skill.
+
+#+begin_src lisp :tangle ../src/package.lisp
+(defun harness-track-telemetry (skill-name duration status)
+  "Updates performance metrics for a specific skill. Status should be :success or :rejected."
+  (when skill-name 
+    (bt:with-lock-held (*telemetry-lock*)
+      (let ((entry (or (gethash skill-name *skill-telemetry*) (list :executions 0 :total-time 0 :failures 0))))
+        (incf (getf entry :executions)) 
+        (incf (getf entry :total-time) duration)
+        (when (eq status :rejected) (incf (getf entry :failures))) 
+        (setf (gethash skill-name *skill-telemetry*) entry)))))
+#+end_src
+
 ** Cognitive Tool Registry
 The Tool Registry allows the agent to interact with the physical world. Every tool must define a guard (for security) and a body (for execution).