(defclass throw-form (form) ((tag :accessor tag :initarg :tag) (value :accessor value :initarg :value)))