defstruct -> cl-defstruct