feat(v0.3.0): Event Orchestrator skill

- New system-event-orchestrator skill with hook registry, cron registry, and tier classifier

- Three dispatch tiers: :reflex (no LLM), :cognition (light), :reasoning (full)

- Org-mode timestamp parsing for repeat patterns (+1w, +1d, +1m)

- Registers on heartbeat via defskill, dispatches due cron jobs

- Fix all remaining harness-log → log-message references across org files

lisp/core-loop.lisp

@@ -16,11 +16,11 @@
       (let ((depth (getf current-signal :depth 0))
             (meta (getf current-signal :meta)))
         (when (> depth 10)
-          (harness-log "METABOLISM ERROR: Max recursion depth reached.")
+          (log-message "METABOLISM ERROR: Max recursion depth reached.")
           (return nil))
 
         (when (bt:with-lock-held (*loop-interrupt-lock*) *interrupt-flag*)
-          (harness-log "METABOLISM: Interrupted by shutdown signal.")
+          (log-message "METABOLISM: Interrupted by shutdown signal.")
           (return nil))
 
         (handler-case
@@ -35,9 +35,9 @@
                     (setf current-signal nil))))
           (error (c)
             (let ((sensor (ignore-errors (getf (getf current-signal :payload) :sensor))))
-              (harness-log "METABOLISM CRASH [~a]: ~a" (or sensor :unknown) c)
+              (log-message "METABOLISM CRASH [~a]: ~a" (or sensor :unknown) c)
               (unless (member sensor '(:loop-error :tool-error :syntax-error))
-                (harness-log "CRITICAL ERROR: Initiating Micro-Rollback.")
+                (log-message "CRITICAL ERROR: Initiating Micro-Rollback.")
                 (rollback-memory 0))
               (if (or (> depth 2) (member sensor '(:loop-error :tool-error)))
                   (setf current-signal nil)
@@ -123,14 +123,14 @@
   (sb-sys:enable-interrupt sb-unix:sigint
                             (lambda (sig code scp)
                               (declare (ignore sig code scp))
-                              (harness-log "SHUTDOWN: SIGINT received. Saving memory...")
+                              (log-message "SHUTDOWN: SIGINT received. Saving memory...")
                               (when *shutdown-save-enabled* (save-memory-to-disk))
                               (uiop:quit 0)))
 
   (let ((sleep-interval (or (ignore-errors (parse-integer (uiop:getenv "DAEMON_SLEEP_INTERVAL"))) 3600)))
     (loop
       (when (bt:with-lock-held (*loop-interrupt-lock*) *interrupt-flag*)
-        (harness-log "SHUTDOWN: Interrupt flag set. Saving memory...")
+        (log-message "SHUTDOWN: Interrupt flag set. Saving memory...")
         (when *shutdown-save-enabled* (save-memory-to-disk))
         (return))
       (sleep sleep-interval))))