(make-instance 'temporary-name :tag "sod__master_ap"))
(defparameter *sod-tmp-ap*
(make-instance 'temporary-name :tag "sod__tmp_ap"))
(make-instance 'temporary-name :tag "sod__master_ap"))
(defparameter *sod-tmp-ap*
(make-instance 'temporary-name :tag "sod__tmp_ap"))