Current File : /home/mmdealscpanel/yummmdeals.com/goops.tar
simple.go000064400000003330150525613460006372 0ustar00GOOF----LE-8-2.0�]D4h2]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gsimple�		�	
gfilenameS�	foop/goops/simple.scm�	gimportsS�	
g	accessors�	
�	�	�	gexportsS�	gdefine-class�	�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	gany�	geach-any�	 ��	!g
syntax-object�	"g$define-class-with-accessors-keywords�	#gtop�	$#�	%gribcage�	&gdummy�	'garg�	(&'�	)g
m-1f33f87a8-1�	*)#�	+*$�	,f
l-1f33f87a8-6�	-f
l-1f33f87a8-7�	.,-�	/%(+.�	0%�	1gx�	21�	3*�	4f
l-1f33f87a8-3�	54�	6%235�	7$/06�	8ghygiene�	98�	:!"79�	;gsyntax-violation�	<;�	=;�	>f-source expression failed to match any pattern�	?gmodule-use!�	@gmodule-public-interface�	Agcurrent-module�	Bgresolve-interface�	C�C5h��]4	
54>"G4 :h>]�C6gdummy
		garg					C=>h(�]	45$@6�gx
		"gtmp		"gfilenamefoop/goops/simple.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgargg...C5R?i4@i4Ai554BiC56�gm
		,gfilenamefoop/goops/simple.scm�		
��w		
��|		&���		
���		
���		 ���		
���	
��		�
C6dispatch.go000064400000024204150525613460006703 0ustar00GOOF----LE-8-2.0l(]a4h�]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gdispatch�		�	
gfilenameS�	foop/goops/dispatch.scm�	gimportsS�	
�	
�	gutil�	�	�	gsystem�	gbase�	gtarget�	�	�	�	gexportsS�	gmemoize-method!�	�	gset-current-module�	�	�	gcurrent-module�	g*dispatch-module*�	 ggensym�	!fa�	"ft�	#gappend�	$#�	%#�	&grest�	'glet�	(gmap�	)gclass-of�	*fp�	+gif�	,gand�	-gapply�	.&�	/gassq-ref�	0geq?�	1fc�	2g
cache-miss�	3gcons*�	4glist�	5gemit-linear-dispatch�	6gmake-vector�	7fg�	8g
vector-length�	9glambda�	:gcdr�	;gcase-lambda�	<gcar�	=gwith-target�	>g
%host-type�	?gcompile�	@?�	A@?�	B@?�	CgenvS�	DgfromS�	Egscheme�	FgoptsS�	Gg
partial-eval?S�	Hgcse?S�	IGH�	Jgargs�	KJ�	Lgmax�	Mgcompute-dispatch-procedure�	Ng
timer-init�	Ogslot-ref�	Pgeffective-methods�	Qg	slot-set!�	Rg	procedure�	Sgcache-dispatch�	Tgdelayed-compile�	Ug
n-specialized�	V	)�	W	)�	Xgcompute-cmethod�	Y
X�	Z
X�	[gmemoize-effective-method!�	\gcompute-applicable-methods�	]g%compute-applicable-methods�	^gno-applicable-method�	_gset-procedure-property!�	`gsystem-procedure�C5h8!�]4	
54>"G4i5R h8�]" 
�$C�45�"����"����gn
		2gstem		2gn			&gsyms			&gfilenamefoop/goops/dispatch.scm�
	@	��		A	��	
	B	
��		B	��		D	��		D	��		D	��	&	D	
��	&	A	��	)	A	��	*	A	��	2	A	��
		2	gnameggen-syms�C!"%&'()hp]Chgt
		ga		gfilenamefoop/goops/dispatch.scm�
	P	��		Q	��			C *+,-./01234hX&]e4545"(.$
45"45
	D"�(L4	
5��	����$
45��"�

	"��v4
�5$!�
���
"��{4	5
����
���
"��J	��
"��4$45�"�
	"���ggf-sym
	Tgnargs	Tgmethods		Tgfree		Tgrest?		Tggen-syms		Tgargs		Tgtypes		Tgmethods		 $gfree			 $gexp	
	 $gfree		Xgtypes		Xgspecs	
	Xgchecks		Xgm-sym		e�gvar	�gvar	�gfilenamefoop/goops/dispatch.scm�
	?
��		E	��	
	E	��		E	��		E	��		F	��		F	 ��		F	��		E	��	 	G	��	&	M	��	,	O	��	-	O	��	=	O	��	>	P	��	M	O	��	T	O	��	X	W	��	^	[	
��	_	\	��	c	\	#��	e	\	��	e	\	��	j	]	��	m	^	'��	p	^	��	s	^	��	x	a	���	b	���	c	���	d	���	a	���	]	���	f	���	f	(���	f	���	f	���	g	���	i	���	j	���	k	"���	k	)���	k	"���	k	���	h	���	m	���	m	'���	m	���	m	���	n	%���	n	���	o	���	p	���	q	$���	q	+���	q	$��	q	��	n	��	W	��	Y	(��	Y	��	Z	��$	W	��$	G	��*	I	��2	J	 ��4	K	$��D	L	$��J	I	��T	G	��G	T	gnamegemit-linear-dispatch�C5R6 785hpb]4L5�$KL�(�"���4L>G��"���L4L5�6Zgn
		kgclauses		kgfree			kgmethods			[gclause		@	[gfree		@	[gfilenamefoop/goops/dispatch.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	��	.�	��	/�	��	C�	��	J�	��	O�	&��	[�	��	^�	��	e�	��	k�	��		k	gnameg	emit-rest�C9(:;<=>BCDEFIh �]4L5L@�gp
		gfilenamefoop/goops/dispatch.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	
��			
C5
h��]
�$/45�45O6L�(�"���4	L>G��"��~�gn
	�gclauses	�gfree		�gexp		&	9gvals		&	9gmethods		>�gclause		i�gfree		i�gfilenamefoop/goops/dispatch.scm�
�	��	�	��	
�	��	�	��	
�	��	�	��	�	��	&�	��	9�	��	>�	��	>�	��	F�	��	I�	��	W�	��	X�	��	l�	��	s�	��	x�	%����	��	�	gnamegemit-req�C8J2KLhH�]R"-(�4�54�5"�(y45O	O

	Q	
Q
	
45
�$"
��$	��"�6�	�$�
������"��Y�
������"��;"��3�	�$�4
�
�5"����4
�
�5"���	�	�"����ggf
	Cgcache	Cgls		3gnreq		3gnrest		3greq		�grest		�gls		&�ggf-sym		3�g	emit-rest			K�gemit-req	
	K�gt		m�gn	��gn	��gfilenamefoop/goops/dispatch.scm�
	t
��		v	��		w	��	
	y	��		y	��		y	(��		y	��		z	��		z	��		z	)��		z	��		y	��	&�	��	,�	��	-�	��	1�	��	3�	��	3�	��	e�	 ��	l�	��	m�	��	~�	 ��	�	����	����	����	����	����	����	"����	����	����	����	����	����	����	����	$����	-����	����	
����	����	
����	����	����	����	#����	,����	����	
����	����	
����	���	{	���	{	���	w	��	|	��	|	��
	|	1��	|	%��	|	��	|	��	~	��	~	��#	~	+��%	~	��'	~	��3	~	��3	v	��E	C	gnamegcompute-dispatch-procedure�CMR	NRNMOPQRShP�-13M�NM
�$.4L4L554L>"G@L6�gargs
			Lgdispatch	&	Dgfilenamefoop/goops/dispatch.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	"�	)��	$�	��	&�	��	&�	��	)�	
��	/�	��	6�	
��	D�	
��	L�	��			L


Ch�]	HOC�ggf
		gtimer		gfilenamefoop/goops/dispatch.scm�
�
��	�	��		gnamegdelayed-compile�CTRh8]
�$"�$C4�54L��5�Cgn
		6gf		6gls			6gt			gfilenamefoop/goops/dispatch.scm�
�	��	�	��	�	��	�	��	�	��	�	��	 �	��	%�	��	'�	��	(�	��	-�	&��	2�	/��	4�	��	5�	��		6	gnameg	map-until�Ch8�]�$#�$��&��"���CC(�CC�gx
		8gy		8gfilenamefoop/goops/dispatch.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	'��	�	��	�	"��	 �	*��	(�	��	2�	��	5�	��		8	gnamegequal?�COUW2Ph��]"OOQQ45$X4455"1(64��5$
�	�@�"���45"���6�ggf
	�gargs	�g	map-until		�gequal?		�gtypes		;�gcache		A	rgfilenamefoop/goops/dispatch.scm�
�
��	�	��	#�	��	%�	��	)�	��	*�	��	-�	��	3�	+��	5�	��	;�	��	;�	��	A�	��	G�	
��	O�	��	P�	��	U�	%��	W�	��	[�	��	_�	
��	b�	$��	e�	��	i�	��	l�	��	r�	��	r�	��	s�	��	y�	%��	{�	����	����	��	�	gnamegcache-dispatch�CSRh�]45@�ggf
		gargs		gfilenamefoop/goops/dispatch.scm�
�
��	�		��	�	��			gnameg
cache-miss�C2Rh0�]

�$"�$C�4L��5�C�gls
		/gn		/gt			gfilenamefoop/goops/dispatch.scm�
�	��	�	��	�	��	�	��	�	��	�	��	"�	��	#�	��	(�	 ��	+�	)��	-�	��	.�	��
		/	gnamegfirst-n�C(WZOPQRTUh z]3O"�(`454545�4>"G44	5>"GC4
5�$4455"��"��_"V4545�4>"G44	5>"GCQ
"���rggf
	gargs	g
