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

name : fixnums.go
GOOF----LE-8-2.0M]<4h]gguile�	�	gdefine-module*�	�	�	grnrs�	g
arithmetic�	gfixnums�		�	
gfilenameS�	frnrs/arithmetic/fixnums.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gash�	gcons*�	gdefine-inlinable�	ginexact->exact�	glogand�	glogbit?�	glogcount�	glogior�	glognot�	glogxor�	 gmost-positive-fixnum�	!gmost-negative-fixnum�	"gobject-address�	# !"�	$gcall-with-deferred-observers�	%$�	&$�	'gmodule-use-interfaces!�	('�	)'�	*gcurrent-module�	+*�	,*�	-gice-9�	.goptargs�	/-.�	0gbase�	10�	2gcontrol�	32�	4gbitwise�	54�	6g
conditions�	76�	8g
exceptions�	98�	:glists�	;:�	<gmodule-export!�	=<�	><�	?gfxreverse-bit-field�	@gfxrotate-bit-field�	Agfxarithmetic-shift-right�	Bgfxarithmetic-shift-left�	Cgfxarithmetic-shift�	Dgfxcopy-bit-field�	Egfxbit-field�	Fg
fxcopy-bit�	Gg
fxbit-set?�	Hgfxfirst-bit-set�	Igfxlength�	Jgfxbit-count�	Kgfxif�	Lgfxxor�	Mgfxior�	Ngfxand�	Ogfxnot�	Pg	fx*/carry�	Qg	fx-/carry�	Rg	fx+/carry�	Sgfxmod0�	Tgfxdiv0�	Ugfxdiv0-and-mod0�	Vgfxmod�	Wgfxdiv�	Xg
fxdiv-and-mod�	Ygfx-�	Zgfx*�	[gfx+�	\gfxmin�	]gfxmax�	^gfxeven?�	_gfxodd?�	`gfxnegative?�	agfxpositive?�	bgfxzero?�	cgfx<=?�	dgfx>=?�	egfx<?�	fgfx>?�	ggfx=?�	hggreatest-fixnum�	igleast-fixnum�	jgfixnum-width�	kgfixnum?�	l?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijk-�	mgmodule-re-export!�	nm�	om�	pgmodule-replace!�	qp�	rp�	sg% inline-fixnum?-procedure�	tgmake-syntax-transformer�	ut�	vt�	wginline-fixnum?�	xgmacro�	yg$sc-dispatch�	zy�	{y�	|g_�	}gany�	~|}�	g
syntax-object��gsyntax-parameterize��gm-2e3f1f84bf0f11-1c��gtop������gribcage��gt-2e3f1f84bf0f11-1b��������fl-2e3f1f84bf0f11-21��������������gx�����fl-2e3f1f84bf0f11-1e�����������gshift��g	proc-name��gargs�������������fl-bde397a-1eaf��fl-bde397a-1eb0������������gname��gformals��gbody������������fl-bde397a-1ea6��fl-bde397a-1ea7��fl-bde397a-1ea8�������������gmake-procedure-name��gprefix����������fl-bde397a-1e9a��fl-bde397a-1e98���������������fl-bde397a-1e97������������������������
��ghygiene����������������gprivate�����w����gidentifier-syntax�������s���������������glambda�������gobj����������gnot�������g=�������
��������	����"��������������������������������geach-any��|Ҍ��gsyntax-violation��������fWrong number of arguments��f-source expression failed to match any pattern��gidentifier?�������������s����g
assert-fixnum��}Ҍ��gor��gdummy��garg������gm-2e3f1f84bf0f11-27����������fl-2e3f1f84bf0f11-2c��fl-2e3f1f84bf0f11-2d���������������fl-2e3f1f84bf0f11-29����������������������gand�������gmap��������w����graise�������gmake-assertion-violation�����������������gfor-all��gassert-fixnums�gdefine-fxop*�}}}�gdefine�gop����gm-2e3f1f84bf0f11-31������fl-2e3f1f84bf0f11-36�	fl-2e3f1f84bf0f11-37�
fl-2e3f1f84bf0f11-38�	
���
�fl-2e3f1f84bf0f11-33����
������gcase-lambda������gy���������������gapply��� �!g>�"g<�#g>=�$g<=�%gzero?�&g	positive?�'g	negative?�(godd?�)geven?�*gmax�+gmin�,g)make-implementation-restriction-violation�-gdiv�.gmod�/gdiv-and-mod�0gdiv0�1gmod0�2g
div0-and-mod0�3gexpt�4g
bitwise-if�5gbitwise-length�6gbitwise-first-bit-set�7gbitwise-copy-bit�8gbitwise-bit-field�9gbitwise-copy-bit-field�:gbitwise-rotate-bit-field�;gbitwise-reverse-bit-field�C5h�3�]4	

54>"G4#54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4/54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4154&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4354&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4554&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4754&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4954&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4;54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4&>,lhM]456Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
C>"G4&o,hM]456Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
C>"G4&r,hM]456Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
C>"G"" i�$�"�	�"���
"���h]LC		
COjR hj]Cbgfilenamefrnrs/arithmetic/fixnums.scm�
	h	��		
gnameggreatest-fixnum�ChR!hg]C_gfilenamefrnrs/arithmetic/fixnums.scm�
	i	��		
gnamegleast-fixnum�CiR"ht]
	45���Clgobj
		gfilenamefrnrs/arithmetic/fixnums.scm�
	k	��		gnamegfixnum?�CkR"h�]
	45���Cgobj
		gfilenamefrnrs/arithmetic/fixnums.scm�
	n	��		gnameg% inline-fixnum?-procedure�CsR4vwx{~�h;]C3gt-2e3f1f84bf0f11-1b
		
		
C��w�h_]L6Wga
		gfilenamefrnrs/arithmetic/fixnums.scm�		n	��		C|���hO]L6Ggfilenamefrnrs/arithmetic/fixnums.scm�		n	��		
C�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefrnrs/arithmetic/fixnums.scm�
	n	��		qC5wR4v�x{�����h=]C5gtmp-2e3f1f84bf0f11-30
		
		
C�h>]45���C6gdummy
		garg					C��h(x]	45$@6pgx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgargg...C5�R�s��h �]	45$C456�gargs
		gt		gfilenamefrnrs/arithmetic/fixnums.scm�
	w	��		gnamegassert-fixnums�C�R4vx{ 	h0O]���CGgdummy
		*gname		*gop			*		*	C��h(x]	45$@6pgx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgnamegopC5R�igR!ifR"ieR#idR$icR%ibR&iaR'i`R(i_R)i^R"��*�hx�)Q3
	45��$"
	45���$"445>"G6-134>"G@�gx
			Wgy			Wgt		+	Ogargs
	`	xgfilenamefrnrs/arithmetic/fixnums.scm�
�	��			W		`	x


