Uname: Linux web3.us.cloudlogin.co 5.10.226-xeon-hst #2 SMP Fri Sep 13 12:28:44 UTC 2024 x86_64
Software: Apache
PHP version: 8.1.31 [ PHP INFO ] PHP os: Linux
Server Ip: 162.210.96.117
Your Ip: 18.225.117.244
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : srfi-67.go
GOOF----LE-8-2.0a]�4h4]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-67�	�		gfilenameS�	
fsrfi/srfi-67.scm�	gimportsS�	gsrfi-27�	
�	
�	�	gexportsS�	g</<=?�	g</<?�	g<=/<=?�	g<=/<?�	g<=?�	g<?�	g=?�	g>/>=?�	g>/>?�	g>=/>=?�	g>=/>?�	g>=?�	g>?�	gboolean-compare�	gchain<=?�	 gchain<?�	!gchain=?�	"gchain>=?�	#gchain>?�	$gchar-compare�	%gchar-compare-ci�	&gcompare-by<�	'gcompare-by<=�	(g
compare-by=/<�	)g
compare-by=/>�	*gcompare-by>�	+gcompare-by>=�	,gcomplex-compare�	-gcond-compare�	.g
debug-compare�	/gdefault-compare�	0gif-not=?�	1gif3�	2gif<=?�	3gif<?�	4gif=?�	5gif>=?�	6gif>?�	7ginteger-compare�	8gkth-largest�	9glist-compare�	:glist-compare-as-vector�	;gmax-compare�	<gmin-compare�	=gnot=?�	>gnumber-compare�	?gpair-compare�	@gpair-compare-car�	Agpair-compare-cdr�	Bgpairwise-not=?�	Cgrational-compare�	Dgreal-compare�	Egrefine-compare�	Fgselect-compare�	Ggsymbol-compare�	Hgvector-compare�	Igvector-compare-as-list�	J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI9�	KgreplacementsS�	Lgstring-compare�	Mgstring-compare-ci�	NLM�	Ogset-current-module�	PO�	QO�	Rgcond-expand-provide�	Sgcurrent-module�	T�	Ugfor-each�	Vgcompare:checked�	Wgmake-syntax-transformer�	XW�	YW�	Zgmacro�	[g$sc-dispatch�	\[�	][�	^gany�	_^^^^^�	`g
syntax-object�	agcase�	bgtop�	cb�	dgribcage�	egdummy�	fgc�	ggless�	hgequal�	iggreater�	jefghi�	kgm-46961e518a-3�	lkb�	mlcccc�	nfl-46961e518a-8�	ofl-46961e518a-9�	pfl-46961e518a-a�	qfl-46961e518a-b�	rfl-46961e518a-c�	snopqr�	tdjms�	ud�	vgx�	wv�	xl�	yfl-46961e518a-5�	zy�	{dwxz�	|ctu{�	}ghygiene�	~}�	`a|~��`	�|~�����`
|~�����`|~�����gelse��`�|~��gerror��`�|~��f comparison value not in {-1,0,1}��`�|~�������������gsyntax-violation��������f-source expression failed to match any pattern��gcompare:if-rel?��gc-cases��ga-cases��gconsequence��e��f���gm-46961e518a-12���b���cccc��fl-46961e518a-17��fl-46961e518a-18��fl-46961e518a-19��fl-46961e518a-1a��fl-46961e518a-1b���������d��������fl-46961e518a-14�����dw����c�u���`��~��gif��`��~��`�~����������^^^^^^��g	alternate��e��f�����ccccc��fl-46961e518a-22��fl-46961e518a-23��fl-46961e518a-24��fl-46961e518a-25��fl-46961e518a-26��fl-46961e518a-27����������d�����c�u���`a�~��`��~��`��~��`��~�������������geach-any��^����garg��e���gm-46961e518a-2f���b���c��fl-46961e518a-34��fl-46961e518a-35������d��������fl-46961e518a-31�����dw����c�u���`��~��`
�~�����`	��~��`�~������gm-46961e518a-3a���b���c��fl-46961e518a-3f��fl-46961e518a-40������d��������fl-46961e518a-3c�����dw����c�u���`��~��`	��~�����`
�~��`�~������gm-46961e518a-45���b���c��fl-46961e518a-4a��fl-46961e518a-4b������d��������fl-46961e518a-47�����dw����c�u���`��~��`�~�����`	��~��`
�~������gm-46961e518a-50���b���c��fl-46961e518a-55��fl-46961e518a-56����d�����fl-46961e518a-52��dw�cu�`�~�`	�~�	`
~�
	�`~��
gm-46961e518a-5b�
b�c�fl-46961e518a-60�fl-46961e518a-61��d���fl-46961e518a-5d��dw�cu�`�~�`
~�`~��`	�~��gm-46961e518a-66� b�! c�"fl-46961e518a-6b�#fl-46961e518a-6c�$"#�%d�!$�& �'fl-46961e518a-68�('�)dw&(�*c%u)�+`�*~�,`	�*~�-`*~�.,-�/`
*~�0/�1gcompare:define-rel?�2^^^�3gdefine�4grel?�5gif-rel?�6e45�7gm-46961e518a-71�87b�98cc�:fl-46961e518a-76�;fl-46961e518a-77�<fl-46961e518a-78�=:;<�>d69=�?8�@fl-46961e518a-73�A@�Bdw?A�Cc>uB�D`3C~�Egcase-lambda�F`EC~�Gglambda�H`GC~�I`vC~�Jgy�K`JC~�LIK�M`/C~�NMIK�O`C~�P`C~�QNOP�Rgcompare�S`RC~�TS�USIK�VUOP�W`�C~�Xg
procedure?�Y`XC~�ZYS�[`�C~�\f*not a procedure (Did you mean rel/rel??): �]`\C~�^[]S�_^�`gcompare:define-rel1/rel2?�a^^^^�bg
rel1/rel2?�cgif-rel1?�dgif-rel2?�eebcd�fgm-46961e518a-83�gfb�hgccc�ifl-46961e518a-88�jfl-46961e518a-89�kfl-46961e518a-8a�lfl-46961e518a-8b�mijkl�ndehm�og�pfl-46961e518a-85�qp�rdwoq�scnur�t`3s~�u`Es~�v`Gs~�w`vs~�x`Js~�ygz�z`ys~�{wxz�|`/s~�}|wx�~|xz�`s~��`s~��~���`Vs~����|z�����`Rs~������wx���xz���������z������wxz��gcompare:define-chain-rel?��g
chain-rel?��e�5��gm-46961e518a-99���b���cc��fl-46961e518a-9e��fl-46961e518a-9f��fl-46961e518a-a0�������d��������fl-46961e518a-9b�����dw����c�u���`3�~��`E�~��`R�~�����`�~������gx1��`��~������`V�~������������gx2��`��~�������`�~�������gx3��`��~���������������������������gx3+��`��~�����������������glet��`��~��gchain?��`��~��ghead��`��~������gtail��`��~����������`��~��gnull?��`��~������gcar��`��~�����������gcdr��`��~�����������gapply��`��~������������������������grandom-integer��glist-ref��glength��f	bad index��ginteger?��gexact?��^��e��gm-46961e518a-a9���b�����fl-46961e518a-ae�����d�����fl-46961e518a-ab�����dw����c�u���`
�~��^^��^Œ��^댤�gc1��gc2��gcs��e������ccc��fl-46961e518a-b6��fl-46961e518a-b7��fl-46961e518a-b8��fl-46961e518a-b9��������d�����c�u���`1�~��`	��~��`E�~��`�~�����gclause��evJ��gm-46961e518a-bf�b�ccc�fl-46961e518a-c4�fl-46961e518a-c5�fl-46961e518a-c6�fl-46961e518a-c7��d��	�
fl-46961e518a-c1�
�dw	�
cu�`�
~�gx-val�`
~�gy-val�`
~�`F
~�^��evJ�cc�fl-46961e518a-ce�fl-46961e518a-cf�fl-46961e518a-d0��d�cu�`
~�gfree-id�cu� `�~�! �"!���#^^"�$^#�%evJf�&fl-46961e518a-d5�'fl-46961e518a-d6�(fl-46961e518a-d7�)fl-46961e518a-d8�*&'()�+d%*�,c+u�-`E,~�.����/^.��0^/��1^0�2gt?�3evJ2f��4ccccc�5fl-46961e518a-df�6fl-46961e518a-e0�7fl-46961e518a-e1�8fl-46961e518a-e2�9fl-46961e518a-e3�:fl-46961e518a-e4�;56789:�<d34;�=c<u�>`�=~�?gt?-val�@`?=~�Agtx�B`A=~�Cgty�D`C=~�E`�=~�F`E=~�G`	�=~�HG�I`=~�J`F=~�Kgm-46961e518a-ed�LKb�ML�Nfl-46961e518a-f2�ON�Pd�MO�Qfl-46961e518a-ef�RQ�SdwMR�TcPuS�U`
T~�VcuS�W`�V~�XW�YX���Z^Y�[e��\Lc�]fl-46961e518a-f5�^fl-46961e518a-f6�_]^�`d[\_�ac`uS�b`Ea~�c����dc���e^d��feAC���gLcccc�hfl-46961e518a-fb�ifl-46961e518a-fc�jfl-46961e518a-fd�kfl-46961e518a-fe�lfl-46961e518a-ff�mhijkl�ndfgm�ocnuS�p`�o~�qgtx-val�r`qo~�sgty-val�t`so~�u`�o~�v`Eo~�w`	�o~�xw�y`o~�z`-o~�{gcompare:type-check�|gtype?�}g	type-name�~e|}v�gm-46961e518a-107��b���ccc��fl-46961e518a-10c��fl-46961e518a-10d��fl-46961e518a-10e��fl-46961e518a-10f��������d~�������fl-46961e518a-109�����dw����c�u���`��~��gnot��`��~��`��~��g
string-append��`��~��fnot ��`��~��f:��`��~�����gbegin��e|}vJ���cccc��fl-46961e518a-115��fl-46961e518a-116��fl-46961e518a-117��fl-46961e518a-118��fl-46961e518a-119���������d�����c�u���`��~��`{�~��gcompare:define-by=/<��g=��g<��eR��|}��gm-46961e518a-120���b���ccccc��fl-46961e518a-125��fl-46961e518a-126��fl-46961e518a-127��fl-46961e518a-128��fl-46961e518a-129��fl-46961e518a-12a����������d��������fl-46961e518a-122�����dw����c�u���`3�~��`��~��`G�~��`v�~��`J�~������`��~�����geq?��`��~�������`
�~�����`	��~��`�~������`��~��`��~��`��~��`��~�����gboolean?��fboolean��gchar=?��gchar?��gchar<?��fchar��g	char-ci=?��g	char-ci<?��gstring=?��gstring<?��gstring?��fstring��gstring-ci=?��gstring-ci<?��fsymbol��gsymbol->string��finteger��g	rational?��frational��greal?��freal��gcomplex?��fcomplex��g	real-part��g	imag-part��gnumber?��fnumber��g
vector-length��g
vector-ref��gmin��f$unrecognized type in default-compare��fcompare value not in {-1,0,1}��fcompare error: not reflexive��f!compare error: not anti-symmetric��yJv��Jyv��yvJ��vyJ��Jvy��vJy��



��
����
�
�
����
��



��fcompare error: not transitive��gmap�C5h8��]4	
JKN5	4Q>"G4Ri4Si5T>"GUhc]L6[gx
		
gfilenamefsrfi/srfi-67/compare.scm�
	U	��	
	U	��		
Ch(�-134O>"GC�gresult
			%gcompare			%gargs				%gfilenamefsrfi/srfi-67/compare.scm�
	T
��	
	U	��			%	
	gnamegcompare:checked�CVR4Y1Z]_����h(v]�����Cngdummy
		#gc		#gless			#gequal			#ggreater			#		#	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	[
��		"g
macro-typegsyntax-rules�gpatternsgcglessgequalggreaterC51R4Y�Z]_��h]�����Cwgdummy
		gc-cases		ga-cases			gc			gconsequence						C���h �]����C�gdummy
		gc-cases		ga-cases			gc			gconsequence			g	alternate						C��h@]45$@45$@6	gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-67/compare.scm�
	f	��		9g
