-;;;; allocation VOPs for the x86
+;;;; allocation VOPs for the x86-64
;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
(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))))
(inst lea result (make-ea :byte :base result :disp lowtag))
(storew header result 0 lowtag))))
-(define-vop (make-symbol)
+(define-vop (%make-symbol)
(:policy :fast-safe)
- (:translate make-symbol)
+ (:translate %make-symbol)
(:args (name :scs (descriptor-reg) :to :eval))
(:temporary (:sc unsigned-reg :from :eval) temp)
(:results (result :scs (descriptor-reg) :from :argument))