passepartout: v0.5.0 hotfix 2 — daemon stable
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s
- Restore (in-package :passepartout) to core-reason - Move *VAULT-MEMORY* back to core-skills - Fix ASDF and defstruct/defpackage ordering - Increase daemon timeout to 120s - Handshake: 0.5.0 Verified: daemon processes messages, TUI clean, gate trace works
This commit is contained in:
@@ -234,6 +234,47 @@ The skill has four layers:
|
||||
:trigger (lambda (ctx) (declare (ignore ctx)) nil))
|
||||
#+end_src
|
||||
|
||||
** Plist Keywords Normalize (relocated from core-reason)
|
||||
|
||||
|
||||
|
||||
Lisp keywords are case-sensitive. The LLM might produce ~:payload~ or ~:PAYLOAD~ depending on the model. This function normalizes keyword keys to uppercase.
|
||||
|
||||
|
||||
|
||||
#+begin_src lisp
|
||||
|
||||
(defun plist-keywords-normalize (plist)
|
||||
|
||||
(when (listp plist)
|
||||
|
||||
(loop for (k v) on plist by #'cddr
|
||||
|
||||
collect (if (and (symbolp k) (not (keywordp k)))
|
||||
|
||||
(intern (string k) :keyword)
|
||||
|
||||
k)
|
||||
|
||||
collect v)))
|
||||
|
||||
#+end_src
|
||||
|
||||
|
||||
** Plist Keywords Normalize (relocated from core-reason)
|
||||
|
||||
Lisp keywords are case-sensitive. The LLM might produce :payload or :PAYLOAD depending on the model. This function normalizes keyword keys to uppercase.
|
||||
|
||||
#+begin_src lisp
|
||||
(defun plist-keywords-normalize (plist)
|
||||
(when (listp plist)
|
||||
(loop for (k v) on plist by #'cddr
|
||||
collect (if (and (symbolp k) (not (keywordp k)))
|
||||
(intern (string k) :keyword)
|
||||
k)
|
||||
collect v)))
|
||||
#+end_src
|
||||
|
||||
* Test Suite
|
||||
Tests for the Lisp Validator structural, syntactic, and semantic gates.
|
||||
#+begin_src lisp
|
||||
|
||||
Reference in New Issue
Block a user