macro-typegsyntax-rules�gpatternsgc-casesga-casesgcgconsequencegc-casesga-casesgcgconsequenceg	alternateC5�R4Y4Z]����h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	o
��		"g
macro-typegsyntax-rules�gpatternsgargg...C54R4Y3Z]����h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	r
��		"g
macro-typegsyntax-rules�gpatternsgargg...C53R4Y6Z]����h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	u
��		"g
macro-typegsyntax-rules�gpatternsgargg...C56R4Y2Z]�
h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	x
��		"g
macro-typegsyntax-rules�gpatternsgargg...C52R4Y5Z]�h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	{
��		"g
macro-typegsyntax-rules�gpatternsgargg...C55R4Y0Z]�+.0h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	~
��		"g
macro-typegsyntax-rules�gpatternsgargg...C50R4Y1Z]2DFHLQTVUWZ_hPT]���	
����CLgdummy
		Mgrel?		Mgif-rel?			M		M	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgrel?gif-rel?C51R/��h8{]
45
�$C	��$"�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5
�$C	��$"�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345
�$C	��$"�$C6]45$345
�$C	��$"�$C66gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
����
����
��			
			&	Y		[�	gnameg=?�CR/��h8{]
45	��$C
�$"�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5	��$C
�$"�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345	��$C
�$"�$C6]45$345	��$C
�$"�$C66gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
����
����
��			
			&	Y		[�	gnameg<?�CR/��h8{]
45�$C	��$"
�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5�$C	��$"
�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345�$C	��$"
�$C6]45$345�$C	��$"
�$C66gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
����
����
��			
			&	Y		[�	gnameg>?�CR/��h8{]
45	��$"
�$C�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5	��$"
�$C�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345	��$"
�$C�$C6]45$345	��$"
�$C�$C66	gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
����
����
��			
			&	Y		[�	gnameg<=?�CR/��h8{]
45
�$"�$C	��$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5
�$"�$C	��$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345
�$"�$C	��$C6]45$345
�$"�$C	��$C66	gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
����
����
��			
			&	Y		[�	gnameg>=?�CR/��h8{]
45	��$"�$C
�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5	��$"�$C
�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345	��$"�$C
�$C6]45$345	��$"�$C
�$C66�gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&	Y		[�	gnamegnot=?�C=R4Y`Z]atuv{}�������
hhq]����	
��������	
����Cigdummy
		hg
rel1/rel2?		hgif-rel1?			hgif-rel2?			h		h	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsg
rel1/rel2?gif-rel1?gif-rel2?C5`R/��Vhp�]45	��$345	��$C
�$"�$C6
�$"�$	66�gx
		mgy		mgz			mgkey			mgkey			Igfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5	��$34L5	��$C
�$"�$C6
�$"�$	L66�gx
		mgy		mgz			mgkey			mgkey			Igfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhN)3C)3OC)n345	��$345	��$C
