fix: cl-dotenv quote contamination breaks provider cascade parsing
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 3s
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 3s
cl-dotenv preserves surrounding quotes in .env values (unlike bash). PROVIDER_CASCADE="deepseek,..." resulted in keywords like :"DEEPSEEK instead of :DEEPSEEK, causing all cascade lookups to fail silently. Fixes: - .env.example: remove quotes from PROVIDER_CASCADE - provider-cascade-initialize: add #" and #' to string-trim chars - system-model-router: same fix for LOCAL_BACKENDS parsing
This commit is contained in:
@@ -81,7 +81,7 @@
|
||||
(let ((cascade-str (uiop:getenv "PROVIDER_CASCADE")))
|
||||
(if cascade-str
|
||||
(setf *provider-cascade*
|
||||
(mapcar (lambda (s) (intern (string-upcase (string-trim '(#\Space) s)) :keyword))
|
||||
(mapcar (lambda (s) (intern (string-upcase (string-trim '(#\Space #\" #\') s)) :keyword))
|
||||
(uiop:split-string cascade-str :separator '(#\,))))
|
||||
(setf *provider-cascade* (mapcar #'car (remove-if (lambda (e)
|
||||
(member (car e) '(:local)))
|
||||
|
||||
@@ -77,7 +77,7 @@ Returns model name or :skip."
|
||||
*model-cascade-background* (parse-cascade (uiop:getenv "MODEL_CASCADE_BACKGROUND"))
|
||||
*local-backends* (let ((env (uiop:getenv "LOCAL_BACKENDS")))
|
||||
(if env
|
||||
(mapcar (lambda (s) (intern (string-upcase (string-trim " " s)) :keyword))
|
||||
(mapcar (lambda (s) (intern (string-upcase (string-trim '(#\Space #\" #\') s)) :keyword))
|
||||
(uiop:split-string env :separator '(#\,)))
|
||||
'(:ollama :llama-cpp)))))
|
||||
(setf *model-selector* #'model-select)
|
||||
|
||||
Reference in New Issue
Block a user