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

name : srfi-35.go
GOOF----LE-8-2.0�F]4hQ]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-35�	�		gfilenameS�	
fsrfi/srfi-35.scm�	gimportsS�	gsrfi-1�	
�	
�	�	gexportsS�	gmake-condition-type�	gcondition-type?�	gmake-condition�	g
condition?�	gcondition-has-type?�	g
condition-ref�	gmake-compound-condition�	gextract-condition�	gdefine-condition-type�	g	condition�	g
&condition�	g&message�	gmessage-condition?�	gcondition-message�	g&serious�	 gserious-condition?�	!g&error�	"gerror?�	# !"�	$gset-current-module�	%$�	&$�	'gcond-expand-provide�	(gcurrent-module�	)�	*gmake-vtable�	+g
string-append�	,gstandard-vtable-fields�	-fprprpr�	.gformat�	/f#<condition-type ~a ~a>�	0gcondition-type-id�	1gnumber->string�	2gobject-address�	3gset-struct-vtable-name!�	4gcondition-type�	5g%condition-type-vtable�	6gmake-struct-layout�	7gprint-condition�	8gstring?�	9gstring->symbol�	:f�	;g%make-condition-type�	<gvtable-offset-user�	=gcondition-type-parent�	>gcondition-type-all-fields�	?gstring-concatenate/shared�	@fpr�	A@�	Bgstruct-layout-for-condition�	Cf#<condition ~a [~a] ~a>�	Dgfold�	Ef~A: ~S�	Fgstring-join�	Ggreverse�	Hf �	Igerror�	Jf"invalid condition type field names�	Kgevery�	Lgsymbol?�	Mglset-intersection�	Ngeq?�	Ogappend�	Pfparent is not a condition type�	Qf)condition type identifier is not a symbol�	Rf7`make-compound-condition-type' passed empty parent list�	Sg
append-map�	Tgmake-compound-condition-type�	Ugthrow�	Vgwrong-type-arg�	Wfcondition-has-type?�	XfWrong type argument�	Ygany�	Zg
list-index�	[finvalid field name�	\ffield name is not a symbol�	]f
condition-ref�	^fWrong type argument: ~S�	_gmake-struct�	`gmake-condition-from-values�	ag
fold-right�	bgmemq�	cffield not specified�	dfmake-condition�	egmap�	fgcompound�	ggreverse!�	hfextract-condition�	ig+�	jglength�	kgmake-syntax-transformer�	lk�	mk�	ngmacro�	og$sc-dispatch�	po�	qo�	rgeach�	sYY�	trs�	uYt��	vYu��	wYv��	xYw��	yg
syntax-object�	zgbegin�	{gtop�	|{�	}gribcage�	~gdummy�	gname��gparent��gpred��g
field-name��gfield-accessor��~������gm-46961e5119-cc���{���|||||��fl-46961e5119-d1��fl-46961e5119-d2��fl-46961e5119-d3��fl-46961e5119-d4��fl-46961e5119-d5��fl-46961e5119-d6����������}�����}��gx��������fl-46961e5119-ce�����}�����|�����ghygiene�����yz����gdefine��y�����y����gquote��y�����gc��y��������y����e��e��y����gsyntax-violation��������f-source expression failed to match any pattern��gcompound-condition��geach-any��Y����gtype��gfield��~����gm-46961e5119-e1���{���||��fl-46961e5119-e6��fl-46961e5119-e7��fl-46961e5119-e8�������}��������fl-46961e5119-e3�����}�����|�����y����yT����y�����g	%compound��y���������g
quasiquote��y�����gunquote��y�����gcondition-instantiation��YY���gout��~����gm-46961e5119-ee���{���||��fl-46961e5119-f3��fl-46961e5119-f4��fl-46961e5119-f5�������}��������fl-46961e5119-f0�����}�����|�����y����s�����ڌ��Yی��Y܌��gfield-value��grest��~��������|||||��fl-46961e5119-fb��fl-46961e5119-fc��fl-46961e5119-fd��fl-46961e5119-fe��fl-46961e5119-ff��fl-46961e5119-100����������}�����|�����y�����O��O��y�����Y����Y���gm-46961e5119-109���{���||��fl-46961e5119-10e��fl-46961e5119-10f��fl-46961e5119-110�������}��������fl-46961e5119-10b�����}�����|�����y�����r��Y���fl-46961e5119-116�fl-46961e5119-117�fl-46961e5119-118��}���|���y���gdisplay�	f<&condition>�
gmessage�
�C5hx0�]4	
#54&>"G4'i4(i5)>"G4*i4+i,i-5./012h �]45445	56�gct
		gport		gfilenamefsrfi/srfi-35.scm�
	3	��		4	'��			5	"��		6	"��		6	2��		6	"��		4	��			C543i4>"G5R567389:hX0]45�4�$"45$45"45>"GC(glayout
		Wgid		Wgparent			Wg
all-fields			Wgstruct			Wgfilenamefsrfi/srfi-35.scm�
	;
��		=	��		<	��		<	��		C	��	 	C	+��	$	C	$��	+	D	+��	5	C	$��	6	D	8��	A	E	8��	E	E	H��	G	E	8��	L	C	��		W	gnameg%make-condition-type�C;R5h�]�$��CC�gobj
		gfilenamefsrfi/srfi-35.scm�
	H
��		J	��			J	��		K	��		K	��		gnamegcondition-type?�g
documentationf'Return true if OBJ is a condition type.�CR<h�]45$
��CC�gct
		gfilenamefsrfi/srfi-35.scm�
	N
��		O	��	
	O	��		P	��		P	��		gnamegcondition-type-id�C0R<h�]45$��CC�gct
		gfilenamefsrfi/srfi-35.scm�
	R
��		S	��	
	S	��		T	��		T	��		gnamegcondition-type-parent�C=R<h�]45$		��CC�gct
		gfilenamefsrfi/srfi-35.scm�
	V
��		W	��	
	W	��		X	��		X	��		gnamegcondition-type-all-fields�C>R?@Ah0]"(6��"���"����gfield-names
		.gfield-names		"glayout			"gfilenamefsrfi/srfi-35.scm�
	[
��		^	��		`	��		a	��		b	��		c	��		c	��	"	b	��	"	^	��	&	_	��	.	^	��		.gnamegstruct-layout-for-condition�CBR.C04D.Eh �]44L55�C�gfield
		gresult		gfilenamefsrfi/srfi-35.scm�
	j	��		k	"��		k	-��		l	*��		k	"��		k	��			C>FGH12
