1 /* lisp number format -- overlaid on standard its pointer. */
 2 
 3 
 4 dcl 1 fixnum_fmt based aligned,
 5       2 type_info bit(36) aligned,
 6       2 fixedb fixed bin,
 7 
 8     1 flonum_fmt based aligned,
 9       2 type_info bit(36) aligned,
10       2 floatb float bin,
11 
12     fixnum_type bit(36) aligned static init("000000000000000000000100000000100111"b),
13     flonum_type bit(36) aligned static init("000000000000000000000010000000100111"b);
14 
15 /* end of lisp number format */
16