Raymond Toy pushed to branch master at cmucl / cmucl

Commits: 131c1e3f by Raymond Toy at 2015-10-10T17:41:27Z Use PRINT-UNREADABLE-OBJECT to print the process structure.

- - - - -

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 @@ -96,10 +96,11 @@

(defun %print-process (proc stream depth) (declare (ignore depth)) - (format stream "#<process ~D ~S code: ~S>" - (process-pid proc) - (process-status proc) - (process-exit-code proc))) + (print-unreadable-object (proc stream :type t :identity t) + (format stream "~D ~S ~D" + (process-pid proc) + (process-status proc) + (process-exit-code proc))))

;;; PROCESS-STATUS -- Public. ;;;

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/131c1e3f2f589f8a80e22916d7...