Method: (print-object-content wisp-object)

Source

(defmethod print-object-content ((object wisp-object))
  (print (wisp-object->sexp object)))