anchor.diff:    (declare (ignore type))
     `(loop
       for mapping in ',(%map-enum args :int-flags)
  -    unless (zerop (logand int (first mapping)))
  +    unless (zerop (logand ,int (first mapping)))
       collect (second mapping)))
   
   (defmethod to-alien-function ((type (eql 'flags)) &rest args)
  
positive.code: ;;;;
  
  (defun expand-enum-type (type-number forward-p options)
    (declare (ignore forward))
    (let* ((super (supertype type-number))
  	 (type (type-from-number type-number))
  	 (mappings (getf options :mappings))
  
negative.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: genums.lisp,v 1.7 2005-02-03 22:59:35 espen Exp $
  
  (in-package "GLIB")
  
  