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.222.20.237
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : optargs.go
GOOF----LE-8-2.05M]�4h7]gguile�	�	gdefine-module*�	�	�	gice-9�	goptargs�	�		gfilenameS�	
fice-9/optargs.scm�	gimportsS�	gsystem�	
gbase�	gpmatch�	
�	�	�	gexportsS�	glet-optional�	g
let-optional*�	glet-keywords�	g
let-keywords*�	gdefine*-public�	g	defmacro*�	gdefmacro*-public�	�	g
re-exportsS�	glambda*�	gdefine*�	�	gset-current-module�	 �	!�	"g$sc-dispatch�	#"�	$"�	%greverse�	&gany�	'&&�	('&��	)&&��	*gsyntax-violation�	+*�	,*�	-f-source expression failed to match any pattern�	.gidentifier?�	/g
syntax-object�	0gtop�	10�	2gribcage�	3gv�	4grest�	534�	611�	7fl-44375c4e67-1f0�	8fl-44375c4e67-1f1�	978�	:2569�	;2�	<glp�	=gbindings�	>gvars�	?ginits�	@<=>?�	A1111�	Bfl-44375c4e67-1d4�	Cfl-44375c4e67-1d5�	Dfl-44375c4e67-1d6�	Efl-44375c4e67-1d7�	FBCDE�	G2@AF�	H=�	I1�	Jfl-44375c4e67-1d3�	KJ�	L2HIK�	M1:;G;L�	Nghygiene�	ON�	P/MO�	Qg
vars&inits�	Rgmake-syntax-transformer�	SR�	TR�	Ugmacro�	Vg_�	Wgeach-any�	X&W��	YWX��	Z&Y��	[VZ��	\glength�	]gappend�	^ggenerate-temporaries�	_&&&WW�	`glet�	agn�	bgn+1�	cgt�	dgi�	eab>cd�	f11111�	gfl-44375c4e67-210�	hfl-44375c4e67-211�	ifl-44375c4e67-212�	jfl-44375c4e67-213�	kfl-44375c4e67-214�	lghijk�	m2efl�	n>?�	ofl-44375c4e67-20b�	pfl-44375c4e67-20c�	qop�	r2n6q�	sgrest-arg�	tgbinding�	ugb0�	vgb1�	wstuv�	xfl-44375c4e67-200�	yfl-44375c4e67-201�	zfl-44375c4e67-202�	{fl-44375c4e67-203�	|xyz{�	}2wA|�	~gx�	~��fl-44375c4e67-1f5�����2I���1;m;;r};�	��/`�O��gmap��������glambda��/��O��gapply��/��O��gor��/��O��gparse-lambda-case��/��O��gquote��/��O��/
�O��/�O���������glist��/��O��gerror��/��O��fsth��/��O��&&&W��ab>d��fl-44375c4e67-23a��fl-44375c4e67-23b��fl-44375c4e67-23c��fl-44375c4e67-23d��������2�A���fl-44375c4e67-235��fl-44375c4e67-236������2n6���fl-44375c4e67-22a��fl-44375c4e67-22b��fl-44375c4e67-22c��fl-44375c4e67-22d��������2wA���fl-44375c4e67-21f�����2I���1;�;;��;�	��/��O��/��O��/��O��/��O��/��O��/
�O��/�O���������/��O��/��O��/��O��&Z���V����gaok��s�tuv��fl-44375c4e67-279��fl-44375c4e67-27a��fl-44375c4e67-27b��fl-44375c4e67-27c��fl-44375c4e67-27d���������2�f���fl-44375c4e67-245�����2I���1�;���/`�O��gr��/��O��/�O��gsymbol->keyword��g
syntax->datum��giota��&&&WWWW��givars��gkw��gidx��a>���cd��1111111��fl-44375c4e67-264��fl-44375c4e67-265��fl-44375c4e67-266��fl-44375c4e67-267��fl-44375c4e67-268��fl-44375c4e67-269��fl-44375c4e67-26a�����������2�����fl-44375c4e67-25f��fl-44375c4e67-260������2n6���fl-44375c4e67-252��fl-44375c4e67-253��fl-44375c4e67-254��fl-44375c4e67-255��fl-44375c4e67-256���������2�f���1;�;;��;�	��/`�O��/��O��/��O��/��O��/��O��/��O��/
�O��/�O��gcons��/��O��/��O��/��O��fl-44375c4e67-2b4��fl-44375c4e67-2b5��fl-44375c4e67-2b6��fl-44375c4e67-2b7��fl-44375c4e67-2b8�������2�f�fl-44375c4e67-286��2I�1;�/`O�/�O�/O�	&&WWW�
a>��d�fl-44375c4e67-2a5�fl-44375c4e67-2a6�
fl-44375c4e67-2a7�fl-44375c4e67-2a8�fl-44375c4e67-2a9�
�2
f�fl-44375c4e67-2a0�fl-44375c4e67-2a1��2n6�fl-44375c4e67-293�fl-44375c4e67-294�fl-44375c4e67-295�fl-44375c4e67-296�fl-44375c4e67-297��2�f�1;;;;	�/�O�/�O� /�O�!/�O�"/�O�#/
O�$/O�%/�O�&/�O�'/�O�()X��)V(��*g
define-public�+gid�,gargs�-+,uv�.fl-44375c4e67-2c4�/fl-44375c4e67-2c5�0fl-44375c4e67-2c6�1fl-44375c4e67-2c7�2./01�32-A2�4fl-44375c4e67-2c1�54�62I5�713;6�8/*7O�9/7O�:V&&�;gval�<+;�=fl-44375c4e67-2d2�>fl-44375c4e67-2d3�?=>�@2<6?�A1@;6�B/*AO�C&X��D&C��E&D��FVE��GVD��Hgdefine-macro�Ifl-44375c4e67-2f0�Jfl-44375c4e67-2f1�Kfl-44375c4e67-2f2�Lfl-44375c4e67-2f3�MIJKL�N2-AM�Ofl-44375c4e67-2d7�PO�Q2IP�R1N;Q�S/HRO�T/RO�U/RO�Vgstring?�Wgdoc�X+,Wuv�Yfl-44375c4e67-2e4�Zfl-44375c4e67-2e5�[fl-44375c4e67-2e6�\fl-44375c4e67-2e7�]fl-44375c4e67-2e8�^YZ[\]�_2Xf^�`1_;Q�a/H`O�b/`O�cgbegin�dgdummy�ed+,uv�fgm-44375c4e67-2fa�gf0�hg1111�ifl-44375c4e67-2ff�jfl-44375c4e67-300�kfl-44375c4e67-301�lfl-44375c4e67-302�mfl-44375c4e67-303�nijklm�o2ehn�pg�qfl-44375c4e67-2fc�rq�s2pr�t1o;s�u/ctO�v/tO�wg
export-syntax�x/wtO�yg
uninitialized�zg*uninitialized*�{g	make-list�|gappend!�}gkeyword?�~gassq-ref�g	list-set!��g	scm-error��gkeyword-argument-error��fUnrecognized keyword��fInvalid keyword��g	list-copy��funexpected spec�C5h�/�]4	
5	4!>"G$%hU]4L54L5DMgfilenamefice-9/optargs.scm�		Z	��	
	Z	��		Z	��		