applicable		gn		�gls		�gtypes			tgcmethod		(	tgcache		>	tglen	�	grest?	�	gtypes	�	gcmethod	�	gcache	�	gfirst-n		gfilenamefoop/goops/dispatch.scm�
�
��	�	��	�	��	�	��	�	��	 �	��	"�	��	(�	��	(�	��	4�	��	5�	��	;�	%��	=�	��	>�	��	>�	��	A�	��	G�	��	N�	��	W	��	]	��	^	��	i	��	w�	��	}�	��	�	����	����	����	����	'����	����	����	����	����	����	����	����	����	����	����	����	����	%����	����	����	����	����	����	���	���	���	���	��	��6		gnamegmemoize-effective-method!�C[R\][^h8�]
4&"5$
66�ggf
		3gargs		3g
applicable			3gfilenamefoop/goops/dispatch.scm�
	
��	
	��	
	��	
	��	
	��	!	��	+	��	3	��			3	gnamegmemoize-method!�CR_ii`6�gm
		,gfilenamefoop/goops/dispatch.scm�		
��	-		��	6	
���	?
��	t
���
��<�
��P�
���
����
��!*	
��!4	)��!7
��	!7
C6accessors.go000064400000006265150525613460007100 0ustar00GOOF----LE-8-2.0�]44hp]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	g	accessors�		�	
gfilenameS�	foop/goops/accessors.scm�	gimportsS�	
�	
�	�	gexportsS�	gdefine-class-with-accessors�	g$define-class-with-accessors-keywords�	�	g
re-exportsS�	gstandard-define-class�	�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	 �	!g_�	"gany�	#!"��	$g
syntax->datum�	%$�	&$�	'g
datum->syntax�	('�	)'�	*gmap-in-order�	+gkeyword?�	,gget-keyword�	-gaccessorS�	.gsyntax-violation�	/.�	0.�	1f-source expression failed to match any pattern�	2ginit-keywordS�	3gsymbol->keyword�C5hx[]4	
5	4>"G4 #&)*+,-hX�]	M$NC45$NC�$$4�5$C�����CC�gslot
		Tgname	;	Jgfilenamefoop/goops/accessors.scm�
			��			��			��		!	��			��		"	��	"	$	��	&		��	'	%	��	.	%	.��	1	%	��	5	%	��	;	'	"��	;	'	��	A	(	��	F	(	3��	G	(	��	N	*	��		TCh(�-13H4O5���C�gname
			$gsupers			$gslots				$geat?		
	$gfilenamefoop/goops/accessors.scm�
	
��	
		��			��			��	!		��			$	
	Chk]	45L4?6cgargs
		gv			gfilenamefoop/goops/accessors.scm�		
��		C01h(i]	45$O@6agy
		'gtmp		'gfilenamefoop/goops/accessors.scm�
	
��		'C5R4 #&)*+,-23h��]M$NC45$NC�$X4�5$"�����4�5$C�45����C45C�gslot
	�gname	>	Ogslot	O	~gname		f	~gkeyword		o	~gfilenamefoop/goops/accessors.scm�
	2		��		3	��		4	��		6	��		3	��		7	��	"	9	��	&	3	��	'	;	��	.	;	5��	1	;	��	5	;	��	>	=	)��	>	=	��	D	>	��	I	>	:��	J	>	��	O	:	��	R	?	��	Y	?	4��	\	?	��	`	?	��	f	A	%��	f	A	��	i	B	(��	o	A	��	u	C	��	z	C	<��	{	C	���	E	���	F	*���	E	��!	�Ch(�-13H4O5���C�gname
			$gsupers			$gslots				$geat?		
	$gfilenamefoop/goops/accessors.scm�
	-
��	
	.	��		/	��		1	��	!	/	��			$	
	Chk]	45L4?6cgargs
		gv			gfilenamefoop/goops/accessors.scm�		-
��		C01h(i]	45$O@6agy
		'gtmp		'gfilenamefoop/goops/accessors.scm�
	-
��		'C5RCSgm
		0gfilenamefoop/goops/accessors.scm�		
��	x
C6stklos.go000064400000012045150525613460006423 0ustar00GOOF----LE-8-2.0
]�4h�
]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gstklos�		�	
gfilenameS�	foop/goops/stklos.scm�	gimportsS�	
ginternal�	
�	�	�	gset-current-module�	�	�	gmodule-for-each�	gmodule-add!�	gmodule-public-interface�	gcurrent-module�	gresolve-interface�	�	gcall-with-deferred-observers�	�	�	gmodule-export!�	�	�	 �	!�	"gdefine-class�	#g
define-method�	$"#�	%gwrite-object�	&%�	'gread-options�	('�	)'�	*gappend�	+*�	,*�	-gkeywords�	.gprefix�	/gmake-syntax-transformer�	0/�	1/�	2gmacro�	3g$sc-dispatch�	43�	53�	6gany�	7geach-any�	877��	968��	:69��	;6:��	<g
syntax-object�	=gstandard-define-class�	>gtop�	?>�	@gribcage�	Agdummy�	Bgname�	Cgsupers�	Dgslot�	Egrest�	FABCDE�	Gg
m-1f4787962-8�	HG>�	IH????�	Jf
l-1f4787962-d�	Kf
l-1f4787962-e�	Lf
l-1f4787962-f�	Mfl-1f4787962-10�	Nfl-1f4787962-11�	OJKLMN�	P@FIO�	Q@�	Rgx�	SR�	TH�	Uf
l-1f4787962-a�	VU�	W@STV�	X?PQW�	Yghygiene�	ZY�	[<=XZ�	\gsyntax-violation�	]\�	^\�	_f-source expression failed to match any pattern�	`gmodule-define!�	agtoplevel-define!�	bgfree-id�	cgsetter�	dgm-1f4787962-1d�	ed>�	fe�	gfl-1f4787962-1f�	hg�	i@Sfh�	j?Qi�	k<cjZ�	lbk�	ml6�	nm7��	o6n��	pgbegin�	qABE�	re??�	sfl-1f4787962-22�	tfl-1f4787962-23�	ufl-1f4787962-24�	vstu�	w@qrv�	x?wQi�	y<pxZ�	zgif�	{<zxZ�	|gor�	}<|xZ�	~gnot�	<~xZ��gdefined?��<�xZ��gquote��<�xZ��gis-a?��<�xZ��g<generic-with-setter>��<�xZ�����<axZ��gensure-accessor��<�xZ��<xZ�����gadd-method!��<�xZ��<cxZ��gmethod��<�xZ��67���6����fl-1f4787962-2a��fl-1f4787962-2b��fl-1f4787962-2c�������@qr���?�Qi��<p�Z��<z�Z��<|�Z��<~�Z��<��Z��<��Z��<��Z��g	<generic>��<��Z�����g<primitive-generic>��<��Z�����<a�Z��gensure-generic��<��Z��<�Z�����<��Z��<��Z�C5h��]4	
54>"G4ih�]44556�gsym
		gvar		gfilenamefoop/goops/stklos.scm�
	#	��		$	 ��		$	9��		$	 ��		$	��			C4i5>"G4!$hF]456>gfilenamefoop/goops/stklos.scm�
	)
��		
C>"G4!&hF]456>gfilenamefoop/goops/stklos.scm�
	,
��		
C>"G4)4,4)5-.5>"G41"25;[,hw]45���Cogdummy
		gname		gsupers			gslot			grest						C^_h(�]	45$@6�gx
		"gtmp		"gfilenamefoop/goops/stklos.scm�
	1
��		"g
macro-typegsyntax-rules�gpatternsgnamegsupersgslotg...grestg...C5"R`h�]456�gname
		gval		gfilenamefoop/goops/stklos.scm�
	4
��		5	��		5	��			gnamegtoplevel-define!�CaR41#25oy{}����������hpQ]��	
���
�CIgdummy
		ngname		ngrest			n		n	C���������������hxQ]��	��
���
�CIgdummy
		vgname		vgrest			v		v	C^_h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefoop/goops/stklos.scm�
	8	��		9g
macro-typegsyntax-rules�gpatternsgsettergnamegrestg...gnamegrestg...C5#RC�gm
		(gfilenamefoop/goops/stklos.scm�		
��	)	#
���	&	���	&	$���	&	���	#
���	)
��t	,
���	/
��	/	��	/
���	4
��
	�
