debug(protocol): Log rejected messages in validator

2026-04-19 19:56:30 -04:00
parent e2d1d9ac8f
commit 9ae5d03f14
2 changed files with 2 additions and 2 deletions
--- a/src/communication-validator.lisp
+++ b/src/communication-validator.lisp
@@ -7,7 +7,7 @@
  
  (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))
-      (error "Communication Protocol Schema Error: Invalid message type '~a'" type))
+      (progn (harness-log "REJECTED MSG: ~s" msg) (error "Communication Protocol Schema Error: Invalid message type '~a'" type)))
    
    (case type
      (:REQUEST