C(),-.hg]6_gv
		grest		gfilenamefice-9/optargs.scm�		]	��			CPhw]LL�L�6ogv
		grest		gfilenamefice-9/optargs.scm�		^	��		^	"��		^	��			C.hy]6qgv
		ginit		grest			gfilenamefice-9/optargs.scm�		[	��			Ch�]LL�L�6�gv
		ginit		grest			gfilenamefice-9/optargs.scm�		\	��		\	"��		\	��			Ch��]45$
O@45"@45"	6$4?$LO@"���"���$4	?$
LO@"���"����gbindings
	�gvars	�ginits		�gtmp		
�gtmp		(�gtmp		7	ngfilenamefice-9/optargs.scm�
	W	��	�	gnameglp�Ch�]	OQ6�gbindings
		glp	
	gfilenamefice-9/optargs.scm�
	V
��	
	W	��		W	%��		W	1��		W	��		gnameg
vars&inits�CQR4TU$[,-.h�]6�grest-arg
		gbinding		gb0			gb1			gfilenamefice-9/optargs.scm�		c	,��			CQ\]^$_���hZ]LCRgtmp-44375c4e67-21b
		gtmp-44375c4e67-21a					C����������hXj]4O5LL���	
�����L
LCbgn
		Ugn+1		Ugvars			Ugt			Ugi			U		U	C,-
