From 644bf9f16ce30535c0d1138c81a128f71eb6f6fc Mon Sep 17 00:00:00 2001 From: Mikhail Kiselev Date: Sun, 6 Aug 2023 19:08:19 -0500 Subject: [PATCH] Fixed bug causing dependencies not to appear in environment when autostarted --- lsmd.cl | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/lsmd.cl b/lsmd.cl index 9ef2d56..7ce2da6 100755 --- a/lsmd.cl +++ b/lsmd.cl @@ -36,6 +36,7 @@ (15 (format nil "Cannot stop the program ~A (not in environment)" args)) (16 (format nil "Cannot start the program ~A (program already running)" args)) (17 (format nil "Cannot stop the program ~A (program not started)" args)) + (99 (format nil "Unknown error")) )) ) @@ -97,9 +98,17 @@ (cond ((uiop:process-alive-p nfo) nil) (t - (start progs env req)))) + (multiple-value-bind (rets nenv) (start progs env req) + (format t "~A" nenv) + (cond ((not (string= "0" rets)) + (return-from start rets))) + (setf env nenv))))) (t - (start progs env req))))) + (multiple-value-bind (rets nenv) (start progs env req) + (format t "~A" nenv) + (cond ((not (string= "0" rets)) + (return-from start rets))) + (setf env nenv)))))) (let ((nfo (uiop:launch-program (getf progline :start) :error-output (or (getf progline :stderr) (concatenate 'string (uiop:getenv "HOME") "/.var/log/" progr ".log"))