Your IP : 216.73.216.75
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� igleast-fixnum� jgfixnum-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�gdefine-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 ��
gnamegleast-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-typegsyntax-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-typegsyntax-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
?>