The way I write DEFCLASS forms

jdz 2018-03-08 15:48:28.721751 UTC

(defclass fragment ()
  ((parent
    :initarg :parent
    :reader fragment-parent
    :initform nil)
   (data
    :initarg :data
    :reader fragment-data
    :type (or null vector)
    :initform nil)))