gnamegfxmax�C]R"��+�hx�)Q3
	45��$"
	45���$"445>"G6-134>"G@�gx
			Wgy			Wgt		+	Ogargs
	`	xgfilenamefrnrs/arithmetic/fixnums.scm�
�	��			W		`	x


gnamegfxmin�C\R"��,h��]
	45��$"
	45���$"445>"G�
	45���$"445>"GC�gfx1
	�gfx2	�gt		$	Hgr		M�gt		\�gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�	gnamegfx+�C[R"��,h��]
	45��$"
	45���$"445>"G�
	45���$"445>"GC�gfx1
	�gfx2	�gt		$	Hgr		M�gt		\�gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�	gnamegfx*�CZR"��h��-.,3#
	45���$"445>"G$l
	45���$"445>"G�
	45���$"445>"GC
�
	45���$"445>"GC�gfx1
	�gfx2	�gt		"	Fgt		Y	}gr	��gt	��gr	��gt	��gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�gnamegfx-�CYR"��-hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnamegfxdiv�CWR"��.hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnamegfxmod�CVR"��/hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnameg
fxdiv-and-mod�CXR"��0hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnamegfxdiv0�CTR"��1hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnamegfxmod0�CSR"��2hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnamegfxdiv0-and-mod0�CUR"��13j0h��]
	45��$""
	45��$"
	45���$"445>"G��44	455544	4555D�gfx1
	�gfx2	�gfx3		�gt		9	]gs		e�gs0		z�gs1	��gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�	gnameg	fx+/carry�CRR"��13j0h��]
	45��$""
	45��$"
	45���$"445>"G��44	455544	4555D�gfx1
	�gfx2	�gfx3		�gt		9	]gd		e�gd0		z�gd1	��gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�	gnameg	fx-/carry�CQR"��13j0h��]
	45��$""
	45��$"
	45���$"445>"G��44	455544	4555D�gfx1
	�gfx2	�gfx3		�gt		9	]gs		e�gs0		z�gs1	��gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�	gnameg	fx*/carry�CPR"��h@�]	
	45���$"445>"G6xgfx
		9gt		3gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		9gnamegfxnot�COR"���hx�)O3
	45��$"
	45���$"445>"G�C-134>"G@�gx
			Ugy			Ugt		+	Ogargs
	^	vgfilenamefrnrs/arithmetic/fixnums.scm�
