(location :initarg :location :initform (file-location nil)
:type file-location :reader file-location)
(name :initarg :name :type string :reader sod-initarg-name)
(location :initarg :location :initform (file-location nil)
:type file-location :reader file-location)
(name :initarg :name :type string :reader sod-initarg-name)