C6active-slot.go000064400000010466150525613460007343 0ustar00GOOF----LE-8-2.0]�4h�]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gactive-slot�		�	
gfilenameS�	foop/goops/active-slot.scm�	gimportsS�	
ginternal�	
�	�	�	gexportsS�	g<active-class>�	�	gset-current-module�	�	�	�	gtoplevel-define!�	�	�	g
make-class�	g<class>�	gnameS�	gdefined?�	�	 �	!gis-a?�	"!�	#!�	$�	%�	&gmemq�	'g<object>�	('�	)'�	*gclass-precedence-list�	+*�	,*�	-gclass-redefinition�	.-�	/-�	0gcompute-get-n-set�	1gmake�	21�	31�	4g	<generic>�	54�	64�	7gadd-method!�	87�	97�	:g<method>�	;:�	<:�	=gspecializersS�	>g<top>�	?>�	@>�	AgformalsS�	Bgclass�	Cgslot�	DBC�	EgbodyS�	Fgif�	Ggeq?�	Hgslot-definition-allocation�	IHC�	JgactiveS�	KGIJ�	Lglet*�	Mgindex�	Ngslot-ref�	Ogquote�	Pgnfields�	QOP�	RNBQ�	SMR�	Tgs�	Ugcdr�	VUC�	WTV�	Xg
before-ref�	Ygget-keyword�	Zgbefore-slot-refS�	[YZT�	\X[�	]g	after-ref�	^gafter-slot-refS�	_Y^T�	`]_�	agbefore-set!�	bgbefore-slot-set!S�	cYbT�	dac�	eg
after-set!�	fgafter-slot-set!S�	gYfT�	heg�	igunbound�	jgmake-unbound�	kj�	lik�	mSW\`dhl�	ng	slot-set!�	og+�	poM�	qnBQp�	rglist�	sglambda�	tgo�	ut�	vXt�	wglet�	xgres�	yg%fast-slot-ref�	zytM�	{xz�	|{�	}gand�	~gnot�	geqv?��xi��~���]t��}]����w|�x��Fv�k��FX����su���gv��t���at���gbegin��g%fast-slot-set!���tM���et���}e��������F����Fa����s����r����Lmq���gnext-method�����FK�������gmake-procedureS��g	procedureS�C5h|]4	
54>"G"+44ii5>"xG"q4 5$b4#i%5$K4&i)4,i55$-4/i4ii5>"G""��t""��l""��d4 05�$"0i�$!4043605>"G"90i43<=i@ADE��HJNPYZ^bfjnyjh��]	L$F4L5$74L5L$#L�$"4L>"G"C64L5L$#L�$"4L>"G"C�go
	�gres		Jgres	W�gfilenamefoop/goops/active-slot.scm�
	*	��		+	��			,	��		,	��		-	#��		-	��	$	.	��	)	.	.��	-	.	��	2	.	B��	N	0	��	O	1	��	W	1	��	_	2	��	d	2	*��	h	2	��	m	2	>��	�C�hh�]L$54L5$&4L>"GL$L6CC4L>"GL$L6C�go
		cgv		cgfilenamefoop/goops/active-slot.scm�
	5	��		6	��			7	��		7	��		9	��	1	:	��	9	:	*��	>	<	��	Y	=	��	a	=	&��		c	Ch��]:45&z45�4545454	54
54�>"GO
OCL6�gclass
	�gslot	�gindex		�gs		�g
before-ref		)�g	after-ref		5�gbefore-set!		A�g
after-set!		M�gunbound		T�	gfilenamefoop/goops/active-slot.scm�
	 
��		!	��		!	��		"	��		"	*��		"	��		"	��		#	��		"	��	 	$	��	)	"	��	,	%	��	5	"	��	8	&	��	A	"	��	D	'	��	M	"	��	P	(	��	T	"	��	W	)	��	]	)	��	`	)	"��	e	)	���	*	���	 
��	�	Chj]OCbgreal-next-method
		
gfilenamefoop/goops/active-slot.scm�
	 
��		
C�56tgm
		,gt
��gfilenamefoop/goops/active-slot.scm�		
��	1	
���	 
��	
C6save.go000064400000146545150525613460006057 0ustar00GOOF----LE-8-2.0M�]�4h�.]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gsave�		�	
gfilenameS�	foop/goops/save.scm�	gimportsS�	
ginternal�	
�	�	gutil�	�	�	�	gexportsS�	gsave-objects�	gload-objects�	grestore�	g
enumerate!�	genumerate-component!�	gwrite-readably�	gwrite-component�	gwrite-component-procedure�	gliteral?�	greadable�	g
make-readable�	 �	!g
re-exportsS�	"gmake-unbound�	#"�	$gset-current-module�	%$�	&$�	'�	(gdefined?�	)'(�	*'(�	+g
immediate?�	,gtoplevel-define!�	-',�	.',�	/gmake�	0'/�	1'/�	2g	<generic>�	3'2�	4'2�	5gnameS�	6gadd-method!�	7'6�	8'6�	9g<method>�	:'9�	;'9�	<gspecializersS�	=g<top>�	>gformalsS�	?go�	@?�	AgbodyS�	B�	Cgmake-procedureS�	Dg	procedureS�	Eg<null>�	F�	Gg<number>�	Hg	<boolean>�	Ig<symbol>�	Jg<char>�	Kg	<keyword>�	L'=�	M'=�	Ngenv�	O?N�	Pgfile�	Q?PN�	Rgwrite�	SR?P�	TS�	Ugmake-weak-key-hash-table�	Vg	readables�	Wgmake-syntax-transformer�	XW�	YW�	Zgmacro�	[g$sc-dispatch�	\[�	][�	^g_�	_gany�	`^_��	ag
syntax->datum�	ba�	ca�	dg
datum->syntax�	ed�	fd�	ggquote�	hg	copy-tree�	igsyntax-violation�	ji�	ki�	lf-source expression failed to match any pattern�	mg
hashq-set!�	ng	hashq-ref�	ogreadable-expression�	pg	readable?�	qg	excluded?�	rgdisplay�	sgobject-info�	tgbinding?�	ugvisiting�	vgdefinedS�	wgbinding�	xgor�	ygbegin�	zgadd-patcher!�	{g<string>�	|g<vector>�	}gnot�	~gvector?�	~?��}��glet�������garray-for-each��glambda��gif��?N��}���gset!�����������@�����?�������x�������gn��g
vector-length���?���������gzero?������f#()��r�P��gnot-literal?��?N��}����������f(vector ��f#(��������r�P��gand��g
vector-ref���?
���N�������r'P�������g
quasiquote��gvector-set!��gunquote���?��������
���������PN��gdo��gi��g+�������������g=����������r P���?����N��������������������������������PN����������r)P������������������������S������g<array>��gshared-array-root���?���N�����g
array-rank��greverse��g	list-tail��gt��gs��gr��gq��gp��gm��gl��gk��gj���������������ggensym��fi��gshared-array-offset��gmap��g*��g-��garray-dimensions��gshared-array-increments��gmake-mapper��g	array-ref��g
array-set!��gwrite-array��groot���������gcond��~���}���r#P���?��r�P���(?PN��y�������S�������t�N��f(make-shared-array ��r�P���N�������ggoops-error��f'write-readably(<array>): internal error��������PN��?�rP�gfor-each�gdim��rP�����?��	�������
gelse�f(list->uniform-array �rP�
f '() �r
P�f(list ��?PN�
����	�����g<pair>�gcar�?�N���gcdr�?�N����� �!gproper?�"gloop�#gls�$#?�%$�&gnull?�'&#�(gpair?�)(#�*#�+t*N�,}+�-"*�.�),-�/x'.�0�"%/�1!0�2g1?�3(�4}3�5tN�6x45�726�8ginfos�9g�:89�;grefs�<g	ref-stack�=<N�>;=�?17�:>�@}��A@(�B!�Cf(cons �D2C�Ef(cons* �F
E�G�ABDF�HrGP�IN�J��I�K�J��Lgset-car!�M��NL�M�O�N�POPN�Q#*�Rgprev�SR?#�TQS�U})�Vt#N�WxUV�X}'�Yf .�ZrYP�[�@Z�\#N�]��\�^�]��_gset-cdr!�`�R�a�#�b_`a�c�b�d#cPN�ey[�^d�f�Xe�gWf��hgcons�is#N�jhi8�k�8j�lg	push-ref!�ml#N�ng	visiting?�o8�pno�q�p�r#�srN�t��s�u�t��v�r�wLav�x�w�yrxPN�z�Tg�kmquy	�{ginfo�|{�}n{�~�}��|~��8���=;���?HKPz�������gsetter��������ginteger?��gstandard-get��gstandard-set��gmemq��gslot-definition-allocation��gclassS��g
each-subclassS������gclass-slots��gslot-ref��ggetters-n-setters��gget-set-for-each��gslot-definition-accessor��gslot-definition-name��ggeneric-function-name��gaccess-for-each��g@@��g%allocate-instance���'���9��gname��gval������g	slot-set!���?���������glist��g<object>��gget��gset�������?���������gunbound?������}����N�����������������gclass-of���?����������gclass���������f	(restore ��r�P��g
class-name������r�P��f (��r�P��gslotdefs��gfilter��gslotdef���������g��������gslot-bound?�������?����?���q�N�������x����}������������������������&���}����������r�P��r�P���������������y��������������ganame��������g#��r�P������q�N������N��������������������������������g���������������������PN��
�����������������������������������	�����g<class>���?��r�P������?��r�P����f#No read-syntax for <method> defined����gis-a?�'�'�g
<accessor>�'�'�	gensure-accessor�
'	�'	�gexcluded�
gpass-2?�gobjects�gpre-defines�glocals�g	stand-ins�gpost-defines�gpatchers�gmultiple-bound�g
<environment>�g
make-class�gaccessorS�g	init-formS�gmake-hash-table�	=�g
init-thunkS�g
init-valueS�'��'��'�� '��!gclass-precedence-list�"'!�#'!�$gclass-redefinition�%'$�&'$�'g
initialize�(ginitargs�)N(�*gnext-method�+*�,gget-keyword�-gexcludedS�.,-(�/g=>�0g	excludees�10�2ge�32�4ghashq-create-handle!�5N�6452�7�36�870�9�18�:./9�;�:�<+;�=sN�>n=?�?>�@'��A'��Bgx�C?NB�Dm=?B�ED�Fghashq-get-handle�Ggpop-ref!�Hg	container�Ig
<object-info>�Js?N�KwJ�LK�M+?�Nq?N�O{J�PO�Qt{�R}Q�Sgeq?�Tu{�UgdefiningS�VSTU�W=�X&W�Y�VX�ZxRY�[{�\�Z[�]�P\�^xMN]�_^�`gpass-2S�agbinding-name�bgbinding-object�cgpass-1!�dgstring->symbol�eg
string-append�ff%o�ggnumber->string�hg
make-local�igboolean?�jgname-bindings!�kgappend�lgpass-2!�mf(define �nf)
�og
write-define!�pgwrite-empty-defines!�qgwrite-definition!�rf(let* (�sf(�tf	
       (�ugwrite-let*-head!�vgwrite-rebindings!�wgnewline�xgwrite-definitions!�ygassq�zgwrite-patches!�{gwrite-immediates!�|gwrite-readables!�}galist�~grest�P~���}���gport��gopen-output-file���P���������gapply���}�~��g
close-port������g
*unspecified*������������g
<output-port>��g>=��glength���~������~�����9�����guses����	��gcadr���~�����9����������/-��N������c}N��j}N��lN��&���}���guse-modules��gunquote-splicing��������������R�P��wP��y���������{}P��N��&���xmPN��f��z�PN��y����xmPN��pPN��uPN��f  (set! ��N��v��PN��x�PN��f  ��z�PN��f  )
��r�P��y���������������|}PN��N������vm�PN������������
����������P��glet*��gopen-input-file���P������������������������gmodule-public-interface��gcurrent-module��giface��g<input-port>��gmake-module������������gmodule-use!��gthe-scm-module������������gsave-module-excursion��$���gsexp��gread���P���������geof-object?������}���geval�������"���y����������"�������������g
module-map��gvar������gvariable-ref������h������������������������C5h(�#]4	
 !#5	4&>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<=i>@ABCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	X
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Ei>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	Z
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Gi>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	[
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Hi>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	\
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Ii>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	]
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Ji>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	^
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Ki>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	_
��		C5>"G4*5�$"i�$!4.41455>"G"48i41;<=iM>OAFCDhe]C]go
		genv		gfilenamefoop/goops/save.scm�
	e
��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<=iMM>QATCDRh]6wgo
		
gfile		
genv			
gfilenamefoop/goops/save.scm�
	g
��	
	i	��		
	C5>"G4Ui	=5VR4YZ]`cfghhn]45Cfgexp
		gfilenamefoop/goops/save.scm�
	r
��		s	��			s	��		s	��		Chf]	45L4?6^gargs
		gv			gfilenamefoop/goops/save.scm�		r
��		Cklh(d]	45$O@6\gy
		'gtmp		'gfilenamefoop/goops/save.scm�
	r
��		'C5RmVh �]4>"GC�gobj
		gexpr		gfilenamefoop/goops/save.scm�
	u
��		v	��			gnameg
make-readable�CRnVh�]45C�gobj
		gfilenamefoop/goops/save.scm�
	y
��		z	��		z	��		z	��		gnamegreadable-expression�CoRnVht]6lgobj
		
gfilenamefoop/goops/save.scm�
	~
��	
		��		
gnameg	readable?�CpR+Rpoqrstuvw
h��]45$4>"GC45$445>"GC45$4>"GC4545$*4	5
&445>"GCC4>"GC�go
	�gfile	�genv		�ginfo		t�gfilenamefoop/goops/save.scm�
�
��	�		��	
�	��	�	��	$�		��	.�	��	/�	��	2�	��	?�	��	J�		��	V�	��	W�	��	l�	��	t�		��	w�	����	����	����	����	����	 ����	����	(��	�	gnamegwrite-component-procedure�g
documentationfReturn #f if circular reference�CR4YZ]`cfxyrzh0�]C�gobject
		)gpatcher		)gfile			)genv			)gfilenamefoop/goops/save.scm�
