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...