(:arg-types positive-fixnum *)
(:temporary (:scs (non-descriptor-reg)) temp)
(:results (result :scs (unsigned-reg)))
(:result-types positive-fixnum)
(:generator 6
(:arg-types positive-fixnum *)
(:temporary (:scs (non-descriptor-reg)) temp)
(:results (result :scs (unsigned-reg)))
(:result-types positive-fixnum)
(:generator 6