hh ]$4>G4545�454545$O@	6grest-arg
		fgbinding		fgb0			fgb1			fgvars		
	fginits		
	fgtmp		;	fgtmp		F	fgfilenamefice-9/optargs.scm�		d	$��		d	��		f	��		g	"��	#	g	��	$	h	��	-	h	,��	/	h	��	0	i	"��	;	f	��		f	Ch@d]	45"	6$4?$@"���"���\gx
		9gtmp		9gfilenamefice-9/optargs.scm�
	a	��		9C5R4TU$[,-.h�]6�grest-arg
		gbinding		gb0			gb1			gfilenamefice-9/optargs.scm�		v	,��			CQ\]$�����������h:]LC2gtmp-44375c4e67-243
				C��
hP[]LL�������4	
O5�LLCSgn
		Lgn+1		Lgvars			Lgi			L		L	C,-	h`]$4>G4545�4545$O@6grest-arg
		_gbinding		_gb0			_gb1			_gvars		
	_ginits		
	_gtmp		4	_gtmp		?	_gfilenamefice-9/optargs.scm�		w	$��		w	��		y	��		z	"��	#	z	��	$	{	��	-	{	,��	/	{	��	4	y	��
		_	Ch@d]	45"	6$4?$@"���"���\gx
		9gtmp		9gfilenamefice-9/optargs.scm�
	t	��		9C5R4TU$����h(v]�����Cngrest-arg
		#gaok		#gbinding			#gb0			#gb1			#		#	C,-.h�]6�grest-arg
		gaok		gbinding			gb0			gb1			gfilenamefice-9/optargs.scm�	�	0��			CQ\^����$����hZ]LCRgtmp-44375c4e67-273
		gtmp-44375c4e67-272					C�����������h`�]4O5LL���		
L45�L
LC�gn
		_gvars		_givars			_gkw			_gidx			_gt			_gi			_		_	C,-
h�M]%4>G454544554455454	5$
O@6Egrest-arg
		ygaok		ygbinding			ygb0			ygb1			ygvars		
	yginits		
	ygtmp		L	ygtmp		W	y	gfilenamefice-9/optargs.scm�	�	$��	�	��	�	��	�	 ��	%�	#��	*�	(��	4�	#��	5�	$��	8�	*��	@�	$��	A�	"��	L�	��
		y	ChPv]45" 45$@6$4?$@"���"���ngx
		Pgtmp		Pgtmp			1gfilenamefice-9/optargs.scm�
�	��		PC5R4TU$�h(v]�����Cngrest-arg
		#gaok		#gbinding			#gb0			#gb1			#		#	C,-.h�]6�grest-arg
		gaok		gbinding			gb0			gb1			gfilenamefice-9/optargs.scm�	�	0��			CQ\����$	 !"#$��%h:]LC2gtmp-44375c4e67-2b2
				C&'hXk]LL���L4	5
4O5�L
LCcgn
		Vgvars		Vgkw			Vgidx			Vgi			V		V	C,-hp;]%4>G454455445545$	O@
63grest-arg
		kgaok		kgbinding			kgb0			kgb1			kgvars		
	kginits		
	kgtmp		>	kgtmp		I	k	gfilenamefice-9/optargs.scm�	�	$��	�	��	�	��	�	#��	#�	(��	-�	#��	.�	$��	1�	*��	9�	$��	>�	��		k	ChPv]45" 45$@6$4?$@"���"���ngx
		Pgtmp		Pgtmp			1gfilenamefice-9/optargs.scm�
