(:arg-types system-area-pointer positive-fixnum *)
(:temporary (:sc unsigned-reg :from (:argument 1) :to :result) temp)
(:results (result :scs (descriptor-reg)))
(:arg-types system-area-pointer positive-fixnum *)
(:temporary (:sc unsigned-reg :from (:argument 1) :to :result) temp)
(:results (result :scs (descriptor-reg)))