�
��	�	��		)	Chg]	45L4?6_gargs
		gv			gfilenamefoop/goops/save.scm�	�
��		Cklh(e]	45$O@6]gy
		'gtmp		'gfilenamefoop/goops/save.scm�
�
��		'C5R4*5�$"i�$!4.41455>"G"48i41;<{iM>OABCDhf]C^go
		genv		gfilenamefoop/goops/save.scm�
�
��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<|iM>OA�CD�hq]4L5$CNCigo
		gfilenamefoop/goops/save.scm�
�	��	�	#��	�	��	�	��		Ch0�]
�$!H4O>"GJCC�go
		,genv		,gliteral?		
	*gfilenamefoop/goops/save.scm�
�
��	�	��		�	��	
�	��	
�	��	+�	��		,	C5>"G4*5�$"i�$!4.41455>"G"48i41;<|iMM>QA�CD�r���z�Rh��]#�$�45
�$645�4$">"G$+4
�5$4'>"G""4
�5$"14>"G4	

�>"G"��$"�4 >"G$,4�5$4'>"G""4�5$"34>"G4	�>"G�"��T"��M)6
6�go
	�gfile	�genv		�gn		�gnot-literal?		,�gt	��gi	�|gt	1sgfilenamefoop/goops/save.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	�	��	�	��	"�	��	#�	%��	,�	 ��	,�	��	/�	��	7�	��	9�	��	?�	��	F�	��	T�	��	U�	��	[�	!��	_�	��	c�	��	d�	����	����	����	����	3����	����	����	����	����	����	����	����	#���	���	���	��+�	!��1�	��U�	!��^�	6��a�	!��v�	��|�	����	����	��0	�	C5>"G4*5�$"i�$!4.41455>"G"48i41;<�iM>OA�CD�hx]456pgo
		genv		gfilenamefoop/goops/save.scm�
�
��	�	��	�	��			C5>"G������������h(�]�$�"C�gind
		!gdim		!ginc			!gfilenamefoop/goops/save.scm�
�	��	�	��		�	!��	
�	��	�	-��	�	7��	�	-��	 �	��			!	C��h��]454	�$4	�5"2"#
�$" �45�"���"���54	54
454
55��C�garray
	�gn		�gn		+	Ngls		+	Ngindices		[�gfilenamefoop/goops/save.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	*��	!�	D��	#�	��	+�	��	.�	%��	3�	!��	<�	+��	=�	1��	A�	9��	C�	1��	F�	+��	N�	%��	N�	��	Q�	.��	Y�	��	[�	��	[�	��	_�	��	d�	��	k�	��	r�	��	y�	����	����	�� 	�gnamegmake-mapper�C�Rr��rz�h�]"�(a�
�$"�4L4
�5?L$)4L5$4'L>"G""4LL5$"04L>"G4L���L>"G"��$C4 L>"G4L4�5?L$)4L5$4'L>"G""4LL5$"04L>"G4L���L>"G�"��I"��B�"t�$C
�$4 L>"G"4LL>"G4L��>"G4)L>"G�"���
"����gdims
	�gindices	�gn		jgel		*�gt		f�gi	�cgel	�Zgt	Wgn	m�gi	s�
gfilenamefoop/goops/save.scm�
�	��		��			��		��		
��	�	��	�	��	�	"��	 �	)��	&�	2��	(�	)��	*�	"��	*�	��	2�	��	3�	#��	?�	��	@�	��	f�	����	����	����	����	����	����	 ����	)����	2����	)����	 ����	����	����	#����	����	���	��<�	��]�	��c�	��m	��m	
��s	��x	��|	���	���	���	���	���		���		���		"���		���
	���	���	��6	�	gnamegloop�C�hX]
4>"GOQ445>"G)6�gprefix
		Ugo		Ugnot-literal?			Ugfile			Ugenv			Ugloop		#	Mgfilenamefoop/goops/save.scm�
�
��	�	��	#�	��	6�	��	=�	��	B�	��	U	��		U	gnamegwrite-array�C�R4*5�$"i�$!4.41455>"G"48i41;<�iMM>QACD�r��Rt�z���rh j]4 L>"GL6bgdim
		gfilenamefoop/goops/save.scm�
 	��	!	��	"	��		C�
h�=]4545$I�$:4#>"G445>"G(6645$�4>"G45$4'>"G"4	5$",4>"G4
45>"G4 >"G44
5>"G4O45>"G)64>"G445>"G4>"G65go
	�gfile	�genv		�groot			�gt	��gfilenamefoop/goops/save.scm�

��		��			��		��		��		��		��	 	��	4	��	7	��	D	��	Y	��	a	��	b	��	n	��	o	��	s	��	z	���	���	���	���	���	���	)���	���	��	��	��	�� 	��%#	��0 	��@$	��A&	��E&	��L&	��U'	��X'	��e'	��n(	��r(	��y(	���)	���)	��-	�	C5>"G4*5�$"i�$!4.41455>"G"48i41;<iM>OA CDh(�]
4�54�5$CC�go
		!genv		!gliteral?			!gfilenamefoop/goops/save.scm�
4
��	5	��	5	(��	5	��	5	��	6		��	6	��	6		��	6	��
		!	C5>"G4*5�$"i�$!4.41455>"G"48i41;<iMM>QA�CDt<rCEzLY_sl�n�nhb]456Zginfo
		gfilenamefoop/goops/save.scm�
d	��	e	��		Ch �]C"3("0�$4�5$"�"���""������$"
4�545�45H4$$"$""(>"G$*4�5$4'>"G""4�5$"/4>"G4	
�>"G"��$
45"$�("�$"4>"G4 >"G$)45$4'>"G""45

$".4>"G4		>"G
4)>"�G"�4 >"G4
5J�K4>"G445J�>"G$*4�5$4'>"G""4�5

$"/4>"G4	
�>"G
�	"��F�	"��94J>"G456�go
	gfile	genv		gls			9gt		F	agproper?		sg1?		sgnot-literal?		sginfos		sgrefs		sgt	�/gls	3�gprev		3�gt	
