From 723cc7233c88b7ecf1eccf451c651ec3c0aa60ee Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Thu, 27 Feb 2025 09:56:55 +0100 Subject: [PATCH] config: set .env settings in process environment if not already there --- config.lisp | 4 +++- util/async.lisp | 3 +-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/config.lisp b/config.lisp index b6d95e8..3db19cf 100644 --- a/config.lisp +++ b/config.lisp @@ -51,7 +51,9 @@ (dotenv-val (if dotenv-data (gethash key dotenv-data)))) (if env-val (setf (gethash sl data) env-val) - (setf (gethash sl data) dotenv-val)))))) + (progn + (setf (uiop:getenv key) dotenv-val) + (setf (gethash sl data) dotenv-val))))))) (defun root (&rest params &key (class 'root) &allow-other-keys) (setf *root* (apply #'make-instance class params))) diff --git a/util/async.lisp b/util/async.lisp index c77ff9f..71c57a8 100644 --- a/util/async.lisp +++ b/util/async.lisp @@ -31,8 +31,7 @@ do (funcall handle-message tsk msg))) (funcall teardown tsk) (data tsk)) - (setf (status tsk) :done) - ))) + (setf (status tsk) :done)))) ;;;; task class and related functions / methods