/home/fresvfqn/waterdamagerestorationandrepairsmithtown.com/Compressed/oop.tar
goops.go000064400000314760150536241760006246 0ustar00GOOF----LE-8-2.0ؙ]�4h�c]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	�		gfilenameS�	
f
oop/goops.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	gice-9�	gmatch�	�	�	gutil�	�	�	�	gexportsS�	gdefine-class�	gclass�	gstandard-define-class�	gdefine-generic�	gdefine-accessor�	g
define-method�	gdefine-extended-generic�	 gdefine-extended-generics�	!gmethod�	"gis-a?�	#gclass-of�	$gensure-metaclass�	%gensure-metaclass-with-supers�	&g
make-class�	'gmake-generic�	(gensure-generic�	)gmake-extended-generic�	*g
make-accessor�	+gensure-accessor�	,gadd-method!�	-gclass-slot-ref�	.gclass-slot-set!�	/gslot-unbound�	0gslot-missing�	1gslot-definition-name�	2gslot-definition-options�	3gslot-definition-allocation�	4gslot-definition-getter�	5gslot-definition-setter�	6gslot-definition-accessor�	7gslot-definition-init-value�	8gslot-definition-init-form�	9gslot-definition-init-thunk�	:gslot-definition-init-keyword�	;gslot-init-function�	<gclass-slot-definition�	=g
method-source�	>gcompute-cpl�	?gcompute-std-cpl�	@gcompute-get-n-set�	Ag
compute-slots�	Bgcompute-getter-method�	Cgcompute-setter-method�	Dgallocate-instance�	Eg
initialize�	Fg
make-instance�	Ggmake�	Hgno-next-method�	Igno-applicable-method�	Jg	no-method�	Kgchange-class�	Lg#update-instance-for-different-class�	Mg
shallow-clone�	Ng
deep-clone�	Ogclass-redefinition�	Pg
apply-generic�	Qgapply-method�	Rg
apply-methods�	Sgcompute-applicable-methods�	Tg%compute-applicable-methods�	Ugmethod-more-specific?�	Vgsort-applicable-methods�	Wgclass-subclasses�	Xg
class-methods�	Yggoops-error�	Zg
min-fixnum�	[g
max-fixnum�	\g	instance?�	]gslot-ref-using-class�	^gslot-set-using-class!�	_gslot-bound-using-class?�	`gslot-exists-using-class?�	agslot-ref�	bg	slot-set!�	cgslot-bound?�	dg
class-name�	egclass-direct-supers�	fgclass-direct-subclasses�	ggclass-direct-methods�	hgclass-direct-slots�	igclass-precedence-list�	jgclass-slots�	kggeneric-function-name�	lggeneric-function-methods�	mgmethod-generic-function�	ngmethod-specializers�	ogmethod-formals�	pgprimitive-generic-generic�	qgenable-primitive-generic!�	rgmethod-procedure�	sgaccessor-method-slot-definition�	tgslot-exists?�	ugfind-method�	vgget-keyword�	w !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstGuv_�	xgset-current-module�	yx�	zx�	{gcurrent-module�	|g*goops-module*�	}g%init-goops-builtins�	~gprocess-use-modules�	~��~��glanguage��gtree-il��g
primitives�������gselectS��gadd-interesting-primitive!�����gdispatch��������gmake-procedure��gcompute-cmethod��gerror��������fno matching pattern��gexpt��g	scm-error��gmemq��gassoc��g<class>��gdsupersS��gslotsS��gnameS��ggensym��f	metaclass��gmap��g
append-map��gfor-each��gmember��gappend��gkeyword?��fmalformed keyword arguments: ~a��g	kw-do-map��gmake-unbound��gor-map��g<object>��g	metaclassS��gfind-duplicate��f3make-class: super class ~S is duplicate in class ~S��f,make-class: slot ~S is duplicate in class ~S��gmake-syntax-transformer��������gmacro��g$sc-dispatch��������g_��gany�������g
syntax->datum��������g
datum->syntax��������fmalformed superclass list: ~S��g
take-while��g	find-tail��glist��gquote��g	init-formS��g
init-thunkS��glambda��gsyntax-violation��������f-source expression failed to match any pattern��gdefine-class-pre-definition��geach-any���nj���Ȍ���nj���ʌ��nj���̌��g
syntax-object��gbegin��gtop�����gribcage��gout��������fl-bdc1916-ed��������������gx�����fl-bdc1916-d0�����������������ghygiene�����������ggetterS��gsetterS��gkey�����gm-bdc1916-e3���������fl-bdc1916-e4�����������gk��garg��grest��������������fl-bdc1916-db��fl-bdc1916-dc��fl-bdc1916-dd��fl-bdc1916-de����������������������������������gif��������gor�������gnot�����gdefined?�����������"���g	<generic>������	gtoplevel-define!�
�	����(�������
�gaccessorS�g
<accessor>�������+���gdefine-class-pre-definitions�fl-bdc1916-f4������fl-bdc1916-f1��������������nj����nj���� gslotname�!gslotopt�" !���#f
l-bdc1916-115�$f
l-bdc1916-116�%f
l-bdc1916-117�&f
l-bdc1916-118�'#$%&�(�"�'�)�(��*�)��+��)��,gidentifier?�-gslot�.-���/����0f
l-bdc1916-10c�1f
l-bdc1916-10d�2f
l-bdc1916-10e�3012�4�./3�5�4��6�5��7fl-bdc1916-fe�8fl-bdc1916-ff�9f
l-bdc1916-100�:789�;�./:�<�;��=��<��>�Ɍ�?gdummy�@gname�Agsupers�B?@A-�Cg
m-bdc1916-121�DC��ED����Ff
l-bdc1916-126�Gf
l-bdc1916-127�Hf
l-bdc1916-128�If
l-bdc1916-129�JFGHI�K�BEJ�LD�Mf
l-bdc1916-123�NM�O��LN�P�K�O�Q��P��R�P��S��P��Tgand�U�TP��V�P��W��P��X�"P��Y��P��ZY�[��P��\��P��]�iP��^�OP��_�P��`��P��a�	P��b?��cg
m-bdc1916-132�dc��ed��ff
l-bdc1916-137�gf
l-bdc1916-138�hfg�i�beh�jd�kf
l-bdc1916-134�lk�m��jl�n�i�m�o�n��pfbad generic function name: ~S�qgdefine�r�s�tgprefixS�ug
symbol-append�vfno prefixes supplied�wg<generic-with-setter>�xgmake-setter-name�ygsetter�zg<extended-generic-with-setter>�{gextendsS�|g<extended-generic>�}gextended-by!�~gextended-by�ginvalidate-method-cache!��gdelq!��gnot-extended-by!��gprocedure-with-setter?��gdefaultS��g	procedure��g
procedure?��ggeneric-capability?������?@��g
m-bdc1916-19d����������f
l-bdc1916-1a2��f
l-bdc1916-1a3���������������f
l-bdc1916-19f������������������q����gcond�������������������������+����������"�������������G����������gelse��������gstring->symbol��g
string-append��fsetter:��gsymbol->string��gupgrade-accessor��gmethods��gextended-byS��gextends��ggeneric-function��gmodule-define!��gfree-id��g
m-bdc1916-1c5���������f
l-bdc1916-1c7�����������������y������������������nj�������gargs��gbody��?@����������f
l-bdc1916-1ca��f
l-bdc1916-1cb��f
l-bdc1916-1cc��f
l-bdc1916-1cd�������������������������������������������������������"�������������	�����+�������������,�����y�����!����������nj���،��f
l-bdc1916-1d4��f
l-bdc1916-1d5��f
l-bdc1916-1d6��f
l-bdc1916-1d7�������������������������������������������������������	�����G����������������,�����!����gfree-identifier=?���������f
l-bdc1916-26f�����������gcompute-procedures��gcompute-make-procedure��g->proper��gcompute-procedure��gfind-free-id��g
parse-args������������������f
l-bdc1916-1e9��f
l-bdc1916-1e7��f
l-bdc1916-1e5��f
l-bdc1916-1e3��f
l-bdc1916-1e1�f
l-bdc1916-1df�����������f
l-bdc1916-1de����������!������	���
		�
