(:vop-var vop)
(:save-p :compute-only)
(:generator 666
- (error-call vop object-not-type-error x type)))
+ (error-call vop 'object-not-type-error x type)))
\f
;;;; moves and coercions
;; The assembly routines test the sign flag from this one, so if
;; you change stuff here, make sure the sign flag doesn't get
;; overwritten before the CALL!
- (inst test x #xe0000000)
+ (inst test x #.(ash lowtag-mask (- n-word-bits n-fixnum-tag-bits 1)))
;; Faster but bigger then SHL Y 2. The cost of doing this speculatively
;; is noise compared to bignum consing if that is needed.
(inst lea y (make-ea :dword :index x :scale 4))