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

name : srfi-4.go
GOOF----LE-8-2.0�X]�4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-4�	�		gfilenameS�	
fsrfi/srfi-4.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	�	gexportsS�	g	u8vector?�	g
make-u8vector�	gu8vector�	gu8vector-length�	gu8vector-ref�	g
u8vector-set!�	gu8vector->list�	glist->u8vector�	g	s8vector?�	g
make-s8vector�	gs8vector�	gs8vector-length�	gs8vector-ref�	g
s8vector-set!�	 gs8vector->list�	!glist->s8vector�	"g
u16vector?�	#gmake-u16vector�	$g	u16vector�	%gu16vector-length�	&g
u16vector-ref�	'gu16vector-set!�	(gu16vector->list�	)glist->u16vector�	*g
s16vector?�	+gmake-s16vector�	,g	s16vector�	-gs16vector-length�	.g
s16vector-ref�	/gs16vector-set!�	0gs16vector->list�	1glist->s16vector�	2g
u32vector?�	3gmake-u32vector�	4g	u32vector�	5gu32vector-length�	6g
u32vector-ref�	7gu32vector-set!�	8gu32vector->list�	9glist->u32vector�	:g
s32vector?�	;gmake-s32vector�	<g	s32vector�	=gs32vector-length�	>g
s32vector-ref�	?gs32vector-set!�	@gs32vector->list�	Aglist->s32vector�	Bg
u64vector?�	Cgmake-u64vector�	Dg	u64vector�	Egu64vector-length�	Fg
u64vector-ref�	Ggu64vector-set!�	Hgu64vector->list�	Iglist->u64vector�	Jg
s64vector?�	Kgmake-s64vector�	Lg	s64vector�	Mgs64vector-length�	Ng
s64vector-ref�	Ogs64vector-set!�	Pgs64vector->list�	Qglist->s64vector�	Rg
f32vector?�	Sgmake-f32vector�	Tg	f32vector�	Ugf32vector-length�	Vg
f32vector-ref�	Wgf32vector-set!�	Xgf32vector->list�	Yglist->f32vector�	Zg
f64vector?�	[gmake-f64vector�	\g	f64vector�	]gf64vector-length�	^g
f64vector-ref�	_gf64vector-set!�	`gf64vector->list�	aglist->f64vector�	b !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aP�	cgset-current-module�	dc�	ec�	fgcond-expand-provide�	ggcurrent-module�	h�	igmake-syntax-transformer�	ji�	ki�	lgdefine-bytevector-type�	mgmacro�	ng$sc-dispatch�	on�	pn�	qg_�	rgany�	sqr��	tg
syntax->datum�	ut�	vt�	wg
datum->syntax�	xw�	yw�	zgbegin�	{gdefine�	|g
symbol-append�	}gvector?�	~gobj�	~��gand��gbytevector?���~��geq?��g
array-type���~��gquote��gmake-��gvector��glen��gfill�������gapply��gmake-srfi-4-vector������g
vector-length��gv�����glet��g/��gbytevector-length������gif��ginteger?������gerror��ffractional length��gelts��glist->�����glet*��glength�������������glp��gi���
����������g<�������gpair?�����������gvector-set!��gcar�����������g1+������gcdr��������������gvector->list��g1-��������������
������gcons��g
vector-ref������gbytevector-��g-ref��g*��gx�������g-set!�����gsyntax-violation��������f-source expression failed to match any pattern��gu8��gs8��gu16��gs16��gu32��gs32��gu64��gs64��gf32��gf64�C5h�H�]4	
b54e>"G4fi4gi5h>"G4klmpsvyz{|}�������������������������������������������������7h�]45�	
45
�
���45�
45�45�45� 45!�"#$4%5&�'�����4(5�")*45�+�,"-.4/50���4/50�41253)4%54�41553)6���4%54�41553)6���
Cgtag
	�ginfix	�gsize		�gfilenamefsrfi/srfi-4.scm�
	J
��		K	��		L	��	
	L	"��		L	��		K	��	-	N	��	1	N	��	5	N	)��	7	N	��	9	K	��	P	P	��	V	P	"��	X	P	��	Z	K	���	U	���	U	"���	U	���	K	���	V		���	V	���	V	$���	V		���	K	���	W	���	W	���	W	*���	W	���	K	���	Y	���	Y	"���	Y	-���	Y	���	K	���	]	���	]	&���	]	���	K	��	`	��	`	"��
	`	��	K	��	a	��	a	,��!	a	��#	K	��:	d	 ��@	d	3��B	d	 ��D	K	��X	e	��^	e	"��`	e	��b	K	��d	f		��h	f	��l	f	+��n	f		��p	K	���	g	���	g	"���	g	���	K	���	h		���	h	���	h	+���	h		���	K	���	i	���	i	"���	i	���	K	���	j		���	j	���	j	+���	j		���	K	��N	�	Chc]	45L4?6[gargs
		gv			gfilenamefsrfi/srfi-4.scm�		J
