(defclass if-form (form) ((consequent :accessor consequent :initarg :consequent) (then :accessor then :initarg :then) (else :accessor else :initarg :else)))