docs: global terminology update from kernel/core to harness

skills/org-skill-safety-harness.org

@@ -53,7 +53,7 @@ Define a high-integrity, recursive security sandbox for Lisp execution.
     ;; Strings
     format concatenate string-downcase string-upcase search
     ;; Kernel specifics
-    org-agent::kernel-log
+    org-agent::harness-log
     org-agent::snapshot-object-store
     org-agent::rollback-object-store
     org-agent::lookup-object
@@ -91,7 +91,7 @@ We allow other skills to register safe symbols for the harness.
 (defun safety-harness-register (symbols)
   "Adds symbols to the global safety registry."
   (setf *safety-registry* (append *safety-registry* (if (listp symbols) symbols (list symbols))))
-  (kernel-log "SAFETY HARNESS: Registered ~a new safe symbols." (length (if (listp symbols) symbols (list symbols)))))
+  (harness-log "SAFETY HARNESS: Registered ~a new safe symbols." (length (if (listp symbols) symbols (list symbols)))))
 
 (defun safety-harness-is-safe (symbol)
   "Checks if a symbol is in the static whitelist or the dynamic registry."
@@ -119,7 +119,7 @@ We allow other skills to register safe symbols for the harness.
          ((safety-harness-is-safe head)
           (every #'safety-harness-ast-walk (cdr form)))
          (t 
-          (kernel-log "SAFETY HARNESS: Blocked call to non-whitelisted function ~a" head)
+          (harness-log "SAFETY HARNESS: Blocked call to non-whitelisted function ~a" head)
           nil))))
     (t nil)))
 #+end_src
@@ -153,7 +153,7 @@ We allow other skills to register safe symbols for the harness.
   :symbolic (lambda (action context)
               ;; The decide-gate already calls safety-harness-validate via global logic,
               ;; but this skill can provide additional context or logging.
-              (kernel-log "SYSTEM 2 [Safety]: Intercepted critical action for validation.")
+              (harness-log "SYSTEM 2 [Safety]: Intercepted critical action for validation.")
               action))
 #+end_src