(storew value object offset lowtag))
#!-gengc
(storew value object offset lowtag)))
+
+(define-vop (init-slot set-slot))
\f
;;;; symbol hacking VOPs
(:variant ,offset))
,@(when writable
`((defknown ((setf ,fn)) (,lisp-type) ,lisp-type
- (unsafe))
+ ())
(define-vop (,set ,set-vop)
(:translate (setf ,fn))
(:variant ,offset)))))))))