| enum Lisp_Type |
| { |
| Lisp_Int |
| ,Lisp_Record |
| ,Lisp_Cons |
| ,Lisp_String |
| ,Lisp_Vector |
| ,Lisp_Symbol |
| ,Lisp_Char |
| }; |
| typedef |
| union Lisp_Object |
| { |
| struct |
| { |
| enum Lisp_Type type: 3L ; |
| unsigned long markbit: 1; |
| unsigned long val: 32; |
| } gu; |
| long i; |
| } |
| Lisp_Object; |
| extern int initialized; |
| extern void call_critical_lisp_code (Lisp_Object); |
| void |
| init_device_faces (int *d) |
| { |
| if (initialized) |
| { |
| Lisp_Object tdevice; |
| do { |
| tdevice = (union Lisp_Object) |
| { gu: |
| { markbit: 0, |
| type: Lisp_Record, |
| val: ((unsigned long )d) |
| } |
| }; |
| } while (0); |
| call_critical_lisp_code (tdevice); |
| } |
| } |
