(inst rep)
(inst stos zero)))
-(in-package :sb!c)
+(in-package "SB!C")
+
(defoptimizer (allocate-vector stack-allocate-result)
((type length words) node)
(ecase (policy node stack-allocate-vector)
(dolist (arg args)
(annotate-1-value-lvar arg))))
-(in-package :sb!vm)
+
+(in-package "SB!VM")
;;;
(define-vop (allocate-code-object)
(make-ea :byte :base result :disp fun-pointer-lowtag))
(storew (logior (ash (1- size) n-widetag-bits) closure-header-widetag)
result 0 fun-pointer-lowtag))
+ (storew result result closure-self-slot fun-pointer-lowtag)
(loadw temp function closure-fun-slot fun-pointer-lowtag)
(storew temp result closure-fun-slot fun-pointer-lowtag))))