��gt	
��gfilenamefoop/goops/save.scm�
9
��	:	��	;	��	
;	��	<	��	<	��	=	!��	=	+��	"=	!��	&<	��	.>	"��	4>	��	9:	��	D?	��	E?	��	F?	��	F?	��	U@	��	Z@	��	^@	��	bA	��	kA	��	lB	��	mC	��	s:	��	~D	���D	
���E	���D	
���F	���G	���D	���I	���J	
���J	���J	
���I	���K	���L	���L	��L	��L	,��L	��3M	��6O	��:O		��;P	
��HO	
��LM	��RQ		��\S	��aT	��eT	��lT	��uU	���V	���W	���V	���X	���Y	���Y	#��Z		��[	��,\	��7\	��9\	��:]	��N^	��X^	��^^	��l_	��m`	��r`	��v`	��z_	
��{a	
���b	���b	���b	 ���b	0���b	 ���M	���M	���M	
���M	���d	��g	��X		C5>"G������hH]
��45$L454564455$CL���6�gslotdef
		Dgg-n-s		Dgg-n-s			Dgfilenamefoop/goops/save.scm�
s	��	t	��	t	��		u	��	u	��	v	��	v	2��	%v	��	&w	��	)w	"��	3w	��	7u	��	>y	��	Ay	)��	Dy	��		D	C���h �]O45456�gproc
		gclass		gfilenamefoop/goops/save.scm�
r
��	z	��	{	��	{	��	{	��	s	��			gnamegget-set-for-each�C�R���������
h�N]��4545$+L45$45"45456445	5$CL45$45"���6Fgslotdef
		gg-n-s		gg-n-s		
	ga		
	gfilenamefoop/goops/save.scm�
~	��		��	�	��	
	��	�	��	�	��	�	��	+�	��	,�	$��	8�	��	?�	��	G�	��	H�	��	K�	"��	U�	��	Y�	��	^�	��	j�	��	k�	$��	y�	��	|�	��	�	��			C���h �]O45456�gproc
		gclass		gfilenamefoop/goops/save.scm�
}
��	�	��	�	��	�	��	�	��	~	��			gnamegaccess-for-each�C�R4YZ]`cf�?���g�@
h8�-13���	���C�gclass
			4gslots			4gexps				4gfilenamefoop/goops/save.scm�
�
��	�	��			4	
	Chg]	45L4?6_gargs
		gv			gfilenamefoop/goops/save.scm�	�
��		Cklh(�]	45$O@6�gy
		'gtmp		'gfilenamefoop/goops/save.scm�
�
��		'g
documentationf)(restore CLASS (SLOT-NAME1 ...) EXP1 ...)�g
macro-typegdefmacro�g
defmacro-argsgargsC5R4*5�$"i�$!4.41455>"G"48i41;<�iM>OA�CD��h �]
4L545$CL6�gget
		 gset		 gval				 gfilenamefoop/goops/save.scm�
�	��	�	!��		�	��	�	!��	�	��	 �	��		 	Ch �]4O�>"GCygo
		 genv		 gfilenamefoop/goops/save.scm�
�
��	�	��	�	��	�	��		 	C5>"G4*5�$"i�$!4.41455>"G"48i41;<�iMM>QA�CDr���������q�hP�]	4455$",4L455$44L455L5"�C�gslotdef
		Ogt		Mgfilenamefoop/goops/save.scm�
�	��	�	��	�	$��	�	��	�	��	�	#��	$�	2��	,�	#��	0�	��	1�	#��	4�	$��	9�	0��	A�	$��	E�	#��	N�	��		OC��r�h(w]4 L>"G45L6ogslotdef
		#gfilenamefoop/goops/save.scm�
�	��	�	��	�	!��	#�	��		#C�r�#qz��gh�X]4 L>"G4L545$L64L5$C4L5$4'L>"G"4LL5$C4L>"G$L"	L
L6Pgname
	�ganame	�gget		�gset		�gval		�gt		;�gt		v�gfilenamefoop/goops/save.scm�
�	��	�	��	�	"��	�	��	 �	 ��	*�	��	.�	)��	2�	 ��	3�	 ��	;�	��	G�	$��	S�	 ��	T�	$��	v�	 ����	1����	5����	5��	�	C
h��]�4>"G445>"G4>"G4O455("444�5>"G4	
O�>"G4)>"G4O>"G)6�go
	�gfile	�genv		�gclass		�gslotdefs		]�gfilenamefoop/goops/save.scm�
�
��	�	��	�	��	�	��	�	
��	�	��	�	��	�	
��	,�	��	5�	��	9�	
��	@�	��	I�	��	U�	��	]�	��	]�	��	e�	��	j�	��	m�	��	r�	+��	t�	��	{�	����	����	����	����	����	����	��	�	C5>"G4*5�$"i�$!4.41455>"G"48i41;<�iM>OABCDhf]C^go
		genv		gfilenamefoop/goops/save.scm�
�
��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<�iMM>QA�CDr�h�]456�go
		gfile		genv			gfilenamefoop/goops/save.scm�
�
��	�	��	�	��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<2iM>OABCDhf]C^go
		genv		gfilenamefoop/goops/save.scm�
�
��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<2iMM>QA�CDr�h�]456�go
		gfile		genv			gfilenamefoop/goops/save.scm�
�
��	�	��	�	��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<9iM>OABCDhf]C^go
		genv		gfilenamefoop/goops/save.scm�
�
��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<9iMM>QACD�h�]6�go
		gfile		genv			gfilenamefoop/goops/save.scm�
�
��	�	��	�	��			C5>"G4*s5�$"4si5�$24.s44*s5$si"s5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*
5�$"4
i5�$64.
44*
5$	
i"
5>"G"4*<5�$"4<i5�$64.<44*<5$	<i"<5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G""�4.4issihG]	=6?gfilenamefoop/goops/save.scm�	�	��		
CihG]	=6?gfilenamefoop/goops/save.scm�	�	��		
C

i<<iiiiiiii55>"G"4*5$�4i5$�4�i 4#i55$�4&i4issihG]	=6?gfilenamefoop/goops/save.scm�	�	��		
CihG]	=6?gfilenamefoop/goops/save.scm�	�	��		
C

i<<iiiiiiii55>"G""��J""��B""��:4*'5�$"'i�$#4.'4145'5>"G"48'i41;<iM>)A<C,-4hh]4L56`ge
		gfilenamefoop/goops/save.scm�
	��	
	0��	
	��		Ch8�]
4L>"G45$
O6C�genv
		7ginitargs		7gt		 	7gfilenamefoop/goops/save.scm�

��	
		��	 
	��	5	��		7	Chd]OC\greal-next-method
		
gfilenamefoop/goops/save.scm�

��		
CD5>"G4*s5�$"si�$!4.s4145s5>"G"48si41;<MM>OA?CDnshx]456pgo
		genv		gfilenamefoop/goops/save.scm�

��		
��		��			C5>"G4*s5�$"4si5�$24.s44*s5$si"s5>"G"484Asi541;<MMM>CAECDmsh�]456go
		genv		gx			gfilenamefoop/goops/save.scm�

��		��		��			C5>"GFh�]456�go
		genv		gfilenamefoop/goops/save.scm�

��		��		��			gnameg	excluded?�CqR�h�]4545�6�gpatcher
		genv		gfilenamefoop/goops/save.scm�

��		%��		��		��			gnamegadd-patcher!�CzR�<h�]4545�6�go
		genv		gfilenamefoop/goops/save.scm�

��		 ��		��		��			gnameg	push-ref!�ClR�<h�]4545�6genv
		gfilenamefoop/goops/save.scm�

��	 	��	 	��	 	��		gnamegpop-ref!�CGR<h]45�Cwgenv
		gfilenamefoop/goops/save.scm�
"
��	#	��	
#	��		gnameg	container�CHR4*u5�$"4ui5�$24.u44*u5$ui"u5>"G"4*w5�$"4wi5�$24.w44*w5$wi"w5>"G"4*5�$"4i5�$24.44*5$i"5>"G"4*I5$=4Ii5$�4�i 4#Ii55$]4&Ii4iuuiwwii5I5>"G"V4.I4iuuiwwii5I5>"G"V4.I4iuuiwwii5I5>"G"V4.I4iuuiwwii5I5>"GuinR4*w5�$"wi�$!4.w4145w5>"G"48wi41;<Hi>|ABCDhX]CPginfo
		gfilenamefoop/goops/save.scm�
0
��		C5>"G4*w5�$"wi�$!4.w4145w5>"G"48wi41;<MM>OALCDwshx]456pgo
		genv		gfilenamefoop/goops/save.scm�
3
��	4	��	4	��			C5>"GwitR4*5�$"i�$!4.41455>"G"48i41;<Hi>|AFCDhX]CPginfo
		gfilenamefoop/goops/save.scm�
8
��		C5>"G4*5�$"i�$!4.41455>"G"48i41;<MM>OA_CD+qstuU<	hx5]45$C45$C4545�$"45&
45��"$6C-go
		rgenv		rgt				rgt			rginfo		1	rgt		;	fgfilenamefoop/goops/save.scm�
>
��	?	��		?	��	@	��	?	��	)A	��	1A	��	4D	��	;D	��	;D	
��	IG	��	UG	��	VH	"��	]H	��	^H	��	jD	��	pI	
��		r	C5>"G+pq
stn`�wH/IlGhx,]45$C45$C45$C45$K4545$45��C4	5$44
5>"GCC45$=44
5>"G45$4
544
556C4544
5>"G4>"G44
5>"G4	>"G44
5>"G4>"G4
545�6$go
	rgenv	rginfo		?�gt	�rginfo	�rgfilenamefoop/goops/save.scm�
U
��	V		��	
V	��	W		��	V	��	X		��	)V	��	,Y		��	6V	��	7Z	��	?Z		��	B[	��	L[	��	M_	��	V_	��	W_	��	Y`	��	e`	��	fb	���d		���V	���f	���g	���g	���i	!���i	.���i	!���i	���k	���k		���l	���m	��n	�� o	��4p	��Lq	��ir	'��pr	��rr	��(	r	gnamegenumerate-component!�CRiaRibRbhn]45L6fgbinding
		gfilenamefoop/goops/save.scm�
~	��		$��		��		Ch�]O6galist
		genv		gfilenamefoop/goops/save.scm�
|
��	~	��			gnamegpass-1!�CcRdefgh�]44556�gi
		gfilenamefoop/goops/save.scm�
�
��	�	��		�	!��	
�	&��	�	��	�	��		gnameg
make-local�ChRb+pqsw�a
h�X]4545$" 45$"	4L5$C4L545�$"45L454	5�4L5�6454	56Pgb
	�go		�gt			Bgt		&	?ginfo		Q�gfilenamefoop/goops/save.scm�
�	��	�	��		�	��	�	��	�	��	 �	��	&�	��	4�	��	F�	��	I�	 ��	Q�	��	T�	#��	[�	��	_�	��	i�	'��	p�	'��	w�	 ��	x�	'��	�	 ����	����	 ����	��	�Cw��stihhR]:4O>"G"}("4�5�$6445>"G445>"CG"<4�5$���"����"���45"��s"C(N44545>"G44	545>"G4
54564�545$�4
455$<44545>"G����"��I(���"��&4544545>"G����45��"����"���4455
"���Jgalist
	genv	gls		�g	post-defs		�gls	��gi	��gpre-defs	��glocs	��gsins	��ginfo	�g	real-name	��gfilenamefoop/goops/save.scm�
�
��	�	��	�	��	%�	��	&�	��	+�	��	0�	��	4�	��	6�	��	:�	��	;�	��	T�	��	q�	��	v�	��	z�	��	~�	����	����	%����	����	����	����	����	����	����	����	����	����	����	
����	"����	
����	
����	����	
����	 ���	
���	��
�	!���	���	���	���	
���	���	��'�	��+�	
��,�	��6�	&��A�	��L�	��O�	��T�	!��W�	��g�	��m�	
��p�	��u�	!��x�	����	����	"����	����	����	(����	����	����	����	#����	����	$����	����	����	����	����	����	����	����	���	���	���	���	��R		gnamegname-bindings!�CjR�
s�u`h@�]	4L54454L5>"G456�go
		:ginfo		:gfilenamefoop/goops/save.scm�
�	��	�	��	�	��	�	��	�	&��	%�	��	:�	��		:Ck	h@�]445>"GO445454556�genv
		?gfilenamefoop/goops/save.scm�
�
��	�	��	$�	��	'�	��	.�	��	5�	��	=�	��	?�	��			?gnamegpass-2!�ClRrmRnhx]4>"G4>"G4 >"G$4'>"G"4>"G6�gname
		xgval		xgliteral?			xgfile			xgfilenamefoop/goops/save.scm�
�
��	�	��	�	��	�	��	�	��	+�	��	D�	��	E�	��	]�	��	t�	��	x�	��		x	gnameg
write-define!�CoRoho]�L6ggstand-in
		
gfilenamefoop/goops/save.scm�
�	��	�	��	
�	��		
Cowhh]4L5L6`go
		gfilenamefoop/goops/save.scm�
�	��	�	��	�	��		Ch8�]4O45>"GO456�gfile
		4genv		4gfilenamefoop/goops/save.scm�
�
��	�	��	
�	��	�	��	,�	��	4�	��		4	gnamegwrite-empty-defines!�CpRrswl�uUvGh�W]4>"G45445>"G4 >"G45$4'>"G"4>"G445>"G4	>"G445
>"G4>"G)6Ogprefix
	�go	�gfile		�genv		�ginfo		�gfilenamefoop/goops/save.scm�
�
��	�	��	�	��	�	��	"�	��	%�	
��	2�	��	;�	��	O�	��	Y�	��	Z�	��	r�	����	����	����	����	����	��	�	gnamegwrite-definition!�CqRrrqsqthh]LL6`go
		gfilenamefoop/goops/save.scm�
�	��	�	!��	�	��		Cn	h`]4>"G445�>"G4O45�>"G6�gfile
		]genv		]gfilenamefoop/goops/save.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	,�	��	5�	��	A�	��	H�	��	M�	��	Y�	��	]�	��		]	gnamegwrite-let*-head!�CuRrnh`�]4LL>"G4�L>"G4 L>"G4�L>"GL6�gpatch
		\gfilenamefoop/goops/save.scm�
�	��	�	��	�	��	�	��	#�	��	,�	��	@�	��	E�	��	L�	��	X�	��	\�	��		\Ch�]O6�gprefix
		gbindings		gfile			genv			gfilenamefoop/goops/save.scm�
�
��	�	��			gnamegwrite-rebindings!�CvRqwh h]4LLL>"GL6`go
		 gfilenamefoop/goops/save.scm�
�	��		��	 	��		 Ch�]O456�gselector
		gprefix		gfile			genv			gfilenamefoop/goops/save.scm�
�
��		��	�	��			gnamegwrite-definitions!�CxRrwyhP]4L5$44L55$�CC�$4L�54L�5�CCgpatcher
		Lgt		Lgt		!	0gfilenamefoop/goops/save.scm�
	��		 ��		��	
	,��	
	7��	!
	,��	!
	%��	3
	 ��	7	��	8	&��	=	4��	?	&��	@	&��	E	4��	G	&��	H	 ��		Lgnamegname-objects�CwhH�]	4LL>"G4OLQ45L>"GL6�gpatch
		Hgname-objects	"	3gfilenamefoop/goops/save.scm�
	��		��		��	"	��	:	��	H	��		HC�h �]O44556�gprefix
		gfile		genv			gfilenamefoop/goops/save.scm�

��		��		��		��		��			gnamegwrite-patches!�CzR+boah0�]4455$4545L6C�gb
		)gfilenamefoop/goops/save.scm�
	��		��		��		��		��		!��		!��	'	��			)Ch�]O6�galist
		gfile		gfilenamefoop/goops/save.scm�

��		��			gnamegwrite-immediates!�C{Rpby�aoo	h�Y]	4455�$C445M5$45L�45�4L5�64454455L>"G4545�M�NCQgb
	�gt	�gt	(�gfilenamefoop/goops/save.scm�
 	��	!	��	!	'��	!	��	!	��	!	��	"	��	"	��	("	��	(!	��	<%	)��	=&	)��	D%	"��	E'	)��	L%	"��	N$	��	O)	��	R)	&��	Y*	&��	\*	;��	d*	&��	l)	��	u-	,��	|.	,���-	%���-	��	�Ch�]HO6�galist
		gfile		genv			gwritten			gfilenamefoop/goops/save.scm�

��		��		��	 	��			gnamegwrite-readables!�C|R4*5�$"i�$!4.41455>"G"48i41;<i{iM��>�A�CD���h@�-13454>"G4>"GC�galist
			>gfile			>grest				>gport			>gfilenamefoop/goops/save.scm�
2
��	
3	��	3	��	4	��	+5	��			>	
	C5>"G4*5�$"i�$!4.41455>"G"48i41;<i�iM��>�A�CD�/-cjlR�w{xmz�puv��r�|�h��-1345�$�"45	�$��"454>"G4>"G4>"G(")4	�>"G4
>"G4>"G45(24
>"G4>"G"�4
>"G4>"G4>"G445>"G4
>"G4>"G4>"G4>"G44556�galist
		�gfile		�grest			�gexcluded		5�guses		5�genv		D�gfilenamefoop/goops/save.scm�
8
��	
9	��	9	��	9	��	9	+��	9	6��	:	��	(:	��	,:	��	/:	+��	5:	7��	59	��	:;	��	D;	��	G<	��	[=	��	o>	���?	���A	���A	���A	���B	���C	���D	���D	���F	���F	-���F	���G	���G	���G	��I	��I	,��I	��J	��1K	��EL	��IL	��JL	*��YL	��bM	��hM	-��qM	��zN	��~N	���N	���O	���O	���O	���P	���Q	���Q	$���Q	-���Q	$���Q	��8		�	
	C5>"G4*5�$"i�$!4.41455>"G"48i41;<{i>�A�CD��h0�]45454>"GC�gfile
		)gport			)gobjects			)gfilenamefoop/goops/save.scm�
S
��	T	��		T	��	U	��	T	��	V	��		)C5>"G4�i4�i55�R4*5�$"i�$!4.41455>"G"8i41;<�i>�A�CD�����$���hX�]4L>"G".45$C4L>"G4L5"���4L5"����gsexp
		Fgfilenamefoop/goops/save.scm�
