(defmethod (setf ,actual-name) (value (thing ,type))
"Set the attribute in pixels assuming 72 dpi"
(setf (dot-attribute-value ,attr thing)
(defmethod (setf ,actual-name) (value (thing ,type))
"Set the attribute in pixels assuming 72 dpi"
(setf (dot-attribute-value ,attr thing)