- (let ((size-high (numeric-type-high size))
- (num-type (sb-c::continuation-type num)))
- (if (and size-high
- num-type
- (<= size-high sb-vm:n-word-bits)
- (csubtypep num-type
- (specifier-type `(unsigned-byte ,size-high))))
+ (let ((size-high (numeric-type-high size))
+ (num-type (sb-c::lvar-type num)))
+ (if (and size-high
+ num-type
+ (<= size-high sb-vm:n-word-bits)
+ (csubtypep num-type
+ (specifier-type `(unsigned-byte ,size-high))))