�$"�$C6
�$"�$	66]45	��$345	��$C
�$"�$C6
�$"�$	66Fgcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		C	mgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg</<?�CR/��Vhp�]45	��$345	��$"
�$C�$C6
�$"�$	66�gx
		mgy		mgz			mgkey			mgkey			Igfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5	��$34L5	��$"
�$C�$C6
�$"�$	L66�gx
		mgy		mgz			mgkey			mgkey			Igfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhO)3C)3OC)n345	��$345	��$"
�$C�$C6
�$"�$	66]45	��$345	��$"
�$C�$C6
�$"�$	66Ggcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		C	mgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg</<=?�CR/��Vhp�]45	��$"
�$345	��$C
�$"�$C6�$	66�gx
		mgy		mgz			mgkey			mgkey		,	Vgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5	��$"
�$34L5	��$C
�$"�$C6�$	L66�gx
		mgy		mgz			mgkey			mgkey		,	Vgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhO)3C)3OC)n345	��$"
�$345	��$C
�$"�$C6�$	66]45	��$"
�$345	��$C
�$"�$C6�$	66Ggcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		P	zgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg<=/<?�CR/��Vhp�]45	��$"
�$345	��$"
�$C�$C6�$	66�gx
		mgy		mgz			mgkey			mgkey		,	Vgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5	��$"
