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¤ ;:¤ <¤ ?gfxreverse-bit-field¤ @gfxrotate-bit-field¤ Agfxarithmetic-shift-right¤ Bgfxarithmetic-shift-left¤ Cgfxarithmetic-shift¤ Dgfxcopy-bit-field¤ Eg fxbit-field¤ Fg fxcopy-bit¤ Gg fxbit-set?¤ Hgfxfirst-bit-set¤ Igfxlength¤ Jg fxbit-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?¤ `g fxnegative?¤ ag fxpositive?¤ bgfxzero?¤ cgfx<=?¤ dgfx>=?¤ egfx?¤ 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¤ Ùg identifier?¤ ÚÙ¤ ÛÙ¤ Ü•‹¤ Ý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¤ ¤ „ ¤ • ‹¤ ·¤ g case-lambda¤ ·¤ Œ·¤ gy¤ ·¤ ¤ Þ·¤ ¤ “·¤ ÿ·¤ ¤ gapply¤ ·¤  ¤ !g>¤ "g<¤ #g>=¤ $g<=¤ %gzero?¤ &g positive?¤ 'g negative?¤ (godd?¤ )geven?¤ *gmax¤ +gmin¤ ,g)make-implementation-restriction-violation¤ -gdiv¤ .gmod¤ /g div-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   C hx]45$@45$ O@45" 6$4 O?$ @"ÿÿ×"ÿÿÓˆgx  qgtmp qgtmp  " qgtmp  > qgfilenamefrnrs/arithmetic/fixnums.scmŒ n ŒŒ  q C5wR4vÞ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Œ ß ŒŒ  9 gnamegfxnotŒ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Œ è ŒŒ  L gnameg fxbit-countŒCJR"÷ù5h@ƒ] 45 ‘€$"445>"G6{gfx  9gt  3gfilenamefrnrs/arithmetic/fixnums.scmŒ î ŒŒ  9 gnamegfxlengthŒCIR"÷ù6h@Š] 45 ‘€$"445>"G6‚gfx  9gt  3gfilenamefrnrs/arithmetic/fixnums.scmŒ ï ŒŒ  9 gnamegfxfirst-bit-setŒCHR"÷ùhP˜] 45 ‘$" 45 ‘€$"445>"G6gfx1  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 gnameg fxbit-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