- (unless (or (null expansion) (stringp expansion))
- (setq expansion (wrong-type-argument 'stringp expansion)))
-
- (unless (or (null count) (integerp count))
- (setq count (wrong-type-argument 'fixnump count)))
-
- (unless (vectorp table)
- (setq table (wrong-type-argument 'vectorp table)))
-
+ (check-type expansion (or null string))
+ (check-type count (or null integer))
+ (check-type table vector)