hX?]4455�4O45544	5
5445	567gc
		Sgport		Sgtype			Cgstrings		-	@gfilenamefsrfi/srfi-35.scm�
	e
��		r	��			s	
��		s	��		s	
��		i	��		i	��		j	��	$	n	��	%	o	��	-	j	��	-	i	��	0	p	��	3	p	��	;	p	%��	=	p	��	D	u	
��	G	u	��	Q	u	
��	S	r	��		S	gnamegprint-condition�C7R>IJKLMNOB;PQh��]�$l45$Y45"645$345( 4	54
56"���"���6
6�gid
		}gparent		}gfield-names			}g
parent-fields			mg
all-fields		N	eglayout		W	egfilenamefsrfi/srfi-35.scm�
	w
��		|	��			|	��	
	}	
��		}	��		~	��		~	
��	%�	��	)�	��	)		��	*		��	6		��	7�	��	E		��	F�	#��	N�	��	Q�	#��	W�	��	e�	��	q�	��	u�	
��	y�	
��	}�	��		}	gnamegmake-condition-type�g
documentationf�Return a new condition type named ID, inheriting from PARENT, and with the
fields whose names are listed in FIELD-NAMES.  FIELD-NAMES must be a list of
symbols and must not contain names already used by PARENT or one of its
supertypes.�CRIRS>B;h@!](6�(�C45456gid
		;gparents		;g
all-fields		$	;glayout		-	;gfilenamefsrfi/srfi-35.scm�
�
��	�	��	�	��	�		��	�	��	�	��	�		��	�	��	$�		��	'�	��	-�		��	;�	��
		;	gnamegmake-compound-condition-type�CTRh�]�$�6C�gc
		gfilenamefsrfi/srfi-35.scm�
�
��	�	��		�	��	�	��	�	��		gnameg
condition?�g
documentationf Return true if C is a condition.�CRh �]	�$�45$CCC�gc
		 gvtable		gfilenamefsrfi/srfi-35.scm�
