Sangui/lsm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed bug causing dependencies not to appear in environment when

Browse source 
autostarted
This commit is contained in:
Mikhail Kiselev 2023-08-06 19:08:19 -05:00
parent 6e9bad77e4
commit 644bf9f16c
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lsmd.cl
View file

@ -36,6 +36,7 @@
(15 (format nil "Cannot stop the program ~A (not in environment)" args)) (15 (format nil "Cannot stop the program ~A (not in environment)" args))
(16 (format nil "Cannot start the program ~A (program already running)" 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)) (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) (cond ((uiop:process-alive-p nfo)
nil) nil)
(t (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 (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) (let ((nfo (uiop:launch-program (getf progline :start)
:error-output (or (getf progline :stderr) (concatenate 'string (uiop:getenv "HOME") "/.var/log/" progr ".log")) :error-output (or (getf progline :stderr) (concatenate 'string (uiop:getenv "HOME") "/.var/log/" progr ".log"))