# Pastebin T3M1orZM
(defmethod print-object ((obj period-quantity-summary) stream)
  (print-unreadable-object (obj stream :type t)
    (format stream ":material ~s :start-timestamp ~a :finish-timestamp ~a :over-period-drop ~6,2f :sop-purchase-unit-count ~d :sop-peak-amount ~a :sop-on-hand-no-purchase ~a"
            (material obj)
            (start-timestamp obj)
            (finish-timestamp obj)
            (over-period-drop obj)
            (sop-purchase-unit-count obj)
            (sop-peak-amount obj)
            (sop-on-hand-no-purchase obj))))