`	��	a	��	b	��	c	��	#c		��	&e	��	:f	��	Ff	��	Fb	��	Gb	��	Sb	��		S
C�h|]�Ctgname
			gvar			gfilenamefoop/goops/save.scm�
g	��	h	��	h	��				C	hX�]	454>"G4>"G4O>"G6�gfile
		Rgm		Rgfilenamefoop/goops/save.scm�
[
��	\	��	\	��	
]	��	^	��	2_	��	Rg	��		RC56gm
		0gt
	8	Mgt
(gt
�gt
��gt
��gt
��gt
s�gt
Shgt
DYgt
2Ggt
%:gt
 5gt
��gt
#�#�gt
))gt
*{*�gt
;h;}gt
=p=�gt
D�Egt
E�E�gt
G	Ggt
G�Hgt
I!I6gt
JJ*gt
K1KOgt
K�K�gt
K�Lgt
LRLqgt
L�L�gt
MM5gt
MxM�gt
M�M�gt
N<N[gt
N�N�gt
OOgt
S,SBgt
U�U�gt
V�V�gt
[�[�gt
\\-gt
\k\�gt
^n^�gt
_O_dgt
`f`{gt
aGa\gt
�m��gt
���gt
�{��gt
���2gfilenamefoop/goops/save.scm�		
��	1	X
��	Z
���	[
���	\
���	]
���	^
��l	_
��L	e
��=	g
��W	p	��b	p
��	u
���	y
��_	~
���
��+�
���
���
����
��b�
��#��
��#�
��(�4
��*t9
��5�r
��8�}
��;a�
��=i�
��D��
��E��
��G�
��G��
��I�
��J�
��K*�
��P{�	��P��	��P��	��P��	��P��	��P�	��P�	��P�	��Q�
��Rs�	��R��	��R��	��R��	��R��	��R�	��R�	��R�	��R��
��S$
��U�
��V�
��X�
��Y�
��ZK
��[
��[�"
��[�%
��^f.
��^g0
��_H3
��`^6
��`_8
��a@>
��ggU
��gpy
��gyz
��h�|
��i��
��rF�
��tV�
��u��
��x#�
��z��
��|��
��~��
���H�
����
���^
���e
���f2
����8
���tS
����Y	����Y	'����Y	����Y
����[
��^	�(
C6internal.go000064400000001655150525613460006725 0ustar00GOOF----LE-8-2.0�]4h�]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	ginternal�		�	
gfilenameS�	foop/goops/internal.scm�	gimportsS�	
�	
�	�	gset-current-module�	�	�	gmodule-public-interface�	gcurrent-module�	gmodule-for-each�	g%module-public-interface�	gmodule-add!�	gresolve-module�C5h�]4	
54>"G4i4i55ih�]&CL6}gname
		gvar		gfilenamefoop/goops/internal.scm�
		��			#��	
		��			��			CO4i
56�gm
		(gpublic-i
	6�gfilenamefoop/goops/internal.scm�		
��	)		��	.		)��	6		��	6	
���		���		#���		���		��
	�
C6composite-slot.go000064400000007711150525613460010071 0ustar00GOOF----LE-8-2.0�]\4h�]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gcomposite-slot�		�	
gfilenameS�	foop/goops/composite-slot.scm�	gimportsS�	
�	
�	�	gexportsS�	g<composite-class>�	�	gset-current-module�	�	�	gtoplevel-define!�	
�	
�	g
make-class�	g<class>�	gnameS�	gdefined?�	
�	
�	gis-a?�	 
�	!
�	"
�	#
�	$gmemq�	%g<object>�	&
%�	'
%�	(gclass-precedence-list�	)
(�	*
(�	+gclass-redefinition�	,
+�	-
+�	.gcompute-get-n-set�	/gmake�	0
/�	1
/�	2g	<generic>�	3
2�	4
2�	5gadd-method!�	6
5�	7
5�	8g<method>�	9
8�	:
8�	;gspecializersS�	<g<top>�	=
<�	>
<�	?gformalsS�	@gclass�	Agslot�	B@A�	CgbodyS�	Dgif�	Egeq?�	Fgslot-definition-allocation�	GFA�	Hg
propagatedS�	IEGH�	Jgcompute-propagated-get-n-set�	KJA�	Lgnext-method�	ML�	NDIKM�	ON�	Pgmake-procedureS�	Qg	procedureS�	Rgget-keyword�	Sgpropagate-toS�	Tgslot-definition-name�	Uggoops-error�	Vf%Propagation not specified for slot ~S�	Wf Bad propagation list for slot ~S�	Xgmap�	Ygslot-ref�	Zg	slot-set!�	[gfor-each�C5h��]4	
54>"G"+44ii5>"xG"q45$b4!i#5$K4$i'4*i55$-4-i4ii5>"G""��t""��l""��d4.5�$".i�$!4.414.5>"G"47.i41:;i>?BCOPFHJh �]45&6L6�gclass
		gslot		gfilenamefoop/goops/composite-slot.scm�
	1
��		2	��		2	��		3	��		1
��			Chm]OCegreal-next-method
		
gfilenamefoop/goops/composite-slot.scm�
	1
��		
CQ5>"GRSTUVWXhw]�$�CCogp
		gfilenamefoop/goops/composite-slot.scm�
	?	��		?	(��			?	$��		?	2��		Chw]�$��CLCogp
		gfilenamefoop/goops/composite-slot.scm�
	@	��		@	&��			@	"��		@	0��		CYho]4L5L6ggo
		gfilenamefoop/goops/composite-slot.scm�
	E		��		F	��		F	��		CZYh~]4L5L6vgo
		gv		gfilenamefoop/goops/composite-slot.scm�
	J	
��		K	��		K	��			C[ZYh�]4L5L6~gobject
		gslot		gfilenamefoop/goops/composite-slot.scm�
	M	��		N	&��		N	��			Chv]OLL6ngo
		gv		gfilenamefoop/goops/composite-slot.scm�
	L	
��		M	��			C
h��]14�545$"4>"G�$"4>"G454	O5��
O�(
O"	OC�gs
	�gprop	�gs-name		�gobjects		l�gslots		l�gfirst-object		v�g
first-slot		v�gfilenamefoop/goops/composite-slot.scm�
	6
��		7	��	
	7	4��	
	7	��		8	��		7	��		:	��	#	;	��	'	;	��	.	;	��	9	<	
��	=	<	��	B	=	��	F	=	��	M	=	��	V	?	��	_	@	��	l	?	��	s	A	��	v	B	��	v	A	���	I	���	I		���	C	��	�gnamegcompute-propagated-get-n-set�CJRCgm
		,gt
��gfilenamefoop/goops/composite-slot.scm�		
��	1	/
���	1
���	6
��	�
C6describe.go000064400000031216150525613460006665 0ustar00GOOF----LE-8-2.0v2]i4h_]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gdescribe�		�	
gfilenameS�	foop/goops/describe.scm�	gimportsS�	
�	
�	gice-9�	gsession�	�	�	gformat�	�	�	�	gexportsS�	�	gset-current-module�	�	�	gdefined?�	
�	
�	gtoplevel-define!�	 
�	!
�	"gmake�	#
"�	$
"�	%g	<generic>�	&
%�	'
%�	(gnameS�	)gadd-method!�	*
)�	+
)�	,g<method>�	-
,�	.
,�	/gspecializersS�	0g<top>�	1gformalsS�	2gx�	32�	4gbodyS�	5f~s is �	652�	7gcond�	8ginteger?�	982�	:f
an integer�	;:�	<9;�	=greal?�	>=2�	?fa real�	@?�	A>@�	Bgcomplex?�	CB2�	Dfa complex number�	ED�	FCE�	Ggnull?�	HG2�	If
an empty list�	JI�	KHJ�	Lgboolean?�	ML2�	Nfa boolean value (~s)�	Ogif�	Pgquote�	Qgtrue�	RPQ�	Sgfalse�	TPS�	UO2RT�	VNU�	WMV�	Xgchar?�	YX2�	Zfa character, ascii value is ~s�	[g
char->integer�	\[2�	]Z\�	^Y]�	_gsymbol?�	`_2�	afa symbol�	ba�	c`b�	dglist?�	ed2�	ffa list�	gf�	heg�	igpair?�	ji2�	kgcdr�	lk2�	mil�	nfan improper list�	on�	pfa pair�	qp�	rOmoq�	sjr�	tgstring?�	ut2�	vgeqv?�	wf�	xv2w�	yfan empty string�	zy�	{fa string of length ~s�	|g
string-length�	}|2�	~{}�	Oxz~��u��gvector?���2����P���v2���fan empty vector�����fa vector of length ~s��g
vector-length���2������O���������geof-object?���2��fthe end-of-file object���������gelse��fan unknown object (~s)���2������7<AFKW^chs������f.~%�����g
*unspecified*��6�����gmake-procedureS��g	procedureS��g<procedure>��glet��gname��gprocedure-name���2���������f`~s'������gdisplay���2��O�����f is ������fan anonymous��O�a�������f
 procedure������f with ������garity���2���������������gslot-bound?��g
class-name��gsafe-class-name��g<object>��f~S is an instance of class ~A~%��gclass-of���2�������2���f
Slots are: ~%�����gfor-each��glambda��gslot�����gslot-definition-name�������������f     ~S = ~A~%���2���f~S��gslot-ref���2�������f
#<unbound>��O��������������������gclass-slots�����������������g<class>��f'~S is a class. It's an instance of ~A~%���2�������fSuperclasses are:~%�����gclass�����f    ~A~%���������������gclass-direct-supers���2�������gslots��gclass-direct-slots���2���������G���f(No direct slot)~%�����gbegin��fDirects slots are:~%�����gs����������������������������O����������gclasses��gclass-direct-subclasses���2�������G��f(No direct subclass)~%��fDirects subclasses are:~%����������	���
�	�O
���
fClass Precedence List is:~%�
�gclass-precedence-list�2���gmethods�gclass-direct-methods�2���G�f(No direct method)~%��fClass direct methods are:~%������O��� �����!ggeneric-function-name�"!2�#�"�$ggeneric-function-methods�%$2�&%�'#&�(f3~S is a generic function. It's an instance of ~A.~%�)(���*f(No method defined for ~S)~%�+*��,fMethods defined for ~S~%�-,��.2�/�3.�0�/�1�-0�2O+1�3�')2�43�5
0�6
0�7gomit-generic�827��9gletrec�:g
print-args�;gargs�<;�=G;�>gnewline�?>�@=?�Ai;�B� �Cgcar�DC;�E�D�F�E�Gk;�H:G�IABFH�J�;�K�J�L�BK?�M7@IL�N�<M�O:N�PO�Qf    Method ~A~%�RQ2�SG7�Tggf�Ugmethod-generic-function�VU2�WTV�XW�Yf	     Generic: ~A~%�Z!T�[YZ�\f	(No generic)~%�]\�^OT[]�_�X^�`OS_�af	Specializers:�ba�cgmethod-specializers�dc2�e:d�f9PR`be�gf�hgprovide�C5h�]4	
54>"G45�$"i�$!4!4$'(5>"G"4+i4$./0i134���58:=?BDILNQSXZ[afnptwy{|��������"hH�]4>"G45$4>"G"�45$4>"G"�45$4>"G"�(4	>"G"�4
5$%4$"
>"G"g45$445>"G">�$4>"G" �$4>"G"�$6��$4>"G"4>"G"�45$>�$4>"G"445>"G"|�$>�$4>"G"445>"G"745$4>"G"4 >"G4!>"GC|gx
	Fgfilenamefoop/goops/describe.scm�
	#
