amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(protocol): Force uppercase normalization for message types in validator
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 19:47:21 -04:00
parent 5ad02f6f2e
commit e2d1d9ac8f
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
skills/org-skill-protocol-validator.org
View File

@@ -53,7 +53,7 @@ Decouple protocol parsing (framing/unframing) from semantic validation.
(unless (listp msg) (unless (listp msg)
(error "Communication Protocol Schema Error: Message must be a property list (got ~s)" (type-of msg))) (error "Communication Protocol Schema Error: Message must be a property list (got ~s)" (type-of msg)))
(let ((type (proto-get msg :type))) (let ((type (let ((raw (proto-get msg :type))) (if (keywordp raw) (intern (string-upcase (string raw)) :keyword) raw))))
(unless (member type '(:REQUEST :EVENT :RESPONSE :LOG :STATUS)) (unless (member type '(:REQUEST :EVENT :RESPONSE :LOG :STATUS))
(error "Communication Protocol Schema Error: Invalid message type '~a'" type)) (error "Communication Protocol Schema Error: Invalid message type '~a'" type))

2
src/communication-validator.lisp
View File

@@ -5,7 +5,7 @@
(unless (listp msg) (unless (listp msg)
(error "Communication Protocol Schema Error: Message must be a property list (got ~s)" (type-of msg))) (error "Communication Protocol Schema Error: Message must be a property list (got ~s)" (type-of msg)))
(let ((type (proto-get msg :type))) (let ((type (let ((raw (proto-get msg :type))) (if (keywordp raw) (intern (string-upcase (string raw)) :keyword) raw))))
(unless (member type '(:REQUEST :EVENT :RESPONSE :LOG :STATUS)) (unless (member type '(:REQUEST :EVENT :RESPONSE :LOG :STATUS))
(error "Communication Protocol Schema Error: Invalid message type '~a'" type)) (error "Communication Protocol Schema Error: Invalid message type '~a'" type))