�$34L5	��$"
�$C�$C6�$	L66�gx
		mgy		mgz			mgkey			mgkey		,	Vgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhP)3C)3OC)n345	��$"
�$345	��$"
�$C�$C6�$	66]45	��$"
�$345	��$"
�$C�$C6�$	66Hgcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		P	zgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg<=/<=?�CR/��Vhp�]45�$345�$C	��$"
�$C6	��$"
�$	66�gx
		mgy		mgz			mgkey			mgkey			Hgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5�$34L5�$C	��$"
�$C6	��$"
�$	L66�gx
		mgy		mgz			mgkey			mgkey			Hgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhN)3C)3OC)n345�$345�$C	��$"
�$C6	��$"
�$	66]45�$345�$C	��$"
�$C6	��$"
�$	66Fgcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		B	lgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg>/>?�CR/��Vhp�]45�$345
�$"�$C	��$C6	��$"
�$	66�gx
		mgy		mgz			mgkey			mgkey			Hgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5�$34L5
�$"�$C	��$C6	��$"
�$	L66�gx
		mgy		mgz			mgkey			mgkey			Hgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhO)3C)3OC)n345�$345
�$"�$C	��$C6	��$"
�$	66]45�$345
�$"�$C	��$C6	��$"
�$	66Ggcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		B	lgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg>/>=?�CR/��Vhp�]45
�$"�$345�$C	��$"
�$C6	��$	66�gx
		mgy		mgz			mgkey			mgkey		+	Ugfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5
�$"�$34L5�$C	��$"
�$C6	��$	L66�gx
		mgy		mgz			mgkey			mgkey		+	Ugfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhO)3C)3OC)n345
�$"�$345�$C	��$"
�$C6	��$	66]45
�$"�$345�$C	��$"
�$C6	��$	66Ggcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		O	ygcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg>=/>?�CR/��Vhp�]45
�$"�$345
�$"�$C	��$C6	��$	66�gx
		mgy		mgz			mgkey			mgkey		+	Ugfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5
�$"�$34L5
�$"�$C	��$C6	��$	L66�gx
		mgy		mgz			mgkey			mgkey		+	Ugfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhP)3C)3OC)n345
�$"�$345
�$"�$C	��$C6	��$	66]45
�$"�$345
�$"�$C	��$C6	��$	66Hgcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		O	ygcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg>=/>=?�CR4Y�Z]2������������������hXZ]��	���

����CRgdummy
		Ug
chain-rel?		Ugif-rel?			U		U	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsg
chain-rel?gif-rel?C5�RV��hp)3C)36)6345
�$C	��$"�$C6)n345
�$345
�$C	��$"�$C6	��$"�$	66-1345
�$`"P(C4�5
�$��"���	��$"�$
�@6"���	��$"�$	@6gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey		~�gcompare
�ngx1�ngx2	�ngx3+	�ngkey	�nghead	�=gtail	�=gkey	�=gfilenamefsrfi/srfi-67/compare.scm�
�
��							&	Y		b�	�n	
	gnamegchain=?�C!RV��hp)3C)36)6345	��$C
�$"�$C6)n345	��$345	��$C
�$"�$C6
�$"�$	66-1345	��$`"P(C4�5	��$��"���
�$"�$
�@6"���
�$"�$	@6gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey		�gcompare
�ngx1�ngx2	�ngx3+	�ngkey	�nghead	�>gtail	�>gkey	>gfilenamefsrfi/srfi-67/compare.scm�
�
��							&	Y		b�	�n	
	gnamegchain<?�C RV��hp)3C)36)6345�$C	��$"
�$C6)n345�$345�$C	��$"
�$C6	��$"
�$	66-1345�$`"P(C4�5�$��"���	��$"
�$
�@6"���	��$"
�$	@6gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey		~�gcompare
�ngx1�ngx2	�ngx3+	�ngkey	�nghead	�=gtail	�=gkey	�=gfilenamefsrfi/srfi-67/compare.scm�
�
��							&	Y		b�	�n	
	gnamegchain>?�C#RV��hp
)3C)36)6345	��$"
�$C�$C6)n345	��$"
�$345	��$"
�$C�$C6�$	66-1345	��$"
�$`"P(C4�5	��$"
�$��"����$
�@6"����$	@6gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey	��gcompare
�ngx1�ngx2	�ngx3+	�ngkey	�nghead	�Kgtail	�Kgkey	
Kgfilenamefsrfi/srfi-67/compare.scm�
�
��							&	Y		b�	�n	
	gnamegchain<=?�CRV��hp
)3C)36)6345
�$"�$C	��$C6)n345
�$"�$345
�$"�$C	��$C6	��$	66-1345
�$"�$`"P(C4�5
�$"�$��"���	��$
�@6"���	��$	@6gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey	��gcompare
�ngx1�ngx2	�ngx3+	�ngkey	�nghead	�Jgtail	�Jgkey	Jgfilenamefsrfi/srfi-67/compare.scm�
�
��							&	Y		b�	�n	
	gnamegchain>=?�C"RV��V�����h�];	�$$�$
L�6CC4545"�()4L455$45"���C�$��"���4L�5			��$����"���	
�$$
L�@C	�$����"��G6
"��0�gx
	gn	g
unchecked?		gi-pivot		.gx-pivot		9gi		?�gx		?�gx<		?�gx>		?�gkey		��
gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	
��	�		��	�	
��	�	!��	�	��	!�	-��	#�	��	(�	��	.�	
��	1�	��	9�	
��	?�	��	E�	��	F�	��	K�	'��	T�	��	X�	��	[�	'��	l�	��	s�	��	w�	��	z�	 ��	}�	(����	����	����	'����	����	����	%����	-����	;����	5����	����	����	����	D����	"����	����	%����	-����	>����	8����	����	����	���	+���	4���	��2		gnamegunequal?�C�h(�)3C)36)6345	��$"�$C
�$C6)�345	��$"�$d45	��$"�$345	��$"�$C
�$C6
�$C6
�$	66-13OQ456}gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey	��gkey	��gcompare
%gx1+%gunequal?	%gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	��	&�	��	'�	��	/�	��	b�	��	c�	��	k�	����	����	����	%����	����	����	����	����	����	����	����	���	���	���	!��%�	��							&	Y		b�	%
CBRV��h�)
36)8345	��$"
�$C�$C6)�345	��$"
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C66)d345	��$"
�$�45	��$"
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C66�$�45	��$"
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C666-13"U(C4�5	��$"
�$"�$�"45�"���45	��$"
�$"�$"45"��b�gcompare
			gx1			gcompare
		Qgx1		Qgx2			Qgkey		%	Qgcompare
	Z�gx1	Z�gx2		Z�gx3		Z�gkey		c�gkey	��gkey	��gcompare
