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-memory.lisp

@@ -96,15 +96,15 @@
     (push (list :timestamp (get-universal-time) :data snapshot) *memory-snapshots*)
     (when (> (length *memory-snapshots*) 20)
       (setf *memory-snapshots* (subseq *memory-snapshots* 0 20)))
-    (harness-log "MEMORY - CoW Memory snapshot created.")))
+    (log-message "MEMORY - CoW Memory snapshot created.")))
 
 (defun rollback-memory (&optional (index 0))
   "Restores *memory-store* from a snapshot. INDEX 0 = most recent."
   (let ((snapshot (nth index *memory-snapshots*)))
     (if snapshot
         (progn (setf *memory-store* (memory-hash-table-copy (getf snapshot :data)))
-               (harness-log "MEMORY - Memory rolled back to snapshot ~a" index))
-        (harness-log "MEMORY ERROR - Snapshot ~a not found." index))))
+               (log-message "MEMORY - Memory rolled back to snapshot ~a" index))
+        (log-message "MEMORY ERROR - Snapshot ~a not found." index))))
 
 (defvar *memory-snapshot-path* nil)
 
@@ -123,7 +123,7 @@
         (maphash (lambda (k v) (push (cons k v) memory-alist)) *memory-store*)
         (maphash (lambda (k v) (push (cons k v) history-alist)) *memory-history*)
         (prin1 (list :memory memory-alist :history-store history-alist) stream)))
-    (harness-log "MEMORY - Saved to ~a" path)))
+    (log-message "MEMORY - Saved to ~a" path)))
 
 (defun load-memory-from-disk ()
   "Reads memory state from disk and restores *memory-store* and *memory-history*."
@@ -138,8 +138,8 @@
                   (dolist (kv memory-alist) (setf (gethash (car kv) *memory-store*) (cdr kv)))
                   (setf *memory-history* (make-hash-table :test 'equal :size (length history-alist)))
                   (dolist (kv history-alist) (setf (gethash (car kv) *memory-history*) (cdr kv)))
-                  (harness-log "MEMORY - Loaded from ~a (~a objects)" path (hash-table-size *memory-store*))))))
-          (error (c) (harness-log "MEMORY WARNING - Failed to load snapshot: ~a" c)))))
+                  (log-message "MEMORY - Loaded from ~a (~a objects)" path (hash-table-size *memory-store*))))))
+          (error (c) (log-message "MEMORY WARNING - Failed to load snapshot: ~a" c)))))
   t)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)