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
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
This commit is contained in:
@@ -216,3 +216,10 @@ Centralized logging function. It simultaneously writes to standard output and th
|
|||||||
(format t "~a~%" formatted-msg)
|
(format t "~a~%" formatted-msg)
|
||||||
(finish-output)))
|
(finish-output)))
|
||||||
#+end_src
|
#+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))))
|
||||||
|
|||||||
Reference in New Issue
Block a user