1  enum Lisp_Type
       2  {
       3    Lisp_Int                     
       4    ,Lisp_Record                 
       5    ,Lisp_Cons                   
       6    ,Lisp_String                 
       7    ,Lisp_Vector                 
       8    ,Lisp_Symbol
       9    ,Lisp_Char                     
      10  };
      11  typedef
      12  union Lisp_Object
      13    {
      14      struct
      15        {
      16          enum Lisp_Type type: 3L ;
      17          unsigned long  markbit: 1;
      18          unsigned long  val: 32;
      19        } gu;
      20      long  i;
      21    }
      22  Lisp_Object;
      23  extern int initialized;
      24  void
      25  init_device_faces (int *d)
      26  {
      27    if (initialized)
      28      {
      29        Lisp_Object tdevice;
      30        do {
      31            tdevice = (union Lisp_Object)
      32                          { gu:
      33                            { markbit: 0,
      34                              type: Lisp_Record,
      35                              val: ((unsigned long )d)
      36                            }
      37                          };
      38        } while (0);
      39        call_critical_lisp_code (tdevice);
      40      }
      41  }