- (inst sll x sb!vm:n-widetag-bits y)
- (inst bis y sb!vm:base-char-widetag y)))
-;;;
-(define-move-vop move-from-base-char :move
- (base-char-reg) (any-reg descriptor-reg))
+ (inst sll x n-widetag-bits y)
+ (inst bis y character-widetag y)))
+(define-move-vop move-from-character :move
+ (character-reg) (any-reg descriptor-reg))