(setf (get ',name 'free-function) ',free-fn)
(eval-when (:compile-toplevel :load-toplevel :execute)
(setf (get ',name 'is-g-boxed-ref) t))
(setf (get ',name 'free-function) ',free-fn)
(eval-when (:compile-toplevel :load-toplevel :execute)
(setf (get ',name 'is-g-boxed-ref) t))