diff --git a/skills/org-skill-protocol-validator.org b/skills/org-skill-protocol-validator.org index a5fbbb2..d99de06 100644 --- a/skills/org-skill-protocol-validator.org +++ b/skills/org-skill-protocol-validator.org @@ -54,7 +54,7 @@ Decouple protocol parsing (framing/unframing) from semantic validation. (error "Communication Protocol Schema Error: Message must be a property list (got ~s)" (type-of msg))) (let ((type (getf msg :type))) - (unless (member type '(:REQUEST :EVENT :RESPONSE :LOG)) + (unless (member type '(:REQUEST :EVENT :RESPONSE :LOG :STATUS)) (error "Communication Protocol Schema Error: Invalid message type '~a'" type)) (case type diff --git a/src/communication-validator.lisp b/src/communication-validator.lisp index 3d67ef6..4908641 100644 --- a/src/communication-validator.lisp +++ b/src/communication-validator.lisp @@ -6,7 +6,7 @@ (error "Communication Protocol Schema Error: Message must be a property list (got ~s)" (type-of msg))) (let ((type (getf msg :type))) - (unless (member type '(:REQUEST :EVENT :RESPONSE :LOG)) + (unless (member type '(:REQUEST :EVENT :RESPONSE :LOG :STATUS)) (error "Communication Protocol Schema Error: Invalid message type '~a'" type)) (case type