From: gjr@martigny.ai.mit.edu (Guillermo J. Rozas)
Newsgroups: gnu.gcc.bug
Subject: Bug with gcc 2.3.3 on hp9000s720 hp-ux 8.05
Date: 25 Jan 1993 20:10:08 -0500
Organization: GNUs Not Usenet
Distribution: gnu
Reply-To: gjr@martigny.ai.mit.edu

The input file is attached at the end of the message.

gcc (and gas) binaries ftp'd from jaguar.cs.utah.edu on Jan 20 1993.
Since I ftp'd binaries, and not sources, I don't know what arguments
were given to configure to build the compiler.

Removing -O makes it work.

Here is the invocation, and output:

    gjr@chamartin> gcc -v -O -g -c test.c
    Reading specs from /usr/local/lib/gcc-lib/hp700-hpux/2.3.3/specs
    gcc version 2.3.3
     /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
    GNU CPP version 2.3.3 (hppa)
     /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
    GNU C version 2.3.3 (hppa) compiled by GNU C version 2.3.3.
    gcc: Internal compiler error: program cc1 got fatal signal 6
    10.5u 0.6s 0:15 73%

PS: The code is machine generated, although pretty-printed by me.
I already have a workaround.

I tried the same command line and file on albert.gnu.ai.mit.edu (gcc
2.3.2) and it compiled succesfully.

------------------------------ test.c ------------------------------
typedef char Boolean;

typedef unsigned long SCHEME_OBJECT;

typedef unsigned short format_word;

extern SCHEME_OBJECT
  memory_to_string  (long, unsigned char *);

extern SCHEME_OBJECT
  memory_to_symbol  (long, unsigned char *);

extern SCHEME_OBJECT
  make_vector  (long, SCHEME_OBJECT, Boolean);

extern SCHEME_OBJECT
  cons  (SCHEME_OBJECT, SCHEME_OBJECT);

extern SCHEME_OBJECT
  search_for_primitive (SCHEME_OBJECT, char *, Boolean, Boolean, int);

extern SCHEME_OBJECT
  decl (SCHEME_OBJECT * (*) (SCHEME_OBJECT *), char *);

extern SCHEME_OBJECT
  * LiarC_pathnm_92  (SCHEME_OBJECT *),
  * LiarC_pathnm_91  (SCHEME_OBJECT *),
  * LiarC_pathnm_90  (SCHEME_OBJECT *),
  * LiarC_pathnm_89  (SCHEME_OBJECT *),
  * LiarC_pathnm_88  (SCHEME_OBJECT *),
  * LiarC_pathnm_87  (SCHEME_OBJECT *),
  * LiarC_pathnm_86  (SCHEME_OBJECT *),
  * LiarC_pathnm_85  (SCHEME_OBJECT *),
  * LiarC_pathnm_84  (SCHEME_OBJECT *),
  * LiarC_pathnm_83  (SCHEME_OBJECT *),
  * LiarC_pathnm_82  (SCHEME_OBJECT *),
  * LiarC_pathnm_81  (SCHEME_OBJECT *),
  * LiarC_pathnm_80  (SCHEME_OBJECT *),
  * LiarC_pathnm_79  (SCHEME_OBJECT *),
  * LiarC_pathnm_78  (SCHEME_OBJECT *),
  * LiarC_pathnm_77  (SCHEME_OBJECT *),
  * LiarC_pathnm_76  (SCHEME_OBJECT *),
  * LiarC_pathnm_75  (SCHEME_OBJECT *),
  * LiarC_pathnm_74  (SCHEME_OBJECT *),
  * LiarC_pathnm_73  (SCHEME_OBJECT *),
  * LiarC_pathnm_72  (SCHEME_OBJECT *),
  * LiarC_pathnm_71  (SCHEME_OBJECT *),
  * LiarC_pathnm_70  (SCHEME_OBJECT *),
  * LiarC_pathnm_69  (SCHEME_OBJECT *),
  * LiarC_pathnm_68  (SCHEME_OBJECT *),
  * LiarC_pathnm_67  (SCHEME_OBJECT *),
  * LiarC_pathnm_66  (SCHEME_OBJECT *),
  * LiarC_pathnm_65  (SCHEME_OBJECT *),
  * LiarC_pathnm_64  (SCHEME_OBJECT *),
  * LiarC_pathnm_63  (SCHEME_OBJECT *),
  * LiarC_pathnm_62  (SCHEME_OBJECT *),
  * LiarC_pathnm_61  (SCHEME_OBJECT *),
  * LiarC_pathnm_60  (SCHEME_OBJECT *),
  * LiarC_pathnm_59  (SCHEME_OBJECT *),
  * LiarC_pathnm_58  (SCHEME_OBJECT *),
  * LiarC_pathnm_57  (SCHEME_OBJECT *),
  * LiarC_pathnm_56  (SCHEME_OBJECT *),
  * LiarC_pathnm_55  (SCHEME_OBJECT *),
  * LiarC_pathnm_54  (SCHEME_OBJECT *),
  * LiarC_pathnm_53  (SCHEME_OBJECT *),
  * LiarC_pathnm_52  (SCHEME_OBJECT *),
  * LiarC_pathnm_51  (SCHEME_OBJECT *),
  * LiarC_pathnm_50  (SCHEME_OBJECT *),
  * LiarC_pathnm_49  (SCHEME_OBJECT *),
  * LiarC_pathnm_48  (SCHEME_OBJECT *),
  * LiarC_pathnm_47  (SCHEME_OBJECT *),
  * LiarC_pathnm_46  (SCHEME_OBJECT *),
  * LiarC_pathnm_45  (SCHEME_OBJECT *),
  * LiarC_pathnm_44  (SCHEME_OBJECT *),
  * LiarC_pathnm_43  (SCHEME_OBJECT *),
  * LiarC_pathnm_42  (SCHEME_OBJECT *),
  * LiarC_pathnm_41  (SCHEME_OBJECT *),
  * LiarC_pathnm_40  (SCHEME_OBJECT *),
  * LiarC_pathnm_39  (SCHEME_OBJECT *),
  * LiarC_pathnm_38  (SCHEME_OBJECT *),
  * LiarC_pathnm_37  (SCHEME_OBJECT *),
  * LiarC_pathnm_36  (SCHEME_OBJECT *),
  * LiarC_pathnm_35  (SCHEME_OBJECT *),
  * LiarC_pathnm_34  (SCHEME_OBJECT *),
  * LiarC_pathnm_33  (SCHEME_OBJECT *),
  * LiarC_pathnm_32  (SCHEME_OBJECT *),
  * LiarC_pathnm_31  (SCHEME_OBJECT *),
  * LiarC_pathnm_30  (SCHEME_OBJECT *),
  * LiarC_pathnm_29  (SCHEME_OBJECT *),
  * LiarC_pathnm_28  (SCHEME_OBJECT *),
  * LiarC_pathnm_27  (SCHEME_OBJECT *),
  * LiarC_pathnm_26  (SCHEME_OBJECT *),
  * LiarC_pathnm_25  (SCHEME_OBJECT *),
  * LiarC_pathnm_24  (SCHEME_OBJECT *),
  * LiarC_pathnm_23  (SCHEME_OBJECT *),
  * LiarC_pathnm_22  (SCHEME_OBJECT *),
  * LiarC_pathnm_21  (SCHEME_OBJECT *),
  * LiarC_pathnm_20  (SCHEME_OBJECT *),
  * LiarC_pathnm_19  (SCHEME_OBJECT *),
  * LiarC_pathnm_18  (SCHEME_OBJECT *),
  * LiarC_pathnm_17  (SCHEME_OBJECT *),
  * LiarC_pathnm_16  (SCHEME_OBJECT *),
  * LiarC_pathnm_15  (SCHEME_OBJECT *),
  * LiarC_pathnm_14  (SCHEME_OBJECT *),
  * LiarC_pathnm_13  (SCHEME_OBJECT *),
  * LiarC_pathnm_12  (SCHEME_OBJECT *),
  * LiarC_pathnm_11  (SCHEME_OBJECT *),
  * LiarC_pathnm_10  (SCHEME_OBJECT *),
  * LiarC_pathnm_9  (SCHEME_OBJECT *),
  * LiarC_pathnm_8  (SCHEME_OBJECT *),
  * LiarC_pathnm_7  (SCHEME_OBJECT *),
  * LiarC_pathnm_6  (SCHEME_OBJECT *),
  * LiarC_pathnm_5  (SCHEME_OBJECT *),
  * LiarC_pathnm_4  (SCHEME_OBJECT *),
  * LiarC_pathnm_3  (SCHEME_OBJECT *),
  * LiarC_pathnm_2  (SCHEME_OBJECT *),
  * LiarC_pathnm_1  (SCHEME_OBJECT *);

