- for mapping in ',(%map-flags args :int-symbol)
- unless (zerop (logand value (first mapping)))
- collect (second mapping)))
- (defmethod alien-type ((type (eql ',name)) &rest args)
- (declare (ignore type args))
+ for (int symbol) in ',(%map-flags args :int-symbol)
+ when(= (logand value int) int)
+ collect symbol))
+ (define-type-method alien-type ((type ,name))
+ (declare (ignore type))