�
��	�	��		�	��	�	��	�	��	�	
��	�		��		 gnamegcondition-type�C4RUVWX=Yh@�]	L&C$%45�$L645"���C�gct
		9gparent		7gfilenamefsrfi/srfi-35.scm�
�	��	
�	��	�	��	�	��	�	��	�	��	�	��	"�	��	*�	��	+�	��	7�	��		9gnamegloop�C4	hPB]
"
645$*45$OQ456"���"���:gc
		Igtype		Igloop		/	Agfilenamefsrfi/srfi-35.scm�
�
��	
�	
��	�	��	�	
��	�	��	�	��	�	��	�	��	�	��	&�	��	/�	��	9�	��	A�	��		I	gnamegcondition-has-type?�g
documentationf)Return true if condition C has type TYPE.�CR4>Zh`]L�CXgname
		gfilenamefsrfi/srfi-35.scm�
�	%��	�	'��		CI[\UV]^
h`�]45$E�$645454O5$�C66	
6�gc
		^g
field-name		^gtype			Jgfields		$	Jgindex		4	Jgfilenamefsrfi/srfi-35.scm�
�
��	�	��	
�	��	�	
��	�	��	�	��	�	
��	�	��	$�	
��	'�	��	4�	
��	<�	��	A�	��	F�	��	J�	��	N�	��	R�	
��	V�	
��	X�	��	Z�	
��	^�	��		^	gnameg
condition-ref�g
documentationf@Return the value of the field named FIELD-NAME from condition C.�CR_h�]
@�gtype
		gvalues		gfilenamefsrfi/srfi-35.scm�
�
��	�	��			gnamegmake-condition-from-values�C`R>abIch(�]
4L5�$���C6�gfield
		$ginits		$gv			$gfilenamefsrfi/srfi-35.scm�
�	%��	�	0��	�	'��	�	-��	�	)��	�	3��	�	-��	 �	4��	$�	-��
		$	C`UVd^
hH�-1345$"454O56	6�gtype
			Bgfield+value			Bg
all-fields			6ginits		,	6gfilenamefsrfi/srfi-35.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	(�	%��	,�	��	,�	��	6�	��	:�	
��	<�	��	>�	
��	B�	��			B
gnamegmake-condition�g
documentationf�Return a new condition of type TYPE with fields initialized as specified
by FIELD+VALUE, a sequence of field names (symbols) and values.�CRe4TfS4eh]]L6Ugf
		
gfilenamefsrfi/srfi-35.scm�
�	&��	
�	(��		
C>h �]	45O456gc
		gct			gfilenamefsrfi/srfi-35.scm�
�	��	�	)��		�	��	�	&��	�	!��		C`h8U-134545456Mg
conditions
			2gtypes		2gct			2ginits		(	2gfilenamefsrfi/srfi-35.scm�
�
��	
�	��	�	��	�	��	�	/��	�	��	�	��	 �	��	(�	��	2�	��			2


gnamegmake-compound-condition�g
documentationf7Return a new compound condition composed of CONDITIONS.�CRgh@;]"((6��L����"���"���3gstart-index
		=gfield-names		=gindex			.gfield-names			.gresult			.gfilenamefsrfi/srfi-35.scm�
	��		��		��			
��	
	��		��		��	 
	��	#	��	.
	
��	.	��	3	��	=	��		=	gnameglist-fields�CUVhX4=ie>jhph]�(CL&C�$04L5$C�445?�"���4455��"���`gparents
		ogindex		ogparent			ogt		*	Qgshift		]	ogfilenamefsrfi/srfi-35.scm�
