fix(protocol): Move proto-get to package layer to resolve circular dependency
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s

This commit is contained in:
2026-04-19 20:06:48 -04:00
parent 6a5695310c
commit bfe35d0f6a

View File

@@ -216,3 +216,10 @@ Centralized logging function. It simultaneously writes to standard output and th
(format t "~a~%" formatted-msg)
(finish-output)))
#+end_src
(defun proto-get (plist key)
"Robustly retrieves a value from a plist, checking both uppercase and lowercase keyword versions."
(let* ((s (string key))
(up (intern (string-upcase s) :keyword))
(dn (intern (string-downcase s) :keyword)))
(or (getf plist up) (getf plist dn))))