fix(communication): correct unclosed string in validator
This commit is contained in:
@@ -84,7 +84,7 @@ The ~communication.lisp~ module defines the low-level transport and framing logi
|
|||||||
|
|
||||||
(defun validate-communication-protocol-schema (msg)
|
(defun validate-communication-protocol-schema (msg)
|
||||||
"Strict structural validation for incoming protocol messages."
|
"Strict structural validation for incoming protocol messages."
|
||||||
(unless (listp msg) (error "Message must be a plist)
|
(unless (listp msg) (error "Message must be a plist"))
|
||||||
(let ((type (proto-get msg :type)))
|
(let ((type (proto-get msg :type)))
|
||||||
(unless (member type '(:REQUEST :EVENT :RESPONSE :LOG :STATUS))
|
(unless (member type '(:REQUEST :EVENT :RESPONSE :LOG :STATUS))
|
||||||
(error "Invalid message type '~a'" type))
|
(error "Invalid message type '~a'" type))
|
||||||
|
|||||||
Reference in New Issue
Block a user