�]gx1�]gx2	�]gx3	�]gx4	�]gkey	]gkey	&�gkey	Gsgkey	��gkey	�Wgkey	�gkey	%Qgcompare
fgx1fgx2	fgx3+	fgxmin	j�gxs	j�gkey	}�gkey	��!gfilenamefsrfi/srfi-67/compare.scm�
	��		��		��		��	%	��	Z	��	[
	��	c
	��	|	���	���
	���	���	���
	���	���	��	��	��&	��?	��G	��{	��|	���	���	���	���	���	���	���	��	��	��%	��W	��[	��]	��f	��j	��p	��t	��{	%��}	��}	���	4���	���	���	���	���	���	��	��4						Q		Z�	�]	f	
	gnamegmin-compare�C<RV��h�)
36)8345
�$"�$C	��$C6)�345
�$"�$545
�$"�$C	��$C6	��$545
�$"�$C	��$C66)d345
�$"�$�45
�$"�$545
�$"�$C	��$C6	��$545
�$"�$C	��$C66	��$�45
�$"�$545
�$"�$C	��$C6	��$545
�$"�$C	��$C666-13"U(C4�5
�$"�$"	��$�"45�"���45
�$"�$"	��$"45"��b�gcompare
			gx1			gcompare
		Qgx1		Qgx2			Qgkey		%	Qgcompare
	Z�gx1	Z�gx2		Z�gx3		Z�gkey		c�gkey	��gkey	��gcompare
�]gx1�]gx2	�]gx3	�]gx4	�]gkey	]gkey	%�gkey	Eqgkey	��gkey	�Wgkey	�gkey	%Qgcompare
fgx1fgx2	fgx3+	fgxmax	j�gxs	j�gkey	}�gkey	��!gfilenamefsrfi/srfi-67/compare.scm�
	��		��		��	!	��	%!	��	Z	��	[#	��	c#	��	{$	���$	���#	���%	���%	���#	���	���'	��'	��(	��%(	��=)	��E)	��z(	��{*	���*	���(	���'	���+	���+	���,	���,	��+	��-	��%-	��W+	��[-	��]'	��f	��j/	��p0	��t2	��{2	%��}2	��}2	���2	4���2	���3	���2	���/	���/	���/	��/	��4						Q		Z�	�]	f	
	gnamegmax-compare�C;RV��������
h��)#3�
�$
66)�3	�
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C66)�3		�
�$�45	��$"
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C66�$-45	��$g45	��$"
�$C�$545	��$"
�$C�$C66
�$545	��$"
�$C�$C6�$g45	��$"
�$C�$545	��$"
�$C�$C666	�$�45	��$"
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C666-13"4>"-G"&45$45$""���""���45�"644	55	"
(e�$�"�����$ $
���6
�6���"���4
�	5	��$&
�
���


"��Z
�$&
�
�
��

"��,�$&
�

���

"���6




"�����"����gcompare
			)gk			)gx0				)gkey		
	)gcompare
	2�gk	2�gx0		2�gx1		2�gkey		7�gkey		J	vgkey	��gcompare