��Ɍ�
����greverse�glp�gls�gformals�gspecializers��f
l-bdc1916-1ed�f
l-bdc1916-1ee�f
l-bdc1916-1ef�f
l-bdc1916-1f0�����f
l-bdc1916-1ec��������������� g<top>�!gtail�"!�#f
l-bdc1916-212�$#�%�"�$�&�%���'� &��(gf�)(��*���+f
l-bdc1916-20a�,f
l-bdc1916-20b�-+,�.�)*-�/�.���0� /��1���2gnext-method�3gid�43�5f
l-bdc1916-26b�65�7�4�6�8��9f
l-bdc1916-269�:f
l-bdc1916-26a�;9:�<�8*;�=��7�<�>�=��?gformal�@?�Af
l-bdc1916-259�BA�C�@�B�D2�Ef
l-bdc1916-255�FE�G�D�F�H��If
l-bdc1916-251�JI�K�H�J�L�2�Mf
l-bdc1916-24c�Nf
l-bdc1916-24d�Of
l-bdc1916-24e�PMNO�Q�L/P�R�C�GK�Q	�S��R��Tgreal-next-method�U�TR��VU�Wglet�X�WR��Y��R��Z��R��[gnull?�\�[R��]\Y�^gapply�_�^R��`_UY�a`�bf
l-bdc1916-263�cb�d�@�c�e�ff
l-bdc1916-25e�gf�h�e�g�i��dh�GK�Q�j��i��k�Ti��lk�m�Wi��n��i��o��i��p�[i��qpn�r�^i��srkn�ts�uf
l-bdc1916-235�vu�w�e�v�xgbody0�yx�zf
l-bdc1916-231�{z�|�y�{�}f
l-bdc1916-22d�~f
l-bdc1916-22e�}~���8*����w|��������������f
l-bdc1916-287��f
l-bdc1916-288��������*���f
l-bdc1916-282��f
l-bdc1916-283��������*���gspecializer�����f
l-bdc1916-27b��f
l-bdc1916-27c��������*���gbody1���x���f
l-bdc1916-272��f
l-bdc1916-273��f
l-bdc1916-274���������/���������������G����g<method>��������gspecializersS��������gcons*��������gformalsS��������������gbodyS��������gmake-procedureS��������g	procedureS��������g	for-each*��gdirect-methods��gadd-method-in-classes!��gdelv!��gremove-method-in-classes!��gcompute-new-list-of-methods��glength*��gmethod-n-specializers��gfold��gmax��gcalculate-n-specialized��g%invalidate-method-cache!��g
n-specialized��ggf��gm����������b��������������b������������g
*unspecified*���������ginternal-add-method!��g<procedure>��gproc����������q���,���������2�����������g<primitive-generic>��gpg������p���,�������gobj������f"~S is not a valid generic function��Y����������glet*��gspec��gmap*�����a�����d�������gsrc��gprocedure-source������a����������������gcadr����������gcddr��������������gcons���!������������������W����T���������������a�������gcar��gcdr��g
allocationS��ginstanceS��g
init-valueS�ginit-keywordS�gassq�ggetters-n-setters�gslot-definition�gequal?�gg-equal?�gy���gset-primitive-generic!�	gdisplay�
gnumber->string�gobject-address�gdisplay-address�
gwrite�go�gfile��f#<instance �	��	>��gwrite-object�#����@�c�f#<�	�d�	� 	 �!� �"�!��#W"�$#�%�&gmeta�'#�(&'�)(�*c&�+T*�,d&�-	,�.�/�-  .�0�+/��1W)0�21�3��4#��5&4�65�7c���8T*7�9k��:@9�;:�<	@�=� <�>�@=�?W;>�@f (�A	@�Bglength�Cl��DBC�E	D�Ff)>�G	F�H�-?AEG�I�8H��JW6I�KJ�L&�ML�Nc��OT*N�P��Qc��Ra��S�QR��T�PS�Un�V�TU�W	V�X�- W �Y�OX��ZWMY�[Z�\�]\�^gmerge-generics�_g<module>�`g<symbol>�agmodule�bgint1�cgval1�dgint2�egval2�fgvar�ggval�ha@bcdefg�ig	<boolean>�jgeq?�kjce�lk�mg
make-variable�n�ec�o)n@�pmo�qTlp�rq�sa@bcdef��t���ua�t�v�eu�wv�x�eu�y�ex�zb�ty�{�~�|ae{�}��|�~��}�be{~���z�f��Tw������gduplicate-handlers��gmerge-accessors��^a@bcdefg	�����gslots��gclassS��g
each-subclassS������gclass-slot-g-n-s��gunbound?��gc��gs������f!Slot `~S' is unbound in object ~S��Y�����������f Slot `~S' is unbound in class ~S��Y����������fUnbound slot in object ~S��Y������f#No slot with name `~S' in object ~S��Y�������f(No class slot with name `~S' in class ~S��Y��������gvalue�������0�����������f0No next method when calling ~S
with arguments ~S��Y��������f&No applicable method for ~S in call ~S���9���Y��������fNo method defined for ~S��Y�������gself�����gclone��g%allocate-instance��#���������������j����1�����������-��c�-��a�-��b�-������������������W���������������\���N���������W����b�-������������������W��������gold��gnew������gremove-class-accessors!������g����������gupdate-direct-method!����������������������g��������b�����W�����gset-car!��gcpl������a������������gdirect-subclasses������f��������b����������e������������������b����������e��������g
%modify-class�������gupdate-direct-subclass!�������������f��������g	redefined������b����g%invalidate-class������������
�g<accessor-method>�"��a������gdelq1!�	a���
�	�b��
����
W���
����g���������gloop�gl�n����gpair?��geqv?���������� ��! �"�!�#�"�$W#�%$�&����'e��(h��)d��*#��+&'(�)�*�,O�+�-,�.gcompute-slot-accessors�/gg-n-s�0/�1g
init-thunk�2�/�312�4�/�5/4�635�7��8/�9gmake-generic-bound-check-getter�:�/�;9:�<8;�=gstandard-get�>=/�?1>�@gbound-check-get�A@/�B�A�C�<?B�Dgslot-definitionS�EG�7�CD/�FW6E�GF�H� �Igstandard-set�JI/�K�82J�LG�H�KD/�MW6L�NM�Ogassert-bound�Pgnum-standard-pre-cache�Qgdefine-standard-accessor-method�Rgcache�Sgvector�Tg
struct-ref�Ugstruct-set!�Vgiota�Wgn�XW�Yg<�Zg
vector-ref�[ZRW�\gnfields�]ginteger?�^f-Bad getter and setter for slot `~S' in ~S: ~S�_f*Bad getter closure for slot `~S' in ~S: ~S�`f*Bad setter closure for slot `~S' in ~S: ~S�af/Class-allocated slots should not reserve fields�bgthunk?�cf&Bad init-thunk for slot `~S' in ~S: ~S�dgcompute-getters-n-setters�e�f?e�gf�hgfilter�ig
only-non-null�jgmerge-lists�kgevery�lgreverse!�mf*merge-lists: Inconsistent precedence graph�ngtop-sort�ogbuild-transitive-closure�pgbuild-constraints�qgstd-tie-breaker�rgcompute-clos-cpl�sftop-sort: Invalid constraints�tfstd-tie-breaker: Nothing valid�u��vgclass-slot-init-value�wv�xgthunk�y9��zxy�{z�|x�}7��~�x|}�W{~��qw��gcase��3������galready-allocated���\��a����������g+������b����W������������1���@������h���1����@���gmake-closure-variable���w��i������������gr�����a����@�����������������!��W����W����������W���������������gvirtualS�����gget��gslot-refS��2���v��������gset��g	slot-set!S��v������������T�������f4You must supply a #:slot-ref and a #:slot-set! in ~S��Y��������������W�����������������������������fAllocation "~S" is unknown��Y�������g%compute-slots��������gobject��ginitargs������g%initialize-object�������������gdslots��v���������v�����A�������g???������v�����b���g
direct-supers������b�A��gdirect-slots������b����b����b����>��b����b���A�������������b����b�
��d���b����.���W����������a��������b������������A��g
%prep-layout!�����g%inherit-magic!���A��W������������
������ginitialize-object-procedure��g<applicable-struct>��gapplicable-struct��������������ggeneric���gprevious-definition�v����v���@��"��	^��
!�	��
����
b��gset-procedure-property!�@��@�W�
��	�ggws���g%set-object-setter!�v������geg���v{���bt���gdummy-procedure� !��!ggeneric-functionS�"v!��#b!�"�$v����%b!�$�&v���'b!�&�(v����)b!�(�*���+v����,b!*+�-���.v���/b!-.�0�#%'),/�1g%modify-instance�2gchange-object-class�3gold-instance�4gnew-instance�534�64�7g	new-class�837�9#3�:2397�;:�<���=<�>Ɍ�?ginstance�@D��A?@�BA�CE?��DWBC?�ED�F[	�GJ���H�FG�IS���J�I�KJ�LV����MR�L��NI���O��MN�PWKO�QHP�Rg%%compute-applicable-methods�ST���TS�U����Vgtargs�W�#��XVW�YX�Zgsort�[gm1�\gm2�][\�^U[\V�_�]^�`Z�_�aWY`�ba�c#�d#�e[\V�fg%method-more-specific?�gf[\V�hg�ig
build-next�j��i��k���lrk�m���nim��o^ln��po�qg<list>�r���sgletrec�tgnext�ugprocs�vu��wgnew-args�xga�y[w�z�y�w�{xz�|{�}[u�~H�x�Q�utx���}~��W|����w����v���t������Q�t���s�������gsystem-procedure��glist2set��g	mapappend��g
%goops-loaded�C5h�"]4	
w54z>"G4{i5|R4}i>"G4����>"G4�i#>"G4��>"Ga�Hmhe-134L56]gargs
			gfilenamef
oop/goops.scm�
	q	��		r	"��		r	��			


C�r��	hX]�$?��45$(O"	4566456gmethods
		Ugtypes		Ugw			Hgx			Hgmake-procedure			Hgfilenamef
oop/goops.scm�
	j
��		k	��		m	��		m	,��		m	��		m	��	$	n	��	,	p	��	8	s	��	B	o	��	H	t	��	I	k	��
		U	gnamegcompute-cmethod�C�R
4�i		5�ZR4�i		5�[R�Yh�-136�g
format-string
			gargs			gfilenamef
oop/goops.scm�
	~
��	
		
��			0��			��			
gnameggoops-error�CYR�ih �]44�55$CC�gobj
		gclass		gfilenamef
oop/goops.scm�
�
��	�	��	�	��	
�	*��	�	��	�	��	�	��			gnamegis-a?�C"RH�G������	h@�]4M5$�C4455�M�NC�gmeta-supers
		=gentry		=gnew		.	=gfilenamef
oop/goops.scm�
�	��	�	��	�	��	�	��	�	��	�	��	#�	/��	&�	.��	*�	6��	,�	.��	.�	��	.�	��	5�	)��	8�	#��	:�	��		=CO%R��hZ]�CRgx
		gfilenamef
oop/goops.scm�
�	��	�	)��		C�ihc]45�C[gm
		gfilenamef
oop/goops.scm�
�	$��	�	+��	
�	&��		C���h8�]4L5$"
4M5�$4M5NCC�gmeta
		4gfilenamef
oop/goops.scm�
�		��	�	��	�	��	�	��	�	��	"�	��	#�	 ��	,�	5��	.�	 ��	0�	
��		4C%	hP$](C4545H4O>"GJ�(J�CJ6gsupers
		Pg	all-metas		Pgall-cpls			Pgneeded-metas		"	Pgfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	�	��	"�	��	"�	��	%�	��	B�	��	F�	��	I�	��	P�	��		Pgnamegensure-metaclass�C$R�Y�hH
]	(C��$"	4�5�$L6�4L��5�Cgl
		Agt		'gfilenamef
oop/goops.scm�
�	��	�	��		�	��	
�	��	�	
��	�	��	�	��	!�	)��	#�	��	$�	��	+�	��	/�	��	3�	��	6�	��	7�	��	<�	#��	?�	��	@�	��		Agnamegkeywords�Ch �](C��4L��5�C�gl
		gfilenamef
oop/goops.scm�
�	��	�	��		�	��	
�	��	�	%��	�	+��	�	%��	�	��			gnamegargs�Ch@]#OOQQ45456�gmapper
		;gf		;gkwargs			;gkeywords			;gargs			;gk		&	;ga		/	;gfilenamef
oop/goops.scm�
�
��	 �	��	&�	��	)�	��	/�	��	;�	��		;	gnameg	kw-do-map�C�Rv�����ihg]456_gclass
		gfilenamef
