(defun slot-values (class object) (mapcar (fn (slot-name) ;; TODO: heed the caveat from elephant manual that slot-value might not work properly (slot-value object slot-name)) (slot-names class)))