cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

config: set .env settings in process environment if not already there

Browse source
This commit is contained in:
Helmut Merz 2025-02-27 09:56:55 +01:00
parent 7e1bfd9f48
commit 723cc7233c
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
config.lisp
View file

@ -51,7 +51,9 @@
(dotenv-val (if dotenv-data (gethash key dotenv-data)))) (dotenv-val (if dotenv-data (gethash key dotenv-data))))
(if env-val (if env-val
(setf (gethash sl data) 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) (defun root (&rest params &key (class 'root) &allow-other-keys)
(setf *root* (apply #'make-instance class params))) (setf *root* (apply #'make-instance class params)))

3
util/async.lisp
View file

@ -31,8 +31,7 @@
do (funcall handle-message tsk msg))) do (funcall handle-message tsk msg)))
(funcall teardown tsk) (funcall teardown tsk)
(data tsk)) (data tsk))
(setf (status tsk) :done) (setf (status tsk) :done))))
)))
;;;; task class and related functions / methods ;;;; task class and related functions / methods