oop/goops.scm�
�	"��	�	*��	�	$��		C���$��1Y��G��h�-13445545$"4545$"4	54
54
455$4
>"G"$4
>"G"@	gsupers
		�gslots		�goptions			�gname		�gsupers		8�gt		D	\g	metaclass		\�gtmp1		s�gtmp2		s�	gfilenamef
oop/goops.scm�
�
��	
�	��	�	+��	�	��	�	��	�	��	&�	��	-�	��	6�	$��	8�	��	8�	��	;�	��	D�	��	S�	��	\�	��	_�	��	f�	��	i�	 ��	s�	��	s�	��	}�	��	~�	
����	����	
����	����	
����	����	
����	��		�	
	gnameg
make-class�C&R4������Y���hc]45�C[gx
		gfilenamef
oop/goops.scm�
�	��	�	,��	
�	'��		C��&����������h0~]�$CCvgkw
		*garg		*gfilenamef
oop/goops.scm�
�	��	�	��	
�	"��	)�	'��		*	Ch0�]�$�4�5��CC�gdef
		/gfilenamef
oop/goops.scm�
�	��	�		��		�	��	�		��	�	��	�		��	�	��	�	��	�	��	 �		��	$�		��		/Chp-13�$"4>"G4545$"�4	
5����C
gsupers
			igslots			igt		:	Lgslots		L	igoptions		L	igfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	 �	��	)�	��	2�	��	:�	��	I�	0��	L�	��	R�	��	Z�	��	c�	��			i
Chb]	45L4?6Zgargs
		gv			gfilenamef
oop/goops.scm�	�
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamef
oop/goops.scm�
�
��		'C5R4�������h+]�C#gout
				C����h�]456�gk
		
garg		
grest			
gout			
gfilenamef
oop/goops.scm�		��	
	��		
	C�������

h�]45�$"�$f4	
��

	
���
5��C�$f4	
��

	
���
5��C��C�gk
	garg	grest		gout		gkey			gfilenamef
oop/goops.scm�		
��			��		C	hPr]45" 45$@6$4?$@"���"���jgx
		Pgtmp		Pgtmp			1gfilenamef
oop/goops.scm�
	��		PC5�R4����h+]�C#gout
				C*�+h h]45��C`gslotname
		gslotopt		grest			gout						C��,hx]6pgslot
		grest		gout			gfilenamef
oop/goops.scm�	/	��			C6hO]��CGgslot
		grest		gout						C��h�]456ygslot
		
grest		
gout			
gfilenamef
oop/goops.scm�	,	��	
,	��		
	C=hO]�CGgslot
		grest		gout						C
h��]!45$@45"N45" 45$@6$4	?$
@"���"���$4?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		1	vgtmp		@	Wgfilenamef
oop/goops.scm�
'	��	�C5R4���>QRSUVWXZ[\]^_�`ah�j]��	

45��
45��Cbgdummy
	�gname	�gsupers		�gslot		�	�	C��h(�]	45$@6�gx
		"gtmp		"gfilenamef
oop/goops.scm�
6
��		"g
macro-typegsyntax-rules�gpatternsgnamegsupersgslotg...C5R4����oh>]�C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamef
oop/goops.scm�
@
��		"g
macro-typegsyntax-rules�gpatternsgargg...C5R4������Ypq�T�"rG�(shx�]�$"4>"G	��

���C�gname
		xgfilenamef
oop/goops.scm�
J
��	K	��		K	��	L	��	L	��	L	��	#M	��		xChb]	45L4?6Zgargs
		gv			gfilenamef
oop/goops.scm�	J
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamef
oop/goops.scm�
J
��		'C5R4������Ypq)�h8�]�$"4>"GC�gname
		7gval		7gfilenamef
oop/goops.scm�
R
��	S	��		S	��	T	��	T	��	T	��	#U	��		7	Chb]	45L4?6Zgargs
		gv			gfilenamef
oop/goops.scm�	R
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamef
oop/goops.scm�
R
��		'C5R4� �����vt����uh_]L6Wgprefix
		
gfilenamef
oop/goops.scm�
]	$��	
^	&��		
Ch o]4OL5�Cggname
		gfilenamef
oop/goops.scm�
[	��	\	��		]	��	\	��		CYvh8�-1345$4O5�C6�gnames
			3gargs			3gprefixes			3gfilenamef
oop/goops.scm�
W
��	
X	��	X	��	Y	��	Z	��	[	
��	,Z	��	1a	��	3a	��
			3
Chb]	45L4?6Zgargs
		gv			gfilenamef
oop/goops.scm�	W
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamef
oop/goops.scm�
W
��		'C5 RG�h v-.,3#6ngname
		gfilenamef
oop/goops.scm�
c
��	d	��		
gnamegmake-generic�C'R�"wh[]6Sggf
		
gfilenamef
oop/goops.scm�
h	��	
h	!��		
Cx�"w(yh(�]45$445L5CC�ggf
		#gfilenamef
oop/goops.scm�
l	'��	m	-��	m	)��	n	3��	n	C��	n	3��	 n	-��	"p	-��			#CGz�{�|}yh��-.,3#�$"45$n$45"4O54	
4	5544
5>"G"4	54>"GC�ggfs
	�gname	�ggfs		'�ggws?		2�gsname		L�gsetters		\�ges		~�gans	��gfilenamef
oop/goops.scm�
f
��	g	��	g	��	'g	"��	'g	��	*h	��	2g	��	:i	��	@j	!��	Aj	+��	Lj	��	Ol	��	\j	��	_r	��	nu	)��	~r	��	~j	���x	���x	+���x	���z	���i	���}	��	�gnamegmake-extended-generic�C)R�b~ah�]L45�6�ggf
		gfilenamef
oop/goops.scm�
�	��	�	��	�	"��	�	/��	�	"��	�	��	�	��		Ch(�]4O>"G6�ggfs
		!geg		!gfilenamef
oop/goops.scm�
�
��	�	��	!�	��		!	gnamegextended-by!�C}R�b~�ah �]4L4556�ggf
		gfilenamef
oop/goops.scm�
�	��	�	��		�	��	�	#��	�	0��	�	#��	�	��	�	��			Ch(�]4O>"G6�ggfs
		!geg		!gfilenamef
