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