GOOF----LE-8-2.08]:4h+] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gsrfi¤ gsrfi-60¤ ¤ gfilenameS¤ fsrfi/srfi-60.scm¤ gexportsS¤ g bitwise-and¤ g bitwise-ior¤ g bitwise-xor¤ g bitwise-not¤ g any-bits-set?¤ g bitwise-if¤ g bitwise-merge¤ glog2-binary-factors¤ g first-set-bit¤ gbit-set?¤ gcopy-bit¤ g bit-field¤ gcopy-bit-field¤ garithmetic-shift¤ grotate-bit-field¤ greverse-bit-field¤ g integer->list¤ g list->integer¤ gbooleans->integer¤   ¤ g re-exportsS¤ !glogand¤ "glogior¤ #glogxor¤ $ginteger-length¤ %glogtest¤ &glogcount¤ 'glogbit?¤ (gash¤ )!"#$%&'(¤ *g replacementsS¤ +g bit-count¤ ,+¤ -gset-current-module¤ .-¤ /-¤ 0gload-extension¤ 1g string-append¤ 2f libguile-¤ 3geffective-version¤ 4fscm_init_srfi_60¤ 5glognot¤ 6g bit-extract¤ 7gcond-expand-provide¤ 8gcurrent-module¤ 9¤C5h¨]4    )*,5 4/>"G40i41i243i554>"G!i R"i R#iR5iR%iR&i+R5h¬] 45 ¡C¤gmask  gn0  gn1   gfilenamefsrfi/srfi-60.scmŒ 8 ŒŒ  9 ŒŒ  : ŒŒ  : ŒŒ  9 ŒŒ   gnameg bitwise-ifŒCRiRiR'iR6iR6h(Þ]454 ˜5¢Ÿ¢CÖgn  "gnewbits  "gstart   "gend   "gfilenamefsrfi/srfi-60.scmŒ A ŒŒ  B ŒŒ  C ŒŒ  C 0ŒŒ  C ŒŒ  B ŒŒ B ŒŒ ! B ŒŒ  " gnamegcopy-bit-fieldŒCR(iR7i48i596þgm  0gfilenamefsrfi/srfi-60.scmŒ   ŒŒ 1 . ŒŒ 6 . ŒŒ < . ŒŒ = . +ŒŒ E . ŒŒ G / ŒŒ L . ŒŒ [ 1 ŒŒ b 2 ŒŒ i 3 ŒŒ p 4 ŒŒ w 5 ŒŒ ~ 6 ŒŒ W 8 ŒŒ ^ ; ŒŒ e = ŒŒ l > ŒŒ s ? ŒŒ ‘ A ŒŒ ˜ F ŒŒ  H ŒŒ ¥ H &ŒŒ § H ŒŒ  § C6