oop/goops.scm�
�
��	�	��	!�	��		!	gnamegnot-extended-by!�C�R"�Gw����y��
h��-.,3#45$C45$45	4
5645$45$C66�gold-definition
		}gname		}gfilenamef
oop/goops.scm�
�
��	�		��	"�	��	&�		��	0�	��	;�	��	D�	��	L�		��	M�		��	W�	��	X�	
��	b�		��	s�	
��	}�	��		}gnamegensure-generic�C(R4�����������������h`?]	��

C7gdummy
		_gname		_		_	C��h(�]	45$@6�gx
		"gtmp		"gfilenamef
oop/goops.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameC5R����h�]44556�gname
		gfilenamef
oop/goops.scm�
�
��	�	��		�	!��	
�	+��	�	��	�	��		gnamegmake-setter-name�CxRG��xh@�-.,3#4$45"56�gname
		<gfilenamef
oop/goops.scm�
�
��	 �	
��	,�	��	-�	 ��	:�	
��	<�	��		<
gnameg
make-accessor�C*R"w�y'�G����(�+�*h��-.,3#"�45$
45645$
45645$#	
45
4455645$-45$4
5"	45664	5$4455$C"��:"��6�gproc
	�gname	�gfilenamef
oop/goops.scm�
�
��	�		��	&�	��	+�	 ��	3�		��	4�		��	@�	��	E�	 ��	M�		��	N�		��	X�	��	c�	��	l�	��	o�	$��	y�	��	{�		��	|�		����	����	����	����	����	����		����		����	����	����	����	����	����	����		�� 	�gnamegensure-accessor�C+Ra�G"|z�k�~���b}�b�hh]L6`gmethod
		gfilenamef
oop/goops.scm�
�	��	�	"��	�	��		Ch��]45445$"4	5
45545$P4
54>"G4
>"G4>"G"4O>"G4>"G4>"GC�ggeneric
	�gsetter	�gmethods		=�ggws		=�ggfs		W�gfilenamef
oop/goops.scm�
�
��	�	��		�	#��	�	��	�	
��	�	��	�	��	&�	��	/�	!��	5�	3��	7�	!��	=�	
��	=�	��	B�	��	N�	��	O�	��	U�	%��	W�	��	W�	��	Z�	
��	n�	
��	t�	��	{�	
����	
����	����	����	����	����	��	�	gnamegupgrade-accessor�C�R�{h�]456�gname
		gval		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			gnamegtoplevel-define!�C	R4������������������hxc]��	
���
��C[gdummy
		qgname		qgargs			qgbody			q		q	C�������������
hXc]	
��C[gdummy
		Ugname		Ugargs			Ugbody			U		U	C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamef
oop/goops.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgsettergnamegargs�gbodyg...gnamegargs�gbodyg...C5R4�!���h �]
4LL5$CLL6zgx
		gy		gt			gfilenamef
oop/goops.scm�		
��			��		
��			C,hR]6Jgx
		gfilenamef
oop/goops.scm�			��		C��h |]	4L545$CCtgx
		gid		gfilenamef
oop/goops.scm�		��			��		��		��		Ch@�]45$
LO@4?$O@C�gexp
		?greferent		?gtmp			?gtmp		%	?gfilenamef
oop/goops.scm�
	��		?	gnamegfind-free-id�C��h,]��C$gargs
				C�
�hf]4L54L�5C^gfilenamef
oop/goops.scm�		��	
	��		��		��		��		
C,hU]6Mgtail
		gfilenamef
oop/goops.scm�		��		C�'h �]44L554L�5C�gtail
		gfilenamef
oop/goops.scm�		��		��		��		��		��		��		��		C��,hd]6\gf
		grest		gfilenamef
oop/goops.scm�	�	��			C0hv]LL�L�6ngf
		grest		gfilenamef
oop/goops.scm�	�	��	�	��	�	��			C,h�]45$6C}gf
		gs		grest			gfilenamef
oop/goops.scm�	�	��	
�	��	�	"��			Ch�]LL�L�6}gf
		gs		grest			gfilenamef
oop/goops.scm�	�	��	�	��	�	��			C
h��]#45"|45"E45$
O@4?$
O@6$4	?$
LO@"���"���$4?$LO@"��`"��\�gls
	�gformals	�gspecializers		�gtmp		�gtmp		�gtmp		(	egtmp		B	egfilenamef
oop/goops.scm�
�	��	�	gnameglp�C�12>����SVXYZ]Ua	h8.]L����L��C&gformal
		4		4C��hk]LL�6cgx
		
gxs		
gfilenamef
oop/goops.scm�		$��	
	��		
	ChB]L6:gfilenamef
oop/goops.scm�		��		
ChH�]45$
LO@45$O@�6�gls
		Dgout		Dgtmp			Dgtmp		(	Dgfilenamef
oop/goops.scm�
	��	B	$��	D	��		D	gnameglp�Cjlmnoqrkt
h8.]LL��	���L��C&gformal
		7		7C��hh�]4L5$
LO@OQ4L545$LLO@6�gbody
		cgtmp		cglp		(	8gtmp		8	cgtmp		C	cgfilenamef
oop/goops.scm�	(	��	3	��	5	��	8.	��		cC���h-]L��C%gbody0
				C����������
h0M]L�LLL�	CEg	procedure
		.gmake-procedure		.		.	Ch�l]"LL�4L5$<45$4O?"
45	";"645$4O?"
45	"G4	5$
LLO@6dgformals
	�gspecializer	�gbody		�gid		�gtmp		%	Lgtmp		_�g	procedure	��gmake-procedure	��gtmp	��gtmp	��
gfilenamef
oop/goops.scm�	I	��	
;	��	;	#��	;	��	;	��	<	��	R>	���@	���G		���K	
��	�	C��hH�]OQ4545$LO@6�gargs
		Fgbody0		Fgbody1			Fglp		
	gtmp			Fgtmp		&	Fgfilenamef
oop/goops.scm�	
�	��	�	"��	�	5��	�	��	F	��		F	C��	hP�]OQ45$@45$O@6�gx
		Kgfind-free-id	
	Kgtmp			Kgtmp		/	Kgfilenamef
oop/goops.scm�
�	��		KC5!R�g�b�h(�]	454L5$CL�6�gx
		'gdm			'gfilenamef
oop/goops.scm�
Z	
��	[	��		[	��	\	��	\	��	 ]	"��	%]	2��	']	��			'Cnh�]O456}gm
		gfilenamef
oop/goops.scm�
X
��	^	
��	Z	��		gnamegadd-method-in-classes!�C�R�b��gh~]4L4556vgx
		gfilenamef
oop/goops.scm�
b	
��	d	��		e	��	e	#��	e	��	c	��		Cnh�]O456�gm
		gfilenamef
oop/goops.scm�
`
��	f	
��	b	��		gnamegremove-method-in-classes!�C�Rna��hhx]4545"?(�C4�5�$4�>"G�C�"���"���pggf
		agnew		agnew-spec			agmethods			agl			Ygfilenamef
oop/goops.scm�
h
��	i	��	
j	��	j	��	j	��	i	��	k	��	 l	��	%m	
��	'n	��	,n	+��	.n	��	1n	��	5n	
��	6q	��	;q	+��	@q	��	Mr	��	St	��	Yt	��	Yk	��		a	gnamegcompute-new-list-of-methods�C�R�ah�]456�gm
		gfilenamef
oop/goops.scm�
v
��	w	��	w	��	
w	��	w	��		gnamegmethod-n-specializers�C�R���hr]456jgm
		gn		gfilenamef
oop/goops.scm�
z	��	z	��	z	��			Clh�]
456ggf
		gfilenamef
oop/goops.scm�
y
��	|	��	z	��		gnamegcalculate-n-specialized�C�R�b���h[]6Sggf
		gfilenamef
oop/goops.scm�
�	��	�	��		Ca~	h@�]4>"G445>"G456�ggf
		>gfilenamef
oop/goops.scm�
~
��		��	�	��	�	��	�	��	'�	��	4�	��	:�	��	<�	��	>�	��		>gnameginvalidate-method-cache!�CR4Gi�i�i�i������b����h`�]4>"G445>"G4>"G4>"GC�ggf
		[gm		[gfilenamef
oop/goops.scm�
�	��	�	��		�	��	�	��	�	��	�	��	 �	��	-�	��	6�	��	H�	��		[	C5�R"$4(i4i,5$,i",5"B4i,5$04"i,ii5$4Gii�,5""���""���,R44ri�i5,i�i>"G4i,5�$",i�$)4	i,4Gii�,5>"G"4,i,i4Gi�i��i�i������q,h0�]45$4>"G6L6�gproc
		/gm		/gfilenamef
oop/goops.scm�
�
��	�	��	
�	��	�	��	'�	��	/�
��		/	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"G4i,5�$",i�$)4	i,4Gii�,5>"G"4,i,i4Gi�i��i�i������,phr]456jgpg
		gm		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4i,5�$",i�$)4	i,4Gii�,5>"G"4,i,i4Gi�i� i�i������Y�hs]6kgobj
		
