(:temporary (:sc descriptor-reg :from (:argument 0)) ptr)
(:results (count :scs (any-reg)))
(:result-types positive-fixnum)
(:policy :fast-safe)
(:vop-var vop)
(:save-p :compute-only)
(:temporary (:sc descriptor-reg :from (:argument 0)) ptr)
(:results (count :scs (any-reg)))
(:result-types positive-fixnum)
(:policy :fast-safe)
(:vop-var vop)
(:save-p :compute-only)