August 2016 - asdf-devel - mailman3.common-lisp.net

Pushed version 3.1.7.6
by Robert Goldman 18 Aug '16

18 Aug '16

This contains bug fixes that make tests work better when run under cygwin on Windows. This is also preparatory place-holder before merging Elias's RUN-PROGRAM bug fixes. Cheers, r

1 0

extending uiop/run-program
by Elias Pipping 18 Aug '16

18 Aug '16

Dear list, I’ve recently made the switch from external-program to uiop/run-program::%run-program for asynchronous process execution after I read that its interface should remain essentially stable. I’ve also had to use uiop/run-program::%wait-process-result although I’m not sure if its interface in turn as subject to the same close-to-guarantee. So far the two are serving me well and I’m not looking back. I ended up writing two functions that I needed because uiop/run-program does not currently provide such functionality while external-program did. I’m sometimes interested in testing whether a process is running; I use the following function for that: (defun process-running-p (process-info) (let ((process (getf process-info :process))) #+clozure (eq :running (ccl:external-process-status process)) #+cmu (eq :running (ext:process-status process)) #+ecl (eq :running (ext:external-process-status process)) #+mkcl (eq :running (mk-ext:process-status process)) #+sbcl (eq :running (sb-ext:process-status process)) #-(or clozure cmu ecl mkcl sbcl) (error "Cannot determine if a process is running."))) Maybe something like this could be incorporated into UIOP as well? (or a function that returns the process status, or a function that checks that a process is alive, etc.) Sometimes, I also want to terminate a process before it finishes. To that end, I use the following: (alexandria:define-constant +kill-signal+ 9 :test #'=) (alexandria:define-constant +term-signal+ 15 :test #'=) (defun terminate-process (process-info &key force) (let ((process (getf process-info :process)) (sig (if force +kill-signal+ +term-signal+))) #+allegro (progn ; FIXME: untested #+os-unix (excl.osi:kill process sig) #+os-windows (uiop/run-program::%run-program (format nil "taskkill /f /pid ~a" process) :wait t) #-(or os-unix os-windows) (error "Cannot terminate a process.") (sys:reap-os-subprocess :pid process)) #+clozure (ccl:signal-external-process process sig :error-if-exited nil) #+cmu (ext:process-kill process sig) #+sbcl (sb-ext:process-kill process sig) #+scl (ext:process-kill process sig) ; FIXME: untested #+mkcl (mk-ext:terminate-process process :force force) #-(or allegro clozure cmu mkcl sbcl) (error "Cannot terminate a process."))) This is a special case of a more general signalling facility that many lisps have but which from my understanding can only work on unix. mkcl does not provide such a facility but it does provide a terminate-process function that works on windows, too. The Allegro CL documentation states that one should run (format nil "taskkill /f /pid ~a" process) on such platforms, which could also be done with other lisps, assuming that the PID is known or can be extracted from the process. Maybe a function of this type could be incorporated into UIOP as well? Elias Pipping

4 21

Removing content from README.md
by Robert Goldman 05 Aug '16

05 Aug '16

As someone who doesn't use the gitlab interface, it was only now that I realized that there was a README.md. I just looked over that README, and realized that it was not maintained. I quickly concluded that I do not have the resources to maintain both this file and the HTML file at https://common-lisp.net/project/asdf/, and the latter is what I have been updating with new releases. So the former must go. I apologize for this draconian step. Of course nothing has been lost, it is all in the git history. I am willing to entertain the argument that the index.html be deprecated instead of the Markdown page. However, I will not entertain requests for both. One will have to be merely a pointer to the other.

3 3

serious-condition
by Faré 01 Aug '16

01 Aug '16

Dear Robert, instead of adding a *fatal-condition-exceptions*, I would much rather you use (and serious-condition #+clozure (not ccl:process-reset)) or something like that. You may have to add a case to match-condition-p to support lists as condition type specifiers. This probably applies to the other handler-bind places where you catch serious-condition, too. git grep serious-condition is your friend. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org Necessity is the plea for every infringement of human freedom. It is the argument of tyrants; it is the creed of slaves. — William Pitt, 1783

3 8