gm		
gfilenamef
oop/goops.scm�
�
��	�	��	
�	��		
	C5>"G4i=5�$"=i�$)4	i=4Gii�=5>"G"4,i=i4Gi�i��i�������da��!�	hPJ]!44554455$����45��CCBgm
		Jgspec		Jgsrc		"	Jgargs		2	Hgbody		2	Hgfilenamef
oop/goops.scm�
�
��	�	��	�	 ��	�	,��	�	 ��	�	��	�	��	�	��	�	 ��	�	,��	 �	 ��	"�	��	"�	��	*�	��	-�	��	1�	��	2�		��	8�	��	9�	��	F�	��	G�	��		JC5>"G4io5�$"oi�$)4	io4Gii�o5>"G"4,ioi4Gi�i��i������ahb]6Zgm
		
gfilenamef
oop/goops.scm�
�
��	�	��	
�	��		
C5>"G�i1R�i2Rv��h�]�6�gs
		
gfilenamef
oop/goops.scm�
�
��		�	��	
�	��		
gnamegslot-definition-allocation�C3Rv�h�]�6}gs
		gfilenamef
oop/goops.scm�
�
��		�	��	�	��		gnamegslot-definition-getter�C4Rv�h�]�6}gs
		gfilenamef
oop/goops.scm�
�
��		�	��	�	��		gnamegslot-definition-setter�C5Rvh�]�6gs
		gfilenamef
oop/goops.scm�
�
��		�	��	�	��		gnamegslot-definition-accessor�C6Rv��h�]�456�gs
		gfilenamef
oop/goops.scm�
�
��		�	��	
�	$��	�	��		gnamegslot-definition-init-value�C7Rv��h�]�456�gs
		gfilenamef
oop/goops.scm�
�
��		�	��	
�	#��	�	��		gnamegslot-definition-init-form�C8Rv�h�]�6�gs
		gfilenamef
oop/goops.scm�
�
��		�	��	�	��		gnamegslot-definition-init-thunk�C9Rvh�]�6�gs
		gfilenamef
oop/goops.scm�
�
��		�	��	�	��		gnamegslot-definition-init-keyword�C:Rjh�]456�gclass
		g	slot-name		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			gnamegclass-slot-definition�C<Rah�]4455��C�gclass
		g	slot-name		gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	(��	�	��	�	��	�	��			gnamegslot-init-function�C;Rah�]6�gobj
		
gfilenamef
oop/goops.scm�
�
��	�	��	
�	��		
gnamegaccessor-method-slot-definition�g
documentationf5Return the slot definition of the accessor @var{obj}.�CsR4'i5R4,ii4Gi�i� i i��s��h`]CXgx
		gy		gfilenamef
oop/goops.scm�
�	��			C5>"G4iii>"G	
h�]445	56�go
		gfile		gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��			gnamegdisplay-address�CR4i
5�$"
i�$+4	i
4Gii�
5>"G"4,i
i4Gi�i� i i����	h8�]4>"G4>"G>6�go
		2gfile		2gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	2�	��		2	C5>"G4pi
i5R4i
5�$"
i�$+4	i
4Gii�
5>"G"4,i
i4Gi�i��i i��$�c@	dh�]
�45$]4>"G445>"G4 >"G4>"G>6L6�go
		ygfile		ygclass			ygfilenamef
oop/goops.scm�

��		��		��		��		��		��		��		
��		��	 	
��	)	
��	,	��	9	
��	B	
��	V	
��	q	
��	y
��		y	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�

��		
C�5>"G4i
5�$"
i�$+4	i
4Gii�
5>"G"4,i
i4Gi�i��i i�%�2�c@	dh�V]
�45$�45$�4>"G445>"G4 >"G445>"G4 >"G4>"G>6L6L6Ngclass
	�gfile	�gmeta		�gfilenamef
oop/goops.scm�

��		��		��	
	
��	
	 ��	
	
��	
	��		
��		��		
��	!
	��	"	
��	&	��	-	
��	6	
��	9	��	F	
��	O	
��	c	
��	f	��	s	
��	|	
���	
���	
���
��	�	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�

��		
C�5>"G4i
5�$"
i�$+4	i
4Gii�
5>"G"4,i
i4Gi�i�i i�3�K�c@�	dk@BlFh��]�45$�45$�4>"G445>"G45$,4 >"G4>"G"4>"G44	4
55>"G6L6L6�ggf
	�gfile	�gmeta		�gname		U�gfilenamef
oop/goops.scm�

��		��		��		
��		��		
��		��		
��		��		
��	!	��	"	
��	&	��	-	
��	6	
��	9	��	F	
��	O 	��	U 	
��	]!	��	^#	��	r$	���%	
���%	���%	
���&	
���&	���&	���&	���&	
���'	���'	
���
��"	�	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�

��		
C�5>"G4i
5�$"
i�$+4	i
4Gii�
5>"G"4,i
i4Gi�i��i i��[�c@	d�c@ah �]45$6C�gspec
		gfilenamef
oop/goops.scm�
2	��	3	��		3	1��	3	��	3	��	4	.��	4	��		Cnh�e]
�45$�45$�4>"G445>"G4 >"G444	55>"G4 >"G4
>"G>6L6L6]go
	�gfile	�gmeta		�gfilenamef
oop/goops.scm�
*
��	+	��	+	��	,	
��	,	��	,	
��	,	��	-	
��	-	��	-	
��	!,	��	"/	
��	&/	��	-/	
��	60	
��	90	��	F0	
��	O1	
��	c2	
��	f2	��	k6	��	s2	��	z2	
���8	
���9	
���:	
���*
��	�	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
*
��		
C�5>"G4i	5�$"	i�$+4	i	4Gii�	5>"G"4,i	i4Gi�i� i i��]��hk]6cgo
		
gfile		
gfilenamef
oop/goops.scm�
>
��	
?	��		
	C5>"G4i^5�$"^i�$+4	i^4Gii�^5>"G"4,i^i4Gi�i�_i`i_i i_i i i i�h�s��h�,3C�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamef
oop/goops.scm�
E
��			C5>"G4i^5�$"^i�$+4	i^4Gii�^5>"G"4,i^i4Gi�i�_i`i_ii_ii iii�h�r��m)h(�,3&C456�gmodule
		"gname		"gint1			"gval1			"gint2			"gval2			"gvar			"gval			"gfilenamef
oop/goops.scm�
O
��	W	��	X	��	X	-��	 X	��	"X	��		"	C5>"G4i^5�$"^i�$+4	i^4Gii�^5>"G"4,i^i4Gi�i�_i`i_ii_ii i|i�s�����a�b�~h��,34455$C44455�>"G44455�>"G4>"GC�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			ggf			gfilenamef
oop/goops.scm�
Z
��	b	��	b	��	b	$��	b	��	b	��	b	��	d		��	#e	��	&f	��	+f	+��	1f	8��	3f	+��	5f	��	6f	��	;d		��	Dg		��	Jh	��	Mi	��	Ri	'��	Xi	6��	Zi	'��	\i	��	]i	��	bg		��	kj		��			C5>"G4�i�i^^i>"G4i�5�$"�i�$+4	i�4Gii��5>"G"4,i�i4Gi�i�_i`i_i i_i i i i�h�s��h�,3C�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamef
oop/goops.scm�
o
��			C5>"G4i�5�$"�i�$+4	i�4Gii��5>"G"4,i�i4Gi�i�_i`i_ii_ii i i�h����^h �,36�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamef
oop/goops.scm�
y
��	�	��			C5>"G4�i�i��i>"Ga�0�3�	hpu]44554455$"	45��4455$"4>"GCmgclass
		og	slot-name		og	this-slot			ogt		$	>gg-n-s		@	ogfilenamef
oop/goops.scm�
�
��	�	��	�	$��	�	4��	�	$��	�	��	�	��	�	��	�	*��	 �	:��	"�	*��	$�	��	$�	��	3�	��	?�	��	@�	��	C�	
��	F�	��	P�	
��	T�	��	Y�	��		o	gnamegclass-slot-g-n-s�C�R��/h(�]
445�545$6C�gclass
		(gslot		(gx			(gfilenamef
oop/goops.scm�
�
��	�	��	�	��	
�	��	�	��	�	��	�	��	�	��	%�	��
		(	gnamegclass-slot-ref�C-R�h�]45��6�gclass
		gslot		gvalue			gfilenamef
oop/goops.scm�
�
��	�		��	�	��	�	��			gnamegclass-slot-set!�C.R4i/5�$"/i�$)4	i/4Gii�/5>"G"4,i/i4Gi�i��i�i i������Y�h�]6xgc
		go		gs			gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4i/5�$"/i�$)4	i/4Gii�/5>"G"4,i/i4Gi�i��i i������Y�hq]6igc
		gs		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4i/5�$"/i�$)4	i/4Gii�/5>"G"4,i/i4Gi�i��i������Y�hb]6Zgo
		
gfilenamef
oop/goops.scm�
�
��	�	��	
�	��		
C5>"G4i05�$"0i�$)4	i04Gii�05>"G"4,i0i4Gi�i��i�i i������Y�h�]6xgc
		go		gs			gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4i05�$"0i�$)4	i04Gii�05>"G"4,i0i4Gi�i��i i������Y�hq]6igc
		gs		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4i05�$"0i�$)4	i04Gii�05>"G"4,i0i4Gi�i��i�i i i������0h�]6�gc
		go		gs			gvalue			gfilenamef
oop/goops.scm�
�
��	�	��			C5>"G4iH5�$"Hi�$)4	iH4Gii�H5>"G"4,iHi4Gi�i�i i������Y�hu]6mggf
		gargs		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4iI5�$"Ii�$)4	iI4Gii�I5>"G"4,iIi4Gi�i�i i������Y�kh�]45�6ggf
		gargs		gfilenamef
oop/goops.scm�
�
��	�	��		�	��	�	��	�	��			C5>"G4iJ5�$"Ji�$)4	iJ4Gii�J5>"G"4,iJi4Gi�i�i i������Y�hu]6mggf
		
gargs		
gfilenamef
oop/goops.scm�
�
��	�	��	
�	��		
	C5>"G4iM5�$"Mi�$)4	iM4Gii�M5>"G"4,iMi4Gi�i��i��������1j�cbah(x]4L5$L4L56Cpgslot
		"gfilenamef
oop/goops.scm�
�	��	�	��	�	��	�	*��	 �	��		"Ch@�]4�544�554O>"GC�gself
		<gclone		<gslots			<gfilenamef
oop/goops.scm�
�
��	�	��	�	#��		�	3��	�	��	�	��	�	��	�	!��	�	��	�	��	�	��	�	��
		<C5>"G4iN5�$"Ni�$)4	iN4Gii�N5>"G"4,iNi4Gi�i��i��������1j�cba\Nh@�]	4L5$.L4L545$45"6C�gslot
		?gvalue		;gfilenamef
oop/goops.scm�
�	��	�	��	�	��	�	,��	�	��	!�	%��	+�	!��	,�	%��	=�	��
		?Ch@�]4�544�554O>"GC�gself
		<gclone		<gslots			<gfilenamef
oop/goops.scm�
�
��	�	��	�	#��		�	3��	�	��	�	��	�	��	�	!��	�	��	�	��	�	��	�	��
		<C5>"G4iO5�$"Oi�$)4	iO4Gii�O5>"G"4,iOi4Gi�i��i�i������g��hZ]LL6Rgm
		gfilenamef
oop/goops.scm�
�	��	�	��		Cb��a�b��fh~]4L4556vgc
		gfilenamef
oop/goops.scm�
�	��	�	%��		�	#��	�	.��	�	#��	�	��		Ceb��fh �]L4L455�6gc
		gfilenamef
oop/goops.scm�
	��		��		#��		.��		#��		��		��		C��hZ]LL6Rgc
		gfilenamef
oop/goops.scm�
	��	
		��		Cf�h�]
4>"G454O>"G44455>"G4	5�4
O45>"G4O45>"G4
>"G4O45>"G4>"G4>"GCzgold
	gnew	gmethods			]gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	9�	��	?�	��	@�	��	E�	��	M�	��	R�	��	^�	��	d�	��	f�	��	i�	��	j�	��	t�	��	�	���	���	���	���	���	���	���	���	���	���	���	��		C5>"G4i�5�$"�i�$+4	i�4Gii��5>"G"4,i�i4Gi�i��i������"a�b��
hX�]	45$G4544455>"G4>"G	6C�gm
		Xggf		Vgfilenamef
oop/goops.scm�
	��		��		��		��		(��		��		��	 	��	! 	"��	"!	��	'!	)��	-!	6��	/!	)��	1!	��	6 	��	?"	��	V$	��		XCghb]456Zgc
		gfilenamef
oop/goops.scm�

��	%	��		��		C5>"G4i�5�$"�i�$+4	i�4Gii��5>"G"4,i�i4Gi�i��i�i�i��%��nh8�]"%�$��$	�"�"���C45"����gm
		8gold		8gnew			8gl			+gfilenamef
oop/goops.scm�
+
��	.	��		1	��	
1	��	3	��	3	��	3	
��	4	��	#5	��	)5	
��	+.	��	,.	��	8.	��		8	C5>"G4i�5�$"�i�$+4	i�4Gii��5>"G"4,i�i4Gi�i��i�i�i�&�-��O&eh�d�h0�]4454545�56�gc
		)gold		)gnew			)gfilenamef
oop/goops.scm�
;
��	?	��	
?	"��	@	"��	A	)��	%B	.��	'?	��	)>	��			)	C5>"G�456,BCyh�i]454545$44L5>"G"$44L5>"G"$/44L5>"G454L56Cags
	�gg-n-s	�ggetter-function		�gsetter-function		�gaccessor		�gfilenamef
oop/goops.scm�
L	��	M	��	
N	��	O	��	M	��	#P	
��	$Q	��	)R	��	6Q	��	HS	
��	IT	��	NU	��	[T	��	mV	
��	nX	��	sY	���X	���Z	���[	���Z	��	�	Cah�]O456�gclass
		gslots		gfilenamef
oop/goops.scm�
J
��	\	��	\	��	\	��	K	��			gnamegcompute-slot-accessors�C.R4iB5�$"Bi�$)4	iB4Gii�B5>"G"4,iBi4Gi�i��i i�0�G��G��9=@D	hP]�����$4�5"$45"456�gclass
		Lgg-n-s		Lg
init-thunk		
	Lgg-n-s		
	Lgfilenamef
oop/goops.scm�
^
��	_	��		`	��	
_	��	b	��	c	��	"c	��	#d	��	(d	>��	*d	��	4c	��	5f	��	@h	��	La	��		L	C5>"G4iC5�$"Ci�$)4	iC4Gii�C5>"G"4,iCi4Gi�i��i i�0�N��G� �IDh8�]
�����$��"456�gclass
		8gg-n-s		8gg-n-s			8gfilenamef
oop/goops.scm�
k
��	m	��	l	��	l	��	o	��	p	��	#p	��	&q	��	,r	��	8n	��		8	C5>"GOhc]4L56[go
		gfilenamef
oop/goops.scm�
v	��	v	��	v	��		Ch]OCwgproc
		
gfilenamef
oop/goops.scm�
u
��		
gnamegmake-generic-bound-check-getter�C9R	PR4�Q�����qWRS�TU�hH�]�$:�&
���LC�&���L����CL6C�gform
		Fgfilenamef
oop/goops.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	��	"�	��	$�	��	(�	��	+�	��	.�	��	4�	.��	:�	��	C�	��		Fgnameg
body-trans�C��h(�]	OQL4L5��C�gx
		"g
body-trans		"gfilenamef
oop/goops.scm�
�	��	�	��	�	��	 �	��		"gnamegmake-one�CVP�X�YW[hx�-13������4O455�	

		��
�C�gform
			tgbody			tgname			tgn-var			tgargs			tgfilenamef
oop/goops.scm�
~
��		��	�	��	�	��		��	�	��	&�	��	2�	,��	:�	��	;�	��			t
Chb]	45L4?6Zgargs
		gv			gfilenamef
oop/goops.scm�	~
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamef
oop/goops.scm�
~
��		'C5QR�/h 7]	
�45$6C/go
		gx				C�/h 7]	�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]			�45$6C/go
		gx				C�/h 7]		
�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		
�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h �]	L�45$6C|go
		gx		gfilenamef
oop/goops.scm�	�	��	�	��	
�	��	�	��	�	��		Ch )]	�$L�COC!gn
				CO@Rh)]
�C!go
				Ch)]�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]		�C!go
				Ch)]	
�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	
�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				ChR]L�CJgo
		gfilenamef
oop/goops.scm�	�	��		Ch )]	�$L�COC!gn
				CO=Rh8]
�C0go
			gv							Ch8]�C0go
			gv							Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]		�C0go
		
gv		
		
	Ch8]	
�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	
�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Cha]L�CYgo
		
gv		
gfilenamef
oop/goops.scm�		�	��		
	Ch )]	�$L�COC!gn
				COIR�a\@1]Y^B�_`3���a9bc7�hA]LC9gfilenamef
oop/goops.scm�
�	��		
C�h��]94L54L54L5�4545$"�"4L>"�G"��$y45	�$c���4	5$"4
L>"G4	5$"4L>"G""��h""��`45
�$"�$A"4>"&G"
�$�$""���""�����C45$"45$"
4L5"$"#4545$"O45$"
�$"45��C�gs
	�gindex	�gg-n-s		�gsize		$�gname		-�gt		6�gget		~�gset		~�gkey	��gthunk	S�gt	��ginit	��gt	��
gfilenamef
oop/goops.scm�
�	��	�	��		�	'��	�	��	�		��	�	��	�		��	�	��	�	)��	!�	��	$�	��	$�		��	'�	��	-�		��	0�	��	6�	��	G�	��	K�	��	V�	��	b�	��	e�	��	i�	��	j�	"��	s�	��	w�	��	z�	��	}�	��	~�	����	����	
����	����	����	����	����	
����	����	����	����	����	���	���	���	��#�	��&�	��+�	��.�	(��2�	��H�	��I�	��M�	��S�	��[�	
��\�	��f�	��m�	��q�	 ��y�	����	����	����	����	����	
����	"����	����	"����	����	����	,����	����	����	��I	�Ch�]O6�gclass
		gslots		gfilenamef
