Skip to content
Snippets Groups Projects
Commit 131c1e3f authored by Raymond Toy's avatar Raymond Toy
Browse files

Use PRINT-UNREADABLE-OBJECT to print the process structure.

parent 8d7c3383
No related branches found
No related tags found
No related merge requests found
......@@ -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.
;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment