From bfe35d0f6aad52f7a433f07b14dcec6ed0baa1db Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Sun, 19 Apr 2026 20:06:48 -0400 Subject: [PATCH] fix(protocol): Move proto-get to package layer to resolve circular dependency --- literate/package.org | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/literate/package.org b/literate/package.org index 0f2895c..700c33c 100644 --- a/literate/package.org +++ b/literate/package.org @@ -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))))