��		C��h(a]	45$O@6Ygy
		'gtmp		'gfilenamefsrfi/srfi-4.scm�
	J
��		'C5lR���h i]45$45�CCagobj
		gfilenamefsrfi/srfi-4.scm�
	l
��		gnameg	u8vector?�CR��h�-13@xglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	l
��			
gnameg
make-u8vector�CR�����h(�]	45�45$C6}gv
		&glen		&gfilenamefsrfi/srfi-4.scm�
	l
��		T	��		&gnamegu8vector-length�CRhk-136cgelts
			gfilenamefsrfi/srfi-4.scm�
	l
��			


gnamegu8vector�CR�hP�]!4545",�$ �$����"���CC
"����gelts
		Oglen			Ogv			Ogi			Dgelts			Dgfilenamefsrfi/srfi-4.scm�
	l
��		Ognameglist->u8vector�CRh8�]"
�$C���"���45�"����gv
		5gi		$gelts			$gfilenamefsrfi/srfi-4.scm�
	l
��		5gnamegu8vector->list�CRhy]��Cqgv
		
gi		
gfilenamefsrfi/srfi-4.scm�
	l
��		
	gnamegu8vector-ref�CRh�]��C�gv
		
gi		
gx			
gfilenamefsrfi/srfi-4.scm�
	l
��		
	gnameg
u8vector-set!�CRh�]��C�gv
		
gi		
gx			
gfilenamefsrfi/srfi-4.scm�
	l
��		
	gnameg
u8vector-set!�CR���h i]45$45�CCagobj
		gfilenamefsrfi/srfi-4.scm�
	m
��		gnameg	s8vector?�CR��h�-13@xglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	m
��			
gnameg
make-s8vector�CR�����h(�]	45�45$C6}gv
		&glen		&gfilenamefsrfi/srfi-4.scm�
	m
��		T	��		&gnamegs8vector-length�CR!hk-136cgelts
			gfilenamefsrfi/srfi-4.scm�
	m
��			


gnamegs8vector�CR�hP�]!4545",�$ �$����"���CC
"����gelts
		Oglen			Ogv			Ogi			Dgelts			Dgfilenamefsrfi/srfi-4.scm�
	m
��		Ognameglist->s8vector�C!Rh8�]"
�$C���"���45�"����gv
		5gi		$gelts			$gfilenamefsrfi/srfi-4.scm�
	m
��		5gnamegs8vector->list�C Rhy]��Cqgv
		
gi		
gfilenamefsrfi/srfi-4.scm�
	m
��		
	gnamegs8vector-ref�CRh�]��C�gv
		
gi		
gx			
gfilenamefsrfi/srfi-4.scm�
	m
��		
	gnameg
s8vector-set!�CRh�]��C�gv
		
gi		
gx			
gfilenamefsrfi/srfi-4.scm�
	m
��		
	gnameg
s8vector-set!�CR���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	n
��		gnameg
u16vector?�C"R��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	n
��			
gnamegmake-u16vector�C#R�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	n
��	 	T	��		(gnamegu16vector-length�C%R)hl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	n
��			