��		$	��		$	
��		$	��		&	��	"	%	��	#	&	��	(	&	#��	-	&	��	:	'	��	D	%	��	E	'	��	J	'	#��	O	'	��	\	(	��	f	%	��	g	(	��	l	(	#��	q	(	���	%	���	)	���	)	#���	)	���	*	���	%	���	*	���	*	#���	*	:���	*	@���	*	F���	*	���	+	���	%	���	+	���	+	#���	,	 ���	+	���	-	���	%	���	-	��	-	#��	-	��	.	��	%	��	.	��	.	#��#	.	��2	/	��6	%	��9	/	#��:	/	��>	/	��?	0	��D	0	'��I	0	��V	1	��[	1	'��`	1	��m	2	��w	%	��{	2	$��|	2	���	2	���	3	���	3	'���	3	���	4	���	4	'���	4	?���	4	���	5	���	%	���	5	$���	5	���	5	���	6	���	6	'���	6	���	7	���	7	'���	7	?���	7	���	8	��	%	��	8	��	8	#��	8	��	9	��"	9	#��)	9	��2	:	��7	:	
��<	:	��^	FC5>"G45�$"i�$!4!4$'(5>"G"4+i4$./�i134�����������
h�]	45$4>"G"4>"G4>"G4$a">"G4>"G4>"G	6gx
	�gname		�gfilenamefoop/goops/describe.scm�
	=
��		>	��			>	��		?	��		@	��		@	��		@	��	+	A	��	=	B	��	A	B	
��	F	B	��	O	C	��	W	C	
��	_	C	��	d	C	��	m	D	��	q	D	
��	v	D	��		E	���	E	
���	E	���	F	��	�C5>"G���h�]45$6C�gclass
		gfilenamefoop/goops/describe.scm�
	K
��		L	��			L	��		L	��		L	��		M	��		gnamegsafe-class-name�C�R45�$"i�$!4!4$'(5>"G"4+i4$./�i134�������������h8�]	454L5$44L55"6�gslot
		8gname			8gfilenamefoop/goops/describe.scm�
	V	��		W	��			W	��		X	��		Z	��		Z	��	 	[	��	%	[	'��	&	[	,��	0	[	��	6	\	��	8	X	��
		8C�hX�]44�5>"G4>"G4O4�5>"GC�gx
		Sgfilenamefoop/goops/describe.scm�
	P
��		Q	��		Q	
��		R	��		R	��		R	��		Q	��	 	U	��	%	U	
��	*	U	��	3	V	��	=	]	��	B	]	��	D	]	��	I	V	��		SC5>"G45�$"i�$!4!4$'(5>"G"4+i4$./�i134 ��������hu]456mgclass
		gfilenamefoop/goops/describe.scm�
	i	��		i	'��		i	2��		i	��		C������hq]456igs
		gfilenamefoop/goops/describe.scm�
	r	��		s	!��		s	,��		s	��		C���hq]456igs
		gfilenamefoop/goops/describe.scm�
	}	��		~	!��		~	,��		~	��		C
��hu]456mgs
		gfilenamefoop/goops/describe.scm�
�	��	�	#��	�	.��	�	��		ChPC]	4454�5>"G4>"G445>"G45(4	>"G"'4
>"G4>"G45(4
>"G"'4>"G4>"G4>"G445>"G45(64>"G6;gx
	Mgslots	W�gclasses��gmethods#Mgfilenamefoop/goops/describe.scm�
	c
��		d	��		d	
��			e	
��		e	��		e	/��		e	��		d	��	%	h	��	*	h	
��	/	h	��	8	i	��	=	j	��	H	i	��	Q	m	��	W	m	��	_	n	��	`	o	��	e	o	��	j	o	��	w	q	
��	|	q	���	q	
���	r	
���	x	���	x	���	y	���	z	���	z	���	z	���	|	
���	|	���	|	
���	}	
����	����	
����	���	��	�	���	���	��#�	��+�	��0�	��2�	��3�	
��8�	��=�	
��M�	
��2	MC5>"G45�$"i�$!4!4$'(5>"G"4+i4$./%i1344��!$(�*,�hc]6[gx
			gfilenamefoop/goops/describe.scm�
�	��		�	 ��			C
h`]454544�5>"G(	64>"G	6gx
		]gname		]gmethods			]gfilenamefoop/goops/describe.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	�	��	"�	"��	$�	��	)�	��	7�	��	<�	��	@�	��	A�	
��	F�	��	M�	
��	]�	
��		]C5>"G45�$"i�$!4!4$'(5>"G"4+i4$./,i6�184g��>��QUY!\ach-13"q(6�$34 >"G44�5>"G�"���4 >"G445>"G64>"G(G45$445>"G"4	>"G"4
>"G45"��
�gx
		gomit-generic		gargs		
	~ggf	��gfilenamefoop/goops/describe.scm�
�
��	
�	��	�	��	�	-��	�	 ��	�	��	�	 ��	1�	 ��	4�	)��	9�	:��	;�	)��	@�	 ��	K�	,��	Q�	 ��	R�	 ��	d�	 ��	g�	)��	r�	 ��	~�	 ��	~�	��	�	����	����	����	����	����	����	����	����	����	.����	����	����	����	����	����	����	����	���	��(		
C5>"Ghi6�gm
		,gt
	4	Igt
��gt
	�	�gt
��gt
J_gt
��gfilenamefoop/goops/describe.scm�		
��	-	#
���	=
��	�	K
��	�	P
���	c
��C�
����
��y�		��{�
��	{
C6util.go000064400000005717150525613460006071 0ustar00GOOF----LE-8-2.0�]54h(]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gutil�		�	
gfilenameS�	foop/goops/util.scm�	gimportsS�	
gsrfi�	gsrfi-1�	
�	�	�	gexportsS�	g	mapappend�	gfind-duplicate�	gmap*�	g	for-each*�	glength*�	gimproper->proper�	�	g
re-exportsS�	gany�	gevery�	�	gset-current-module�	�	 �	!g
append-map�	"gmemv�	#gcurrent-module�	$gmodule-eval-closure�	%g
top-level-env�	&g
procedure?�	'gtop-level-env?�	(gcall-with-deferred-observers�	)(�	*(�	+gmodule-export!�	,+�	-+�	.#�	/#�	0'%�	1gmap�	2gcar�	3gcdr�	4gapply�C5h��]4	
5	4 >"G!iR"h(�](C4��5$�C�6�gl
		$gfilenamefoop/goops/util.scm�
	!
��		"	��		$	��		$	��		$	��		$	��		"	��		$	 ��	"	%	0��	$	%	 ��		$gnamegfind-duplicate�CR#$h�]45$6C�gmod
		gfilenamefoop/goops/util.scm�
	(��		)	��		)	��		*	��		+		��		,		��		
gnameg
top-level-env�C%R&h�](C�6�genv
		gfilenamefoop/goops/util.scm�
	.��		/	��			/	��		0	��		0	��		gnamegtop-level-env?�C'R4*-/0hD]456<gfilenamefoop/goops/util.scm�
	2��		
C>"G123h@�-13�(C��$ 445?445?�C@�gfn
			@gl			@gfilenamefoop/goops/util.scm�
	4
��		6	��		5	��		6	��		7	��		7	��		5	��		7	��		7	)��	(	7	��	)	8	��	.	8	)��	8	8	��	9	7	��	@	9	��			@
gnamegmap*�CR4123hP�-13�(C��$*445>"G45@@�gfn
			Jgl			Jgfilenamefoop/goops/util.scm�
	;
��		=	��		<	��		=	��		>	��		>	��		<	��		>	��	 	>	��	-	>	��	:	>	?��	D	>	+��	J	?	��			J
gnameg	for-each*�CRh0�]"�$��"���C
"����gls
		)gn		gls			gfilenamefoop/goops/util.scm�
	A
��		B	��			D	��	
	B	��		B	��		C	��		B	��		)gnameglength*�CRh �]�$
�4�5�CC�gls
		gfilenamefoop/goops/util.scm�
	F
��		G	��			G	��		H	��	
	H	��		H	'��		H	��		H	��		I	��
		gnamegimproper->proper�CRC�gm
		0gfilenamefoop/goops/util.scm�		
��	7	
��*	!
���	(���	.���	2��q	4
���	;
���	A
���	F
��	�
C6compile.go000064400000001061150525613460006530 0ustar00GOOF----LE-8-2.0]4hN]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gcompile�		�	
gfilenameS�	foop/goops/compile.scm�	gimportsS�	
ginternal�	
�	�	�	g
re-exportsS�	gcompute-cmethod�	�	gset-current-module�	�	�C5h0W]4	
54>"GCOgm
		,gfilenamefoop/goops/compile.scm�
	
��		,
C6