�Kgk�Kgx0	�Kgx1	�Kgx2	�Kgkey	�Kgkey	�lgkey	�)gkey	:fgkey	}�gkey	��gkey	��gkey	,gkey	=�gkey	i�gkey	�Cgkey	�gkey	=gcompare
T�gkT�gx0	T�gx1+	T�gn	��gk	��gn	��grev	��gx	��gpivot		��gx	
��gx<	��gn<	��gx=	
��gn=	��gx>	��gn>	��gkey	-�/gfilenamefsrfi/srfi-67/compare.scm�
:	��	
<	
��	
<	��	!=	��	%>	��	)>	��	2:	��	7@	
��	7@	��	BA	��	JA	��	~@	��	B	���B	���C	���C	���:	���E	
���E	���F	���F	���G	���G	��1F	��2H	��:H	��lF	��tE	��uI	��}I	���J	���J	���L	!���L	���J	���I	���M	��M	��4I	��5N	��=N	��aP	!��iP	���N	���I	���E	���Q	���Q	���R	���R	��Q	��	S	��S	��CQ	��GT	��KT	��T:	��YW	��]W	��dW	��pV	��qV	��{V	��|V	"���V	���X	���X	���X	���Y		���]	���]	$���]	���]	���^	
���_	���a	���`	���b	 ���b	���c	���c	���`	���d	���e	*���e	3���e	'���e	��f	'��f	��h	 ��h	��h	.��#h	��$i	��)i	!��-i	��-i	��;j	��>j	-��Aj	'��Dj	9��^j	��fi	��ik	��pk	3��sk	-��vk	?���k	���i	���l	���l	9���l	3���l	E���l	���i	���^	
���^	#���^	3���^	C���^	
���Y		���Y	���\	���Y		��}			)		2�	�K	T�	
	C8Rh(�]4L5$	�C4L5$C
C�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
s	
��	s	��	s	��	s	/��	s	+��		#	Ch8�)3OC]45$	�C45$C
C�glt
			glt
		4gx		4gy			4gfilenamefsrfi/srfi-67/compare.scm�
r	��	t	��	 t	��	$t	/��	0t	+��					4	gnamegcompare-by<�C&Rh(�]4L5$C4L5$	�C
C�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
x	
��	x	��	x	��	x	.��	x	*��		#	Ch8�)3OC]45$C45$	�C
C�ggt
			ggt
		4gx		4gy			4gfilenamefsrfi/srfi-67/compare.scm�
w	��	y	��	 y	��	#y	.��	/y	*��					4	gnamegcompare-by>�C*Rh(�]4L5$4L5$
C	�CC�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
}	
��	}	��	}	��	}	,��	}	(��		#	Ch8�)3OC]45$45$
C	�CC�gle
			gle
		4gx		4gy			4gfilenamefsrfi/srfi-67/compare.scm�
|	��	~	��	 ~	��	!~	,��	-~	(��					4	gnamegcompare-by<=�C'Rh(�]4L5$4L5$
CC	�C�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
�	
��	�	��	�	��	�	,��	�	(��		#	Ch8�)3OC]45$45$
CC	�C�gge
			gge
		4gx		4gy			4gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	��	 �	��	!�	,��	-�	(��					4	gnamegcompare-by>=�C+Rh(�]4L5$
C4L5$	�CC�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	"��	�	��	�	1��	�	-��		#	Ch8�)
3OC]45$
C45$	�CC�geq
			glt			geq
		6glt		6gx			6gy			6gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	"��	"�	��	%�	1��	1�	-��						6	gnameg
compare-by=/<�C(Rh(�]4L5$
C4L5$C	�C�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	"��	�	��	�	1��	�	-��		#	Ch8�)
3OC]45$
C45$C	�C�geq
			ggt			geq
		6ggt		6gx			6gy			6gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	"��	"�	��	%�	1��	1�	-��						6	gnameg
compare-by=/>�C)R4YEZ]��h-]C%gdummy
				C�h=]C5gdummy
		gc1					C�����h]]������CUgdummy
		gc1		gc2			gcs						C��
hP�]45$@45$@45$@	6�gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsrfi/srfi-67/compare.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgc1gc1gc2gcsg...C5ER4YFZ]�h(_]��CWgdummy
		&gx		&gy			&gclause			&		&	ChK]CCgdummy
		gx		gy						C$-hZ]�CRgdummy
		gx		gy			gc						C1>@BDEFHIJ
h`~]����	��Cvgdummy
		]gx		]gy			]gt?			]gc			]gclause			]		]	C��hhX]!45$@45$@45$@45$	@
6Pgx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-67/compare.scm�
�	��		gg
macro-typegsyntax-rules�gpatternsgxgygclauseg...gxgygxgygelsegcg...gxgygt?gcg...gclauseg...C5FR4Y-Z]�Uh-]C%gdummy
				CZbh=]�C5gdummy
		gcs					Ceprtuvxyz	h@q]�����Cigdummy
		<gtx		<gty			<gcs			<gclause			<		<	C��
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsrfi/srfi-67/compare.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgelsegcsg...gtxgtygcsg...gclauseg...C5-R4Y{Z]a������h(f]���C^gdummy
		&gtype?		&g	type-name			&gx			&		&	C_��h u]Cmgdummy
		gtype?		g	type-name			gx			gy						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-67/compare.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgtype?g	type-namegxgtype?g	type-namegxgyC5{R4Y�Z]���������������h��]�	���
��
���	��
�����C�gdummy
		}gcompare		}g=			}g<			}gtype?			}g	type-name			}		}	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcompareg=g<gtype?g	type-nameC5�R������hx�]45$"445>"G45$"445>"G$
$
CC$	�C
C�gx
		ugy		ugfilenamefsrfi/srfi-67/compare.scm�
�
��	�	��	�	��	�	��	G�	��	I�	��	`�	��	f�	��	p�	��
		u	gnamegboolean-compare�CR�i�������hh�]45$G&
C45$!4L5$
C45$	�CC456456�gx
		egy		egfilenamefsrfi/srfi-67/compare.scm�
�
��	J�
��	L�	7��	N�
��	P�
��	[�
��	]�	7��	_�
��	a�
��
		e	CO$R�i�i������hh�]45$G&
C45$!4L5$
C4L5$	�CC456456�gx
		egy		egfilenamefsrfi/srfi-67/compare.scm�
