((:temp ,arg-tn descriptor-reg ,(intern (format nil "~A-OFFSET" arg-tn))))
(pseudo-atomic
(allocation ,arg-tn (pad-data-block ,(intern (format nil "~A-SIZE" obj))))
((:temp ,arg-tn descriptor-reg ,(intern (format nil "~A-OFFSET" arg-tn))))
(pseudo-atomic
(allocation ,arg-tn (pad-data-block ,(intern (format nil "~A-SIZE" obj))))