oop/goops.scm�
�
��	�	��			gnamegcompute-getters-n-setters�CdR4i>5�$">i�$)4	i>4Gii�>5>"G"4,i>i4Gi�i��i�e�g��?eh]]6Ugclass
		
gfilenamef
oop/goops.scm�
�
��	
�	��		
C5>"Ghhc]��C[gl
		gfilenamef
oop/goops.scm�
�	
��	�	��	�	��		Chu]6mglst
		
gfilenamef
oop/goops.scm�
�
��	
�	��		
gnameg
only-non-null�CiRji��ih0]
454445556�gc
		,gget-direct-supers		,gc-direct-supers				,gfilenamef
oop/goops.scm�
�
��	�	��		�	��	�	��	�	��	�	 ��	�	(��	&	(��	(�	 ��	*�	��	,�	��		,	gnamegcompute-std-cpl�C?Rk[l���hc]L�6[gl
		gfilenamef
oop/goops.scm�
	'��				1��			)��		Ch(�]	(C�4OL5$CC�gl
		&gc	
	&gfilenamef
oop/goops.scm�
	��	
	��	
	,��	
	!��		"��	!	��		&gnameg
candidate-car�CYmji�h�]�L&�CC|gl
		gfilenamef
oop/goops.scm�
	��		$��		��		��		gnamegremove-next�Ch`"]
45$64O5$"4>"G�4	4
O556greversed-partial-result
		]ginputs		]gnext		#	]gfilenamef
oop/goops.scm�

��		��		��		��		��	#	��	+	��	0	
��	4	��	9	
��	H	��	I	��	L	$��	[	��	]	��		]	gnamegmerge-lists�CjRnopqh(�]44554455456�gc
		%gget-direct-supers		%gfilenamef
oop/goops.scm�
#
��	$	��	$	
��	$	��	%	��	%	
��	%	��	&	��	%$	��
		%	gnamegcompute-clos-cpl�CrRhk�h �]	��L��$C�L6�g
constraint
		gt	
	gfilenamef
oop/goops.scm�
2	��	3	)��		3	$��	
3	��	
3	��	4	%��	4	��		ChZ]LOL6Rgx
		gfilenamef
oop/goops.scm�
1	��	2	��		CYshc]L��C[gx
			gfilenamef
oop/goops.scm�
>	��	>	*��	>	%��			C�h��]+"f(C4O5(6�(�"	454O545"���"����gelements
		{gconstraints		{gtie-breaker			{gelements			lgconstraints			lgresult			lg
can-go-in-now			lgchoice		D	lgfilenamef
oop/goops.scm�
)
��	*	��	-	��	0	��	/	��	'7	
��	+8	��	-8	��	09	'��	49	��	7:	 ��	<;	 ��	D9	��	G>	��	WA	��	`A	 ��	bA	��	l=	��	l*	��	q,	��	{*	��		{	gnamegtop-sort�CnRh�hZ]L6Rgx
		
gfilenamef
oop/goops.scm�
H	 ��	
I	&��		
CYthXh]"">�4L54O5(�(6�"����C45"���`gpartial-cpl
		Qgmin-elts		Qgpcpl			Dgcurrent-elt				Dgds-of-ce			Dgcommon		"	Dgfilenamef
oop/goops.scm�
D	��	E	��		F	��		F	��	G	��	G	��	H	��	"H	
��	*K	��	-L	��	1L	��	5M	!��	7M	��	:N	��	@N	��	CO	��	DE	��	EE	��	QE	��		Q	Chu]OCmg
get-supers
		
gfilenamef
oop/goops.scm�
C
��		
gnamegstd-tie-breaker�CqR��hX-]"D(C�45$
�"����44L5�5"���"���%gx
		Xgresult		Jgpending			Jgnext			Jgfilenamef
oop/goops.scm�
S	��	T	��	V	��	X	��	X	
��	Y	��	!Y	��	&Z	��	.Z	��	3[	��	4\	��	7\	��	@]	��	B\	��	J[	��	JT	��	KT	��	PU	��	XT	��		XCh�]OCzgget-follow-ons
		
gfilenamef
oop/goops.scm�
R
��		
gnamegbuild-transitive-closure�CoRohx�]"S("��$$(C��4L�5�"��������"���44L55"���{gx
		qgelements		Ygthis-one			Ygresult			Ygfilenamef
oop/goops.scm�
`	��	a	��	d	
��	
d	��	d	&��	d	��	d	��	e	
��	%g	��	(h	��	)i	��	.i	*��	0i	��	1h	��	=g	��	Bl	��	Em	��	Hm	+��	Lm	��	Om	��	Yk	
��	Ya	��	Za	��	[a	��	ea	��	fb	��	gc	��	qa	��		qCh{]OCsgget-follow-ons
		
gfilenamef
oop/goops.scm�
_
��		
gnamegbuild-constraints�CpR4i@5�$"@i�$)4	i@4Gii�@5>"G"4,i@i4Gi�i��i i�u���3�a\b�1��h�97�i��v�2�Y�hp�]"45�$%454�>"GC�$�4544	4
555$(45$	45"4
56"'44�55$��C�"���45�"����$(45$	45"4
56�$f44554455$"$"4>"G"4>"GCL6�gclass
	mgs	mgkey			mgalready-allocated			9gname		I�gthunk		o�gl	��gr	��gthunk	��gget	egset	egfilenamef
oop/goops.scm�
r
��	y	��		y	��	|	��	|	.��	|	��	|	��	 }	��	&}	��	)}	!��	.}	��	By	��	C�	��	I�	��	L�	��	Q�	��	V�	0��	^�	��	`�	��	d�	��	it	��	ot	��	wu	��	xv	
���w	
����	����	����	����	"����	,����	4����	"����	����	
����	����	����	����	����	����	����	����	���y	���t	���t	���u	���v	
���w	
����	���y	���	���	)���	���	���	)���	���	��'�	��-�	��2�	��6�	��=�	��N�	��U�	��d�	��mr
��C	m	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
r
��		
C�5>"GhQ]MCIgo
		gfilenamef
oop/goops.scm�
�	��		Chi]NCago
		gv		gfilenamef
oop/goops.scm�
�	��	�	��			Ch�]HOOC�gclass
		gvalue		gfilenamef
oop/goops.scm�
�
��	�	��			gnamegmake-closure-variable�C�R4i@5�$"@i�$)4	i@4Gii�@5>"G"4,i@i4Gi�i��i i������Y�3hz]456rgo
		gs		gfilenamef
oop/goops.scm�
�
��	�	��	�	.��	�	��			C5>"G4iA5�$"Ai�$)4	iA4Gii�A5>"G"4,iAi4Gi�i��i�e�����h]]6Ugclass
		gfilenamef
oop/goops.scm�
�
��	�	��		C5>"G4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i��i i�������ht]6lgobject
		
ginitargs		
gfilenamef
oop/goops.scm�
�
��	
�	��		
	C5>"G4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i��i i�����v��b@�������>�A�\d.�b�ah�]L45�6gx
		gfilenamef
oop/goops.scm�
�	��	�	��	�	'��	�	3��	�	'��	�	��	�	��		C��hp�]4L>"G4545445>"G4>"G4	>"G4
>"G4>"G44
5>"G4>"G454>"G4
>"G445>"G4>"G4O>"G4>"G6�gclass
	nginitargs	ngdslots		*ngsupers		*ngslots	�;gfilenamef
oop/goops.scm�
�
��	�	��	�	.��	 �	��	!�	��	(�	3��	*�	��	*�	��	/�	��	5�	��	6�	(��	>�	E��	@�	(��	E�	��	N�	��	T�	��	[�	��	d�	��	j�	��	q�	��	z�	����	����	(����	����	����	����	(����	����	����	����	(����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	*���	��%�	��<�	��U�	��n�	��4	n	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"Gv�b�h8�]
45$�$
@6C�gobject
		1ginitargs		1gproc			1gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	�	��	!�	#��	%�	��	+�	��	/�	��	0�	��		1	gnameginitialize-object-procedure�C�R4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i��i i������h ]4L>"G6wgapplicable-struct
		ginitargs		gfilenamef
oop/goops.scm�
�
��	�	��			Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"G4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i�i i���v��b�"�G�� �����h_-13L@Wgargs
			gfilenamef
oop/goops.scm�
�	*��	�	,��			


C@h�,]45454L>"G445$&4	

O5">"G$
6C$ggeneric
	�ginitargs	�gprevious-definition		�gname		�gfilenamef
oop/goops.scm�
�
��	�	��	
�	��	�	��	�
��	/�	��	5�	��	6�	$��	B�	 ��	C�	*��	d�	$��	i�	$��	n�	��	|�	����	)����	��	�	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"G4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i�wi i���v�h(z]4L>"G456rggws
		&ginitargs		&gfilenamef
oop/goops.scm�
�
��	�	��	&�	��		&	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"G4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i�|i i���b�v{h(�]4L>"G456�geg
		(ginitargs		(gfilenamef
oop/goops.scm�
�
��	�	��	�	��	$�	9��	&�	��	(�	��		(	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"Ghr-13Cjgargs
			gfilenamef
oop/goops.scm�
�	��			


gnamegdummy-procedure�CR4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i��i i� �0�b�v!��������h�~]4L>"G445>"G445>"G445>"G4	4
5>"G445>"G
456vgmethod
	�ginitargs	�gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	&��	,�	��	5�	��	;�	��	<�	"��	C�	G��	E�	"��	J�	��	S�	��	Y�	��	Z�	
��	h�	��	q�	��	w�	��	x�	��	�	=����	����	����	����	����	����	7����	����	����	����	$����	��	�	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"GD�;^`3<�_]	h��]	""4L5$LL456C4LL5$@44L55&(4LL5$LL4LL56"���"���"����gslot
		{ginit		(gfilenamef
oop/goops.scm�
	��		 ��		��		��	 	��	&	��	(	��	)	��	7	��	8	��	;	��	E	��	K	��	L	��	Z	��	c	��	o
	��		{C�1j1L	hh&]454O4455>"G4>"G4>"GCgold-instance
		bg	old-class		bg	new-class			bgnew-instance		
	bgfilenamef
oop/goops.scm�

��		��		3��	
	��	
	��	
	��		��	"	(��	*	��	/	��	8	��	L	��
		b	gnamegchange-object-class�C2R4iL5�$"Li�$)4	iL4Gii�L5>"G"4,iLi4Gi�i��i�i�5�6��hu]Cmgold-instance
		gnew-instance		gfilenamef
oop/goops.scm�

��			C5>"G4iK5�$"Ki�$)4	iK4Gii�K5>"G"4,iKi4Gi�i��i�i�8�;��2h�]�6|gold-instance
		
g	new-class		
gfilenamef
oop/goops.scm�
%
��		&	$��	
&	��		
	C5>"G4iD5�$"Di�$)4	iD4Gii�D5>"G"4,iDi4Gi�i��i i���=���hs]6kgclass
		