�
��	J�
��	L�	@��	N�
��	P�
��	[�
��	]�	@��	_�
��	a�
��
		e	CO%R�i�i������hh�]45$G&
C45$!4L5$
C4L5$	�CC456456�gx
		egy		egfilenamefsrfi/srfi-67/compare.scm�
�
��	J�
��	L�	?��	N�
��	P�
��	[�
��	]�	?��	_�
��	a�
��
		e	COLR�i�i������hh�]45$G&
C45$!4L5$
C4L5$	�CC456456�gx
		egy		egfilenamefsrfi/srfi-67/compare.scm�
�
��	J�
��	L�	H��	N�
��	P�
��	[�
��	]�	H��	_�
��	a�
��
		e	COMR�����L�hh�]�$"445>"G�$"445>"G45456�gx
		dgy		dgfilenamefsrfi/srfi-67/compare.scm�
�
��	�	��	�	��	�	��	?�	��	A�	��	U�	��	\�	%��	d�	��
		d	gnamegsymbol-compare�CGR������h`�]45$?&
C45$�$
C�$	�CC456456�gx
		]gy		]gfilenamefsrfi/srfi-67/compare.scm�
�
��	B�
��	D�	3��	F�
��	H�
��	S�
��	U�	3��	W�
��	Y�
��
		]	C7R������h`�]45$?&
C45$�$
C�$	�CC456456�gx
		]gy		]gfilenamefsrfi/srfi-67/compare.scm�
�
��	B�
��	D�	5��	F�
��	H�
��	S�
��	U�	5��	W�
��	Y�
��
		]	CCR������h`�]45$?&
C45$�$
C�$	�CC456456�gx
		]gy		]gfilenamefsrfi/srfi-67/compare.scm�
�
��	D�	-��	F�
��	U�	-��	W�
��		]	CDR������D����h�Y]
45$"445>"G45$"445>"G"K445455	��$	�C
�$4	54	56�$C
645$45$6"���"���Qgx
	�gy	�gkey		q�gfilenamefsrfi/srfi-67/compare.scm�
�
��	�	��	�	��	�	��	G�	��	I�	��	_�	��	b�	$��	i�	2��	q�	��	q�	����	$����	2����	����	����	����	����	����	����	����	��	�	gnamegcomplex-compare�C,R������,hh�]45$"445>"G45$"445>"G6�gx
		bgy		bgfilenamefsrfi/srfi-67/compare.scm�
�
��	�	��	�	��	�	��	G�	��	I�	��	b�	��		b	gnamegnumber-compare�C>Rh�]L��6~gx
		gy		gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	
��	
�	��	�	��			Ch~]OCvgcompare
		
gfilenamefsrfi/srfi-67/compare.scm�
�
��		
gnamegpair-compare-car�C@Rh�]L��6~gx
		gy		gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	
��	
�	��	�	��			Ch~]OCvgcompare
		
gfilenamefsrfi/srfi-67/compare.scm�
�
��		
gnamegpair-compare-cdr�CAR��?/h�Z)>34��5	��$	�C
�$
��6�$C6){3((
C	�C(C�$G�$=4��5	��$	�C
�$��6�$C6	�C�$C6]6Rgpair-compare-car
			Dgpair-compare-cdr			Dgx				Dgy				Dgkey			Dgcompare
	M�gx	M�gy		M�gkey		�gx
��gy��gfilenamefsrfi/srfi-67/compare.scm�
�	��	
	��		'��		/��		��		��	/	'��	2	/��	4	��	<	��	M�	��	S	��	i	��	m	��	p	��	t	��	u	��	z	3��	}	;��		��		���	3���	;���	���	���	���	���		����	���
	��			D		M�	��	gnamegpair-compare�C?R9��/���h��)�3	4545$$
C	�C$C445455	��$	�C
�$45456�$C6)36)36]6�gcompare
		�gx		�gy			�gempty?			�ghead			�gtail			�gtx-val		�gty-val		�gkey		G�gx
��gy��gempty?	��ghead	��gtail	��gcompare
��gx��gy	��gx
��gy��gfilenamefsrfi/srfi-67/compare.scm�
	��	
	��		��		��	5	��	8	"��	?	+��	G	��	G	��	b	"��	i	+��	w	��		���	���	���	���	���	���	��		�	��	��	��	gnameglist-compare�C9R9��:/���	h��)�3
"P4545	$	$
"9	�"3	$"(4545"���	"���	��$	�C
�$6�$C6)36)36]6�gcompare
		�gx		�gy			�gempty?			�ghead			�gtail			�gx		
	]gy		
	]gtx-val			]gty-val				]gkey		i�gx
��gy��gempty?	��ghead	��gtail	��gcompare
��gx��gy	��gx
��gy��gfilenamefsrfi/srfi-67/compare.scm�
 	��	
#	��	%	��	%	��	$	��	B&	��	I&	(��	W&	��	]#	��	i"	���'	���"	��� 	���+	��� 	���-	��� 	���/	��		�	��	��	��	gnameglist-compare-as-vector�C:R7��H/��h��)�3
454545	��$	�C
�$\"Q�$
C445455			��$	�C	
�$	�"���	�$C6
"����$C6)36)36]6�gcompare
		�gx		�gy			�gsize			�gref			�gn		�gm		�gkey		$�gi		>�gkey			`�gx