gnameg	u16vector�C$R�#hX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	n
��		Rgnameglist->u16vector�C)R%h8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	n
��		8gnamegu16vector->list�C(Rhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	n
��			gnameg
u16vector-ref�C&Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	n
��			gnamegu16vector-set!�C'Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	n
��			gnamegu16vector-set!�C'R���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	o
��		gnameg
s16vector?�C*R��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	o
��			
gnamegmake-s16vector�C+R�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	o
��	 	T	��		(gnamegs16vector-length�C-R1hl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	o
��			


gnameg	s16vector�C,R�+hX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	o
��		Rgnameglist->s16vector�C1R-h8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	o
��		8gnamegs16vector->list�C0Rhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	o
��			gnameg
s16vector-ref�C.Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	o
��			gnamegs16vector-set!�C/Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	o
��			gnamegs16vector-set!�C/R���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	p
��		gnameg
u32vector?�C2R��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	p
��			
gnamegmake-u32vector�C3R�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	p
��	 	T	��		(gnamegu32vector-length�C5R9hl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	p
��			


gnameg	u32vector�C4R�3hX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	p
��		Rgnameglist->u32vector�C9R5h8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	p
��		8gnamegu32vector->list�C8Rhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	p
��			gnameg
u32vector-ref�C6Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	p
��			gnamegu32vector-set!�C7Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	p
��			gnamegu32vector-set!�C7R���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	q
��		gnameg
s32vector?�C:R��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	q
��			
gnamegmake-s32vector�C;R�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	q
��	 	T	��		(gnamegs32vector-length�C=RAhl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	q
��			


gnameg	s32vector�C<R�;hX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	q
��		Rgnameglist->s32vector�CAR=h8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	q
��		8gnamegs32vector->list�C@Rhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	q
��			gnameg
s32vector-ref�C>Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	q
��			gnamegs32vector-set!�C?Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	q
��			gnamegs32vector-set!�C?R���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	r
��		gnameg
u64vector?�CBR��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	r
��			
gnamegmake-u64vector�CCR�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	r
��	 	T	��		(gnamegu64vector-length�CERIhl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	r
��			


gnameg	u64vector�CDR�ChX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	r
��		Rgnameglist->u64vector�CIREh8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	r
��		8gnamegu64vector->list�CHRhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	r
��			gnameg
u64vector-ref�CFRh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	r
��			gnamegu64vector-set!�CGRh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	r
��			gnamegu64vector-set!�CGR���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	s
��		gnameg
s64vector?�CJR��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	s
��			
gnamegmake-s64vector�CKR�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	s
��	 	T	��		(gnamegs64vector-length�CMRQhl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	s
��			


gnameg	s64vector�CLR�KhX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	s
��		Rgnameglist->s64vector�CQRMh8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	s
��		8gnamegs64vector->list�CPRhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	s
��			gnameg
s64vector-ref�CNRh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	s
��			gnamegs64vector-set!�CORh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	s
��			gnamegs64vector-set!�COR���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	t
��		gnameg
f32vector?�CRR��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	t
��			
gnamegmake-f32vector�CSR�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	t
��	 	T	��		(gnamegf32vector-length�CURYhl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	t
��			


gnameg	f32vector�CTR�ShX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	t
��		Rgnameglist->f32vector�CYRUh8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	t
��		8gnamegf32vector->list�CXRhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	t
��			gnameg
f32vector-ref�CVRh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	t
��			gnamegf32vector-set!�CWRh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	t
��			gnamegf32vector-set!�CWR���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	u
��		gnameg
f64vector?�CZR��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	u
��			
gnamegmake-f64vector�C[R�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	u
��	 	T	��		(gnamegf64vector-length�C]Rahl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	u
��			


gnameg	f64vector�C\R�[hX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	u
��		Rgnameglist->f64vector�CaR]h8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	u
��		8gnamegf64vector->list�C`Rhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	u
��			gnameg
f64vector-ref�C^Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	u
��			gnamegf64vector-set!�C_Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	u
��			gnamegf64vector-set!�C_RC�gm
		,gfilenamefsrfi/srfi-4.scm�		
��	-	G
��	2	G	��	:	G	&��	?	G
���	l
��,	m
���	n
��E	o
��!�	p
��(e	q
��.�	r
��5�	s
��<	t
��B�	u
��	H�
C6
© 2025 GrazzMean