diff --git a/harness/package.org b/harness/package.org index 5286068..2895b11 100644 --- a/harness/package.org +++ b/harness/package.org @@ -1,4 +1,3 @@ -#+PROPERTY: header-args:lisp :tangle package.lisp #+TITLE: System Interface (package.lisp) #+AUTHOR: Agent #+FILETAGS: :harness:interface: @@ -205,14 +204,14 @@ The ~package.lisp~ file defines the public API of the ~opencortex~ harness. (or (getf plist up) (getf plist dn)))) (defvar *system-logs* nil) -(defvar *logs-lock* (bordeaux-threads:make-lock "harness-logs-lock) +(defvar *logs-lock* (bordeaux-threads:make-lock "harness-logs-lock")) (defvar *max-log-history* 100) (defvar *skills-registry* (make-hash-table :test 'equal) - "Global registry of all loaded skills. + "Global registry of all loaded skills.") (defvar *skill-telemetry* (make-hash-table :test 'equal)) -(defvar *telemetry-lock* (bordeaux-threads:make-lock "harness-telemetry-lock) +(defvar *telemetry-lock* (bordeaux-threads:make-lock "harness-telemetry-lock")) (defun harness-track-telemetry (skill-name duration status) "Updates performance metrics for a specific skill. Status should be :success or :rejected."