(defclass go-form (form) ((target-progn :accessor target-progn :initarg :target-progn) (name :accessor name :initarg :name) (enclosing-tagbody :accessor enclosing-tagbody :initarg :enclosing-tagbody)))