(let* ((args (remove :arg vars :key #'reg-spec-kind :test #'neq))
(temps (remove :temp vars :key #'reg-spec-kind :test #'neq))
(results (remove :res vars :key #'reg-spec-kind :test #'neq))
(let* ((args (remove :arg vars :key #'reg-spec-kind :test #'neq))
(temps (remove :temp vars :key #'reg-spec-kind :test #'neq))
(results (remove :res vars :key #'reg-spec-kind :test #'neq))