+++ /dev/null
-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;
-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);
- }
-}