Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 88
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 220
PK ! Iî2Ë bindings.gonu „[µü¤ GOOF----LE-8-2.0ð ] / 4 h ] g guile¤ ¤ g define-module*¤ ¤ ¤ g language¤ g elisp¤ g bindings¤ ¤
g filenameS¤ f language/elisp/bindings.scm¤ g exportsS¤
g
make-bindings¤ g mark-global-needed!¤ g map-globals-needed¤ g with-lexical-bindings¤ g with-dynamic-bindings¤ g get-lexical-binding¤
¤ g set-current-module¤ ¤ ¤ g make-record-type¤ g needed-globals¤ g lexical-bindings¤ ¤ g
bindings-type¤ g record-constructor¤ g make-hash-table¤ g record-accessor¤ g assoc-ref¤ g memq¤ !g
assoc-set!¤ "g record-modifier¤ #g hash-ref¤ $g and-map¤ %g symbol?¤ &g error¤ 'f can't bind non-symbols¤ (g for-each¤ )g hash-set!¤ *g
make-fluid¤ +g with-fluids*¤ ,g map¤ -g with-symbol-bindings¤ .f #invalid targets for lexical binding¤C 5 hH
¾ ]4
5 4 > " G 4i5R h ‡ ] 4545 6 g filenamef language/elisp/bindings.scmŒ
1
ŒŒ 2 ŒŒ
2 &ŒŒ 2 *ŒŒ 2 ŒŒ
g nameg
make-bindingsΠC
R !" hh ¾ ]#445 5 45 $ " 45$ " Œ 45 45 6 ¶ g bindings
e g sym e g module e g
old-needed e g t - g
old-in-module - e g
new-in-module G e g
new-needed T e g filenamef language/elisp/bindings.scmŒ
7
ŒŒ 8 ŒŒ 8 ŒŒ
8 5ŒŒ 8 ŒŒ 8 ŒŒ 8 ŒŒ : ŒŒ : ŒŒ * : :ŒŒ - 8 ŒŒ 0 ; ŒŒ < ; ŒŒ G = ŒŒ G 8 ŒŒ J > ŒŒ T 8 ŒŒ W ? ŒŒ ] ? $ŒŒ _ ? ŒŒ e ? ŒŒ e g nameg mark-global-needed!Œ CR hˆ ' ]B445 5 " `( CŽ Ž " $( " $Ž45 Œ "ÿÿÜ "ÿÿÐ "ÿÿ "ÿÿ• g bindings
g proc g needed g mod-tail v g
mod-result v g aentry % n g module * k g symbols / h g sym-tail 5 Y g
sym-result 5 Y
g filenamef language/elisp/bindings.scmŒ
F
ŒŒ G ŒŒ G ŒŒ
G 0ŒŒ G ŒŒ G ŒŒ G ŒŒ I ŒŒ K ŒŒ " N ŒŒ % O ŒŒ % O ŒŒ * P ŒŒ * O ŒŒ / Q ŒŒ / O ŒŒ 5 R
ŒŒ ; T ŒŒ D V $ŒŒ E W *ŒŒ L W 7ŒŒ N W *ŒŒ Q W $ŒŒ Y V ŒŒ Y R
ŒŒ v M
ŒŒ v I ŒŒ y J &ŒŒ I ŒŒ g nameg map-globals-neededŒ CR # h0 ]445 5 45 $ [CC ø g bindings
* g sym * g lex * g slot * g filenamef language/elisp/bindings.scmŒ
]
ŒŒ ^ ŒŒ ^ ŒŒ
^ .ŒŒ ^ ŒŒ ^ ŒŒ ^ ŒŒ ` ŒŒ ^ ŒŒ $ a ŒŒ * g nameg get-lexical-bindingŒ CR$%&' (#)* h € ]4L 5$ CL 45 6 x g sym
g filenamef language/elisp/bindings.scmŒ
n ŒŒ o ŒŒ o ŒŒ p 'ŒŒ p ŒŒ C+,# h h ]L 6 ` g sym
g filenamef language/elisp/bindings.scmŒ
r ŒŒ
r %ŒŒ
C
hx _ ] ‰$ 45€" $ 4> " G " 445 5 4 O > " G
4 O 56 W g bindings
s g syms s g targets s g proc s g lex B s g filenamef language/elisp/bindings.scmŒ
h
ŒŒ i ŒŒ i ŒŒ
j ŒŒ j
ŒŒ i
ŒŒ i ŒŒ k ŒŒ ! k
ŒŒ ( k ŒŒ 5 l
ŒŒ 6 l ŒŒ < l -ŒŒ > l ŒŒ B l
ŒŒ B l ŒŒ E n ŒŒ ` r ŒŒ s r ŒŒ s g nameg with-symbol-bindingsŒ C-R$%&.- h0 ]‰$ 45€" $ 6 6ÿ g bindings
0 g syms 0 g targets 0 g proc 0 g filenamef language/elisp/bindings.scmŒ
v
ŒŒ w ŒŒ w ŒŒ
x ŒŒ x
ŒŒ w
ŒŒ w ŒŒ y
ŒŒ $ y ŒŒ 0 z ŒŒ 0 g nameg with-lexical-bindingsŒ CR-, h _ ]C W g el
g filenamef language/elisp/bindings.scmŒ
ŒŒ C h º ] 456 ² g bindings
g syms g proc g filenamef language/elisp/bindings.scmŒ
|
ŒŒ ŒŒ } ŒŒ g nameg with-dynamic-bindingsŒ CRC ¶ g m
( g filenamef language/elisp/bindings.scmŒ
ŒŒ ) , ŒŒ / , ŒŒ 1 , ŒŒ 3 , ŒŒ 6 +
ŒŒ ò 1
ŒŒ 9 7
ŒŒ F
ŒŒ K ]
ŒŒ
Š h
ŒŒ â v
ŒŒ
E |
ŒŒ
G
C6 PK ! m{Ò³J0 J0 lexer.gonu „[µü¤ GOOF----LE-8-2.020 ] { 4 h¹ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g language¤ g elisp¤ g lexer¤ ¤
g filenameS¤ f language/elisp/lexer.scm¤ g importsS¤
g ice-9¤ g regex¤
¤ ¤ ¤ g exportsS¤ g get-lexer¤ g get-lexer/1¤ ¤ g set-current-module¤ ¤ ¤ g error¤ g lexer-error¤ g set-char-bit¤ g eof-object?¤ g char=?¤ g is-char?¤ g
integer->char¤ g real-character¤ !g char-alphabetic?¤ "g
char->integer¤ #g char-upcase¤ $g add-control¤ %g read-char¤ &g
char-numeric?¤ 'g unread-char¤ (f invalid digit in escape-code¤ )g charcode-escape¤ *a Œ¤ +b Œ¤ ,t Œ¤ -n
Œ¤ .v Œ¤ /f Œ¤ 0r
Œ¤ 1e Œ¤ 2s Œ¤ 3d Œ¤ 4*+,-./0123
¤ 5g basic-escape-codes¤ 6A Œ¤ 7s Œ¤ 8H Œ¤ 9S Œ¤ :g assq-ref¤ ;g
get-character¤ g char>=?¤ ?g charchar-set¤ Ff -+=*/_~!@$%^&:<>{}?.¤ Gg no-escape-punctuation¤ Hg list->string¤ Ig reverse¤ Jg regexp-exec¤ Kg integer¤ Lg float¤ Mg symbol¤ Ng char-set-contains?¤ Og get-symbol-or-number¤ Pg circular-ref¤ Qg circular-def¤ Rf !invalid circular marker character¤ Sg get-circular-marker¤ Tg
file-port?¤ Ug
port-filename¤ Vg port-line¤ Wg port-column¤ Xg set-source-property!¤ Yg filename¤ Zg line¤ [g column¤ \g eof¤ ]g char-whitespace?¤ ^g lex¤ _g character¤ `g string¤ ag function¤ bg
paren-open¤ cg paren-close¤ dg square-open¤ eg square-close¤ fg quote¤ gg backquote¤ hg unquote-splicing¤ if expected @ in unquote-splicing¤ jg unquote¤ kg
string-length¤ lf invalid character in input¤ mg string->symbol¤ ng inexact->exact¤ og string->number¤ pg integer?¤ qf expected integer¤ rg exact?¤ sf expected inexact float¤ tf wrong number/symbol type¤ ug dot¤ vg binary-ports¤ w
v ¤ xg
eof-object¤ ywx ¤ zwx ¤C 5 h% H ]4
5 4 > " G h £ - 1 3 @ › g port
g msg g args g filenamef language/elisp/lexer.scmŒ
'
ŒŒ ( ŒŒ
g nameg lexer-errorŒ CRh – ] Ÿ¡C Ž g chr
g bit
g filenamef language/elisp/lexer.scmŒ
-
ŒŒ . ŒŒ . ŒŒ
g nameg set-char-bitŒ CR h £ ]4 5$ C 6 › g tested
g should-be g filenamef language/elisp/lexer.scmŒ
4
ŒŒ 5 ŒŒ
5 ŒŒ 6 ŒŒ g nameg is-char?Œ C R h ] ’$ 6 C ‡ g chr
g filenamef language/elisp/lexer.scmŒ
<
ŒŒ = ŒŒ = ŒŒ > ŒŒ g nameg real-characterŒ C R !"# hH Ý ] 4 5 45$ 4455 @˜C?†$ C@†$
C 6 Õ g chr
E g real E g filenamef language/elisp/lexer.scmŒ
F
ŒŒ G ŒŒ G ŒŒ H ŒŒ H ŒŒ I ŒŒ I ŒŒ " I ŒŒ $ I .ŒŒ % I ŒŒ / J ŒŒ E M ŒŒ
E g nameg add-controlŒ C$R%&"!#'( hè t ]," ×" ¹4 5 45$ 45 0˜" 645$ *4455 A˜
’$ "
– " $ ’" $ š–— "ÿÿw$ " $ 4 > " G C 6$ •$ C"ÿÿ1"ÿÿ-
"ÿÿ l g port
ç g base ç g digits ç g early-return ç g result Ý g procdigs Ý g cur à g code F ] g value b à g valid t Ã
g filenamef language/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 ŒŒ ( ç g nameg charcode-escapeŒ C)R45R6789% :5$; <=)">?' h° C ]*M$ " Œ 4 5 4\5$ r4 5 45 45 " ø$ C" ª^†$
4
56C†$ J4 4 5-5$ 544 5-5$ " 4
> " G 4
56Cx†$
6u†$ 6U†$ 66405$ 0485$ 4 > " G 6"ÿÿ"ÿÿ$ M4 4 5-5$ 744 5-5$ " 4
> " G 4
56"ÿþµ"ÿþ±6 ; g port
® g in-string ® g meta-bits % ® g cur % ® g escaped = ¨ g esc-code H ¨ g meta S ¨ g filenamef language/elisp/lexer.scmŒ
„
ŒŒ … ŒŒ ‰ ŒŒ … ŒŒ Š
ŒŒ % … ŒŒ * ‹ ŒŒ 6 ‹ ŒŒ 7 ŒŒ = ŒŒ @ Ž ŒŒ H ŒŒ K ŒŒ S ŒŒ _
ŒŒ o ¢ ŒŒ r £ "ŒŒ | £ ŒŒ … ¢ ŒŒ † ¥ ŒŒ ‰ ¥ ŒŒ “ ¥ ŒŒ — ¥ ŒŒ ˜ § ŒŒ › § &ŒŒ ¥ § ŒŒ © § ŒŒ ® ¨ ŒŒ ² ¨ ŒŒ · ¨ ŒŒ  © "ŒŒ Ì © ŒŒ Ø ¢ ŒŒ â « ŒŒ ë ¢ ŒŒ ö ¬ ŒŒ ÿ ¢ ŒŒ
ŒŒ ® ŒŒ
ŒŒ › ŒŒ
ŒŒ › 'ŒŒ * › ŒŒ + ŒŒ I ž ŒŒ Q
ŒŒ X ” ŒŒ [ ” ŒŒ e ” ŒŒ i ” ŒŒ j • ŒŒ m • ŒŒ w • ŒŒ { • ŒŒ € – ŒŒ „ – ŒŒ ‰ – ŒŒ ” — ŒŒ — ŒŒ ® ± ŒŒ > ® g nameg
get-characterŒ C;R4@iA5BR4@iC5DR4EiF5GR% HIJBKDLM&!NG ' hH í ])" 24 5 45$ P4455 $ " 45$ " $ " 45$ "
D4 5 $ " 4 5 $ " 4
5 $ Œ "ÿÿR4\5$ 4 5Œ "ÿÿ24 > " G 4455 $ " 45$ " $ " 45$ "
D "ÿþÄ å g port
B g result-chars 8 g
had-escape 8 g c
8 g result & j g t q ¡ g t … ž g result ô 8 g filenamef language/elisp/lexer.scmŒ
Ç
ŒŒ È ŒŒ Ê ŒŒ
Ê ŒŒ ß ŒŒ Þ ŒŒ Ì #ŒŒ Í $ŒŒ & Ì #ŒŒ & Ì ŒŒ . Ð ŒŒ 4 Ñ ŒŒ @ Ï ŒŒ B Ò ŒŒ L Ó ŒŒ R Ô ŒŒ ^ Ï ŒŒ ` Õ ŒŒ f Ö ŒŒ j Î ŒŒ k Ù "ŒŒ q Ù ŒŒ Ú "ŒŒ … Ù ŒŒ “ Û "ŒŒ ¥ Þ ŒŒ ª à %ŒŒ ´ à ŒŒ µ á ŒŒ Á Þ ŒŒ  á &ŒŒ Ë á ŒŒ Ô á ŒŒ Õ ã ŒŒ é Ì #ŒŒ ì Í $ŒŒ ô Ì #ŒŒ ô Ì ŒŒ ü Ð ŒŒ Ñ ŒŒ Ï ŒŒ Ò ŒŒ Ó ŒŒ Ô ŒŒ , Ï ŒŒ . Õ ŒŒ 4 Ö ŒŒ 8 Î ŒŒ 8 È ŒŒ 9 È ŒŒ B È ŒŒ 4 B g nameg get-symbol-or-numberŒ COR%&"PQR hx ‘ ]" 84 5 45$ 45 0˜
š– "ÿÿÒ "
"ÿÿÁ G #†$ ŒC=†$ ŒC 6 ‰ g port
u g result > g cur
> g val $ 4 g id F u g type F u g filenamef language/elisp/lexer.scmŒ
ê
ŒŒ í ŒŒ î ŒŒ
î
ŒŒ ï ŒŒ ï ŒŒ 𠌌 # ð 2ŒŒ $ 𠌌 $ 𠌌 + ñ ŒŒ . ñ ŒŒ 4 ñ ŒŒ > ò ŒŒ > í ŒŒ I ë ŒŒ V ô ŒŒ X õ ŒŒ e ô ŒŒ g ö ŒŒ q ø ŒŒ u ÷ ŒŒ u g nameg get-circular-markerŒ CSRTUVWXYZ[ hP ç ]
Œ 4L> " G 4L> " G 4L > " G C ß g token
N g value N g obj N g filenamef language/elisp/lexer.scmŒ
ŒŒ ŒŒ ŒŒ
ŒŒ 0ŒŒ ŒŒ ŒŒ & 0ŒŒ - ŒŒ 6 ŒŒ < 0ŒŒ C ŒŒ
N C% \]^ _;`HI' Sabcdefg <hijOMklmKnopqLrstu 0 h { ])4 5$ 4 5" 4 5—4 5— O 4 5 45$ 64 5$
6" x;†$ ?" 74 5 45 $ " 4
5 $
6"ÿÿÉ"ÿÿÅ?†$ 4
56"†$ ©" ž4 5 "†$ 44556\†$ f4 5
†$ " †$ "ÿÿ«4 > " G 4 > " G 44
55Œ "ÿÿmŒ "ÿÿb "ÿÿ[#†$ É4 5 0†$ " u1†$ " g2†$ " Y3†$ " K4†$ " =5†$ " /6†$ " !7†$ " 8†$ " 9†$ '4 > " G 4 5 Ž6'†$ 6C(†$ 6)†$ 6[†$ 6]†$ 6'†$ 6`†$ 6,†$ 844 5@5$ 4 4 5@5$ 6 6 64 > " G 4! > G "†$ 44#5
‘$ 4 > " G $6"4%56&†$ >&4'4(55 4)5$ " 4 *> " G 6+†$ 9+4(5 4,5$ 4 -> " G " 6 .64 .5$ 4 4 55$ /6"ÿü`"ÿü\ s g port
g file ) C g line ) C g column ) C g return J g c J g cur Š º g t “ ¬ g result-chars â € g cur é € g escaped u g c — Y g mark ; G g type î g str î g num v ¢ g num ¸ ä g filenamef language/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 ŒŒ î
ŒŒ ï ŒŒ û
ŒŒ ü ŒŒ ÿ ŒŒ ŒŒ ŒŒ ŒŒ ŒŒ ™ g nameg lexŒ C^R^ h U ] L 6M g filenamef language/elisp/lexer.scmŒ
€ ŒŒ €
ŒŒ
C h t ] O C l g port
g filenamef language/elisp/lexer.scmŒ
ŒŒ
g nameg get-lexerŒ CR\zbdcefgjhQ hÈ L ]M$ 45 ŒC4L5 H †$ " †$ M —N " h†$ " †$ M ™N " H†$ " /†$ " ! †$ "
†$ " †$ K" J$ " M
“$ N" CD g next
È g quotation È g key « g filenamef language/elisp/lexer.scmŒ
Š ŒŒ ‹ ŒŒ
Œ ŒŒ Œ ŒŒ
Œ ŒŒ Œ ŒŒ Œ
ŒŒ ŒŒ
ŒŒ ŒŒ ŒŒ : ‘ !ŒŒ < ‘ ŒŒ I ŒŒ Z “ !ŒŒ \ “ ŒŒ i ŒŒ ¤ • ŒŒ ± – ŒŒ º – %ŒŒ ¾ – ŒŒ Á — ŒŒ È
C h Ç ]4 5
HH O C ¿ g port
g lex g finished g paren-level g filenamef language/elisp/lexer.scmŒ
†
ŒŒ ‡
ŒŒ ‡ ŒŒ g nameg get-lexer/1Œ CRC @ g m
, g filenamef language/elisp/lexer.scmŒ
ŒŒ þ '
ŒŒ ± -
ŒŒ † 4
ŒŒ B <
ŒŒ ˆ F
ŒŒ V
ŒŒ y ŒŒ x
ŒŒ
> „
ŒŒ
? ¼ ŒŒ
E ¼ #ŒŒ
G ¼ ŒŒ
J ¼
ŒŒ
K ¿ ŒŒ
Q À ŒŒ
S ¿ ŒŒ
V ¾
ŒŒ
W Å ŒŒ
] Å 0ŒŒ
_ Å ŒŒ
b Å
ŒŒ È Ç
ŒŒ ô ê
ŒŒ !N þ
ŒŒ "W
ŒŒ %Š †
ŒŒ %Œ
C6 PK ! L öã͈ ͈ compile-tree-il.gonu „[µü¤ GOOF----LE-8-2.0µˆ ] Ô 4 hù ] g guile¤ ¤ g define-module*¤ ¤ ¤ g language¤ g elisp¤ g compile-tree-il¤ ¤
g filenameS¤ f "language/elisp/compile-tree-il.scm¤ g importsS¤
g bindings¤
¤ ¤ g runtime¤ ¤ ¤ g tree-il¤ ¤ ¤ g system¤ g base¤ g pmatch¤ ¤ ¤ g compile¤ ¤ ¤ g srfi¤ g srfi-1¤ ¤ ! ¤ "g srfi-8¤ # " ¤ $# ¤ %g srfi-11¤ & % ¤ '& ¤ (g srfi-26¤ ) ( ¤ *) ¤ + !$'* ¤ ,g exportsS¤ -g
compile-progn¤ .g
compile-if¤ /g compile-defconst¤ 0g compile-defvar¤ 1g compile-setq¤ 2g compile-let¤ 3g compile-lexical-let¤ 4g compile-flet¤ 5g compile-let*¤ 6g compile-lexical-let*¤ 7g
compile-flet*¤ 8g compile-without-void-checks¤ 9g compile-with-always-lexical¤ :g compile-guile-ref¤ ;g compile-guile-primitive¤ g compile-defmacro¤ ?g
compile-defun¤ @g compile-`¤ Ag
compile-quote¤ B-./0123456789:;<=>?@A ¤ Cg set-current-module¤ DC ¤ EC ¤ Fg
make-fluid¤ Gg
bindings-data¤ Hg disable-void-check¤ Ig always-lexical¤ Jg source-properties¤ Kg location¤ Lg
make-const¤ Mg nil-value¤ NM ¤ OM ¤ Pg t-value¤ QP ¤ RP ¤ Sg value-slot-module¤ TS ¤ US ¤ Vg
value-slot¤ Wg function-slot-module¤ XW ¤ YW ¤ Zg
function-slot¤ [g ,¤ \g unquote?¤ ]g ,@¤ ^g unquote-splicing?¤ _g make-application¤ `g make-primitive-ref¤ ag call-primitive¤ bg error¤ cg report-error¤ dg
runtime-error¤ eg make-module-ref¤ fg
ensure-fluid!¤ gg generate-ensure-global¤ hg
make-sequence¤ ig append¤ ji ¤ ki ¤ lg map-globals-needed¤ mg ensuring-globals¤ ng with-fluids*¤ og list¤ pg map¤ qg make-lambda¤ rg make-lambda-case¤ sg let-dynamic¤ tg get-lexical-binding¤ ug access-variable¤ vg make-lexical-ref¤ wg mark-global-needed!¤ xg fluid-ref¤ yg reference-variable¤ zg
set-variable!¤ {g make-lexical-set¤ |g
fluid-set!¤ }g nil¤ ~g length¤ f ,expected symbol or list of 2 elements in let¤ €f expected symbol in let¤ g process-let-bindings¤ ‚g lexical¤ ƒg all¤ „g memq¤ …g bind-lexically?¤ †g reverse¤ ‡g split-let-bindings¤ ˆg for-each¤ ‰g car¤ Šg compile-expr¤ ‹g gensym¤ Œg make-let¤ g with-lexical-bindings¤ Žg generate-let¤ g
generate-let*¤ g bind-arg-lexical?¤ ‘g &rest¤ ’f 'expected exactly one symbol after &rest¤ “g required¤ ”g optional¤ •f &invalid mode in split-lambda-arguments¤ –f %expected symbol in argument list, got¤ —g &optional¤ ˜g split-lambda-arguments¤ ™f expected list for argument-list¤ šf function body must not be empty¤ ›g cons¤ œg lset-intersection¤ g with-dynamic-bindings¤ žg cdr¤ Ÿg make-conditional¤ g null?¤ ¡g make-void¤ ¢g compile-lambda¤ £f too many arguments to defvar¤ ¤g string?¤ ¥f 0expected string as third argument of defvar, got¤ ¦f expected symbol, got¤ §g handle-var-def¤ ¨g module-defined?¤ ©g resolve-interface¤ ªg
module-ref¤ «g resolve-module¤ ¬g fluid?¤ g
find-operator¤ ®g contains-unquotes?¤ ¯g
unquote-cell?¤ °g unquote-splicing-cell?¤ ±g process-backquote¤ ²f %non-pair expression contains unquotes¤ ³f $symbol-list construct has empty body¤ ´g and-map¤ µg symbol?¤ ¶f invalid symbol list¤ ·g with-added-symbols¤ ¸F ¤ ¹F ¤ ºg special-operator¤ »g
module-bound?¤ ¼g fluid-bound?¤ ½f expected symbol in setq¤ ¾g iterate¤ ¿g make-letrec¤ À¾ ¤ Ág lambda¤ Âg macro¤ Ãg fromS¤ Äg toS¤ Åg value¤ Æf expected symbol as macro name¤ Çf expected symbol as function name¤ Èg compile-pair¤ Ég t¤ Êg compile-symbol¤ Ëg valid-symbol-list-arg?¤ Ì ¤ Íf Invalid compiler options¤ Îg warningsS¤ Ïg always-lexicalS¤ Ðf "Invalid value for #:always-lexical¤ Ñf Invalid compiler option¤ Òg process-options!¤ Óg
make-bindings¤C 5 h(t › ]4
+,B5 4E > " G 4Fi5 GR4Fi5 HR4Fi5 IRJ h ³ ] ˆ$ 4 5 ( CCC « g x
g props g filenamef "language/elisp/compile-tree-il.scmŒ
K
ŒŒ L ŒŒ L ŒŒ
M ŒŒ M ŒŒ N ŒŒ g nameg locationŒ CKRLO h „ ] 6 | g loc
g filenamef "language/elisp/compile-tree-il.scmŒ
S
ŒŒ
T ŒŒ
g nameg nil-valueŒ CMRLR h ‚ ] 6 z g loc
g filenamef "language/elisp/compile-tree-il.scmŒ
V
ŒŒ
W ŒŒ
g nameg t-valueŒ CPRRUVRYZR[ h › ] Š$ ‚CC “ g sym
g filenamef "language/elisp/compile-tree-il.scmŒ
f
ŒŒ g ŒŒ g ŒŒ
g ŒŒ g ŒŒ g nameg unquote?Œ C\R] h ¤ ] Š$ ‚CC œ g sym
g filenamef "language/elisp/compile-tree-il.scmŒ
i
ŒŒ j ŒŒ j ŒŒ
j ŒŒ j ŒŒ g nameg unquote-splicing?Œ C^R_` h · - 1 3 4 56 ¯ g loc
g sym g args g filenamef "language/elisp/compile-tree-il.scmŒ
n
ŒŒ o ŒŒ o ŒŒ
g nameg call-primitiveŒ CaRb h š - 1 3 @ ’ g loc
g args g filenamef "language/elisp/compile-tree-il.scmŒ
t
ŒŒ u ŒŒ
g nameg report-errorŒ CcR_`bL h( Ö - 1 3 4 54 5Œ6 Î g loc
$ g msg $ g args $ g filenamef "language/elisp/compile-tree-il.scmŒ
w
ŒŒ y ŒŒ y ,ŒŒ y ŒŒ z ŒŒ " z ŒŒ $ x ŒŒ $
g nameg
runtime-errorŒ CdR_efL h0 î ] 4 54 54 5 6 æ g loc
) g sym ) g module ) g filenamef "language/elisp/compile-tree-il.scmŒ
‚
ŒŒ „ ŒŒ „ 1ŒŒ „ ŒŒ … ŒŒ † ŒŒ ' … ŒŒ ) ƒ ŒŒ ) g nameg generate-ensure-globalŒ CgRhklg h ‚ ]L 6 z g mod
g sym g filenamef "language/elisp/compile-tree-il.scmŒ
Œ ŒŒ ŒŒ C h( Ð ] 44[ O 5 56 È g loc
! g bindings ! g body ! g filenamef "language/elisp/compile-tree-il.scmŒ
ˆ
ŒŒ ‹ ŒŒ
‹ ŒŒ ‹ ŒŒ ! ‰ ŒŒ ! g nameg ensuring-globalsŒ CmRan_`ope h q ]LL 6 i g sym
g filenamef "language/elisp/compile-tree-il.scmŒ
› ŒŒ
œ ŒŒ
Cqr
hX † ] 4 4 54 O 554 4 554 4 5 56 ~ g loc
S g syms S g module S g vals S g body S g filenamef "language/elisp/compile-tree-il.scmŒ
•
ŒŒ ˜ ŒŒ ™ ŒŒ š ŒŒ š -ŒŒ š ŒŒ › ŒŒ ( ™ ŒŒ ) ž ŒŒ . ž ŒŒ 4 ž 1ŒŒ 6 ž ŒŒ : ž ŒŒ ; Ÿ ŒŒ @ ŒŒ A ¡ ŒŒ E ¡ %ŒŒ I ¡ 2ŒŒ J ¡ 6ŒŒ O ¡ ŒŒ Q Ÿ ŒŒ S – ŒŒ S g nameg let-dynamicŒ CsRtGZ h0 X ]4[5 $ 6‡$ 6 6 P g loc
+ g sym + g module + g
handle-global + g handle-lexical + g handle-dynamic + g lexical + g filenamef "language/elisp/compile-tree-il.scmŒ
§
ŒŒ ŒŒ ŒŒ ® ŒŒ ¯ ŒŒ ° ŒŒ # ® ŒŒ ' ° $ŒŒ + ± ŒŒ
+ g nameg access-variableŒ CuRue h _ ] LLL 6 W g filenamef "language/elisp/compile-tree-il.scmŒ
¼ ŒŒ
¼ ŒŒ
Cv h u ]L 6 m g lexical
g filenamef "language/elisp/compile-tree-il.scmŒ
½ ŒŒ ½ ŒŒ CwGaxe h0 z ] 4[LL> " G L 4L LL56 r g filenamef "language/elisp/compile-tree-il.scmŒ
¾ ŒŒ ¿ ŒŒ Á ŒŒ  ŒŒ - À ŒŒ -
C h0 ´ ] O O O 6 ¬ g loc
) g sym ) g module ) g filenamef "language/elisp/compile-tree-il.scmŒ
·
ŒŒ ) ¸ ŒŒ ) g nameg reference-variableŒ CyRu_ezL h0 • ] L4L54LL 54LL5L 6 g filenamef "language/elisp/compile-tree-il.scmŒ
Í ŒŒ Ð ŒŒ Ð #ŒŒ Ð ŒŒ Ñ ŒŒ Ñ $ŒŒ ) Ñ ŒŒ + Î ŒŒ +
C{ h u ]L L 6 m g lexical
g filenamef "language/elisp/compile-tree-il.scmŒ
Ò ŒŒ Ò ŒŒ CwGa|e h0 z ] 4[LL> " G L 4L LL5L6 r g filenamef "language/elisp/compile-tree-il.scmŒ
Ó ŒŒ Ô ŒŒ Ö ŒŒ × ŒŒ / Õ ŒŒ /
C h0 Â ] O O O 6 º g loc
/ g sym / g module / g value / g filenamef "language/elisp/compile-tree-il.scmŒ
È
ŒŒ / É ŒŒ / g nameg
set-variable!Œ CzRp}~c€ hP # ] Š$ ŒC ‰$ 4 5 ‘€" $ L 6 Š$ ŽŒCL 6 g b
K g filenamef "language/elisp/compile-tree-il.scmŒ
à ŒŒ á ŒŒ á ŒŒ
â ŒŒ â ŒŒ ã ŒŒ ã
ŒŒ ä ŒŒ ä ŒŒ ! ä ŒŒ & ã ŒŒ * ã ŒŒ 0 ç ŒŒ 2 å
ŒŒ 5 è ŒŒ 6 è ŒŒ : è
ŒŒ = ê ŒŒ @ ê ŒŒ B ê ŒŒ I é #ŒŒ K é ŒŒ K C h § ] O 6 Ÿ g loc
g bindings g filenamef "language/elisp/compile-tree-il.scmŒ
Þ
ŒŒ ß ŒŒ g nameg process-let-bindingsŒ CR‚ZVIƒ„tG hX G ]& C‚ $ C‡$ ,[ & C4 5 $ C[ 6C ? g sym
S g module S g t S g always ( Q g t = Q g filenamef "language/elisp/compile-tree-il.scmŒ
ô
ŒŒ õ ŒŒ
õ ŒŒ õ ŒŒ ö ŒŒ õ ŒŒ ! ÷ ŒŒ % ÷ ŒŒ ( ø ŒŒ . ù ŒŒ 2 ù
ŒŒ 3 ù ŒŒ 5 ú ŒŒ = ù
ŒŒ Q û ŒŒ S g nameg bind-lexically?Œ C…R†… hh ˜ ]" O( 4545D45$ ŽŒ "ÿÿÆŽŒ "ÿÿ± "ÿÿ£ g bindings
c g module c g tail U g lexical U g dynamic U g filenamef "language/elisp/compile-tree-il.scmŒ
ý
ŒŒ þ ŒŒ ŒŒ
ŒŒ "ŒŒ ŒŒ ŒŒ " ŒŒ ' ŒŒ + ŒŒ . ŒŒ 1 &ŒŒ 4 ŒŒ @ ŒŒ C ŒŒ H .ŒŒ K (ŒŒ U ŒŒ U þ ŒŒ X ÿ ŒŒ Y ŒŒ c þ ŒŒ c g nameg split-let-bindingsŒ C‡R‡ˆwG h q ][ L 6 i g sym
g filenamef "language/elisp/compile-tree-il.scmŒ
ŒŒ
ŒŒ
Cp‰sŠ h y ] Ž6 q g el
g filenamef "language/elisp/compile-tree-il.scmŒ
"ŒŒ =ŒŒ /ŒŒ ChŠ‹ h p ]6 h g el
g filenamef "language/elisp/compile-tree-il.scmŒ
& (ŒŒ & 5ŒŒ C‹ h p ]6 h g el
g filenamef "language/elisp/compile-tree-il.scmŒ
' (ŒŒ ' 5ŒŒ CiŠ h y ] Ž6 q g el
g filenamef "language/elisp/compile-tree-il.scmŒ
"ŒŒ =ŒŒ /ŒŒ CŠ h y ] Ž6 q g el
g filenamef "language/elisp/compile-tree-il.scmŒ
"ŒŒ =ŒŒ /ŒŒ CŒGhpŠs‰v h q ]L 6 i g sym
g filenamef "language/elisp/compile-tree-il.scmŒ
9 /ŒŒ : 1ŒŒ C hH § ] L( L4L56L4L5L 4LO L54L4L556 Ÿ g filenamef "language/elisp/compile-tree-il.scmŒ
2 ŒŒ 3 ŒŒ
" .ŒŒ " ŒŒ 6 .ŒŒ ' 8 .ŒŒ 5 " ŒŒ : " .ŒŒ D " ŒŒ F 5 !ŒŒ F
C hà j ]<4 5 4> G 4O 45> " G ( * 45454 4
5564 5 4 5 4
5 4
45455
4[45 O 56 b g loc
Ù g module Ù g bindings Ù g body Ù g bind Ù g lexical Ù g dynamic Ù g lexical-syms z Ù g dynamic-syms … Ù g all-syms Ù g vals
© Ù g filenamef "language/elisp/compile-tree-il.scmŒ
ŒŒ ŒŒ ŒŒ ŒŒ ŒŒ " ŒŒ , ŒŒ 9 ŒŒ G #
ŒŒ L $ ŒŒ W ŒŒ ` " ŒŒ e " .ŒŒ o " ŒŒ q $ ŒŒ r & #ŒŒ z & ŒŒ } ' #ŒŒ … & ŒŒ ˆ ( ŒŒ & ŒŒ “ ) ŒŒ – ŒŒ © ) ŒŒ © & ŒŒ ¶ / ŒŒ ¼ 1 ŒŒ × / ŒŒ Ù + ŒŒ Ù g nameg generate-letŒ CŽRˆ…wG h ƒ ]4 L 5$ C[ L 6 { g sym
g filenamef "language/elisp/compile-tree-il.scmŒ
F ŒŒ G ŒŒ G ŒŒ H ŒŒ Cp‰hpŠ…‹ŒG h h ] LL Ž6 ` g filenamef "language/elisp/compile-tree-il.scmŒ
[ ŒŒ [ 3ŒŒ [ *ŒŒ
Cs hˆ ® ] ( L4L56 4 Ž5 4L 5$ 745 L 4[ LO 56
L L 4L Ž56¦ g tail
ˆ g sym $ ˆ g value $ ˆ g target : l g filenamef "language/elisp/compile-tree-il.scmŒ
L ŒŒ M ŒŒ
N ŒŒ N ŒŒ O ŒŒ P ŒŒ ! P 'ŒŒ $ P ŒŒ $ O ŒŒ ) Q ŒŒ 5 Q ŒŒ 6 R ŒŒ : R ŒŒ E T ŒŒ J U ŒŒ O V ŒŒ P W ŒŒ Z Y ŒŒ _ Z ŒŒ j W ŒŒ l S ŒŒ s ] "ŒŒ w ] ŒŒ ~ _ ŒŒ ` ŒŒ „ ` (ŒŒ † ` ŒŒ ˆ \ ŒŒ ˆ g nameg iterateŒ C hP ]4 5 4O 45> " G O Q 6 g loc
I g module I g bindings I g body I g bind I g iterate 8 I g filenamef "language/elisp/compile-tree-il.scmŒ
C
ŒŒ D ŒŒ D ŒŒ F ŒŒ K ŒŒ % F ŒŒ 8 L ŒŒ I g nameg
generate-let*Œ CRIƒ„ h Å ] [ & C 6 ½ g arg
g always g filenamef "language/elisp/compile-tree-il.scmŒ
i
ŒŒ j ŒŒ k ŒŒ k ŒŒ k ŒŒ l ŒŒ g nameg bind-arg-lexical?Œ CR†‘c’“”b•–— hÀ ¶ ]b" œ( /45454545
D" -& ƒŽ„ $ " ŽŽ„€ $ 6Ž 45 45
45 4 $ Œ" 5 4 $ " Œ5
DŠ$ Ž 45 $ Œ"
$ " Œ †$ ŽŒ
"ÿþÖ†$ ŽŒ
"ÿþ 6
6& * & Ž "ÿþl"ÿþ¡"ÿþ "ÿþL ® g loc
º g args º g tail ¢ g mode ¢ g required ¢ g optional ¢ g lexical ¢ g dynamic ¢ g final-required ( ; g final-optional ( ; g
final-lexical
( ; g
final-dynamic ( ; g t L b g rest r Ë g rest-lexical { Ë g final-required
„ Ë g final-optional Ë g
final-lexical ¥ Ë g
final-dynamic
½ Ë g arg Ö a g bind-lexical ß a g new-lexical
ò a g new-dynamic a g filenamef "language/elisp/compile-tree-il.scmŒ
n
ŒŒ o ŒŒ u ŒŒ
w ŒŒ x ŒŒ y ŒŒ " z ŒŒ ( w ŒŒ ; { ŒŒ B ƒ ŒŒ D ƒ ŒŒ H u ŒŒ K „ ŒŒ L „ ŒŒ L „
ŒŒ \ … ŒŒ ^ … ŒŒ _ … ŒŒ f „ ŒŒ l † ŒŒ n †
ŒŒ q ‡ ŒŒ r ‡
ŒŒ u ˆ ŒŒ { ‡
ŒŒ ~ ‰ !ŒŒ „ ‡
ŒŒ ‡ Š !ŒŒ ‡
ŒŒ ‹ ŒŒ ˜ ‹ )ŒŒ Œ -ŒŒ ¥ ‹ ŒŒ ¥ ‡
ŒŒ ¨ Ž ŒŒ ° Ž )ŒŒ » -ŒŒ ½ Ž ŒŒ ½ ‡
ŒŒ Ë ‘ ŒŒ Î — ŒŒ Ï — ŒŒ Ó — ŒŒ Ö › ŒŒ Ö ›
ŒŒ Ù œ ŒŒ ß ›
ŒŒ ç ŒŒ ì ž "ŒŒ ò ›
ŒŒ ú ŒŒ ¢ "ŒŒ ›
ŒŒ £ ŒŒ ¤ #ŒŒ ¥ #ŒŒ 0 ¤ ŒŒ 9 £ ŒŒ < § #ŒŒ E ¨ ,ŒŒ Y § ŒŒ ] « ŒŒ a « ŒŒ g ™ ŒŒ j š ŒŒ l ˜
ŒŒ l u ŒŒ p € ŒŒ t u ŒŒ w ŒŒ y ŒŒ } € ŒŒ € ‚ ŒŒ ‚ ‚ ŒŒ š ‚ ŒŒ ¢ o ŒŒ ¦ p ŒŒ § q ŒŒ ¨ r ŒŒ © s ŒŒ ª t ŒŒ º o ŒŒ S º g nameg split-lambda-argumentsŒ C˜Rc™š˜p‹ h o ]6 g g x
g filenamef "language/elisp/compile-tree-il.scmŒ
à ŒŒ à $ŒŒ C›œ h Ž ] ‚C † g name+sym
g x g filenamef "language/elisp/compile-tree-il.scmŒ
¿ ŒŒ À "ŒŒ À ŒŒ Ch Ž ] ‚C † g name+sym
g x g filenamef "language/elisp/compile-tree-il.scmŒ
¿ ŒŒ À "ŒŒ À ŒŒ C h@ - ]!4 5 4 5 4L 5 4L5 D % g args
> g syms > g pairs > g
lexical-pairs % > g
dynamic-pairs 2 > g filenamef "language/elisp/compile-tree-il.scmŒ
½ ŒŒ à ŒŒ à ŒŒ Ä ŒŒ à ŒŒ ¿ ŒŒ % à ŒŒ ( ¿ ŒŒ 2 à ŒŒ > Ç ŒŒ > g nameg process-argsŒ CiˆwGV h q ][ 6 i g sym
g filenamef "language/elisp/compile-tree-il.scmŒ
Þ ŒŒ
ß ŒŒ
CGGp‰žqrpM h o ]L 6g g x
g filenamef "language/elisp/compile-tree-il.scmŒ
õ ŒŒ õ ŒŒ ChŠŸa v{M¡sVv h ˆ ]L Ž6 € g name-sym
g filenamef "language/elisp/compile-tree-il.scmŒ
(ŒŒ +ŒŒ +ŒŒ *ŒŒ C h¸ x ]L4L LL4LO L5L4L4L55 4LL$ 84L4L 4
LLL554 LLL4 L554
L55" 4
L5L( " 4LL4LO L5 5 5 5 6 p g
compiled-body
2 g filenamef "language/elisp/compile-tree-il.scmŒ
ë
ŒŒ î
ŒŒ ï
ŒŒ õ ŒŒ # ø ŒŒ ( ø (ŒŒ 2 ø ŒŒ 2 ÷ ŒŒ 5 ù ŒŒ ? ü ŒŒ @ ý ŒŒ E ÿ ŒŒ K 'ŒŒ L 'ŒŒ X ÿ ŒŒ Y ŒŒ b )ŒŒ j ŒŒ k ŒŒ s ý ŒŒ x ŒŒ „
ŒŒ ‹ ŒŒ ” #ŒŒ ¥ ŒŒ ¨ û ŒŒ ª ù ŒŒ ° ï
ŒŒ ² ì ŒŒ ²
C h8 q ] [4L 54L 5LLLLLLLLL O 6 i g filenamef "language/elisp/compile-tree-il.scmŒ
æ ŒŒ é
ŒŒ ê
ŒŒ 2 ç ŒŒ 2
C hH < ]³‰$ " 4 > " G ( 4 > " G " 4 > G O Q 4> G
4> G
4$ " > G $ " G 4
> G 4 > G 4 > G 4> " G
[ O
6 4 g loc
A g args A g body A g required N A g optional N A g rest N A g lexical N A g dynamic N A g process-args d A g
required-syms v A g required-pairs
v A g required-lex-pairs v A g required-dyn-pairs v A g
optional-syms
Œ A g optional-pairs Œ A g optional-lex-pairs Œ A g optional-dyn-pairs Œ A g rest-syms ° A g
rest-pairs ° A g rest-lex-pairs ° A g rest-dyn-pairs ° A g the-rest-sym Ê A g all-syms Þ A g
all-lex-pairs ò A g
all-dyn-pairs A g filenamef "language/elisp/compile-tree-il.scmŒ
¶
ŒŒ · ŒŒ · ŒŒ ¸ ŒŒ ¸ ŒŒ ¸ ŒŒ ) ¹ ŒŒ * º ŒŒ 0 º ŒŒ 5 º ŒŒ B ¼ ŒŒ Q » ŒŒ l Ì ŒŒ y È ŒŒ ‚ Ñ ŒŒ È ŒŒ ˜ Ó ŒŒ Ó !ŒŒ ¥ Ó *ŒŒ ª Ó 6ŒŒ ¯ Ó ŒŒ ³ È ŒŒ Á Ô "ŒŒ Ä Ô +ŒŒ Í È ŒŒ Ð Õ ŒŒ á È ŒŒ ä Ø #ŒŒ õ È ŒŒ ø Û #ŒŒ È ŒŒ Þ ŒŒ A ã ŒŒ " A g nameg compile-lambdaŒ C¢R~c£¤¥¦ hP F ]Š$ :45 ”$ 6( " 45€$ 6C 6 > g loc
M g sym M g doc M g filenamef "language/elisp/compile-tree-il.scmŒ
ŒŒ ŒŒ ŒŒ
ŒŒ ŒŒ ŒŒ )ŒŒ ŒŒ $ ŒŒ * ŒŒ / )ŒŒ 1 ŒŒ 2 ŒŒ 6 ŒŒ < ! ŒŒ ? " ŒŒ A ! ŒŒ I *ŒŒ M ŒŒ M g nameg handle-var-defŒ C§R¨©Zª«¬ h` U ] Š$ R445 5$ >445 5 45$ [" ˆ$ & ŽCCCCC M g sym
] g type ] g op ) Y g op ? Y g filenamef "language/elisp/compile-tree-il.scmŒ
(
ŒŒ * ŒŒ ) ŒŒ
+ ŒŒ
+ ŒŒ + ŒŒ ) ŒŒ , ŒŒ , ŒŒ ) , ŒŒ ) , ŒŒ , - ŒŒ 6 - ŒŒ ? , ŒŒ D . ŒŒ H . ŒŒ K . ŒŒ Q . ŒŒ T / ŒŒ ] g nameg
find-operatorŒ CR\^® hP 3 ] ˆ$ @4 5 $ " 4 5 $ C4 5 $ C Ž6C + g expr
K g t ) g t 7 I g filenamef "language/elisp/compile-tree-il.scmŒ
4
ŒŒ 5 ŒŒ 5 ŒŒ
6 ŒŒ 6 ŒŒ 6 ŒŒ 6
ŒŒ 6 $ŒŒ $ 6 7ŒŒ & 6 $ŒŒ - 6 ŒŒ 0 8 ŒŒ 5 8 "ŒŒ 7 8 ŒŒ 7 8
ŒŒ G 9 "ŒŒ I 9 ŒŒ K g nameg contains-unquotes?Œ C®R~\ h( Á ] ‰$ 4 5 ‘$ 6CC ¹ g expr
" g filenamef "language/elisp/compile-tree-il.scmŒ
B
ŒŒ C ŒŒ C ŒŒ
C ŒŒ C ŒŒ C ŒŒ C 2ŒŒ C (ŒŒ " g nameg
unquote-cell?Œ C¯R~^ h( Ê ] ‰$ 4 5 ‘$ 6CC  g expr
" g filenamef "language/elisp/compile-tree-il.scmŒ
E
ŒŒ F ŒŒ F ŒŒ
F ŒŒ F ŒŒ F ŒŒ F ;ŒŒ F (ŒŒ " g nameg unquote-splicing-cell?Œ C°R®¯°Š±~\^ai›c²L hè ò ]*45$ ͈$ ¼45 $ " 45 $ Ž6 4 Ž5 ‰$ 45 ‘" $ 45" $ 45" $
4Ž56 $
4Ž5" 4 56
6 6 ê g loc
â g expr â g t 2 g head A Ð g processed-tail M Ð g head-is-list-2 e Ð g head-unquote z Ð g head-unquote-splicing Ð g filenamef "language/elisp/compile-tree-il.scmŒ
H
ŒŒ I ŒŒ
I ŒŒ J
ŒŒ J ŒŒ K ŒŒ K ŒŒ ) K 'ŒŒ 6 K
ŒŒ ; L ŒŒ > L ŒŒ A M ŒŒ A M ŒŒ D N %ŒŒ K N <ŒŒ M N %ŒŒ M M ŒŒ R O *ŒŒ V O %ŒŒ W P -ŒŒ ` P *ŒŒ e M ŒŒ m Q #ŒŒ n R (ŒŒ s R 2ŒŒ u R (ŒŒ z M ŒŒ ‚ S ,ŒŒ ƒ T 1ŒŒ ˆ U 2ŒŒ Š T 1ŒŒ M ŒŒ — V ŒŒ X $ŒŒ ž Y $ŒŒ £ Y 2ŒŒ ¦ Y $ŒŒ ª W ŒŒ ° [ (ŒŒ ¶ \ $ŒŒ · ] (ŒŒ ¼ ] 6ŒŒ ¿ ] (ŒŒ Ä ^ (ŒŒ Ð [ ŒŒ Ö a ŒŒ Ú `
ŒŒ â c ŒŒ 1 â g nameg process-backquoteŒ C±Rc³ƒ´µ¶hpŠi h¸ â ]( 4 > " G " & " ‰$
45" $ " 4 > " G [ & 4 56& " 4
5 Y4 4 5> ZCZF Ú g loc
² g fluid ² g syms ² g body ² g old c ² g new “ ² g filenamef "language/elisp/compile-tree-il.scmŒ
i
ŒŒ j ŒŒ k ŒŒ k ŒŒ k ŒŒ $ l ŒŒ ( l ŒŒ ) l ŒŒ 0 m ŒŒ 4 m ŒŒ 5 m !ŒŒ F l ŒŒ K n ŒŒ Q n ŒŒ X n ŒŒ c o ŒŒ i r ŒŒ m r ŒŒ r q (ŒŒ | q ŒŒ € t !ŒŒ „ t ŒŒ † u ŒŒ ‹ v ŒŒ “ t ŒŒ œ q ŒŒ ¡ q (ŒŒ ® q ŒŒ ² g nameg with-added-symbolsŒ C·R4¹ºhpŠ h ‹ ] 456 ƒ g loc
g args g filenamef "language/elisp/compile-tree-il.scmŒ
|
ŒŒ } ŒŒ } ŒŒ CŒ5-R4¹ºŸŠMhp h`
]"ˆ$ RŽ ˆ$ ?Ž 4545( 4 5" 4 4556CC g loc
] g args ] g vx [ g vy [ g vx Y g vy Y g filenamef "language/elisp/compile-tree-il.scmŒ
ŒŒ € ŒŒ ) ƒ ŒŒ 0 „ ŒŒ < … ŒŒ = † ŒŒ H ‡ ŒŒ M ˆ *ŒŒ W ‡ ŒŒ Y ‚ ŒŒ ] CŒ5.R4¹º§hzVŠL h`
]"ˆ$ RŽ ˆ$ ?Ž 4 5$ $ 4 4554 5 6CCC g loc
] g args ] g vx [ g vy [ g vx Y g vy Y g filenamef "language/elisp/compile-tree-il.scmŒ
Š
ŒŒ ‹ ŒŒ % ŒŒ 3 ŒŒ 8 ŒŒ A ’ -ŒŒ I ŒŒ J “ ŒŒ U ŒŒ W Ž ŒŒ ] CŒ5/R4¹º§hŸa»©LV¼e¡zŠ hà þ ]"" ±ˆ$ ¨Ž ˆ$ •Ž 4 5$ z 4 4 4 4 4 554 554 4
554 554 54 4
5554 5 6CCCˆ$ Ž ( 6"ÿÿ,"ÿÿ( ö g loc
Þ g args Þ g vx µ g vy µ g vx $ ³ g vy $ ³ g vx Ä Ú g vy Ä Ú g filenamef "language/elisp/compile-tree-il.scmŒ
•
ŒŒ – ŒŒ ) ™ ŒŒ 7 ™ ŒŒ < ŒŒ A Ÿ ŒŒ F ¡
ŒŒ L £ ŒŒ M ¤ ŒŒ S ¥ ŒŒ T ¦ ŒŒ ^ ¤ ŒŒ _ § ŒŒ i ¡
ŒŒ j ¨
ŒŒ p © ŒŒ q ª ŒŒ ~ ¨
ŒŒ «
ŒŒ ˆ Ÿ ŒŒ ‰ ¬ ŒŒ ŒŒ ™ .ŒŒ ¡ ŒŒ £ ŒŒ ¤ ® ŒŒ ¯ œ
ŒŒ ± š ŒŒ · – ŒŒ Ö — ŒŒ Ú – ŒŒ Þ CŒ50R4¹ºhŠzVyc½ hx ] ( C 4 Ž ( " 5 Š$ 54L54L Ž ( " Ž 4L55ŒCL6 ¥ g args
t g last t g x * g sym , t g val , t g x J ] g filenamef "language/elisp/compile-tree-il.scmŒ
· ŒŒ ¸ ŒŒ
¹ ŒŒ º ŒŒ » ŒŒ ² %ŒŒ ³ ŒŒ ± ŒŒ ± !ŒŒ ' ± %ŒŒ , » ŒŒ , º ŒŒ 3 ¼ ŒŒ 7 ¼ ŒŒ 8 ¿ ŒŒ E À ŒŒ J ² %ŒŒ J ´ ŒŒ R ² ŒŒ S ² !ŒŒ Z ² %ŒŒ ^ Á ŒŒ j À ŒŒ k ¾ ŒŒ r ½ !ŒŒ t ½ ŒŒ t g nameg loopŒ CM h0 ¯ ]
O Q 44 55 6 § g loc
) g args ) g loop ' g filenamef "language/elisp/compile-tree-il.scmŒ
°
ŒŒ · ŒŒ · ŒŒ $ · ŒŒ ) µ ŒŒ ) CŒ51R4¹ºŽV h( « ]ˆ$ Ž 6C £ g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scmŒ
Ã
ŒŒ Ä ŒŒ Æ ŒŒ ! CŒ52R4¹ºŽ‚ h( ´ ]ˆ$ Ž 6C ¬ g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scmŒ
È
ŒŒ É ŒŒ Ë ŒŒ Ë ŒŒ ! CŒ53R4¹ºŽZ h( « ]ˆ$ Ž 6C £ g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scmŒ
Í
ŒŒ Î ŒŒ Ð ŒŒ ! CŒ54R4¹ºV h( « ]ˆ$ Ž 6C £ g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scmŒ
Ò
ŒŒ Ó ŒŒ Õ ŒŒ ! CŒ55R4¹º‚ h( ´ ]ˆ$ Ž 6C ¬ g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scmŒ
×
ŒŒ Ø ŒŒ Ú ŒŒ Ú ŒŒ ! CŒ56R4¹ºZ h( « ]ˆ$ Ž 6C £ g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scmŒ
Ü
ŒŒ Ý ŒŒ ß ŒŒ ! CŒ57R4¹º·I h( « ]ˆ$ Ž 6C £ g loc
! g args ! g vx g vy g filenamef "language/elisp/compile-tree-il.scmŒ
ä
ŒŒ å ŒŒ ç ŒŒ ! CŒ59R4¹ºe hP ï ]"ˆ$ BŽ ˆ$ /Ž ( ‰$ Š$ 6CCCCC ç g loc
M g args M g vx K g vy K g vx I g vy I g filenamef "language/elisp/compile-tree-il.scmŒ
î
ŒŒ ï ŒŒ - 𠌌 1 ï ŒŒ 4 ð /ŒŒ 8 𠌌 C ñ ŒŒ M CŒ5:R4¹º` h( « ]ˆ$ Ž ( 6CC £ g loc
% g args % g vx # g vy # g filenamef "language/elisp/compile-tree-il.scmŒ
ö
ŒŒ ÷ ŒŒ ! ù ŒŒ % CŒ5;R4¹º‹pŠ_v¾hkŸMqr¿À h l ]Bˆ$ Ž 45 45 4 4 5 5 4 4 55 4 454
55 4 4 5 5
6C d g loc
š g args š g vx ˜ g vy ˜ g itersym ˜ g
compiled-body # ˜ g iter-call : ˜ g full-body O ˜ g lambda-body h ˜ g
iter-thunk ˜
g filenamef "language/elisp/compile-tree-il.scmŒ
ŒŒ ŒŒ ŒŒ ŒŒ ŒŒ # ŒŒ &
ŒŒ + )ŒŒ 1 ;ŒŒ 5 )ŒŒ 8 )ŒŒ :
ŒŒ : ŒŒ = ŒŒ B &ŒŒ O ŒŒ O ŒŒ R ŒŒ W +ŒŒ ` +ŒŒ h ŒŒ h ŒŒ k ŒŒ p %ŒŒ q %ŒŒ u 7ŒŒ y 7ŒŒ z 7ŒŒ %ŒŒ ŒŒ ŒŒ Š % ŒŒ & ŒŒ ” ' ŒŒ ˜ # ŒŒ $ š CŒ5 " G C 6CC Ï g loc
© g args © g vx § g vy § g vx ¥ g vy ¥ g tree-il s › g filenamef "language/elisp/compile-tree-il.scmŒ
1
ŒŒ 2 ŒŒ ' 4 ŒŒ + 4 ŒŒ , 7 ŒŒ 1 : ŒŒ : > ŒŒ ? @ ŒŒ E @ *ŒŒ G @ 3ŒŒ J @ ŒŒ K A ŒŒ Q A +ŒŒ S A ŒŒ T B ŒŒ a A ŒŒ c > ŒŒ e : ŒŒ f C ŒŒ q 9 ŒŒ s 7 ŒŒ s 6 ŒŒ v D ŒŒ y D ŒŒ ‡ E ŒŒ ‹ F ŒŒ D ŒŒ ¡ 5 ŒŒ ¥ 5 ŒŒ © CŒ5>R4¹ºhzZ¢LcÇ hh ]"ˆ$ VŽ ˆ$ CŽ Š$ ( 4 4 554 5 6 6CC g loc
a g args a g vx _ g vy _ g vx ] g vy ] g filenamef "language/elisp/compile-tree-il.scmŒ
I
ŒŒ J ŒŒ ' L ŒŒ + L ŒŒ 0 O ŒŒ 9 R -ŒŒ E O ŒŒ F U ŒŒ Q O ŒŒ S N ŒŒ Y M ŒŒ ] M ŒŒ
a CŒ5?R4¹º± h( « ]ˆ$ Ž ( 6CC £ g loc
% g args % g vx # g vy # g filenamef "language/elisp/compile-tree-il.scmŒ
W
ŒŒ X ŒŒ ! Z ŒŒ % CŒ5@R4¹ºL h( « ]ˆ$ Ž ( 6CC £ g loc
% g args % g vx # g vy # g filenamef "language/elisp/compile-tree-il.scmŒ
\
ŒŒ ] ŒŒ ! _ ŒŒ % CŒ5ARºÂŠ_yZp hp ‘ ]"Ž 45 $ 645 $ 4?6 Š$ 4 5" 45456 ‰ g loc
m g expr m g operator m g arguments m g t m g t . m g filenamef "language/elisp/compile-tree-il.scmŒ
c
ŒŒ d ŒŒ e ŒŒ d ŒŒ
g ŒŒ g ŒŒ g ŒŒ f ŒŒ % i ŒŒ & j ŒŒ , j ŒŒ . j ŒŒ . f ŒŒ 9 l ŒŒ A l ŒŒ H o ŒŒ L o ŒŒ M p ŒŒ \ s ŒŒ c t ŒŒ m n ŒŒ m g nameg compile-pairŒ CÈR}MÉPyV h0 À ]†$ 6†$ 6 6 ¸ g loc
* g sym * g filenamef "language/elisp/compile-tree-il.scmŒ
y
ŒŒ z ŒŒ { ŒŒ z ŒŒ | ŒŒ * }
ŒŒ * g nameg compile-symbolŒ CÊRKÊÈL h8 â ] 4 5 Š$ 6 ˆ$ 6 6 Ú g expr
1 g loc 1 g filenamef "language/elisp/compile-tree-il.scmŒ
ŒŒ ‚
ŒŒ ‚ ŒŒ „ ŒŒ ƒ ŒŒ … ŒŒ † ŒŒ ! ƒ ŒŒ ) ‡ ŒŒ 1 ˆ ŒŒ 1 g nameg compile-exprŒ CŠRƒ´µ h  ] & C ‰$ 6C º g value
g filenamef "language/elisp/compile-tree-il.scmŒ
ŒŒ Ž ŒŒ
Ž ŒŒ Ž ŒŒ ŒŒ ŒŒ ŒŒ g nameg valid-symbol-list-arg?Œ CËRÌcÍÎÏËIÐÑ
hp R ] ( " ‡€$ S Ž( 6 Ž †$ C†$ 45$ \C6 6C J g opt
l g key . j g value . j g filenamef "language/elisp/compile-tree-il.scmŒ
‘
ŒŒ ’ ŒŒ “ ŒŒ “ ŒŒ “ ŒŒ ’ ŒŒ ” ŒŒ ” ŒŒ # • ŒŒ ' •
ŒŒ * – ŒŒ - — ŒŒ . –
ŒŒ ; ˜ ŒŒ G œ ŒŒ Q œ ŒŒ ] Ÿ !ŒŒ a ž ŒŒ f ¢ "ŒŒ j ¡ ŒŒ l g nameg process-options!Œ CÒRGHIÓÒŠmK hH ] 45 Y4> " G 4 5 44 55 ZD g expr
F g env F g opts F g compiled * ? g filenamef "language/elisp/compile-tree-il.scmŒ
ª
ŒŒ ¬ ŒŒ %ŒŒ ® !ŒŒ ¯ ŒŒ $ ° ŒŒ * ° ŒŒ - ± ŒŒ 0 ± ŒŒ < ± ŒŒ F « ŒŒ F g nameg compile-tree-ilŒ CRC “ g m
, g filenamef "language/elisp/compile-tree-il.scmŒ
ŒŒ - = ŒŒ 6 =
ŒŒ 7 A ŒŒ @ A
ŒŒ A F ŒŒ J F
ŒŒ 6 K
ŒŒ ß S
ŒŒ … V
ŒŒ ‡ [ ŒŒ Š [
ŒŒ ]
ŒŒ ” _
ŒŒ ^ f
ŒŒ / i
ŒŒ n
ŒŒ Ý t
ŒŒ ù w
ŒŒ 1 ‚
ŒŒ ã ˆ
ŒŒ y •
ŒŒ §
ŒŒ ï ·
ŒŒ 5 È
ŒŒ Š Þ
ŒŒ J ô
ŒŒ c ý
ŒŒ "õ
ŒŒ ( C
ŒŒ ) i
ŒŒ 0± n
ŒŒ >§ ¶
ŒŒ @Y
ŒŒ B0 (
ŒŒ CÎ 4
ŒŒ DÌ B
ŒŒ EÕ E
ŒŒ IÝ H
ŒŒ L i
ŒŒ Lž |
ŒŒ Mb
ŒŒ Nñ Š
ŒŒ P •
ŒŒ S• °
ŒŒ VÖ Ã
ŒŒ WÊ È
ŒŒ Xà Í
ŒŒ Y² Ò
ŒŒ Z¢ ×
ŒŒ [› Ü
ŒŒ \Š ä
ŒŒ ]z î
ŒŒ ^Ö ö
ŒŒ _Ê
ŒŒ c *
ŒŒ e 1
ŒŒ gÎ I
ŒŒ i{ W
ŒŒ jj \
ŒŒ m| c
ŒŒ n‹ y
ŒŒ o½
ŒŒ pµ
ŒŒ r ‘
ŒŒ t" ª
ŒŒ C t$
C6 PK ! ÂÆÍûÜ Ü
runtime.gonu „[µü¤ GOOF----LE-8-2.0Ä ] ° 4 h| ] g guile¤ ¤ g define-module*¤ ¤ ¤ g language¤ g elisp¤ g runtime¤ ¤
g filenameS¤ f language/elisp/runtime.scm¤ g exportsS¤
g nil-value¤ g t-value¤ g value-slot-module¤ g function-slot-module¤ g
elisp-bool¤ g
ensure-fluid!¤ g reference-variable¤ g
set-variable!¤ g
runtime-error¤ g macro-error¤ g
built-in-func¤ g built-in-macro¤ g
defspecial¤ g prim¤
¤ g set-current-module¤ ¤ ¤ g
value-slot¤ ¤ !g
function-slot¤ "! ¤ #g error¤ $g resolve-interface¤ %g resolve-module¤ &g module-defined?¤ 'g make-unbound-fluid¤ (g module-define!¤ )g module-export!¤ *g
module-ref¤ +g module-set!¤ ,g make-syntax-transformer¤ -, ¤ ., ¤ /g macro¤ 0g $sc-dispatch¤ 10 ¤ 20 ¤ 3g any¤ 4333 ¤ 5g
syntax-object¤ 6g begin¤ 7g top¤ 87 ¤ 9g ribcage¤ :g dummy¤ ;g name¤ g m-9d4fb909439-25¤ ?>7 ¤ @?88 ¤ Af l-9d4fb909439-2a¤ Bf l-9d4fb909439-2b¤ Cf l-9d4fb909439-2c¤ DABC ¤ E9=@D ¤ F9 ¤ Gg x¤ HG ¤ I? ¤ Jf l-9d4fb909439-27¤ KJ ¤ L9HIK ¤ M8EFL ¤ Ng hygiene¤ ON ¤ P56MO ¤ Qg
define-public¤ R5QMO ¤ Sg syntax-violation¤ TS ¤ US ¤ Vf -source expression failed to match any pattern¤ Wg
datum->syntax¤ Xg map¤ Yg identifier?¤ Zg
syntax->datum¤ [g identity¤ \g string->symbol¤ ]g
string-append¤ ^g symbol->string¤ _g make-id¤ `g _¤ a`33 ¤ bg macro-¤ cg scheme-name¤ dc ¤ e8 ¤ ff l-9d4fb909439-44¤ gf ¤ h9deg ¤ i;< ¤ j88 ¤ kf l-9d4fb909439-3e¤ lf l-9d4fb909439-3f¤ mkl ¤ n9ijm ¤ of l-9d4fb909439-3b¤ po ¤ q9Hep ¤ r8FhnFq ¤ s56rO ¤ t5QrO ¤ ug
make-fluid¤ v5urO ¤ wg cons¤ x5wrO ¤ yg quote¤ z5yrO ¤ {5/rO ¤ |z{ ¤ }g each-any¤ ~3}Œ¤ 3~Œ¤ €`Œ¤ g compile-¤ ‚f l-9d4fb909439-52¤ ƒ‚ ¤ „9deƒ ¤ …g args¤ †g body¤ ‡;…† ¤ ˆ888 ¤ ‰f l-9d4fb909439-4a¤ Šf l-9d4fb909439-4b¤ ‹f l-9d4fb909439-4c¤ Œ‰Š‹ ¤ 9‡ˆŒ ¤ Žf l-9d4fb909439-47¤ Ž ¤ 9He ¤ ‘8F„F ¤ ’56‘O ¤ “g define¤ ”5“‘O ¤ •5u‘O ¤ –5w‘O ¤ —5y‘O ¤ ˜g special-operator¤ ™5˜‘O ¤ š—™ ¤ ›g lambda¤ œ5›‘O ¤ g @¤ žg sym¤ Ÿ:ž… ¤ g m-9d4fb909439-55¤ ¡ 7 ¤ ¢¡88 ¤ £f l-9d4fb909439-5a¤ ¤f l-9d4fb909439-5b¤ ¥f l-9d4fb909439-5c¤ ¦£¤¥ ¤ §9Ÿ¢¦ ¤ ¨¡ ¤ ©f l-9d4fb909439-57¤ ª© ¤ «9H¨ª ¤ ¬8§F« ¤ 5¬O ¤ ®5¬O ¤ ¯® ¤C 5 h¨  ]4
5 4 > " G
RR R"R# h ‘ - 1 3 @ ‰ g msg
g args g filenamef language/elisp/runtime.scmŒ
5
ŒŒ 6 ŒŒ
g nameg macro-errorΠCRiR
h { ] $ CC s g b
g filenamef language/elisp/runtime.scmŒ
<
ŒŒ = ŒŒ g nameg
elisp-boolΠCR$%&'() hP ]4 54 5 45$ C45 4> " G 6 g module
K g sym K g intf K g resolved K g fluid ( K g filenamef language/elisp/runtime.scmŒ
G
ŒŒ H ŒŒ
I ŒŒ H ŒŒ J
ŒŒ ! J ŒŒ $ K ŒŒ ( K ŒŒ + L
ŒŒ I M #ŒŒ K M
ŒŒ K g nameg
ensure-fluid!Œ CR%* h@ ß ]
4 5 ‡$ 64 > " G 45[C × g module
; g sym ; g resolved ; g filenamef language/elisp/runtime.scmŒ
O
ŒŒ P ŒŒ P ŒŒ R ŒŒ Q ŒŒ S ŒŒ U ŒŒ 1 V ŒŒ ; g nameg reference-variableŒ CR$%&+()*
h > ]4 54 5 ‡$ X45$ 4> " G " -4> " G 4 > " G " 4 > " G 4 5\ C 6 g module
ž g sym ž g value ž g intf › g resolved › g filenamef language/elisp/runtime.scmŒ
X
ŒŒ Y ŒŒ
Z ŒŒ Y ŒŒ \ ŒŒ [ ŒŒ ^ ŒŒ * ] ŒŒ + _ ŒŒ E a ŒŒ [ b ŒŒ d b ŒŒ i b ŒŒ v d ŒŒ Š e ŒŒ ž g nameg
set-variable!ΠCR4./24PR h R ] C J g dummy
g name g value CUV h( ¯ ] 4 5 $ @ 6 § g x
" g tmp " g filenamef language/elisp/runtime.scmŒ
l ŒŒ " g
macro-typeg syntax-rulesŒg patternsg nameg value C5RWXYZ[ h y ]4 5$ " 6 q g datum
g filenamef language/elisp/runtime.scmŒ
x ŒŒ y ŒŒ
y ŒŒ y ŒŒ C\]^ h0 â - 1 3 45 4445?5 6Ú g template-id
0 g data 0 g symbols . g filenamef language/elisp/runtime.scmŒ
q
ŒŒ x ŒŒ w ŒŒ t ŒŒ u ŒŒ u !ŒŒ ) u ŒŒ + t ŒŒ 0 v ŒŒ
0
g nameg make-idŒ C_R4./2a_bstvx| h0 ¡ ]
4 5 C ™ g name
* g value * g tmp
* g filenamef language/elisp/runtime.scmŒ ƒ "ŒŒ ƒ 2ŒŒ
ƒ "ŒŒ
ƒ ŒŒ * CUV h( n ] 4 5 $ @ 6 f g x
" g tmp " g filenamef language/elisp/runtime.scmŒ
€ ŒŒ " C5R4./2€_’”•–šœ h0 ² ] 4 5 ŒŒ Cª g name
0 g args 0 g body 0 g tmp
0 g filenamef language/elisp/runtime.scmŒ Œ "ŒŒ Œ 2ŒŒ
Œ "ŒŒ
Œ ŒŒ 0 CUV h( n ] 4 5 $ @ 6 f g x
" g tmp " g filenamef language/elisp/runtime.scmŒ
‰ ŒŒ " C5R4./2¯ h P ] ŒC H g dummy
g sym g args CUV h( µ ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/elisp/runtime.scmŒ
— ŒŒ " g
macro-typeg syntax-rulesŒg patternsg symg argsg ... C5RC º g m
( g filenamef language/elisp/runtime.scmŒ
ŒŒ , %
ŒŒ 0 '
ŒŒ 2 - ŒŒ 5 -
ŒŒ 7 / ŒŒ : /
ŒŒ ü 5
ŒŒ 8
ŒŒ ¦ <
ŒŒ * G
ŒŒ b O
ŒŒ i X
ŒŒ Å q
ŒŒ ¤
C6 PK ! $Ävd= = spec.gonu „[µü¤ GOOF----LE-8-2.0% ] ( 4 h] ] g guile¤ ¤ g define-module*¤ ¤ ¤ g language¤ g elisp¤ g spec¤ ¤
g filenameS¤ f language/elisp/spec.scm¤ g importsS¤
g compile-tree-il¤
¤ ¤ g parser¤ ¤ ¤ g system¤ g base¤ ¤ ¤ ¤ g exportsS¤ ¤ g set-current-module¤ ¤ ¤ g invalidate-compilation-cache!¤ g
make-language¤ g nameS¤ g titleS¤ !f
Emacs Lisp¤ "g readerS¤ #g
read-elisp¤ $g printerS¤ %g write¤ &g compilersS¤ 'g tree-il¤C 5 hø { ]4
5 4 > " G 4 i> " G 4 i !"# h v ] 6n g port
g env g filenamef language/elisp/spec.scmŒ
ŒŒ !ŒŒ C$%i&'
iΠ5
RC s g m
, g filenamef language/elisp/spec.scmŒ
ŒŒ -
ŒŒ K ŒŒ è ŒŒ õ
ŒŒ ÷
C6 PK ! ¬´Qæ æ parser.gonu „[µü¤ GOOF----LE-8-2.0Î ] W 4 hL ] g guile¤ ¤ g define-module*¤ ¤ ¤ g language¤ g elisp¤ g parser¤ ¤
g filenameS¤ f language/elisp/parser.scm¤ g importsS¤
g lexer¤
¤ ¤ ¤ g exportsS¤ g
read-elisp¤ ¤ g set-current-module¤ ¤ ¤ g error¤ g parse-error¤ g
make-fluid¤ g circular-definitions¤ g make-hash-table¤ g make-circular-definitions¤ g circular-ref¤ f invalid token for circular-ref¤ g hashq-ref¤ f undefined circular reference¤ !g circular-def¤ "f "invalid token for circular-define!¤ #g
hashq-set!¤ $g make-promise¤ %$ ¤ &$ ¤ 'g circular-define!¤ (g promise?¤ )g force¤ *g force-promises!¤ +g
vector-length¤ ,g finish¤ -f 'lexer-buffer is not empty when finished¤ .g peek¤ /g get¤ 0f invalid lexer-buffer action¤ 1g make-lexer-buffer¤ 2g square-close¤ 3g paren-close¤ 4f got different token than peeked¤ 5g get-expression¤ 6g get-list¤ 7g dot¤ 8g length¤ 9f &expected exactly one element after dot¤ :g quote¤ ;::Œ¤ <=Œ¤ ?g unquote¤ @g ,¤ A?@Œ¤ Bg unquote-splicing¤ Cg ,@¤ DBCŒ¤ E;>AD ¤ Fg quotation-symbols¤ Gg eof¤ Hf end of file during parsing¤ Ig integer¤ Jg float¤ Kg symbol¤ Lg character¤ Mg string¤ Ng set-source-properties!¤ Og source-properties¤ Pg function¤ Qg assq-ref¤ Rg
paren-open¤ Sg square-open¤ Tg list->vector¤ Uf expected expression, got¤ Vg get-lexer¤C 5 h0 Ì ]4
5 4 > " G h ¥ - 1 3 @ g token
g msg g args g filenamef language/elisp/parser.scmŒ
"
ŒŒ # ŒŒ
g nameg parse-errorŒ CR4i5 R h y ] 6 q g filenamef language/elisp/parser.scmŒ
3
ŒŒ 4 ŒŒ
g nameg make-circular-definitionsŒ C R hH ] & " 4 > " G Ž 4[5 $ C 6 ú g token
G g id & G g value 2 G g filenamef language/elisp/parser.scmŒ
6
ŒŒ 7 ŒŒ 7 ŒŒ 7 ŒŒ 8 ŒŒ 8
ŒŒ 8 ŒŒ & 9
ŒŒ & 9 ŒŒ ) : ŒŒ 2 9 ŒŒ : ; ŒŒ C = ŒŒ G = ŒŒ G g nameg circular-refŒ C R!"#& h L ] M C D g filenamef language/elisp/parser.scmŒ
I ŒŒ
C# h u ] NL L 6m g
real-value
g filenamef language/elisp/parser.scmŒ
J ŒŒ K ŒŒ L ŒŒ C h` ] & " 4 > " G [ Ž H44O 5> " G O C g token
\ g value * \ g table * \ g id * \ g filenamef language/elisp/parser.scmŒ
C
ŒŒ D ŒŒ D ŒŒ D ŒŒ E ŒŒ E
ŒŒ E ŒŒ * H ŒŒ * F ŒŒ 1 I ŒŒ 8 I ŒŒ H I ŒŒ
\ g nameg circular-define!Œ C'R()*+ hÀ õ ] ˆ$ N4 5$ 4 5" 4 > " G 4 Ž5$
4 Ž5C Ž6 ‹$ \4 5 " H’$ = £ 45$ 45¤" 4> " G — "ÿÿºC
"ÿÿ±C í g data
¼ g len e º g i k ³ g el y ± g filenamef language/elisp/parser.scmŒ
U
ŒŒ W ŒŒ V ŒŒ
Y
ŒŒ Y ŒŒ Y
ŒŒ Y ŒŒ Z ŒŒ Z ŒŒ Z ŒŒ Z
ŒŒ % [
ŒŒ * [ ŒŒ / [
ŒŒ 8 \
ŒŒ = \ ŒŒ ? \
ŒŒ C \ ŒŒ F ] ŒŒ K ] ŒŒ M ] ŒŒ N ]
ŒŒ U ^ ŒŒ W ^
ŒŒ Z _ ŒŒ ^ V ŒŒ _ ` ŒŒ e ` ŒŒ k a ŒŒ p b ŒŒ t b ŒŒ y c ŒŒ y c ŒŒ | d ŒŒ † d ŒŒ ‹ e &ŒŒ ’ e ŒŒ — f ŒŒ « g ŒŒ ± g ŒŒ ³ a ŒŒ * ¼ g nameg force-promises!Œ C*R,-./0 hP ß ] & M$ 6CM$ " 4L 5 N †$ MC †$
M NC 6× g action
P g result @ H g filenamef language/elisp/parser.scmŒ
t ŒŒ u ŒŒ
u ŒŒ v
ŒŒ w ŒŒ w ŒŒ z ŒŒ # { !ŒŒ ) { ŒŒ 2 | ŒŒ @ ŒŒ E € ŒŒ L ‚ ŒŒ P ‚ ŒŒ P C h š ] H O C ’ g lex
g
look-ahead g filenamef language/elisp/parser.scmŒ
r
ŒŒ s ŒŒ g nameg make-lexer-bufferŒ C1R.23/456789
hà ]#4 5 $ " & &4 5& " 4> " G C" 4 5 4 5 ŒC$ e & Y4 5& " 4> " G 4 5 4
5 ‘$ " 4 > " G C"ÿÿy"ÿÿu ˜ g lex
Ù g allow-dot Ù g close-square Ù g next Ù g type Ù g head U j g tail b j g tail ¦ Ñ g filenamef language/elisp/parser.scmŒ
‹
ŒŒ Œ ŒŒ Œ ŒŒ Œ ŒŒ Œ ŒŒ ŒŒ Œ ŒŒ ŒŒ !ŒŒ /ŒŒ $ Ž ŒŒ % ‘ ŒŒ ) ‘ ŒŒ + ‘ ŒŒ , ‘ ŒŒ 2 ‘ ŒŒ 7 ’ ŒŒ ; ’ ŒŒ @ ’ ŒŒ I “ ŒŒ O Ÿ ŒŒ U Ÿ ŒŒ X ŒŒ b Ÿ ŒŒ i ¡ ŒŒ j Ž ŒŒ t ” ŒŒ x ” ŒŒ y – ŒŒ } – ŒŒ – ŒŒ € – ŒŒ † – ŒŒ ‹ — ŒŒ — ŒŒ ” — ŒŒ ˜ ŒŒ ¦ ˜ ŒŒ © ™ ŒŒ ± ™ ŒŒ µ ™
ŒŒ º š ŒŒ À › ŒŒ Å š ŒŒ Ð œ
ŒŒ . Ù g nameg get-listŒ C6REFR/GHIJKLMNOP5:<?BQFR6ST !'*U h » ]!4 5 †$ 6†$ " /†$ " !†$ " †$ " †$ ,Ž ˆ$ 4
4 5> " G " C †$ 5 4
5 ˆ$ 4
4 5> " G " C†$ " !†$ " †$ " †$ <454
5 ˆ$ 4
4 5> " G " C†$ 24 5 ˆ$ 4
4 5> " G " C†$ 744 55 ˆ$ 4
4 5> " G " C†$ 6†$ 945 4
5 4> " G 4 > " G C 6 ³ g lex
g token g type g result e Ž g result £ Ì g result ; g result M v g result ¶ g setter Õ g expr Þ
g filenamef language/elisp/parser.scmŒ
«
ŒŒ ¬ ŒŒ ¬ ŒŒ ¬ ŒŒ ¬ ŒŒ ŒŒ ¬ ŒŒ ´ ŒŒ ¶ ŒŒ ! ¶ ŒŒ * ´ ŒŒ e ¸ ŒŒ e ¸ ŒŒ j ¯ ŒŒ n ¯ ŒŒ o ° ŒŒ t ² ŒŒ ° ŒŒ — ´ ŒŒ ™ º ŒŒ š º ŒŒ £ º ŒŒ £ º ŒŒ ¨ ¯ ŒŒ ¬ ¯ ŒŒ ° ŒŒ ² ² ŒŒ ½ ° ŒŒ Õ ´ ŒŒ ¼ ŒŒ ½ ŒŒ ¼ ŒŒ ¼ ŒŒ ¯ ŒŒ ¯ ŒŒ ° ŒŒ ! ² ŒŒ , ° ŒŒ D ´ ŒŒ E ¿ ŒŒ M ¿ ŒŒ R ¯ ŒŒ V ¯ ŒŒ W ° ŒŒ \ ² ŒŒ g ° ŒŒ ´ ŒŒ € Á ŒŒ ƒ Á ŒŒ Á ŒŒ Á ŒŒ ’ ¯ ŒŒ – ¯ ŒŒ — ° ŒŒ œ ² ŒŒ § ° ŒŒ ¿ ´ ŒŒ Å Ã ŒŒ Î ´ ŒŒ Ï Æ ŒŒ Õ Æ ŒŒ Ø Ç ŒŒ Þ Æ ŒŒ á È ŒŒ ó É ŒŒ
Ì ŒŒ Ì ŒŒ D g nameg get-expressionŒ C5R V1.G5, hX d ]!45 Y4 5 45 45 & Ž" 45 4> " G ZCZF \ g port
W g lexer S g lexbuf S g next $ S g result = S g filenamef language/elisp/parser.scmŒ
Ò
ŒŒ Ó &ŒŒ Ô ŒŒ Ô ŒŒ Õ ŒŒ Ô ŒŒ Ö ŒŒ " Ö ŒŒ $ Ö ŒŒ $ Ô ŒŒ ) × ŒŒ + × ŒŒ / × ŒŒ 2 Ø
ŒŒ 7 Ù ŒŒ = Ù
ŒŒ @ Ú ŒŒ D Ú ŒŒ I Ú ŒŒ W g nameg
read-elispŒ CRC Ä g m
, g filenamef language/elisp/parser.scmŒ
ŒŒ "
ŒŒ 1 ŒŒ
1
ŒŒ ¤ 3
ŒŒ
6
ŒŒ ” C
ŒŒ h U
ŒŒ
u r
ŒŒ # ‹
ŒŒ % ¦ ŒŒ ( ¦
ŒŒ F «
ŒŒ ' Ò
ŒŒ )
C6 PK ! Ë"Û+% +% runtime/macros.gonu „[µü¤ GOOF----LE-8-2.0% ] n 4 hœ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g language¤ g elisp¤ g runtime¤ g macros¤
¤ g filenameS¤ f !language/elisp/runtime/macros.scm¤
g importsS¤ ¤ ¤ ¤ g set-current-module¤ ¤ ¤ g
make-fluid¤ ¤ ¤ g macro¤ g function¤ g lambda¤ g macro-lambda¤ g call-with-deferred-observers¤ ¤ ¤ g module-export!¤ ¤ ¤ !g current-module¤ "! ¤ #! ¤ $ ¤ %g gensym¤ &g lexical-let¤ 'g append¤ (' ¤ )' ¤ *g macro-prog1¤ +* ¤ ,g progn¤ -g prog1¤ .g macro-prog2¤ /. ¤ 0g if¤ 1g nil¤ 21 ¤ 3g
macro-when¤ 43 ¤ 5g macro-unless¤ 65 ¤ 7g macro-error¤ 8f invalid clause in cond¤ 9g
macro-cond¤ :9 ¤ ;g t¤ g macro-or¤ ?> ¤ @g length¤ Af invalid dotimes arguments¤ Bf #expected symbol as dotimes variable¤ Cg let¤ D
¤ Eg while¤ Fg guile-primitive¤ Gg <¤ HFG ¤ Ig setq¤ Jg 1+¤ KFJ ¤ Lg
macro-dotimes¤ ML ¤ Nf invalid dolist arguments¤ Og not¤ PFO ¤ Qg null?¤ RFQ ¤ Sg car¤ TFS ¤ Ug cdr¤ VFU ¤ Wf "expected symbol as dolist variable¤ Xg macro-dolist¤ YX ¤ Zf catch with empty body¤ [g catch¤ \F[ ¤ ]g with-always-lexical¤ ^g eq¤ _g throw¤ `F_ ¤ ag macro-catch¤ ba ¤ cf #unwind-protect without cleanup code¤ dg dynamic-wind¤ eFd ¤ f1 ¤ gg macro-unwind-protect¤ hg ¤ ig macro-pop¤ ji ¤ kg cons¤ lg
macro-push¤ ml ¤C 5 h Ù ]4
5 4 > " G 4 h p - 1 3 ΠC h g cdr
g filenamef !language/elisp/runtime/macros.scmŒ
ŒŒ ŒŒ
CŒ5R4 #$ h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scmŒ
ŒŒ
C> " G 4%&) h0 ¥ - 1 3 45 4 5ŒŒC g form1
+ g rest + g temp + g filenamef !language/elisp/runtime/macros.scmŒ
% ŒŒ
& ŒŒ & ŒŒ ' ŒŒ +
CŒ5*R4 #+ h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scmŒ
$
ŒŒ
C> " G 4,- h ˜ - 1 3 ŒŒ C g form1
g form2 g rest g filenamef !language/elisp/runtime/macros.scmŒ
, ŒŒ - ŒŒ
CŒ5.R4 #/ h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scmŒ
+
ŒŒ
C> " G 40,2 h ˆ - 1 3 ŒŒŒŒC€ g condition
g thens g filenamef !language/elisp/runtime/macros.scmŒ
2 ŒŒ 3 ŒŒ
CŒ53R4 #4 h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scmŒ
1
ŒŒ
C> " G 401, h ˆ - 1 3 Œ C€ g condition
g elses g filenamef !language/elisp/runtime/macros.scmŒ
6 ŒŒ 7 ŒŒ
CŒ55R4 #6 h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scmŒ
5
ŒŒ
C> " G 4178%&0, hp ~ ] ( C 4L Ž5 ‰$ „" $ 6Ž( #45 CŽŒ Cv g tail
p g cur p g rest p g var A _ g filenamef !language/elisp/runtime/macros.scmŒ
@ ŒŒ A ŒŒ
B
ŒŒ C ŒŒ D ŒŒ D ŒŒ D ŒŒ C
ŒŒ F !ŒŒ ! F ŒŒ $ F .ŒŒ ) F ŒŒ - E ŒŒ 1 G ŒŒ 5 G ŒŒ 8 H ŒŒ < E ŒŒ = I ŒŒ A I ŒŒ E J ŒŒ J J +ŒŒ M J ŒŒ a O ŒŒ d O ŒŒ f O ŒŒ i P !ŒŒ j O ŒŒ p g nameg iterateŒ C h ˆ - 1 3 O Q 6 € g clauses
g iterate g filenamef !language/elisp/runtime/macros.scmŒ
? ŒŒ @ ŒŒ
CŒ59R4 #: h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scmŒ
>
ŒŒ
C> " G 4;02 h  ]( C 4L Ž5ŒŒŒCº g x
g tail g filenamef !language/elisp/runtime/macros.scmŒ
Z ŒŒ [ ŒŒ
] ŒŒ ^ ŒŒ ^ ŒŒ ^ %ŒŒ ^ ŒŒ ] ŒŒ g nameg iterateŒ C h8  ) 3 C) 3 C- 1 3 O Q 6 º g x
g x
! 6 g args ! 6 g iterate ) 6 g filenamef !language/elisp/runtime/macros.scmŒ
V ŒŒ W ŒŒ V ŒŒ ) Z ŒŒ
! 6
CŒ5 " G 41%&0 h8 ã ]
( C45 4L Ž5 C Û g x
6 g tail 6 g var 6 g filenamef !language/elisp/runtime/macros.scmŒ
f ŒŒ g ŒŒ i ŒŒ i ŒŒ j
ŒŒ % m ŒŒ * m ŒŒ - m )ŒŒ / m ŒŒ 2 j
ŒŒ 6 g nameg iterateŒ C h8  ) 3 C) 3 C- 1 3 O Q 6 º g x
g x
! 6 g args ! 6 g iterate ) 6 g filenamef !language/elisp/runtime/macros.scmŒ
b ŒŒ c ŒŒ b ŒŒ ) f ŒŒ
! 6
CŒ5>R4 #? h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scmŒ
a
ŒŒ
C> " G 4@7ABCDEH)IK hÀ — - 1 3 ‰$ (4 5 ’ $ "
4 5 ” " $ 6 Ž Š$ " 4> " G Œ 4
5ŒŒ4 5 ‘$ ŽŽ " ŒŒŒC g args
» g body » g t 4 g var L » g count L » g filenamef !language/elisp/runtime/macros.scmŒ
r ŒŒ t ŒŒ s ŒŒ u ŒŒ u ŒŒ s ŒŒ ( v ŒŒ 1 v ŒŒ 9 t ŒŒ = s ŒŒ A w ŒŒ E w ŒŒ H x ŒŒ K y ŒŒ L x ŒŒ S z ŒŒ W z
ŒŒ \ { ŒŒ ` { ŒŒ e { ŒŒ o |
ŒŒ € ŒŒ ¦ € ŒŒ ª € ŒŒ ŒŒ ² ŒŒ · ‚ ŒŒ ¸ |
ŒŒ »
CŒ5LR4 #M h S ] 45 6 K g filenamef !language/elisp/runtime/macros.scmŒ
q
ŒŒ
C> " G 4@7N%C&EPRIT)VW hÐ É - 1 3 ‰$ (4 5 ’ $ "
4 5 ” " $ 6 Ž45 Š$ l
4
5ŒŒŒ4 5 ‘$ ŽŽ " ŒŒŒ C6Á g args
Ð g body Ð g t 4 g var Q Ð g iter-list Q Ð g tailvar Q Ð g filenamef !language/elisp/runtime/macros.scmŒ
… ŒŒ ‡ ŒŒ † ŒŒ ˆ ŒŒ ˆ ŒŒ † ŒŒ ( ‰ ŒŒ 1 ‰ ŒŒ 9 ‡ ŒŒ = † ŒŒ A Š ŒŒ E Š ŒŒ H ‹ ŒŒ K Œ ŒŒ M ŒŒ Q ‹ ŒŒ Z Ž ŒŒ ^ Ž
ŒŒ ` ŒŒ © — ŒŒ ² — ŒŒ ¶ — ŒŒ ¹ ˜ ŒŒ ¾ ˜ ŒŒ à ™ ŒŒ Ä ŒŒ Î ŒŒ Ð ŒŒ Ð
CŒ5XR4 #Y h T ] 45 6 L g filenamef !language/elisp/runtime/macros.scmŒ
„
ŒŒ
C> " G 47Z%&\]0^` h † - 1 3 ( 4> " G " 45 ŒŒ45 45 45
C ~ g tag
ž g body ž g tagsym * ž g dummy-key G — g elisp-key N ” g value U ‘ g arglist ` Ž g filenamef !language/elisp/runtime/macros.scmŒ
¦ ŒŒ § ŒŒ ¨ ŒŒ ¨ ŒŒ ¨ ŒŒ & © ŒŒ * © ŒŒ . ª ŒŒ C ® ŒŒ G ® ŒŒ J ¯ ŒŒ N ® ŒŒ Q ° ŒŒ U ® ŒŒ ` ± ŒŒ ` ® ŒŒ d ²
ŒŒ š ª ŒŒ ž
CŒ5aR4 #b h T ] 45 6 L g filenamef !language/elisp/runtime/macros.scmŒ
¥
ŒŒ
C> " G 47cef h@ - 1 3 ( 4> " G " ŒŒ C ¥ g body
< g clean-ups < g filenamef !language/elisp/runtime/macros.scmŒ
¾ ŒŒ ¿ ŒŒ À ŒŒ À ŒŒ À ŒŒ ' Á ŒŒ <
CŒ5gR4 #h h T ] 45 6 L g filenamef !language/elisp/runtime/macros.scmŒ
½
ŒŒ
C> " G 4-SIU h v ] C n g list-name
g filenamef !language/elisp/runtime/macros.scmŒ
É ŒŒ Ê ŒŒ CŒ5iR4 #j h T ] 45 6 L g filenamef !language/elisp/runtime/macros.scmŒ
È
ŒŒ
C> " G 4Ik h Š ] C ‚ g new-el
g list-name g filenamef !language/elisp/runtime/macros.scmŒ
Î ŒŒ Ï ŒŒ CŒ5lR #m h T ] 45 6 L g filenamef !language/elisp/runtime/macros.scmŒ
Í
ŒŒ
C6 Ñ g m
( g filenamef !language/elisp/runtime/macros.scmŒ
ŒŒ )
ŒŒ Y $
ŒŒ Ù +
ŒŒ 9 1
ŒŒ 5
ŒŒ É >
ŒŒ
) U
ŒŒ Á a
ŒŒ ‘ q
ŒŒ ¡ „
ŒŒ ú ¥
ŒŒ Ú ½
ŒŒ z È
ŒŒ  Í
ŒŒ þ
C6 PK ! Ìé é runtime/value-slot.gonu „[µü¤ GOOF----LE-8-2.0Ñ ] 4 h ] g guile¤ ¤ g define-module*¤ ¤ ¤ g language¤ g elisp¤ g runtime¤ g
value-slot¤
¤ g filenameS¤ f %language/elisp/runtime/value-slot.scm¤
g set-current-module¤
¤
¤C 5 h( g ]4
5 4 > " G C _ g m
$ g filenamef %language/elisp/runtime/value-slot.scmŒ
ŒŒ $
C6 PK ! PÎæ¶5] 5] runtime/subrs.gonu „[µü¤ GOOF----LE-8-2.0 ] ] ë 4 h‡ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g language¤ g elisp¤ g runtime¤ g subrs¤
¤ g filenameS¤ f language/elisp/runtime/subrs.scm¤
g importsS¤ ¤ ¤ g system¤ g base¤ g compile¤ ¤ ¤ ¤ g set-current-module¤ ¤ ¤ g
elisp-bool¤ g eq¤ g call-with-deferred-observers¤ ¤ ¤ g module-export!¤ ¤ ¤ !g current-module¤ "! ¤ #! ¤ $ ¤ %g equal¤ &% ¤ 'g real?¤ (g inexact?¤ )g integer?¤ *g floatp¤ +* ¤ ,g exact?¤ -g integerp¤ .- ¤ /g numberp¤ 0/ ¤ 1g wholenump¤ 21 ¤ 3g zerop¤ 43 ¤ 5g =¤ 65 ¤ 7g /=¤ 87 ¤ 9g <¤ :9 ¤ ;g <=¤ <; ¤ =g >¤ >= ¤ ?g >=¤ @? ¤ Ag max¤ BA ¤ CA ¤ DA ¤ Eg min¤ FE ¤ GE ¤ HE ¤ Ig abs¤ JI ¤ KI ¤ LI ¤ Mg exact->inexact¤ Ng float¤ ON ¤ Pg 1+¤ QP ¤ RP ¤ SP ¤ Tg 1-¤ UT ¤ VT ¤ WT ¤ Xg +¤ YX ¤ ZX ¤ [X ¤ \g -¤ ]\ ¤ ^\ ¤ _\ ¤ `g *¤ a` ¤ b` ¤ c` ¤ dg modulo¤ eg %¤ fe ¤ gg floor¤ hg ¤ ig ¤ jg ffloor¤ kj ¤ lg ceiling¤ ml ¤ nl ¤ og fceiling¤ po ¤ qg truncate¤ rq ¤ sq ¤ tg ftruncate¤ ut ¤ vg round¤ wv ¤ xv ¤ yg fround¤ zy ¤ {g consp¤ |{ ¤ }g atomp¤ ~} ¤ g listp¤ € ¤ g nlistp¤ ‚ ¤ ƒg null¤ „ƒ ¤ …g nil-value¤ †g car¤ ‡† ¤ ˆg cdr¤ ‰ˆ ¤ Šg car-safe¤ ‹Š ¤ Œg cdr-safe¤ Œ ¤ Žg nth¤ Ž ¤ g nthcdr¤ ‘ ¤ ’g length¤ “’ ¤ ”’ ¤ •’ ¤ –g cons¤ —– ¤ ˜– ¤ ™– ¤ šg list¤ ›š ¤ œš ¤ š ¤ žg make-list¤ Ÿž ¤ ž ¤ ¡ž ¤ ¢g append¤ £¢ ¤ ¤¢ ¤ ¥¢ ¤ ¦g reverse¤ §¦ ¤ ¨¦ ¤ ©¦ ¤ ªg copy-tree¤ «ª ¤ ¬ª ¤ ª ¤ ®g
runtime-error¤ ¯f &too many arguments for number-sequence¤ °f infinite list in number-sequence¤ ±g number-sequence¤ ²± ¤ ³g setcar¤ ´³ ¤ µg setcdr¤ ¶µ ¤ ·g reference-variable¤ ¸g value-slot-module¤ ¹g symbol-value¤ º¹ ¤ »g function-slot-module¤ ¼g symbol-function¤ ½¼ ¤ ¾g
set-variable!¤ ¿g set¤ À¿ ¤ Ág fset¤ ÂÁ ¤ Ãg
module-bound?¤ Äg resolve-interface¤ Åg module-variable¤ Æg resolve-module¤ Çg fluid?¤ Èg fluid-unset!¤ Ég variable-unset!¤ Êg
makunbound¤ ËÊ ¤ Ìg fmakunbound¤ ÍÌ ¤ Îg fluid-bound?¤ Ïg boundp¤ ÐÏ ¤ Ñg fboundp¤ ÒÑ ¤ Óg lambda¤ Ôg fromS¤ Õg toS¤ Ög value¤ ×f list is not a function¤ Øg apply¤ ÙØ ¤ ÚØ ¤ ÛØ ¤ Üg funcall¤ ÝÜ ¤ Þg throw¤ ßÞ ¤ àÞ ¤ ág elisp-exception¤ âÞ ¤ ãg t-value¤ äg not¤ åä ¤ æg eval¤ çæ ¤ èg compile-file¤ ég load¤ êé ¤C 5 hM { ]4
5 4 > " G h ‘ ] ‚6 ‰ g a
g b g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ ! ŒŒ ! ŒŒ g nameg eqŒ CR4 #$ h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ
C> " G h ” ] ‡6 Œ g a
g b g filenamef language/elisp/runtime/subrs.scmŒ
$ ŒŒ % ŒŒ % ŒŒ g nameg equalŒ C%R4 #& h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
#
ŒŒ
C> " G '() h8 ¾ ] 4 5$ $4 5 $ " 4 5€ " 6 ¶ g num
6 g t / g filenamef language/elisp/runtime/subrs.scmŒ
* ŒŒ + ŒŒ + ŒŒ , ŒŒ , ŒŒ % - #ŒŒ , - ŒŒ 6 + ŒŒ 6 g nameg floatpŒ C*R4 #+ h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
)
ŒŒ
C> " G ,) h š ]4 5$ 4 5" 6 ’ g num
g filenamef language/elisp/runtime/subrs.scmŒ
0 ŒŒ 1 ŒŒ 1 ŒŒ 2 ŒŒ 1 ŒŒ g nameg integerpŒ C-R4 #. h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
/
ŒŒ
C> " G ' h ‰ ]4 56 g num
g filenamef language/elisp/runtime/subrs.scmŒ
5 ŒŒ 6 ŒŒ
6 ŒŒ
g nameg numberpŒ C/R4 #0 h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
4
ŒŒ
C> " G ,) h0 « ]4 5$ 4 5$
•" " 6 £ g num
* g filenamef language/elisp/runtime/subrs.scmŒ
9 ŒŒ : ŒŒ : ŒŒ ; ŒŒ : ŒŒ < ŒŒ * : ŒŒ * g nameg wholenumpŒ C1R4 #2 h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
8
ŒŒ
C> " G h ‡ ]
‘6 g num
g filenamef language/elisp/runtime/subrs.scmŒ
? ŒŒ @ ŒŒ
@ ŒŒ
g nameg zeropŒ C3R4 #4 h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
>
ŒŒ
C> " G h – ] ‘6 Ž g num1
g num2 g filenamef language/elisp/runtime/subrs.scmŒ
E ŒŒ F ŒŒ F ŒŒ g nameg =Œ C5R4 #6 h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
D
ŒŒ
C> " G h Ÿ ] ‘€6 — g num1
g num2 g filenamef language/elisp/runtime/subrs.scmŒ
I ŒŒ J ŒŒ
J ŒŒ J ŒŒ g nameg /=Œ C7R4 #8 h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
H
ŒŒ
C> " G h – ] ’6 Ž g num1
g num2 g filenamef language/elisp/runtime/subrs.scmŒ
M ŒŒ N ŒŒ N ŒŒ g nameg <Œ C9R4 #: h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
L
ŒŒ
C> " G h — ] “6 g num1
g num2 g filenamef language/elisp/runtime/subrs.scmŒ
Q ŒŒ R ŒŒ R ŒŒ g nameg <=Œ C;R4 #< h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
P
ŒŒ
C> " G h – ] ”6 Ž g num1
g num2 g filenamef language/elisp/runtime/subrs.scmŒ
U ŒŒ V ŒŒ V ŒŒ g nameg >Œ C=R4 #> h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
T
ŒŒ
C> " G h — ] •6 g num1
g num2 g filenamef language/elisp/runtime/subrs.scmŒ
Y ŒŒ Z ŒŒ Z ŒŒ g nameg >=Œ C?R4 #@ h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
X
ŒŒ
C> " G C h € - 1 3 @ x g nums
g filenamef language/elisp/runtime/subrs.scmŒ
] ŒŒ ^ ŒŒ
g nameg maxŒ CAR4 #D h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
\
ŒŒ
C> " G G h € - 1 3 @ x g nums
g filenamef language/elisp/runtime/subrs.scmŒ
a ŒŒ b ŒŒ
g nameg minŒ CER4 #H h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
`
ŒŒ
C> " G KIR4 #L h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
d
ŒŒ
C> " G ,M h ]4 5$ 6 C ‡ g num
g filenamef language/elisp/runtime/subrs.scmŒ
j ŒŒ k ŒŒ
k ŒŒ l ŒŒ g nameg floatŒ CNR4 #O h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
i
ŒŒ
C> " G RPR4 #S h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
s
ŒŒ
C> " G VTR4 #W h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
u
ŒŒ
C> " G ZXR4 #[ h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
w
ŒŒ
C> " G ^\R4 #_ h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
y
ŒŒ
C> " G b`R4 #c h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
{
ŒŒ
C> " G dieR4 #f h R ] 45 6 J g filenamef language/elisp/runtime/subrs.scmŒ
}
ŒŒ
C> " G ijR4 #k h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
„
ŒŒ
C> " G noR4 #p h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
†
ŒŒ
C> " G stR4 #u h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
ˆ
ŒŒ
C> " G xyR4 #z h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
Š
ŒŒ
C> " G h ‰ ] ˆ6 g el
g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ ŒŒ ŒŒ g nameg conspŒ C{R4 #| h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
Ž
ŒŒ
C> " G h ’ ] ˆ€6 Š g el
g filenamef language/elisp/runtime/subrs.scmŒ
“ ŒŒ ” ŒŒ ” ŒŒ
” ŒŒ
g nameg atompŒ C}R4 #~ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
’
ŒŒ
C> " G h ¤ ] ˆ$ " „6 œ g el
g filenamef language/elisp/runtime/subrs.scmŒ
— ŒŒ ˜ ŒŒ ˜ ŒŒ ˜ ŒŒ ˜ ŒŒ ˜ ŒŒ g nameg listpŒ CR4 #€ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
–
ŒŒ
C> " G h ¥ ] ˆ$ " „€6 g el
g filenamef language/elisp/runtime/subrs.scmŒ
› ŒŒ œ ŒŒ œ ŒŒ ŒŒ ŒŒ œ ŒŒ g nameg nlistpŒ CR4 #‚ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
š
ŒŒ
C> " G h ˆ ] „6 € g el
g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ ¡ ŒŒ ¡ ŒŒ g nameg nullŒ CƒR4 #„ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
Ÿ
ŒŒ
C> " G … h ‡ ] ( C C g el
g filenamef language/elisp/runtime/subrs.scmŒ
¦ ŒŒ § ŒŒ © ŒŒ g nameg carŒ C†R4 #‡ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
¥
ŒŒ
C> " G … h ‡ ] ( C ŽC g el
g filenamef language/elisp/runtime/subrs.scmŒ
¬ ŒŒ ŒŒ ¯ ŒŒ g nameg cdrŒ CˆR4 #‰ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
«
ŒŒ
C> " G … h • ] ˆ$ CC g el
g filenamef language/elisp/runtime/subrs.scmŒ
² ŒŒ ³ ŒŒ ³ ŒŒ ´ ŒŒ g nameg car-safeŒ CŠR4 #‹ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
±
ŒŒ
C> " G … h • ] ˆ$ ŽCC g el
g filenamef language/elisp/runtime/subrs.scmŒ
¸ ŒŒ ¹ ŒŒ ¹ ŒŒ º ŒŒ g nameg cdr-safeŒ CŒR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
·
ŒŒ
C> " G … hH ]
’$ C" #( C
‘$ C™Ž "ÿÿÝ "ÿÿÑ
g n
A g lst A g i 5 g tail 5 g filenamef language/elisp/runtime/subrs.scmŒ
¾ ŒŒ ¿ ŒŒ
¿ ŒŒ
À ŒŒ Á ŒŒ Ã
ŒŒ Å ŒŒ # Ã
ŒŒ & Å ŒŒ * Æ ŒŒ - Æ &ŒŒ 5 Æ ŒŒ 5 Á ŒŒ A g nameg nthŒ CŽR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
½
ŒŒ
C> " G … h@ ]
’$ C" "( C
‘$ C™Ž "ÿÿÞ "ÿÿÒ û g n
? g lst ? g i 3 g tail 3 g filenamef language/elisp/runtime/subrs.scmŒ
É ŒŒ Ê ŒŒ
Ê ŒŒ Ì ŒŒ Î
ŒŒ Ð ŒŒ " Î
ŒŒ ( Ñ ŒŒ + Ñ &ŒŒ 3 Ñ ŒŒ 3 Ì ŒŒ ? g nameg nthcdrŒ CR4 #‘ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
È
ŒŒ
C> " G ”’R4 #• h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
Ó
ŒŒ
C> " G ˜–R4 #™ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
×
ŒŒ
C> " G œšR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
Ù
ŒŒ
C> " G h – ] 6 Ž g len
g obj
g filenamef language/elisp/runtime/subrs.scmŒ
Ü ŒŒ Ý ŒŒ
g nameg make-listŒ CžR4 #¡ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
Û
ŒŒ
C> " G ¤¢R4 #¥ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
ß
ŒŒ
C> " G ¨¦R4 #© h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
á
ŒŒ
C> " G ¬ªR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
ã
ŒŒ
C> " G ”®¯…K° h ê - 1 3 45 ”$ ŽŽŽ6( CŽ„ $ " Ž‚ $ " Ž ‚ $ " ‘ $ C" Wš š’$ C" ! ‘$ ŒC˜Œ "ÿÿß 4 ˜545œš– "ÿÿ¾
‘$ ‘$ "ÿÿ”6"ÿÿŠ â g from
û g rest û g t 5 L g to Y û g sep Y û g t b w g i š » g result š » g filenamef language/elisp/runtime/subrs.scmŒ
æ ŒŒ
ç ŒŒ ç ŒŒ ç ŒŒ è ŒŒ é ŒŒ " è ŒŒ ( ê ŒŒ - ë ŒŒ 1 ì ŒŒ 4 í &ŒŒ 5 í ŒŒ 5 í ŒŒ G î .ŒŒ I î ŒŒ P í ŒŒ X 𠌌 Y ì ŒŒ b ò ŒŒ b ò ŒŒ t ò 'ŒŒ { ñ ŒŒ € ò 9ŒŒ Š õ ŒŒ õ (ŒŒ õ ŒŒ ” ñ ŒŒ • õ ;ŒŒ š ÷ ŒŒ Ÿ ŒŒ £ ŒŒ ¨ ŒŒ ® ŒŒ ³ ŒŒ » ŒŒ » ÷ ŒŒ À ü 3ŒŒ Ç ý 9ŒŒ É ü 3ŒŒ Ê 3ŒŒ Ñ û -ŒŒ Ò ù 'ŒŒ Ó ÷ !ŒŒ Ô &ŒŒ Ü ÷ ŒŒ Ü ñ ŒŒ ß ó ŒŒ ä ñ ŒŒ é ó +ŒŒ í ó ŒŒ õ ô ŒŒ ÷ ô ŒŒ 5 û
g nameg number-sequenceŒ C±R4 #² h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
å
ŒŒ
C> " G h( ¦ ] ( ( " " C ž g cell
# g val # g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ ŒŒ ŒŒ
ŒŒ # g nameg setcarŒ C³R4 #´ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ
C> " G h( ¦ ] ( ( " " C ž g cell
# g val # g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ ŒŒ ŒŒ ŒŒ # g nameg setcdrŒ CµR4 #¶ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ
C> " G ·¸ h ˆ ] 6 € g sym
g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ
ŒŒ
g nameg symbol-valueŒ C¹R4 #º h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ
C> " G ·» h ‹ ] 6 ƒ g sym
g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ
ŒŒ
g nameg symbol-functionŒ C¼R4 #½ h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ
C> " G ¾¸ h ’ ] 6 Š g sym
g value g filenamef language/elisp/runtime/subrs.scmŒ
" ŒŒ # ŒŒ g nameg setŒ C¿R4 #À h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
!
ŒŒ
C> " G ¾» h “ ] 6 ‹ g sym
g value g filenamef language/elisp/runtime/subrs.scmŒ
& ŒŒ ' ŒŒ g nameg fsetŒ CÁR4 # h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
%
ŒŒ
C> " G ÃĸÅÆÇÈÉ h€ 1 ] 445 5$ i445 5 $ 945$ 4> " G " 4> " G " 4> " G " C) g sym
€ g var " y g filenamef language/elisp/runtime/subrs.scmŒ
* ŒŒ + ŒŒ + ŒŒ + ŒŒ + ŒŒ , ŒŒ , "ŒŒ " , ŒŒ " , ŒŒ ' . ŒŒ + . ŒŒ , . 'ŒŒ 1 . /ŒŒ 3 . 'ŒŒ 7 . ŒŒ 8 / ŒŒ = / ŒŒ B / ŒŒ O 0 ŒŒ € g nameg
makunboundŒ CÊR4 #Ë h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
)
ŒŒ
C> " G ÃÄ»ÅÆÇÈÉ h€ 2 ] 445 5$ i445 5 $ 945$ 4> " G " 4> " G " 4> " G " C* g sym
€ g var " y g filenamef language/elisp/runtime/subrs.scmŒ
4 ŒŒ 5 ŒŒ 5 ŒŒ 5 ŒŒ 5 ŒŒ 6 ŒŒ 7 ŒŒ " 6 ŒŒ " 6 ŒŒ ' 9 ŒŒ + 9
ŒŒ , 9 )ŒŒ 1 9 1ŒŒ 3 9 )ŒŒ 7 9 ŒŒ 8 : ŒŒ = : ŒŒ B : ŒŒ O ; ŒŒ € g nameg fmakunboundŒ CÌR4 #Í h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
3
ŒŒ
C> " G ÃĸÅÆÇÎ hX + ] 445 5$ <445 5 $ 45$ 45" " " 6 # g sym
U g var $ N g filenamef language/elisp/runtime/subrs.scmŒ
? ŒŒ B ŒŒ B ŒŒ B ŒŒ A ŒŒ C ŒŒ C "ŒŒ $ C ŒŒ $ C ŒŒ ) E
ŒŒ - E ŒŒ . F ŒŒ 3 F ŒŒ 5 F ŒŒ 9 F
ŒŒ : G ŒŒ ? G ŒŒ A G ŒŒ U @ ŒŒ U g nameg boundpŒ CÏR4 #Ð h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
>
ŒŒ
C> " G ÃÄ»ÅÆÇÎ hX , ] 445 5$ <445 5 $ 45$ 45" " " 6 $ g sym
U g var $ N g filenamef language/elisp/runtime/subrs.scmŒ
K ŒŒ N ŒŒ N ŒŒ N ŒŒ M ŒŒ O ŒŒ O #ŒŒ $ O ŒŒ $ O ŒŒ ) Q ŒŒ - Q ŒŒ . R ŒŒ 3 R ŒŒ 5 R ŒŒ 9 R ŒŒ : S ŒŒ ? S ŒŒ A S ŒŒ U L ŒŒ U g nameg fboundpŒ CÑR4 #Ò h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
J
ŒŒ
C> " G ·»ÓÔÕÖ®×Ú hh N - 1 3 Š$
4 5" > ‰$ 5 ( " ‚$ 4 5" 4
5" @ F g func
e g args e g real-func [ e g filenamef language/elisp/runtime/subrs.scmŒ
Z ŒŒ \ ŒŒ [ ŒŒ ] ŒŒ ^ ŒŒ $ [ ŒŒ * _ ŒŒ 2 ` %ŒŒ 4 ` 5ŒŒ 5 ` ŒŒ 9 _ ŒŒ : a ŒŒ B a 0ŒŒ F a <ŒŒ H a ŒŒ M b ŒŒ Q b *ŒŒ U b ŒŒ [ [ ŒŒ e e ŒŒ e
g nameg applyŒ CØR4 #Û h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
Y
ŒŒ
C> " G Ø h — - 1 3 6 g func
g args g filenamef language/elisp/runtime/subrs.scmŒ
h ŒŒ i ŒŒ
g nameg funcallŒ CÜR4 #Ý h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
g
ŒŒ
C> " G àá h ¦ ] 6 ž g tag
g value g filenamef language/elisp/runtime/subrs.scmŒ
n ŒŒ o ŒŒ o ŒŒ o ŒŒ g nameg throwŒ CÞR4 #â h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
m
ŒŒ
C> " G …ã h } ] $ CC u g x
g filenamef language/elisp/runtime/subrs.scmŒ
t ŒŒ u ŒŒ g nameg notŒ CäR4 #å h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
s
ŒŒ
C> " G ÔÕÖ h “ ] 6‹ g form
g filenamef language/elisp/runtime/subrs.scmŒ
x ŒŒ
y ŒŒ y %ŒŒ y ŒŒ g nameg evalŒ CæR4 #ç h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
w
ŒŒ
C> " G èÔÕÖ h œ ]4 > " G C ” g file
g filenamef language/elisp/runtime/subrs.scmŒ
| ŒŒ } ŒŒ } ŒŒ } *ŒŒ } ŒŒ g nameg loadŒ CéR #ê h S ] 45 6 K g filenamef language/elisp/runtime/subrs.scmŒ
{
ŒŒ
C6 s g m
( g filenamef language/elisp/runtime/subrs.scmŒ
ŒŒ Ü
ŒŒ #
ŒŒ ¹ )
ŒŒ /
ŒŒ L 4
ŒŒ Î 8
ŒŒ >
ŒŒ
A D
ŒŒ Š H
ŒŒ É L
ŒŒ
P
ŒŒ I T
ŒŒ Š X
ŒŒ ³ \
ŒŒ ã `
ŒŒ t d
ŒŒ º i
ŒŒ D s
ŒŒ Ô u
ŒŒ d w
ŒŒ ô y
ŒŒ „ {
ŒŒ }
ŒŒ ¤ „
ŒŒ 5 †
ŒŒ Å ˆ
ŒŒ U Š
ŒŒ Œ Ž
ŒŒ Í ’
ŒŒ ' –
ŒŒ € š
ŒŒ ³ Ÿ
ŒŒ !ê ¥
ŒŒ # «
ŒŒ $X ±
ŒŒ %˜ ·
ŒŒ ' ½
ŒŒ )n È
ŒŒ )ý Ó
ŒŒ * ×
ŒŒ + Ù
ŒŒ ,a Û
ŒŒ ,í ß
ŒŒ -} á
ŒŒ .
ã
ŒŒ 2¥ å
ŒŒ 4
ŒŒ 5y
ŒŒ 6³
ŒŒ 7ö
ŒŒ 9= !
ŒŒ :† %
ŒŒ <ä )
ŒŒ ?E 3
ŒŒ Av >
ŒŒ C§ J
ŒŒ F Y
ŒŒ GZ g
ŒŒ H± m
ŒŒ Ià s
ŒŒ K& w
ŒŒ L‡ {
ŒŒ @ M
C6 PK ! íü_ runtime/function-slot.gonu „[µü¤ GOOF----LE-8-2.0 ] Ç 4 hx ] g guile¤ ¤ g define-module*¤ ¤ ¤ g language¤ g elisp¤ g runtime¤ g
function-slot¤
¤ g filenameS¤ f (language/elisp/runtime/function-slot.scm¤
g
duplicatesS¤ g last¤ ¤ g importsS¤ g subrs¤ ¤ ¤ g macros¤ ¤ g selectS¤ g macro-lambda¤ g lambda¤ Œ¤ g macro-prog1¤ g prog1¤ Œ¤ g macro-prog2¤ g prog2¤ Œ¤ g
macro-when¤ !g when¤ " !Œ¤ #g macro-unless¤ $g unless¤ %#$Œ¤ &g
macro-cond¤ 'g cond¤ (&'Œ¤ )g macro-and¤ *g and¤ +)*Œ¤ ,g macro-or¤ -g or¤ .,-Œ¤ /g
macro-dotimes¤ 0g dotimes¤ 1/0Œ¤ 2g macro-dolist¤ 3g dolist¤ 423Œ¤ 5g macro-catch¤ 6g catch¤ 756Œ¤ 8g macro-unwind-protect¤ 9g unwind-protect¤ :89Œ¤ ;g macro-pop¤ g
macro-push¤ ?g push¤ @>?Œ¤ A "%(+.147:=@ ¤ BA ¤ Cg compile-tree-il¤ DC ¤ Eg
compile-progn¤ Fg progn¤ GEFŒ¤ Hg
compile-if¤ Ig if¤ JHIŒ¤ Kg compile-defconst¤ Lg defconst¤ MKLŒ¤ Ng compile-defvar¤ Og defvar¤ PNOŒ¤ Qg compile-setq¤ Rg setq¤ SQRŒ¤ Tg compile-let¤ Ug let¤ VTUŒ¤ Wg compile-lexical-let¤ Xg lexical-let¤ YWXŒ¤ Zg compile-flet¤ [g flet¤ \Z[Œ¤ ]g compile-let*¤ ^g let*¤ _]^Œ¤ `g compile-lexical-let*¤ ag lexical-let*¤ b`aŒ¤ cg
compile-flet*¤ dg flet*¤ ecdŒ¤ fg compile-with-always-lexical¤ gg with-always-lexical¤ hfgŒ¤ ig compile-guile-ref¤ jg guile-ref¤ kijŒ¤ lg compile-guile-primitive¤ mg guile-primitive¤ nlmŒ¤ og
compile-while¤ pg while¤ qopŒ¤ rg compile-function¤ sg function¤ trsŒ¤ ug
compile-defun¤ vg defun¤ wuvŒ¤ xg compile-defmacro¤ yg defmacro¤ zxyŒ¤ {g compile-`¤ |g `¤ }{|Œ¤ ~g
compile-quote¤ g quote¤ €~Œ¤ GJMPSVY\_behknqtwz}€ ¤ ‚D ¤ ƒB‚ ¤ „g
re-exportsS¤ …g eq¤ †g equal¤ ‡g floatp¤ ˆg integerp¤ ‰g numberp¤ Šg wholenump¤ ‹g zerop¤ Œg =¤ g /=¤ Žg <¤ g <=¤ g >¤ ‘g >=¤ ’g max¤ “g min¤ ”g abs¤ •g float¤ –g 1+¤ —g 1-¤ ˜g +¤ ™g -¤ šg *¤ ›g %¤ œg ffloor¤ g fceiling¤ žg ftruncate¤ Ÿg fround¤ g consp¤ ¡g atomp¤ ¢g listp¤ £g nlistp¤ ¤g null¤ ¥g car¤ ¦g cdr¤ §g car-safe¤ ¨g cdr-safe¤ ©g nth¤ ªg nthcdr¤ «g length¤ ¬g cons¤ g list¤ ®g make-list¤ ¯g append¤ °g reverse¤ ±g copy-tree¤ ²g number-sequence¤ ³g setcar¤ ´g setcdr¤ µg symbol-value¤ ¶g symbol-function¤ ·g set¤ ¸g fset¤ ¹g
makunbound¤ ºg fmakunbound¤ »g boundp¤ ¼g fboundp¤ ½g apply¤ ¾g funcall¤ ¿g throw¤ Àg not¤ Ág eval¤ Âg load¤ ÃFILORUX[^adgjmpsvy| !$'*-0369<?…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁ `¤ Äg set-current-module¤ ÅÄ ¤ ÆÄ ¤C 5 h0 j ]4
ƒ„Ã5 4Æ > " G Cb g m
0 g filenamef (language/elisp/runtime/function-slot.scmŒ
ŒŒ 0
C6 PK ! Iî2Ë bindings.gonu „[µü¤ PK ! m{Ò³J0 J0 C lexer.gonu „[µü¤ PK ! L öã͈ ͈ ÅB compile-tree-il.gonu „[µü¤ PK ! ÂÆÍûÜ Ü
ÔË runtime.gonu „[µü¤ PK ! $Ävd= = êç spec.gonu „[µü¤ PK ! ¬´Qæ æ ^ì parser.gonu „[µü¤ PK ! Ë"Û+% +% }
runtime/macros.gonu „[µü¤ PK ! Ìé é é/ runtime/value-slot.gonu „[µü¤ PK ! PÎæ¶5] 5] 2 runtime/subrs.gonu „[µü¤ PK ! íü_ Œ runtime/function-slot.gonu „[µü¤ PK
ð