GOOF----LE-8-2.020]{4h¹] gguile¤ ¤ gdefine-module*¤ ¤ ¤ glanguage¤ gelisp¤ glexer¤ ¤ gfilenameS¤ flanguage/elisp/lexer.scm¤ gimportsS¤ gice-9¤ gregex¤  ¤ ¤ ¤ gexportsS¤ g get-lexer¤ g get-lexer/1¤ ¤ gset-current-module¤ ¤ ¤ gerror¤ g lexer-error¤ g set-char-bit¤ g eof-object?¤ gchar=?¤ gis-char?¤ g integer->char¤ greal-character¤ !gchar-alphabetic?¤ "g char->integer¤ #g char-upcase¤ $g add-control¤ %g read-char¤ &g char-numeric?¤ 'g unread-char¤ (finvalid digit in escape-code¤ )gcharcode-escape¤ *a Œ¤ +b Œ¤ ,t Œ¤ -n Œ¤ .v Œ¤ /f Œ¤ 0r Œ¤ 1e Œ¤ 2s Œ¤ 3d Œ¤ 4*+,-./0123 ¤ 5gbasic-escape-codes¤ 6A Œ¤ 7s Œ¤ 8H Œ¤ 9S Œ¤ :gassq-ref¤ ;g get-character¤ gchar>=?¤ ?gcharchar-set¤ Ff-+=*/_~!@$%^&:<>{}?.¤ Ggno-escape-punctuation¤ Hg list->string¤ Igreverse¤ Jg regexp-exec¤ Kginteger¤ Lgfloat¤ Mgsymbol¤ Ngchar-set-contains?¤ Ogget-symbol-or-number¤ Pg circular-ref¤ Qg circular-def¤ Rf!invalid circular marker character¤ Sgget-circular-marker¤ Tg file-port?¤ Ug port-filename¤ Vg port-line¤ Wg port-column¤ Xgset-source-property!¤ Ygfilename¤ Zgline¤ [gcolumn¤ \geof¤ ]gchar-whitespace?¤ ^glex¤ _g character¤ `gstring¤ agfunction¤ bg paren-open¤ cg paren-close¤ dg square-open¤ eg square-close¤ fgquote¤ gg backquote¤ hgunquote-splicing¤ ifexpected @ in unquote-splicing¤ jgunquote¤ kg string-length¤ lfinvalid character in input¤ mgstring->symbol¤ nginexact->exact¤ ogstring->number¤ pginteger?¤ qfexpected integer¤ rgexact?¤ sfexpected inexact float¤ tfwrong number/symbol type¤ ugdot¤ vg binary-ports¤ w v¤ xg eof-object¤ ywx¤ zwx¤C5h%H]4    54>"Gh£-13@›gport gmsg gargs  gfilenameflanguage/elisp/lexer.scmŒ ' ŒŒ  ( ŒŒ   gnameg lexer-errorŒCRh–] Ÿ¡CŽgchr  gbit  gfilenameflanguage/elisp/lexer.scmŒ - ŒŒ  . ŒŒ . ŒŒ  gnameg set-char-bitŒCRh£]45$C6›gtested  g should-be  gfilenameflanguage/elisp/lexer.scmŒ 4 ŒŒ  5 ŒŒ 5 ŒŒ  6 ŒŒ   gnamegis-char?ŒCRh] ’$6C‡gchr  gfilenameflanguage/elisp/lexer.scmŒ < ŒŒ  = ŒŒ = ŒŒ  > ŒŒ   gnamegreal-characterŒC R !"#hHÝ] 4545$4455 @˜C?†$ C@†$ C 6Õgchr  Egreal Egfilenameflanguage/elisp/lexer.scmŒ F ŒŒ  G ŒŒ G ŒŒ H ŒŒ  H ŒŒ  I ŒŒ  I ŒŒ " I ŒŒ $ I .ŒŒ % I ŒŒ / J ŒŒ E M ŒŒ  E gnameg add-controlŒC$R%&"!#'( hèt],"×"¹4545$45 0˜"645$*4455 A˜ ’$" –"$ ’"$š–—"ÿÿw$"$4>"GC6$•$C"ÿÿ1"ÿÿ- "ÿÿlgport  çgbase  çgdigits   çg early-return   çgresult   Ýgprocdigs   Ýgcur   Ãgcode  F ]gvalue  b Ãgvalid  t à gfilenameflanguage/elisp/lexer.scmŒ V ŒŒ  W ŒŒ [ ŒŒ  [ ŒŒ  ] ŒŒ  \ ŒŒ  ^ ŒŒ ' ^ /ŒŒ ( ^ ŒŒ - _ ŒŒ 7 \ ŒŒ 8 ` 'ŒŒ ; ` 6ŒŒ C ` 'ŒŒ E a 'ŒŒ F ` $ŒŒ F ` ŒŒ L b ŒŒ P b ŒŒ Z d ŒŒ b [ ŒŒ j f ŒŒ o f !ŒŒ t [ ŒŒ | g ŒŒ p ŒŒ „ p ŒŒ ‡ p 1ŒŒ p ŒŒ • h ŒŒ œ h ŒŒ   h ŒŒ ¡ j ŒŒ ½ m ŒŒ à l ŒŒ à Y ŒŒ Î Y ŒŒ Ò Y ŒŒ Ý W ŒŒ(  ç gnamegcharcode-escapeŒC)R45R6789%:5$;<=)">?'h°C]*M$ " Œ454\5$r454545"ø$C"ª^†$  4 56C†$J4 4 5-5$5445-5$"4 >"G 4 56Cx†$  6u†$   6U†$   66405$0485$4>"G  6"ÿÿ"ÿÿ$M4 4 5-5$7445-5$"4 >"G4 56"ÿþµ"ÿþ±6;gport  ®g in-string  ®g meta-bits  % ®gcur  % ®gescaped  = ¨gesc-code  H ¨gmeta  S ¨gfilenameflanguage/elisp/lexer.scmŒ „ ŒŒ  … ŒŒ  ‰ ŒŒ  … ŒŒ  Š ŒŒ % … ŒŒ * ‹ ŒŒ 6 ‹ ŒŒ 7 ŒŒ = ŒŒ @ Ž ŒŒ H ŒŒ K ŒŒ S ŒŒ _ ŒŒ o ¢ ŒŒ r £ "ŒŒ | £ ŒŒ … ¢ ŒŒ † ¥ ŒŒ ‰ ¥ ŒŒ “ ¥ ŒŒ — ¥ ŒŒ ˜ § ŒŒ › § &ŒŒ ¥ § ŒŒ © § ŒŒ ® ¨ ŒŒ ² ¨ ŒŒ · ¨ ŒŒ  © "ŒŒ Ì © ŒŒ Ø ¢ ŒŒ â « ŒŒ ë ¢ ŒŒ ö ¬ ŒŒ ÿ ¢ ŒŒ  ­ ŒŒ  ® ŒŒ  ŒŒ  › ŒŒ  ŒŒ  › 'ŒŒ * › ŒŒ + ŒŒ I ž ŒŒ Q ŒŒ X ” ŒŒ [ ” ŒŒ e ” ŒŒ i ” ŒŒ j • ŒŒ m • ŒŒ w • ŒŒ { • ŒŒ € – ŒŒ „ – ŒŒ ‰ – ŒŒ ” — ŒŒ   — ŒŒ ® ± ŒŒ>  ® gnameg get-characterŒC;R4@iA5BR4@iC5DR4EiF5GR%HIJBKDLM&!NG'hHí])"24545$P4455$" 45$" $" 45$ " D4 5$" 4 5$" 4 5$Œ"ÿÿR4\5$45Œ"ÿÿ24>"G4455$" 45$" $" 45$ " D"ÿþÄågport  Bg result-chars  8g had-escape   8gc  8gresult  & jgt  q ¡gt  … žgresult  ô 8gfilenameflanguage/elisp/lexer.scmŒ Ç ŒŒ  È ŒŒ  Ê ŒŒ Ê ŒŒ  ß ŒŒ  Þ ŒŒ  Ì #ŒŒ  Í $ŒŒ & Ì #ŒŒ & Ì ŒŒ . Ð ŒŒ 4 Ñ ŒŒ @ Ï ŒŒ B Ò ŒŒ L Ó ŒŒ R Ô ŒŒ ^ Ï ŒŒ ` Õ ŒŒ f Ö ŒŒ j Î ŒŒ k Ù "ŒŒ q Ù ŒŒ  Ú "ŒŒ … Ù ŒŒ “ Û "ŒŒ ¥ Þ ŒŒ ª à %ŒŒ ´ à ŒŒ µ á ŒŒ Á Þ ŒŒ  á &ŒŒ Ë á ŒŒ Ô á ŒŒ Õ ã ŒŒ é Ì #ŒŒ ì Í $ŒŒ ô Ì #ŒŒ ô Ì ŒŒ ü Ð ŒŒ  Ñ ŒŒ  Ï ŒŒ  Ò ŒŒ  Ó ŒŒ  Ô ŒŒ , Ï ŒŒ . Õ ŒŒ 4 Ö ŒŒ 8 Î ŒŒ 8 È ŒŒ 9 È ŒŒ B È ŒŒ4  B gnamegget-symbol-or-numberŒCOR%&"PQRhx‘]"84545$45 0˜ š–"ÿÿÒ " "ÿÿÁ G#†$ŒC=†$ŒC6‰gport  ugresult  >gcur  >gval  $ 4gid F ugtype  F ugfilenameflanguage/elisp/lexer.scmŒ ê ŒŒ  í ŒŒ  î ŒŒ î ŒŒ  ï ŒŒ  ï ŒŒ  𠌌 # ð 2ŒŒ $ 𠌌 $ 𠌌 + ñ ŒŒ . ñ ŒŒ 4 ñ ŒŒ > ò ŒŒ > í ŒŒ I ë ŒŒ V ô ŒŒ X õ ŒŒ e ô ŒŒ g ö ŒŒ q ø ŒŒ u ÷ ŒŒ  u gnamegget-circular-markerŒCSRTUVWXYZ[hPç] Œ4L>"G4L>"G4L>"GCßgtoken  Ngvalue  Ngobj   Ngfilenameflanguage/elisp/lexer.scmŒ  ŒŒ   ŒŒ   ŒŒ  ŒŒ   0ŒŒ   ŒŒ  ŒŒ &  0ŒŒ -  ŒŒ 6  ŒŒ <  0ŒŒ C  ŒŒ  N C%\]^_;`HI'Sabcdefg<hijOMklmKnopqLrstu0h {])45$ 45"45—45—O4545$64 5$ 6"x;†$?"74545$" 4  5$ 6"ÿÿÉ"ÿÿÅ?†$ 4 56"†$©"ž45"†$44556\†$f45 †$" †$"ÿÿ«4>"G4>"G44 55Œ"ÿÿmŒ"ÿÿb"ÿÿ[#†$É450†$"u1†$"g2†$"Y3†$"K4†$"=5†$"/6†$"!7†$"8†$"9†$'4>"G45Ž6'†$6C(†$6)†$6[†$6]†$6'†$6`†$6,†$8445@5$4 45@5$66 64>"G4!> G"†$44#5 ‘$4>"G$6"4%56&†$>&4'4(554)5$"4*>"G6+†$9+4(54,5$4->"G"6.64 .5$4 455$/6"ÿü`"ÿü\sgport  gfile ) Cgline  ) Cgcolumn  ) Cgreturn J gc  J gcur  Š ºgt  “ ¬g result-chars  â €gcur  é €gescaped   ugc  — Ygmark  ; Ggtype   îgstr   îgnum  v ¢gnum  ¸ ägfilenameflanguage/elisp/lexer.scmŒ þ ŒŒ  ÿ ŒŒ ÿ ŒŒ   ŒŒ   ŒŒ !  ŒŒ "  "ŒŒ )  ŒŒ ) ÿ ŒŒ D  ŒŒ J ÿ ŒŒ O  ŒŒ Y  ŒŒ ]  ŒŒ a  ŒŒ b  ŒŒ l  ŒŒ r  ŒŒ   ŒŒ ƒ  ŒŒ „  ŒŒ Š  ŒŒ  ŒŒ “  ŒŒ ¡  'ŒŒ °  ŒŒ ¶  ŒŒ º ! ŒŒ º  ŒŒ Ç  ŒŒ Ë $ ŒŒ Ì $ ŒŒ Õ $ ŒŒ Þ  ŒŒ â * ŒŒ ã + ŒŒ é + ŒŒ ô , ŒŒ ø . ŒŒ ù . ŒŒ ü . .ŒŒ  . ŒŒ  . ŒŒ  , ŒŒ  0 ŒŒ  0 ŒŒ ! 1 ŒŒ 7 3 ŒŒ 8 5 ŒŒ L 6 ŒŒ ` 8 ŒŒ c 8 +ŒŒ l 8 ŒŒ o 8 ŒŒ u 7 ŒŒ z : ŒŒ € : ŒŒ € * ŒŒ  * %ŒŒ ‡ * ŒŒ   ŒŒ ‘ < ŒŒ — < ŒŒ ¢ = ŒŒ ! ? ŒŒ 5 @ ŒŒ ; @ ŒŒ B A ŒŒ E A "ŒŒ G A ŒŒ P = ŒŒ T C ŒŒ W C ŒŒ b  ŒŒ f E ŒŒ i E ŒŒ r  ŒŒ v F ŒŒ y F ŒŒ ‚  ŒŒ † G ŒŒ ‰ G ŒŒ ’  ŒŒ – H ŒŒ ™ H ŒŒ ¢  ŒŒ ¦ I ŒŒ © I ŒŒ ²  ŒŒ ¶ J ŒŒ ¹ J ŒŒ   ŒŒ à M ŒŒ Æ M ŒŒ Ð M ŒŒ Ô M ŒŒ Õ N ŒŒ Ø N ŒŒ â N ŒŒ æ N ŒŒ ê P ŒŒ í P ŒŒ ñ O ŒŒ ó O ŒŒ ÷ Q ŒŒ ú Q ŒŒ û V ŒŒ  X ŒŒ  W ŒŒ ) Z ŒŒ * a ŒŒ 1 a ŒŒ 6 a ŒŒ 7 e ŒŒ L f ŒŒ P f ŒŒ T g ŒŒ U g $ŒŒ ] g ŒŒ f Z ŒŒ j n ŒŒ k o ŒŒ n o ,ŒŒ v o ŒŒ v o ŒŒ y p ŒŒ ƒ p ŒŒ ˆ q ŒŒ Œ q ŒŒ • q ŒŒ ¤ m ŒŒ ­ Z ŒŒ ± t ŒŒ ² t *ŒŒ ¸ t ŒŒ » u %ŒŒ Å u !ŒŒ Æ v %ŒŒ Ê v ,ŒŒ Ó v %ŒŒ æ t ŒŒ ê z ŒŒ î z ŒŒ î  ŒŒ ï  ŒŒ û  ŒŒ ü  ŒŒ ÿ  ŒŒ   ŒŒ   ŒŒ   ŒŒ   ŒŒ™   gnameglexŒC^R^hU]L6Mgfilenameflanguage/elisp/lexer.scmŒ € ŒŒ  € ŒŒ   Cht]OClgport  gfilenameflanguage/elisp/lexer.scmŒ  ŒŒ  gnameg get-lexerŒCR\zbdcefgjhQ hÈL]M$ 45ŒC4L5H†$"†$ M—N"h†$"†$ M™N"H†$"/†$"! †$" †$" †$K"J$"M “$N"CDgnext  Èg quotation  Ègkey   «gfilenameflanguage/elisp/lexer.scmŒ Š ŒŒ  ‹ ŒŒ Œ ŒŒ Œ ŒŒ Œ ŒŒ  Œ ŒŒ  Œ ŒŒ   ŒŒ   ŒŒ   ŒŒ   ŒŒ : ‘ !ŒŒ < ‘ ŒŒ I  ŒŒ Z “ !ŒŒ \ “ ŒŒ i  ŒŒ ¤ • ŒŒ ± – ŒŒ º – %ŒŒ ¾ – ŒŒ Á — ŒŒ  È Ch Ç]45 HHOC¿gport  glex gfinished  g paren-level  gfilenameflanguage/elisp/lexer.scmŒ † ŒŒ  ‡ ŒŒ ‡ ŒŒ   gnameg get-lexer/1ŒCRC@gm  ,gfilenameflanguage/elisp/lexer.scmŒ   ŒŒ þ ' ŒŒ ± - ŒŒ † 4 ŒŒ B < ŒŒ ˆ F ŒŒ  V ŒŒ  y ŒŒ  x ŒŒ > „ ŒŒ ? ¼ ŒŒ E ¼ #ŒŒ G ¼ ŒŒ J ¼ ŒŒ K ¿ ŒŒ Q À ŒŒ S ¿ ŒŒ V ¾ ŒŒ W Å ŒŒ ] Å 0ŒŒ _ Å ŒŒ b Å ŒŒ È Ç ŒŒ ô ê ŒŒ !N þ ŒŒ "W  ŒŒ %Š † ŒŒ  %Œ C6