Method: (PRINT-OBJECT WHITESPACE-PART T)

Source

(defmethod print-object ((part whitespace-part) stream)
  (print-unreadable-object (part stream :type t :identity t)))