Skip to content
Snippets Groups Projects
Commit 739b983e authored by gerd's avatar gerd
Browse files

* pcl/fixup.lisp (print-object) <ctor>: New method.

parent d7cc7527
No related branches found
No related tags found
No related merge requests found
...@@ -40,3 +40,9 @@ ...@@ -40,3 +40,9 @@
(declare (ignore depth)) (declare (ignore depth))
(print-object instance stream)) (print-object instance stream))
(defmethod print-object ((ctor ctor) stream)
(print-unreadable-object (ctor stream :type t :identity t)
(format stream "~s ~s ~s"
(ctor-class-name ctor)
(ctor-initargs ctor)
(ctor-state ctor))))
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