�	��			U		^	v


gnamegfxand�CNR"���hx�)O3
	45��$"
	45���$"445>"G�C-134>"G@�gx
			Ugy			Ugt		+	Ogargs
	^	vgfilenamefrnrs/arithmetic/fixnums.scm�
�	��			U		^	v


gnamegfxior�CMR"���hx�)O3
	45��$"
	45���$"445>"G�C-134>"G@�gx
			Ugy			Ugt		+	Ogargs
	^	vgfilenamefrnrs/arithmetic/fixnums.scm�
�	��			U		^	v


gnamegfxxor�CLR"��4hh�]
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		ggfx2		ggfx3			ggt		9	]gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		g	gnamegfxif�CKR"��hP�]	
	45���$"445>"G
�$4566~gfx
		Lgt		3gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		Lgnamegfxbit-count�CJR"��5h@�]	
	45���$"445>"G6{gfx
		9gt		3gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		9gnamegfxlength�CIR"��6h@�]	
	45���$"445>"G6�gfx
		9gt		3gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		9gnamegfxfirst-bit-set�CHR"��hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnameg
fxbit-set?�CGR"��7hh�]
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		ggfx2		ggfx3			ggt		9	]gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		g	gnameg
fxcopy-bit�CFR"��8hh�]
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		ggfx2		ggfx3			ggt		9	]gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		g	gnamegfxbit-field�CER"��9h��]
	45��$"7
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		~gfx2		~gfx3			~gfx4			~gt		N	rgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		~	gnamegfxcopy-bit-field�CDR"��hP�]

	45��$"
	45���$"445>"G�C�gfx1
		Ngfx2		Ngt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		N	gnamegfxarithmetic-shift�CCRCiBR"��hP�]

	45��$"
	45���$"445>"G
��C�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
	��		P	gnamegfxarithmetic-shift-right�CAR"��:h��]
	45��$"7
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		~gfx2		~gfx3			~gfx4			~gt		N	rgfilenamefrnrs/arithmetic/fixnums.scm�
	��		~	gnamegfxrotate-bit-field�C@R"��;hh�]
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		ggfx2		ggfx3			ggt		9	]gfilenamefrnrs/arithmetic/fixnums.scm�
	��		g	gnamegfxreverse-bit-field�C?RC�gm
		+giface
	2�giface
�Jgiface
Q�giface
�jgiface
q�giface
�giface
�giface
!�gi
.Pgn.Pgw
Z�gfilenamefrnrs/arithmetic/fixnums.scm�		
���	a	��	h	���	i	��?	k	���	n	��
�	w	��]�	��e�	��m�	��u�	��}�	����	����	����	����	����	����	��%�	���	����	����	����	����	����	����	����	����	��z�	�� �	��!��	��"��	��#��	��%�	��&E�	��'n�	��(a�	��)>�	��*%�	��++�	��,\�	��-��	��.��	��/��	��/��	��1		��2e	��3�	��1	3�
C6
© 2025 GrazzMean