�	��		PC5R4TU$)89h\]���CTgid
		gargs		gb0			gb1						C:,-.hh]6`gid
		gval		gfilenamefice-9/optargs.scm�		��			CBh;]C3gid
		gval					C	hPv]45$@45"	6$4?$@"���"���ngx
		Pgtmp		Pgtmp		"	Pgfilenamefice-9/optargs.scm�
�	��		PC5R4TU$FGSTUh\]���CTgid
		gargs		gb0			gb1						C,-V�h�]456�gid
		
gargs		
gdoc			
gb0			
gb1			
gfilenamefice-9/optargs.scm�		*��	
	!��		
	Cabhm]���Cegid
		gargs		gdoc			gb0			gb1						C	hPv]45" 45$@6$4?$@"���"���ngx
		Pgtmp		Pgtmp			1gfilenamefice-9/optargs.scm�
	��		PC5R4TU$Euvxh o]����Cggdummy
		gid		gargs			gb0			gb1						C,-h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/optargs.scm�

��		"g
macro-typegsyntax-rules�gpatternsgidgargsgb0gb1g...C5RyzR{z|}~�������hP�
]��$;���$"���$	���$���
	
�$�
�
��$���
(�"m
�$G$�"4	�5$
45"""(C��"���"m
�$"Q(%4�?����"���������"���"~$8�
�$�"[�"���
�$-("4�5$"C�$CC"(6(C�&4�?�"��"���4�5$�4�5$��$4
�5""$.4��>"G��"��Z"	64�5$,��$ $��"��"���"���"����"���"(6(C�&4�?�"��"���4�5$�4�5$��$4
�5""$.4��>"G��"��Z"	64�5$,��$ $��"��"���"���"���$"���
645"��^
6
6
6
6
6
6
6�
gspec
	Lginits	Lgargs		Lgvx		Dgvy		Dgvx		 <gvy		 <gvx		14gvy		14gvx			B,gvy	
	B,gvx		S$gvy		S$gvx	
	dgvy		dgargs		r�gprev		r�gtail		r�gn		r�g
slots-tail	��gslots	�Pg
slots-tail	�Pg	args-tail	�Pgn	�Pginits	�Pgslots	T�g
slots-tail	T�g	args-tail	T�ginits	T�grest-idx	T�gslots	��g
slots-tail	��g	args-tail	��ginits	��gt	F�gslots	��g
slots-tail	��g	args-tail	��ginits	��gt	Q�gargs	�)gfilenamefice-9/optargs.scm�

��	 	��	r"	��	u$		��	z#	���%		���%	!���%	���&	���&	&���&	���&		���'	���'	���'	���#	���,	���,	#���,		���-	���/		���.	��0		��	.	��2	��2	%��2	��2		��3	��3	%��3	)�� 3	0��.3		��35	��45		��96	��<6	%��?6	5��B6	<��P6		��T7	��Z8	��_;		��b<	
��f<		��k=	$��{=	
���>	 ���>	1���>	
���?		���8	���B	���B	���B	-���B	7���B	-���B		���C	���D		���8	���H	���I	���K		���N	���N	���O	(���O	/���O	(���O	��P	&��P	7��P	;��P	��Q	��Q	��Q	��I	��S	��$S	��&S	��*S		��-T	��.T	��2S		��3U	��:U	#��<U	��FI	��OW	��XW	!��^W	��mX	0��|X	���]	���]	4���^	���]	���I	���Y	���Y	���Y	���I	���Z	���Z	���Y		���\	+���\		���R	+���R		���_	���`	���b		���e	���e	���f	(���f	/��f	(��f	��
g	��g	+��g	/��g	��h	��#h	��%h	��)`	��*n	��/n	��1n	��5n		��8o	��9o	��=n		��>p	��Ep	#��Gp	��Q`	��Zr	��cr	!��ir	��xs	$���s	���x	���x	4���y	���x	���`	���t	���t	���t	���`	���u	���u	���t		���w	���w		���i		���k	#���k	
���l	���l	3���m	���l	
���z	���z	��{	��|	��|	
�� |	��$|	
��(|	��,|	
��0|	��4|	
��8|	��<|	
��@|	��D|	
��H|	��L|	
���	L	gnamegparse-lambda-case�C�RC{gm
		0gfilenamefice-9/optargs.scm�		;
��[	V
�� �	�� �	�� �
��/�
��	/�
C6
© 2025 GrazzMean