static SCHEME_OBJECT *
LiarC_pathnm_data (SCHEME_OBJECT * my_pc)
{
	register  int
	  current_C_proc = ((((* ((unsigned long *) (my_pc)))
			      >> ((8  * (sizeof (unsigned long)))  / 2))
			     & ((((unsigned long) 1)
				 << ((8  * (sizeof (unsigned long)))  / 2))
				- 1)));

	SCHEME_OBJECT
	  ccBlock92, ccBlock91, ccBlock90, ccBlock89, ccBlock88, ccBlock87,
	  ccBlock86, ccBlock85, ccBlock84, ccBlock83, ccBlock82, ccBlock81,
	  ccBlock80, ccBlock79, ccBlock78, ccBlock77, ccBlock76, ccBlock75,
	  ccBlock74, ccBlock73, ccBlock72, ccBlock71, ccBlock70, ccBlock69,
	  ccBlock68, ccBlock67, ccBlock66, ccBlock65, ccBlock64, ccBlock63,
	  ccBlock62, ccBlock61, ccBlock60, ccBlock59, ccBlock58, ccBlock57,
	  ccBlock56, ccBlock55, ccBlock54, ccBlock53, ccBlock52, ccBlock51,
	  ccBlock50, ccBlock49, ccBlock48, ccBlock47, ccBlock46, ccBlock45,
	  ccBlock44, ccBlock43, ccBlock42, ccBlock41, ccBlock40, ccBlock39,
	  ccBlock38, ccBlock37, ccBlock36, ccBlock35, ccBlock34, ccBlock33,
	  ccBlock32, ccBlock31, ccBlock30, ccBlock29, ccBlock28, ccBlock27,
	  ccBlock26, ccBlock25, ccBlock24, ccBlock23, ccBlock22, ccBlock21,
	  ccBlock20, ccBlock19, ccBlock18, ccBlock17, ccBlock16, ccBlock15,
	  ccBlock14, ccBlock13, ccBlock12, ccBlock11, ccBlock10, ccBlock9,
	  ccBlock8, ccBlock7, ccBlock6, ccBlock5, ccBlock4, ccBlock3,
	  ccBlock2, ccBlock1,
	  tmpObj7, tmpObj6, tmpObj5, tmpObj4,
	  tmpObj3, tmpObj2, tmpObj1, tmpObj0;
	
	SCHEME_OBJECT
	  object = ((make_vector ((168L), 0x00000000, ((Boolean) 1))));

	SCHEME_OBJECT *
	  current_block = ((((SCHEME_OBJECT *)
			     (((unsigned long) ((object) & 0x03FFFFFF))
			      | 0x40000000))));

	tmpObj0 = ((make_vector ((92), 0x00000000, ((Boolean) 1))));

	ccBlock92 = (decl (LiarC_pathnm_92, "LiarC_pathnm_92"));
	ccBlock91 = (decl (LiarC_pathnm_91, "LiarC_pathnm_91"));
	ccBlock90 = (decl (LiarC_pathnm_90, "LiarC_pathnm_90"));
	ccBlock89 = (decl (LiarC_pathnm_89, "LiarC_pathnm_89"));
	ccBlock88 = (decl (LiarC_pathnm_88, "LiarC_pathnm_88"));
	ccBlock87 = (decl (LiarC_pathnm_87, "LiarC_pathnm_87"));
	ccBlock86 = (decl (LiarC_pathnm_86, "LiarC_pathnm_86"));
	ccBlock85 = (decl (LiarC_pathnm_85, "LiarC_pathnm_85"));
	ccBlock84 = (decl (LiarC_pathnm_84, "LiarC_pathnm_84"));
	ccBlock83 = (decl (LiarC_pathnm_83, "LiarC_pathnm_83"));
	ccBlock82 = (decl (LiarC_pathnm_82, "LiarC_pathnm_82"));
	ccBlock81 = (decl (LiarC_pathnm_81, "LiarC_pathnm_81"));
	ccBlock80 = (decl (LiarC_pathnm_80, "LiarC_pathnm_80"));
	ccBlock79 = (decl (LiarC_pathnm_79, "LiarC_pathnm_79"));
	ccBlock78 = (decl (LiarC_pathnm_78, "LiarC_pathnm_78"));
	ccBlock77 = (decl (LiarC_pathnm_77, "LiarC_pathnm_77"));
	ccBlock76 = (decl (LiarC_pathnm_76, "LiarC_pathnm_76"));
	ccBlock75 = (decl (LiarC_pathnm_75, "LiarC_pathnm_75"));
	ccBlock74 = (decl (LiarC_pathnm_74, "LiarC_pathnm_74"));
	ccBlock73 = (decl (LiarC_pathnm_73, "LiarC_pathnm_73"));
	ccBlock72 = (decl (LiarC_pathnm_72, "LiarC_pathnm_72"));
	ccBlock71 = (decl (LiarC_pathnm_71, "LiarC_pathnm_71"));
	ccBlock70 = (decl (LiarC_pathnm_70, "LiarC_pathnm_70"));
	ccBlock69 = (decl (LiarC_pathnm_69, "LiarC_pathnm_69"));
	ccBlock68 = (decl (LiarC_pathnm_68, "LiarC_pathnm_68"));
	ccBlock67 = (decl (LiarC_pathnm_67, "LiarC_pathnm_67"));
	ccBlock66 = (decl (LiarC_pathnm_66, "LiarC_pathnm_66"));
	ccBlock65 = (decl (LiarC_pathnm_65, "LiarC_pathnm_65"));
	ccBlock64 = (decl (LiarC_pathnm_64, "LiarC_pathnm_64"));
	ccBlock63 = (decl (LiarC_pathnm_63, "LiarC_pathnm_63"));
	ccBlock62 = (decl (LiarC_pathnm_62, "LiarC_pathnm_62"));
	ccBlock61 = (decl (LiarC_pathnm_61, "LiarC_pathnm_61"));
	ccBlock60 = (decl (LiarC_pathnm_60, "LiarC_pathnm_60"));
	ccBlock59 = (decl (LiarC_pathnm_59, "LiarC_pathnm_59"));
	ccBlock58 = (decl (LiarC_pathnm_58, "LiarC_pathnm_58"));
	ccBlock57 = (decl (LiarC_pathnm_57, "LiarC_pathnm_57"));
	ccBlock56 = (decl (LiarC_pathnm_56, "LiarC_pathnm_56"));
	ccBlock55 = (decl (LiarC_pathnm_55, "LiarC_pathnm_55"));
	ccBlock54 = (decl (LiarC_pathnm_54, "LiarC_pathnm_54"));
	ccBlock53 = (decl (LiarC_pathnm_53, "LiarC_pathnm_53"));
	ccBlock52 = (decl (LiarC_pathnm_52, "LiarC_pathnm_52"));
	ccBlock51 = (decl (LiarC_pathnm_51, "LiarC_pathnm_51"));
	ccBlock50 = (decl (LiarC_pathnm_50, "LiarC_pathnm_50"));
	ccBlock49 = (decl (LiarC_pathnm_49, "LiarC_pathnm_49"));
	ccBlock48 = (decl (LiarC_pathnm_48, "LiarC_pathnm_48"));
	ccBlock47 = (decl (LiarC_pathnm_47, "LiarC_pathnm_47"));
	ccBlock46 = (decl (LiarC_pathnm_46, "LiarC_pathnm_46"));
	ccBlock45 = (decl (LiarC_pathnm_45, "LiarC_pathnm_45"));
	ccBlock44 = (decl (LiarC_pathnm_44, "LiarC_pathnm_44"));
	ccBlock43 = (decl (LiarC_pathnm_43, "LiarC_pathnm_43"));
	ccBlock42 = (decl (LiarC_pathnm_42, "LiarC_pathnm_42"));
	ccBlock41 = (decl (LiarC_pathnm_41, "LiarC_pathnm_41"));
	ccBlock40 = (decl (LiarC_pathnm_40, "LiarC_pathnm_40"));
	ccBlock39 = (decl (LiarC_pathnm_39, "LiarC_pathnm_39"));
	ccBlock38 = (decl (LiarC_pathnm_38, "LiarC_pathnm_38"));
	ccBlock37 = (decl (LiarC_pathnm_37, "LiarC_pathnm_37"));
	ccBlock36 = (decl (LiarC_pathnm_36, "LiarC_pathnm_36"));
	ccBlock35 = (decl (LiarC_pathnm_35, "LiarC_pathnm_35"));
	ccBlock34 = (decl (LiarC_pathnm_34, "LiarC_pathnm_34"));
	ccBlock33 = (decl (LiarC_pathnm_33, "LiarC_pathnm_33"));
	ccBlock32 = (decl (LiarC_pathnm_32, "LiarC_pathnm_32"));
	ccBlock31 = (decl (LiarC_pathnm_31, "LiarC_pathnm_31"));
	ccBlock30 = (decl (LiarC_pathnm_30, "LiarC_pathnm_30"));
	ccBlock29 = (decl (LiarC_pathnm_29, "LiarC_pathnm_29"));
	ccBlock28 = (decl (LiarC_pathnm_28, "LiarC_pathnm_28"));
	ccBlock27 = (decl (LiarC_pathnm_27, "LiarC_pathnm_27"));
	ccBlock26 = (decl (LiarC_pathnm_26, "LiarC_pathnm_26"));
	ccBlock25 = (decl (LiarC_pathnm_25, "LiarC_pathnm_25"));
	ccBlock24 = (decl (LiarC_pathnm_24, "LiarC_pathnm_24"));
	ccBlock23 = (decl (LiarC_pathnm_23, "LiarC_pathnm_23"));
	ccBlock22 = (decl (LiarC_pathnm_22, "LiarC_pathnm_22"));
	ccBlock21 = (decl (LiarC_pathnm_21, "LiarC_pathnm_21"));
	ccBlock20 = (decl (LiarC_pathnm_20, "LiarC_pathnm_20"));
	ccBlock19 = (decl (LiarC_pathnm_19, "LiarC_pathnm_19"));
	ccBlock18 = (decl (LiarC_pathnm_18, "LiarC_pathnm_18"));
	ccBlock17 = (decl (LiarC_pathnm_17, "LiarC_pathnm_17"));
	ccBlock16 = (decl (LiarC_pathnm_16, "LiarC_pathnm_16"));
	ccBlock15 = (decl (LiarC_pathnm_15, "LiarC_pathnm_15"));
	ccBlock14 = (decl (LiarC_pathnm_14, "LiarC_pathnm_14"));
	ccBlock13 = (decl (LiarC_pathnm_13, "LiarC_pathnm_13"));
	ccBlock12 = (decl (LiarC_pathnm_12, "LiarC_pathnm_12"));
	ccBlock11 = (decl (LiarC_pathnm_11, "LiarC_pathnm_11"));
	ccBlock10 = (decl (LiarC_pathnm_10, "LiarC_pathnm_10"));
	ccBlock9 = (decl (LiarC_pathnm_9, "LiarC_pathnm_9"));
	ccBlock8 = (decl (LiarC_pathnm_8, "LiarC_pathnm_8"));
	ccBlock7 = (decl (LiarC_pathnm_7, "LiarC_pathnm_7"));
	ccBlock6 = (decl (LiarC_pathnm_6, "LiarC_pathnm_6"));
	ccBlock5 = (decl (LiarC_pathnm_5, "LiarC_pathnm_5"));
	ccBlock4 = (decl (LiarC_pathnm_4, "LiarC_pathnm_4"));
	ccBlock3 = (decl (LiarC_pathnm_3, "LiarC_pathnm_3"));
	ccBlock2 = (decl (LiarC_pathnm_2, "LiarC_pathnm_2"));
	ccBlock1 = (decl (LiarC_pathnm_1, "LiarC_pathnm_1"));

	current_block[1L] = (((((unsigned long) (0x27)) << 26) | (34)));
	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[3]));
	  (((format_word *) (&current_block[3])) [-2])  = (0x8180);
	  (((format_word *) (&current_block[3])) [-1])  = (((3) << 1));
	} while (0);

	current_block [3]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long))) / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  1)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[5]));
	  (((format_word *) (&current_block[5])) [-2])  = (0x8280);
	  (((format_word *) (&current_block[5])) [-1])  =	(((5) << 1));
	} while (0);

	current_block [5]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  2)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[7]));
	  (((format_word *) (&current_block[7])) [-2])  = (0x8380);
	  (((format_word *) (&current_block[7])) [-1])  =	(((7) << 1));
	} while (0);

	current_block [7]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  3)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[9]));
	  (((format_word *) (&current_block[9])) [-2])  = (0x8180);
	  (((format_word *) (&current_block[9])) [-1])  =	(((9) << 1));
	} while (0);

	current_block [9]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  4)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[11]));
	  (((format_word *) (&current_block[11])) [-2])  = (0x8180);
	  (((format_word *) (&current_block[11])) [-1])  =	(((11) << 1));
	} while (0);

	current_block [11]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  5)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[13]));
	  (((format_word *) (&current_block[13])) [-2])  = (0x8280);
	  (((format_word *) (&current_block[13])) [-1])  =	(((13) << 1));
	} while (0);

	current_block [13]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  6)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[15]));
	  (((format_word *) (&current_block[15])) [-2])  = (0x9380);
	  (((format_word *) (&current_block[15])) [-1])  =	(((15) << 1));
	} while (0);

	current_block [15]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  7)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[17]));
	  (((format_word *) (&current_block[17])) [-2])  = (0x8180);
	  (((format_word *) (&current_block[17])) [-1])  =	(((17) << 1));
	} while (0);

	current_block [17]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  8)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[19]));
	  (((format_word *) (&current_block[19])) [-2])  = (0x8280);
	  (((format_word *) (&current_block[19])) [-1])  =	(((19) << 1));
	} while (0);

	current_block [19]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  9)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[21]));
	  (((format_word *) (&current_block[21])) [-2])  = (0x8380);
	  (((format_word *) (&current_block[21])) [-1])  =	(((21) << 1));
	} while (0);

	current_block [21]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  10)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[23]));
	  (((format_word *) (&current_block[23])) [-2])  = (0x8180);
	  (((format_word *) (&current_block[23])) [-1])  =	(((23) << 1));
	} while (0);

	current_block [23]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  11)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[25]));
	  (((format_word *) (&current_block[25])) [-2])  = (0x8280);
	  (((format_word *) (&current_block[25])) [-1])  =	(((25) << 1));
	} while (0);

	current_block [25]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  12)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[27]));
	  (((format_word *) (&current_block[27])) [-2])  = (0x8380);
	  (((format_word *) (&current_block[27])) [-1])  =	(((27) << 1));
	} while (0);

	current_block [27]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  13)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[29]));
	  (((format_word *) (&current_block[29])) [-2])  = (0x8180);
	  (((format_word *) (&current_block[29])) [-1])  =	(((29) << 1));
	} while (0);

	current_block [29]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  14)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[31]));
	  (((format_word *) (&current_block[31])) [-2])  = (0x8080);
	  (((format_word *) (&current_block[31])) [-1])  =	(((31) << 1));
	} while (0);

	current_block [31]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  15)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[33]));
	  (((format_word *) (&current_block[33])) [-2])  = (0x8080);
	  (((format_word *) (&current_block[33])) [-1])  =	(((33) << 1));
	} while (0);

	current_block [33]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  16)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	do
	{
	  SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (&current_block[35]));
	  (((format_word *) (&current_block[35])) [-2])  = (0xFFFF);
	  (((format_word *) (&current_block[35])) [-1])  =	(((35) << 1));
	} while (0);

	current_block [35]
	  = (((SCHEME_OBJECT)
	      (((((unsigned long) current_C_proc)
		 & ((((unsigned long) 1)
		     << ((8  * (sizeof (unsigned long)))  / 2)) - 1))
		<< ((8  * (sizeof (unsigned long)))  / 2))
	       | (((unsigned long)  17)
		  & ((((unsigned long) 1)
		      << ((8  * (sizeof (unsigned long)))  / 2)) - 1)))));

	current_block[36L]
	  = (((((((unsigned long) ((0x1A))) << 26)
		| ((((((((((unsigned long) (0x39)) << 26)
			 | ((((0x000000))
			     | (((((0x000000)) == 0x000000)
				 || (((0x000000)) == 0x030000))
				? (((((2)) << 1)) + (1 - 1))
				: ((2)))))))))
		     & 	0x03FFFFFF)))))));

	current_block[37]
	  = ((memory_to_symbol ((36),
				((unsigned char *)
				 "named-structure/set-tag-description!"))));

	current_block[37  + 1] = ((SCHEME_OBJECT) (3));

	current_block[39]
	  = ((memory_to_symbol ((24),
				((unsigned char *)
				 "unparser/standard-method"))));

	current_block[39  + 1] = ((SCHEME_OBJECT) (3));

	current_block[41L]
	  = (((((((unsigned long) ((0x1A))) << 26)
		| ((((((((((unsigned long) (0x39)) << 26)
			 | ((((0x010000))
			     | (((((0x010000)) == 0x000000)
				 || (((0x010000)) == 0x030000))
				? (((((1)) << 1)) + (1  - 1))
				: ((1))))))))) & 0x03FFFFFF)))))));

	current_block[42]
	  = ((memory_to_symbol ((9), ((unsigned char *) "host-type"))));

	current_block[43L]
	  = (((((((unsigned long) ((0x1A))) << 26)
		| ((((((((((unsigned long) (0x39)) << 26) |
			 ((((0x030000))
			   | (((((0x030000)) == 0x000000)
			       || (((0x030000)) == 0x030000))
			      ? (((((5)) << 1)) + (1  - 1))
			      : ((5))))))))) & 0x03FFFFFF)))))));

	current_block[44]
	  = ((memory_to_symbol ((32),
				((unsigned char *)
				 "set-record-type-unparser-method!"))));

	current_block[44 + 1] = ((SCHEME_OBJECT) (3));

	current_block[46]
	  = ((memory_to_symbol ((24),
				((unsigned char *)
				 "unparser/standard-method"))));

	current_block[46 + 1] = ((SCHEME_OBJECT) (2));

	current_block[48]
	  = ((memory_to_symbol ((16),
				((unsigned char *) "make-record-type"))));

	current_block[48 + 1] = ((SCHEME_OBJECT) (3));

	current_block[50]
	  = ((memory_to_symbol ((26),
				((unsigned char *)
				 "make-define-structure-type"))));

	current_block[50 + 1] = ((SCHEME_OBJECT) (6));

	current_block[52]
	  = ((memory_to_symbol ((15), ((unsigned char *) "define-multiple"))));

	current_block[52 + 1] = ((SCHEME_OBJECT) (4));

	current_block[146] = tmpObj0;

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((91) + 1))])
	  = ((ccBlock1));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((90) + 1))])
	  = ((ccBlock2));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((89) + 1))])
	  = ((ccBlock3));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((88) + 1))])
	  = ((ccBlock4));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((87) + 1))])
	  = ((ccBlock5));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((86) + 1))])
	  = ((ccBlock6));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((85) + 1))])
	  = ((ccBlock7));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((84) + 1))])
	  = ((ccBlock8));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((83) + 1))])
	  = ((ccBlock9));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((82) + 1))])
	  = ((ccBlock10));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((81) + 1))])
	  = ((ccBlock11));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((80) + 1))])
	  = ((ccBlock12));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((79) + 1))])
	  = ((ccBlock13));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((78) + 1))])
	  = ((ccBlock14));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((77) + 1))])
	  = ((ccBlock15));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((76) + 1))])
	  = ((ccBlock16));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((75) + 1))])
	  = ((ccBlock17));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((74) + 1))])
	  = ((ccBlock18));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((73) + 1))])
	  = ((ccBlock19));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((72) + 1))])
	  = ((ccBlock20));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((71) + 1))])
	  = ((ccBlock21));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((70) + 1))])
	  = ((ccBlock22));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((69) + 1))])
	  = ((ccBlock23));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((68) + 1))])
	  = ((ccBlock24));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((67) + 1))])
	  = ((ccBlock25));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((66) + 1))])
	  = ((ccBlock26));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((65) + 1))])
	  = ((ccBlock27));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((64) + 1))])
	  = ((ccBlock28));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((63) + 1))])
	  = ((ccBlock29));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((62) + 1))])
	  = ((ccBlock30));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((61) + 1))])
	  = ((ccBlock31));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((60) + 1))])
	  = ((ccBlock32));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((59) + 1))])
	  = ((ccBlock33));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((58) + 1))])
	  = ((ccBlock34));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((57) + 1))])
	  = ((ccBlock35));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((56) + 1))])
	  = ((ccBlock36));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((55) + 1))])
	  = ((ccBlock37));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((54) + 1))])
	  = ((ccBlock38));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((53) + 1))])
	  = ((ccBlock39));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((52) + 1))])
	  = ((ccBlock40));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((51) + 1))])
	  = ((ccBlock41));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((50) + 1))])
	  = ((ccBlock42));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((49) + 1))])
	  = ((ccBlock43));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((48) + 1))])
	  = ((ccBlock44));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((47) + 1))])
	  = ((ccBlock45));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((46) + 1))])
	  = ((ccBlock46));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((45) + 1))])
	  = ((ccBlock47));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((44) + 1))])
	  = ((ccBlock48));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((43) + 1))])
	  = ((ccBlock49));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((42) + 1))])
	  = ((ccBlock50));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((41) + 1))])
	  = ((ccBlock51));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((40) + 1))])
	  = ((ccBlock52));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((39) + 1))])
	  = ((ccBlock53));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((38) + 1))])
	  = ((ccBlock54));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((37) + 1))])
	  = ((ccBlock55));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((36) + 1))])
	  = ((ccBlock56));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((35) + 1))])
	  = ((ccBlock57));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((34) + 1))])
	  = ((ccBlock58));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((33) + 1))])
	  = ((ccBlock59));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((32) + 1))])
	  = ((ccBlock60));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((31) + 1))])
	  = ((ccBlock61));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((30) + 1))])
	  = ((ccBlock62));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((29) + 1))])
	  = ((ccBlock63));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((28) + 1))])
	  = ((ccBlock64));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((27) + 1))])
	  = ((ccBlock65));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((26) + 1))])
	  = ((ccBlock66));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((25) + 1))])
	  = ((ccBlock67));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((24) + 1))])
	  = ((ccBlock68));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((23) + 1))])
	  = ((ccBlock69));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((22) + 1))])
	  = ((ccBlock70));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((21) + 1))])
	  = ((ccBlock71));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((20) + 1))])
	  = ((ccBlock72));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((19) + 1))])
	  = ((ccBlock73));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((18) + 1))])
	  = ((ccBlock74));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((17) + 1))])
	  = ((ccBlock75));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((16) + 1))])
	  = ((ccBlock76));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((15) + 1))])
	  = ((ccBlock77));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((14) + 1))])
	  = ((ccBlock78));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((13) + 1))])
	  = ((ccBlock79));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((12) + 1))])
	  = ((ccBlock80));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((11) + 1))])
	  = ((ccBlock81));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((10) + 1))])
	  = ((ccBlock82));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((9) + 1))])
	  = ((ccBlock83));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((8) + 1))])
	  = ((ccBlock84));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((7) + 1))])
	  = ((ccBlock85));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((6) + 1))])
	  = ((ccBlock86));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((5) + 1))])
	  = ((ccBlock87));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((4) + 1))])
	  = ((ccBlock88));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((3) + 1))])
	  = ((ccBlock89));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((2) + 1))])
	  = ((ccBlock90));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((1) + 1))])
	  = ((ccBlock91));

	(((((SCHEME_OBJECT *)
	    (((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
	     | 0x40000000)))) [(((0) + 1))])
	  = ((ccBlock92));

	current_block[145]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock68) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[144]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock69) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[143]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock70) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[142]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock71) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[141]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock72) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[140]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock73) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[139]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock74) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (5))))
		      & (~(0xC0000000))))))))));

	current_block[138]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock75) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (5))))
		      & (~(0xC0000000))))))))));

	current_block[137]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock76) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[136]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock77) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[135]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock78) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[134]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock79) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[133]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock80) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[132]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock81) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[131]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock82) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[130]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock83) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[129]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock84) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[128]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock85) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[127]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock86) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[126]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock87) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[125]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock88) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[124]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock89) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[123]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock90) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[122]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock91) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[121]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock92) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[120]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock64) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[119]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock65) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[118]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock66) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[117]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock67) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[116]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock63) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[115]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock62) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[114]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock61) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (5))))
		      & (~(0xC0000000))))))))));

	current_block[113]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock60) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[112]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock59) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[111]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock58) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[110]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock57) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[109]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock56) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[108]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock55) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[107]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock54) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[106]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock53) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[105]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock52) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[104]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock51) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[103]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock50) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[102]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock49) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[101]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock48) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[100]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock47) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[99]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock46) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[98]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock45) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[97]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock44) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[96]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock43) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[95]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock42) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[94]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock41) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[93]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock40) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[92]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock39) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[91]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock38) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[90]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock37) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[89]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock36) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[88]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock35) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[87]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock34) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[86]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock33) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[85]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock32) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[84]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock31) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[83]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock30) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[82]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock29) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (5))))
		      & (~(0xC0000000))))))))));

	current_block[81]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock28) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[80]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock27) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (5))))
		      & (~(0xC0000000))))))))));

	current_block[79]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock26) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (5))))
		      & (~(0xC0000000))))))))));

	current_block[78]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock25) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[77]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock24) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[76]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock23) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[75]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock22) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[74]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock21) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[73]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock20) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[72]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock19) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[71]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock18) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[70]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock17) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[69]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock16) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[68]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock15) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[67]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock14) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[66]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock13) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[65]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock12) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[64]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock11) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[63]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock10) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[62]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock2) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[61]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock3) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[60]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock4) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[59]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock5) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[58]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock6) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[57]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock7) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[56]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock8) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[55]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock9) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	current_block[54]
	  = (((((((unsigned long) ((0x28))) << 26)
		| ((((SCHEME_OBJECT)
		     (((unsigned long)
		       ((((((SCHEME_OBJECT *)
			    (((unsigned long) ((ccBlock1) & 0x03FFFFFF))
			     | 0x40000000))))
			 + (3))))
		      & (~(0xC0000000))))))))));

	tmpObj7 = ((make_vector ((8), 0x00000000, ((Boolean) 1))));

	tmpObj4 = ((memory_to_symbol ((9L), ((unsigned char *) "host-type"))));

	tmpObj3 = ((make_vector ((58), 0x00000000, ((Boolean) 1))));

	tmpObj6 = ((memory_to_symbol ((4L), ((unsigned char *) "host"))));

	tmpObj2 = ((make_vector ((4), 0x00000000, ((Boolean) 1))));

	tmpObj5 = ((memory_to_symbol ((4L), ((unsigned char *) "name"))));

	tmpObj1 = ((make_vector ((28), 0x00000000, ((Boolean) 1))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((0) + 1))]))
	  = (((((memory_to_symbol ((14L),
				   ((unsigned char *)
				    "%make-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((1) + 1))]))
	  = (((((memory_to_symbol ((14L),
				   ((unsigned char *)
				    "%pathname-host")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((2) + 1))]))
	  = (((((memory_to_symbol ((16L),
				   ((unsigned char *)
				    "%pathname-device")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((3) + 1))]))
	  = (((((memory_to_symbol ((19L),
				   ((unsigned char *)
				    "%pathname-directory")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((4) + 1))]))
	  = (((((memory_to_symbol ((14L),
				   ((unsigned char *)
				    "%pathname-name")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((5) + 1))]))
	  = (((((memory_to_symbol ((14L),
				   ((unsigned char *)
				    "%pathname-type")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((6) + 1))]))
	  = (((((memory_to_symbol ((17L),
				   ((unsigned char *)
				    "%pathname-version")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((7) + 1))]))
	  = (((((memory_to_symbol ((9L),
				   ((unsigned char *)
				    "pathname?")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((0) + 1))]))
	  = (((((memory_to_symbol ((10L),
				   ((unsigned char *)
				    "->pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((1) + 1))]))
	  = (((((memory_to_symbol ((12L),
				   ((unsigned char *)
				    "pathname-arg")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((2) + 1))]))
	  = (((((memory_to_symbol ((13L),
				   ((unsigned char *)
				    "make-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((3) + 1))]))
	  = (((((memory_to_symbol ((13L),
				   ((unsigned char *)
				    "pathname-host")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((4) + 1))]))
	  = (((((memory_to_symbol ((15L),
				   ((unsigned char *)
				    "pathname-device")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((5) + 1))]))
	  = (((((memory_to_symbol ((18L),
				   ((unsigned char *)
				    "pathname-directory")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((6) + 1))]))
	  = (((((memory_to_symbol ((13L),
				   ((unsigned char *)
				    "pathname-name")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((7) + 1))]))
	  = (((((memory_to_symbol ((13L),
				   ((unsigned char *)
				    "pathname-type")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((8) + 1))]))
	  = (((((memory_to_symbol ((16L),
				   ((unsigned char *)
				    "pathname-version")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((9) + 1))]))
	  = (((((memory_to_symbol ((27L),
				   ((unsigned char *)
				    "pathname-end-of-line-string")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((10) + 1))]))
	  = (((((memory_to_symbol ((10L),
				   ((unsigned char *)
				    "pathname=?")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((11) + 1))]))
	  = (((((memory_to_symbol ((18L),
				   ((unsigned char *)
				    "pathname-absolute?")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((12) + 1))]))
	  = (((((memory_to_symbol ((14L),
				   ((unsigned char *)
				    "pathname-wild?")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((13) + 1))]))
	  = (((((memory_to_symbol ((17L),
				   ((unsigned char *)
				    "pathname-simplify")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((14) + 1))]))
	  = (((((memory_to_symbol ((18L),
				   ((unsigned char *)
				    "directory-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((15) + 1))]))
	  = (((((memory_to_symbol ((13L),
				   ((unsigned char *)
				    "file-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((16) + 1))]))
	  = (((((memory_to_symbol ((21L),
				   ((unsigned char *)
				    "pathname-as-directory")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((17) + 1))]))
	  = (((((memory_to_symbol ((26L),
				   ((unsigned char *)
				    "directory-pathname-as-file")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((18) + 1))]))
	  = (((((memory_to_symbol ((19L),
				   ((unsigned char *)
				    "pathname-new-device")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((19) + 1))]))
	  = (((((memory_to_symbol ((22L),
				   ((unsigned char *)
				    "pathname-new-directory")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((20) + 1))]))
	  = (((((memory_to_symbol ((17L),
				   ((unsigned char *)
				    "pathname-new-name")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((21) + 1))]))
	  = (((((memory_to_symbol ((17L),
				   ((unsigned char *)
				    "pathname-new-type")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((22) + 1))]))
	  = (((((memory_to_symbol ((20L),
				   ((unsigned char *)
				    "pathname-new-version")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((23) + 1))]))
	  = (((((memory_to_symbol ((23L),
				   ((unsigned char *)
				    "pathname-default-device")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((24) + 1))]))
	  = (((((memory_to_symbol ((26L),
				   ((unsigned char *)
				    "pathname-default-directory")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((25) + 1))]))
	  = (((((memory_to_symbol ((21L),
				   ((unsigned char *)
				    "pathname-default-name")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((26) + 1))]))
	  = (((((memory_to_symbol ((21L),
				   ((unsigned char *)
				    "pathname-default-type")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((27) + 1))]))
	  = (((((memory_to_symbol ((24L),
				   ((unsigned char *)
				    "pathname-default-version")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((28) + 1))]))
	  = (((((memory_to_symbol ((16L),
				   ((unsigned char *)
				    "pathname-default")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((29) + 1))]))
	  = (((((memory_to_symbol ((16L),
				   ((unsigned char *)
				    "parse-namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((30) + 1))]))
	  = (((((memory_to_symbol ((12L),
				   ((unsigned char *)
				    "->namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((31) + 1))]))
	  = (((((memory_to_symbol ((15L),
				   ((unsigned char *)
				    "file-namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((32) + 1))]))
	  = (((((memory_to_symbol ((20L),
				   ((unsigned char *)
				    "directory-namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((33) + 1))]))
	  = (((((memory_to_symbol ((15L),
				   ((unsigned char *)
				    "host-namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((34) + 1))]))
	  = (((((memory_to_symbol ((17L),
				   ((unsigned char *)
				    "enough-namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((35) + 1))]))
	  = (((((memory_to_symbol ((20L),
				   ((unsigned char *)
				    "pathname->namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((36) + 1))]))
	  = (((((memory_to_symbol ((27L),
				   ((unsigned char *)
				    "*default-pathname-defaults*")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((37) + 1))]))
	  = (((((memory_to_symbol ((15L),
				   ((unsigned char *)
				    "merge-pathnames")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((38) + 1))]))
	  = (((((memory_to_symbol ((15L),
				   ((unsigned char *)
				    "enough-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((39) + 1))]))
	  = (((((memory_to_symbol ((10L),
				   ((unsigned char *)
				    "host-types")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((40) + 1))]))
	  = (((((memory_to_symbol ((10L),
				   ((unsigned char *)
				    "local-host")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((41) + 1))]))
	  = (((tmpObj4)));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((42) + 1))]))
	  = (((((memory_to_symbol ((14L),
				   ((unsigned char *)
				    "make-host-type")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((43) + 1))]))
	  = (((((memory_to_symbol ((15L),
				   ((unsigned char *)
				    "host-type/index")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((44) + 1))]))
	  = (((((memory_to_symbol ((14L),
				   ((unsigned char *)
				    "host-type/name")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((45) + 1))]))
	  = (((((memory_to_symbol ((36L),
				   ((unsigned char *)
				    "host-type/operation/parse-namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((46) + 1))]))
	  = (((((memory_to_symbol ((40L),
				   ((unsigned char *)
				    "host-type/operation/pathname->namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((47) + 1))]))
	  = (((((memory_to_symbol ((33L),
				   ((unsigned char *)
				    "host-type/operation/make-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((48) + 1))]))
	  = (((((memory_to_symbol ((34L),
				   ((unsigned char *)
				    "host-type/operation/pathname-wild?")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((49) + 1))]))
	  = (((((memory_to_symbol ((41L),
				   ((unsigned char *)
				    "host-type/operation/pathname-as-directory")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((50) + 1))]))
	  = (((((memory_to_symbol ((46L),
				   ((unsigned char *)
				    "host-type/operation/directory-pathname-as-file")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((51) + 1))]))
	  = (((((memory_to_symbol ((38L),
				   ((unsigned char *)
				    "host-type/operation/pathname->truename")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((52) + 1))]))
	  = (((((memory_to_symbol ((41L),
				   ((unsigned char *)
				    "host-type/operation/user-homedir-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((53) + 1))]))
	  = (((((memory_to_symbol ((38L),
				   ((unsigned char *)
				    "host-type/operation/init-file-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((54) + 1))]))
	  = (((((memory_to_symbol ((37L),
				   ((unsigned char *)
				    "host-type/operation/pathname-simplify")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((55) + 1))]))
	  = (((((memory_to_symbol ((38L),
				   ((unsigned char *)
				    "host-type/operation/end-of-line-string")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((56) + 1))]))
	  = (((((memory_to_symbol ((41L),
				   ((unsigned char *)
				    "host-type/operation/pathname-canonicalize")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((57) + 1))]))
	  = (((((memory_to_symbol ((10L),
				   ((unsigned char *)
				    "host-type?")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((0) + 1))]))
	  = (((((memory_to_symbol ((10L),
				   ((unsigned char *)
				    "%make-host")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((1) + 1))]))
	  = (((((memory_to_symbol ((15L),
				   ((unsigned char *)
				    "host/type-index")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((2) + 1))]))
	  = (((((memory_to_symbol ((9L),
				   ((unsigned char *)
				    "host/name")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((3) + 1))]))
	  = (((((memory_to_symbol ((5L),
				   ((unsigned char *)
				    "host?")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((0) + 1))]))
	  = (((((memory_to_symbol ((9L),
				   ((unsigned char *)
				    "make-host")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((1) + 1))]))
	  = (((((memory_to_symbol ((9L),
				   ((unsigned char *)
				    "host/type")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((2) + 1))]))
	  = (((((memory_to_symbol ((6L),
				   ((unsigned char *)
				    "host=?")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((3) + 1))]))
	  = (((((memory_to_symbol ((14L),
				   ((unsigned char *)
				    "guarantee-host")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((4) + 1))]))
	  = (((((memory_to_symbol ((31L),
				   ((unsigned char *)
				    "host-operation/parse-namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((5) + 1))]))
	  = (((((memory_to_symbol ((35L),
				   ((unsigned char *)
				    "host-operation/pathname->namestring")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((6) + 1))]))
	  = (((((memory_to_symbol ((28L),
				   ((unsigned char *)
				    "host-operation/make-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((7) + 1))]))
	  = (((((memory_to_symbol ((29L),
				   ((unsigned char *)
				    "host-operation/pathname-wild?")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((8) + 1))]))
	  = (((((memory_to_symbol ((36L),
				   ((unsigned char *)
				    "host-operation/pathname-as-directory")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((9) + 1))]))
	  = (((((memory_to_symbol ((41L),
				   ((unsigned char *)
				    "host-operation/directory-pathname-as-file")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((10) + 1))]))
	  = (((((memory_to_symbol ((33L),
				   ((unsigned char *)
				    "host-operation/pathname->truename")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((11) + 1))]))
	  = (((((memory_to_symbol ((36L),
				   ((unsigned char *)
				    "host-operation/user-homedir-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((12) + 1))]))
	  = (((((memory_to_symbol ((33L),
				   ((unsigned char *)
				    "host-operation/init-file-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((13) + 1))]))
	  = (((((memory_to_symbol ((32L),
				   ((unsigned char *)
				    "host-operation/pathname-simplify")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((14) + 1))]))
	  = (((((memory_to_symbol ((33L),
				   ((unsigned char *)
				    "host-operation/end-of-line-string")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((15) + 1))]))
	  = (((((memory_to_symbol ((36L),
				   ((unsigned char *)
				    "host-operation/pathname-canonicalize")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((16) + 1))]))
	  = (((((memory_to_symbol ((10L),
				   ((unsigned char *)
				    "->truename")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((17) + 1))]))
	  = (((((memory_to_symbol ((21L),
				   ((unsigned char *)
				    "user-homedir-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((18) + 1))]))
	  = (((((memory_to_symbol ((18L),
				   ((unsigned char *)
				    "init-file-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((19) + 1))]))
	  = (((((memory_to_symbol ((23L),
				   ((unsigned char *)
				    "system-library-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((20) + 1))]))
	  = (((((memory_to_symbol ((22L),
				   ((unsigned char *)
				    "library-directory-path")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((21) + 1))]))
	  = (((((memory_to_symbol ((33L),
				   ((unsigned char *)
				    "system-library-directory-pathname")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((22) + 1))]))
	  = (((((memory_to_symbol ((16L),
				   ((unsigned char *)
				    "known-host-types")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((23) + 1))]))
	  = (((((memory_to_symbol ((28L),
				   ((unsigned char *)
				    "make-unimplemented-host-type")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((24) + 1))]))
	  = (((((memory_to_symbol ((20L),
				   ((unsigned char *)
				    "available-host-types")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((25) + 1))]))
	  = (((((memory_to_symbol ((23L),
				   ((unsigned char *)
				    "add-pathname-host-type!")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((26) + 1))]))
	  = (((((memory_to_symbol ((14L),
				   ((unsigned char *)
				    "reset-package!")))))));

	((((((SCHEME_OBJECT *)
	     (((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
	      | 0x40000000))))
	  [(((27) + 1))]))
	  = (((((memory_to_symbol ((19L),
				   ((unsigned char *)
				    "initialize-package!")))))));

	current_block[168] = 0x20000001;

	current_block[167]
	  = ((memory_to_string
	      ((41L),
	       (unsigned char *)
	       "/scheme/users/jawilson/runtime/pathnm.inf")));

	current_block[166]
	  = (cons
	     ((cons
	       (((memory_to_symbol ((4L), ((unsigned char *) "unix")))),
		(long_to_integer (0L)))),
	      (cons
	       ((cons (((memory_to_symbol ((3L), ((unsigned char *) "dos")))),
		       (long_to_integer (1L)))),
		(cons
		 ((cons (((memory_to_symbol ((3L),
					     ((unsigned char *) "vms")))),
			 (long_to_integer (2L)))), 0x00000000))))));

	current_block[165] = tmpObj1;

	current_block[164] = ((memory_to_string ((4L),
						 (unsigned char *) "host")));

	current_block[163]
	  = (cons (((memory_to_symbol ((10L),
				       ((unsigned char *) "type-index")))),
		   (cons (tmpObj5, 0x00000000))));

	current_block[162] = (cons ((long_to_integer (1L)),
				    (cons ((long_to_integer (2L)),
					   0x00000000))));

	current_block[161]
	  = ((memory_to_symbol ((25L),
				((unsigned char *)
				 "#[(runtime pathname)host]"))));

	current_block[160] = tmpObj2;

	current_block[159] = tmpObj6;

	current_block[158]
	  = ((search_for_primitive (0x00000000, "vector",
				    ((Boolean) 1), ((Boolean) 1), -1)));

	current_block[157] = tmpObj3;

	current_block[156] = tmpObj4;

	current_block[155] =
	  ((memory_to_string ((9L), (unsigned char *) "host-type")));

	current_block[154]
	  = (cons
	     (((memory_to_symbol ((5L), ((unsigned char *) "index")))),
	      (cons
	       (tmpObj5,
		(cons
		 (((memory_to_symbol
		    ((26L),
		     ((unsigned char *) "operation/parse-namestring")))),
		  (cons
		   (((memory_to_symbol
		      ((30L),
		       ((unsigned char *) "operation/pathname->namestring")))),
		    (cons
		     (((memory_to_symbol
			((23L),
			 ((unsigned char *) "operation/make-pathname")))),
		      (cons
		       (((memory_to_symbol
			  ((24L),
			   ((unsigned char *) "operation/pathname-wild?")))),
			(cons
			 (((memory_to_symbol
			    ((31L),
			     ((unsigned char *)
			      "operation/pathname-as-directory")))),
			  (cons
			   (((memory_to_symbol
			      ((36L),
			       ((unsigned char *)
				"operation/directory-pathname-as-file")))),
			    (cons
			     (((memory_to_symbol
				((28L),
				 ((unsigned char *)
				  "operation/pathname->truename")))),
			      (cons
			       (((memory_to_symbol
				  ((31L),
				   ((unsigned char *)
				    "operation/user-homedir-pathname")))),
				(cons
				 (((memory_to_symbol
				    ((28L),
				     ((unsigned char *)
				      "operation/init-file-pathname")))),
				  (cons
				   (((memory_to_symbol
				      ((27L),
				       ((unsigned char *)
					"operation/pathname-simplify")))),
				    (cons
				     (((memory_to_symbol
					((28L),
					 ((unsigned char *)
					  "operation/end-of-line-string")))),
				      (cons
				       (((memory_to_symbol
					  ((31L),
					   ((unsigned char *)
					    "operation/pathname-canonicalize")))),
					     0x00000000))))))))))))))))))))))))))));

	current_block[153]
	  = ((memory_to_symbol ((6L), ((unsigned char *) "vector"))));

	current_block[152]
	  = ((memory_to_string ((8L), (unsigned char *) "pathname")));

	current_block[151]
	  = (cons
	     (tmpObj6,
	      (cons
	       (((memory_to_symbol ((6L), ((unsigned char *) "device")))),
		(cons
		 (((memory_to_symbol ((9L), ((unsigned char *) "directory")))),
		  (cons
		   (tmpObj5,
		    (cons
		     (((memory_to_symbol ((4L), ((unsigned char *) "type")))),
		      (cons
		       (((memory_to_symbol
			  ((7L), ((unsigned char *) "version")))),
			0x00000000))))))))))));

	current_block[150]
	  = (cons
	     ((long_to_integer (1L)),
	      (cons
	       ((long_to_integer (2L)),
		(cons
		 ((long_to_integer (3L)),
		  (cons
		   ((long_to_integer (4L)),
		    (cons
		     ((long_to_integer (5L)),
		      (cons
		       ((long_to_integer (6L)),
			0x00000000))))))))))));

	current_block[149]
	  = ((memory_to_symbol ((29L), ((unsigned char *)
					"#[(runtime pathname)pathname]"))));

	current_block[148] = tmpObj7;

	current_block[147]
	  = ((memory_to_symbol ((8L), ((unsigned char *) "pathname"))));

	return (current_block);

}
------------------------------ end of test.c ------------------------------