��gy��gsize	��gref	��gcompare
��gx��gy	��gx
��gy��gfilenamefsrfi/srfi-67/compare.scm�
3	��	
5	��	5	��	5	��	7	
��	$6		��	>8	
��	C9	��	G9	��	J;	 ��	M;	)��	V;	3��	`;	 ��	`;	��	y<	.��	<	 ���;	���8	
���6		���;	���6		���3	���@	���3	���B	���3	���D	��		�	��	��	��	CHR�7��I/��	h��)�3
454545"W�$6445455			��$	�C	
�$	�"���	�$C6
"���)36)36]6�gcompare
		�gx		�gy			�gsize			�gref			�gnx		�gny		�gn		$�gi		*�gkey			R�gx
��gy��gsize	��gref	��gcompare
��gx��gy	��gx
��gy��gfilenamefsrfi/srfi-67/compare.scm�
H	��	
J	��	J	��	J	��	K	��	$K		��	*L	��	/M	��	3M	
��	;N	��	<O	!��	?O	*��	HO	4��	RO	!��	RO	��	kP	/��	qP	!��	yO	���L	���H	���T	���H	���V	���H	���X	��		�	��	��	��	CIR/����$�LG�>H�h��]((
C	�C(C�$E�$;4��5	��$	�C
�$
��6�$C6	�C�$C4545$$6	�C$C45$45$6	�C45$C45$45$	6	�C45$C�$�$
6	�C�$C45$45$6	�C45$C�$�$

6	�C�$C6�gx
	gy	gkey		4	dgt?-val		rgtx	�gty	�gfilenamefsrfi/srfi-67/compare.scm�
]
��	^	��	*a	
��	/a	��	2a	&��	4a	
��	4^	��	Ob	��	Rb	&��	Tb	
��	\^	���c	
���^	���d	
���^	���e	
���^	��f	
��^	��Ag	
��E^	��ih	
��o^	��yi	��i		��		gnamegdefault-compare�C/R��������vJyh(e]�$LC�$LC�$MCC]gi
		(gfilenamefsrfi/srfi-67/compare.scm�
�	 ��	�	,��		(C�h��]J4L5	�&"
&"�$"4L54L5	�&"
&"�$"4L54L5	�&"
&"�$"4L54L5	�&"
&"�$"4L5
�$"4L>"G
�$"4L>"G�
�$"4L>"GM$�M4L5	�&"
&"�$"4L5M4L5	�&"
&"�$"4L5M4L5	�&"
&"�$"4L5M4L5	�&"
&"�$"4L5	�
�$"4LM>"G	�
�$"4LM>"G	��		��	
��

�$,4L4	LO
5>"G"
	"N4
	5
�$"NC�gx
	�gy	�gc-xy			Igc-xy		R�gc-xy	��gc-xy	�gc-xx	�gc-yy	�gc-xy	�gc-yx	�gy	��gc-xy	��gx	�3gc-xy	�0gy	5�gc-xy	@~gx	��gc-xy	��gc-xz	�}gc-zx	�}gc-yz	�}gc-zy		�}gijk	
9qgfilenamefsrfi/srfi-67/compare.scm�
�	��	u	��	u	��	v	
��	v	��	!v	
��	"v	��	*v	+��	.v	��	5x	
��	9x	��	Dx	6��	Fx	
��	Ju	��	Ru	��	\v	
��	]v	��	hv	
��	iv	��	qv	+��	uv	��	|x	
���x	���x	6���x	
���u	���u	���v	
���v	���v	
���v	���v	+���v	���x	
���x	���x	6���x	
���u	���u	���v	
���v	���v	
���v	���v	+��v	��
x	
��x	��x	6��x	
���	��)�	��.�	��3�	��7�	��@�	��K�	��P�	��U�	��Y�	��b�	��o�	��p�	��u�	��z�	��~�	����	����	����	���u	���u	���v	
���v	���v	
���v	���v	+���v	���x	
���x	���x	6���x	
����	���u	���u	���v	
���v	��v	
��	v	��v	+��v	��x	
�� x	��+x	6��-x	
��5�	��8u	��@u	��Jv	
��Kv	��Vv	
��Wv	��_v	+��cv	��jx	
��nx	��yx	6��{x	
����	���u	���u	���v	
���v	���v	
���v	���v	+���v	���x	
���x	���x	6���x	
����	����	����	����	����	����	����	���	���	��	�	���	���	���	��'~	��.�	/��/�	'��4�	:��5�	'��9�	��9�	��>�	��B�	��C�	��I�	��L�	��b�	����	���{	���{	����	����	���	�	Ch�]HHOC�gc
		gz?		gz			gfilenamefsrfi/srfi-67/compare.scm�
r
��	�	��		gnameg
debug-compare�C.RC�gm
		0gchar=?
����g	char-ci=?
���Ag	char-ci<?���Agstring=?
�N��gstring<?�N��gstring-ci=?
����gstring-ci<?����gfilenamefsrfi/srfi-67.scm�		
��	1	U
��	6	U	��	>	U	&��	C	U
��gfilenamefsrfi/srfi-67/compare.scm��	T
����
���
����
����
��!T�
��$��
��+y�
��0"�
��4��
��9s�
��>!�
��B��
��Gr�
��L�
��Q��
��UF�
��X��
��\x�
��`�
��g��
��o�
��w�
����8
����q
���av
���B{
���"�
���#�
���#�
�����
�����
�����
���N�
�����
���@�
���o�
�����
�����
����
���V�
�����
�����
���5�
����
���|
���<1
����F
���4]
���/r
��9	�1
C6
© 2025 GrazzMean