Raymond Toy pushed to branch master at cmucl / cmucl
Commits: ae08122d by Raymond Toy at 2015-10-10T17:48:16Z Give hint on what the last value of the printed process is
Left this out in the previous commit.
- - - - -
1 changed file:
- src/code/run-program.lisp
Changes:
===================================== src/code/run-program.lisp ===================================== --- a/src/code/run-program.lisp +++ b/src/code/run-program.lisp @@ -97,9 +97,10 @@ (defun %print-process (proc stream depth) (declare (ignore depth)) (print-unreadable-object (proc stream :type t :identity t) - (format stream "~D ~S ~D" + (format stream "~D ~S ~S ~D" (process-pid proc) (process-status proc) + :exit-code (process-exit-code proc))))
;;; PROCESS-STATUS -- Public.
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/ae08122d15bdb758da47dbcf6c...