�	��	�	��	�	��	
�	��	�	��	!�	��	"�	��	*�	��	8�	��	;�	��	>�	%��	H�	��	I�	��	Q�	��	R�	��	U�	$��	]�	��	]�	��	b	��	g	��	o	��		o	gnamegloop�C>
h�]"OQ"
645$f45$W454	5&C�$1
OQ4
54455@C"���"���gc
	�gtype	�glist-fields		
�gct		:�gparent		C�gloop		`	rgfield-index		r�gfilenamefsrfi/srfi-35.scm�
�
��	!	
��	!	��	"	
��	!	��		��		��	(	��	)	��	3	��	4	��	:	��	=	��	C	��	M	��	S	��	W	��	`�	��	r	��	y	��	~	%���	���	��	�	gnamegextract-condition�g
documentationfOReturn a condition of condition type TYPE with the field values specified
by C.�CR4mnqx�������������h X]�CPgtmp-46961e5119-df
		gtmp-46961e5119-de					C
hH�]�4	5���C�gdummy
		Bgname		Bgparent			Bgpred			Bg
field-name			Bgfield-accessor			B		B	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-35.scm�
)
��		"g
macro-typegsyntax-rules�gpatternsgnamegparentgpredg
field-namegfield-accessorg...C5R4m�nq�������h9]C1gtmp-46961e5119-ec
		
		
Ch R]45�CJgdummy
		 gtype		 gfield			 		 	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-35.scm�
3
��		"g
macro-typegsyntax-rules�gpatternsgtypeg...gfieldg...C5�R4m�nq��hP]��CHgdummy
		gtype		gout						C����h �]45���C�gdummy
		gtype		gout			g
field-name			gfield-value			grest						C��h@
]45$@45$@6gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-35.scm�
:	��		9g
macro-typegsyntax-rules�gpatternsgtypegoutg...gtypegoutg...g
field-namegfield-valuegrestg...C5�R4mnq��hR]���CJgdummy
		
gtype		
gfield			
		
	C�hR]4?CJgdummy
		gtype		gfield						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-35.scm�
A	��		9g
macro-typegsyntax-rules�gpatternsgtypegfieldg...gtypegfieldg...g...C5R5i46i:5	hx]6pgc
		gport		gfilenamefsrfi/srfi-35.scm�
P	��	Q	��	Q	��			C�R4ii5Rhr]6jgc
		
gfilenamefsrfi/srfi-35.scm�
T
��		
gnamegmessage-condition?�CR
hq]6igc
		
gfilenamefsrfi/srfi-35.scm�
T
��		
gnamegcondition-message�CR4ii5Rhr]6jgc
		
gfilenamefsrfi/srfi-35.scm�
X
��		
gnamegserious-condition?�C R4i!i5!R!hf]6^gc
		
gfilenamefsrfi/srfi-35.scm�
[
��		
gnamegerror?�C"RC�gm
		,gs
(Egfilenamefsrfi/srfi-35.scm�		
��	-	'
��	2	'	��	:	'	&��	?	'
��	H	2	��	M	2	��	W	2	>��	Y	2	��(	2	��(	2	��+	8	��3	8	��8	8	��H	.
���	;
���	H
���	N
��x	R
��D	V
���	[
��
	e
��
o	w
����
����
����
����
��k�
��-�
��\�
��H�
��#��
��-@O	��-FO	#��-HO	��-�R	��-�R	��-�R	"��-�N	��-�L
��-�T
��/-X
��/�[
��,	0s
C6
© 2025 GrazzMean