(inst lr temp (logior (ash (1- size) n-widetag-bits) closure-header-widetag))))
;;; should this be closure-fun-slot instead of 0?
(storew temp result 0 fun-pointer-lowtag)
(inst lr temp (logior (ash (1- size) n-widetag-bits) closure-header-widetag))))
;;; should this be closure-fun-slot instead of 0?
(storew temp result 0 fun-pointer-lowtag)