home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / gnu / gcc / bug / 3238 < prev    next >
Encoding:
Text File  |  1993-01-25  |  86.2 KB  |  3,006 lines
  1. Path: sparky!uunet!cis.ohio-state.edu!martigny.ai.mit.edu!gjr
  2. From: gjr@martigny.ai.mit.edu (Guillermo J. Rozas)
  3. Newsgroups: gnu.gcc.bug
  4. Subject: Bug with gcc 2.3.3 on hp9000s720 hp-ux 8.05
  5. Date: 25 Jan 1993 20:10:08 -0500
  6. Organization: GNUs Not Usenet
  7. Lines: 2992
  8. Sender: daemon@cis.ohio-state.edu
  9. Approved: bug-gcc@prep.ai.mit.edu
  10. Distribution: gnu
  11. Message-ID: <9301231405.AA27048@life.ai.mit.edu>
  12. Reply-To: gjr@martigny.ai.mit.edu
  13.  
  14. The input file is attached at the end of the message.
  15.  
  16. gcc (and gas) binaries ftp'd from jaguar.cs.utah.edu on Jan 20 1993.
  17. Since I ftp'd binaries, and not sources, I don't know what arguments
  18. were given to configure to build the compiler.
  19.  
  20. Removing -O makes it work.
  21.  
  22. Here is the invocation, and output:
  23.  
  24.     gjr@chamartin> gcc -v -O -g -c test.c
  25.     Reading specs from /usr/local/lib/gcc-lib/hp700-hpux/2.3.3/specs
  26.     gcc version 2.3.3
  27.      /usr/local/lib/gcc-lib/hp700-hpux/2.3.3/cpp -lang-c -v -undef -D__GNUC__=2 -Dhppa -Dhp9000s800 -D__hp9000s800 -Dhp9k8 -DPWB -Dhpux -Dunix -D_HPUX_SOURCE -D__hppa__ -D__hp9000s800__ -D__hp9000s800 -D__hp9k8__ -D__PWB__ -D__hpux__ -D__unix__ -D___HPUX_SOURCE__ -D__hppa -D__hp9000s800 -D__hp9000s800 -D__hp9k8 -D__PWB -D__hpux -D__unix -D___HPUX_SOURCE -D__OPTIMIZE__ -g -D__hp9000s700 -D_PA_RISC1_1 -D__hp9000s700 -D_PA_RISC1_1 test.c /usr/tmp/cca21780.i
  28.     GNU CPP version 2.3.3 (hppa)
  29.      /usr/local/lib/gcc-lib/hp700-hpux/2.3.3/cc1 /usr/tmp/cca21780.i -quiet -dumpbase test.c -g -O -version -o /usr/tmp/cca21780.s
  30.     GNU C version 2.3.3 (hppa) compiled by GNU C version 2.3.3.
  31.     gcc: Internal compiler error: program cc1 got fatal signal 6
  32.     10.5u 0.6s 0:15 73%
  33.  
  34. PS: The code is machine generated, although pretty-printed by me.
  35. I already have a workaround.
  36.  
  37. I tried the same command line and file on albert.gnu.ai.mit.edu (gcc
  38. 2.3.2) and it compiled succesfully.
  39.  
  40. ------------------------------ test.c ------------------------------
  41. typedef char Boolean;
  42.  
  43. typedef unsigned long SCHEME_OBJECT;
  44.  
  45. typedef unsigned short format_word;
  46.  
  47. extern SCHEME_OBJECT
  48.   memory_to_string  (long, unsigned char *);
  49.  
  50. extern SCHEME_OBJECT
  51.   memory_to_symbol  (long, unsigned char *);
  52.  
  53. extern SCHEME_OBJECT
  54.   make_vector  (long, SCHEME_OBJECT, Boolean);
  55.  
  56. extern SCHEME_OBJECT
  57.   cons  (SCHEME_OBJECT, SCHEME_OBJECT);
  58.  
  59. extern SCHEME_OBJECT
  60.   search_for_primitive (SCHEME_OBJECT, char *, Boolean, Boolean, int);
  61.  
  62. extern SCHEME_OBJECT
  63.   decl (SCHEME_OBJECT * (*) (SCHEME_OBJECT *), char *);
  64.  
  65. extern SCHEME_OBJECT
  66.   * LiarC_pathnm_92  (SCHEME_OBJECT *),
  67.   * LiarC_pathnm_91  (SCHEME_OBJECT *),
  68.   * LiarC_pathnm_90  (SCHEME_OBJECT *),
  69.   * LiarC_pathnm_89  (SCHEME_OBJECT *),
  70.   * LiarC_pathnm_88  (SCHEME_OBJECT *),
  71.   * LiarC_pathnm_87  (SCHEME_OBJECT *),
  72.   * LiarC_pathnm_86  (SCHEME_OBJECT *),
  73.   * LiarC_pathnm_85  (SCHEME_OBJECT *),
  74.   * LiarC_pathnm_84  (SCHEME_OBJECT *),
  75.   * LiarC_pathnm_83  (SCHEME_OBJECT *),
  76.   * LiarC_pathnm_82  (SCHEME_OBJECT *),
  77.   * LiarC_pathnm_81  (SCHEME_OBJECT *),
  78.   * LiarC_pathnm_80  (SCHEME_OBJECT *),
  79.   * LiarC_pathnm_79  (SCHEME_OBJECT *),
  80.   * LiarC_pathnm_78  (SCHEME_OBJECT *),
  81.   * LiarC_pathnm_77  (SCHEME_OBJECT *),
  82.   * LiarC_pathnm_76  (SCHEME_OBJECT *),
  83.   * LiarC_pathnm_75  (SCHEME_OBJECT *),
  84.   * LiarC_pathnm_74  (SCHEME_OBJECT *),
  85.   * LiarC_pathnm_73  (SCHEME_OBJECT *),
  86.   * LiarC_pathnm_72  (SCHEME_OBJECT *),
  87.   * LiarC_pathnm_71  (SCHEME_OBJECT *),
  88.   * LiarC_pathnm_70  (SCHEME_OBJECT *),
  89.   * LiarC_pathnm_69  (SCHEME_OBJECT *),
  90.   * LiarC_pathnm_68  (SCHEME_OBJECT *),
  91.   * LiarC_pathnm_67  (SCHEME_OBJECT *),
  92.   * LiarC_pathnm_66  (SCHEME_OBJECT *),
  93.   * LiarC_pathnm_65  (SCHEME_OBJECT *),
  94.   * LiarC_pathnm_64  (SCHEME_OBJECT *),
  95.   * LiarC_pathnm_63  (SCHEME_OBJECT *),
  96.   * LiarC_pathnm_62  (SCHEME_OBJECT *),
  97.   * LiarC_pathnm_61  (SCHEME_OBJECT *),
  98.   * LiarC_pathnm_60  (SCHEME_OBJECT *),
  99.   * LiarC_pathnm_59  (SCHEME_OBJECT *),
  100.   * LiarC_pathnm_58  (SCHEME_OBJECT *),
  101.   * LiarC_pathnm_57  (SCHEME_OBJECT *),
  102.   * LiarC_pathnm_56  (SCHEME_OBJECT *),
  103.   * LiarC_pathnm_55  (SCHEME_OBJECT *),
  104.   * LiarC_pathnm_54  (SCHEME_OBJECT *),
  105.   * LiarC_pathnm_53  (SCHEME_OBJECT *),
  106.   * LiarC_pathnm_52  (SCHEME_OBJECT *),
  107.   * LiarC_pathnm_51  (SCHEME_OBJECT *),
  108.   * LiarC_pathnm_50  (SCHEME_OBJECT *),
  109.   * LiarC_pathnm_49  (SCHEME_OBJECT *),
  110.   * LiarC_pathnm_48  (SCHEME_OBJECT *),
  111.   * LiarC_pathnm_47  (SCHEME_OBJECT *),
  112.   * LiarC_pathnm_46  (SCHEME_OBJECT *),
  113.   * LiarC_pathnm_45  (SCHEME_OBJECT *),
  114.   * LiarC_pathnm_44  (SCHEME_OBJECT *),
  115.   * LiarC_pathnm_43  (SCHEME_OBJECT *),
  116.   * LiarC_pathnm_42  (SCHEME_OBJECT *),
  117.   * LiarC_pathnm_41  (SCHEME_OBJECT *),
  118.   * LiarC_pathnm_40  (SCHEME_OBJECT *),
  119.   * LiarC_pathnm_39  (SCHEME_OBJECT *),
  120.   * LiarC_pathnm_38  (SCHEME_OBJECT *),
  121.   * LiarC_pathnm_37  (SCHEME_OBJECT *),
  122.   * LiarC_pathnm_36  (SCHEME_OBJECT *),
  123.   * LiarC_pathnm_35  (SCHEME_OBJECT *),
  124.   * LiarC_pathnm_34  (SCHEME_OBJECT *),
  125.   * LiarC_pathnm_33  (SCHEME_OBJECT *),
  126.   * LiarC_pathnm_32  (SCHEME_OBJECT *),
  127.   * LiarC_pathnm_31  (SCHEME_OBJECT *),
  128.   * LiarC_pathnm_30  (SCHEME_OBJECT *),
  129.   * LiarC_pathnm_29  (SCHEME_OBJECT *),
  130.   * LiarC_pathnm_28  (SCHEME_OBJECT *),
  131.   * LiarC_pathnm_27  (SCHEME_OBJECT *),
  132.   * LiarC_pathnm_26  (SCHEME_OBJECT *),
  133.   * LiarC_pathnm_25  (SCHEME_OBJECT *),
  134.   * LiarC_pathnm_24  (SCHEME_OBJECT *),
  135.   * LiarC_pathnm_23  (SCHEME_OBJECT *),
  136.   * LiarC_pathnm_22  (SCHEME_OBJECT *),
  137.   * LiarC_pathnm_21  (SCHEME_OBJECT *),
  138.   * LiarC_pathnm_20  (SCHEME_OBJECT *),
  139.   * LiarC_pathnm_19  (SCHEME_OBJECT *),
  140.   * LiarC_pathnm_18  (SCHEME_OBJECT *),
  141.   * LiarC_pathnm_17  (SCHEME_OBJECT *),
  142.   * LiarC_pathnm_16  (SCHEME_OBJECT *),
  143.   * LiarC_pathnm_15  (SCHEME_OBJECT *),
  144.   * LiarC_pathnm_14  (SCHEME_OBJECT *),
  145.   * LiarC_pathnm_13  (SCHEME_OBJECT *),
  146.   * LiarC_pathnm_12  (SCHEME_OBJECT *),
  147.   * LiarC_pathnm_11  (SCHEME_OBJECT *),
  148.   * LiarC_pathnm_10  (SCHEME_OBJECT *),
  149.   * LiarC_pathnm_9  (SCHEME_OBJECT *),
  150.   * LiarC_pathnm_8  (SCHEME_OBJECT *),
  151.   * LiarC_pathnm_7  (SCHEME_OBJECT *),
  152.   * LiarC_pathnm_6  (SCHEME_OBJECT *),
  153.   * LiarC_pathnm_5  (SCHEME_OBJECT *),
  154.   * LiarC_pathnm_4  (SCHEME_OBJECT *),
  155.   * LiarC_pathnm_3  (SCHEME_OBJECT *),
  156.   * LiarC_pathnm_2  (SCHEME_OBJECT *),
  157.   * LiarC_pathnm_1  (SCHEME_OBJECT *);
  158.  
  159. static SCHEME_OBJECT *
  160. LiarC_pathnm_data (SCHEME_OBJECT * my_pc)
  161. {
  162.     register  int
  163.       current_C_proc = ((((* ((unsigned long *) (my_pc)))
  164.                   >> ((8  * (sizeof (unsigned long)))  / 2))
  165.                  & ((((unsigned long) 1)
  166.                  << ((8  * (sizeof (unsigned long)))  / 2))
  167.                 - 1)));
  168.  
  169.     SCHEME_OBJECT
  170.       ccBlock92, ccBlock91, ccBlock90, ccBlock89, ccBlock88, ccBlock87,
  171.       ccBlock86, ccBlock85, ccBlock84, ccBlock83, ccBlock82, ccBlock81,
  172.       ccBlock80, ccBlock79, ccBlock78, ccBlock77, ccBlock76, ccBlock75,
  173.       ccBlock74, ccBlock73, ccBlock72, ccBlock71, ccBlock70, ccBlock69,
  174.       ccBlock68, ccBlock67, ccBlock66, ccBlock65, ccBlock64, ccBlock63,
  175.       ccBlock62, ccBlock61, ccBlock60, ccBlock59, ccBlock58, ccBlock57,
  176.       ccBlock56, ccBlock55, ccBlock54, ccBlock53, ccBlock52, ccBlock51,
  177.       ccBlock50, ccBlock49, ccBlock48, ccBlock47, ccBlock46, ccBlock45,
  178.       ccBlock44, ccBlock43, ccBlock42, ccBlock41, ccBlock40, ccBlock39,
  179.       ccBlock38, ccBlock37, ccBlock36, ccBlock35, ccBlock34, ccBlock33,
  180.       ccBlock32, ccBlock31, ccBlock30, ccBlock29, ccBlock28, ccBlock27,
  181.       ccBlock26, ccBlock25, ccBlock24, ccBlock23, ccBlock22, ccBlock21,
  182.       ccBlock20, ccBlock19, ccBlock18, ccBlock17, ccBlock16, ccBlock15,
  183.       ccBlock14, ccBlock13, ccBlock12, ccBlock11, ccBlock10, ccBlock9,
  184.       ccBlock8, ccBlock7, ccBlock6, ccBlock5, ccBlock4, ccBlock3,
  185.       ccBlock2, ccBlock1,
  186.       tmpObj7, tmpObj6, tmpObj5, tmpObj4,
  187.       tmpObj3, tmpObj2, tmpObj1, tmpObj0;
  188.     
  189.     SCHEME_OBJECT
  190.       object = ((make_vector ((168L), 0x00000000, ((Boolean) 1))));
  191.  
  192.     SCHEME_OBJECT *
  193.       current_block = ((((SCHEME_OBJECT *)
  194.                  (((unsigned long) ((object) & 0x03FFFFFF))
  195.                   | 0x40000000))));
  196.  
  197.     tmpObj0 = ((make_vector ((92), 0x00000000, ((Boolean) 1))));
  198.  
  199.     ccBlock92 = (decl (LiarC_pathnm_92, "LiarC_pathnm_92"));
  200.     ccBlock91 = (decl (LiarC_pathnm_91, "LiarC_pathnm_91"));
  201.     ccBlock90 = (decl (LiarC_pathnm_90, "LiarC_pathnm_90"));
  202.     ccBlock89 = (decl (LiarC_pathnm_89, "LiarC_pathnm_89"));
  203.     ccBlock88 = (decl (LiarC_pathnm_88, "LiarC_pathnm_88"));
  204.     ccBlock87 = (decl (LiarC_pathnm_87, "LiarC_pathnm_87"));
  205.     ccBlock86 = (decl (LiarC_pathnm_86, "LiarC_pathnm_86"));
  206.     ccBlock85 = (decl (LiarC_pathnm_85, "LiarC_pathnm_85"));
  207.     ccBlock84 = (decl (LiarC_pathnm_84, "LiarC_pathnm_84"));
  208.     ccBlock83 = (decl (LiarC_pathnm_83, "LiarC_pathnm_83"));
  209.     ccBlock82 = (decl (LiarC_pathnm_82, "LiarC_pathnm_82"));
  210.     ccBlock81 = (decl (LiarC_pathnm_81, "LiarC_pathnm_81"));
  211.     ccBlock80 = (decl (LiarC_pathnm_80, "LiarC_pathnm_80"));
  212.     ccBlock79 = (decl (LiarC_pathnm_79, "LiarC_pathnm_79"));
  213.     ccBlock78 = (decl (LiarC_pathnm_78, "LiarC_pathnm_78"));
  214.     ccBlock77 = (decl (LiarC_pathnm_77, "LiarC_pathnm_77"));
  215.     ccBlock76 = (decl (LiarC_pathnm_76, "LiarC_pathnm_76"));
  216.     ccBlock75 = (decl (LiarC_pathnm_75, "LiarC_pathnm_75"));
  217.     ccBlock74 = (decl (LiarC_pathnm_74, "LiarC_pathnm_74"));
  218.     ccBlock73 = (decl (LiarC_pathnm_73, "LiarC_pathnm_73"));
  219.     ccBlock72 = (decl (LiarC_pathnm_72, "LiarC_pathnm_72"));
  220.     ccBlock71 = (decl (LiarC_pathnm_71, "LiarC_pathnm_71"));
  221.     ccBlock70 = (decl (LiarC_pathnm_70, "LiarC_pathnm_70"));
  222.     ccBlock69 = (decl (LiarC_pathnm_69, "LiarC_pathnm_69"));
  223.     ccBlock68 = (decl (LiarC_pathnm_68, "LiarC_pathnm_68"));
  224.     ccBlock67 = (decl (LiarC_pathnm_67, "LiarC_pathnm_67"));
  225.     ccBlock66 = (decl (LiarC_pathnm_66, "LiarC_pathnm_66"));
  226.     ccBlock65 = (decl (LiarC_pathnm_65, "LiarC_pathnm_65"));
  227.     ccBlock64 = (decl (LiarC_pathnm_64, "LiarC_pathnm_64"));
  228.     ccBlock63 = (decl (LiarC_pathnm_63, "LiarC_pathnm_63"));
  229.     ccBlock62 = (decl (LiarC_pathnm_62, "LiarC_pathnm_62"));
  230.     ccBlock61 = (decl (LiarC_pathnm_61, "LiarC_pathnm_61"));
  231.     ccBlock60 = (decl (LiarC_pathnm_60, "LiarC_pathnm_60"));
  232.     ccBlock59 = (decl (LiarC_pathnm_59, "LiarC_pathnm_59"));
  233.     ccBlock58 = (decl (LiarC_pathnm_58, "LiarC_pathnm_58"));
  234.     ccBlock57 = (decl (LiarC_pathnm_57, "LiarC_pathnm_57"));
  235.     ccBlock56 = (decl (LiarC_pathnm_56, "LiarC_pathnm_56"));
  236.     ccBlock55 = (decl (LiarC_pathnm_55, "LiarC_pathnm_55"));
  237.     ccBlock54 = (decl (LiarC_pathnm_54, "LiarC_pathnm_54"));
  238.     ccBlock53 = (decl (LiarC_pathnm_53, "LiarC_pathnm_53"));
  239.     ccBlock52 = (decl (LiarC_pathnm_52, "LiarC_pathnm_52"));
  240.     ccBlock51 = (decl (LiarC_pathnm_51, "LiarC_pathnm_51"));
  241.     ccBlock50 = (decl (LiarC_pathnm_50, "LiarC_pathnm_50"));
  242.     ccBlock49 = (decl (LiarC_pathnm_49, "LiarC_pathnm_49"));
  243.     ccBlock48 = (decl (LiarC_pathnm_48, "LiarC_pathnm_48"));
  244.     ccBlock47 = (decl (LiarC_pathnm_47, "LiarC_pathnm_47"));
  245.     ccBlock46 = (decl (LiarC_pathnm_46, "LiarC_pathnm_46"));
  246.     ccBlock45 = (decl (LiarC_pathnm_45, "LiarC_pathnm_45"));
  247.     ccBlock44 = (decl (LiarC_pathnm_44, "LiarC_pathnm_44"));
  248.     ccBlock43 = (decl (LiarC_pathnm_43, "LiarC_pathnm_43"));
  249.     ccBlock42 = (decl (LiarC_pathnm_42, "LiarC_pathnm_42"));
  250.     ccBlock41 = (decl (LiarC_pathnm_41, "LiarC_pathnm_41"));
  251.     ccBlock40 = (decl (LiarC_pathnm_40, "LiarC_pathnm_40"));
  252.     ccBlock39 = (decl (LiarC_pathnm_39, "LiarC_pathnm_39"));
  253.     ccBlock38 = (decl (LiarC_pathnm_38, "LiarC_pathnm_38"));
  254.     ccBlock37 = (decl (LiarC_pathnm_37, "LiarC_pathnm_37"));
  255.     ccBlock36 = (decl (LiarC_pathnm_36, "LiarC_pathnm_36"));
  256.     ccBlock35 = (decl (LiarC_pathnm_35, "LiarC_pathnm_35"));
  257.     ccBlock34 = (decl (LiarC_pathnm_34, "LiarC_pathnm_34"));
  258.     ccBlock33 = (decl (LiarC_pathnm_33, "LiarC_pathnm_33"));
  259.     ccBlock32 = (decl (LiarC_pathnm_32, "LiarC_pathnm_32"));
  260.     ccBlock31 = (decl (LiarC_pathnm_31, "LiarC_pathnm_31"));
  261.     ccBlock30 = (decl (LiarC_pathnm_30, "LiarC_pathnm_30"));
  262.     ccBlock29 = (decl (LiarC_pathnm_29, "LiarC_pathnm_29"));
  263.     ccBlock28 = (decl (LiarC_pathnm_28, "LiarC_pathnm_28"));
  264.     ccBlock27 = (decl (LiarC_pathnm_27, "LiarC_pathnm_27"));
  265.     ccBlock26 = (decl (LiarC_pathnm_26, "LiarC_pathnm_26"));
  266.     ccBlock25 = (decl (LiarC_pathnm_25, "LiarC_pathnm_25"));
  267.     ccBlock24 = (decl (LiarC_pathnm_24, "LiarC_pathnm_24"));
  268.     ccBlock23 = (decl (LiarC_pathnm_23, "LiarC_pathnm_23"));
  269.     ccBlock22 = (decl (LiarC_pathnm_22, "LiarC_pathnm_22"));
  270.     ccBlock21 = (decl (LiarC_pathnm_21, "LiarC_pathnm_21"));
  271.     ccBlock20 = (decl (LiarC_pathnm_20, "LiarC_pathnm_20"));
  272.     ccBlock19 = (decl (LiarC_pathnm_19, "LiarC_pathnm_19"));
  273.     ccBlock18 = (decl (LiarC_pathnm_18, "LiarC_pathnm_18"));
  274.     ccBlock17 = (decl (LiarC_pathnm_17, "LiarC_pathnm_17"));
  275.     ccBlock16 = (decl (LiarC_pathnm_16, "LiarC_pathnm_16"));
  276.     ccBlock15 = (decl (LiarC_pathnm_15, "LiarC_pathnm_15"));
  277.     ccBlock14 = (decl (LiarC_pathnm_14, "LiarC_pathnm_14"));
  278.     ccBlock13 = (decl (LiarC_pathnm_13, "LiarC_pathnm_13"));
  279.     ccBlock12 = (decl (LiarC_pathnm_12, "LiarC_pathnm_12"));
  280.     ccBlock11 = (decl (LiarC_pathnm_11, "LiarC_pathnm_11"));
  281.     ccBlock10 = (decl (LiarC_pathnm_10, "LiarC_pathnm_10"));
  282.     ccBlock9 = (decl (LiarC_pathnm_9, "LiarC_pathnm_9"));
  283.     ccBlock8 = (decl (LiarC_pathnm_8, "LiarC_pathnm_8"));
  284.     ccBlock7 = (decl (LiarC_pathnm_7, "LiarC_pathnm_7"));
  285.     ccBlock6 = (decl (LiarC_pathnm_6, "LiarC_pathnm_6"));
  286.     ccBlock5 = (decl (LiarC_pathnm_5, "LiarC_pathnm_5"));
  287.     ccBlock4 = (decl (LiarC_pathnm_4, "LiarC_pathnm_4"));
  288.     ccBlock3 = (decl (LiarC_pathnm_3, "LiarC_pathnm_3"));
  289.     ccBlock2 = (decl (LiarC_pathnm_2, "LiarC_pathnm_2"));
  290.     ccBlock1 = (decl (LiarC_pathnm_1, "LiarC_pathnm_1"));
  291.  
  292.     current_block[1L] = (((((unsigned long) (0x27)) << 26) | (34)));
  293.     do
  294.     {
  295.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[3]));
  296.       (((format_word *) (¤t_block[3])) [-2])  = (0x8180);
  297.       (((format_word *) (¤t_block[3])) [-1])  = (((3) << 1));
  298.     } while (0);
  299.  
  300.     current_block [3]
  301.       = (((SCHEME_OBJECT)
  302.           (((((unsigned long) current_C_proc)
  303.          & ((((unsigned long) 1)
  304.              << ((8  * (sizeof (unsigned long))) / 2)) - 1))
  305.         << ((8  * (sizeof (unsigned long)))  / 2))
  306.            | (((unsigned long)  1)
  307.           & ((((unsigned long) 1)
  308.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  309.  
  310.     do
  311.     {
  312.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[5]));
  313.       (((format_word *) (¤t_block[5])) [-2])  = (0x8280);
  314.       (((format_word *) (¤t_block[5])) [-1])  =    (((5) << 1));
  315.     } while (0);
  316.  
  317.     current_block [5]
  318.       = (((SCHEME_OBJECT)
  319.           (((((unsigned long) current_C_proc)
  320.          & ((((unsigned long) 1)
  321.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  322.         << ((8  * (sizeof (unsigned long)))  / 2))
  323.            | (((unsigned long)  2)
  324.           & ((((unsigned long) 1)
  325.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  326.  
  327.     do
  328.     {
  329.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[7]));
  330.       (((format_word *) (¤t_block[7])) [-2])  = (0x8380);
  331.       (((format_word *) (¤t_block[7])) [-1])  =    (((7) << 1));
  332.     } while (0);
  333.  
  334.     current_block [7]
  335.       = (((SCHEME_OBJECT)
  336.           (((((unsigned long) current_C_proc)
  337.          & ((((unsigned long) 1)
  338.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  339.         << ((8  * (sizeof (unsigned long)))  / 2))
  340.            | (((unsigned long)  3)
  341.           & ((((unsigned long) 1)
  342.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  343.  
  344.     do
  345.     {
  346.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[9]));
  347.       (((format_word *) (¤t_block[9])) [-2])  = (0x8180);
  348.       (((format_word *) (¤t_block[9])) [-1])  =    (((9) << 1));
  349.     } while (0);
  350.  
  351.     current_block [9]
  352.       = (((SCHEME_OBJECT)
  353.           (((((unsigned long) current_C_proc)
  354.          & ((((unsigned long) 1)
  355.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  356.         << ((8  * (sizeof (unsigned long)))  / 2))
  357.            | (((unsigned long)  4)
  358.           & ((((unsigned long) 1)
  359.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  360.  
  361.     do
  362.     {
  363.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[11]));
  364.       (((format_word *) (¤t_block[11])) [-2])  = (0x8180);
  365.       (((format_word *) (¤t_block[11])) [-1])  =    (((11) << 1));
  366.     } while (0);
  367.  
  368.     current_block [11]
  369.       = (((SCHEME_OBJECT)
  370.           (((((unsigned long) current_C_proc)
  371.          & ((((unsigned long) 1)
  372.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  373.         << ((8  * (sizeof (unsigned long)))  / 2))
  374.            | (((unsigned long)  5)
  375.           & ((((unsigned long) 1)
  376.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  377.  
  378.     do
  379.     {
  380.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[13]));
  381.       (((format_word *) (¤t_block[13])) [-2])  = (0x8280);
  382.       (((format_word *) (¤t_block[13])) [-1])  =    (((13) << 1));
  383.     } while (0);
  384.  
  385.     current_block [13]
  386.       = (((SCHEME_OBJECT)
  387.           (((((unsigned long) current_C_proc)
  388.          & ((((unsigned long) 1)
  389.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  390.         << ((8  * (sizeof (unsigned long)))  / 2))
  391.            | (((unsigned long)  6)
  392.           & ((((unsigned long) 1)
  393.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  394.  
  395.     do
  396.     {
  397.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[15]));
  398.       (((format_word *) (¤t_block[15])) [-2])  = (0x9380);
  399.       (((format_word *) (¤t_block[15])) [-1])  =    (((15) << 1));
  400.     } while (0);
  401.  
  402.     current_block [15]
  403.       = (((SCHEME_OBJECT)
  404.           (((((unsigned long) current_C_proc)
  405.          & ((((unsigned long) 1)
  406.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  407.         << ((8  * (sizeof (unsigned long)))  / 2))
  408.            | (((unsigned long)  7)
  409.           & ((((unsigned long) 1)
  410.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  411.  
  412.     do
  413.     {
  414.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[17]));
  415.       (((format_word *) (¤t_block[17])) [-2])  = (0x8180);
  416.       (((format_word *) (¤t_block[17])) [-1])  =    (((17) << 1));
  417.     } while (0);
  418.  
  419.     current_block [17]
  420.       = (((SCHEME_OBJECT)
  421.           (((((unsigned long) current_C_proc)
  422.          & ((((unsigned long) 1)
  423.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  424.         << ((8  * (sizeof (unsigned long)))  / 2))
  425.            | (((unsigned long)  8)
  426.           & ((((unsigned long) 1)
  427.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  428.  
  429.     do
  430.     {
  431.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[19]));
  432.       (((format_word *) (¤t_block[19])) [-2])  = (0x8280);
  433.       (((format_word *) (¤t_block[19])) [-1])  =    (((19) << 1));
  434.     } while (0);
  435.  
  436.     current_block [19]
  437.       = (((SCHEME_OBJECT)
  438.           (((((unsigned long) current_C_proc)
  439.          & ((((unsigned long) 1)
  440.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  441.         << ((8  * (sizeof (unsigned long)))  / 2))
  442.            | (((unsigned long)  9)
  443.           & ((((unsigned long) 1)
  444.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  445.  
  446.     do
  447.     {
  448.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[21]));
  449.       (((format_word *) (¤t_block[21])) [-2])  = (0x8380);
  450.       (((format_word *) (¤t_block[21])) [-1])  =    (((21) << 1));
  451.     } while (0);
  452.  
  453.     current_block [21]
  454.       = (((SCHEME_OBJECT)
  455.           (((((unsigned long) current_C_proc)
  456.          & ((((unsigned long) 1)
  457.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  458.         << ((8  * (sizeof (unsigned long)))  / 2))
  459.            | (((unsigned long)  10)
  460.           & ((((unsigned long) 1)
  461.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  462.  
  463.     do
  464.     {
  465.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[23]));
  466.       (((format_word *) (¤t_block[23])) [-2])  = (0x8180);
  467.       (((format_word *) (¤t_block[23])) [-1])  =    (((23) << 1));
  468.     } while (0);
  469.  
  470.     current_block [23]
  471.       = (((SCHEME_OBJECT)
  472.           (((((unsigned long) current_C_proc)
  473.          & ((((unsigned long) 1)
  474.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  475.         << ((8  * (sizeof (unsigned long)))  / 2))
  476.            | (((unsigned long)  11)
  477.           & ((((unsigned long) 1)
  478.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  479.  
  480.     do
  481.     {
  482.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[25]));
  483.       (((format_word *) (¤t_block[25])) [-2])  = (0x8280);
  484.       (((format_word *) (¤t_block[25])) [-1])  =    (((25) << 1));
  485.     } while (0);
  486.  
  487.     current_block [25]
  488.       = (((SCHEME_OBJECT)
  489.           (((((unsigned long) current_C_proc)
  490.          & ((((unsigned long) 1)
  491.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  492.         << ((8  * (sizeof (unsigned long)))  / 2))
  493.            | (((unsigned long)  12)
  494.           & ((((unsigned long) 1)
  495.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  496.  
  497.     do
  498.     {
  499.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[27]));
  500.       (((format_word *) (¤t_block[27])) [-2])  = (0x8380);
  501.       (((format_word *) (¤t_block[27])) [-1])  =    (((27) << 1));
  502.     } while (0);
  503.  
  504.     current_block [27]
  505.       = (((SCHEME_OBJECT)
  506.           (((((unsigned long) current_C_proc)
  507.          & ((((unsigned long) 1)
  508.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  509.         << ((8  * (sizeof (unsigned long)))  / 2))
  510.            | (((unsigned long)  13)
  511.           & ((((unsigned long) 1)
  512.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  513.  
  514.     do
  515.     {
  516.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[29]));
  517.       (((format_word *) (¤t_block[29])) [-2])  = (0x8180);
  518.       (((format_word *) (¤t_block[29])) [-1])  =    (((29) << 1));
  519.     } while (0);
  520.  
  521.     current_block [29]
  522.       = (((SCHEME_OBJECT)
  523.           (((((unsigned long) current_C_proc)
  524.          & ((((unsigned long) 1)
  525.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  526.         << ((8  * (sizeof (unsigned long)))  / 2))
  527.            | (((unsigned long)  14)
  528.           & ((((unsigned long) 1)
  529.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  530.  
  531.     do
  532.     {
  533.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[31]));
  534.       (((format_word *) (¤t_block[31])) [-2])  = (0x8080);
  535.       (((format_word *) (¤t_block[31])) [-1])  =    (((31) << 1));
  536.     } while (0);
  537.  
  538.     current_block [31]
  539.       = (((SCHEME_OBJECT)
  540.           (((((unsigned long) current_C_proc)
  541.          & ((((unsigned long) 1)
  542.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  543.         << ((8  * (sizeof (unsigned long)))  / 2))
  544.            | (((unsigned long)  15)
  545.           & ((((unsigned long) 1)
  546.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  547.  
  548.     do
  549.     {
  550.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[33]));
  551.       (((format_word *) (¤t_block[33])) [-2])  = (0x8080);
  552.       (((format_word *) (¤t_block[33])) [-1])  =    (((33) << 1));
  553.     } while (0);
  554.  
  555.     current_block [33]
  556.       = (((SCHEME_OBJECT)
  557.           (((((unsigned long) current_C_proc)
  558.          & ((((unsigned long) 1)
  559.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  560.         << ((8  * (sizeof (unsigned long)))  / 2))
  561.            | (((unsigned long)  16)
  562.           & ((((unsigned long) 1)
  563.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  564.  
  565.     do
  566.     {
  567.       SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[35]));
  568.       (((format_word *) (¤t_block[35])) [-2])  = (0xFFFF);
  569.       (((format_word *) (¤t_block[35])) [-1])  =    (((35) << 1));
  570.     } while (0);
  571.  
  572.     current_block [35]
  573.       = (((SCHEME_OBJECT)
  574.           (((((unsigned long) current_C_proc)
  575.          & ((((unsigned long) 1)
  576.              << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
  577.         << ((8  * (sizeof (unsigned long)))  / 2))
  578.            | (((unsigned long)  17)
  579.           & ((((unsigned long) 1)
  580.               << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));
  581.  
  582.     current_block[36L]
  583.       = (((((((unsigned long) ((0x1A))) << 26)
  584.         | ((((((((((unsigned long) (0x39)) << 26)
  585.              | ((((0x000000))
  586.                  | (((((0x000000)) == 0x000000)
  587.                  || (((0x000000)) == 0x030000))
  588.                 ? (((((2)) << 1)) + (1 - 1))
  589.                 : ((2)))))))))
  590.              &     0x03FFFFFF)))))));
  591.  
  592.     current_block[37]
  593.       = ((memory_to_symbol ((36),
  594.                 ((unsigned char *)
  595.                  "named-structure/set-tag-description!"))));
  596.  
  597.     current_block[37  + 1] = ((SCHEME_OBJECT) (3));
  598.  
  599.     current_block[39]
  600.       = ((memory_to_symbol ((24),
  601.                 ((unsigned char *)
  602.                  "unparser/standard-method"))));
  603.  
  604.     current_block[39  + 1] = ((SCHEME_OBJECT) (3));
  605.  
  606.     current_block[41L]
  607.       = (((((((unsigned long) ((0x1A))) << 26)
  608.         | ((((((((((unsigned long) (0x39)) << 26)
  609.              | ((((0x010000))
  610.                  | (((((0x010000)) == 0x000000)
  611.                  || (((0x010000)) == 0x030000))
  612.                 ? (((((1)) << 1)) + (1  - 1))
  613.                 : ((1))))))))) & 0x03FFFFFF)))))));
  614.  
  615.     current_block[42]
  616.       = ((memory_to_symbol ((9), ((unsigned char *) "host-type"))));
  617.  
  618.     current_block[43L]
  619.       = (((((((unsigned long) ((0x1A))) << 26)
  620.         | ((((((((((unsigned long) (0x39)) << 26) |
  621.              ((((0x030000))
  622.                | (((((0x030000)) == 0x000000)
  623.                    || (((0x030000)) == 0x030000))
  624.                   ? (((((5)) << 1)) + (1  - 1))
  625.                   : ((5))))))))) & 0x03FFFFFF)))))));
  626.  
  627.     current_block[44]
  628.       = ((memory_to_symbol ((32),
  629.                 ((unsigned char *)
  630.                  "set-record-type-unparser-method!"))));
  631.  
  632.     current_block[44 + 1] = ((SCHEME_OBJECT) (3));
  633.  
  634.     current_block[46]
  635.       = ((memory_to_symbol ((24),
  636.                 ((unsigned char *)
  637.                  "unparser/standard-method"))));
  638.  
  639.     current_block[46 + 1] = ((SCHEME_OBJECT) (2));
  640.  
  641.     current_block[48]
  642.       = ((memory_to_symbol ((16),
  643.                 ((unsigned char *) "make-record-type"))));
  644.  
  645.     current_block[48 + 1] = ((SCHEME_OBJECT) (3));
  646.  
  647.     current_block[50]
  648.       = ((memory_to_symbol ((26),
  649.                 ((unsigned char *)
  650.                  "make-define-structure-type"))));
  651.  
  652.     current_block[50 + 1] = ((SCHEME_OBJECT) (6));
  653.  
  654.     current_block[52]
  655.       = ((memory_to_symbol ((15), ((unsigned char *) "define-multiple"))));
  656.  
  657.     current_block[52 + 1] = ((SCHEME_OBJECT) (4));
  658.  
  659.     current_block[146] = tmpObj0;
  660.  
  661.     (((((SCHEME_OBJECT *)
  662.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  663.          | 0x40000000)))) [(((91) + 1))])
  664.       = ((ccBlock1));
  665.  
  666.     (((((SCHEME_OBJECT *)
  667.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  668.          | 0x40000000)))) [(((90) + 1))])
  669.       = ((ccBlock2));
  670.  
  671.     (((((SCHEME_OBJECT *)
  672.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  673.          | 0x40000000)))) [(((89) + 1))])
  674.       = ((ccBlock3));
  675.  
  676.     (((((SCHEME_OBJECT *)
  677.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  678.          | 0x40000000)))) [(((88) + 1))])
  679.       = ((ccBlock4));
  680.  
  681.     (((((SCHEME_OBJECT *)
  682.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  683.          | 0x40000000)))) [(((87) + 1))])
  684.       = ((ccBlock5));
  685.  
  686.     (((((SCHEME_OBJECT *)
  687.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  688.          | 0x40000000)))) [(((86) + 1))])
  689.       = ((ccBlock6));
  690.  
  691.     (((((SCHEME_OBJECT *)
  692.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  693.          | 0x40000000)))) [(((85) + 1))])
  694.       = ((ccBlock7));
  695.  
  696.     (((((SCHEME_OBJECT *)
  697.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  698.          | 0x40000000)))) [(((84) + 1))])
  699.       = ((ccBlock8));
  700.  
  701.     (((((SCHEME_OBJECT *)
  702.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  703.          | 0x40000000)))) [(((83) + 1))])
  704.       = ((ccBlock9));
  705.  
  706.     (((((SCHEME_OBJECT *)
  707.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  708.          | 0x40000000)))) [(((82) + 1))])
  709.       = ((ccBlock10));
  710.  
  711.     (((((SCHEME_OBJECT *)
  712.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  713.          | 0x40000000)))) [(((81) + 1))])
  714.       = ((ccBlock11));
  715.  
  716.     (((((SCHEME_OBJECT *)
  717.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  718.          | 0x40000000)))) [(((80) + 1))])
  719.       = ((ccBlock12));
  720.  
  721.     (((((SCHEME_OBJECT *)
  722.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  723.          | 0x40000000)))) [(((79) + 1))])
  724.       = ((ccBlock13));
  725.  
  726.     (((((SCHEME_OBJECT *)
  727.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  728.          | 0x40000000)))) [(((78) + 1))])
  729.       = ((ccBlock14));
  730.  
  731.     (((((SCHEME_OBJECT *)
  732.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  733.          | 0x40000000)))) [(((77) + 1))])
  734.       = ((ccBlock15));
  735.  
  736.     (((((SCHEME_OBJECT *)
  737.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  738.          | 0x40000000)))) [(((76) + 1))])
  739.       = ((ccBlock16));
  740.  
  741.     (((((SCHEME_OBJECT *)
  742.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  743.          | 0x40000000)))) [(((75) + 1))])
  744.       = ((ccBlock17));
  745.  
  746.     (((((SCHEME_OBJECT *)
  747.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  748.          | 0x40000000)))) [(((74) + 1))])
  749.       = ((ccBlock18));
  750.  
  751.     (((((SCHEME_OBJECT *)
  752.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  753.          | 0x40000000)))) [(((73) + 1))])
  754.       = ((ccBlock19));
  755.  
  756.     (((((SCHEME_OBJECT *)
  757.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  758.          | 0x40000000)))) [(((72) + 1))])
  759.       = ((ccBlock20));
  760.  
  761.     (((((SCHEME_OBJECT *)
  762.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  763.          | 0x40000000)))) [(((71) + 1))])
  764.       = ((ccBlock21));
  765.  
  766.     (((((SCHEME_OBJECT *)
  767.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  768.          | 0x40000000)))) [(((70) + 1))])
  769.       = ((ccBlock22));
  770.  
  771.     (((((SCHEME_OBJECT *)
  772.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  773.          | 0x40000000)))) [(((69) + 1))])
  774.       = ((ccBlock23));
  775.  
  776.     (((((SCHEME_OBJECT *)
  777.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  778.          | 0x40000000)))) [(((68) + 1))])
  779.       = ((ccBlock24));
  780.  
  781.     (((((SCHEME_OBJECT *)
  782.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  783.          | 0x40000000)))) [(((67) + 1))])
  784.       = ((ccBlock25));
  785.  
  786.     (((((SCHEME_OBJECT *)
  787.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  788.          | 0x40000000)))) [(((66) + 1))])
  789.       = ((ccBlock26));
  790.  
  791.     (((((SCHEME_OBJECT *)
  792.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  793.          | 0x40000000)))) [(((65) + 1))])
  794.       = ((ccBlock27));
  795.  
  796.     (((((SCHEME_OBJECT *)
  797.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  798.          | 0x40000000)))) [(((64) + 1))])
  799.       = ((ccBlock28));
  800.  
  801.     (((((SCHEME_OBJECT *)
  802.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  803.          | 0x40000000)))) [(((63) + 1))])
  804.       = ((ccBlock29));
  805.  
  806.     (((((SCHEME_OBJECT *)
  807.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  808.          | 0x40000000)))) [(((62) + 1))])
  809.       = ((ccBlock30));
  810.  
  811.     (((((SCHEME_OBJECT *)
  812.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  813.          | 0x40000000)))) [(((61) + 1))])
  814.       = ((ccBlock31));
  815.  
  816.     (((((SCHEME_OBJECT *)
  817.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  818.          | 0x40000000)))) [(((60) + 1))])
  819.       = ((ccBlock32));
  820.  
  821.     (((((SCHEME_OBJECT *)
  822.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  823.          | 0x40000000)))) [(((59) + 1))])
  824.       = ((ccBlock33));
  825.  
  826.     (((((SCHEME_OBJECT *)
  827.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  828.          | 0x40000000)))) [(((58) + 1))])
  829.       = ((ccBlock34));
  830.  
  831.     (((((SCHEME_OBJECT *)
  832.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  833.          | 0x40000000)))) [(((57) + 1))])
  834.       = ((ccBlock35));
  835.  
  836.     (((((SCHEME_OBJECT *)
  837.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  838.          | 0x40000000)))) [(((56) + 1))])
  839.       = ((ccBlock36));
  840.  
  841.     (((((SCHEME_OBJECT *)
  842.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  843.          | 0x40000000)))) [(((55) + 1))])
  844.       = ((ccBlock37));
  845.  
  846.     (((((SCHEME_OBJECT *)
  847.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  848.          | 0x40000000)))) [(((54) + 1))])
  849.       = ((ccBlock38));
  850.  
  851.     (((((SCHEME_OBJECT *)
  852.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  853.          | 0x40000000)))) [(((53) + 1))])
  854.       = ((ccBlock39));
  855.  
  856.     (((((SCHEME_OBJECT *)
  857.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  858.          | 0x40000000)))) [(((52) + 1))])
  859.       = ((ccBlock40));
  860.  
  861.     (((((SCHEME_OBJECT *)
  862.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  863.          | 0x40000000)))) [(((51) + 1))])
  864.       = ((ccBlock41));
  865.  
  866.     (((((SCHEME_OBJECT *)
  867.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  868.          | 0x40000000)))) [(((50) + 1))])
  869.       = ((ccBlock42));
  870.  
  871.     (((((SCHEME_OBJECT *)
  872.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  873.          | 0x40000000)))) [(((49) + 1))])
  874.       = ((ccBlock43));
  875.  
  876.     (((((SCHEME_OBJECT *)
  877.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  878.          | 0x40000000)))) [(((48) + 1))])
  879.       = ((ccBlock44));
  880.  
  881.     (((((SCHEME_OBJECT *)
  882.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  883.          | 0x40000000)))) [(((47) + 1))])
  884.       = ((ccBlock45));
  885.  
  886.     (((((SCHEME_OBJECT *)
  887.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  888.          | 0x40000000)))) [(((46) + 1))])
  889.       = ((ccBlock46));
  890.  
  891.     (((((SCHEME_OBJECT *)
  892.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  893.          | 0x40000000)))) [(((45) + 1))])
  894.       = ((ccBlock47));
  895.  
  896.     (((((SCHEME_OBJECT *)
  897.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  898.          | 0x40000000)))) [(((44) + 1))])
  899.       = ((ccBlock48));
  900.  
  901.     (((((SCHEME_OBJECT *)
  902.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  903.          | 0x40000000)))) [(((43) + 1))])
  904.       = ((ccBlock49));
  905.  
  906.     (((((SCHEME_OBJECT *)
  907.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  908.          | 0x40000000)))) [(((42) + 1))])
  909.       = ((ccBlock50));
  910.  
  911.     (((((SCHEME_OBJECT *)
  912.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  913.          | 0x40000000)))) [(((41) + 1))])
  914.       = ((ccBlock51));
  915.  
  916.     (((((SCHEME_OBJECT *)
  917.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  918.          | 0x40000000)))) [(((40) + 1))])
  919.       = ((ccBlock52));
  920.  
  921.     (((((SCHEME_OBJECT *)
  922.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  923.          | 0x40000000)))) [(((39) + 1))])
  924.       = ((ccBlock53));
  925.  
  926.     (((((SCHEME_OBJECT *)
  927.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  928.          | 0x40000000)))) [(((38) + 1))])
  929.       = ((ccBlock54));
  930.  
  931.     (((((SCHEME_OBJECT *)
  932.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  933.          | 0x40000000)))) [(((37) + 1))])
  934.       = ((ccBlock55));
  935.  
  936.     (((((SCHEME_OBJECT *)
  937.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  938.          | 0x40000000)))) [(((36) + 1))])
  939.       = ((ccBlock56));
  940.  
  941.     (((((SCHEME_OBJECT *)
  942.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  943.          | 0x40000000)))) [(((35) + 1))])
  944.       = ((ccBlock57));
  945.  
  946.     (((((SCHEME_OBJECT *)
  947.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  948.          | 0x40000000)))) [(((34) + 1))])
  949.       = ((ccBlock58));
  950.  
  951.     (((((SCHEME_OBJECT *)
  952.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  953.          | 0x40000000)))) [(((33) + 1))])
  954.       = ((ccBlock59));
  955.  
  956.     (((((SCHEME_OBJECT *)
  957.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  958.          | 0x40000000)))) [(((32) + 1))])
  959.       = ((ccBlock60));
  960.  
  961.     (((((SCHEME_OBJECT *)
  962.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  963.          | 0x40000000)))) [(((31) + 1))])
  964.       = ((ccBlock61));
  965.  
  966.     (((((SCHEME_OBJECT *)
  967.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  968.          | 0x40000000)))) [(((30) + 1))])
  969.       = ((ccBlock62));
  970.  
  971.     (((((SCHEME_OBJECT *)
  972.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  973.          | 0x40000000)))) [(((29) + 1))])
  974.       = ((ccBlock63));
  975.  
  976.     (((((SCHEME_OBJECT *)
  977.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  978.          | 0x40000000)))) [(((28) + 1))])
  979.       = ((ccBlock64));
  980.  
  981.     (((((SCHEME_OBJECT *)
  982.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  983.          | 0x40000000)))) [(((27) + 1))])
  984.       = ((ccBlock65));
  985.  
  986.     (((((SCHEME_OBJECT *)
  987.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  988.          | 0x40000000)))) [(((26) + 1))])
  989.       = ((ccBlock66));
  990.  
  991.     (((((SCHEME_OBJECT *)
  992.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  993.          | 0x40000000)))) [(((25) + 1))])
  994.       = ((ccBlock67));
  995.  
  996.     (((((SCHEME_OBJECT *)
  997.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  998.          | 0x40000000)))) [(((24) + 1))])
  999.       = ((ccBlock68));
  1000.  
  1001.     (((((SCHEME_OBJECT *)
  1002.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1003.          | 0x40000000)))) [(((23) + 1))])
  1004.       = ((ccBlock69));
  1005.  
  1006.     (((((SCHEME_OBJECT *)
  1007.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1008.          | 0x40000000)))) [(((22) + 1))])
  1009.       = ((ccBlock70));
  1010.  
  1011.     (((((SCHEME_OBJECT *)
  1012.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1013.          | 0x40000000)))) [(((21) + 1))])
  1014.       = ((ccBlock71));
  1015.  
  1016.     (((((SCHEME_OBJECT *)
  1017.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1018.          | 0x40000000)))) [(((20) + 1))])
  1019.       = ((ccBlock72));
  1020.  
  1021.     (((((SCHEME_OBJECT *)
  1022.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1023.          | 0x40000000)))) [(((19) + 1))])
  1024.       = ((ccBlock73));
  1025.  
  1026.     (((((SCHEME_OBJECT *)
  1027.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1028.          | 0x40000000)))) [(((18) + 1))])
  1029.       = ((ccBlock74));
  1030.  
  1031.     (((((SCHEME_OBJECT *)
  1032.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1033.          | 0x40000000)))) [(((17) + 1))])
  1034.       = ((ccBlock75));
  1035.  
  1036.     (((((SCHEME_OBJECT *)
  1037.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1038.          | 0x40000000)))) [(((16) + 1))])
  1039.       = ((ccBlock76));
  1040.  
  1041.     (((((SCHEME_OBJECT *)
  1042.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1043.          | 0x40000000)))) [(((15) + 1))])
  1044.       = ((ccBlock77));
  1045.  
  1046.     (((((SCHEME_OBJECT *)
  1047.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1048.          | 0x40000000)))) [(((14) + 1))])
  1049.       = ((ccBlock78));
  1050.  
  1051.     (((((SCHEME_OBJECT *)
  1052.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1053.          | 0x40000000)))) [(((13) + 1))])
  1054.       = ((ccBlock79));
  1055.  
  1056.     (((((SCHEME_OBJECT *)
  1057.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1058.          | 0x40000000)))) [(((12) + 1))])
  1059.       = ((ccBlock80));
  1060.  
  1061.     (((((SCHEME_OBJECT *)
  1062.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1063.          | 0x40000000)))) [(((11) + 1))])
  1064.       = ((ccBlock81));
  1065.  
  1066.     (((((SCHEME_OBJECT *)
  1067.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1068.          | 0x40000000)))) [(((10) + 1))])
  1069.       = ((ccBlock82));
  1070.  
  1071.     (((((SCHEME_OBJECT *)
  1072.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1073.          | 0x40000000)))) [(((9) + 1))])
  1074.       = ((ccBlock83));
  1075.  
  1076.     (((((SCHEME_OBJECT *)
  1077.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1078.          | 0x40000000)))) [(((8) + 1))])
  1079.       = ((ccBlock84));
  1080.  
  1081.     (((((SCHEME_OBJECT *)
  1082.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1083.          | 0x40000000)))) [(((7) + 1))])
  1084.       = ((ccBlock85));
  1085.  
  1086.     (((((SCHEME_OBJECT *)
  1087.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1088.          | 0x40000000)))) [(((6) + 1))])
  1089.       = ((ccBlock86));
  1090.  
  1091.     (((((SCHEME_OBJECT *)
  1092.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1093.          | 0x40000000)))) [(((5) + 1))])
  1094.       = ((ccBlock87));
  1095.  
  1096.     (((((SCHEME_OBJECT *)
  1097.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1098.          | 0x40000000)))) [(((4) + 1))])
  1099.       = ((ccBlock88));
  1100.  
  1101.     (((((SCHEME_OBJECT *)
  1102.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1103.          | 0x40000000)))) [(((3) + 1))])
  1104.       = ((ccBlock89));
  1105.  
  1106.     (((((SCHEME_OBJECT *)
  1107.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1108.          | 0x40000000)))) [(((2) + 1))])
  1109.       = ((ccBlock90));
  1110.  
  1111.     (((((SCHEME_OBJECT *)
  1112.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1113.          | 0x40000000)))) [(((1) + 1))])
  1114.       = ((ccBlock91));
  1115.  
  1116.     (((((SCHEME_OBJECT *)
  1117.         (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
  1118.          | 0x40000000)))) [(((0) + 1))])
  1119.       = ((ccBlock92));
  1120.  
  1121.     current_block[145]
  1122.       = (((((((unsigned long) ((0x28))) << 26)
  1123.         | ((((SCHEME_OBJECT)
  1124.              (((unsigned long)
  1125.                ((((((SCHEME_OBJECT *)
  1126.                 (((unsigned long) ((ccBlock68) & 0x03FFFFFF))
  1127.                  | 0x40000000))))
  1128.              + (3))))
  1129.               & (~(0xC0000000))))))))));
  1130.  
  1131.     current_block[144]
  1132.       = (((((((unsigned long) ((0x28))) << 26)
  1133.         | ((((SCHEME_OBJECT)
  1134.              (((unsigned long)
  1135.                ((((((SCHEME_OBJECT *)
  1136.                 (((unsigned long) ((ccBlock69) & 0x03FFFFFF))
  1137.                  | 0x40000000))))
  1138.              + (3))))
  1139.               & (~(0xC0000000))))))))));
  1140.  
  1141.     current_block[143]
  1142.       = (((((((unsigned long) ((0x28))) << 26)
  1143.         | ((((SCHEME_OBJECT)
  1144.              (((unsigned long)
  1145.                ((((((SCHEME_OBJECT *)
  1146.                 (((unsigned long) ((ccBlock70) & 0x03FFFFFF))
  1147.                  | 0x40000000))))
  1148.              + (3))))
  1149.               & (~(0xC0000000))))))))));
  1150.  
  1151.     current_block[142]
  1152.       = (((((((unsigned long) ((0x28))) << 26)
  1153.         | ((((SCHEME_OBJECT)
  1154.              (((unsigned long)
  1155.                ((((((SCHEME_OBJECT *)
  1156.                 (((unsigned long) ((ccBlock71) & 0x03FFFFFF))
  1157.                  | 0x40000000))))
  1158.              + (3))))
  1159.               & (~(0xC0000000))))))))));
  1160.  
  1161.     current_block[141]
  1162.       = (((((((unsigned long) ((0x28))) << 26)
  1163.         | ((((SCHEME_OBJECT)
  1164.              (((unsigned long)
  1165.                ((((((SCHEME_OBJECT *)
  1166.                 (((unsigned long) ((ccBlock72) & 0x03FFFFFF))
  1167.                  | 0x40000000))))
  1168.              + (3))))
  1169.               & (~(0xC0000000))))))))));
  1170.  
  1171.     current_block[140]
  1172.       = (((((((unsigned long) ((0x28))) << 26)
  1173.         | ((((SCHEME_OBJECT)
  1174.              (((unsigned long)
  1175.                ((((((SCHEME_OBJECT *)
  1176.                 (((unsigned long) ((ccBlock73) & 0x03FFFFFF))
  1177.                  | 0x40000000))))
  1178.              + (3))))
  1179.               & (~(0xC0000000))))))))));
  1180.  
  1181.     current_block[139]
  1182.       = (((((((unsigned long) ((0x28))) << 26)
  1183.         | ((((SCHEME_OBJECT)
  1184.              (((unsigned long)
  1185.                ((((((SCHEME_OBJECT *)
  1186.                 (((unsigned long) ((ccBlock74) & 0x03FFFFFF))
  1187.                  | 0x40000000))))
  1188.              + (5))))
  1189.               & (~(0xC0000000))))))))));
  1190.  
  1191.     current_block[138]
  1192.       = (((((((unsigned long) ((0x28))) << 26)
  1193.         | ((((SCHEME_OBJECT)
  1194.              (((unsigned long)
  1195.                ((((((SCHEME_OBJECT *)
  1196.                 (((unsigned long) ((ccBlock75) & 0x03FFFFFF))
  1197.                  | 0x40000000))))
  1198.              + (5))))
  1199.               & (~(0xC0000000))))))))));
  1200.  
  1201.     current_block[137]
  1202.       = (((((((unsigned long) ((0x28))) << 26)
  1203.         | ((((SCHEME_OBJECT)
  1204.              (((unsigned long)
  1205.                ((((((SCHEME_OBJECT *)
  1206.                 (((unsigned long) ((ccBlock76) & 0x03FFFFFF))
  1207.                  | 0x40000000))))
  1208.              + (3))))
  1209.               & (~(0xC0000000))))))))));
  1210.  
  1211.     current_block[136]
  1212.       = (((((((unsigned long) ((0x28))) << 26)
  1213.         | ((((SCHEME_OBJECT)
  1214.              (((unsigned long)
  1215.                ((((((SCHEME_OBJECT *)
  1216.                 (((unsigned long) ((ccBlock77) & 0x03FFFFFF))
  1217.                  | 0x40000000))))
  1218.              + (3))))
  1219.               & (~(0xC0000000))))))))));
  1220.  
  1221.     current_block[135]
  1222.       = (((((((unsigned long) ((0x28))) << 26)
  1223.         | ((((SCHEME_OBJECT)
  1224.              (((unsigned long)
  1225.                ((((((SCHEME_OBJECT *)
  1226.                 (((unsigned long) ((ccBlock78) & 0x03FFFFFF))
  1227.                  | 0x40000000))))
  1228.              + (3))))
  1229.               & (~(0xC0000000))))))))));
  1230.  
  1231.     current_block[134]
  1232.       = (((((((unsigned long) ((0x28))) << 26)
  1233.         | ((((SCHEME_OBJECT)
  1234.              (((unsigned long)
  1235.                ((((((SCHEME_OBJECT *)
  1236.                 (((unsigned long) ((ccBlock79) & 0x03FFFFFF))
  1237.                  | 0x40000000))))
  1238.              + (3))))
  1239.               & (~(0xC0000000))))))))));
  1240.  
  1241.     current_block[133]
  1242.       = (((((((unsigned long) ((0x28))) << 26)
  1243.         | ((((SCHEME_OBJECT)
  1244.              (((unsigned long)
  1245.                ((((((SCHEME_OBJECT *)
  1246.                 (((unsigned long) ((ccBlock80) & 0x03FFFFFF))
  1247.                  | 0x40000000))))
  1248.              + (3))))
  1249.               & (~(0xC0000000))))))))));
  1250.  
  1251.     current_block[132]
  1252.       = (((((((unsigned long) ((0x28))) << 26)
  1253.         | ((((SCHEME_OBJECT)
  1254.              (((unsigned long)
  1255.                ((((((SCHEME_OBJECT *)
  1256.                 (((unsigned long) ((ccBlock81) & 0x03FFFFFF))
  1257.                  | 0x40000000))))
  1258.              + (3))))
  1259.               & (~(0xC0000000))))))))));
  1260.  
  1261.     current_block[131]
  1262.       = (((((((unsigned long) ((0x28))) << 26)
  1263.         | ((((SCHEME_OBJECT)
  1264.              (((unsigned long)
  1265.                ((((((SCHEME_OBJECT *)
  1266.                 (((unsigned long) ((ccBlock82) & 0x03FFFFFF))
  1267.                  | 0x40000000))))
  1268.              + (3))))
  1269.               & (~(0xC0000000))))))))));
  1270.  
  1271.     current_block[130]
  1272.       = (((((((unsigned long) ((0x28))) << 26)
  1273.         | ((((SCHEME_OBJECT)
  1274.              (((unsigned long)
  1275.                ((((((SCHEME_OBJECT *)
  1276.                 (((unsigned long) ((ccBlock83) & 0x03FFFFFF))
  1277.                  | 0x40000000))))
  1278.              + (3))))
  1279.               & (~(0xC0000000))))))))));
  1280.  
  1281.     current_block[129]
  1282.       = (((((((unsigned long) ((0x28))) << 26)
  1283.         | ((((SCHEME_OBJECT)
  1284.              (((unsigned long)
  1285.                ((((((SCHEME_OBJECT *)
  1286.                 (((unsigned long) ((ccBlock84) & 0x03FFFFFF))
  1287.                  | 0x40000000))))
  1288.              + (3))))
  1289.               & (~(0xC0000000))))))))));
  1290.  
  1291.     current_block[128]
  1292.       = (((((((unsigned long) ((0x28))) << 26)
  1293.         | ((((SCHEME_OBJECT)
  1294.              (((unsigned long)
  1295.                ((((((SCHEME_OBJECT *)
  1296.                 (((unsigned long) ((ccBlock85) & 0x03FFFFFF))
  1297.                  | 0x40000000))))
  1298.              + (3))))
  1299.               & (~(0xC0000000))))))))));
  1300.  
  1301.     current_block[127]
  1302.       = (((((((unsigned long) ((0x28))) << 26)
  1303.         | ((((SCHEME_OBJECT)
  1304.              (((unsigned long)
  1305.                ((((((SCHEME_OBJECT *)
  1306.                 (((unsigned long) ((ccBlock86) & 0x03FFFFFF))
  1307.                  | 0x40000000))))
  1308.              + (3))))
  1309.               & (~(0xC0000000))))))))));
  1310.  
  1311.     current_block[126]
  1312.       = (((((((unsigned long) ((0x28))) << 26)
  1313.         | ((((SCHEME_OBJECT)
  1314.              (((unsigned long)
  1315.                ((((((SCHEME_OBJECT *)
  1316.                 (((unsigned long) ((ccBlock87) & 0x03FFFFFF))
  1317.                  | 0x40000000))))
  1318.              + (3))))
  1319.               & (~(0xC0000000))))))))));
  1320.  
  1321.     current_block[125]
  1322.       = (((((((unsigned long) ((0x28))) << 26)
  1323.         | ((((SCHEME_OBJECT)
  1324.              (((unsigned long)
  1325.                ((((((SCHEME_OBJECT *)
  1326.                 (((unsigned long) ((ccBlock88) & 0x03FFFFFF))
  1327.                  | 0x40000000))))
  1328.              + (3))))
  1329.               & (~(0xC0000000))))))))));
  1330.  
  1331.     current_block[124]
  1332.       = (((((((unsigned long) ((0x28))) << 26)
  1333.         | ((((SCHEME_OBJECT)
  1334.              (((unsigned long)
  1335.                ((((((SCHEME_OBJECT *)
  1336.                 (((unsigned long) ((ccBlock89) & 0x03FFFFFF))
  1337.                  | 0x40000000))))
  1338.              + (3))))
  1339.               & (~(0xC0000000))))))))));
  1340.  
  1341.     current_block[123]
  1342.       = (((((((unsigned long) ((0x28))) << 26)
  1343.         | ((((SCHEME_OBJECT)
  1344.              (((unsigned long)
  1345.                ((((((SCHEME_OBJECT *)
  1346.                 (((unsigned long) ((ccBlock90) & 0x03FFFFFF))
  1347.                  | 0x40000000))))
  1348.              + (3))))
  1349.               & (~(0xC0000000))))))))));
  1350.  
  1351.     current_block[122]
  1352.       = (((((((unsigned long) ((0x28))) << 26)
  1353.         | ((((SCHEME_OBJECT)
  1354.              (((unsigned long)
  1355.                ((((((SCHEME_OBJECT *)
  1356.                 (((unsigned long) ((ccBlock91) & 0x03FFFFFF))
  1357.                  | 0x40000000))))
  1358.              + (3))))
  1359.               & (~(0xC0000000))))))))));
  1360.  
  1361.     current_block[121]
  1362.       = (((((((unsigned long) ((0x28))) << 26)
  1363.         | ((((SCHEME_OBJECT)
  1364.              (((unsigned long)
  1365.                ((((((SCHEME_OBJECT *)
  1366.                 (((unsigned long) ((ccBlock92) & 0x03FFFFFF))
  1367.                  | 0x40000000))))
  1368.              + (3))))
  1369.               & (~(0xC0000000))))))))));
  1370.  
  1371.     current_block[120]
  1372.       = (((((((unsigned long) ((0x28))) << 26)
  1373.         | ((((SCHEME_OBJECT)
  1374.              (((unsigned long)
  1375.                ((((((SCHEME_OBJECT *)
  1376.                 (((unsigned long) ((ccBlock64) & 0x03FFFFFF))
  1377.                  | 0x40000000))))
  1378.              + (3))))
  1379.               & (~(0xC0000000))))))))));
  1380.  
  1381.     current_block[119]
  1382.       = (((((((unsigned long) ((0x28))) << 26)
  1383.         | ((((SCHEME_OBJECT)
  1384.              (((unsigned long)
  1385.                ((((((SCHEME_OBJECT *)
  1386.                 (((unsigned long) ((ccBlock65) & 0x03FFFFFF))
  1387.                  | 0x40000000))))
  1388.              + (3))))
  1389.               & (~(0xC0000000))))))))));
  1390.  
  1391.     current_block[118]
  1392.       = (((((((unsigned long) ((0x28))) << 26)
  1393.         | ((((SCHEME_OBJECT)
  1394.              (((unsigned long)
  1395.                ((((((SCHEME_OBJECT *)
  1396.                 (((unsigned long) ((ccBlock66) & 0x03FFFFFF))
  1397.                  | 0x40000000))))
  1398.              + (3))))
  1399.               & (~(0xC0000000))))))))));
  1400.  
  1401.     current_block[117]
  1402.       = (((((((unsigned long) ((0x28))) << 26)
  1403.         | ((((SCHEME_OBJECT)
  1404.              (((unsigned long)
  1405.                ((((((SCHEME_OBJECT *)
  1406.                 (((unsigned long) ((ccBlock67) & 0x03FFFFFF))
  1407.                  | 0x40000000))))
  1408.              + (3))))
  1409.               & (~(0xC0000000))))))))));
  1410.  
  1411.     current_block[116]
  1412.       = (((((((unsigned long) ((0x28))) << 26)
  1413.         | ((((SCHEME_OBJECT)
  1414.              (((unsigned long)
  1415.                ((((((SCHEME_OBJECT *)
  1416.                 (((unsigned long) ((ccBlock63) & 0x03FFFFFF))
  1417.                  | 0x40000000))))
  1418.              + (3))))
  1419.               & (~(0xC0000000))))))))));
  1420.  
  1421.     current_block[115]
  1422.       = (((((((unsigned long) ((0x28))) << 26)
  1423.         | ((((SCHEME_OBJECT)
  1424.              (((unsigned long)
  1425.                ((((((SCHEME_OBJECT *)
  1426.                 (((unsigned long) ((ccBlock62) & 0x03FFFFFF))
  1427.                  | 0x40000000))))
  1428.              + (3))))
  1429.               & (~(0xC0000000))))))))));
  1430.  
  1431.     current_block[114]
  1432.       = (((((((unsigned long) ((0x28))) << 26)
  1433.         | ((((SCHEME_OBJECT)
  1434.              (((unsigned long)
  1435.                ((((((SCHEME_OBJECT *)
  1436.                 (((unsigned long) ((ccBlock61) & 0x03FFFFFF))
  1437.                  | 0x40000000))))
  1438.              + (5))))
  1439.               & (~(0xC0000000))))))))));
  1440.  
  1441.     current_block[113]
  1442.       = (((((((unsigned long) ((0x28))) << 26)
  1443.         | ((((SCHEME_OBJECT)
  1444.              (((unsigned long)
  1445.                ((((((SCHEME_OBJECT *)
  1446.                 (((unsigned long) ((ccBlock60) & 0x03FFFFFF))
  1447.                  | 0x40000000))))
  1448.              + (3))))
  1449.               & (~(0xC0000000))))))))));
  1450.  
  1451.     current_block[112]
  1452.       = (((((((unsigned long) ((0x28))) << 26)
  1453.         | ((((SCHEME_OBJECT)
  1454.              (((unsigned long)
  1455.                ((((((SCHEME_OBJECT *)
  1456.                 (((unsigned long) ((ccBlock59) & 0x03FFFFFF))
  1457.                  | 0x40000000))))
  1458.              + (3))))
  1459.               & (~(0xC0000000))))))))));
  1460.  
  1461.     current_block[111]
  1462.       = (((((((unsigned long) ((0x28))) << 26)
  1463.         | ((((SCHEME_OBJECT)
  1464.              (((unsigned long)
  1465.                ((((((SCHEME_OBJECT *)
  1466.                 (((unsigned long) ((ccBlock58) & 0x03FFFFFF))
  1467.                  | 0x40000000))))
  1468.              + (3))))
  1469.               & (~(0xC0000000))))))))));
  1470.  
  1471.     current_block[110]
  1472.       = (((((((unsigned long) ((0x28))) << 26)
  1473.         | ((((SCHEME_OBJECT)
  1474.              (((unsigned long)
  1475.                ((((((SCHEME_OBJECT *)
  1476.                 (((unsigned long) ((ccBlock57) & 0x03FFFFFF))
  1477.                  | 0x40000000))))
  1478.              + (3))))
  1479.               & (~(0xC0000000))))))))));
  1480.  
  1481.     current_block[109]
  1482.       = (((((((unsigned long) ((0x28))) << 26)
  1483.         | ((((SCHEME_OBJECT)
  1484.              (((unsigned long)
  1485.                ((((((SCHEME_OBJECT *)
  1486.                 (((unsigned long) ((ccBlock56) & 0x03FFFFFF))
  1487.                  | 0x40000000))))
  1488.              + (3))))
  1489.               & (~(0xC0000000))))))))));
  1490.  
  1491.     current_block[108]
  1492.       = (((((((unsigned long) ((0x28))) << 26)
  1493.         | ((((SCHEME_OBJECT)
  1494.              (((unsigned long)
  1495.                ((((((SCHEME_OBJECT *)
  1496.                 (((unsigned long) ((ccBlock55) & 0x03FFFFFF))
  1497.                  | 0x40000000))))
  1498.              + (3))))
  1499.               & (~(0xC0000000))))))))));
  1500.  
  1501.     current_block[107]
  1502.       = (((((((unsigned long) ((0x28))) << 26)
  1503.         | ((((SCHEME_OBJECT)
  1504.              (((unsigned long)
  1505.                ((((((SCHEME_OBJECT *)
  1506.                 (((unsigned long) ((ccBlock54) & 0x03FFFFFF))
  1507.                  | 0x40000000))))
  1508.              + (3))))
  1509.               & (~(0xC0000000))))))))));
  1510.  
  1511.     current_block[106]
  1512.       = (((((((unsigned long) ((0x28))) << 26)
  1513.         | ((((SCHEME_OBJECT)
  1514.              (((unsigned long)
  1515.                ((((((SCHEME_OBJECT *)
  1516.                 (((unsigned long) ((ccBlock53) & 0x03FFFFFF))
  1517.                  | 0x40000000))))
  1518.              + (3))))
  1519.               & (~(0xC0000000))))))))));
  1520.  
  1521.     current_block[105]
  1522.       = (((((((unsigned long) ((0x28))) << 26)
  1523.         | ((((SCHEME_OBJECT)
  1524.              (((unsigned long)
  1525.                ((((((SCHEME_OBJECT *)
  1526.                 (((unsigned long) ((ccBlock52) & 0x03FFFFFF))
  1527.                  | 0x40000000))))
  1528.              + (3))))
  1529.               & (~(0xC0000000))))))))));
  1530.  
  1531.     current_block[104]
  1532.       = (((((((unsigned long) ((0x28))) << 26)
  1533.         | ((((SCHEME_OBJECT)
  1534.              (((unsigned long)
  1535.                ((((((SCHEME_OBJECT *)
  1536.                 (((unsigned long) ((ccBlock51) & 0x03FFFFFF))
  1537.                  | 0x40000000))))
  1538.              + (3))))
  1539.               & (~(0xC0000000))))))))));
  1540.  
  1541.     current_block[103]
  1542.       = (((((((unsigned long) ((0x28))) << 26)
  1543.         | ((((SCHEME_OBJECT)
  1544.              (((unsigned long)
  1545.                ((((((SCHEME_OBJECT *)
  1546.                 (((unsigned long) ((ccBlock50) & 0x03FFFFFF))
  1547.                  | 0x40000000))))
  1548.              + (3))))
  1549.               & (~(0xC0000000))))))))));
  1550.  
  1551.     current_block[102]
  1552.       = (((((((unsigned long) ((0x28))) << 26)
  1553.         | ((((SCHEME_OBJECT)
  1554.              (((unsigned long)
  1555.                ((((((SCHEME_OBJECT *)
  1556.                 (((unsigned long) ((ccBlock49) & 0x03FFFFFF))
  1557.                  | 0x40000000))))
  1558.              + (3))))
  1559.               & (~(0xC0000000))))))))));
  1560.  
  1561.     current_block[101]
  1562.       = (((((((unsigned long) ((0x28))) << 26)
  1563.         | ((((SCHEME_OBJECT)
  1564.              (((unsigned long)
  1565.                ((((((SCHEME_OBJECT *)
  1566.                 (((unsigned long) ((ccBlock48) & 0x03FFFFFF))
  1567.                  | 0x40000000))))
  1568.              + (3))))
  1569.               & (~(0xC0000000))))))))));
  1570.  
  1571.     current_block[100]
  1572.       = (((((((unsigned long) ((0x28))) << 26)
  1573.         | ((((SCHEME_OBJECT)
  1574.              (((unsigned long)
  1575.                ((((((SCHEME_OBJECT *)
  1576.                 (((unsigned long) ((ccBlock47) & 0x03FFFFFF))
  1577.                  | 0x40000000))))
  1578.              + (3))))
  1579.               & (~(0xC0000000))))))))));
  1580.  
  1581.     current_block[99]
  1582.       = (((((((unsigned long) ((0x28))) << 26)
  1583.         | ((((SCHEME_OBJECT)
  1584.              (((unsigned long)
  1585.                ((((((SCHEME_OBJECT *)
  1586.                 (((unsigned long) ((ccBlock46) & 0x03FFFFFF))
  1587.                  | 0x40000000))))
  1588.              + (3))))
  1589.               & (~(0xC0000000))))))))));
  1590.  
  1591.     current_block[98]
  1592.       = (((((((unsigned long) ((0x28))) << 26)
  1593.         | ((((SCHEME_OBJECT)
  1594.              (((unsigned long)
  1595.                ((((((SCHEME_OBJECT *)
  1596.                 (((unsigned long) ((ccBlock45) & 0x03FFFFFF))
  1597.                  | 0x40000000))))
  1598.              + (3))))
  1599.               & (~(0xC0000000))))))))));
  1600.  
  1601.     current_block[97]
  1602.       = (((((((unsigned long) ((0x28))) << 26)
  1603.         | ((((SCHEME_OBJECT)
  1604.              (((unsigned long)
  1605.                ((((((SCHEME_OBJECT *)
  1606.                 (((unsigned long) ((ccBlock44) & 0x03FFFFFF))
  1607.                  | 0x40000000))))
  1608.              + (3))))
  1609.               & (~(0xC0000000))))))))));
  1610.  
  1611.     current_block[96]
  1612.       = (((((((unsigned long) ((0x28))) << 26)
  1613.         | ((((SCHEME_OBJECT)
  1614.              (((unsigned long)
  1615.                ((((((SCHEME_OBJECT *)
  1616.                 (((unsigned long) ((ccBlock43) & 0x03FFFFFF))
  1617.                  | 0x40000000))))
  1618.              + (3))))
  1619.               & (~(0xC0000000))))))))));
  1620.  
  1621.     current_block[95]
  1622.       = (((((((unsigned long) ((0x28))) << 26)
  1623.         | ((((SCHEME_OBJECT)
  1624.              (((unsigned long)
  1625.                ((((((SCHEME_OBJECT *)
  1626.                 (((unsigned long) ((ccBlock42) & 0x03FFFFFF))
  1627.                  | 0x40000000))))
  1628.              + (3))))
  1629.               & (~(0xC0000000))))))))));
  1630.  
  1631.     current_block[94]
  1632.       = (((((((unsigned long) ((0x28))) << 26)
  1633.         | ((((SCHEME_OBJECT)
  1634.              (((unsigned long)
  1635.                ((((((SCHEME_OBJECT *)
  1636.                 (((unsigned long) ((ccBlock41) & 0x03FFFFFF))
  1637.                  | 0x40000000))))
  1638.              + (3))))
  1639.               & (~(0xC0000000))))))))));
  1640.  
  1641.     current_block[93]
  1642.       = (((((((unsigned long) ((0x28))) << 26)
  1643.         | ((((SCHEME_OBJECT)
  1644.              (((unsigned long)
  1645.                ((((((SCHEME_OBJECT *)
  1646.                 (((unsigned long) ((ccBlock40) & 0x03FFFFFF))
  1647.                  | 0x40000000))))
  1648.              + (3))))
  1649.               & (~(0xC0000000))))))))));
  1650.  
  1651.     current_block[92]
  1652.       = (((((((unsigned long) ((0x28))) << 26)
  1653.         | ((((SCHEME_OBJECT)
  1654.              (((unsigned long)
  1655.                ((((((SCHEME_OBJECT *)
  1656.                 (((unsigned long) ((ccBlock39) & 0x03FFFFFF))
  1657.                  | 0x40000000))))
  1658.              + (3))))
  1659.               & (~(0xC0000000))))))))));
  1660.  
  1661.     current_block[91]
  1662.       = (((((((unsigned long) ((0x28))) << 26)
  1663.         | ((((SCHEME_OBJECT)
  1664.              (((unsigned long)
  1665.                ((((((SCHEME_OBJECT *)
  1666.                 (((unsigned long) ((ccBlock38) & 0x03FFFFFF))
  1667.                  | 0x40000000))))
  1668.              + (3))))
  1669.               & (~(0xC0000000))))))))));
  1670.  
  1671.     current_block[90]
  1672.       = (((((((unsigned long) ((0x28))) << 26)
  1673.         | ((((SCHEME_OBJECT)
  1674.              (((unsigned long)
  1675.                ((((((SCHEME_OBJECT *)
  1676.                 (((unsigned long) ((ccBlock37) & 0x03FFFFFF))
  1677.                  | 0x40000000))))
  1678.              + (3))))
  1679.               & (~(0xC0000000))))))))));
  1680.  
  1681.     current_block[89]
  1682.       = (((((((unsigned long) ((0x28))) << 26)
  1683.         | ((((SCHEME_OBJECT)
  1684.              (((unsigned long)
  1685.                ((((((SCHEME_OBJECT *)
  1686.                 (((unsigned long) ((ccBlock36) & 0x03FFFFFF))
  1687.                  | 0x40000000))))
  1688.              + (3))))
  1689.               & (~(0xC0000000))))))))));
  1690.  
  1691.     current_block[88]
  1692.       = (((((((unsigned long) ((0x28))) << 26)
  1693.         | ((((SCHEME_OBJECT)
  1694.              (((unsigned long)
  1695.                ((((((SCHEME_OBJECT *)
  1696.                 (((unsigned long) ((ccBlock35) & 0x03FFFFFF))
  1697.                  | 0x40000000))))
  1698.              + (3))))
  1699.               & (~(0xC0000000))))))))));
  1700.  
  1701.     current_block[87]
  1702.       = (((((((unsigned long) ((0x28))) << 26)
  1703.         | ((((SCHEME_OBJECT)
  1704.              (((unsigned long)
  1705.                ((((((SCHEME_OBJECT *)
  1706.                 (((unsigned long) ((ccBlock34) & 0x03FFFFFF))
  1707.                  | 0x40000000))))
  1708.              + (3))))
  1709.               & (~(0xC0000000))))))))));
  1710.  
  1711.     current_block[86]
  1712.       = (((((((unsigned long) ((0x28))) << 26)
  1713.         | ((((SCHEME_OBJECT)
  1714.              (((unsigned long)
  1715.                ((((((SCHEME_OBJECT *)
  1716.                 (((unsigned long) ((ccBlock33) & 0x03FFFFFF))
  1717.                  | 0x40000000))))
  1718.              + (3))))
  1719.               & (~(0xC0000000))))))))));
  1720.  
  1721.     current_block[85]
  1722.       = (((((((unsigned long) ((0x28))) << 26)
  1723.         | ((((SCHEME_OBJECT)
  1724.              (((unsigned long)
  1725.                ((((((SCHEME_OBJECT *)
  1726.                 (((unsigned long) ((ccBlock32) & 0x03FFFFFF))
  1727.                  | 0x40000000))))
  1728.              + (3))))
  1729.               & (~(0xC0000000))))))))));
  1730.  
  1731.     current_block[84]
  1732.       = (((((((unsigned long) ((0x28))) << 26)
  1733.         | ((((SCHEME_OBJECT)
  1734.              (((unsigned long)
  1735.                ((((((SCHEME_OBJECT *)
  1736.                 (((unsigned long) ((ccBlock31) & 0x03FFFFFF))
  1737.                  | 0x40000000))))
  1738.              + (3))))
  1739.               & (~(0xC0000000))))))))));
  1740.  
  1741.     current_block[83]
  1742.       = (((((((unsigned long) ((0x28))) << 26)
  1743.         | ((((SCHEME_OBJECT)
  1744.              (((unsigned long)
  1745.                ((((((SCHEME_OBJECT *)
  1746.                 (((unsigned long) ((ccBlock30) & 0x03FFFFFF))
  1747.                  | 0x40000000))))
  1748.              + (3))))
  1749.               & (~(0xC0000000))))))))));
  1750.  
  1751.     current_block[82]
  1752.       = (((((((unsigned long) ((0x28))) << 26)
  1753.         | ((((SCHEME_OBJECT)
  1754.              (((unsigned long)
  1755.                ((((((SCHEME_OBJECT *)
  1756.                 (((unsigned long) ((ccBlock29) & 0x03FFFFFF))
  1757.                  | 0x40000000))))
  1758.              + (5))))
  1759.               & (~(0xC0000000))))))))));
  1760.  
  1761.     current_block[81]
  1762.       = (((((((unsigned long) ((0x28))) << 26)
  1763.         | ((((SCHEME_OBJECT)
  1764.              (((unsigned long)
  1765.                ((((((SCHEME_OBJECT *)
  1766.                 (((unsigned long) ((ccBlock28) & 0x03FFFFFF))
  1767.                  | 0x40000000))))
  1768.              + (3))))
  1769.               & (~(0xC0000000))))))))));
  1770.  
  1771.     current_block[80]
  1772.       = (((((((unsigned long) ((0x28))) << 26)
  1773.         | ((((SCHEME_OBJECT)
  1774.              (((unsigned long)
  1775.                ((((((SCHEME_OBJECT *)
  1776.                 (((unsigned long) ((ccBlock27) & 0x03FFFFFF))
  1777.                  | 0x40000000))))
  1778.              + (5))))
  1779.               & (~(0xC0000000))))))))));
  1780.  
  1781.     current_block[79]
  1782.       = (((((((unsigned long) ((0x28))) << 26)
  1783.         | ((((SCHEME_OBJECT)
  1784.              (((unsigned long)
  1785.                ((((((SCHEME_OBJECT *)
  1786.                 (((unsigned long) ((ccBlock26) & 0x03FFFFFF))
  1787.                  | 0x40000000))))
  1788.              + (5))))
  1789.               & (~(0xC0000000))))))))));
  1790.  
  1791.     current_block[78]
  1792.       = (((((((unsigned long) ((0x28))) << 26)
  1793.         | ((((SCHEME_OBJECT)
  1794.              (((unsigned long)
  1795.                ((((((SCHEME_OBJECT *)
  1796.                 (((unsigned long) ((ccBlock25) & 0x03FFFFFF))
  1797.                  | 0x40000000))))
  1798.              + (3))))
  1799.               & (~(0xC0000000))))))))));
  1800.  
  1801.     current_block[77]
  1802.       = (((((((unsigned long) ((0x28))) << 26)
  1803.         | ((((SCHEME_OBJECT)
  1804.              (((unsigned long)
  1805.                ((((((SCHEME_OBJECT *)
  1806.                 (((unsigned long) ((ccBlock24) & 0x03FFFFFF))
  1807.                  | 0x40000000))))
  1808.              + (3))))
  1809.               & (~(0xC0000000))))))))));
  1810.  
  1811.     current_block[76]
  1812.       = (((((((unsigned long) ((0x28))) << 26)
  1813.         | ((((SCHEME_OBJECT)
  1814.              (((unsigned long)
  1815.                ((((((SCHEME_OBJECT *)
  1816.                 (((unsigned long) ((ccBlock23) & 0x03FFFFFF))
  1817.                  | 0x40000000))))
  1818.              + (3))))
  1819.               & (~(0xC0000000))))))))));
  1820.  
  1821.     current_block[75]
  1822.       = (((((((unsigned long) ((0x28))) << 26)
  1823.         | ((((SCHEME_OBJECT)
  1824.              (((unsigned long)
  1825.                ((((((SCHEME_OBJECT *)
  1826.                 (((unsigned long) ((ccBlock22) & 0x03FFFFFF))
  1827.                  | 0x40000000))))
  1828.              + (3))))
  1829.               & (~(0xC0000000))))))))));
  1830.  
  1831.     current_block[74]
  1832.       = (((((((unsigned long) ((0x28))) << 26)
  1833.         | ((((SCHEME_OBJECT)
  1834.              (((unsigned long)
  1835.                ((((((SCHEME_OBJECT *)
  1836.                 (((unsigned long) ((ccBlock21) & 0x03FFFFFF))
  1837.                  | 0x40000000))))
  1838.              + (3))))
  1839.               & (~(0xC0000000))))))))));
  1840.  
  1841.     current_block[73]
  1842.       = (((((((unsigned long) ((0x28))) << 26)
  1843.         | ((((SCHEME_OBJECT)
  1844.              (((unsigned long)
  1845.                ((((((SCHEME_OBJECT *)
  1846.                 (((unsigned long) ((ccBlock20) & 0x03FFFFFF))
  1847.                  | 0x40000000))))
  1848.              + (3))))
  1849.               & (~(0xC0000000))))))))));
  1850.  
  1851.     current_block[72]
  1852.       = (((((((unsigned long) ((0x28))) << 26)
  1853.         | ((((SCHEME_OBJECT)
  1854.              (((unsigned long)
  1855.                ((((((SCHEME_OBJECT *)
  1856.                 (((unsigned long) ((ccBlock19) & 0x03FFFFFF))
  1857.                  | 0x40000000))))
  1858.              + (3))))
  1859.               & (~(0xC0000000))))))))));
  1860.  
  1861.     current_block[71]
  1862.       = (((((((unsigned long) ((0x28))) << 26)
  1863.         | ((((SCHEME_OBJECT)
  1864.              (((unsigned long)
  1865.                ((((((SCHEME_OBJECT *)
  1866.                 (((unsigned long) ((ccBlock18) & 0x03FFFFFF))
  1867.                  | 0x40000000))))
  1868.              + (3))))
  1869.               & (~(0xC0000000))))))))));
  1870.  
  1871.     current_block[70]
  1872.       = (((((((unsigned long) ((0x28))) << 26)
  1873.         | ((((SCHEME_OBJECT)
  1874.              (((unsigned long)
  1875.                ((((((SCHEME_OBJECT *)
  1876.                 (((unsigned long) ((ccBlock17) & 0x03FFFFFF))
  1877.                  | 0x40000000))))
  1878.              + (3))))
  1879.               & (~(0xC0000000))))))))));
  1880.  
  1881.     current_block[69]
  1882.       = (((((((unsigned long) ((0x28))) << 26)
  1883.         | ((((SCHEME_OBJECT)
  1884.              (((unsigned long)
  1885.                ((((((SCHEME_OBJECT *)
  1886.                 (((unsigned long) ((ccBlock16) & 0x03FFFFFF))
  1887.                  | 0x40000000))))
  1888.              + (3))))
  1889.               & (~(0xC0000000))))))))));
  1890.  
  1891.     current_block[68]
  1892.       = (((((((unsigned long) ((0x28))) << 26)
  1893.         | ((((SCHEME_OBJECT)
  1894.              (((unsigned long)
  1895.                ((((((SCHEME_OBJECT *)
  1896.                 (((unsigned long) ((ccBlock15) & 0x03FFFFFF))
  1897.                  | 0x40000000))))
  1898.              + (3))))
  1899.               & (~(0xC0000000))))))))));
  1900.  
  1901.     current_block[67]
  1902.       = (((((((unsigned long) ((0x28))) << 26)
  1903.         | ((((SCHEME_OBJECT)
  1904.              (((unsigned long)
  1905.                ((((((SCHEME_OBJECT *)
  1906.                 (((unsigned long) ((ccBlock14) & 0x03FFFFFF))
  1907.                  | 0x40000000))))
  1908.              + (3))))
  1909.               & (~(0xC0000000))))))))));
  1910.  
  1911.     current_block[66]
  1912.       = (((((((unsigned long) ((0x28))) << 26)
  1913.         | ((((SCHEME_OBJECT)
  1914.              (((unsigned long)
  1915.                ((((((SCHEME_OBJECT *)
  1916.                 (((unsigned long) ((ccBlock13) & 0x03FFFFFF))
  1917.                  | 0x40000000))))
  1918.              + (3))))
  1919.               & (~(0xC0000000))))))))));
  1920.  
  1921.     current_block[65]
  1922.       = (((((((unsigned long) ((0x28))) << 26)
  1923.         | ((((SCHEME_OBJECT)
  1924.              (((unsigned long)
  1925.                ((((((SCHEME_OBJECT *)
  1926.                 (((unsigned long) ((ccBlock12) & 0x03FFFFFF))
  1927.                  | 0x40000000))))
  1928.              + (3))))
  1929.               & (~(0xC0000000))))))))));
  1930.  
  1931.     current_block[64]
  1932.       = (((((((unsigned long) ((0x28))) << 26)
  1933.         | ((((SCHEME_OBJECT)
  1934.              (((unsigned long)
  1935.                ((((((SCHEME_OBJECT *)
  1936.                 (((unsigned long) ((ccBlock11) & 0x03FFFFFF))
  1937.                  | 0x40000000))))
  1938.              + (3))))
  1939.               & (~(0xC0000000))))))))));
  1940.  
  1941.     current_block[63]
  1942.       = (((((((unsigned long) ((0x28))) << 26)
  1943.         | ((((SCHEME_OBJECT)
  1944.              (((unsigned long)
  1945.                ((((((SCHEME_OBJECT *)
  1946.                 (((unsigned long) ((ccBlock10) & 0x03FFFFFF))
  1947.                  | 0x40000000))))
  1948.              + (3))))
  1949.               & (~(0xC0000000))))))))));
  1950.  
  1951.     current_block[62]
  1952.       = (((((((unsigned long) ((0x28))) << 26)
  1953.         | ((((SCHEME_OBJECT)
  1954.              (((unsigned long)
  1955.                ((((((SCHEME_OBJECT *)
  1956.                 (((unsigned long) ((ccBlock2) & 0x03FFFFFF))
  1957.                  | 0x40000000))))
  1958.              + (3))))
  1959.               & (~(0xC0000000))))))))));
  1960.  
  1961.     current_block[61]
  1962.       = (((((((unsigned long) ((0x28))) << 26)
  1963.         | ((((SCHEME_OBJECT)
  1964.              (((unsigned long)
  1965.                ((((((SCHEME_OBJECT *)
  1966.                 (((unsigned long) ((ccBlock3) & 0x03FFFFFF))
  1967.                  | 0x40000000))))
  1968.              + (3))))
  1969.               & (~(0xC0000000))))))))));
  1970.  
  1971.     current_block[60]
  1972.       = (((((((unsigned long) ((0x28))) << 26)
  1973.         | ((((SCHEME_OBJECT)
  1974.              (((unsigned long)
  1975.                ((((((SCHEME_OBJECT *)
  1976.                 (((unsigned long) ((ccBlock4) & 0x03FFFFFF))
  1977.                  | 0x40000000))))
  1978.              + (3))))
  1979.               & (~(0xC0000000))))))))));
  1980.  
  1981.     current_block[59]
  1982.       = (((((((unsigned long) ((0x28))) << 26)
  1983.         | ((((SCHEME_OBJECT)
  1984.              (((unsigned long)
  1985.                ((((((SCHEME_OBJECT *)
  1986.                 (((unsigned long) ((ccBlock5) & 0x03FFFFFF))
  1987.                  | 0x40000000))))
  1988.              + (3))))
  1989.               & (~(0xC0000000))))))))));
  1990.  
  1991.     current_block[58]
  1992.       = (((((((unsigned long) ((0x28))) << 26)
  1993.         | ((((SCHEME_OBJECT)
  1994.              (((unsigned long)
  1995.                ((((((SCHEME_OBJECT *)
  1996.                 (((unsigned long) ((ccBlock6) & 0x03FFFFFF))
  1997.                  | 0x40000000))))
  1998.              + (3))))
  1999.               & (~(0xC0000000))))))))));
  2000.  
  2001.     current_block[57]
  2002.       = (((((((unsigned long) ((0x28))) << 26)
  2003.         | ((((SCHEME_OBJECT)
  2004.              (((unsigned long)
  2005.                ((((((SCHEME_OBJECT *)
  2006.                 (((unsigned long) ((ccBlock7) & 0x03FFFFFF))
  2007.                  | 0x40000000))))
  2008.              + (3))))
  2009.               & (~(0xC0000000))))))))));
  2010.  
  2011.     current_block[56]
  2012.       = (((((((unsigned long) ((0x28))) << 26)
  2013.         | ((((SCHEME_OBJECT)
  2014.              (((unsigned long)
  2015.                ((((((SCHEME_OBJECT *)
  2016.                 (((unsigned long) ((ccBlock8) & 0x03FFFFFF))
  2017.                  | 0x40000000))))
  2018.              + (3))))
  2019.               & (~(0xC0000000))))))))));
  2020.  
  2021.     current_block[55]
  2022.       = (((((((unsigned long) ((0x28))) << 26)
  2023.         | ((((SCHEME_OBJECT)
  2024.              (((unsigned long)
  2025.                ((((((SCHEME_OBJECT *)
  2026.                 (((unsigned long) ((ccBlock9) & 0x03FFFFFF))
  2027.                  | 0x40000000))))
  2028.              + (3))))
  2029.               & (~(0xC0000000))))))))));
  2030.  
  2031.     current_block[54]
  2032.       = (((((((unsigned long) ((0x28))) << 26)
  2033.         | ((((SCHEME_OBJECT)
  2034.              (((unsigned long)
  2035.                ((((((SCHEME_OBJECT *)
  2036.                 (((unsigned long) ((ccBlock1) & 0x03FFFFFF))
  2037.                  | 0x40000000))))
  2038.              + (3))))
  2039.               & (~(0xC0000000))))))))));
  2040.  
  2041.     tmpObj7 = ((make_vector ((8), 0x00000000, ((Boolean) 1))));
  2042.  
  2043.     tmpObj4 = ((memory_to_symbol ((9L), ((unsigned char *) "host-type"))));
  2044.  
  2045.     tmpObj3 = ((make_vector ((58), 0x00000000, ((Boolean) 1))));
  2046.  
  2047.     tmpObj6 = ((memory_to_symbol ((4L), ((unsigned char *) "host"))));
  2048.  
  2049.     tmpObj2 = ((make_vector ((4), 0x00000000, ((Boolean) 1))));
  2050.  
  2051.     tmpObj5 = ((memory_to_symbol ((4L), ((unsigned char *) "name"))));
  2052.  
  2053.     tmpObj1 = ((make_vector ((28), 0x00000000, ((Boolean) 1))));
  2054.  
  2055.     ((((((SCHEME_OBJECT *)
  2056.          (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
  2057.           | 0x40000000))))
  2058.       [(((0) + 1))]))
  2059.       = (((((memory_to_symbol ((14L),
  2060.                    ((unsigned char *)
  2061.                     "%make-pathname")))))));
  2062.  
  2063.     ((((((SCHEME_OBJECT *)
  2064.          (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
  2065.           | 0x40000000))))
  2066.       [(((1) + 1))]))
  2067.       = (((((memory_to_symbol ((14L),
  2068.                    ((unsigned char *)
  2069.                     "%pathname-host")))))));
  2070.  
  2071.     ((((((SCHEME_OBJECT *)
  2072.          (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
  2073.           | 0x40000000))))
  2074.       [(((2) + 1))]))
  2075.       = (((((memory_to_symbol ((16L),
  2076.                    ((unsigned char *)
  2077.                     "%pathname-device")))))));
  2078.  
  2079.     ((((((SCHEME_OBJECT *)
  2080.          (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
  2081.           | 0x40000000))))
  2082.       [(((3) + 1))]))
  2083.       = (((((memory_to_symbol ((19L),
  2084.                    ((unsigned char *)
  2085.                     "%pathname-directory")))))));
  2086.  
  2087.     ((((((SCHEME_OBJECT *)
  2088.          (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
  2089.           | 0x40000000))))
  2090.       [(((4) + 1))]))
  2091.       = (((((memory_to_symbol ((14L),
  2092.                    ((unsigned char *)
  2093.                     "%pathname-name")))))));
  2094.  
  2095.     ((((((SCHEME_OBJECT *)
  2096.          (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
  2097.           | 0x40000000))))
  2098.       [(((5) + 1))]))
  2099.       = (((((memory_to_symbol ((14L),
  2100.                    ((unsigned char *)
  2101.                     "%pathname-type")))))));
  2102.  
  2103.     ((((((SCHEME_OBJECT *)
  2104.          (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
  2105.           | 0x40000000))))
  2106.       [(((6) + 1))]))
  2107.       = (((((memory_to_symbol ((17L),
  2108.                    ((unsigned char *)
  2109.                     "%pathname-version")))))));
  2110.  
  2111.     ((((((SCHEME_OBJECT *)
  2112.          (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
  2113.           | 0x40000000))))
  2114.       [(((7) + 1))]))
  2115.       = (((((memory_to_symbol ((9L),
  2116.                    ((unsigned char *)
  2117.                     "pathname?")))))));
  2118.  
  2119.     ((((((SCHEME_OBJECT *)
  2120.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2121.           | 0x40000000))))
  2122.       [(((0) + 1))]))
  2123.       = (((((memory_to_symbol ((10L),
  2124.                    ((unsigned char *)
  2125.                     "->pathname")))))));
  2126.  
  2127.     ((((((SCHEME_OBJECT *)
  2128.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2129.           | 0x40000000))))
  2130.       [(((1) + 1))]))
  2131.       = (((((memory_to_symbol ((12L),
  2132.                    ((unsigned char *)
  2133.                     "pathname-arg")))))));
  2134.  
  2135.     ((((((SCHEME_OBJECT *)
  2136.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2137.           | 0x40000000))))
  2138.       [(((2) + 1))]))
  2139.       = (((((memory_to_symbol ((13L),
  2140.                    ((unsigned char *)
  2141.                     "make-pathname")))))));
  2142.  
  2143.     ((((((SCHEME_OBJECT *)
  2144.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2145.           | 0x40000000))))
  2146.       [(((3) + 1))]))
  2147.       = (((((memory_to_symbol ((13L),
  2148.                    ((unsigned char *)
  2149.                     "pathname-host")))))));
  2150.  
  2151.     ((((((SCHEME_OBJECT *)
  2152.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2153.           | 0x40000000))))
  2154.       [(((4) + 1))]))
  2155.       = (((((memory_to_symbol ((15L),
  2156.                    ((unsigned char *)
  2157.                     "pathname-device")))))));
  2158.  
  2159.     ((((((SCHEME_OBJECT *)
  2160.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2161.           | 0x40000000))))
  2162.       [(((5) + 1))]))
  2163.       = (((((memory_to_symbol ((18L),
  2164.                    ((unsigned char *)
  2165.                     "pathname-directory")))))));
  2166.  
  2167.     ((((((SCHEME_OBJECT *)
  2168.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2169.           | 0x40000000))))
  2170.       [(((6) + 1))]))
  2171.       = (((((memory_to_symbol ((13L),
  2172.                    ((unsigned char *)
  2173.                     "pathname-name")))))));
  2174.  
  2175.     ((((((SCHEME_OBJECT *)
  2176.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2177.           | 0x40000000))))
  2178.       [(((7) + 1))]))
  2179.       = (((((memory_to_symbol ((13L),
  2180.                    ((unsigned char *)
  2181.                     "pathname-type")))))));
  2182.  
  2183.     ((((((SCHEME_OBJECT *)
  2184.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2185.           | 0x40000000))))
  2186.       [(((8) + 1))]))
  2187.       = (((((memory_to_symbol ((16L),
  2188.                    ((unsigned char *)
  2189.                     "pathname-version")))))));
  2190.  
  2191.     ((((((SCHEME_OBJECT *)
  2192.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2193.           | 0x40000000))))
  2194.       [(((9) + 1))]))
  2195.       = (((((memory_to_symbol ((27L),
  2196.                    ((unsigned char *)
  2197.                     "pathname-end-of-line-string")))))));
  2198.  
  2199.     ((((((SCHEME_OBJECT *)
  2200.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2201.           | 0x40000000))))
  2202.       [(((10) + 1))]))
  2203.       = (((((memory_to_symbol ((10L),
  2204.                    ((unsigned char *)
  2205.                     "pathname=?")))))));
  2206.  
  2207.     ((((((SCHEME_OBJECT *)
  2208.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2209.           | 0x40000000))))
  2210.       [(((11) + 1))]))
  2211.       = (((((memory_to_symbol ((18L),
  2212.                    ((unsigned char *)
  2213.                     "pathname-absolute?")))))));
  2214.  
  2215.     ((((((SCHEME_OBJECT *)
  2216.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2217.           | 0x40000000))))
  2218.       [(((12) + 1))]))
  2219.       = (((((memory_to_symbol ((14L),
  2220.                    ((unsigned char *)
  2221.                     "pathname-wild?")))))));
  2222.  
  2223.     ((((((SCHEME_OBJECT *)
  2224.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2225.           | 0x40000000))))
  2226.       [(((13) + 1))]))
  2227.       = (((((memory_to_symbol ((17L),
  2228.                    ((unsigned char *)
  2229.                     "pathname-simplify")))))));
  2230.  
  2231.     ((((((SCHEME_OBJECT *)
  2232.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2233.           | 0x40000000))))
  2234.       [(((14) + 1))]))
  2235.       = (((((memory_to_symbol ((18L),
  2236.                    ((unsigned char *)
  2237.                     "directory-pathname")))))));
  2238.  
  2239.     ((((((SCHEME_OBJECT *)
  2240.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2241.           | 0x40000000))))
  2242.       [(((15) + 1))]))
  2243.       = (((((memory_to_symbol ((13L),
  2244.                    ((unsigned char *)
  2245.                     "file-pathname")))))));
  2246.  
  2247.     ((((((SCHEME_OBJECT *)
  2248.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2249.           | 0x40000000))))
  2250.       [(((16) + 1))]))
  2251.       = (((((memory_to_symbol ((21L),
  2252.                    ((unsigned char *)
  2253.                     "pathname-as-directory")))))));
  2254.  
  2255.     ((((((SCHEME_OBJECT *)
  2256.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2257.           | 0x40000000))))
  2258.       [(((17) + 1))]))
  2259.       = (((((memory_to_symbol ((26L),
  2260.                    ((unsigned char *)
  2261.                     "directory-pathname-as-file")))))));
  2262.  
  2263.     ((((((SCHEME_OBJECT *)
  2264.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2265.           | 0x40000000))))
  2266.       [(((18) + 1))]))
  2267.       = (((((memory_to_symbol ((19L),
  2268.                    ((unsigned char *)
  2269.                     "pathname-new-device")))))));
  2270.  
  2271.     ((((((SCHEME_OBJECT *)
  2272.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2273.           | 0x40000000))))
  2274.       [(((19) + 1))]))
  2275.       = (((((memory_to_symbol ((22L),
  2276.                    ((unsigned char *)
  2277.                     "pathname-new-directory")))))));
  2278.  
  2279.     ((((((SCHEME_OBJECT *)
  2280.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2281.           | 0x40000000))))
  2282.       [(((20) + 1))]))
  2283.       = (((((memory_to_symbol ((17L),
  2284.                    ((unsigned char *)
  2285.                     "pathname-new-name")))))));
  2286.  
  2287.     ((((((SCHEME_OBJECT *)
  2288.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2289.           | 0x40000000))))
  2290.       [(((21) + 1))]))
  2291.       = (((((memory_to_symbol ((17L),
  2292.                    ((unsigned char *)
  2293.                     "pathname-new-type")))))));
  2294.  
  2295.     ((((((SCHEME_OBJECT *)
  2296.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2297.           | 0x40000000))))
  2298.       [(((22) + 1))]))
  2299.       = (((((memory_to_symbol ((20L),
  2300.                    ((unsigned char *)
  2301.                     "pathname-new-version")))))));
  2302.  
  2303.     ((((((SCHEME_OBJECT *)
  2304.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2305.           | 0x40000000))))
  2306.       [(((23) + 1))]))
  2307.       = (((((memory_to_symbol ((23L),
  2308.                    ((unsigned char *)
  2309.                     "pathname-default-device")))))));
  2310.  
  2311.     ((((((SCHEME_OBJECT *)
  2312.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2313.           | 0x40000000))))
  2314.       [(((24) + 1))]))
  2315.       = (((((memory_to_symbol ((26L),
  2316.                    ((unsigned char *)
  2317.                     "pathname-default-directory")))))));
  2318.  
  2319.     ((((((SCHEME_OBJECT *)
  2320.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2321.           | 0x40000000))))
  2322.       [(((25) + 1))]))
  2323.       = (((((memory_to_symbol ((21L),
  2324.                    ((unsigned char *)
  2325.                     "pathname-default-name")))))));
  2326.  
  2327.     ((((((SCHEME_OBJECT *)
  2328.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2329.           | 0x40000000))))
  2330.       [(((26) + 1))]))
  2331.       = (((((memory_to_symbol ((21L),
  2332.                    ((unsigned char *)
  2333.                     "pathname-default-type")))))));
  2334.  
  2335.     ((((((SCHEME_OBJECT *)
  2336.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2337.           | 0x40000000))))
  2338.       [(((27) + 1))]))
  2339.       = (((((memory_to_symbol ((24L),
  2340.                    ((unsigned char *)
  2341.                     "pathname-default-version")))))));
  2342.  
  2343.     ((((((SCHEME_OBJECT *)
  2344.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2345.           | 0x40000000))))
  2346.       [(((28) + 1))]))
  2347.       = (((((memory_to_symbol ((16L),
  2348.                    ((unsigned char *)
  2349.                     "pathname-default")))))));
  2350.  
  2351.     ((((((SCHEME_OBJECT *)
  2352.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2353.           | 0x40000000))))
  2354.       [(((29) + 1))]))
  2355.       = (((((memory_to_symbol ((16L),
  2356.                    ((unsigned char *)
  2357.                     "parse-namestring")))))));
  2358.  
  2359.     ((((((SCHEME_OBJECT *)
  2360.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2361.           | 0x40000000))))
  2362.       [(((30) + 1))]))
  2363.       = (((((memory_to_symbol ((12L),
  2364.                    ((unsigned char *)
  2365.                     "->namestring")))))));
  2366.  
  2367.     ((((((SCHEME_OBJECT *)
  2368.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2369.           | 0x40000000))))
  2370.       [(((31) + 1))]))
  2371.       = (((((memory_to_symbol ((15L),
  2372.                    ((unsigned char *)
  2373.                     "file-namestring")))))));
  2374.  
  2375.     ((((((SCHEME_OBJECT *)
  2376.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2377.           | 0x40000000))))
  2378.       [(((32) + 1))]))
  2379.       = (((((memory_to_symbol ((20L),
  2380.                    ((unsigned char *)
  2381.                     "directory-namestring")))))));
  2382.  
  2383.     ((((((SCHEME_OBJECT *)
  2384.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2385.           | 0x40000000))))
  2386.       [(((33) + 1))]))
  2387.       = (((((memory_to_symbol ((15L),
  2388.                    ((unsigned char *)
  2389.                     "host-namestring")))))));
  2390.  
  2391.     ((((((SCHEME_OBJECT *)
  2392.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2393.           | 0x40000000))))
  2394.       [(((34) + 1))]))
  2395.       = (((((memory_to_symbol ((17L),
  2396.                    ((unsigned char *)
  2397.                     "enough-namestring")))))));
  2398.  
  2399.     ((((((SCHEME_OBJECT *)
  2400.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2401.           | 0x40000000))))
  2402.       [(((35) + 1))]))
  2403.       = (((((memory_to_symbol ((20L),
  2404.                    ((unsigned char *)
  2405.                     "pathname->namestring")))))));
  2406.  
  2407.     ((((((SCHEME_OBJECT *)
  2408.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2409.           | 0x40000000))))
  2410.       [(((36) + 1))]))
  2411.       = (((((memory_to_symbol ((27L),
  2412.                    ((unsigned char *)
  2413.                     "*default-pathname-defaults*")))))));
  2414.  
  2415.     ((((((SCHEME_OBJECT *)
  2416.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2417.           | 0x40000000))))
  2418.       [(((37) + 1))]))
  2419.       = (((((memory_to_symbol ((15L),
  2420.                    ((unsigned char *)
  2421.                     "merge-pathnames")))))));
  2422.  
  2423.     ((((((SCHEME_OBJECT *)
  2424.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2425.           | 0x40000000))))
  2426.       [(((38) + 1))]))
  2427.       = (((((memory_to_symbol ((15L),
  2428.                    ((unsigned char *)
  2429.                     "enough-pathname")))))));
  2430.  
  2431.     ((((((SCHEME_OBJECT *)
  2432.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2433.           | 0x40000000))))
  2434.       [(((39) + 1))]))
  2435.       = (((((memory_to_symbol ((10L),
  2436.                    ((unsigned char *)
  2437.                     "host-types")))))));
  2438.  
  2439.     ((((((SCHEME_OBJECT *)
  2440.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2441.           | 0x40000000))))
  2442.       [(((40) + 1))]))
  2443.       = (((((memory_to_symbol ((10L),
  2444.                    ((unsigned char *)
  2445.                     "local-host")))))));
  2446.  
  2447.     ((((((SCHEME_OBJECT *)
  2448.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2449.           | 0x40000000))))
  2450.       [(((41) + 1))]))
  2451.       = (((tmpObj4)));
  2452.  
  2453.     ((((((SCHEME_OBJECT *)
  2454.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2455.           | 0x40000000))))
  2456.       [(((42) + 1))]))
  2457.       = (((((memory_to_symbol ((14L),
  2458.                    ((unsigned char *)
  2459.                     "make-host-type")))))));
  2460.  
  2461.     ((((((SCHEME_OBJECT *)
  2462.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2463.           | 0x40000000))))
  2464.       [(((43) + 1))]))
  2465.       = (((((memory_to_symbol ((15L),
  2466.                    ((unsigned char *)
  2467.                     "host-type/index")))))));
  2468.  
  2469.     ((((((SCHEME_OBJECT *)
  2470.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2471.           | 0x40000000))))
  2472.       [(((44) + 1))]))
  2473.       = (((((memory_to_symbol ((14L),
  2474.                    ((unsigned char *)
  2475.                     "host-type/name")))))));
  2476.  
  2477.     ((((((SCHEME_OBJECT *)
  2478.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2479.           | 0x40000000))))
  2480.       [(((45) + 1))]))
  2481.       = (((((memory_to_symbol ((36L),
  2482.                    ((unsigned char *)
  2483.                     "host-type/operation/parse-namestring")))))));
  2484.  
  2485.     ((((((SCHEME_OBJECT *)
  2486.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2487.           | 0x40000000))))
  2488.       [(((46) + 1))]))
  2489.       = (((((memory_to_symbol ((40L),
  2490.                    ((unsigned char *)
  2491.                     "host-type/operation/pathname->namestring")))))));
  2492.  
  2493.     ((((((SCHEME_OBJECT *)
  2494.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2495.           | 0x40000000))))
  2496.       [(((47) + 1))]))
  2497.       = (((((memory_to_symbol ((33L),
  2498.                    ((unsigned char *)
  2499.                     "host-type/operation/make-pathname")))))));
  2500.  
  2501.     ((((((SCHEME_OBJECT *)
  2502.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2503.           | 0x40000000))))
  2504.       [(((48) + 1))]))
  2505.       = (((((memory_to_symbol ((34L),
  2506.                    ((unsigned char *)
  2507.                     "host-type/operation/pathname-wild?")))))));
  2508.  
  2509.     ((((((SCHEME_OBJECT *)
  2510.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2511.           | 0x40000000))))
  2512.       [(((49) + 1))]))
  2513.       = (((((memory_to_symbol ((41L),
  2514.                    ((unsigned char *)
  2515.                     "host-type/operation/pathname-as-directory")))))));
  2516.  
  2517.     ((((((SCHEME_OBJECT *)
  2518.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2519.           | 0x40000000))))
  2520.       [(((50) + 1))]))
  2521.       = (((((memory_to_symbol ((46L),
  2522.                    ((unsigned char *)
  2523.                     "host-type/operation/directory-pathname-as-file")))))));
  2524.  
  2525.     ((((((SCHEME_OBJECT *)
  2526.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2527.           | 0x40000000))))
  2528.       [(((51) + 1))]))
  2529.       = (((((memory_to_symbol ((38L),
  2530.                    ((unsigned char *)
  2531.                     "host-type/operation/pathname->truename")))))));
  2532.  
  2533.     ((((((SCHEME_OBJECT *)
  2534.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2535.           | 0x40000000))))
  2536.       [(((52) + 1))]))
  2537.       = (((((memory_to_symbol ((41L),
  2538.                    ((unsigned char *)
  2539.                     "host-type/operation/user-homedir-pathname")))))));
  2540.  
  2541.     ((((((SCHEME_OBJECT *)
  2542.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2543.           | 0x40000000))))
  2544.       [(((53) + 1))]))
  2545.       = (((((memory_to_symbol ((38L),
  2546.                    ((unsigned char *)
  2547.                     "host-type/operation/init-file-pathname")))))));
  2548.  
  2549.     ((((((SCHEME_OBJECT *)
  2550.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2551.           | 0x40000000))))
  2552.       [(((54) + 1))]))
  2553.       = (((((memory_to_symbol ((37L),
  2554.                    ((unsigned char *)
  2555.                     "host-type/operation/pathname-simplify")))))));
  2556.  
  2557.     ((((((SCHEME_OBJECT *)
  2558.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2559.           | 0x40000000))))
  2560.       [(((55) + 1))]))
  2561.       = (((((memory_to_symbol ((38L),
  2562.                    ((unsigned char *)
  2563.                     "host-type/operation/end-of-line-string")))))));
  2564.  
  2565.     ((((((SCHEME_OBJECT *)
  2566.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2567.           | 0x40000000))))
  2568.       [(((56) + 1))]))
  2569.       = (((((memory_to_symbol ((41L),
  2570.                    ((unsigned char *)
  2571.                     "host-type/operation/pathname-canonicalize")))))));
  2572.  
  2573.     ((((((SCHEME_OBJECT *)
  2574.          (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
  2575.           | 0x40000000))))
  2576.       [(((57) + 1))]))
  2577.       = (((((memory_to_symbol ((10L),
  2578.                    ((unsigned char *)
  2579.                     "host-type?")))))));
  2580.  
  2581.     ((((((SCHEME_OBJECT *)
  2582.          (((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
  2583.           | 0x40000000))))
  2584.       [(((0) + 1))]))
  2585.       = (((((memory_to_symbol ((10L),
  2586.                    ((unsigned char *)
  2587.                     "%make-host")))))));
  2588.  
  2589.     ((((((SCHEME_OBJECT *)
  2590.          (((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
  2591.           | 0x40000000))))
  2592.       [(((1) + 1))]))
  2593.       = (((((memory_to_symbol ((15L),
  2594.                    ((unsigned char *)
  2595.                     "host/type-index")))))));
  2596.  
  2597.     ((((((SCHEME_OBJECT *)
  2598.          (((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
  2599.           | 0x40000000))))
  2600.       [(((2) + 1))]))
  2601.       = (((((memory_to_symbol ((9L),
  2602.                    ((unsigned char *)
  2603.                     "host/name")))))));
  2604.  
  2605.     ((((((SCHEME_OBJECT *)
  2606.          (((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
  2607.           | 0x40000000))))
  2608.       [(((3) + 1))]))
  2609.       = (((((memory_to_symbol ((5L),
  2610.                    ((unsigned char *)
  2611.                     "host?")))))));
  2612.  
  2613.     ((((((SCHEME_OBJECT *)
  2614.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2615.           | 0x40000000))))
  2616.       [(((0) + 1))]))
  2617.       = (((((memory_to_symbol ((9L),
  2618.                    ((unsigned char *)
  2619.                     "make-host")))))));
  2620.  
  2621.     ((((((SCHEME_OBJECT *)
  2622.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2623.           | 0x40000000))))
  2624.       [(((1) + 1))]))
  2625.       = (((((memory_to_symbol ((9L),
  2626.                    ((unsigned char *)
  2627.                     "host/type")))))));
  2628.  
  2629.     ((((((SCHEME_OBJECT *)
  2630.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2631.           | 0x40000000))))
  2632.       [(((2) + 1))]))
  2633.       = (((((memory_to_symbol ((6L),
  2634.                    ((unsigned char *)
  2635.                     "host=?")))))));
  2636.  
  2637.     ((((((SCHEME_OBJECT *)
  2638.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2639.           | 0x40000000))))
  2640.       [(((3) + 1))]))
  2641.       = (((((memory_to_symbol ((14L),
  2642.                    ((unsigned char *)
  2643.                     "guarantee-host")))))));
  2644.  
  2645.     ((((((SCHEME_OBJECT *)
  2646.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2647.           | 0x40000000))))
  2648.       [(((4) + 1))]))
  2649.       = (((((memory_to_symbol ((31L),
  2650.                    ((unsigned char *)
  2651.                     "host-operation/parse-namestring")))))));
  2652.  
  2653.     ((((((SCHEME_OBJECT *)
  2654.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2655.           | 0x40000000))))
  2656.       [(((5) + 1))]))
  2657.       = (((((memory_to_symbol ((35L),
  2658.                    ((unsigned char *)
  2659.                     "host-operation/pathname->namestring")))))));
  2660.  
  2661.     ((((((SCHEME_OBJECT *)
  2662.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2663.           | 0x40000000))))
  2664.       [(((6) + 1))]))
  2665.       = (((((memory_to_symbol ((28L),
  2666.                    ((unsigned char *)
  2667.                     "host-operation/make-pathname")))))));
  2668.  
  2669.     ((((((SCHEME_OBJECT *)
  2670.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2671.           | 0x40000000))))
  2672.       [(((7) + 1))]))
  2673.       = (((((memory_to_symbol ((29L),
  2674.                    ((unsigned char *)
  2675.                     "host-operation/pathname-wild?")))))));
  2676.  
  2677.     ((((((SCHEME_OBJECT *)
  2678.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2679.           | 0x40000000))))
  2680.       [(((8) + 1))]))
  2681.       = (((((memory_to_symbol ((36L),
  2682.                    ((unsigned char *)
  2683.                     "host-operation/pathname-as-directory")))))));
  2684.  
  2685.     ((((((SCHEME_OBJECT *)
  2686.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2687.           | 0x40000000))))
  2688.       [(((9) + 1))]))
  2689.       = (((((memory_to_symbol ((41L),
  2690.                    ((unsigned char *)
  2691.                     "host-operation/directory-pathname-as-file")))))));
  2692.  
  2693.     ((((((SCHEME_OBJECT *)
  2694.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2695.           | 0x40000000))))
  2696.       [(((10) + 1))]))
  2697.       = (((((memory_to_symbol ((33L),
  2698.                    ((unsigned char *)
  2699.                     "host-operation/pathname->truename")))))));
  2700.  
  2701.     ((((((SCHEME_OBJECT *)
  2702.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2703.           | 0x40000000))))
  2704.       [(((11) + 1))]))
  2705.       = (((((memory_to_symbol ((36L),
  2706.                    ((unsigned char *)
  2707.                     "host-operation/user-homedir-pathname")))))));
  2708.  
  2709.     ((((((SCHEME_OBJECT *)
  2710.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2711.           | 0x40000000))))
  2712.       [(((12) + 1))]))
  2713.       = (((((memory_to_symbol ((33L),
  2714.                    ((unsigned char *)
  2715.                     "host-operation/init-file-pathname")))))));
  2716.  
  2717.     ((((((SCHEME_OBJECT *)
  2718.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2719.           | 0x40000000))))
  2720.       [(((13) + 1))]))
  2721.       = (((((memory_to_symbol ((32L),
  2722.                    ((unsigned char *)
  2723.                     "host-operation/pathname-simplify")))))));
  2724.  
  2725.     ((((((SCHEME_OBJECT *)
  2726.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2727.           | 0x40000000))))
  2728.       [(((14) + 1))]))
  2729.       = (((((memory_to_symbol ((33L),
  2730.                    ((unsigned char *)
  2731.                     "host-operation/end-of-line-string")))))));
  2732.  
  2733.     ((((((SCHEME_OBJECT *)
  2734.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2735.           | 0x40000000))))
  2736.       [(((15) + 1))]))
  2737.       = (((((memory_to_symbol ((36L),
  2738.                    ((unsigned char *)
  2739.                     "host-operation/pathname-canonicalize")))))));
  2740.  
  2741.     ((((((SCHEME_OBJECT *)
  2742.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2743.           | 0x40000000))))
  2744.       [(((16) + 1))]))
  2745.       = (((((memory_to_symbol ((10L),
  2746.                    ((unsigned char *)
  2747.                     "->truename")))))));
  2748.  
  2749.     ((((((SCHEME_OBJECT *)
  2750.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2751.           | 0x40000000))))
  2752.       [(((17) + 1))]))
  2753.       = (((((memory_to_symbol ((21L),
  2754.                    ((unsigned char *)
  2755.                     "user-homedir-pathname")))))));
  2756.  
  2757.     ((((((SCHEME_OBJECT *)
  2758.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2759.           | 0x40000000))))
  2760.       [(((18) + 1))]))
  2761.       = (((((memory_to_symbol ((18L),
  2762.                    ((unsigned char *)
  2763.                     "init-file-pathname")))))));
  2764.  
  2765.     ((((((SCHEME_OBJECT *)
  2766.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2767.           | 0x40000000))))
  2768.       [(((19) + 1))]))
  2769.       = (((((memory_to_symbol ((23L),
  2770.                    ((unsigned char *)
  2771.                     "system-library-pathname")))))));
  2772.  
  2773.     ((((((SCHEME_OBJECT *)
  2774.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2775.           | 0x40000000))))
  2776.       [(((20) + 1))]))
  2777.       = (((((memory_to_symbol ((22L),
  2778.                    ((unsigned char *)
  2779.                     "library-directory-path")))))));
  2780.  
  2781.     ((((((SCHEME_OBJECT *)
  2782.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2783.           | 0x40000000))))
  2784.       [(((21) + 1))]))
  2785.       = (((((memory_to_symbol ((33L),
  2786.                    ((unsigned char *)
  2787.                     "system-library-directory-pathname")))))));
  2788.  
  2789.     ((((((SCHEME_OBJECT *)
  2790.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2791.           | 0x40000000))))
  2792.       [(((22) + 1))]))
  2793.       = (((((memory_to_symbol ((16L),
  2794.                    ((unsigned char *)
  2795.                     "known-host-types")))))));
  2796.  
  2797.     ((((((SCHEME_OBJECT *)
  2798.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2799.           | 0x40000000))))
  2800.       [(((23) + 1))]))
  2801.       = (((((memory_to_symbol ((28L),
  2802.                    ((unsigned char *)
  2803.                     "make-unimplemented-host-type")))))));
  2804.  
  2805.     ((((((SCHEME_OBJECT *)
  2806.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2807.           | 0x40000000))))
  2808.       [(((24) + 1))]))
  2809.       = (((((memory_to_symbol ((20L),
  2810.                    ((unsigned char *)
  2811.                     "available-host-types")))))));
  2812.  
  2813.     ((((((SCHEME_OBJECT *)
  2814.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2815.           | 0x40000000))))
  2816.       [(((25) + 1))]))
  2817.       = (((((memory_to_symbol ((23L),
  2818.                    ((unsigned char *)
  2819.                     "add-pathname-host-type!")))))));
  2820.  
  2821.     ((((((SCHEME_OBJECT *)
  2822.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2823.           | 0x40000000))))
  2824.       [(((26) + 1))]))
  2825.       = (((((memory_to_symbol ((14L),
  2826.                    ((unsigned char *)
  2827.                     "reset-package!")))))));
  2828.  
  2829.     ((((((SCHEME_OBJECT *)
  2830.          (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
  2831.           | 0x40000000))))
  2832.       [(((27) + 1))]))
  2833.       = (((((memory_to_symbol ((19L),
  2834.                    ((unsigned char *)
  2835.                     "initialize-package!")))))));
  2836.  
  2837.     current_block[168] = 0x20000001;
  2838.  
  2839.     current_block[167]
  2840.       = ((memory_to_string
  2841.           ((41L),
  2842.            (unsigned char *)
  2843.            "/scheme/users/jawilson/runtime/pathnm.inf")));
  2844.  
  2845.     current_block[166]
  2846.       = (cons
  2847.          ((cons
  2848.            (((memory_to_symbol ((4L), ((unsigned char *) "unix")))),
  2849.         (long_to_integer (0L)))),
  2850.           (cons
  2851.            ((cons (((memory_to_symbol ((3L), ((unsigned char *) "dos")))),
  2852.                (long_to_integer (1L)))),
  2853.         (cons
  2854.          ((cons (((memory_to_symbol ((3L),
  2855.                          ((unsigned char *) "vms")))),
  2856.              (long_to_integer (2L)))), 0x00000000))))));
  2857.  
  2858.     current_block[165] = tmpObj1;
  2859.  
  2860.     current_block[164] = ((memory_to_string ((4L),
  2861.                          (unsigned char *) "host")));
  2862.  
  2863.     current_block[163]
  2864.       = (cons (((memory_to_symbol ((10L),
  2865.                        ((unsigned char *) "type-index")))),
  2866.            (cons (tmpObj5, 0x00000000))));
  2867.  
  2868.     current_block[162] = (cons ((long_to_integer (1L)),
  2869.                     (cons ((long_to_integer (2L)),
  2870.                        0x00000000))));
  2871.  
  2872.     current_block[161]
  2873.       = ((memory_to_symbol ((25L),
  2874.                 ((unsigned char *)
  2875.                  "#[(runtime pathname)host]"))));
  2876.  
  2877.     current_block[160] = tmpObj2;
  2878.  
  2879.     current_block[159] = tmpObj6;
  2880.  
  2881.     current_block[158]
  2882.       = ((search_for_primitive (0x00000000, "vector",
  2883.                     ((Boolean) 1), ((Boolean) 1), -1)));
  2884.  
  2885.     current_block[157] = tmpObj3;
  2886.  
  2887.     current_block[156] = tmpObj4;
  2888.  
  2889.     current_block[155] =
  2890.       ((memory_to_string ((9L), (unsigned char *) "host-type")));
  2891.  
  2892.     current_block[154]
  2893.       = (cons
  2894.          (((memory_to_symbol ((5L), ((unsigned char *) "index")))),
  2895.           (cons
  2896.            (tmpObj5,
  2897.         (cons
  2898.          (((memory_to_symbol
  2899.             ((26L),
  2900.              ((unsigned char *) "operation/parse-namestring")))),
  2901.           (cons
  2902.            (((memory_to_symbol
  2903.               ((30L),
  2904.                ((unsigned char *) "operation/pathname->namestring")))),
  2905.             (cons
  2906.              (((memory_to_symbol
  2907.             ((23L),
  2908.              ((unsigned char *) "operation/make-pathname")))),
  2909.               (cons
  2910.                (((memory_to_symbol
  2911.               ((24L),
  2912.                ((unsigned char *) "operation/pathname-wild?")))),
  2913.             (cons
  2914.              (((memory_to_symbol
  2915.                 ((31L),
  2916.                  ((unsigned char *)
  2917.                   "operation/pathname-as-directory")))),
  2918.               (cons
  2919.                (((memory_to_symbol
  2920.                   ((36L),
  2921.                    ((unsigned char *)
  2922.                 "operation/directory-pathname-as-file")))),
  2923.                 (cons
  2924.                  (((memory_to_symbol
  2925.                 ((28L),
  2926.                  ((unsigned char *)
  2927.                   "operation/pathname->truename")))),
  2928.                   (cons
  2929.                    (((memory_to_symbol
  2930.                   ((31L),
  2931.                    ((unsigned char *)
  2932.                     "operation/user-homedir-pathname")))),
  2933.                 (cons
  2934.                  (((memory_to_symbol
  2935.                     ((28L),
  2936.                      ((unsigned char *)
  2937.                       "operation/init-file-pathname")))),
  2938.                   (cons
  2939.                    (((memory_to_symbol
  2940.                       ((27L),
  2941.                        ((unsigned char *)
  2942.                     "operation/pathname-simplify")))),
  2943.                     (cons
  2944.                      (((memory_to_symbol
  2945.                     ((28L),
  2946.                      ((unsigned char *)
  2947.                       "operation/end-of-line-string")))),
  2948.                       (cons
  2949.                        (((memory_to_symbol
  2950.                       ((31L),
  2951.                        ((unsigned char *)
  2952.                         "operation/pathname-canonicalize")))),
  2953.                          0x00000000))))))))))))))))))))))))))));
  2954.  
  2955.     current_block[153]
  2956.       = ((memory_to_symbol ((6L), ((unsigned char *) "vector"))));
  2957.  
  2958.     current_block[152]
  2959.       = ((memory_to_string ((8L), (unsigned char *) "pathname")));
  2960.  
  2961.     current_block[151]
  2962.       = (cons
  2963.          (tmpObj6,
  2964.           (cons
  2965.            (((memory_to_symbol ((6L), ((unsigned char *) "device")))),
  2966.         (cons
  2967.          (((memory_to_symbol ((9L), ((unsigned char *) "directory")))),
  2968.           (cons
  2969.            (tmpObj5,
  2970.             (cons
  2971.              (((memory_to_symbol ((4L), ((unsigned char *) "type")))),
  2972.               (cons
  2973.                (((memory_to_symbol
  2974.               ((7L), ((unsigned char *) "version")))),
  2975.             0x00000000))))))))))));
  2976.  
  2977.     current_block[150]
  2978.       = (cons
  2979.          ((long_to_integer (1L)),
  2980.           (cons
  2981.            ((long_to_integer (2L)),
  2982.         (cons
  2983.          ((long_to_integer (3L)),
  2984.           (cons
  2985.            ((long_to_integer (4L)),
  2986.             (cons
  2987.              ((long_to_integer (5L)),
  2988.               (cons
  2989.                ((long_to_integer (6L)),
  2990.             0x00000000))))))))))));
  2991.  
  2992.     current_block[149]
  2993.       = ((memory_to_symbol ((29L), ((unsigned char *)
  2994.                     "#[(runtime pathname)pathname]"))));
  2995.  
  2996.     current_block[148] = tmpObj7;
  2997.  
  2998.     current_block[147]
  2999.       = ((memory_to_symbol ((8L), ((unsigned char *) "pathname"))));
  3000.  
  3001.     return (current_block);
  3002.  
  3003. }
  3004. ------------------------------ end of test.c ------------------------------
  3005.  
  3006.