- ,@(%map-enum args :symbol-int)
- (t (error 'type-error :datum ,form :expected-type '(enum ,@args)))))
-
-
-(defmethod callback-from-alien-form (form (type (eql 'enum)) &rest args)
- (apply #'from-alien-form form type args))
+ ,@(%map-enum (rest (type-expand-to 'enum type)) :symbol-int)
+ (t (error 'type-error :datum ,form :expected-type ',type))))