anchor.diff:  ;; 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.6 2005-02-01 15:24:52 espen Exp $
  +;; $Id: genums.lisp,v 1.7 2005-02-03 22:59:35 espen Exp $
   
   (in-package "GLIB")
   
  
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:   (declare (ignore type))
    `(loop
      for mapping in ',(%map-enum args :int-flags)
      unless (zerop (logand ,int (first mapping)))
      collect (second mapping)))
  
  (defmethod to-alien-function ((type (eql 'flags)) &rest args)
  