passepartout: v0.5.1 — Compilation Hardening

Fixed 3 real compilation errors:
- security-vault.lisp: bare defvar missing opening paren
- embedding-native.lisp: CFFI struct refs updated (llama-mparams→(:struct ...), 19 places)
- symbolic-events.lisp: heartbeat vars + save-memory-to-disk → passepartout:: prefix

Suppressed ~100 harmless cross-skill STYLE-WARNINGs:
- Added grep filter for STYLE-WARNING / WARNING: redefining
  in the pre-compile step of the passepartout bash script

ROADMAP updated: all v0.5.1 items marked DONE.
Test suite: 116/116 (100%)
This commit is contained in:
2026-05-08 09:16:33 -04:00
parent c86d079418
commit f6079246ee
16 changed files with 186 additions and 203 deletions

View File

@@ -193,26 +193,26 @@ and registers them. Scans ~/memex/projects/ and ~/memex/system/ by default."
(error (c)
(log-message "ORCHESTRATOR: Could not scan ~a: ~a" dir c))))
(log-message "ORCHESTRATOR: Bootstrap complete (~d hooks, ~d cron jobs)"
hook-count cron-count)))
hook-count cron-count)))
(defun events-start-heartbeat ()
"Starts the background heartbeat thread. v0.5.0: extracted from core-loop."
(let ((interval (or (ignore-errors (parse-integer (uiop:getenv "HEARTBEAT_INTERVAL"))) 60))
(auto-save (or (ignore-errors (parse-integer (uiop:getenv "MEMORY_AUTO_SAVE_INTERVAL"))) *memory-auto-save-interval*)))
(setf *memory-auto-save-interval* auto-save)
(setf *heartbeat-save-counter* 0)
(setf *heartbeat-thread*
(bt:make-thread
(lambda ()
(loop
(sleep interval)
(incf *heartbeat-save-counter*)
(when (>= *heartbeat-save-counter* (/ *memory-auto-save-interval* interval))
(setf *heartbeat-save-counter* 0)
(save-memory-to-disk))
(stimulus-inject
(list :type :EVENT :payload (list :sensor :heartbeat :unix-time (get-universal-time))))))
:name "passepartout-heartbeat"))))
(auto-save (or (ignore-errors (parse-integer (uiop:getenv "MEMORY_AUTO_SAVE_INTERVAL"))) passepartout::*memory-auto-save-interval*)))
(setf passepartout::*memory-auto-save-interval* auto-save)
(setf passepartout::*heartbeat-save-counter* 0)
(setf passepartout::*heartbeat-thread*
(bt:make-thread
(lambda ()
(loop
(sleep interval)
(incf passepartout::*heartbeat-save-counter*)
(when (>= passepartout::*heartbeat-save-counter* (/ passepartout::*memory-auto-save-interval* interval))
(setf passepartout::*heartbeat-save-counter* 0)
(passepartout::save-memory-to-disk))
(stimulus-inject
(list :type :EVENT :payload (list :sensor :heartbeat :unix-time (get-universal-time))))))
:name "passepartout-heartbeat"))))
(defskill :passepartout-symbolic-events
:priority 80