Method: (wisp-object->sexp wisp-object)

Source

(defmethod wisp-object->sexp ((object wisp-object))
  (let ((class (class-of object)))
    (list (class-name class)
	  (cons (slot-names class)
		(slot-values class object)))))