ginitargs		
gfilenamef
oop/goops.scm�
.
��	
/	��		
	C5>"G4iF5�$"Fi�$)4	iF4Gii�F5>"G"4,iFi4Gi�i��i i��>�E��DEh0�-13454>"GC�gclass
			+ginitargs			+ginstance			+gfilenamef
oop/goops.scm�
1
��	
2	��	2	��	3	��			+
C5>"GFiGR4iP5�$"Pi�$)4	iP4Gii�P5>"G"4,iPi4Gi�i�i i���Q��a�JSRVIhX�]
45(4>"G"45$4566�ggf
		Sgargs		Sgmethods		0	Sgfilenamef
oop/goops.scm�
F
��	G	
��		G	��	G	
��	G	��	H	��	(I	��	0I	��	8J	��	=K	��	KK	��	SL	��
		S	C5>"G4Gii�S5RR4iR5�$"Ri�$+4	iR4Gii�R5>"G"4,iRi4Gi�i�i i���T��Thl]6dggf
		
gargs		
gfilenamef
oop/goops.scm�
S
��	
T	��		
	C5>"GRiSi4iV5�$"Vi�$)4	iV4Gii�V5>"G"4,iVi4Gi�i�i i i�U�b���dZUhk]L6cgm1
		gm2		gfilenamef
oop/goops.scm�
Z	��	Z	"��			Ch �]45O6�ggf
		gmethods		gargs			gtargs			gfilenamef
oop/goops.scm�
X
��	Y	��	Y	��	Z	��			C5>"G4iU5�$"Ui�$)4	iU4Gii�U5>"G"4,iUi4Gi�i��i�i i�e�h��fh}]6ugm1
		gm2		gtargs			gfilenamef
oop/goops.scm�
\
��	]	��			C5>"G4iQ5�$"Qi�$)4	iQ4Gii�Q5>"G"4,iQi4Gi�i�i i i i�j�p��rh�]4�54�5@�ggf
		gmethods		g
build-next			gargs			gfilenamef
oop/goops.scm�
_
��	`		��	`	��	
`		��	a		��	a	��	a		��	`	��				C5>"G4iR5�$"Ri�$)4	iR4Gii�R5>"G"4,iRi4Gi�i�iqi i�r����HQh@�-13L(L(L"6LLL(L"6gnew-args
			;gfilenamef
oop/goops.scm�
f	��	h	��	g	��	#i	��	1g	��	;j	��			;


Chx]LLOCpgprocs
		gargs		gfilenamef
oop/goops.scm�
e	��			gnamegnext�CQh �]OQ6�ggf
		gl		gargs			gnext			gfilenamef
oop/goops.scm�
d
��	e	��	k	��			C5>"G4�i�hf]6^gproc
		gfilenamef
oop/goops.scm�
n	
��	o	*��	o	��		C/i0iHiIiJi>"G�hH]"5(C4�5$
�"������"���"���gl
		Fgl		;gres			;gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	 �	��	*�	��	-�	��	0�	��	3�	��	;�	��	;�	��	>�	��	F�	��		Fgnameglist2set�C�R�fh�]4L455�C�gc
		gfilenamef
oop/goops.scm�
�	��	�	��	
�	)��	�	��	�	��		gnamegallsubs�C��fh(�]	OQ44556�gc
		!gallsubs	
	!gfilenamef
oop/goops.scm�
�
��	
�	��	�	��	�	)��	�	��	!�	��		!gnamegclass-subclasses�CWR��gWh�]445�56�gc
		gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnameg
class-methods�CXR�i6�
gm
		,gtable-of-metas
��gt
^�^�gt
`�`�gt
a�a�gt
b�b�gt
e$e9gt
pZppgt
q�q�gt
t�t�gt
w�w�gt
{�{�gt
��gt
��,gt
����gt
����gt
����gt
�d�zgt
�N�cgt
����gt
����gt
����gt
��gt
�+�@gt
�t��gt
����gt
����gt
��,gt
����gt
�]�rgt
��+gt
����gt
�p��gt
��*gt
�!�6gcache
����gcache
��DZgcache
Γ�qgt
֭��gt
��'gt
��&gt
�D�Ygt
�G�\gt
�n��gt
����gt
����gt
%:gt
�gt
i~gt
=Rgt
Wlgt
��gt
��gt
-Bgt
*@gt
Wlgt
Xmgt
��gt
!6;gfilenamef
oop/goops.scm�		
��	-	M	��	6	M
��	7	Q	��	I	T	��	e	U	��	k	U	��	p	U	��	y	X
���	j
���	x	���	x	���	x	���	x	���	y	���	y	���	y	���	~
����
����	����	����
��	g�
����
����
��*)c
��.Cf
��/��
��1e�
��3�
��5��
��6��
��9s�
��<��
��=��
��UyX
��V�`
��X�h
��Y�v
��Z�y
��\�~
��\��	��^�
��^m�
��^n�
��^o���^��
��^��
��`{�
��a��
��b��
��e�
��f9�
��fA�
��f��
��g��
��hP�
��i�
��i��
��jt�
��k$�
��k��
��l��
��m��
��n��
��n��	��n��	��n��	��n��
��n��
��n��	��oO�
��oX�
��pN�
��pO�
��q��	��q��
��q�
��t�
��w�
��{�*
���>
���E
����O
����Z
����m
����m	#����m
����o
���Yy
����
���'�	#���1�
���I�
���c�
���C�
���D�
�����
�����
�����
�����
���!�
���j�
�����
�����
���
�
�����
���S�
���

����+
���e;
���
J
���^
���k
����u
���|	�����
��ǵ�
���u�
��֢�
��֣�
����
����
����
����#
���()
���C
���^R
���_
���r
����
����
���:�
���=�
���d�
�����
�����
�����
���
����
��^�
��_�
��2
��3
��M%
���.
���1
��"6
��#F
��Q	��Q	��Q	��P
��S
��LV
��MX
��N\
���_
��d
���n
���p	
���n
�� �
��!��
��"��
��"��
���	"�
C6goops/compile.go000064400000001061150536241760007661 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�
	
��		,
C6goops/dispatch.go000064400000024204150536241760010034 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
C6goops/describe.go000064400000031216150536241760010016 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�		��{�
��	{
C6goops/simple.go000064400000003330150536241760007523 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		
��|		&���		
���		
���		 ���		
���	
��		�
C6goops/save.go000064400000146545150536241760007210 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
����[
��^	�(
C6goops/composite-slot.go000064400000007711150536241760011222 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
��	�
C6goops/internal.go000064400000001655150536241760010056 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	
���		���		#���		���		��
	�
C6goops/active-slot.go000064400000010466150536241760010474 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	
���	 
��	
C6goops/stklos.go000064400000012045150536241760007554 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
��
	�
C6goops/util.go000064400000005717150536241760007222 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
��	�
C6goops/accessors.go000064400000006265150536241760010231 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
C6