(defmethod print-object ((constructor constructor) stream)
(print-unreadable-object (constructor stream :type t :identity t)
(format stream
(defmethod print-object ((constructor constructor) stream)
(print-unreadable-object (constructor stream :type t :identity t)
(format stream