summaryrefslogtreecommitdiff
path: root/localrepo/geiser-guile-0.28.1.tar
blob: ee64911b95e89f9401dcb585b74a35057b5c511b (plain)
ofshex dumpascii
0000 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 00 00 00 00 00 00 00 00 00 00 00 00 geiser-guile-0.28.1/............
0020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0060 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000755.0000000.0000000.0000
0080 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 36 32 32 00 20 35 00 00 00 0000000.00000000000.012622..5...
00a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
00c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
00e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0100 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0120 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0200 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 73 72 63 2f 00 00 00 00 00 00 00 00 geiser-guile-0.28.1/src/........
0220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0260 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000755.0000000.0000000.0000
0280 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 34 31 31 00 20 35 00 00 00 0000000.00000000000.013411..5...
02a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
02c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
02e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0300 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0320 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0400 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 73 72 63 2f 67 65 69 73 65 72 2f 00 geiser-guile-0.28.1/src/geiser/.
0420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0460 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000755.0000000.0000000.0000
0480 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 36 36 37 00 20 35 00 00 00 0000000.00000000000.014667..5...
04a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
04c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
04e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0500 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0520 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
05a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
05c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
05e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0600 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 73 72 63 2f 67 65 69 73 65 72 2f 65 geiser-guile-0.28.1/src/geiser/e
0620 76 61 6c 75 61 74 69 6f 6e 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 valuation.scm...................
0640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0660 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
0680 30 30 31 33 36 36 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 35 35 36 00 20 30 00 00 00 0013666.00000000000.017556..0...
06a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
06c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
06e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0700 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0720 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0800 3b 3b 3b 20 65 76 61 6c 75 61 74 69 6f 6e 2e 73 63 6d 20 2d 2d 20 65 76 61 6c 75 61 74 69 6f 6e ;;;.evaluation.scm.--.evaluation
0820 2c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 61 6e 64 20 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f ,.compilation.and.macro-expansio
0840 6e 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 30 2c 20 n..;;.Copyright.(C).2009,.2010,.
0860 32 30 31 31 2c 20 32 30 31 33 2c 20 32 30 31 35 2c 20 32 30 32 32 20 4a 6f 73 65 20 41 6e 74 6f 2011,.2013,.2015,.2022.Jose.Anto
0880 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d nio.Ortega.Ruiz..;;.This.program
08a0 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 .is.free.software;.you.can.redis
08c0 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 tribute.it.and/or.;;.modify.it.u
08e0 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 4d 6f 64 69 66 69 65 64 20 42 nder.the.terms.of.the.Modified.B
0900 53 44 20 4c 69 63 65 6e 73 65 2e 20 59 6f 75 20 73 68 6f 75 6c 64 0a 3b 3b 20 68 61 76 65 20 72 SD.License..You.should.;;.have.r
0920 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 6c eceived.a.copy.of.the.license.al
0940 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74 ong.with.this.program..If.;;.not
0960 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 78 66 72 65 65 38 36 2e 6f 72 67 2f 33 2e ,.see.<http://www.xfree86.org/3.
0980 33 2e 36 2f 43 4f 50 59 52 49 47 48 54 32 2e 68 74 6d 6c 23 35 3e 2e 0a 0a 3b 3b 20 53 74 61 72 3.6/COPYRIGHT2.html#5>...;;.Star
09a0 74 20 64 61 74 65 3a 20 4d 6f 6e 20 4d 61 72 20 30 32 2c 20 32 30 30 39 20 30 32 3a 34 36 0a 0a t.date:.Mon.Mar.02,.2009.02:46..
09c0 28 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 20 20 28 67 75 69 6c 65 2d 32 2e 32 0a 20 20 20 28 64 65 (cond-expand...(guile-2.2....(de
09e0 66 69 6e 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 65 76 61 6c 75 61 74 69 6f 6e 29 0a fine-module.(geiser.evaluation).
0a00 20 20 20 20 20 23 3a 65 78 70 6f 72 74 20 28 67 65 3a 63 6f 6d 70 69 6c 65 0a 20 20 20 20 20 20 .....#:export.(ge:compile.......
0a20 20 20 20 20 20 20 20 20 20 67 65 3a 65 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .........ge:eval................
0a40 67 65 3a 6d 61 63 72 6f 65 78 70 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 ge:macroexpand................ge
0a60 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a :compile-file................ge:
0a80 6c 6f 61 64 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 73 65 74 2d load-file................ge:set-
0aa0 77 61 72 6e 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 61 64 64 2d 74 warnings................ge:add-t
0ac0 6f 2d 6c 6f 61 64 2d 70 61 74 68 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 o-load-path)......#:use-module.(
0ae0 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c geiser.modules)......#:use-modul
0b00 65 20 28 73 72 66 69 20 73 72 66 69 2d 31 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c e.(srfi.srfi-1)......#:use-modul
0b20 65 20 28 6c 61 6e 67 75 61 67 65 20 74 72 65 65 2d 69 6c 29 0a 20 20 20 20 20 23 3a 75 73 65 2d e.(language.tree-il)......#:use-
0b40 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 62 61 73 65 20 63 6f 6d 70 69 6c 65 29 0a 20 20 20 module.(system.base.compile)....
0b60 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 62 61 73 65 20 6d 65 73 73 ..#:use-module.(system.base.mess
0b80 61 67 65 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 62 age)......#:use-module.(system.b
0ba0 61 73 65 20 70 6d 61 74 63 68 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 ase.pmatch)......#:use-module.(s
0bc0 79 73 74 65 6d 20 76 6d 20 70 72 6f 67 72 61 6d 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 ystem.vm.program)......#:use-mod
0be0 75 6c 65 20 28 69 63 65 2d 39 20 70 72 65 74 74 79 2d 70 72 69 6e 74 29 0a 20 20 20 20 20 23 3a ule.(ice-9.pretty-print)......#:
0c00 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 74 65 78 74 75 61 6c 2d 70 6f 72 74 73 29 use-module.(ice-9.textual-ports)
0c20 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 6c 6f ......#:use-module.(system.vm.lo
0c40 61 64 65 72 29 29 29 0a 20 20 28 65 6c 73 65 0a 20 20 20 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c ader)))...(else....(define-modul
0c60 65 20 28 67 65 69 73 65 72 20 65 76 61 6c 75 61 74 69 6f 6e 29 0a 20 20 20 20 20 23 3a 65 78 70 e.(geiser.evaluation)......#:exp
0c80 6f 72 74 20 28 67 65 3a 63 6f 6d 70 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 ort.(ge:compile................g
0ca0 65 3a 65 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 6d 61 63 72 6f 65 78 e:eval................ge:macroex
0cc0 70 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 63 6f 6d 70 69 6c 65 2d 66 pand................ge:compile-f
0ce0 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 6c 6f 61 64 2d 66 69 6c 65 0a ile................ge:load-file.
0d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 73 65 74 2d 77 61 72 6e 69 6e 67 73 0a 20 ...............ge:set-warnings..
0d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 61 64 64 2d 74 6f 2d 6c 6f 61 64 2d 70 61 74 ..............ge:add-to-load-pat
0d40 68 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 6d 6f 64 h)......#:use-module.(geiser.mod
0d60 75 6c 65 73 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 72 66 69 20 73 72 ules)......#:use-module.(srfi.sr
0d80 66 69 2d 31 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 6c 61 6e 67 75 61 67 fi-1)......#:use-module.(languag
0da0 65 20 74 72 65 65 2d 69 6c 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 e.tree-il)......#:use-module.(sy
0dc0 73 74 65 6d 20 62 61 73 65 20 63 6f 6d 70 69 6c 65 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f stem.base.compile)......#:use-mo
0de0 64 75 6c 65 20 28 73 79 73 74 65 6d 20 62 61 73 65 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20 dule.(system.base.message)......
0e00 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 62 61 73 65 20 70 6d 61 74 63 68 #:use-module.(system.base.pmatch
0e20 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 70 )......#:use-module.(system.vm.p
0e40 72 6f 67 72 61 6d 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 rogram)......#:use-module.(ice-9
0e60 20 70 72 65 74 74 79 2d 70 72 69 6e 74 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 .pretty-print)......#:use-module
0e80 20 28 69 63 65 2d 39 20 74 65 78 74 75 61 6c 2d 70 6f 72 74 73 29 29 29 29 0a 0a 0a 28 64 65 66 .(ice-9.textual-ports))))...(def
0ea0 69 6e 65 20 63 6f 6d 70 69 6c 65 2d 6f 70 74 73 20 27 28 29 29 0a 28 64 65 66 69 6e 65 20 63 6f ine.compile-opts.'()).(define.co
0ec0 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 70 74 73 20 27 28 29 29 0a 0a 28 64 65 66 69 6e 65 20 64 65 mpile-file-opts.'())..(define.de
0ee0 66 61 75 6c 74 2d 77 61 72 6e 69 6e 67 73 20 27 28 61 72 69 74 79 2d 6d 69 73 6d 61 74 63 68 20 fault-warnings.'(arity-mismatch.
0f00 75 6e 62 6f 75 6e 64 2d 76 61 72 69 61 62 6c 65 20 66 6f 72 6d 61 74 29 29 0a 28 64 65 66 69 6e unbound-variable.format)).(defin
0f20 65 20 76 65 72 62 6f 73 65 2d 77 61 72 6e 69 6e 67 73 20 60 28 75 6e 75 73 65 64 2d 76 61 72 69 e.verbose-warnings.`(unused-vari
0f40 61 62 6c 65 20 2c 40 64 65 66 61 75 6c 74 2d 77 61 72 6e 69 6e 67 73 29 29 0a 0a 28 64 65 66 69 able.,@default-warnings))..(defi
0f60 6e 65 20 28 67 65 3a 73 65 74 2d 77 61 72 6e 69 6e 67 73 20 77 6c 29 0a 20 20 28 6c 65 74 2a 20 ne.(ge:set-warnings.wl)...(let*.
0f80 28 28 77 61 72 6e 73 20 28 63 6f 6e 64 20 28 28 6c 69 73 74 3f 20 77 6c 29 20 77 6c 29 0a 20 20 ((warns.(cond.((list?.wl).wl)...
0fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 3f 20 77 6c ....................((symbol?.wl
0fc0 29 20 28 63 61 73 65 20 77 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).(case.wl......................
0fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 6e 65 20 6e 69 6c 20 6e 75 6c 6c .................((none.nil.null
1000 29 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).'())..........................
1020 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 64 69 75 6d 20 64 65 66 61 75 6c 74 29 20 64 .............((medium.default).d
1040 65 66 61 75 6c 74 2d 77 61 72 6e 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 efault-warnings)................
1060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 68 69 67 68 20 76 65 .......................((high.ve
1080 72 62 6f 73 65 29 20 76 65 72 62 6f 73 65 2d 77 61 72 6e 69 6e 67 73 29 0a 20 20 20 20 20 20 20 rbose).verbose-warnings)........
10a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
10c0 65 6c 73 65 20 27 28 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 else.'()))).....................
10e0 20 20 28 65 6c 73 65 20 27 28 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 77 61 72 6e 73 20 ..(else.'())))..........(fwarns.
1100 28 69 66 20 28 6d 65 6d 71 20 27 75 6e 75 73 65 64 2d 76 61 72 69 61 62 6c 65 20 77 61 72 6e 73 (if.(memq.'unused-variable.warns
1120 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 27 75 6e )......................(cons.'un
1140 75 73 65 64 2d 74 6f 70 6c 65 76 65 6c 20 77 61 72 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 used-toplevel.warns)............
1160 20 20 20 20 20 20 20 20 20 20 77 61 72 6e 73 29 29 29 0a 20 20 20 20 28 73 65 74 21 20 63 6f 6d ..........warns))).....(set!.com
1180 70 69 6c 65 2d 6f 70 74 73 20 28 6c 69 73 74 20 23 3a 77 61 72 6e 69 6e 67 73 20 77 61 72 6e 73 pile-opts.(list.#:warnings.warns
11a0 29 29 0a 20 20 20 20 28 73 65 74 21 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 70 74 73 20 28 )).....(set!.compile-file-opts.(
11c0 6c 69 73 74 20 23 3a 77 61 72 6e 69 6e 67 73 20 66 77 61 72 6e 73 29 29 29 29 0a 0a 28 67 65 3a list.#:warnings.fwarns))))..(ge:
11e0 73 65 74 2d 77 61 72 6e 69 6e 67 73 20 27 6e 6f 6e 65 29 0a 0a 28 64 65 66 69 6e 65 20 63 6f 6e set-warnings.'none)..(define.con
1200 74 65 78 74 2d 70 6f 72 74 20 23 66 29 0a 0a 28 64 65 66 69 6e 65 20 73 77 69 74 63 68 65 72 2d text-port.#f)..(define.switcher-
1220 70 6f 72 74 0a 20 20 28 6d 61 6b 65 2d 73 6f 66 74 2d 70 6f 72 74 20 28 76 65 63 74 6f 72 20 28 port...(make-soft-port.(vector.(
1240 6c 61 6d 62 64 61 20 28 63 29 20 28 70 75 74 2d 63 68 61 72 20 63 20 63 6f 6e 74 65 78 74 2d 70 lambda.(c).(put-char.c.context-p
1260 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ort))...........................
1280 28 6c 61 6d 62 64 61 20 28 73 29 20 28 64 69 73 70 6c 61 79 20 73 20 63 6f 6e 74 65 78 74 2d 70 (lambda.(s).(display.s.context-p
12a0 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ort))...........................
12c0 28 6c 61 6d 62 64 61 20 28 29 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 20 63 6f 6e 74 65 78 74 (lambda.().(force-output.context
12e0 2d 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -port)).........................
1300 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 6c 6f 73 65 2d 70 6f 72 74 20 63 6f 6e 74 65 78 74 ..(lambda.().(close-port.context
1320 2d 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -port)).........................
1340 20 20 28 6c 61 6d 62 64 61 20 28 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..(lambda.().0))................
1360 20 20 20 22 77 22 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 61 6c 6c 2d 77 69 74 68 2d 73 77 69 ..."w"))..(define.(call-with-swi
1380 74 63 68 65 72 2d 6f 75 74 70 75 74 20 6c 6f 6e 67 2d 70 6f 72 74 20 74 68 75 6e 6b 29 0a 20 20 tcher-output.long-port.thunk)...
13a0 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 75 74 2d 70 (let.((current.(current-output-p
13c0 6f 72 74 29 29 29 0a 20 20 20 20 28 70 61 72 61 6d 65 74 65 72 69 7a 65 20 28 28 63 75 72 72 65 ort))).....(parameterize.((curre
13e0 6e 74 2d 6f 75 74 70 75 74 2d 70 6f 72 74 20 73 77 69 74 63 68 65 72 2d 70 6f 72 74 29 29 0a 20 nt-output-port.switcher-port))..
1400 20 20 20 20 20 28 64 79 6e 61 6d 69 63 2d 77 69 6e 64 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 .....(dynamic-wind.........(lamb
1420 64 61 20 28 29 20 28 73 65 74 21 20 63 6f 6e 74 65 78 74 2d 70 6f 72 74 20 63 75 72 72 65 6e 74 da.().(set!.context-port.current
1440 29 29 0a 20 20 20 20 20 20 20 20 74 68 75 6e 6b 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 )).........thunk.........(lambda
1460 20 28 29 20 28 73 65 74 21 20 63 6f 6e 74 65 78 74 2d 70 6f 72 74 20 6c 6f 6e 67 2d 70 6f 72 74 .().(set!.context-port.long-port
1480 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 61 6c 6c 2d 77 69 74 68 2d 72 65 73 75 6c ))))))..(define.(call-with-resul
14a0 74 20 74 68 75 6e 6b 29 0a 20 20 28 6c 65 74 72 65 63 2a 20 28 28 72 65 73 75 6c 74 20 23 66 29 t.thunk)...(letrec*.((result.#f)
14c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6e 67 2d 70 6f 72 74 20 28 63 75 72 72 65 6e 74 .............(long-port.(current
14e0 2d 6f 75 74 70 75 74 2d 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d -output-port)).............(run-
1500 74 68 75 6e 6b 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 61 6c 6c 2d 77 69 74 68 2d 73 77 69 74 thunk.(lambda.().(call-with-swit
1520 63 68 65 72 2d 6f 75 74 70 75 74 20 6c 6f 6e 67 2d 70 6f 72 74 20 74 68 75 6e 6b 29 29 29 0a 20 cher-output.long-port.thunk)))..
1540 20 20 20 20 20 20 20 20 20 20 20 28 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ...........(output..............
1560 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 (with-output-to-string..........
1580 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ......(lambda.()................
15a0 20 20 28 77 69 74 68 2d 66 6c 75 69 64 73 20 28 28 2a 63 75 72 72 65 6e 74 2d 77 61 72 6e 69 6e ..(with-fluids.((*current-warnin
15c0 67 2d 70 6f 72 74 2a 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 75 74 2d 70 6f 72 74 29 29 0a 20 g-port*.(current-output-port))..
15e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a ..............................(*
1600 63 75 72 72 65 6e 74 2d 77 61 72 6e 69 6e 67 2d 70 72 65 66 69 78 2a 20 22 22 29 29 0a 20 20 20 current-warning-prefix*.""))....
1620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 65 72 72 6f 72 2d 74 6f 2d 70 ................(with-error-to-p
1640 6f 72 74 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 75 74 2d 70 6f 72 74 29 0a 20 20 20 20 20 20 ort.(current-output-port).......
1660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 ...............(lambda.().......
1680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 73 75 6c 74 20 28 6d .................(set!.result.(m
16a0 61 70 20 6f 62 6a 65 63 74 2d 3e 73 74 72 69 6e 67 20 28 72 75 6e 2d 74 68 75 6e 6b 29 29 29 29 ap.object->string.(run-thunk))))
16c0 29 29 29 29 29 29 0a 20 20 20 20 28 77 72 69 74 65 20 60 28 28 72 65 73 75 6c 74 20 2c 40 72 65 )))))).....(write.`((result.,@re
16e0 73 75 6c 74 29 20 28 6f 75 74 70 75 74 20 2e 20 2c 6f 75 74 70 75 74 29 29 29 0a 20 20 20 20 28 sult).(output...,output))).....(
1700 6e 65 77 6c 69 6e 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65 3a 63 6f 6d 70 69 6c 65 20 newline)))..(define.(ge:compile.
1720 66 6f 72 6d 20 6d 6f 64 75 6c 65 29 0a 20 20 28 63 6f 6d 70 69 6c 65 2a 20 66 6f 72 6d 20 6d 6f form.module)...(compile*.form.mo
1740 64 75 6c 65 20 63 6f 6d 70 69 6c 65 2d 6f 70 74 73 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 6f dule.compile-opts))..(define.(co
1760 6d 70 69 6c 65 2a 20 66 6f 72 6d 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 6f 70 74 73 29 0a 20 20 mpile*.form.module-name.opts)...
1780 28 6c 65 74 2a 20 28 28 6d 6f 64 75 6c 65 20 28 6f 72 20 28 66 69 6e 64 2d 6d 6f 64 75 6c 65 20 (let*.((module.(or.(find-module.
17a0 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 20 28 63 75 72 72 65 6e 74 2d 6d 6f 64 75 6c 65 29 29 29 0a module-name).(current-module))).
17c0 20 20 20 20 20 20 20 20 20 28 65 76 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 .........(ev.(lambda.().........
17e0 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 76 61 6c 75 65 73 0a 20 20 20 20 20 20 20 .......(call-with-values........
1800 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 ............(lambda.()..........
1820 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 6f 20 28 63 6f 6e 64 2d 65 78 70 ............(let*.((to.(cond-exp
1840 61 6e 64 20 28 67 75 69 6c 65 2d 32 2e 32 20 27 62 79 74 65 63 6f 64 65 29 0a 20 20 20 20 20 20 and.(guile-2.2.'bytecode).......
1860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1880 20 20 20 20 20 20 20 28 65 6c 73 65 20 27 6f 62 6a 63 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 .......(else.'objcode)))........
18a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 66 20 28 63 6f 6e 64 2d 65 .....................(cf.(cond-e
18c0 78 70 61 6e 64 20 28 67 75 69 6c 65 2d 32 2e 32 20 6c 6f 61 64 2d 74 68 75 6e 6b 2d 66 72 6f 6d xpand.(guile-2.2.load-thunk-from
18e0 2d 6d 65 6d 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -memory)........................
1900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 6d 61 6b 65 ......................(else.make
1920 2d 70 72 6f 67 72 61 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -program))).....................
1940 20 20 20 20 20 20 20 20 28 6f 20 28 63 6f 6d 70 69 6c 65 20 66 6f 72 6d 0a 20 20 20 20 20 20 20 ........(o.(compile.form........
1960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1980 20 23 3a 74 6f 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .#:to.to........................
19a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 65 6e 76 20 6d 6f 64 75 6c 65 0a 20 20 .................#:env.module...
19c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
19e0 20 20 20 20 20 20 23 3a 6f 70 74 73 20 6f 70 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ......#:opts.opts)).............
1a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 75 6e 6b 20 28 63 66 20 6f 29 29 29 0a ................(thunk.(cf.o))).
1a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d 73 74 .......................(start-st
1a40 61 63 6b 20 27 67 65 69 73 65 72 2d 65 76 61 6c 75 61 74 69 6f 6e 2d 73 74 61 63 6b 0a 20 20 20 ack.'geiser-evaluation-stack....
1a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1a80 20 28 65 76 61 6c 20 60 28 2c 74 68 75 6e 6b 29 20 6d 6f 64 75 6c 65 29 29 29 29 0a 20 20 20 20 .(eval.`(,thunk).module)))).....
1aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 76 73 20 76 73 29 29 29 29 29 0a .............(lambda.vs.vs))))).
1ac0 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 72 65 73 75 6c 74 20 65 76 29 29 29 0a 0a 28 64 65 ....(call-with-result.ev)))..(de
1ae0 66 69 6e 65 20 28 67 65 3a 65 76 61 6c 20 66 6f 72 6d 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 0a fine.(ge:eval.form.module-name).
1b00 20 20 28 6c 65 74 2a 20 28 28 6d 6f 64 75 6c 65 20 28 6f 72 20 28 66 69 6e 64 2d 6d 6f 64 75 6c ..(let*.((module.(or.(find-modul
1b20 65 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 20 28 63 75 72 72 65 6e 74 2d 6d 6f 64 75 6c 65 29 29 e.module-name).(current-module))
1b40 29 0a 20 20 20 20 20 20 20 20 20 28 65 76 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 )..........(ev.(lambda.().......
1b60 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 76 61 6c 75 65 73 0a 20 20 20 20 20 .........(call-with-values......
1b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 65 76 61 6c 20 66 ..............(lambda.().(eval.f
1ba0 6f 72 6d 20 6d 6f 64 75 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c orm.module))..................(l
1bc0 61 6d 62 64 61 20 76 73 20 76 73 29 29 29 29 29 0a 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d ambda.vs.vs))))).....(call-with-
1be0 72 65 73 75 6c 74 20 65 76 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65 3a 63 6f 6d 70 69 6c result.ev)))..(define.(ge:compil
1c00 65 2d 66 69 6c 65 20 70 61 74 68 29 0a 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 72 65 73 75 6c 74 e-file.path)...(call-with-result
1c20 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 63 72 20 28 63 ....(lambda.()......(let.((cr.(c
1c40 6f 6d 70 69 6c 65 2d 66 69 6c 65 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ompile-file.path................
1c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 63 61 6e 6f 6e 69 63 61 6c 69 7a 61 74 69 6f 6e ..............#:canonicalization
1c80 20 27 61 62 73 6f 6c 75 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .'absolute......................
1ca0 20 20 20 20 20 20 20 20 23 3a 6f 70 74 73 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 70 74 73 ........#:opts.compile-file-opts
1cc0 29 29 29 0a 20 20 20 20 20 20 20 28 61 6e 64 20 63 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 )))........(and.cr.............(
1ce0 6c 69 73 74 20 28 6f 62 6a 65 63 74 2d 3e 73 74 72 69 6e 67 20 28 73 61 76 65 2d 6d 6f 64 75 6c list.(object->string.(save-modul
1d00 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-excursion.....................
1d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 6c 6f 61 64 2d ...............(lambda.().(load-
1d40 63 6f 6d 70 69 6c 65 64 20 63 72 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 67 compiled.cr))))))))))..(define.g
1d60 65 3a 6c 6f 61 64 2d 66 69 6c 65 20 67 65 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 29 0a 0a 28 64 e:load-file.ge:compile-file)..(d
1d80 65 66 69 6e 65 20 28 67 65 3a 6d 61 63 72 6f 65 78 70 61 6e 64 20 66 6f 72 6d 20 2e 20 61 6c 6c efine.(ge:macroexpand.form...all
1da0 29 0a 20 20 28 6c 65 74 20 28 28 61 6c 6c 20 28 61 6e 64 20 28 6e 6f 74 20 28 6e 75 6c 6c 3f 20 )...(let.((all.(and.(not.(null?.
1dc0 61 6c 6c 29 29 20 28 63 61 72 20 61 6c 6c 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 6f 75 74 all)).(car.all)))).....(with-out
1de0 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 put-to-string.......(lambda.()..
1e00 20 20 20 20 20 20 20 28 70 72 65 74 74 79 2d 70 72 69 6e 74 20 28 74 72 65 65 2d 69 6c 2d 3e 73 .......(pretty-print.(tree-il->s
1e20 63 68 65 6d 65 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 20 66 6f 72 6d 29 29 29 29 29 29 29 0a 0a cheme.(macroexpand.form)))))))..
1e40 28 64 65 66 69 6e 65 20 28 67 65 3a 61 64 64 2d 74 6f 2d 6c 6f 61 64 2d 70 61 74 68 20 64 69 72 (define.(ge:add-to-load-path.dir
1e60 29 0a 20 20 28 61 6e 64 20 28 66 69 6c 65 2d 69 73 2d 64 69 72 65 63 74 6f 72 79 3f 20 64 69 72 )...(and.(file-is-directory?.dir
1e80 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 2d 6c 70 20 28 6d 65 6d 62 65 72 20 64 69 )........(let.((in-lp.(member.di
1ea0 72 20 25 6c 6f 61 64 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 2d r.%load-path))..............(in-
1ec0 63 6c 70 20 28 6d 65 6d 62 65 72 20 64 69 72 20 25 6c 6f 61 64 2d 63 6f 6d 70 69 6c 65 64 2d 70 clp.(member.dir.%load-compiled-p
1ee0 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 69 6e 2d 6c 70 ath)))..........(when.(not.in-lp
1f00 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21 20 25 6c 6f 61 64 2d 70 61 74 68 20 28 63 )............(set!.%load-path.(c
1f20 6f 6e 73 20 64 69 72 20 25 6c 6f 61 64 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 ons.dir.%load-path)))..........(
1f40 77 68 65 6e 20 28 6e 6f 74 20 69 6e 2d 63 6c 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 when.(not.in-clp)............(se
1f60 74 21 20 25 6c 6f 61 64 2d 63 6f 6d 70 69 6c 65 64 2d 70 61 74 68 20 28 63 6f 6e 73 20 64 69 72 t!.%load-compiled-path.(cons.dir
1f80 20 25 6c 6f 61 64 2d 63 6f 6d 70 69 6c 65 64 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 .%load-compiled-path))).........
1fa0 20 28 6f 72 20 69 6e 2d 6c 70 20 69 6e 2d 63 6c 70 29 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 .(or.in-lp.in-clp))))...........
1fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2000 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 73 72 63 2f 67 65 69 73 65 72 2f 78 geiser-guile-0.28.1/src/geiser/x
2020 72 65 66 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ref.scm.........................
2040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2060 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
2080 30 30 30 35 35 32 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 33 35 30 00 20 30 00 00 00 0005527.00000000000.016350..0...
20a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2100 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
2120 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
2140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2200 3b 3b 3b 20 78 72 65 66 2e 73 63 6d 20 2d 2d 20 63 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 69 6e ;;;.xref.scm.--.cross-referencin
2220 67 20 75 74 69 6c 69 74 69 65 73 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 g.utilities..;;.Copyright.(C).20
2240 30 39 2c 20 32 30 31 30 2c 20 32 30 32 30 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 09,.2010,.2020.Jose.Antonio.Orte
2260 67 61 20 52 75 69 7a 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 ga.Ruiz..;;.This.program.is.free
2280 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 .software;.you.can.redistribute.
22a0 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 it.and/or.;;.modify.it.under.the
22c0 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e .terms.of.the.Modified.BSD.Licen
22e0 73 65 2e 20 59 6f 75 20 73 68 6f 75 6c 64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 se..You.should.;;.have.received.
2300 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 a.copy.of.the.license.along.with
2320 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 .this.program..If.;;.not,.see.<h
2340 74 74 70 3a 2f 2f 77 77 77 2e 78 66 72 65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 ttp://www.xfree86.org/3.3.6/COPY
2360 52 49 47 48 54 32 2e 68 74 6d 6c 23 35 3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 RIGHT2.html#5>...;;.Start.date:.
2380 4d 6f 6e 20 4d 61 72 20 30 32 2c 20 32 30 30 39 20 30 32 3a 33 37 0a 0a 28 64 65 66 69 6e 65 2d Mon.Mar.02,.2009.02:37..(define-
23a0 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 78 72 65 66 29 0a 20 20 23 3a 65 78 70 6f 72 74 20 module.(geiser.xref)...#:export.
23c0 28 73 79 6d 62 6f 6c 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 65 6e (symbol-location.............gen
23e0 65 72 69 63 2d 6d 65 74 68 6f 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 65 72 73 eric-methods.............callers
2400 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 65 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 .............callees............
2420 20 66 69 6e 64 2d 66 69 6c 65 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 .find-file)...#:use-module.(geis
2440 65 72 20 75 74 69 6c 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 er.utils)...#:use-module.(geiser
2460 20 6d 6f 64 75 6c 65 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 .modules)...#:use-module.(geiser
2480 20 64 6f 63 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 6f 6f 70 20 67 6f 6f 70 73 29 .doc)...#:use-module.(oop.goops)
24a0 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 78 72 65 66 29 0a 20 20 ...#:use-module.(system.xref)...
24c0 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 70 72 6f 67 72 61 6d 29 #:use-module.(system.vm.program)
24e0 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 79 6d 62 6f 6c 2d 6c 6f 63 61 74 69 6f 6e 20 73 79 6d 29 )..(define.(symbol-location.sym)
2500 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a 20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 73 79 ...(let.((obj.(symbol->object.sy
2520 6d 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 70 72 6f 67 72 61 6d 3f 20 6f 62 6a 29 20 28 m))).....(cond.((program?.obj).(
2540 70 72 6f 67 72 61 6d 2d 6c 6f 63 61 74 69 6f 6e 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 program-location.obj))..........
2560 20 28 28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 20 73 79 6d 29 20 3d 3e 20 6d 6f 64 75 6c 65 2d .((symbol-module.sym).=>.module-
2580 6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 27 28 29 29 29 29 location)...........(else.'())))
25a0 29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65 6e 65 72 69 63 2d 6d 65 74 68 6f 64 73 20 73 79 6d 29 )..(define.(generic-methods.sym)
25c0 0a 20 20 28 6c 65 74 2a 20 28 28 67 65 6e 20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 73 ...(let*.((gen.(symbol->object.s
25e0 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 74 68 6f 64 73 20 28 69 66 20 28 69 73 2d 61 ym))..........(methods.(if.(is-a
2600 3f 20 67 65 6e 20 3c 67 65 6e 65 72 69 63 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ?.gen.<generic>)................
2620 20 20 20 20 20 20 20 28 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 73 .......(generic-function-methods
2640 20 67 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 29 29 .gen).......................'())
2660 29 29 0a 20 20 20 20 28 66 69 6c 74 65 72 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6e 6f 74 20 )).....(filter.(lambda.(x).(not.
2680 28 6e 75 6c 6c 3f 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 28 6c 61 (null?.x))).............(map.(la
26a0 6d 62 64 61 20 28 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b mbda.(m)....................(mak
26c0 65 2d 78 72 65 66 20 28 6d 65 74 68 6f 64 2d 70 72 6f 63 65 64 75 72 65 20 6d 29 20 73 79 6d 20 e-xref.(method-procedure.m).sym.
26e0 28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 (symbol-module.sym)))...........
2700 20 20 20 20 20 20 20 6d 65 74 68 6f 64 73 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b .......methods))))..(define.(mak
2720 65 2d 78 72 65 66 20 70 72 6f 63 20 6e 61 6d 65 20 6d 6f 64 75 6c 65 29 0a 20 20 28 61 6e 64 20 e-xref.proc.name.module)...(and.
2740 70 72 6f 63 0a 20 20 20 20 20 20 20 60 28 28 22 6c 6f 63 61 74 69 6f 6e 22 20 2e 20 2c 28 6f 72 proc........`(("location"...,(or
2760 20 28 70 72 6f 67 72 61 6d 2d 6c 6f 63 61 74 69 6f 6e 20 70 72 6f 63 29 20 28 73 79 6d 62 6f 6c .(program-location.proc).(symbol
2780 2d 6c 6f 63 61 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 22 73 69 67 -location.name)))..........("sig
27a0 6e 61 74 75 72 65 22 20 2e 20 2c 28 6f 62 6a 65 63 74 2d 73 69 67 6e 61 74 75 72 65 20 6e 61 6d nature"...,(object-signature.nam
27c0 65 20 70 72 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 28 22 6d 6f 64 75 6c 65 22 20 2e 20 2c 28 e.proc))..........("module"...,(
27e0 6f 72 20 6d 6f 64 75 6c 65 20 27 28 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f or.module.'())))))..(define.(pro
2800 67 72 61 6d 2d 6c 6f 63 61 74 69 6f 6e 20 70 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 gram-location.p)...(cond.((not.(
2820 70 72 6f 67 72 61 6d 3f 20 70 29 29 20 23 66 29 0a 20 20 20 20 20 20 20 20 28 28 70 72 6f 67 72 program?.p)).#f).........((progr
2840 61 6d 2d 73 6f 75 72 63 65 20 70 20 30 29 20 3d 3e 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 am-source.p.0).=>..........(lamb
2860 64 61 20 28 73 29 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 70 72 6f 67 72 61 6d 2d 70 da.(s).(make-location.(program-p
2880 61 74 68 20 70 29 20 28 73 6f 75 72 63 65 3a 6c 69 6e 65 20 73 29 29 29 29 0a 20 20 20 20 20 20 ath.p).(source:line.s)))).......
28a0 20 20 28 28 70 72 6f 67 72 61 6d 2d 70 61 74 68 20 70 29 20 3d 3e 20 28 6c 61 6d 62 64 61 20 28 ..((program-path.p).=>.(lambda.(
28c0 73 29 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 20 23 66 29 29 29 0a 20 20 20 20 20 20 s).(make-location.s.#f))).......
28e0 20 20 28 65 6c 73 65 20 23 66 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f 67 72 61 6d 2d ..(else.#f)))..(define.(program-
2900 70 61 74 68 20 70 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 6f 64 20 28 70 72 6f 67 72 61 6d 2d 6d path.p)...(let*.((mod.(program-m
2920 6f 64 75 6c 65 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 61 6e 64 20 28 6d odule.p))..........(name.(and.(m
2940 6f 64 75 6c 65 3f 20 6d 6f 64 29 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 6d 6f 64 29 29 29 29 odule?.mod).(module-name.mod))))
2960 0a 20 20 20 20 28 61 6e 64 20 6e 61 6d 65 20 28 6d 6f 64 75 6c 65 2d 70 61 74 68 20 6e 61 6d 65 .....(and.name.(module-path.name
2980 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f 63 65 64 75 72 65 2d 78 72 65 66 20 70 72 ))))..(define.(procedure-xref.pr
29a0 6f 63 20 2e 20 6d 6f 64 2d 6e 61 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 63 2d 6e 61 oc...mod-name)...(let*.((proc-na
29c0 6d 65 20 28 6f 72 20 28 70 72 6f 63 65 64 75 72 65 2d 6e 61 6d 65 20 70 72 6f 63 29 20 27 3c 61 me.(or.(procedure-name.proc).'<a
29e0 6e 6f 6e 79 6d 6f 75 73 3e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 6f 64 2d 6e 61 6d 65 20 28 nonymous>))..........(mod-name.(
2a00 69 66 20 28 6e 75 6c 6c 3f 20 6d 6f 64 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 if.(null?.mod-name).............
2a20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 20 70 72 6f 63 2d 6e ...........(symbol-module.proc-n
2a40 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 ame)........................(car
2a60 20 6d 6f 64 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 6d 61 6b 65 2d 78 72 65 66 20 70 72 6f .mod-name)))).....(make-xref.pro
2a80 63 20 70 72 6f 63 2d 6e 61 6d 65 20 6d 6f 64 2d 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 c.proc-name.mod-name)))..(define
2aa0 20 28 63 61 6c 6c 65 72 73 20 73 79 6d 29 0a 20 20 28 6c 65 74 20 28 28 6d 6f 64 20 28 73 79 6d .(callers.sym)...(let.((mod.(sym
2ac0 62 6f 6c 2d 6d 6f 64 75 6c 65 20 73 79 6d 20 23 74 29 29 29 0a 20 20 20 20 28 61 6e 64 20 6d 6f bol-module.sym.#t))).....(and.mo
2ae0 64 0a 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 61 70 70 65 6e 64 20 28 6d 61 70 20 28 6c d..........(apply.append.(map.(l
2b00 61 6d 62 64 61 20 28 70 72 6f 63 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ambda.(procs)...................
2b20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 70 72 6f 63 29 0a ............(map.(lambda.(proc).
2b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2b60 20 20 20 20 20 28 70 72 6f 63 65 64 75 72 65 2d 78 72 65 66 20 70 72 6f 63 20 28 63 61 72 20 70 .....(procedure-xref.proc.(car.p
2b80 72 6f 63 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rocs))).........................
2ba0 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 70 72 6f 63 73 29 29 29 0a 20 20 20 20 20 20 20 ...........(cdr.procs)))........
2bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 64 75 72 65 2d .....................(procedure-
2be0 63 61 6c 6c 65 72 73 20 28 63 6f 6e 73 20 6d 6f 64 20 73 79 6d 29 29 29 29 29 29 29 0a 0a 28 64 callers.(cons.mod.sym)))))))..(d
2c00 65 66 69 6e 65 20 28 63 61 6c 6c 65 65 73 20 73 79 6d 29 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a efine.(callees.sym)...(let.((obj
2c20 20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 73 79 6d 29 29 29 0a 20 20 20 20 28 61 6e 64 .(symbol->object.sym))).....(and
2c40 20 6f 62 6a 0a 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 70 72 6f 63 65 64 75 72 65 2d 78 72 65 .obj..........(map.procedure-xre
2c60 66 20 28 70 72 6f 63 65 64 75 72 65 2d 63 61 6c 6c 65 65 73 20 6f 62 6a 29 29 29 29 29 0a 0a 28 f.(procedure-callees.obj)))))..(
2c80 64 65 66 69 6e 65 20 28 66 69 6e 64 2d 66 69 6c 65 20 70 61 74 68 29 0a 20 20 28 6c 65 74 20 6c define.(find-file.path)...(let.l
2ca0 6f 6f 70 20 28 28 64 69 72 73 20 25 6c 6f 61 64 2d 70 61 74 68 29 29 0a 20 20 20 20 28 69 66 20 oop.((dirs.%load-path)).....(if.
2cc0 28 6e 75 6c 6c 3f 20 64 69 72 73 29 20 23 66 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 (null?.dirs).#f.........(let.((c
2ce0 61 6e 64 69 64 61 74 65 20 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 28 63 61 72 20 64 69 72 andidate.(string-append.(car.dir
2d00 73 29 20 22 2f 22 20 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 69 s)."/".path)))...........(if.(fi
2d20 6c 65 2d 65 78 69 73 74 73 3f 20 63 61 6e 64 69 64 61 74 65 29 20 63 61 6e 64 69 64 61 74 65 20 le-exists?.candidate).candidate.
2d40 28 6c 6f 6f 70 20 28 63 64 72 20 64 69 72 73 29 29 29 29 29 29 29 0a 00 00 00 00 00 00 00 00 00 (loop.(cdr.dirs)))))))..........
2d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e00 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 73 72 63 2f 67 65 69 73 65 72 2f 64 geiser-guile-0.28.1/src/geiser/d
2e20 6f 63 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 oc.scm..........................
2e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2e60 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
2e80 30 30 32 32 37 33 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 35 30 00 20 30 00 00 00 0022734.00000000000.016150..0...
2ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f00 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
2f20 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
2f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
2fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3000 3b 3b 3b 20 64 6f 63 2e 73 63 6d 20 2d 2d 20 70 72 6f 63 65 64 75 72 65 73 20 70 72 6f 76 69 64 ;;;.doc.scm.--.procedures.provid
3020 69 6e 67 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 6e 20 73 63 68 65 6d 65 20 6f 62 6a 65 ing.documentation.on.scheme.obje
3040 63 74 73 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 30 cts..;;.Copyright.(C).2009,.2010
3060 2c 20 32 30 31 38 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a ,.2018.Jose.Antonio.Ortega.Ruiz.
3080 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 .;;.This.program.is.free.softwar
30a0 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f e;.you.can.redistribute.it.and/o
30c0 72 0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f r.;;.modify.it.under.the.terms.o
30e0 66 20 74 68 65 20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e 73 65 2e 20 59 6f 75 20 f.the.Modified.BSD.License..You.
3100 73 68 6f 75 6c 64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f should.;;.have.received.a.copy.o
3120 66 20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 f.the.license.along.with.this.pr
3140 6f 67 72 61 6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 ogram..If.;;.not,.see.<http://ww
3160 77 2e 78 66 72 65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 52 49 47 48 54 32 2e 68 w.xfree86.org/3.3.6/COPYRIGHT2.h
3180 74 6d 6c 23 35 3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 53 75 6e 20 46 65 62 20 tml#5>...;;.Start.date:.Sun.Feb.
31a0 30 38 2c 20 32 30 30 39 20 31 38 3a 34 34 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c 65 20 28 08,.2009.18:44..(define-module.(
31c0 67 65 69 73 65 72 20 64 6f 63 29 0a 20 20 23 3a 65 78 70 6f 72 74 20 28 61 75 74 6f 64 6f 63 0a geiser.doc)...#:export.(autodoc.
31e0 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e ............symbol-documentation
3200 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 75 6c 65 2d 65 78 70 6f 72 74 73 0a 20 20 20 20 .............module-exports.....
3220 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 2d 73 69 67 6e 61 74 75 72 65 29 0a 20 20 23 3a 75 73 ........object-signature)...#:us
3240 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 75 74 69 6c 73 29 0a 20 20 23 3a 75 73 65 2d e-module.(geiser.utils)...#:use-
3260 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 29 0a 20 20 23 3a 75 73 65 2d module.(geiser.modules)...#:use-
3280 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 70 72 6f 67 72 61 6d 29 0a 20 20 23 3a 75 module.(system.vm.program)...#:u
32a0 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 64 65 62 75 67 29 0a 20 20 23 3a se-module.(system.vm.debug)...#:
32c0 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 73 65 73 73 69 6f 6e 29 0a 20 20 23 3a 75 use-module.(ice-9.session)...#:u
32e0 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 29 0a se-module.(ice-9.documentation).
3300 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 72 65 67 65 78 29 0a 20 20 23 ..#:use-module.(ice-9.regex)...#
3320 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 66 6f 72 6d 61 74 29 0a 20 20 23 3a 75 :use-module.(ice-9.format)...#:u
3340 73 65 2d 6d 6f 64 75 6c 65 20 28 6f 6f 70 20 67 6f 6f 70 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f se-module.(oop.goops)...#:use-mo
3360 64 75 6c 65 20 28 73 72 66 69 20 73 72 66 69 2d 31 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 61 75 dule.(srfi.srfi-1))..(define.(au
3380 74 6f 64 6f 63 20 69 64 73 29 0a 20 20 28 69 66 20 28 6e 6f 74 20 28 6c 69 73 74 3f 20 69 64 73 todoc.ids)...(if.(not.(list?.ids
33a0 29 29 0a 20 20 20 20 20 20 27 28 29 0a 20 20 20 20 20 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 )).......'().......(map.(lambda.
33c0 28 69 64 29 20 28 6f 72 20 28 61 75 74 6f 64 6f 63 2a 20 69 64 29 20 28 6c 69 73 74 20 69 64 29 (id).(or.(autodoc*.id).(list.id)
33e0 29 29 20 69 64 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 2a 20 28 61 75 74 6f 64 6f 63 2a 20 69 64 )).ids)))..(define*.(autodoc*.id
3400 29 0a 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 6f 62 6a 2d 61 72 67 73 20 28 73 79 6d 62 6f )...(let.((args.(obj-args.(symbo
3420 6c 2d 3e 6f 62 6a 65 63 74 20 69 64 29 29 29 29 0a 20 20 20 20 28 61 6e 64 20 61 72 67 73 0a 20 l->object.id)))).....(and.args..
3440 20 20 20 20 20 20 20 20 60 28 2c 40 28 73 69 67 6e 61 74 75 72 65 20 69 64 20 61 72 67 73 29 0a ........`(,@(signature.id.args).
3460 20 20 20 20 20 20 20 20 20 20 20 28 22 6d 6f 64 75 6c 65 22 20 2e 20 2c 28 73 79 6d 62 6f 6c 2d ...........("module"...,(symbol-
3480 6d 6f 64 75 6c 65 20 69 64 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6f 62 6a 65 63 74 module.id))))))..(define.(object
34a0 2d 73 69 67 6e 61 74 75 72 65 20 6e 61 6d 65 20 6f 62 6a 29 0a 20 20 28 6c 65 74 20 28 28 61 72 -signature.name.obj)...(let.((ar
34c0 67 73 20 28 6f 62 6a 2d 61 72 67 73 20 6f 62 6a 29 29 29 0a 20 20 20 20 28 61 6e 64 20 61 72 67 gs.(obj-args.obj))).....(and.arg
34e0 73 20 28 73 69 67 6e 61 74 75 72 65 20 6e 61 6d 65 20 61 72 67 73 29 29 29 29 0a 0a 28 64 65 66 s.(signature.name.args))))..(def
3500 69 6e 65 20 28 76 61 6c 75 65 2d 73 74 72 20 6f 62 6a 29 0a 20 20 28 66 6f 72 6d 61 74 20 23 66 ine.(value-str.obj)...(format.#f
3520 20 22 7e 3a 40 79 22 20 6f 62 6a 29 29 0a 0a 28 64 65 66 69 6e 65 2a 20 28 73 69 67 6e 61 74 75 ."~:@y".obj))..(define*.(signatu
3540 72 65 20 69 64 20 61 72 67 73 2d 6c 69 73 74 20 23 3a 6f 70 74 69 6f 6e 61 6c 20 28 64 65 74 61 re.id.args-list.#:optional.(deta
3560 69 6c 20 23 74 29 29 0a 20 20 28 64 65 66 69 6e 65 20 28 61 72 67 6c 73 74 20 61 72 67 73 20 6b il.#t))...(define.(arglst.args.k
3580 69 6e 64 29 0a 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 61 73 73 71 2d 72 65 66 20 61 ind).....(let.((args.(assq-ref.a
35a0 72 67 73 20 6b 69 6e 64 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6f 72 20 28 6e 6f rgs.kind))).......(cond.((or.(no
35c0 74 20 61 72 67 73 29 20 28 6e 75 6c 6c 3f 20 61 72 67 73 29 29 20 27 28 29 29 0a 20 20 20 20 20 t.args).(null?.args)).'())......
35e0 20 20 20 20 20 20 20 28 28 6c 69 73 74 3f 20 61 72 67 73 29 20 61 72 67 73 29 0a 20 20 20 20 20 .......((list?.args).args)......
3600 20 20 20 20 20 20 20 28 65 6c 73 65 20 28 6c 69 73 74 20 61 72 67 73 29 29 29 29 29 0a 20 20 28 .......(else.(list.args)))))...(
3620 64 65 66 69 6e 65 20 28 6d 6b 61 72 67 73 20 61 73 29 0a 20 20 20 20 60 28 28 22 72 65 71 75 69 define.(mkargs.as).....`(("requi
3640 72 65 64 22 20 2c 40 28 61 72 67 6c 73 74 20 61 73 20 27 72 65 71 75 69 72 65 64 29 29 0a 20 20 red".,@(arglst.as.'required))...
3660 20 20 20 20 28 22 6f 70 74 69 6f 6e 61 6c 22 20 2c 40 28 61 72 67 6c 73 74 20 61 73 20 27 6f 70 ....("optional".,@(arglst.as.'op
3680 74 69 6f 6e 61 6c 29 0a 20 20 20 20 20 20 20 2c 40 28 69 66 20 28 61 73 73 71 2d 72 65 66 20 61 tional)........,@(if.(assq-ref.a
36a0 73 20 27 72 65 73 74 29 20 28 6c 69 73 74 20 22 2e 2e 2e 22 29 20 27 28 29 29 29 0a 20 20 20 20 s.'rest).(list."...").'())).....
36c0 20 20 28 22 6b 65 79 22 20 2c 40 28 61 72 67 6c 73 74 20 61 73 20 27 6b 65 79 77 6f 72 64 29 29 ..("key".,@(arglst.as.'keyword))
36e0 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 61 72 67 73 2d 6c 69 73 74 20 28 6d 61 70 20 6d 6b 61 72 ))...(let*.((args-list.(map.mkar
3700 67 73 20 28 69 66 20 28 6c 69 73 74 3f 20 61 72 67 73 2d 6c 69 73 74 29 20 61 72 67 73 2d 6c 69 gs.(if.(list?.args-list).args-li
3720 73 74 20 27 28 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 20 28 61 6e 64 20 28 st.'())))..........(value.(and.(
3740 61 6e 64 20 64 65 74 61 69 6c 20 28 6e 75 6c 6c 3f 20 61 72 67 73 2d 6c 69 73 74 29 29 0a 20 20 and.detail.(null?.args-list))...
3760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 75 65 2d 73 74 72 20 28 73 ...................(value-str.(s
3780 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 69 64 29 29 29 29 29 0a 20 20 20 20 60 28 2c 69 64 20 ymbol->object.id))))).....`(,id.
37a0 28 22 61 72 67 73 22 20 2c 40 61 72 67 73 2d 6c 69 73 74 29 20 2c 40 28 69 66 20 76 61 6c 75 65 ("args".,@args-list).,@(if.value
37c0 20 60 28 28 22 76 61 6c 75 65 22 20 2e 20 2c 76 61 6c 75 65 29 29 20 27 28 29 29 29 29 29 0a 0a .`(("value"...,value)).'()))))..
37e0 28 64 65 66 69 6e 65 20 64 65 66 61 75 6c 74 2d 6d 61 63 72 6f 2d 61 72 67 73 20 27 28 28 28 72 (define.default-macro-args.'(((r
3800 65 71 75 69 72 65 64 20 2e 2e 2e 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 67 65 69 73 65 72 2d equired....))))..(define.geiser-
3820 61 72 67 73 2d 6b 65 79 20 28 67 65 6e 73 79 6d 20 22 67 65 69 73 65 72 2d 61 72 67 73 2d 6b 65 args-key.(gensym."geiser-args-ke
3840 79 2d 22 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6f 62 6a 2d 61 72 67 73 20 6f 62 6a 29 0a 20 20 y-"))..(define.(obj-args.obj)...
3860 28 63 6f 6e 64 20 28 28 6e 6f 74 20 6f 62 6a 29 20 23 66 29 0a 20 20 20 20 20 20 20 20 28 28 6f (cond.((not.obj).#f).........((o
3880 72 20 28 70 72 6f 63 65 64 75 72 65 3f 20 6f 62 6a 29 20 28 70 72 6f 67 72 61 6d 3f 20 6f 62 6a r.(procedure?.obj).(program?.obj
38a0 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 70 72 6f 63 65 64 75 72 65 2d 70 72 ))..........(cond.((procedure-pr
38c0 6f 70 65 72 74 79 20 6f 62 6a 20 67 65 69 73 65 72 2d 61 72 67 73 2d 6b 65 79 29 29 0a 20 20 20 operty.obj.geiser-args-key))....
38e0 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 72 67 75 6d 65 6e 74 73 20 6f 62 6a 29 20 3d 3e 0a ............((arguments.obj).=>.
3900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 61 72 67 73 29 0a 20 ................(lambda.(args)..
3920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 64 75 72 65 2d .................(set-procedure-
3940 70 72 6f 70 65 72 74 79 21 20 6f 62 6a 20 67 65 69 73 65 72 2d 61 72 67 73 2d 6b 65 79 20 61 72 property!.obj.geiser-args-key.ar
3960 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 29 0a 20 20 20 gs)...................args))....
3980 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 23 66 29 29 29 0a 20 20 20 20 20 20 20 20 ............(else.#f))).........
39a0 28 28 61 6e 64 20 28 6d 61 63 72 6f 3f 20 6f 62 6a 29 20 28 6d 61 63 72 6f 2d 74 72 61 6e 73 66 ((and.(macro?.obj).(macro-transf
39c0 6f 72 6d 65 72 20 6f 62 6a 29 29 20 3d 3e 20 6d 61 63 72 6f 2d 61 72 67 73 29 0a 20 20 20 20 20 ormer.obj)).=>.macro-args)......
39e0 20 20 20 28 28 6d 61 63 72 6f 3f 20 6f 62 6a 29 20 64 65 66 61 75 6c 74 2d 6d 61 63 72 6f 2d 61 ...((macro?.obj).default-macro-a
3a00 72 67 73 29 0a 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 27 76 61 72 69 61 62 6c 65 29 29 29 0a rgs).........(else.'variable))).
3a20 0a 28 64 65 66 69 6e 65 20 28 70 72 6f 67 72 61 6d 2d 61 72 69 74 69 65 73 20 70 72 6f 67 29 0a .(define.(program-arities.prog).
3a40 20 20 28 6c 65 74 20 28 28 61 64 64 72 73 20 28 70 72 6f 67 72 61 6d 2d 61 64 64 72 65 73 73 2d ..(let.((addrs.(program-address-
3a60 72 61 6e 67 65 20 70 72 6f 67 29 29 29 0a 20 20 20 20 28 61 6e 64 20 28 70 61 69 72 3f 20 61 64 range.prog))).....(and.(pair?.ad
3a80 64 72 73 29 20 28 66 69 6e 64 2d 70 72 6f 67 72 61 6d 2d 61 72 69 74 69 65 73 20 28 63 61 72 20 drs).(find-program-arities.(car.
3aa0 61 64 64 72 73 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 61 72 67 75 6d 65 6e 74 73 20 70 addrs)))))..(define.(arguments.p
3ac0 72 6f 63 29 0a 20 20 28 64 65 66 69 6e 65 20 28 70 2d 61 72 67 73 20 70 72 6f 67 29 0a 20 20 20 roc)...(define.(p-args.prog)....
3ae0 20 28 6c 65 74 20 28 28 61 73 20 28 6d 61 70 20 61 72 69 74 79 2d 61 72 67 75 6d 65 6e 74 73 2d .(let.((as.(map.arity-arguments-
3b00 61 6c 69 73 74 20 28 6f 72 20 28 70 72 6f 67 72 61 6d 2d 61 72 69 74 69 65 73 20 70 72 6f 67 29 alist.(or.(program-arities.prog)
3b20 20 27 28 29 29 29 29 29 0a 20 20 20 20 20 20 28 61 6e 64 20 28 6e 6f 74 20 28 6e 75 6c 6c 3f 20 .'())))).......(and.(not.(null?.
3b40 61 73 29 29 20 61 73 29 29 29 0a 20 20 28 64 65 66 69 6e 65 20 28 63 6c 69 73 74 20 66 29 20 28 as)).as)))...(define.(clist.f).(
3b60 6c 61 6d 62 64 61 20 28 78 29 20 28 6c 65 74 20 28 28 79 20 28 66 20 78 29 29 29 20 28 61 6e 64 lambda.(x).(let.((y.(f.x))).(and
3b80 20 79 20 28 6c 69 73 74 20 79 29 29 29 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 69 73 2d 61 3f 20 .y.(list.y)))))...(cond.((is-a?.
3ba0 70 72 6f 63 20 3c 67 65 6e 65 72 69 63 3e 29 20 28 67 65 6e 65 72 69 63 2d 61 72 67 73 20 70 72 proc.<generic>).(generic-args.pr
3bc0 6f 63 29 29 0a 20 20 20 20 20 20 20 20 28 28 64 6f 63 2d 3e 61 72 67 73 20 70 72 6f 63 29 20 3d oc)).........((doc->args.proc).=
3be0 3e 20 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 28 28 70 72 6f 63 65 64 75 72 65 2d 70 72 6f 70 >.list).........((procedure-prop
3c00 65 72 74 79 20 70 72 6f 63 20 27 61 72 67 6c 69 73 74 29 20 3d 3e 20 28 63 6c 69 73 74 20 61 72 erty.proc.'arglist).=>.(clist.ar
3c20 67 6c 69 73 74 2d 3e 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 28 28 70 72 6f 63 65 64 75 72 glist->args)).........((procedur
3c40 65 2d 73 6f 75 72 63 65 20 70 72 6f 63 29 20 3d 3e 20 28 63 6c 69 73 74 20 73 6f 75 72 63 65 2d e-source.proc).=>.(clist.source-
3c60 3e 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 70 72 6f 67 72 61 6d 3f 20 >args)).........((and.(program?.
3c80 70 72 6f 63 29 20 28 70 2d 61 72 67 73 20 70 72 6f 63 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 proc).(p-args.proc))).........((
3ca0 70 72 6f 63 65 64 75 72 65 2d 70 72 6f 70 65 72 74 79 20 70 72 6f 63 20 27 61 72 69 74 79 29 20 procedure-property.proc.'arity).
3cc0 3d 3e 20 28 63 6c 69 73 74 20 61 72 69 74 79 2d 3e 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 =>.(clist.arity->args)).........
3ce0 28 65 6c 73 65 20 23 66 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 6f 75 72 63 65 2d 3e 61 72 (else.#f)))..(define.(source->ar
3d00 67 73 20 73 72 63 29 0a 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 61 6c 73 20 28 63 61 64 72 20 73 gs.src)...(let.((formals.(cadr.s
3d20 72 63 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6c 69 73 74 3f 20 66 6f 72 6d 61 6c 73 29 rc))).....(cond.((list?.formals)
3d40 20 60 28 28 72 65 71 75 69 72 65 64 20 2e 20 2c 66 6f 72 6d 61 6c 73 29 29 29 0a 20 20 20 20 20 .`((required...,formals)))......
3d60 20 20 20 20 20 28 28 70 61 69 72 3f 20 66 6f 72 6d 61 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 .....((pair?.formals)...........
3d80 20 60 28 28 72 65 71 75 69 72 65 64 20 2e 20 2c 28 63 61 72 20 66 6f 72 6d 61 6c 73 29 29 20 28 .`((required...,(car.formals)).(
3da0 72 65 73 74 20 2e 20 2c 28 63 64 72 20 66 6f 72 6d 61 6c 73 29 29 29 29 0a 20 20 20 20 20 20 20 rest...,(cdr.formals))))........
3dc0 20 20 20 28 65 6c 73 65 20 23 66 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 61 63 72 6f 2d ...(else.#f))))..(define.(macro-
3de0 61 72 67 73 20 74 66 29 0a 20 20 28 64 65 66 69 6e 65 2a 20 28 63 6f 6c 6c 65 63 74 20 61 72 67 args.tf)...(define*.(collect.arg
3e00 73 20 23 3a 6f 70 74 69 6f 6e 61 6c 20 28 72 65 71 20 27 28 29 29 29 0a 20 20 20 20 28 63 6f 6e s.#:optional.(req.'())).....(con
3e20 64 20 28 28 6e 75 6c 6c 3f 20 61 72 67 73 29 20 28 61 72 67 6c 69 73 74 2d 3e 61 72 67 73 20 60 d.((null?.args).(arglist->args.`
3e40 28 2c 28 72 65 76 65 72 73 65 20 72 65 71 29 20 23 66 20 23 66 20 72 20 23 66 29 29 29 0a 20 20 (,(reverse.req).#f.#f.r.#f)))...
3e60 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 3f 20 61 72 67 73 29 20 28 61 72 67 6c 69 73 74 ........((symbol?.args).(arglist
3e80 2d 3e 61 72 67 73 20 60 28 2c 28 72 65 76 65 72 73 65 20 72 65 71 29 20 23 66 20 23 66 20 72 20 ->args.`(,(reverse.req).#f.#f.r.
3ea0 2c 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 70 61 69 72 3f 20 ,args)))...........((and.(pair?.
3ec0 61 72 67 73 29 20 28 73 79 6d 62 6f 6c 3f 20 28 63 61 72 20 61 72 67 73 29 29 29 0a 20 20 20 20 args).(symbol?.(car.args))).....
3ee0 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 20 28 63 64 72 20 61 72 67 73 29 20 28 63 6f 6e 73 .......(collect.(cdr.args).(cons
3f00 20 28 63 61 72 20 61 72 67 73 29 20 72 65 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 6c .(car.args).req)))...........(el
3f20 73 65 20 23 66 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 61 74 73 20 28 70 72 6f 63 65 64 75 se.#f)))...(let*.((pats.(procedu
3f40 72 65 2d 70 72 6f 70 65 72 74 79 20 74 66 20 27 70 61 74 74 65 72 6e 73 29 29 0a 20 20 20 20 20 re-property.tf.'patterns))......
3f60 20 20 20 20 28 61 72 67 73 20 28 61 6e 64 20 70 61 74 73 20 28 66 69 6c 74 65 72 2d 6d 61 70 20 ....(args.(and.pats.(filter-map.
3f80 63 6f 6c 6c 65 63 74 20 70 61 74 73 29 29 29 29 0a 20 20 20 20 28 6f 72 20 28 61 6e 64 20 61 72 collect.pats)))).....(or.(and.ar
3fa0 67 73 20 28 6e 6f 74 20 28 6e 75 6c 6c 3f 20 61 72 67 73 29 29 20 61 72 67 73 29 20 64 65 66 61 gs.(not.(null?.args)).args).defa
3fc0 75 6c 74 2d 6d 61 63 72 6f 2d 61 72 67 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 61 72 69 74 ult-macro-args)))..(define.(arit
3fe0 79 2d 3e 61 72 67 73 20 61 72 74 29 0a 20 20 28 64 65 66 69 6e 65 20 28 67 65 6e 2d 61 72 67 2d y->args.art)...(define.(gen-arg-
4000 6e 61 6d 65 73 20 63 6f 75 6e 74 29 0a 20 20 20 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 78 names.count).....(map.(lambda.(x
4020 29 20 27 5f 29 20 28 69 6f 74 61 20 28 6d 61 78 20 63 6f 75 6e 74 20 30 29 29 29 29 0a 20 20 28 ).'_).(iota.(max.count.0))))...(
4040 6c 65 74 20 28 28 72 65 71 20 28 63 61 72 20 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 28 6f 70 let.((req.(car.art)).........(op
4060 74 20 28 63 61 64 72 20 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 73 74 20 28 63 61 64 t.(cadr.art)).........(rest.(cad
4080 64 72 20 61 72 74 29 29 29 0a 20 20 20 20 60 28 2c 40 28 69 66 20 28 3e 20 72 65 71 20 30 29 0a dr.art))).....`(,@(if.(>.req.0).
40a0 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 27 72 65 71 75 69 72 65 ............(list.(cons.'require
40c0 64 20 28 67 65 6e 2d 61 72 67 2d 6e 61 6d 65 73 20 72 65 71 29 29 29 0a 20 20 20 20 20 20 20 20 d.(gen-arg-names.req))).........
40e0 20 20 20 20 27 28 29 29 0a 20 20 20 20 20 20 2c 40 28 69 66 20 28 3e 20 6f 70 74 20 30 29 0a 20 ....'()).......,@(if.(>.opt.0)..
4100 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 27 6f 70 74 69 6f 6e 61 6c ...........(list.(cons.'optional
4120 20 28 67 65 6e 2d 61 72 67 2d 6e 61 6d 65 73 20 6f 70 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 .(gen-arg-names.opt)))..........
4140 20 20 20 27 28 29 29 0a 20 20 20 20 20 20 2c 40 28 69 66 20 72 65 73 74 20 28 6c 69 73 74 20 28 ...'()).......,@(if.rest.(list.(
4160 63 6f 6e 73 20 27 72 65 73 74 20 27 72 65 73 74 29 29 20 27 28 29 29 29 29 29 0a 0a 28 64 65 66 cons.'rest.'rest)).'()))))..(def
4180 69 6e 65 20 28 61 72 67 6c 69 73 74 2d 3e 61 72 67 73 20 61 72 67 6c 69 73 74 29 0a 20 20 60 28 ine.(arglist->args.arglist)...`(
41a0 28 72 65 71 75 69 72 65 64 20 2e 20 2c 28 63 61 72 20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 (required...,(car.arglist)).....
41c0 28 6f 70 74 69 6f 6e 61 6c 20 2e 20 2c 28 63 61 64 72 20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 (optional...,(cadr.arglist))....
41e0 20 28 6b 65 79 77 6f 72 64 20 2e 20 2c 28 63 61 64 64 72 20 61 72 67 6c 69 73 74 29 29 0a 20 20 .(keyword...,(caddr.arglist))...
4200 20 20 28 72 65 73 74 20 2e 20 2c 28 63 61 72 20 28 63 64 64 64 64 72 20 61 72 67 6c 69 73 74 29 ..(rest...,(car.(cddddr.arglist)
4220 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 6f 63 2d 3e 61 72 67 73 20 70 72 6f 63 29 0a 20 ))))..(define.(doc->args.proc)..
4240 20 3b 3b 20 47 75 69 6c 65 20 32 2e 30 2e 39 2b 20 75 73 65 73 20 74 68 65 20 28 74 65 78 69 6e .;;.Guile.2.0.9+.uses.the.(texin
4260 66 6f 20 2e 2e 2e 29 20 6d 6f 64 75 6c 65 73 20 74 6f 20 70 72 6f 64 75 63 65 0a 20 20 3b 3b 20 fo....).modules.to.produce...;;.
4280 60 67 75 69 6c 65 2d 70 72 6f 63 65 64 75 72 65 73 2e 74 78 74 27 2c 20 61 6e 64 20 74 68 65 20 `guile-procedures.txt',.and.the.
42a0 6f 75 74 70 75 74 20 68 61 73 20 61 20 73 69 6e 67 6c 65 20 68 79 70 68 65 6e 2c 20 77 68 65 72 output.has.a.single.hyphen,.wher
42c0 65 61 73 0a 20 20 3b 3b 20 60 6d 61 6b 65 69 6e 66 6f 27 20 70 72 6f 64 75 63 65 73 20 74 77 6f eas...;;.`makeinfo'.produces.two
42e0 20 68 79 70 68 65 6e 73 2e 0a 20 20 28 64 65 66 69 6e 65 20 70 72 6f 63 2d 72 78 20 22 2d 2d 3f .hyphens....(define.proc-rx."--?
4300 20 53 63 68 65 6d 65 20 50 72 6f 63 65 64 75 72 65 3a 20 28 5b 5e 5b 5c 6e 5d 2b 29 5c 6e 22 29 .Scheme.Procedure:.([^[\n]+)\n")
4320 0a 20 20 28 64 65 66 69 6e 65 20 70 72 6f 63 2d 72 78 32 20 22 2d 2d 3f 20 53 63 68 65 6d 65 20 ...(define.proc-rx2."--?.Scheme.
4340 50 72 6f 63 65 64 75 72 65 3a 20 28 5b 5e 5b 5c 6e 5d 2b 5c 5c 5b 5b 5e 5c 6e 5d 2a 28 5c 6e 5b Procedure:.([^[\n]+\\[[^\n]*(\n[
4360 5e 5c 6e 5d 2b 5c 5c 5d 2b 29 3f 29 22 29 0a 20 20 28 6c 65 74 20 28 28 64 6f 63 20 28 6f 62 6a ^\n]+\\]+)?)")...(let.((doc.(obj
4380 65 63 74 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f 63 29 29 29 0a 20 20 20 20 28 61 ect-documentation.proc))).....(a
43a0 6e 64 20 64 6f 63 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 74 63 68 20 28 6f 72 nd.doc..........(let.((match.(or
43c0 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 70 72 6f 63 2d 72 78 20 64 6f 63 29 0a 20 20 20 20 .(string-match.proc-rx.doc).....
43e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 ......................(string-ma
4400 74 63 68 20 70 72 6f 63 2d 72 78 32 20 64 6f 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 tch.proc-rx2.doc))))............
4420 28 61 6e 64 20 6d 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 (and.match.................(pars
4440 65 2d 73 69 67 6e 61 74 75 72 65 2d 73 74 72 69 6e 67 20 28 6d 61 74 63 68 3a 73 75 62 73 74 72 e-signature-string.(match:substr
4460 69 6e 67 20 6d 61 74 63 68 20 31 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 61 72 ing.match.1)))))))..(define.(par
4480 73 65 2d 73 69 67 6e 61 74 75 72 65 2d 73 74 72 69 6e 67 20 73 74 72 29 0a 20 20 28 64 65 66 69 se-signature-string.str)...(defi
44a0 6e 65 20 6f 70 74 2d 61 72 67 2d 72 78 20 22 5c 5c 5b 28 5b 5e 5d 20 5d 2b 29 5c 5c 5d 3f 22 29 ne.opt-arg-rx."\\[([^].]+)\\]?")
44c0 0a 20 20 28 64 65 66 69 6e 65 20 6f 70 74 2d 61 72 67 2d 72 78 32 20 22 28 5b 5e 20 5d 29 2b 5c ...(define.opt-arg-rx2."([^.])+\
44e0 5c 5d 2b 22 29 0a 20 20 28 6c 65 74 20 28 28 74 6f 6b 65 6e 73 20 28 73 74 72 69 6e 67 2d 74 6f \]+")...(let.((tokens.(string-to
4500 6b 65 6e 69 7a 65 20 73 74 72 29 29 29 0a 20 20 20 20 28 69 66 20 28 3c 20 28 6c 65 6e 67 74 68 kenize.str))).....(if.(<.(length
4520 20 74 6f 6b 65 6e 73 29 20 32 29 0a 20 20 20 20 20 20 20 20 27 28 29 0a 20 20 20 20 20 20 20 20 .tokens).2).........'().........
4540 28 6c 65 74 20 6c 6f 6f 70 20 28 28 74 6f 6b 65 6e 73 20 28 63 64 72 20 74 6f 6b 65 6e 73 29 29 (let.loop.((tokens.(cdr.tokens))
4560 20 28 72 65 71 20 27 28 29 29 20 28 6f 70 74 20 27 28 29 29 20 28 72 65 73 74 20 23 66 29 29 0a .(req.'()).(opt.'()).(rest.#f)).
4580 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 74 6f 6b 65 6e 73 29 0a ..........(cond.((null?.tokens).
45a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 72 65 71 75 69 72 65 64 20 2c 40 28 .................`((required.,@(
45c0 6d 61 70 20 73 74 72 69 6e 67 2d 3e 73 79 6d 62 6f 6c 20 28 72 65 76 65 72 73 65 21 20 72 65 71 map.string->symbol.(reverse!.req
45e0 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 70 74 69 6f 6e 61 6c )))....................(optional
4600 20 2c 40 28 6d 61 70 20 73 74 72 69 6e 67 2d 3e 73 79 6d 62 6f 6c 20 28 72 65 76 65 72 73 65 21 .,@(map.string->symbol.(reverse!
4620 20 6f 70 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 69 66 .opt)))....................,@(if
4640 20 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 .rest..........................(
4660 6c 69 73 74 20 28 63 6f 6e 73 20 27 72 65 73 74 20 28 73 74 72 69 6e 67 2d 3e 73 79 6d 62 6f 6c list.(cons.'rest.(string->symbol
4680 20 72 65 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .rest)))........................
46a0 20 20 27 28 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e ..'()))).................((strin
46c0 67 3d 3f 20 22 2e 22 20 28 63 61 72 20 74 6f 6b 65 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 g=?.".".(car.tokens))...........
46e0 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 6e 75 6c 6c 3f 20 28 63 64 72 20 74 6f 6b 65 .......(if.(not.(null?.(cdr.toke
4700 6e 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 ns)))......................(loop
4720 20 28 63 64 64 72 20 74 6f 6b 65 6e 73 29 20 72 65 71 20 6f 70 74 20 28 63 61 64 72 20 74 6f 6b .(cddr.tokens).req.opt.(cadr.tok
4740 65 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 ens))......................(loop
4760 20 27 28 29 20 72 65 71 20 6f 70 74 20 22 72 65 73 74 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 .'().req.opt."rest")))..........
4780 20 20 20 20 20 20 20 28 28 6f 72 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6f 70 74 2d 61 72 .......((or.(string-match.opt-ar
47a0 67 2d 72 78 20 28 63 61 72 20 74 6f 6b 65 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 g-rx.(car.tokens))..............
47c0 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6f 70 74 2d 61 72 67 2d 72 78 ........(string-match.opt-arg-rx
47e0 32 20 28 63 61 72 20 74 6f 6b 65 6e 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2.(car.tokens)))................
4800 20 20 3d 3e 20 28 6c 61 6d 62 64 61 20 28 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..=>.(lambda.(m)................
4820 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 28 63 64 72 20 74 6f 6b 65 6e 73 29 0a 20 20 20 20 20 20 .......(loop.(cdr.tokens).......
4840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 71 0a 20 20 20 20 20 20 ......................req.......
4860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 6d 61 74 ......................(cons.(mat
4880 63 68 3a 73 75 62 73 74 72 69 6e 67 20 6d 20 31 29 20 6f 70 74 29 0a 20 20 20 20 20 20 20 20 20 ch:substring.m.1).opt)..........
48a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 74 29 29 29 0a 20 20 20 20 20 ...................rest)))......
48c0 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 28 6c 6f 6f 70 20 28 63 64 72 20 74 6f 6b 65 ...........(else.(loop.(cdr.toke
48e0 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ns).............................
4900 28 63 6f 6e 73 20 28 63 61 72 20 74 6f 6b 65 6e 73 29 20 72 65 71 29 0a 20 20 20 20 20 20 20 20 (cons.(car.tokens).req).........
4920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 74 0a 20 20 20 20 20 20 20 20 ....................opt.........
4940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 74 29 29 29 29 29 29 29 0a ....................rest))))))).
4960 0a 28 64 65 66 69 6e 65 20 28 67 65 6e 65 72 69 63 2d 61 72 67 73 20 67 65 6e 29 0a 20 20 28 64 .(define.(generic-args.gen)...(d
4980 65 66 69 6e 65 20 28 73 72 63 3e 20 73 72 63 31 20 73 72 63 32 29 0a 20 20 20 20 28 3e 20 28 6c efine.(src>.src1.src2).....(>.(l
49a0 65 6e 67 74 68 20 28 63 61 64 72 20 73 72 63 31 29 29 20 28 6c 65 6e 67 74 68 20 28 63 61 64 72 ength.(cadr.src1)).(length.(cadr
49c0 20 73 72 63 32 29 29 29 29 0a 20 20 28 64 65 66 69 6e 65 20 28 73 72 63 20 6d 29 0a 20 20 20 20 .src2))))...(define.(src.m).....
49e0 28 63 61 74 63 68 20 23 74 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 6d 65 74 68 (catch.#t.......(lambda.().(meth
4a00 6f 64 2d 73 6f 75 72 63 65 20 6d 29 29 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6b 20 2e od-source.m)).......(lambda.(k..
4a20 20 61 29 20 23 66 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 65 74 68 6f 64 73 20 28 67 65 6e .a).#f)))...(let*.((methods.(gen
4a40 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 73 20 67 65 6e 29 29 0a 20 20 20 20 eric-function-methods.gen)).....
4a60 20 20 20 20 20 28 73 72 63 73 20 28 66 69 6c 74 65 72 20 69 64 65 6e 74 69 74 79 20 28 6d 61 70 .....(srcs.(filter.identity.(map
4a80 20 73 72 63 20 6d 65 74 68 6f 64 73 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 .src.methods)))).....(cond.((and
4aa0 20 28 6e 75 6c 6c 3f 20 73 72 63 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e .(null?.srcs).................(n
4ac0 6f 74 20 28 6e 75 6c 6c 3f 20 6d 65 74 68 6f 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ot.(null?.methods)).............
4ae0 20 20 20 20 28 6d 65 74 68 6f 64 2d 70 72 6f 63 65 64 75 72 65 20 28 63 61 72 20 6d 65 74 68 6f ....(method-procedure.(car.metho
4b00 64 73 29 29 29 20 3d 3e 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 ds))).=>.arguments)...........((
4b20 6e 6f 74 20 28 6e 75 6c 6c 3f 20 73 72 63 73 29 29 20 28 6c 69 73 74 20 28 73 6f 75 72 63 65 2d not.(null?.srcs)).(list.(source-
4b40 3e 61 72 67 73 20 28 63 61 72 20 28 73 6f 72 74 21 20 73 72 63 73 20 73 72 63 3e 29 29 29 29 29 >args.(car.(sort!.srcs.src>)))))
4b60 0a 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 27 28 28 28 72 65 73 74 20 2e 20 72 65 73 74 ...........(else.'(((rest...rest
4b80 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 79 6d 62 6f 6c 2d 64 6f 63 75 6d 65 6e )))))))..(define.(symbol-documen
4ba0 74 61 74 69 6f 6e 20 73 79 6d 29 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a 20 28 73 79 6d 62 6f 6c tation.sym)...(let.((obj.(symbol
4bc0 2d 3e 6f 62 6a 65 63 74 20 73 79 6d 29 29 29 0a 20 20 20 20 28 69 66 20 6f 62 6a 0a 20 20 20 20 ->object.sym))).....(if.obj.....
4be0 20 20 20 20 60 28 28 22 73 69 67 6e 61 74 75 72 65 22 20 2e 20 2c 28 6f 72 20 28 6f 62 6a 2d 73 ....`(("signature"...,(or.(obj-s
4c00 69 67 6e 61 74 75 72 65 20 73 79 6d 20 6f 62 6a 20 23 66 29 20 73 79 6d 29 29 0a 20 20 20 20 20 ignature.sym.obj.#f).sym))......
4c20 20 20 20 20 20 28 22 64 6f 63 73 74 72 69 6e 67 22 20 2e 20 2c 28 64 6f 63 73 74 72 69 6e 67 20 .....("docstring"...,(docstring.
4c40 73 79 6d 20 6f 62 6a 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 6f 63 73 74 72 69 6e sym.obj))))))..(define.(docstrin
4c60 67 20 73 79 6d 20 6f 62 6a 29 0a 20 20 28 64 65 66 69 6e 65 20 28 76 61 6c 75 61 62 6c 65 3f 29 g.sym.obj)...(define.(valuable?)
4c80 0a 20 20 20 20 28 6e 6f 74 20 28 6f 72 20 28 6d 61 63 72 6f 3f 20 6f 62 6a 29 20 28 70 72 6f 63 .....(not.(or.(macro?.obj).(proc
4ca0 65 64 75 72 65 3f 20 6f 62 6a 29 20 28 70 72 6f 67 72 61 6d 3f 20 6f 62 6a 29 29 29 29 0a 20 20 edure?.obj).(program?.obj))))...
4cc0 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 28 6c 61 6d 62 (with-output-to-string.....(lamb
4ce0 64 61 20 28 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 79 70 65 20 28 63 6f 6e 64 20 28 da.().......(let*.((type.(cond.(
4d00 28 6d 61 63 72 6f 3f 20 6f 62 6a 29 20 22 41 20 6d 61 63 72 6f 22 29 0a 20 20 20 20 20 20 20 20 (macro?.obj)."A.macro").........
4d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 70 72 6f 63 65 64 75 72 65 3f 20 6f 62 .................((procedure?.ob
4d40 6a 29 20 22 41 20 70 72 6f 63 65 64 75 72 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 j)."A.procedure")...............
4d60 20 20 20 20 20 20 20 20 20 20 20 28 28 70 72 6f 67 72 61 6d 3f 20 6f 62 6a 29 20 22 41 20 63 6f ...........((program?.obj)."A.co
4d80 6d 70 69 6c 65 64 20 70 72 6f 67 72 61 6d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mpiled.program")................
4da0 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 22 41 6e 20 6f 62 6a 65 63 74 22 29 29 29 0a 20 ..........(else."An.object")))..
4dc0 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 2d 6d 6f 64 ............(modname.(symbol-mod
4de0 75 6c 65 20 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 28 6f 62 6a ule.sym))..............(doc.(obj
4e00 65 63 74 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 62 6a 29 29 29 0a 20 20 20 20 20 20 20 ect-documentation.obj)))........
4e20 20 28 64 69 73 70 6c 61 79 20 74 79 70 65 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 6d 6f 64 6e .(display.type).........(if.modn
4e40 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ame.............(begin..........
4e60 20 20 20 20 20 28 64 69 73 70 6c 61 79 20 22 20 69 6e 20 6d 6f 64 75 6c 65 20 22 29 0a 20 20 20 .....(display.".in.module.")....
4e80 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 20 6d 6f 64 6e 61 6d 65 29 0a 20 20 20 ...........(display.modname)....
4ea0 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 20 22 2e 22 29 29 29 0a 20 20 20 20 20 ...........(display.".")))......
4ec0 20 20 20 28 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 64 6f 63 20 28 62 65 ...(newline).........(if.doc.(be
4ee0 67 69 6e 20 28 6e 65 77 6c 69 6e 65 29 20 28 64 69 73 70 6c 61 79 20 64 6f 63 29 29 29 0a 20 20 gin.(newline).(display.doc)))...
4f00 20 20 20 20 20 20 28 69 66 20 28 76 61 6c 75 61 62 6c 65 3f 29 20 28 62 65 67 69 6e 20 28 6e 65 ......(if.(valuable?).(begin.(ne
4f20 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 wline)..........................
4f40 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 20 22 56 61 6c 75 65 3a 22 29 0a 20 20 20 20 20 20 20 ......(display."Value:")........
4f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 6c 69 6e 65 ........................(newline
4f80 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )...............................
4fa0 20 28 64 69 73 70 6c 61 79 20 22 20 20 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(display."...")................
4fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 20 28 76 61 6c 75 65 2d ................(display.(value-
4fe0 73 74 72 20 6f 62 6a 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2a 20 28 6f 62 6a 2d 73 str.obj))))))))..(define*.(obj-s
5000 69 67 6e 61 74 75 72 65 20 73 79 6d 20 6f 62 6a 20 23 3a 6f 70 74 69 6f 6e 61 6c 20 28 64 65 74 ignature.sym.obj.#:optional.(det
5020 61 69 6c 20 23 74 29 29 0a 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 6f 62 6a 2d 61 72 67 73 ail.#t))...(let.((args.(obj-args
5040 20 6f 62 6a 29 29 29 0a 20 20 20 20 28 61 6e 64 20 61 72 67 73 20 28 73 69 67 6e 61 74 75 72 65 .obj))).....(and.args.(signature
5060 20 73 79 6d 20 61 72 67 73 20 64 65 74 61 69 6c 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d .sym.args.detail))))..(define.(m
5080 6f 64 75 6c 65 2d 65 78 70 6f 72 74 73 20 6d 6f 64 2d 6e 61 6d 65 29 0a 20 20 28 64 65 66 69 6e odule-exports.mod-name)...(defin
50a0 65 20 65 6c 74 2d 73 6f 72 74 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 2d 73 6f 72 74 20 63 61 72 e.elt-sort.(make-symbol-sort.car
50c0 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 6f 64 20 28 63 61 74 63 68 20 23 74 0a 20 20 20 20 20 ))...(let*.((mod.(catch.#t......
50e0 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 72 65 73 6f 6c 76 65 2d 69 ...........(lambda.().(resolve-i
5100 6e 74 65 72 66 61 63 65 20 6d 6f 64 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 nterface.mod-name)).............
5120 20 20 20 20 28 6c 61 6d 62 64 61 20 61 72 67 73 20 28 72 65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 ....(lambda.args.(resolve-module
5140 20 6d 6f 64 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 6c 74 73 20 28 68 61 .mod-name))))..........(elts.(ha
5160 73 68 2d 66 6f 6c 64 20 63 6c 61 73 73 69 66 79 2d 6d 6f 64 75 6c 65 2d 6f 62 6a 65 63 74 0a 20 sh-fold.classify-module-object..
5180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 .........................(list.'
51a0 28 29 20 27 28 29 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ().'().'()).....................
51c0 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 6f 62 61 72 72 61 79 20 6d 6f 64 29 29 29 0a 20 20 20 ......(module-obarray.mod)))....
51e0 20 20 20 20 20 20 28 65 6c 74 73 20 28 6d 61 70 20 65 6c 74 2d 73 6f 72 74 20 65 6c 74 73 29 29 ......(elts.(map.elt-sort.elts))
5200 0a 20 20 20 20 20 20 20 20 20 28 73 75 62 73 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 6d 29 ..........(subs.(map.(lambda.(m)
5220 20 28 6c 69 73 74 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 6d 29 29 29 0a 20 20 20 20 20 20 20 .(list.(module-name.m)))........
5240 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 6d 6f 64 75 6c 65 73 20 28 72 65 73 6f 6c 76 .............(submodules.(resolv
5260 65 2d 6d 6f 64 75 6c 65 20 6d 6f 64 2d 6e 61 6d 65 20 23 66 29 29 29 29 29 0a 20 20 20 20 28 6c e-module.mod-name.#f))))).....(l
5280 69 73 74 20 28 63 6f 6e 73 20 22 6d 6f 64 75 6c 65 73 22 20 73 75 62 73 29 0a 20 20 20 20 20 20 ist.(cons."modules".subs).......
52a0 20 20 20 20 28 63 6f 6e 73 20 22 70 72 6f 63 73 22 20 28 63 61 72 20 65 6c 74 73 29 29 0a 20 20 ....(cons."procs".(car.elts))...
52c0 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 22 73 79 6e 74 61 78 22 20 28 63 61 64 72 20 65 6c 74 ........(cons."syntax".(cadr.elt
52e0 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 22 76 61 72 73 22 20 28 63 61 64 64 s))...........(cons."vars".(cadd
5300 72 20 65 6c 74 73 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 6c 61 73 73 69 66 79 2d 6d r.elts)))))..(define.(classify-m
5320 6f 64 75 6c 65 2d 6f 62 6a 65 63 74 20 6e 61 6d 65 20 76 61 72 20 65 6c 74 73 29 0a 20 20 28 6c odule-object.name.var.elts)...(l
5340 65 74 20 28 28 6f 62 6a 20 28 61 6e 64 20 28 76 61 72 69 61 62 6c 65 2d 62 6f 75 6e 64 3f 20 76 et.((obj.(and.(variable-bound?.v
5360 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 72 69 61 62 6c 65 2d ar)...................(variable-
5380 72 65 66 20 76 61 72 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6f 72 20 28 6e 6f 74 20 ref.var)))).....(cond.((or.(not.
53a0 6f 62 6a 29 20 28 6d 6f 64 75 6c 65 3f 20 6f 62 6a 29 29 20 65 6c 74 73 29 0a 20 20 20 20 20 20 obj).(module?.obj)).elts).......
53c0 20 20 20 20 28 28 6f 72 20 28 70 72 6f 63 65 64 75 72 65 3f 20 6f 62 6a 29 20 28 70 72 6f 67 72 ....((or.(procedure?.obj).(progr
53e0 61 6d 3f 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 am?.obj))............(list.(cons
5400 20 28 6c 69 73 74 20 6e 61 6d 65 20 60 28 22 73 69 67 6e 61 74 75 72 65 22 20 2e 20 2c 28 6f 62 .(list.name.`("signature"...,(ob
5420 6a 2d 73 69 67 6e 61 74 75 72 65 20 6e 61 6d 65 20 6f 62 6a 29 29 29 0a 20 20 20 20 20 20 20 20 j-signature.name.obj))).........
5440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 65 6c 74 73 29 29 0a 20 20 20 20 20 ...............(car.elts))......
5460 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 72 20 65 6c 74 73 29 0a 20 20 20 20 20 20 20 20 ............(cadr.elts).........
5480 20 20 20 20 20 20 20 20 20 28 63 61 64 64 72 20 65 6c 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 .........(caddr.elts))).........
54a0 20 20 28 28 6d 61 63 72 6f 3f 20 6f 62 6a 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 ..((macro?.obj)............(list
54c0 20 28 63 61 72 20 65 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f .(car.elts)..................(co
54e0 6e 73 20 28 6c 69 73 74 20 6e 61 6d 65 20 60 28 22 73 69 67 6e 61 74 75 72 65 22 20 2e 20 2c 28 ns.(list.name.`("signature"...,(
5500 6f 62 6a 2d 73 69 67 6e 61 74 75 72 65 20 6e 61 6d 65 20 6f 62 6a 29 29 29 0a 20 20 20 20 20 20 obj-signature.name.obj))).......
5520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 72 20 65 6c 74 73 29 29 0a 20 20 .................(cadr.elts))...
5540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 64 72 20 65 6c 74 73 29 29 29 0a 20 20 ...............(caddr.elts)))...
5560 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 28 6c 69 73 74 20 28 63 61 72 20 65 6c 74 73 29 0a 20 ........(else.(list.(car.elts)..
5580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 72 20 65 6c 74 73 29 .....................(cadr.elts)
55a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 6c 69 .......................(cons.(li
55c0 73 74 20 6e 61 6d 65 29 20 28 63 61 64 64 72 20 65 6c 74 73 29 29 29 29 29 29 29 0a 00 00 00 00 st.name).(caddr.elts))))))).....
55e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5600 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 73 72 63 2f 67 65 69 73 65 72 2f 65 geiser-guile-0.28.1/src/geiser/e
5620 6d 61 63 73 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 macs.scm........................
5640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5660 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
5680 30 30 30 34 31 37 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 34 37 34 00 20 30 00 00 00 0004177.00000000000.016474..0...
56a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
56c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
56e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5700 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
5720 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
5740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
57a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
57c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
57e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
5800 3b 3b 3b 20 65 6d 61 63 73 2e 73 63 6d 20 2d 2d 20 70 72 6f 63 65 64 75 72 65 73 20 66 6f 72 20 ;;;.emacs.scm.--.procedures.for.
5820 65 6d 61 63 73 20 69 6e 74 65 72 61 63 74 69 6f 6e 3a 20 65 6e 74 72 79 20 70 6f 69 6e 74 0a 0a emacs.interaction:.entry.point..
5840 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 30 2c 20 32 30 31 ;;.Copyright.(C).2009,.2010,.201
5860 31 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a 0a 3b 3b 20 54 1.Jose.Antonio.Ortega.Ruiz..;;.T
5880 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f his.program.is.free.software;.yo
58a0 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 20 u.can.redistribute.it.and/or.;;.
58c0 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 modify.it.under.the.terms.of.the
58e0 20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e 73 65 2e 20 59 6f 75 20 73 68 6f 75 6c .Modified.BSD.License..You.shoul
5900 64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 d.;;.have.received.a.copy.of.the
5920 20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d .license.along.with.this.program
5940 2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 78 66 72 ..If.;;.not,.see.<http://www.xfr
5960 65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 52 49 47 48 54 32 2e 68 74 6d 6c 23 35 ee86.org/3.3.6/COPYRIGHT2.html#5
5980 3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 53 75 6e 20 46 65 62 20 30 38 2c 20 32 >...;;.Start.date:.Sun.Feb.08,.2
59a0 30 30 39 20 31 38 3a 33 39 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 009.18:39..(define-module.(geise
59c0 72 20 65 6d 61 63 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 6d r.emacs)...#:use-module.(ice-9.m
59e0 61 74 63 68 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 72 65 70 atch)...#:use-module.(system.rep
5a00 6c 20 63 6f 6d 6d 61 6e 64 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 l.command)...#:use-module.(syste
5a20 6d 20 72 65 70 6c 20 65 72 72 6f 72 2d 68 61 6e 64 6c 69 6e 67 29 0a 20 20 23 3a 75 73 65 2d 6d m.repl.error-handling)...#:use-m
5a40 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 72 65 70 6c 20 73 65 72 76 65 72 29 0a 20 20 23 3a 75 odule.(system.repl.server)...#:u
5a60 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 65 76 61 6c 75 61 74 69 6f 6e 29 0a 20 20 se-module.(geiser.evaluation)...
5a80 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 28 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 29 20 23 #:use-module.((geiser.modules).#
5aa0 3a 72 65 6e 61 6d 65 72 20 28 73 79 6d 62 6f 6c 2d 70 72 65 66 69 78 2d 70 72 6f 63 20 27 67 65 :renamer.(symbol-prefix-proc.'ge
5ac0 3a 29 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 28 67 65 69 73 65 72 20 63 6f 6d 70 :))...#:use-module.((geiser.comp
5ae0 6c 65 74 69 6f 6e 29 20 23 3a 72 65 6e 61 6d 65 72 20 28 73 79 6d 62 6f 6c 2d 70 72 65 66 69 78 letion).#:renamer.(symbol-prefix
5b00 2d 70 72 6f 63 20 27 67 65 3a 29 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 28 67 65 -proc.'ge:))...#:use-module.((ge
5b20 69 73 65 72 20 78 72 65 66 29 20 23 3a 72 65 6e 61 6d 65 72 20 28 73 79 6d 62 6f 6c 2d 70 72 65 iser.xref).#:renamer.(symbol-pre
5b40 66 69 78 2d 70 72 6f 63 20 27 67 65 3a 29 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 fix-proc.'ge:))...#:use-module.(
5b60 28 67 65 69 73 65 72 20 64 6f 63 29 20 23 3a 72 65 6e 61 6d 65 72 20 28 73 79 6d 62 6f 6c 2d 70 (geiser.doc).#:renamer.(symbol-p
5b80 72 65 66 69 78 2d 70 72 6f 63 20 27 67 65 3a 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 74 68 69 73 refix-proc.'ge:)))..(define.this
5ba0 2d 6d 6f 64 75 6c 65 20 28 72 65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 27 28 67 65 69 73 65 72 -module.(resolve-module.'(geiser
5bc0 20 65 6d 61 63 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 65 74 61 2d 63 6f 6d 6d 61 6e 64 20 .emacs)))..(define-meta-command.
5be0 28 28 67 65 69 73 65 72 2d 6e 6f 2d 76 61 6c 75 65 73 20 67 65 69 73 65 72 29 20 72 65 70 6c 29 ((geiser-no-values.geiser).repl)
5c00 0a 20 20 22 67 65 69 73 65 72 2d 6e 6f 2d 76 61 6c 75 65 73 0a 4e 6f 2d 6f 70 20 63 6f 6d 6d 61 ..."geiser-no-values.No-op.comma
5c20 6e 64 20 75 73 65 64 20 69 6e 74 65 72 6e 61 6c 6c 79 20 62 79 20 47 65 69 73 65 72 2e 22 0a 20 nd.used.internally.by.Geiser."..
5c40 20 28 76 61 6c 75 65 73 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 65 74 61 2d 63 6f 6d 6d 61 6e 64 .(values))..(define-meta-command
5c60 20 28 28 67 65 69 73 65 72 2d 6e 65 77 6c 69 6e 65 20 67 65 69 73 65 72 29 20 72 65 70 6c 29 0a .((geiser-newline.geiser).repl).
5c80 20 20 22 67 65 69 73 65 72 2d 6e 65 77 6c 69 6e 65 0a 4d 65 74 61 2d 63 6f 6d 6d 61 6e 64 20 75 .."geiser-newline.Meta-command.u
5ca0 73 65 64 20 62 79 20 47 65 69 73 65 72 20 74 6f 20 65 6d 69 74 20 61 20 6e 65 77 20 6c 69 6e 65 sed.by.Geiser.to.emit.a.new.line
5cc0 2e 22 0a 20 20 28 6e 65 77 6c 69 6e 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 65 74 61 2d 63 6f ."...(newline))..(define-meta-co
5ce0 6d 6d 61 6e 64 20 28 28 67 65 69 73 65 72 2d 65 76 61 6c 20 67 65 69 73 65 72 29 20 72 65 70 6c mmand.((geiser-eval.geiser).repl
5d00 20 28 6d 6f 64 20 66 6f 72 6d 20 61 72 67 73 29 20 2e 20 72 65 73 74 29 0a 20 20 22 67 65 69 73 .(mod.form.args)...rest)..."geis
5d20 65 72 2d 65 76 61 6c 20 6d 6f 64 75 6c 65 20 66 6f 72 6d 20 61 72 67 73 20 28 29 0a 4d 65 74 61 er-eval.module.form.args.().Meta
5d40 2d 63 6f 6d 6d 61 6e 64 20 75 73 65 64 20 62 79 20 47 65 69 73 65 72 20 74 6f 20 65 76 61 6c 75 -command.used.by.Geiser.to.evalu
5d60 61 74 65 20 61 6e 64 20 63 6f 6d 70 69 6c 65 20 63 6f 64 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 ate.and.compile.code."...(let.((
5d80 61 72 67 73 20 28 73 79 6e 74 61 78 2d 3e 64 61 74 75 6d 20 61 72 67 73 29 29 0a 20 20 20 20 20 args.(syntax->datum.args))......
5da0 20 20 20 28 6d 6f 64 20 28 73 79 6e 74 61 78 2d 3e 64 61 74 75 6d 20 6d 6f 64 29 29 29 0a 20 20 ...(mod.(syntax->datum.mod)))...
5dc0 20 20 28 69 66 20 28 6e 75 6c 6c 3f 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 6c ..(if.(null?.args).........(call
5de0 2d 77 69 74 68 2d 65 72 72 6f 72 2d 68 61 6e 64 6c 69 6e 67 0a 20 20 20 20 20 20 20 20 20 28 6c -with-error-handling..........(l
5e00 61 6d 62 64 61 20 28 29 20 28 67 65 3a 63 6f 6d 70 69 6c 65 20 66 6f 72 6d 20 6d 6f 64 29 29 29 ambda.().(ge:compile.form.mod)))
5e20 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 63 20 28 65 76 61 6c 20 66 6f 72 6d 20 .........(let.((proc.(eval.form.
5e40 74 68 69 73 2d 6d 6f 64 75 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 65 3a 65 76 61 this-module)))...........(ge:eva
5e60 6c 20 60 28 2c 70 72 6f 63 20 2c 40 61 72 67 73 29 20 6d 6f 64 29 29 29 29 29 0a 0a 28 64 65 66 l.`(,proc.,@args).mod)))))..(def
5e80 69 6e 65 2d 6d 65 74 61 2d 63 6f 6d 6d 61 6e 64 20 28 28 67 65 69 73 65 72 2d 6c 6f 61 64 2d 66 ine-meta-command.((geiser-load-f
5ea0 69 6c 65 20 67 65 69 73 65 72 29 20 72 65 70 6c 20 66 69 6c 65 29 0a 20 20 22 67 65 69 73 65 72 ile.geiser).repl.file)..."geiser
5ec0 2d 6c 6f 61 64 2d 66 69 6c 65 20 66 69 6c 65 0a 4d 65 74 61 2d 63 6f 6d 6d 61 6e 64 20 75 73 65 -load-file.file.Meta-command.use
5ee0 64 20 62 79 20 47 65 69 73 65 72 20 74 6f 20 6c 6f 61 64 20 61 6e 64 20 63 6f 6d 70 69 6c 65 20 d.by.Geiser.to.load.and.compile.
5f00 66 69 6c 65 73 2e 22 0a 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 65 72 72 6f 72 2d 68 61 6e 64 6c files."...(call-with-error-handl
5f20 69 6e 67 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 67 65 3a 63 6f 6d 70 69 6c 65 2d 66 69 ing....(lambda.().(ge:compile-fi
5f40 6c 65 20 66 69 6c 65 29 29 29 29 0a 0a 0a 28 64 65 66 69 6e 65 2d 6d 65 74 61 2d 63 6f 6d 6d 61 le.file))))...(define-meta-comma
5f60 6e 64 20 28 28 67 65 69 73 65 72 2d 73 74 61 72 74 2d 73 65 72 76 65 72 20 67 65 69 73 65 72 29 nd.((geiser-start-server.geiser)
5f80 20 72 65 70 6c 29 0a 20 20 22 67 65 69 73 65 72 2d 73 74 61 72 74 2d 73 65 72 76 65 72 0a 4d 65 .repl)..."geiser-start-server.Me
5fa0 74 61 2d 63 6f 6d 6d 61 6e 64 20 75 73 65 64 20 62 79 20 47 65 69 73 65 72 20 74 6f 20 73 74 61 ta-command.used.by.Geiser.to.sta
5fc0 72 74 20 61 20 52 45 50 4c 20 73 65 72 76 65 72 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 6f 63 rt.a.REPL.server."...(let*.((soc
5fe0 6b 20 28 6d 61 6b 65 2d 74 63 70 2d 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 20 23 3a 70 6f 72 74 k.(make-tcp-server-socket.#:port
6000 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 6f 72 74 20 28 73 6f 63 6b 61 64 64 72 3a 70 6f .0))..........(port.(sockaddr:po
6020 72 74 20 28 67 65 74 73 6f 63 6b 6e 61 6d 65 20 73 6f 63 6b 29 29 29 29 0a 20 20 20 20 28 73 70 rt.(getsockname.sock)))).....(sp
6040 61 77 6e 2d 73 65 72 76 65 72 20 73 6f 63 6b 29 0a 20 20 20 20 28 77 72 69 74 65 20 28 6c 69 73 awn-server.sock).....(write.(lis
6060 74 20 27 70 6f 72 74 20 70 6f 72 74 29 29 0a 20 20 20 20 28 6e 65 77 6c 69 6e 65 29 29 29 0a 00 t.'port.port)).....(newline)))..
6080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
60a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
60c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
60e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
61a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
61c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
61e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6200 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 73 72 63 2f 67 65 69 73 65 72 2f 6d geiser-guile-0.28.1/src/geiser/m
6220 6f 64 75 6c 65 73 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 odules.scm......................
6240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6260 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
6280 30 30 30 36 37 37 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 30 35 36 00 20 30 00 00 00 0006771.00000000000.017056..0...
62a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
62c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
62e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6300 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
6320 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
6340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6400 3b 3b 3b 20 6d 6f 64 75 6c 65 73 2e 73 63 6d 20 2d 2d 20 6d 6f 64 75 6c 65 20 6d 65 74 61 64 61 ;;;.modules.scm.--.module.metada
6420 74 61 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 30 2c ta..;;.Copyright.(C).2009,.2010,
6440 20 32 30 31 31 2c 20 32 30 31 38 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 .2011,.2018.Jose.Antonio.Ortega.
6460 52 75 69 7a 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f Ruiz..;;.This.program.is.free.so
6480 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 ftware;.you.can.redistribute.it.
64a0 61 6e 64 2f 6f 72 0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 and/or.;;.modify.it.under.the.te
64c0 72 6d 73 20 6f 66 20 74 68 65 20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e 73 65 2e rms.of.the.Modified.BSD.License.
64e0 20 59 6f 75 20 73 68 6f 75 6c 64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 .You.should.;;.have.received.a.c
6500 6f 70 79 20 6f 66 20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 opy.of.the.license.along.with.th
6520 69 73 20 70 72 6f 67 72 61 6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 is.program..If.;;.not,.see.<http
6540 3a 2f 2f 77 77 77 2e 78 66 72 65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 52 49 47 ://www.xfree86.org/3.3.6/COPYRIG
6560 48 54 32 2e 68 74 6d 6c 23 35 3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 4d 6f 6e HT2.html#5>...;;.Start.date:.Mon
6580 20 4d 61 72 20 30 32 2c 20 32 30 30 39 20 30 32 3a 30 30 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64 .Mar.02,.2009.02:00..(define-mod
65a0 75 6c 65 20 28 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 29 0a 20 20 23 3a 65 78 70 6f 72 74 20 ule.(geiser.modules)...#:export.
65c0 28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 67 72 (symbol-module.............progr
65e0 61 6d 2d 6d 6f 64 75 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 75 6c 65 2d 6e 61 6d am-module.............module-nam
6600 65 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 75 6c 65 2d 70 61 74 68 0a 20 20 20 20 20 e?.............module-path......
6620 20 20 20 20 20 20 20 66 69 6e 64 2d 6d 6f 64 75 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 .......find-module.............a
6640 6c 6c 2d 6d 6f 64 75 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 75 62 6d 6f 64 75 6c 65 ll-modules.............submodule
6660 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 75 6c 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20 s.............module-location)..
6680 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 75 74 69 6c 73 29 0a 20 20 23 .#:use-module.(geiser.utils)...#
66a0 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 70 72 6f 67 72 61 6d 29 0a :use-module.(system.vm.program).
66c0 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 64 65 62 75 67 29 ..#:use-module.(system.vm.debug)
66e0 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 72 65 67 65 78 29 0a 20 20 ...#:use-module.(ice-9.regex)...
6700 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 73 65 73 73 69 6f 6e 29 0a 20 20 23 #:use-module.(ice-9.session)...#
6720 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 72 66 69 20 73 72 66 69 2d 31 29 29 0a 0a 3b 3b 20 52 :use-module.(srfi.srfi-1))..;;.R
6740 65 74 75 72 6e 20 68 61 73 68 20 74 61 62 6c 65 20 6d 61 70 70 69 6e 67 20 66 69 6c 65 6e 61 6d eturn.hash.table.mapping.filenam
6760 65 20 74 6f 20 6c 69 73 74 20 6f 66 20 6d 6f 64 75 6c 65 73 20 64 65 66 69 6e 65 64 20 69 6e 20 e.to.list.of.modules.defined.in.
6780 74 68 61 74 0a 3b 3b 20 66 69 6c 65 2e 20 48 2f 74 20 61 6e 64 79 20 77 69 6e 67 6f 2e 0a 28 64 that.;;.file..H/t.andy.wingo..(d
67a0 65 66 69 6e 65 20 28 66 69 6c 6c 2d 66 69 6c 65 2d 3e 6d 6f 64 75 6c 65 2d 6d 61 70 70 69 6e 67 efine.(fill-file->module-mapping
67c0 21 20 72 65 74 29 0a 20 20 28 64 65 66 69 6e 65 20 28 72 65 63 6f 72 64 2d 6d 6f 64 75 6c 65 20 !.ret)...(define.(record-module.
67e0 6d 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 20 28 6d 6f 64 75 6c 65 2d 66 69 6c 65 6e 61 6d 65 m).....(let.((f.(module-filename
6800 20 6d 29 29 29 0a 20 20 20 20 20 20 28 68 61 73 68 2d 73 65 74 21 20 72 65 74 20 66 20 28 63 6f .m))).......(hash-set!.ret.f.(co
6820 6e 73 20 6d 20 28 68 61 73 68 2d 72 65 66 20 72 65 74 20 66 20 27 28 29 29 29 29 29 29 0a 20 20 ns.m.(hash-ref.ret.f.'())))))...
6840 28 64 65 66 69 6e 65 20 28 76 69 73 69 74 2d 6d 6f 64 75 6c 65 20 6d 29 0a 20 20 20 20 28 72 65 (define.(visit-module.m).....(re
6860 63 6f 72 64 2d 6d 6f 64 75 6c 65 20 6d 29 0a 20 20 20 20 28 68 61 73 68 2d 66 6f 72 2d 65 61 63 cord-module.m).....(hash-for-eac
6880 68 20 28 6c 61 6d 62 64 61 20 28 6b 20 76 29 20 28 76 69 73 69 74 2d 6d 6f 64 75 6c 65 20 76 29 h.(lambda.(k.v).(visit-module.v)
68a0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 73 75 62 )....................(module-sub
68c0 6d 6f 64 75 6c 65 73 20 6d 29 29 29 0a 20 20 28 76 69 73 69 74 2d 6d 6f 64 75 6c 65 20 28 72 65 modules.m)))...(visit-module.(re
68e0 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 27 28 29 20 23 66 29 29 0a 20 20 72 65 74 29 0a 0a 28 64 solve-module.'().#f))...ret)..(d
6900 65 66 69 6e 65 20 66 69 6c 65 2d 3e 6d 6f 64 75 6c 65 73 20 28 66 69 6c 6c 2d 66 69 6c 65 2d 3e efine.file->modules.(fill-file->
6920 6d 6f 64 75 6c 65 2d 6d 61 70 70 69 6e 67 21 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 module-mapping!.(make-hash-table
6940 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f 67 72 61 6d 2d 66 69 6c 65 20 70 29 0a 20 20 )))..(define.(program-file.p)...
6960 28 6c 65 74 20 28 28 73 72 63 20 28 70 72 6f 67 72 61 6d 2d 73 6f 75 72 63 65 20 70 20 30 29 29 (let.((src.(program-source.p.0))
6980 29 0a 20 20 20 20 28 61 6e 64 20 28 70 61 69 72 3f 20 73 72 63 29 20 28 63 61 64 72 20 73 72 63 ).....(and.(pair?.src).(cadr.src
69a0 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f 67 72 61 6d 2d 6d 6f 64 75 6c 65 20 70 29 ))))..(define.(program-module.p)
69c0 0a 20 20 28 6c 65 74 2a 20 28 28 66 20 28 70 72 6f 67 72 61 6d 2d 66 69 6c 65 20 70 29 29 0a 20 ...(let*.((f.(program-file.p))..
69e0 20 20 20 20 20 20 20 20 28 6d 6f 64 73 20 28 6f 72 20 28 68 61 73 68 2d 72 65 66 20 66 69 6c 65 ........(mods.(or.(hash-ref.file
6a00 2d 3e 6d 6f 64 75 6c 65 73 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ->modules.f)....................
6a20 28 68 61 73 68 2d 72 65 66 20 28 66 69 6c 6c 2d 66 69 6c 65 2d 3e 6d 6f 64 75 6c 65 2d 6d 61 70 (hash-ref.(fill-file->module-map
6a40 70 69 6e 67 21 20 66 69 6c 65 2d 3e 6d 6f 64 75 6c 65 73 29 20 66 29 29 29 29 0a 20 20 20 20 28 ping!.file->modules).f)))).....(
6a60 61 6e 64 20 28 70 61 69 72 3f 20 6d 6f 64 73 29 20 28 6e 6f 74 20 28 6e 75 6c 6c 3f 20 6d 6f 64 and.(pair?.mods).(not.(null?.mod
6a80 73 29 29 20 28 63 61 72 20 6d 6f 64 73 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 6f 64 75 s)).(car.mods))))..(define.(modu
6aa0 6c 65 2d 6e 61 6d 65 3f 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 0a 20 20 28 61 6e 64 20 28 6c 69 le-name?.module-name)...(and.(li
6ac0 73 74 3f 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6e 75 st?.module-name)........(not.(nu
6ae0 6c 6c 3f 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 65 76 65 72 79 20 ll?.module-name))........(every.
6b00 73 79 6d 62 6f 6c 3f 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 symbol?.module-name)))..(define.
6b20 28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 20 73 79 6d 20 2e 20 61 6c 6c 29 0a 20 20 28 61 6e 64 (symbol-module.sym...all)...(and
6b40 20 73 79 6d 0a 20 20 20 20 20 20 20 28 63 61 74 63 68 20 27 6d 6f 64 75 6c 65 2d 6e 61 6d 65 0a .sym........(catch.'module-name.
6b60 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 .........(lambda.()............(
6b80 61 70 72 6f 70 6f 73 2d 66 6f 6c 64 20 28 6c 61 6d 62 64 61 20 28 6d 6f 64 75 6c 65 20 6e 61 6d apropos-fold.(lambda.(module.nam
6ba0 65 20 76 61 72 20 69 6e 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.var.init).....................
6bc0 20 20 20 20 20 20 20 28 69 66 20 28 65 71 3f 20 6e 61 6d 65 20 73 79 6d 29 0a 20 20 20 20 20 20 .......(if.(eq?.name.sym).......
6be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 .........................(throw.
6c00 27 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 6d 6f 64 75 6c 65 'module-name.(module-name.module
6c20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ))..............................
6c40 20 20 69 6e 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..init))........................
6c60 20 20 23 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 ..#f..........................(r
6c80 65 67 65 78 70 2d 71 75 6f 74 65 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 20 73 79 6d 29 egexp-quote.(symbol->string.sym)
6ca0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 )..........................(if.(
6cc0 6f 72 20 28 6e 75 6c 6c 3f 20 61 6c 6c 29 20 28 6e 6f 74 20 28 63 61 72 20 61 6c 6c 29 29 29 0a or.(null?.all).(not.(car.all))).
6ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 .............................(ap
6d00 72 6f 70 6f 73 2d 66 6f 6c 64 2d 61 63 63 65 73 73 69 62 6c 65 20 28 63 75 72 72 65 6e 74 2d 6d ropos-fold-accessible.(current-m
6d20 6f 64 75 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 odule)).........................
6d40 20 20 20 20 20 61 70 72 6f 70 6f 73 2d 66 6f 6c 64 2d 61 6c 6c 29 29 29 0a 20 20 20 20 20 20 20 .....apropos-fold-all)))........
6d60 20 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 20 2e 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 ..(lambda.(key...args)..........
6d80 20 20 28 61 6e 64 20 28 65 71 3f 20 6b 65 79 20 27 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 20 28 63 ..(and.(eq?.key.'module-name).(c
6da0 61 72 20 61 72 67 73 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 6f 64 75 6c 65 2d 6c ar.args))))))..(define.(module-l
6dc0 6f 63 61 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 ocation.name)...(make-location.(
6de0 6d 6f 64 75 6c 65 2d 70 61 74 68 20 6e 61 6d 65 29 20 23 66 29 29 0a 0a 28 64 65 66 69 6e 65 20 module-path.name).#f))..(define.
6e00 28 66 69 6e 64 2d 6d 6f 64 75 6c 65 20 6d 6f 64 2d 6e 61 6d 65 29 0a 20 20 28 61 6e 64 20 28 6d (find-module.mod-name)...(and.(m
6e20 6f 64 75 6c 65 2d 6e 61 6d 65 3f 20 6d 6f 64 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 72 65 odule-name?.mod-name)........(re
6e40 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 6d 6f 64 2d 6e 61 6d 65 20 23 66 20 23 3a 65 6e 73 75 72 solve-module.mod-name.#f.#:ensur
6e60 65 20 23 66 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 6f 64 75 6c 65 2d 70 61 74 68 20 6d 6f e.#f)))..(define.(module-path.mo
6e80 64 75 6c 65 2d 6e 61 6d 65 29 0a 20 20 28 61 6e 64 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 3f 20 dule-name)...(and.(module-name?.
6ea0 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 6f 72 20 28 28 40 40 20 28 69 63 module-name)........(or.((@@.(ic
6ec0 65 2d 39 20 73 65 73 73 69 6f 6e 29 20 6d 6f 64 75 6c 65 2d 66 69 6c 65 6e 61 6d 65 29 20 6d 6f e-9.session).module-filename).mo
6ee0 64 75 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 66 69 dule-name)............(module-fi
6f00 6c 65 6e 61 6d 65 20 28 72 65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 6d 6f 64 75 6c 65 2d 6e 61 lename.(resolve-module.module-na
6f20 6d 65 20 23 66 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 75 62 6d 6f 64 75 6c 65 73 20 me.#f)))))..(define.(submodules.
6f40 6d 6f 64 29 0a 20 20 28 68 61 73 68 2d 6d 61 70 2d 3e 6c 69 73 74 20 28 6c 61 6d 62 64 61 20 28 mod)...(hash-map->list.(lambda.(
6f60 6b 20 76 29 20 76 29 20 28 6d 6f 64 75 6c 65 2d 73 75 62 6d 6f 64 75 6c 65 73 20 6d 6f 64 29 29 k.v).v).(module-submodules.mod))
6f80 29 0a 0a 28 64 65 66 69 6e 65 20 28 72 6f 6f 74 2d 6d 6f 64 75 6c 65 73 29 0a 20 20 28 73 75 62 )..(define.(root-modules)...(sub
6fa0 6d 6f 64 75 6c 65 73 20 28 72 65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 27 28 29 20 23 66 29 29 modules.(resolve-module.'().#f))
6fc0 29 0a 0a 28 64 65 66 69 6e 65 20 28 61 6c 6c 2d 6d 6f 64 75 6c 65 73 29 0a 20 20 28 64 65 66 69 )..(define.(all-modules)...(defi
6fe0 6e 65 20 28 6d 61 79 62 65 2d 6e 61 6d 65 20 6d 29 0a 20 20 20 20 28 61 6e 64 20 28 6d 6f 64 75 ne.(maybe-name.m).....(and.(modu
7000 6c 65 2d 6b 69 6e 64 20 6d 29 20 28 66 6f 72 6d 61 74 20 23 66 20 22 7e 41 22 20 28 6d 6f 64 75 le-kind.m).(format.#f."~A".(modu
7020 6c 65 2d 6e 61 6d 65 20 6d 29 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 67 75 69 6c 65 20 28 72 le-name.m))))...(let*.((guile.(r
7040 65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 27 28 67 75 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 esolve-module.'(guile)))........
7060 20 20 28 72 6f 6f 74 73 20 28 72 65 6d 6f 76 65 20 28 6c 61 6d 62 64 61 20 28 6d 29 20 28 65 71 ..(roots.(remove.(lambda.(m).(eq
7080 3f 20 6d 20 67 75 69 6c 65 29 29 20 28 72 6f 6f 74 2d 6d 6f 64 75 6c 65 73 29 29 29 0a 20 20 20 ?.m.guile)).(root-modules)))....
70a0 20 20 20 20 20 20 28 63 68 69 6c 64 72 65 6e 20 28 61 70 70 65 6e 64 2d 6d 61 70 20 61 6c 6c 2d ......(children.(append-map.all-
70c0 63 68 69 6c 64 2d 6d 6f 64 75 6c 65 73 20 72 6f 6f 74 73 29 29 29 0a 20 20 20 20 28 63 6f 6e 73 child-modules.roots))).....(cons
70e0 20 22 28 67 75 69 6c 65 29 22 20 28 66 69 6c 74 65 72 2d 6d 61 70 20 6d 61 79 62 65 2d 6e 61 6d ."(guile)".(filter-map.maybe-nam
7100 65 20 63 68 69 6c 64 72 65 6e 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2a 20 28 61 6c 6c 2d 63 68 e.children))))..(define*.(all-ch
7120 69 6c 64 2d 6d 6f 64 75 6c 65 73 20 6d 6f 64 20 23 3a 6f 70 74 69 6f 6e 61 6c 20 28 73 65 65 6e ild-modules.mod.#:optional.(seen
7140 20 27 28 29 29 29 0a 20 20 28 6c 65 74 20 28 28 63 73 20 28 66 69 6c 74 65 72 20 28 6c 61 6d 62 .'()))...(let.((cs.(filter.(lamb
7160 64 61 20 28 6d 29 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 6d 20 73 65 65 6e 29 29 29 20 28 73 da.(m).(not.(member.m.seen))).(s
7180 75 62 6d 6f 64 75 6c 65 73 20 6d 6f 64 29 29 29 29 0a 20 20 20 20 28 66 6f 6c 64 20 28 6c 61 6d ubmodules.mod)))).....(fold.(lam
71a0 62 64 61 20 28 6d 20 61 6c 6c 29 20 28 61 70 70 65 6e 64 20 28 61 6c 6c 2d 63 68 69 6c 64 2d 6d bda.(m.all).(append.(all-child-m
71c0 6f 64 75 6c 65 73 20 6d 20 61 6c 6c 29 20 61 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c odules.m.all).all))...........(l
71e0 69 73 74 20 6d 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 63 73 29 29 29 0a 00 00 00 00 00 00 00 ist.mod)...........cs)))........
7200 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 73 72 63 2f 67 65 69 73 65 72 2f 75 geiser-guile-0.28.1/src/geiser/u
7220 74 69 6c 73 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 tils.scm........................
7240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7260 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
7280 30 30 30 33 30 37 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 33 34 00 20 30 00 00 00 0003071.00000000000.016534..0...
72a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
72c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
72e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7300 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
7320 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
7340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
73a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
73c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
73e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7400 3b 3b 3b 20 75 74 69 6c 73 2e 73 63 6d 20 2d 2d 20 75 74 69 6c 69 74 79 20 66 75 6e 63 74 69 6f ;;;.utils.scm.--.utility.functio
7420 6e 73 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 30 2c ns..;;.Copyright.(C).2009,.2010,
7440 20 32 30 31 31 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a 0a .2011.Jose.Antonio.Ortega.Ruiz..
7460 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 ;;.This.program.is.free.software
7480 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 ;.you.can.redistribute.it.and/or
74a0 0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 .;;.modify.it.under.the.terms.of
74c0 20 74 68 65 20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e 73 65 2e 20 59 6f 75 20 73 .the.Modified.BSD.License..You.s
74e0 68 6f 75 6c 64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 hould.;;.have.received.a.copy.of
7500 20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f .the.license.along.with.this.pro
7520 67 72 61 6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 gram..If.;;.not,.see.<http://www
7540 2e 78 66 72 65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 52 49 47 48 54 32 2e 68 74 .xfree86.org/3.3.6/COPYRIGHT2.ht
7560 6d 6c 23 35 3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 4d 6f 6e 20 4d 61 72 20 30 ml#5>...;;.Start.date:.Mon.Mar.0
7580 32 2c 20 32 30 30 39 20 30 31 3a 34 38 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c 65 20 28 67 2,.2009.01:48..(define-module.(g
75a0 65 69 73 65 72 20 75 74 69 6c 73 29 0a 20 20 23 3a 65 78 70 6f 72 74 20 28 6d 61 6b 65 2d 6c 6f eiser.utils)...#:export.(make-lo
75c0 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 cation.............symbol->objec
75e0 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 61 69 72 2d 3e 6c 69 73 74 0a 20 20 20 20 20 20 20 t.............pair->list........
7600 20 20 20 20 20 73 6f 72 74 2d 73 79 6d 62 6f 6c 73 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d .....sort-symbols!.............m
7620 61 6b 65 2d 73 79 6d 62 6f 6c 2d 73 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 65 6e 73 ake-symbol-sort.............gens
7640 79 6d 3f 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 72 65 67 65 78 ym?)...#:use-module.(ice-9.regex
7660 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 73 79 6d 29 ))..(define.(symbol->object.sym)
7680 0a 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 3f 20 73 79 6d 29 0a 20 20 20 20 20 20 20 28 6d 6f ...(and.(symbol?.sym)........(mo
76a0 64 75 6c 65 2d 64 65 66 69 6e 65 64 3f 20 28 63 75 72 72 65 6e 74 2d 6d 6f 64 75 6c 65 29 20 73 dule-defined?.(current-module).s
76c0 79 6d 29 0a 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 72 65 66 20 28 63 75 72 72 65 6e 74 2d ym)........(module-ref.(current-
76e0 6d 6f 64 75 6c 65 29 20 73 79 6d 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 61 69 72 2d 3e 6c module).sym)))..(define.(pair->l
7700 69 73 74 20 70 61 69 72 29 0a 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 64 20 70 61 69 72 29 20 ist.pair)...(let.loop.((d.pair).
7720 28 73 20 27 28 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 64 29 20 28 72 (s.'())).....(cond.((null?.d).(r
7740 65 76 65 72 73 65 21 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 3f 20 everse!.s))...........((symbol?.
7760 64 29 20 28 72 65 76 65 72 73 65 21 20 28 63 6f 6e 73 20 64 20 73 29 29 29 0a 20 20 20 20 20 20 d).(reverse!.(cons.d.s))).......
7780 20 20 20 20 28 65 6c 73 65 20 28 6c 6f 6f 70 20 28 63 64 72 20 64 29 20 28 63 6f 6e 73 20 28 63 ....(else.(loop.(cdr.d).(cons.(c
77a0 61 72 20 64 29 20 73 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b 65 2d 6c 6f 63 ar.d).s))))))..(define.(make-loc
77c0 61 74 69 6f 6e 20 66 69 6c 65 20 6c 69 6e 65 29 0a 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 22 ation.file.line)...(list.(cons."
77e0 66 69 6c 65 22 20 28 69 66 20 28 73 74 72 69 6e 67 3f 20 66 69 6c 65 29 20 66 69 6c 65 20 27 28 file".(if.(string?.file).file.'(
7800 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 22 6c 69 6e 65 22 20 28 69 66 20 28 6e 75 ))).........(cons."line".(if.(nu
7820 6d 62 65 72 3f 20 6c 69 6e 65 29 20 28 2b 20 31 20 6c 69 6e 65 29 20 27 28 29 29 29 29 29 0a 0a mber?.line).(+.1.line).'()))))..
7840 28 64 65 66 69 6e 65 20 28 73 6f 72 74 2d 73 79 6d 62 6f 6c 73 21 20 73 79 6d 73 29 0a 20 20 28 (define.(sort-symbols!.syms)...(
7860 6c 65 74 20 28 28 63 6d 70 20 28 6c 61 6d 62 64 61 20 28 6c 20 72 29 0a 20 20 20 20 20 20 20 20 let.((cmp.(lambda.(l.r).........
7880 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3c 3f 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 .......(string<?.(symbol->string
78a0 20 6c 29 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 20 72 29 29 29 29 29 0a 20 20 20 20 28 .l).(symbol->string.r))))).....(
78c0 73 6f 72 74 21 20 73 79 6d 73 20 63 6d 70 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b 65 sort!.syms.cmp)))..(define.(make
78e0 2d 73 79 6d 62 6f 6c 2d 73 6f 72 74 20 73 65 6c 29 0a 20 20 28 6c 65 74 20 28 28 63 6d 70 20 28 -symbol-sort.sel)...(let.((cmp.(
7900 6c 61 6d 62 64 61 20 28 61 20 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 lambda.(a.b)................(str
7920 69 6e 67 3c 3f 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 20 28 73 65 6c 20 61 29 29 0a 20 ing<?.(symbol->string.(sel.a))..
7940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d ........................(symbol-
7960 3e 73 74 72 69 6e 67 20 28 73 65 6c 20 62 29 29 29 29 29 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 >string.(sel.b)))))).....(lambda
7980 20 28 73 79 6d 73 29 0a 20 20 20 20 20 20 28 73 6f 72 74 21 20 73 79 6d 73 20 63 6d 70 29 29 29 .(syms).......(sort!.syms.cmp)))
79a0 29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65 6e 73 79 6d 3f 20 73 79 6d 29 0a 20 20 28 61 6e 64 20 )..(define.(gensym?.sym)...(and.
79c0 28 73 79 6d 62 6f 6c 3f 20 73 79 6d 29 20 28 67 65 6e 73 79 6d 2d 6e 61 6d 65 3f 20 28 66 6f 72 (symbol?.sym).(gensym-name?.(for
79e0 6d 61 74 20 23 66 20 22 7e 41 22 20 73 79 6d 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65 mat.#f."~A".sym))))..(define.(ge
7a00 6e 73 79 6d 2d 6e 61 6d 65 3f 20 6e 61 6d 65 29 0a 20 20 28 61 6e 64 20 28 73 74 72 69 6e 67 2d nsym-name?.name)...(and.(string-
7a20 6d 61 74 63 68 20 22 5e 23 5b 7b 5d 22 20 6e 61 6d 65 29 20 23 74 29 29 0a 00 00 00 00 00 00 00 match."^#[{]".name).#t))........
7a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7c00 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 73 72 63 2f 67 65 69 73 65 72 2f 63 geiser-guile-0.28.1/src/geiser/c
7c20 6f 6d 70 6c 65 74 69 6f 6e 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ompletion.scm...................
7c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7c60 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
7c80 30 30 30 31 37 36 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 35 35 37 00 20 30 00 00 00 0001767.00000000000.017557..0...
7ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7d00 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
7d20 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
7d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
7e00 3b 3b 3b 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 73 63 6d 20 2d 2d 20 63 6f 6d 70 6c 65 74 69 6e 67 ;;;.completion.scm.--.completing
7e20 20 6b 6e 6f 77 6e 20 73 79 6d 62 6f 6c 73 20 61 6e 64 20 6d 6f 64 75 6c 65 20 6e 61 6d 65 73 0a .known.symbols.and.module.names.
7e40 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 32 20 4a 6f 73 .;;.Copyright.(C).2009,.2012.Jos
7e60 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a 0a 3b 3b 20 54 68 69 73 20 70 e.Antonio.Ortega.Ruiz..;;.This.p
7e80 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e rogram.is.free.software;.you.can
7ea0 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 20 6d 6f 64 69 66 .redistribute.it.and/or.;;.modif
7ec0 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 4d 6f 64 69 y.it.under.the.terms.of.the.Modi
7ee0 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e 73 65 2e 20 59 6f 75 20 73 68 6f 75 6c 64 0a 3b 3b 20 fied.BSD.License..You.should.;;.
7f00 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 6c 69 63 65 have.received.a.copy.of.the.lice
7f20 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 49 66 0a nse.along.with.this.program..If.
7f40 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 78 66 72 65 65 38 36 2e ;;.not,.see.<http://www.xfree86.
7f60 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 52 49 47 48 54 32 2e 68 74 6d 6c 23 35 3e 2e 0a 0a 3b org/3.3.6/COPYRIGHT2.html#5>...;
7f80 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 4d 6f 6e 20 4d 61 72 20 30 32 2c 20 32 30 30 39 20 30 ;.Start.date:.Mon.Mar.02,.2009.0
7fa0 32 3a 32 32 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 63 6f 6d 2:22..(define-module.(geiser.com
7fc0 70 6c 65 74 69 6f 6e 29 0a 20 20 23 3a 65 78 70 6f 72 74 20 28 63 6f 6d 70 6c 65 74 69 6f 6e 73 pletion)...#:export.(completions
7fe0 20 6d 6f 64 75 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 .module-completions)...#:use-mod
8000 75 6c 65 20 28 67 65 69 73 65 72 20 75 74 69 6c 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c ule.(geiser.utils)...#:use-modul
8020 65 20 28 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c e.(geiser.modules)...#:use-modul
8040 65 20 28 69 63 65 2d 39 20 73 65 73 73 69 6f 6e 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 e.(ice-9.session)...#:use-module
8060 20 28 69 63 65 2d 39 20 72 65 67 65 78 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 6f 6d 70 6c 65 .(ice-9.regex))..(define.(comple
8080 74 69 6f 6e 73 20 70 72 65 66 69 78 29 0a 20 20 28 6c 65 74 20 28 28 70 72 65 66 69 78 20 28 73 tions.prefix)...(let.((prefix.(s
80a0 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 5e 22 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 70 tring-append."^".(regexp-quote.p
80c0 72 65 66 69 78 29 29 29 29 0a 20 20 20 20 28 73 6f 72 74 21 20 28 6d 61 70 20 73 79 6d 62 6f 6c refix)))).....(sort!.(map.symbol
80e0 2d 3e 73 74 72 69 6e 67 20 28 61 70 72 6f 70 6f 73 2d 69 6e 74 65 72 6e 61 6c 20 70 72 65 66 69 ->string.(apropos-internal.prefi
8100 78 29 29 20 73 74 72 69 6e 67 3c 3f 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 6f 64 75 6c 65 x)).string<?)))..(define.(module
8120 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 70 72 65 66 69 78 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 -completions.prefix)...(let*.((p
8140 72 65 66 69 78 20 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 5e 22 20 28 72 65 67 65 78 70 refix.(string-append."^".(regexp
8160 2d 71 75 6f 74 65 20 70 72 65 66 69 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 -quote.prefix)))..........(match
8180 65 72 20 28 6c 61 6d 62 64 61 20 28 73 29 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 70 72 65 er.(lambda.(s).(string-match.pre
81a0 66 69 78 20 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 73 20 28 66 69 6c 74 65 72 fix.s)))..........(names.(filter
81c0 20 6d 61 74 63 68 65 72 20 28 61 6c 6c 2d 6d 6f 64 75 6c 65 73 29 29 29 29 0a 20 20 20 20 28 73 .matcher.(all-modules)))).....(s
81e0 6f 72 74 21 20 6e 61 6d 65 73 20 73 74 72 69 6e 67 3c 3f 29 29 29 0a 00 00 00 00 00 00 00 00 00 ort!.names.string<?)))..........
8200 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 67 65 69 73 65 72 2d 67 75 69 6c 65 geiser-guile-0.28.1/geiser-guile
8220 2e 74 65 78 69 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .texi...........................
8240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8260 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
8280 30 30 30 36 35 36 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 31 34 00 20 30 00 00 00 0006567.00000000000.016114..0...
82a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
82c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
82e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8300 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
8320 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
8340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
83a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
83c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
83e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
8400 5c 69 6e 70 75 74 20 74 65 78 69 6e 66 6f 20 20 20 20 40 63 20 2d 2a 2d 20 74 65 78 69 6e 66 6f \input.texinfo....@c.-*-.texinfo
8420 20 2d 2a 2d 0a 40 63 20 25 2a 2a 73 74 61 72 74 20 6f 66 20 68 65 61 64 65 72 0a 40 73 65 74 66 .-*-.@c.%**start.of.header.@setf
8440 69 6c 65 6e 61 6d 65 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 69 6e 66 6f 0a 40 73 65 74 74 69 ilename.geiser-guile.info.@setti
8460 74 6c 65 20 47 65 69 73 65 72 20 61 6e 64 20 47 75 69 6c 65 20 74 61 6c 6b 20 74 6f 20 65 61 63 tle.Geiser.and.Guile.talk.to.eac
8480 68 20 6f 74 68 65 72 0a 40 64 6f 63 75 6d 65 6e 74 65 6e 63 6f 64 69 6e 67 20 55 54 46 2d 38 0a h.other.@documentencoding.UTF-8.
84a0 40 64 6f 63 75 6d 65 6e 74 6c 61 6e 67 75 61 67 65 20 65 6e 0a 40 63 20 25 2a 2a 65 6e 64 20 6f @documentlanguage.en.@c.%**end.o
84c0 66 20 68 65 61 64 65 72 0a 0a 40 64 69 72 63 61 74 65 67 6f 72 79 20 45 6d 61 63 73 0a 40 64 69 f.header..@dircategory.Emacs.@di
84e0 72 65 6e 74 72 79 0a 2a 20 47 65 69 73 65 72 20 47 75 69 6c 65 3a 20 28 67 65 69 73 65 72 2d 67 rentry.*.Geiser.Guile:.(geiser-g
8500 75 69 6c 65 29 2e 20 53 75 70 70 6f 72 74 20 66 6f 72 20 47 75 69 6c 65 20 69 6e 20 47 65 69 73 uile)..Support.for.Guile.in.Geis
8520 65 72 2e 0a 40 65 6e 64 20 64 69 72 65 6e 74 72 79 0a 0a 40 66 69 6e 61 6c 6f 75 74 0a 40 74 69 er..@end.direntry..@finalout.@ti
8540 74 6c 65 70 61 67 65 0a 40 74 69 74 6c 65 20 47 65 69 73 65 72 20 61 6e 64 20 47 75 69 6c 65 20 tlepage.@title.Geiser.and.Guile.
8560 74 61 6c 6b 20 74 6f 20 65 61 63 68 20 6f 74 68 65 72 0a 40 61 75 74 68 6f 72 20 6a 61 6f 0a 40 talk.to.each.other.@author.jao.@
8580 65 6e 64 20 74 69 74 6c 65 70 61 67 65 0a 0a 40 69 66 6e 6f 74 74 65 78 0a 40 6e 6f 64 65 20 54 end.titlepage..@ifnottex.@node.T
85a0 6f 70 0a 40 74 6f 70 20 47 65 69 73 65 72 20 61 6e 64 20 47 75 69 6c 65 20 74 61 6c 6b 20 74 6f op.@top.Geiser.and.Guile.talk.to
85c0 20 65 61 63 68 20 6f 74 68 65 72 0a 40 65 6e 64 20 69 66 6e 6f 74 74 65 78 0a 0a 40 6d 65 6e 75 .each.other.@end.ifnottex..@menu
85e0 0a 2a 20 4f 76 65 72 76 69 65 77 3a 3a 0a 2a 20 53 74 61 72 74 20 75 70 3a 3a 0a 2a 20 44 65 62 .*.Overview::.*.Start.up::.*.Deb
8600 75 67 67 69 6e 67 20 73 75 70 70 6f 72 74 3a 3a 0a 2a 20 54 72 61 6d 70 20 73 75 70 70 6f 72 74 ugging.support::.*.Tramp.support
8620 3a 3a 0a 40 65 6e 64 20 6d 65 6e 75 0a 0a 40 6e 6f 64 65 20 4f 76 65 72 76 69 65 77 0a 40 75 6e ::.@end.menu..@node.Overview.@un
8640 6e 75 6d 62 65 72 65 64 20 4f 76 65 72 76 69 65 77 0a 0a 54 68 69 73 20 70 61 63 6b 61 67 65 20 numbered.Overview..This.package.
8660 70 72 6f 76 69 64 65 73 20 73 75 70 70 6f 72 74 20 66 6f 72 20 75 73 69 6e 67 20 40 75 72 65 66 provides.support.for.using.@uref
8680 7b 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 73 6f 66 74 77 61 72 65 2f 67 75 {https://www.gnu.org/software/gu
86a0 69 6c 65 2f 2c 20 47 4e 55 20 47 75 69 6c 65 7d 20 69 6e 20 45 6d 61 63 73 20 77 69 74 68 0a 40 ile/,.GNU.Guile}.in.Emacs.with.@
86c0 75 72 65 66 7b 68 74 74 70 3a 2f 2f 67 65 69 73 65 72 2e 6e 6f 6e 67 6e 75 2e 6f 72 67 2c 20 47 uref{http://geiser.nongnu.org,.G
86e0 65 69 73 65 72 7d 2e 0a 0a 50 72 6f 76 69 64 65 64 20 40 75 72 65 66 7b 68 74 74 70 73 3a 2f 2f eiser}...Provided.@uref{https://
8700 67 69 74 6c 61 62 2e 63 6f 6d 2f 65 6d 61 63 73 2d 67 65 69 73 65 72 2f 67 65 69 73 65 72 2c 20 gitlab.com/emacs-geiser/geiser,.
8720 67 65 69 73 65 72 7d 20 69 73 20 69 6e 73 74 61 6c 6c 65 64 20 69 6e 20 79 6f 75 72 20 73 79 73 geiser}.is.installed.in.your.sys
8740 74 65 6d 2c 20 69 66 20 74 68 69 73 20 70 61 63 6b 61 67 65 27 73 0a 64 69 72 65 63 74 6f 72 79 tem,.if.this.package's.directory
8760 20 69 73 20 69 6e 20 79 6f 75 72 20 6c 6f 61 64 20 70 61 74 68 2c 20 6a 75 73 74 20 61 64 64 20 .is.in.your.load.path,.just.add.
8780 40 63 6f 64 65 7b 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 29 7d 20 74 @code{(require.'geiser-guile)}.t
87a0 6f 0a 79 6f 75 72 20 69 6e 69 74 69 61 6c 69 73 61 74 69 6f 6e 20 66 69 6c 65 73 20 61 6e 64 20 o.your.initialisation.files.and.
87c0 74 68 65 6e 20 40 63 6f 64 65 7b 4d 2d 78 20 72 75 6e 2d 67 75 69 6c 65 7d 20 74 6f 20 73 74 61 then.@code{M-x.run-guile}.to.sta
87e0 72 74 20 61 20 52 45 50 4c 40 2e 0a 53 63 68 65 6d 65 20 66 69 6c 65 73 20 77 69 74 68 20 61 20 rt.a.REPL@..Scheme.files.with.a.
8800 47 75 69 6c 65 20 6d 6f 64 75 6c 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 73 68 6f 75 6c 64 20 Guile.module.declaration.should.
8820 62 65 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 72 65 63 6f 67 6e 69 73 65 64 20 61 73 20 47 be.automatically.recognised.as.G
8840 75 69 6c 65 2d 66 6c 61 76 6f 75 72 65 64 20 47 65 69 73 65 72 20 62 75 66 66 65 72 73 2e 0a 0a uile-flavoured.Geiser.buffers...
8860 54 68 65 20 65 61 73 69 65 73 74 20 77 61 79 20 6f 66 20 69 6e 73 74 61 6c 6c 69 6e 67 20 74 68 The.easiest.way.of.installing.th
8880 69 73 20 70 61 63 6b 61 67 65 20 69 73 20 75 73 69 6e 67 20 4e 6f 6e 47 4e 55 20 45 6c 70 61 20 is.package.is.using.NonGNU.Elpa.
88a0 6f 72 0a 4d 45 4c 50 41 40 2e 20 20 49 66 20 79 6f 75 27 72 65 20 69 6e 20 45 6d 61 63 73 20 32 or.MELPA@...If.you're.in.Emacs.2
88c0 38 20 6f 72 20 68 69 67 68 65 72 2c 20 74 68 65 20 66 6f 72 6d 65 72 20 69 73 20 61 6c 72 65 61 8.or.higher,.the.former.is.alrea
88e0 64 79 20 65 6e 61 62 6c 65 64 0a 61 6e 64 20 61 6c 6c 20 79 6f 75 20 6e 65 65 64 20 69 73 20 74 dy.enabled.and.all.you.need.is.t
8900 68 65 20 66 61 6d 69 6c 69 61 72 0a 0a 40 6c 69 73 70 0a 4d 2d 78 20 69 6e 73 74 61 6c 6c 2d 70 he.familiar..@lisp.M-x.install-p
8920 61 63 6b 61 67 65 20 52 45 54 20 67 65 69 73 65 72 2d 67 75 69 6c 65 20 52 45 54 0a 40 65 6e 64 ackage.RET.geiser-guile.RET.@end
8940 20 6c 69 73 70 0a 0a 54 68 61 74 20 77 69 6c 6c 20 61 6c 73 6f 20 69 6e 73 74 61 6c 6c 20 67 65 .lisp..That.will.also.install.ge
8960 69 73 65 72 2c 20 61 6e 64 20 69 74 73 20 66 69 6e 65 20 69 6e 66 6f 20 6d 61 6e 75 61 6c 2e 20 iser,.and.its.fine.info.manual..
8980 20 50 6c 65 61 73 65 20 72 65 66 65 72 0a 74 6f 20 69 74 20 28 6f 72 20 69 74 73 20 40 75 72 65 .Please.refer.to.it.(or.its.@ure
89a0 66 7b 68 74 74 70 73 3a 2f 2f 67 65 69 73 65 72 2e 6e 6f 6e 67 6e 75 2e 6f 72 67 2c 20 6f 6e 6c f{https://geiser.nongnu.org,.onl
89c0 69 6e 65 20 76 65 72 73 69 6f 6e 7d 29 20 66 6f 72 20 61 20 67 65 6e 65 72 61 6c 20 64 65 73 63 ine.version}).for.a.general.desc
89e0 72 69 70 74 69 6f 6e 20 6f 66 20 68 6f 77 20 67 65 69 73 65 72 0a 73 63 68 65 6d 65 73 20 77 6f ription.of.how.geiser.schemes.wo
8a00 72 6b 2e 20 20 57 65 20 70 72 6f 76 69 64 65 20 62 65 6c 6f 77 20 73 6f 6d 65 20 61 64 64 69 74 rk...We.provide.below.some.addit
8a20 69 6f 6e 61 6c 20 64 65 74 61 69 6c 73 20 73 70 65 63 69 66 69 63 20 74 6f 0a 67 65 69 73 65 72 ional.details.specific.to.geiser
8a40 2d 67 75 69 6c 65 2e 0a 0a 40 6e 6f 64 65 20 53 74 61 72 74 20 75 70 0a 40 75 6e 6e 75 6d 62 65 -guile...@node.Start.up.@unnumbe
8a60 72 65 64 20 53 74 61 72 74 20 75 70 0a 0a 57 68 65 6e 20 6c 61 75 6e 63 68 69 6e 67 20 74 68 65 red.Start.up..When.launching.the
8a80 20 47 75 69 6c 65 20 52 45 50 4c 2c 20 67 65 69 73 65 72 20 77 69 6c 6c 20 69 6e 76 6f 6b 65 20 .Guile.REPL,.geiser.will.invoke.
8aa0 74 68 65 20 62 69 6e 61 72 79 0a 63 6f 6e 66 69 67 75 72 65 64 20 69 6e 20 40 63 6f 64 65 7b 67 the.binary.configured.in.@code{g
8ac0 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e 61 72 79 7d 20 28 73 69 6d 70 6c 79 20 22 67 75 69 eiser-guile-binary}.(simply."gui
8ae0 6c 65 22 20 62 79 20 64 65 66 61 75 6c 74 29 0a 77 68 69 63 68 20 69 6e 20 74 75 72 6e 20 77 69 le".by.default).which.in.turn.wi
8b00 6c 6c 20 6c 6f 61 64 20 40 63 6f 64 65 7b 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d ll.load.@code{geiser-guile-init-
8b20 66 69 6c 65 7d 2c 20 69 66 20 61 6e 79 2e 0a 0a 4e 6f 74 65 2c 20 68 6f 77 65 76 65 72 2c 20 74 file},.if.any...Note,.however,.t
8b40 68 61 74 20 73 70 65 63 69 66 79 69 6e 67 20 40 63 6f 64 65 7b 67 65 69 73 65 72 2d 67 75 69 6c hat.specifying.@code{geiser-guil
8b60 65 2d 69 6e 69 74 2d 66 69 6c 65 7d 20 69 73 20 40 65 6d 70 68 7b 6e 6f 74 7d 0a 65 71 75 69 76 e-init-file}.is.@emph{not}.equiv
8b80 61 6c 65 6e 74 20 74 6f 20 63 68 61 6e 67 69 6e 67 20 47 75 69 6c 65 27 73 20 69 6e 69 74 69 61 alent.to.changing.Guile's.initia
8ba0 6c 69 7a 61 74 69 6f 6e 20 66 69 6c 65 20 28 40 73 61 6d 70 7b 7e 2f 2e 67 75 69 6c 65 7d 29 2c lization.file.(@samp{~/.guile}),
8bc0 0a 62 65 63 61 75 73 65 20 74 68 65 20 66 6f 72 6d 65 72 20 69 73 20 6c 6f 61 64 65 64 20 75 73 .because.the.former.is.loaded.us
8be0 69 6e 67 20 74 68 65 20 40 73 61 6d 70 7b 2d 6c 7d 20 66 6c 61 67 2c 20 74 6f 67 65 74 68 65 72 ing.the.@samp{-l}.flag,.together
8c00 20 77 69 74 68 20 40 73 61 6d 70 7b 2d 71 7d 0a 74 6f 20 64 69 73 61 62 6c 65 20 6c 6f 61 64 69 .with.@samp{-q}.to.disable.loadi
8c20 6e 67 20 74 68 65 20 73 65 63 6f 6e 64 2e 20 20 42 75 74 20 74 68 65 72 65 20 61 72 65 20 73 75 ng.the.second...But.there.are.su
8c40 62 74 6c 65 20 64 69 66 66 65 72 65 6e 63 65 73 0a 69 6e 20 74 68 65 20 77 61 79 20 47 75 69 6c btle.differences.in.the.way.Guil
8c60 65 20 6c 6f 61 64 73 20 74 68 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 66 69 6c 65 20 e.loads.the.initialization.file.
8c80 76 65 72 73 75 73 20 68 6f 77 20 69 74 20 6c 6f 61 64 73 0a 61 20 66 69 6c 65 20 73 70 65 63 69 versus.how.it.loads.a.file.speci
8ca0 66 69 65 64 20 76 69 61 20 74 68 65 20 40 73 61 6d 70 7b 2d 6c 7d 20 66 6c 61 67 2e 20 20 49 66 fied.via.the.@samp{-l}.flag...If
8cc0 20 77 68 61 74 20 79 6f 75 20 77 61 6e 74 20 69 73 20 6a 75 73 74 0a 6c 6f 61 64 69 6e 67 20 40 .what.you.want.is.just.loading.@
8ce0 73 61 6d 70 7b 7e 2f 2e 67 75 69 6c 65 7d 2c 20 6c 65 61 76 65 20 40 63 6f 64 65 7b 67 65 69 73 samp{~/.guile},.leave.@code{geis
8d00 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 7d 20 61 6c 6f 6e 65 20 61 6e 64 20 73 65 er-guile-init-file}.alone.and.se
8d20 74 0a 40 63 6f 64 65 7b 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 t.@code{geiser-guile-load-init-f
8d40 69 6c 65 2d 70 7d 20 74 6f 20 40 63 6f 64 65 7b 74 7d 20 69 6e 73 74 65 61 64 2e 0a 0a 4f 6e 65 ile-p}.to.@code{t}.instead...One
8d60 20 63 61 6e 20 61 6c 73 6f 20 70 72 6f 76 69 64 65 20 61 20 67 6c 6f 62 61 6c 20 6c 69 73 74 20 .can.also.provide.a.global.list.
8d80 6f 66 20 70 61 74 68 73 20 74 6f 20 61 64 64 20 74 6f 20 47 75 69 6c 65 27 73 0a 40 73 61 6d 70 of.paths.to.add.to.Guile's.@samp
8da0 7b 25 6c 6f 61 64 2d 70 61 74 68 7d 20 76 69 61 20 40 63 6f 64 65 7b 67 65 69 73 65 72 2d 67 75 {%load-path}.via.@code{geiser-gu
8dc0 69 6c 65 2d 6c 6f 61 64 2d 70 61 74 68 7d 2e 0a 0a 40 6e 6f 64 65 20 44 65 62 75 67 67 69 6e 67 ile-load-path}...@node.Debugging
8de0 20 73 75 70 70 6f 72 74 0a 40 75 6e 6e 75 6d 62 65 72 65 64 20 44 65 62 75 67 67 69 6e 67 20 73 .support.@unnumbered.Debugging.s
8e00 75 70 70 6f 72 74 0a 0a 47 75 69 6c 65 20 73 75 70 70 6f 72 74 73 20 61 6c 6c 20 74 68 65 20 64 upport..Guile.supports.all.the.d
8e20 65 62 75 67 67 65 72 20 63 6f 6d 6d 61 6e 64 73 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 47 65 ebugger.commands.supported.by.Ge
8e40 69 73 65 72 20 28 69 74 27 73 0a 69 6e 20 66 61 63 74 20 75 73 65 64 20 61 73 20 74 68 65 20 72 iser.(it's.in.fact.used.as.the.r
8e60 65 66 65 72 65 6e 63 65 20 66 6f 72 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 eference.for.the.implementation.
8e80 61 6e 64 20 64 65 73 69 67 6e 20 6f 66 0a 74 68 61 74 20 73 75 70 70 6f 72 74 29 2e 20 20 57 68 and.design.of.that.support)...Wh
8ea0 65 6e 20 74 68 65 20 52 45 50 4c 20 77 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c 79 20 65 6e 74 65 72 en.the.REPL.would.normally.enter
8ec0 20 69 74 73 20 64 65 62 75 67 20 6d 6f 64 65 2c 0a 77 69 74 68 20 61 20 70 72 6f 6d 70 74 20 6f .its.debug.mode,.with.a.prompt.o
8ee0 66 20 74 68 65 20 73 74 79 6c 65 3a 0a 0a 73 63 68 65 6d 65 40 40 28 67 75 69 6c 65 2d 75 73 65 f.the.style:..scheme@@(guile-use
8f00 72 29 20 5b 31 5d 3e 0a 0a 73 68 6f 77 69 6e 67 20 61 20 64 65 62 75 67 67 69 6e 67 20 6c 65 76 r).[1]>..showing.a.debugging.lev
8f20 65 6c 2c 20 47 65 69 73 65 72 20 77 69 6c 6c 20 69 6e 73 74 65 61 64 20 62 72 69 6e 67 20 79 6f el,.Geiser.will.instead.bring.yo
8f40 75 20 74 6f 20 74 68 65 0a 40 73 61 6d 70 7b 2a 47 65 69 73 65 72 20 44 62 67 2a 7d 20 62 75 66 u.to.the.@samp{*Geiser.Dbg*}.buf
8f60 66 65 72 2c 20 77 68 65 72 65 20 79 6f 75 20 63 61 6e 20 61 63 63 65 73 73 20 61 20 6d 65 6e 75 fer,.where.you.can.access.a.menu
8f80 20 6f 66 20 64 65 62 75 67 67 69 6e 67 0a 63 6f 6d 6d 61 6e 64 73 20 76 69 61 20 74 68 65 20 40 .of.debugging.commands.via.the.@
8fa0 63 6f 64 65 7b 2c 7d 20 28 63 6f 6d 6d 61 29 20 6b 65 79 2e 0a 0a 54 68 65 20 67 65 69 73 65 72 code{,}.(comma).key...The.geiser
8fc0 2d 67 75 69 6c 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 67 72 6f 75 70 20 77 69 6c 6c 20 -guile.customization.group.will.
8fe0 73 68 6f 77 20 79 6f 75 2c 20 61 6d 6f 6e 67 20 6d 61 6e 79 0a 6f 74 68 65 72 2c 20 61 20 66 65 show.you,.among.many.other,.a.fe
9000 77 20 66 6c 61 67 73 20 66 69 6e 65 2d 74 75 6e 69 6e 67 20 69 6e 74 65 72 61 63 74 69 6f 6e 20 w.flags.fine-tuning.interaction.
9020 77 69 74 68 20 74 68 65 20 64 65 62 75 67 67 65 72 2c 20 61 73 0a 77 65 6c 6c 20 61 73 20 74 68 with.the.debugger,.as.well.as.th
9040 69 6e 67 73 20 6c 69 6b 65 20 74 68 65 20 64 65 74 61 69 6c 20 6c 65 76 65 6c 20 6f 66 20 65 72 ings.like.the.detail.level.of.er
9060 72 6f 72 20 6d 65 73 73 61 67 65 73 20 28 65 2e 67 2e 20 76 69 61 0a 40 63 6f 64 65 7b 67 65 69 ror.messages.(e.g..via.@code{gei
9080 73 65 72 2d 67 75 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 7d 29 2e 0a 0a 40 6e 6f 64 ser-guile-warning-level})...@nod
90a0 65 20 54 72 61 6d 70 20 73 75 70 70 6f 72 74 0a 40 75 6e 6e 75 6d 62 65 72 65 64 20 54 72 61 6d e.Tramp.support.@unnumbered.Tram
90c0 70 20 73 75 70 70 6f 72 74 0a 0a 47 65 69 73 65 72 20 67 75 69 6c 65 20 63 61 6e 20 62 65 20 75 p.support..Geiser.guile.can.be.u
90e0 73 65 64 20 72 65 6d 6f 74 65 6c 79 20 76 69 61 20 74 72 61 6d 70 20 63 6f 6e 6e 65 63 74 69 6f sed.remotely.via.tramp.connectio
9100 6e 73 3a 20 74 68 65 20 52 45 50 4c 0a 70 72 6f 63 65 73 73 20 77 69 6c 6c 20 62 65 20 72 75 6e ns:.the.REPL.process.will.be.run
9120 20 69 6e 20 74 68 65 20 6d 61 63 68 69 6e 65 20 77 68 65 72 65 20 74 68 65 20 74 72 61 6d 70 2d .in.the.machine.where.the.tramp-
9140 61 63 63 65 73 73 65 64 20 66 69 6c 65 0a 6c 69 76 65 73 2e 20 20 49 6d 70 6c 65 6d 65 6e 74 65 accessed.file.lives...Implemente
9160 64 20 62 79 20 46 65 6c 69 70 65 20 4c 65 6d 61 2e 0a 0a 40 62 79 65 00 00 00 00 00 00 00 00 00 d.by.Felipe.Lema...@bye.........
9180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
91a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
91c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
91e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9200 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 67 65 69 73 65 72 2d 67 75 69 6c 65 geiser-guile-0.28.1/geiser-guile
9220 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -pkg.el.........................
9240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9260 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
9280 30 30 30 30 37 34 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 33 30 36 00 20 30 00 00 00 0000741.00000000000.016306..0...
92a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
92c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
92e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9300 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
9320 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
9340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
93a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
93c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
93e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9400 3b 3b 20 47 65 6e 65 72 61 74 65 64 20 70 61 63 6b 61 67 65 20 64 65 73 63 72 69 70 74 69 6f 6e ;;.Generated.package.description
9420 20 66 72 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 65 6c 20 20 2d 2a 2d 20 6e 6f 2d 62 79 .from.geiser-guile.el..-*-.no-by
9440 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 te-compile:.t.-*-.(define-packag
9460 65 20 22 67 65 69 73 65 72 2d 67 75 69 6c 65 22 20 22 30 2e 32 38 2e 31 22 20 22 47 75 69 6c 65 e."geiser-guile"."0.28.1"."Guile
9480 20 61 6e 64 20 47 65 69 73 65 72 20 74 61 6c 6b 20 74 6f 20 65 61 63 68 20 6f 74 68 65 72 22 20 .and.Geiser.talk.to.each.other".
94a0 27 28 28 65 6d 61 63 73 20 22 32 35 2e 31 22 29 20 28 74 72 61 6e 73 69 65 6e 74 20 22 30 2e 33 '((emacs."25.1").(transient."0.3
94c0 22 29 20 28 67 65 69 73 65 72 20 22 30 2e 32 38 2e 31 22 29 29 20 3a 63 6f 6d 6d 69 74 20 22 66 ").(geiser."0.28.1")).:commit."f
94e0 35 37 62 66 64 35 30 33 39 63 65 31 35 38 64 65 39 35 64 32 65 66 32 39 33 33 65 36 34 66 62 31 57bfd5039ce158de95d2ef2933e64fb1
9500 36 64 65 66 34 66 36 22 20 3a 61 75 74 68 6f 72 73 20 27 28 28 22 4a 6f 73 65 20 41 6e 74 6f 6e 6def4f6".:authors.'(("Jose.Anton
9520 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 22 20 2e 20 22 28 6a 61 6f 40 67 6e 75 2e 6f 72 67 29 io.Ortega.Ruiz"..."(jao@gnu.org)
9540 22 29 29 20 3a 6d 61 69 6e 74 61 69 6e 65 72 20 27 28 22 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 ")).:maintainer.'("Jose.Antonio.
9560 4f 72 74 65 67 61 20 52 75 69 7a 22 20 2e 20 22 28 6a 61 6f 40 67 6e 75 2e 6f 72 67 29 22 29 20 Ortega.Ruiz"..."(jao@gnu.org)").
9580 3a 6b 65 79 77 6f 72 64 73 20 27 28 22 6c 61 6e 67 75 61 67 65 73 22 20 22 67 75 69 6c 65 22 20 :keywords.'("languages"."guile".
95a0 22 73 63 68 65 6d 65 22 20 22 67 65 69 73 65 72 22 29 20 3a 75 72 6c 20 22 68 74 74 70 73 3a 2f "scheme"."geiser").:url."https:/
95c0 2f 67 69 74 6c 61 62 2e 63 6f 6d 2f 65 6d 61 63 73 2d 67 65 69 73 65 72 2f 67 75 69 6c 65 22 29 /gitlab.com/emacs-geiser/guile")
95e0 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9600 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 67 65 69 73 65 72 2d 67 75 69 6c 65 geiser-guile-0.28.1/geiser-guile
9620 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .el.............................
9640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9660 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
9680 30 30 36 32 30 30 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 35 32 34 00 20 30 00 00 00 0062001.00000000000.015524..0...
96a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
96c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
96e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9700 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
9720 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
9740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
97a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
97c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
97e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
9800 3b 3b 3b 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 65 6c 20 2d 2d 2d 20 47 75 69 6c 65 20 61 6e ;;;.geiser-guile.el.---.Guile.an
9820 64 20 47 65 69 73 65 72 20 74 61 6c 6b 20 74 6f 20 65 61 63 68 20 6f 74 68 65 72 20 20 2d 2a 2d d.Geiser.talk.to.each.other..-*-
9840 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 .lexical-binding:.t;.-*-..;;.Cop
9860 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2d 32 30 32 32 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 yright.(C).2009-2022.Jose.Antoni
9880 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 53 75 6e o.Ortega.Ruiz.;;.Start.date:.Sun
98a0 20 4d 61 72 20 30 38 2c 20 32 30 30 39 20 32 33 3a 30 33 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 .Mar.08,.2009.23:03..;;.Author:.
98c0 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 20 28 6a 61 6f 40 67 6e Jose.Antonio.Ortega.Ruiz.(jao@gn
98e0 75 2e 6f 72 67 29 0a 3b 3b 20 4d 61 69 6e 74 61 69 6e 65 72 3a 20 4a 6f 73 65 20 41 6e 74 6f 6e u.org).;;.Maintainer:.Jose.Anton
9900 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 20 28 6a 61 6f 40 67 6e 75 2e 6f 72 67 29 0a 3b 3b 20 io.Ortega.Ruiz.(jao@gnu.org).;;.
9920 4b 65 79 77 6f 72 64 73 3a 20 6c 61 6e 67 75 61 67 65 73 2c 20 67 75 69 6c 65 2c 20 73 63 68 65 Keywords:.languages,.guile,.sche
9940 6d 65 2c 20 67 65 69 73 65 72 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f me,.geiser.;;.Homepage:.https://
9960 67 69 74 6c 61 62 2e 63 6f 6d 2f 65 6d 61 63 73 2d 67 65 69 73 65 72 2f 67 75 69 6c 65 0a 3b 3b gitlab.com/emacs-geiser/guile.;;
9980 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 22 32 35 2e 31 .Package-Requires:.((emacs."25.1
99a0 22 29 20 28 74 72 61 6e 73 69 65 6e 74 20 22 30 2e 33 22 29 20 28 67 65 69 73 65 72 20 22 30 2e ").(transient."0.3").(geiser."0.
99c0 32 38 2e 31 22 29 29 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 28.1")).;;.SPDX-License-Identifi
99e0 65 72 3a 20 42 53 44 2d 33 2d 43 6c 61 75 73 65 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 30 2e 32 er:.BSD-3-Clause.;;.Version:.0.2
9a00 38 2e 31 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66 8.1..;;.This.file.is.NOT.part.of
9a20 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b .GNU.Emacs...;;;.Commentary:..;;
9a40 20 54 68 69 73 20 70 61 63 6b 61 67 65 20 65 78 74 65 6e 64 73 20 74 68 65 20 60 67 65 69 73 65 .This.package.extends.the.`geise
9a60 72 27 20 63 6f 72 65 20 70 61 63 6b 61 67 65 20 74 6f 20 73 75 70 70 6f 72 74 20 47 4e 55 0a 3b r'.core.package.to.support.GNU.;
9a80 3b 20 47 75 69 6c 65 2e 0a 0a 0c 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 ;.Guile.....;;;.Code:..(require.
9aa0 27 67 65 69 73 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 'geiser-connection).(require.'ge
9ac0 69 73 65 72 2d 73 79 6e 74 61 78 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 2d 63 75 iser-syntax).(require.'geiser-cu
9ae0 73 74 6f 6d 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 2d 72 65 70 6c 29 0a 28 72 65 stom).(require.'geiser-repl).(re
9b00 71 75 69 72 65 20 27 67 65 69 73 65 72 2d 64 65 62 75 67 29 0a 28 72 65 71 75 69 72 65 20 27 67 quire.'geiser-debug).(require.'g
9b20 65 69 73 65 72 2d 69 6d 70 6c 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 2d 62 61 73 eiser-impl).(require.'geiser-bas
9b40 65 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 2d 65 76 61 6c 29 0a 28 72 65 71 75 69 e).(require.'geiser-eval).(requi
9b60 72 65 20 27 67 65 69 73 65 72 2d 65 64 69 74 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 re.'geiser-edit).(require.'geise
9b80 72 2d 6c 6f 67 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 29 0a 0a 28 72 65 71 75 69 r-log).(require.'geiser)..(requi
9ba0 72 65 20 27 74 72 61 6e 73 69 65 6e 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 6f 6d 70 69 6c 65 re.'transient).(require.'compile
9bc0 29 0a 28 72 65 71 75 69 72 65 20 27 69 6e 66 6f 2d 6c 6f 6f 6b 29 0a 0a 28 65 76 61 6c 2d 77 68 ).(require.'info-look)..(eval-wh
9be0 65 6e 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 20 en-compile...(require.'cl-lib)..
9c00 20 28 72 65 71 75 69 72 65 20 27 74 72 61 6d 70 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 75 .(require.'tramp)...(require.'su
9c20 62 72 2d 78 29 29 0a 0a 0c 0a 3b 3b 3b 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 0a 28 64 65 br-x))....;;;.Customization..(de
9c40 66 67 72 6f 75 70 20 67 65 69 73 65 72 2d 67 75 69 6c 65 20 6e 69 6c 0a 20 20 22 43 75 73 74 6f fgroup.geiser-guile.nil..."Custo
9c60 6d 69 7a 61 74 69 6f 6e 20 66 6f 72 20 47 65 69 73 65 72 27 73 20 47 75 69 6c 65 20 66 6c 61 76 mization.for.Geiser's.Guile.flav
9c80 6f 75 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 67 65 69 73 65 72 29 0a 0a 28 67 65 69 73 65 72 our."...:group.'geiser)..(geiser
9ca0 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d -custom--defcustom.geiser-guile-
9cc0 62 69 6e 61 72 79 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 binary.....(cond.((eq.system-typ
9ce0 65 20 27 77 69 6e 64 6f 77 73 2d 6e 74 29 20 22 67 75 69 6c 65 2e 65 78 65 22 29 0a 20 20 20 20 e.'windows-nt)."guile.exe").....
9d00 20 20 20 20 20 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 64 61 72 77 69 6e 29 20 ......((eq.system-type.'darwin).
9d20 22 67 75 69 6c 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 22 67 75 69 6c 65 22 29 29 0a "guile")...........(t."guile")).
9d40 20 20 22 4e 61 6d 65 20 74 6f 20 75 73 65 20 74 6f 20 63 61 6c 6c 20 74 68 65 20 47 75 69 6c 65 .."Name.to.use.to.call.the.Guile
9d60 20 65 78 65 63 75 74 61 62 6c 65 20 77 68 65 6e 20 73 74 61 72 74 69 6e 67 20 61 20 52 45 50 4c .executable.when.starting.a.REPL
9d80 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 73 74 72 69 6e 67 20 28 72 65 70 65 ."...:type.'(choice.string.(repe
9da0 61 74 20 73 74 72 69 6e 67 29 29 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 at.string)))..(geiser-custom--de
9dc0 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 70 61 74 68 20 6e fcustom.geiser-guile-load-path.n
9de0 69 6c 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 70 61 74 68 73 20 74 6f 20 62 65 20 61 64 64 65 il..."A.list.of.paths.to.be.adde
9e00 64 20 74 6f 20 47 75 69 6c 65 27 73 20 6c 6f 61 64 20 70 61 74 68 20 77 68 65 6e 20 69 74 27 73 d.to.Guile's.load.path.when.it's
9e20 20 73 74 61 72 74 65 64 2e 0a 54 68 65 20 70 61 74 68 73 20 61 72 65 20 61 64 64 65 64 20 74 6f .started..The.paths.are.added.to
9e40 20 62 6f 74 68 20 25 60 6c 6f 61 64 2d 70 61 74 68 27 20 61 6e 64 20 25 6c 6f 61 64 2d 63 6f 6d .both.%`load-path'.and.%load-com
9e60 70 69 6c 65 64 20 70 61 74 68 2c 0a 61 6e 64 20 6f 6e 6c 79 20 69 66 20 74 68 65 79 20 61 72 65 piled.path,.and.only.if.they.are
9e80 20 6e 6f 74 20 61 6c 72 65 61 64 79 20 70 72 65 73 65 6e 74 2e 20 20 54 68 69 73 20 76 61 72 69 .not.already.present...This.vari
9ea0 61 62 6c 65 20 69 73 20 61 0a 67 6f 6f 64 20 63 61 6e 64 69 64 61 74 65 20 66 6f 72 20 61 6e 20 able.is.a.good.candidate.for.an.
9ec0 65 6e 74 72 79 20 69 6e 20 79 6f 75 72 20 70 72 6f 6a 65 63 74 27 73 20 2e 64 69 72 2d 6c 6f 63 entry.in.your.project's..dir-loc
9ee0 61 6c 73 2e 65 6c 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 66 69 6c 65 29 29 als.el."...:type.'(repeat.file))
9f00 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 ..(geiser-custom--defcustom.geis
9f20 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 20 22 7e 2f 2e 67 75 69 6c 65 2d 67 65 69 er-guile-init-file."~/.guile-gei
9f40 73 65 72 22 0a 20 20 22 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 66 69 6c 65 20 77 69 74 68 ser"..."Initialization.file.with
9f60 20 75 73 65 72 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20 47 75 69 6c 65 20 52 45 50 4c 2e 0a 49 .user.code.for.the.Guile.REPL..I
9f80 66 20 61 6c 6c 20 79 6f 75 20 77 61 6e 74 20 69 73 20 74 6f 20 6c 6f 61 64 20 7e 2f 2e 67 75 69 f.all.you.want.is.to.load.~/.gui
9fa0 6c 65 2c 20 73 65 74 0a 60 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d le,.set.`geiser-guile-load-init-
9fc0 66 69 6c 65 27 20 69 6e 73 74 65 61 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 file'.instead."...:type.'string)
9fe0 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 ..(geiser-custom--defcustom.geis
a000 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69 6c 65 20 6e 69 6c 0a 20 20 22 57 er-guile-load-init-file.nil..."W
a020 68 65 74 68 65 72 20 74 6f 20 6c 6f 61 64 20 7e 2f 2e 67 75 69 6c 65 20 77 68 65 6e 20 73 74 61 hether.to.load.~/.guile.when.sta
a040 72 74 69 6e 67 20 47 75 69 6c 65 2e 0a 4e 6f 74 65 20 74 68 61 74 2c 20 64 75 65 20 74 6f 20 70 rting.Guile..Note.that,.due.to.p
a060 65 63 75 6c 69 61 72 69 74 69 65 73 20 69 6e 20 74 68 65 20 77 61 79 20 47 75 69 6c 65 20 6c 6f eculiarities.in.the.way.Guile.lo
a080 61 64 73 20 69 74 73 20 69 6e 69 74 0a 66 69 6c 65 2c 20 75 73 69 6e 67 20 60 67 65 69 73 65 72 ads.its.init.file,.using.`geiser
a0a0 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 27 20 69 73 20 6e 6f 74 20 65 71 75 69 76 61 6c -guile-init-file'.is.not.equival
a0c0 65 6e 74 20 74 6f 20 73 65 74 74 69 6e 67 0a 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 74 6f 20 ent.to.setting.this.variable.to.
a0e0 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 69 6e 65 2d 6f t."...:type.'boolean)..(define-o
a100 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a 20 20 27 67 65 69 73 65 72 bsolete-variable-alias...'geiser
a120 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69 6c 65 2d 70 20 27 67 65 69 73 65 72 2d -guile-load-init-file-p.'geiser-
a140 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69 6c 65 20 22 30 2e 32 36 2e 32 22 29 0a 0a guile-load-init-file."0.26.2")..
a160 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 (geiser-custom--defcustom.geiser
a180 2d 67 75 69 6c 65 2d 75 73 65 2d 64 65 63 6c 61 72 61 74 69 76 65 2d 6d 6f 64 75 6c 65 73 20 6e -guile-use-declarative-modules.n
a1a0 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 47 75 69 6c 65 20 73 68 6f 75 6c 64 20 75 73 65 20 5c il..."Whether.Guile.should.use.\
a1c0 22 64 65 63 6c 61 72 61 74 69 76 65 5c 22 20 6d 6f 64 75 6c 65 73 20 6c 69 6d 69 74 69 6e 67 20 "declarative\".modules.limiting.
a1e0 6d 75 74 61 62 69 6c 69 74 79 2e 0a 57 68 65 6e 20 73 65 74 20 74 6f 20 60 74 27 2c 20 47 75 69 mutability..When.set.to.`t',.Gui
a200 6c 65 20 77 69 6c 6c 20 65 6e 66 6f 72 63 65 20 69 6d 6d 75 74 61 62 6c 65 20 62 69 6e 64 69 6e le.will.enforce.immutable.bindin
a220 67 73 20 69 6e 0a 65 78 70 6f 72 74 65 64 20 6d 6f 64 75 6c 65 73 2e 22 0a 20 20 3a 74 79 70 65 gs.in.exported.modules."...:type
a240 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 6c 69 6e 6b 20 27 28 69 6e 66 6f 2d 6c 69 6e 6b 20 22 28 .'boolean...:link.'(info-link."(
a260 67 75 69 6c 65 29 20 44 65 63 6c 61 72 61 74 69 76 65 20 4d 6f 64 75 6c 65 73 22 29 29 0a 0a 28 guile).Declarative.Modules"))..(
a280 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a 20 define-obsolete-variable-alias..
a2a0 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 73 65 2d 64 65 63 6c 61 72 61 74 69 76 65 2d 6d .'geiser-guile-use-declarative-m
a2c0 6f 64 75 6c 65 73 2d 70 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 73 65 2d 64 65 63 6c 61 odules-p.'geiser-guile-use-decla
a2e0 72 61 74 69 76 65 2d 6d 6f 64 75 6c 65 73 0a 20 20 22 30 2e 32 36 2e 32 22 29 0a 0a 28 67 65 69 rative-modules..."0.26.2")..(gei
a300 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 ser-custom--defcustom.geiser-gui
a320 6c 65 2d 64 65 62 75 67 2d 62 61 63 6b 77 61 72 64 73 2d 62 61 63 6b 74 72 61 63 65 20 74 0a 20 le-debug-backwards-backtrace.t..
a340 20 22 57 68 65 74 68 65 72 20 74 6f 20 63 6f 6e 66 69 67 75 72 65 20 62 61 63 6b 74 72 61 63 65 ."Whether.to.configure.backtrace
a360 73 20 75 73 69 6e 67 20 74 68 65 20 5c 5c 3d 27 62 61 63 6b 77 61 72 64 73 20 6f 72 64 65 72 69 s.using.the.\\='backwards.orderi
a380 6e 67 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 67 65 69 73 65 72 2d ng."...:type.'boolean)..(geiser-
a3a0 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 custom--defcustom.geiser-guile-d
a3c0 65 62 75 67 2d 74 65 72 6d 69 6e 61 6c 2d 77 69 64 74 68 20 39 39 39 0a 20 20 22 4d 61 78 69 6d ebug-terminal-width.999..."Maxim
a3e0 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 73 68 6f 77 6e 20 69 6e 20 62 61 um.number.of.columns.shown.in.ba
a400 63 6b 74 72 61 63 65 73 2e 0a 4e 6f 72 6d 61 6c 6c 79 2c 20 79 6f 75 27 64 20 77 61 6e 74 20 61 cktraces..Normally,.you'd.want.a
a420 20 62 69 67 20 76 61 6c 75 65 20 68 65 72 65 20 73 6f 20 74 68 61 74 20 6d 65 73 73 61 67 65 73 .big.value.here.so.that.messages
a440 20 61 72 65 20 6e 6f 74 0a 74 72 75 6e 63 61 74 65 64 2e 20 20 53 65 74 20 74 6f 20 61 20 6e 65 .are.not.truncated...Set.to.a.ne
a460 67 61 74 69 76 65 20 76 61 6c 75 65 20 69 66 20 79 6f 75 20 70 72 65 66 65 72 20 74 68 61 74 20 gative.value.if.you.prefer.that.
a480 67 65 69 73 65 72 0a 64 6f 65 73 20 6e 6f 74 20 73 65 74 20 69 74 20 6f 6e 20 73 74 61 72 74 75 geiser.does.not.set.it.on.startu
a4a0 70 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 67 65 69 73 65 72 2d 63 p."...:type.'integer)..(geiser-c
a4c0 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 ustom--defcustom.geiser-guile-de
a4e0 62 75 67 2d 73 68 6f 77 2d 62 74 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 61 75 74 6f bug-show-bt.t..."Whether.to.auto
a500 6d 61 74 69 63 61 6c 6c 79 20 73 68 6f 77 20 61 20 66 75 6c 6c 20 62 61 63 6b 74 72 61 63 65 20 matically.show.a.full.backtrace.
a520 77 68 65 6e 20 65 6e 74 65 72 69 6e 67 20 74 68 65 20 64 65 62 75 67 67 65 72 2e 0a 49 66 20 6e when.entering.the.debugger..If.n
a540 69 6c 2c 20 6f 6e 6c 79 20 74 68 65 20 6c 61 73 74 20 66 72 61 6d 65 20 69 73 20 73 68 6f 77 6e il,.only.the.last.frame.is.shown
a560 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 ."...:type.'boolean)..(define-ob
a580 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a 20 20 27 67 65 69 73 65 72 2d solete-variable-alias...'geiser-
a5a0 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 62 74 2d 70 20 27 67 65 69 73 65 72 2d 67 75 guile-debug-show-bt-p.'geiser-gu
a5c0 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 62 74 20 22 30 2e 32 36 2e 32 22 29 0a 0a 0a 28 67 ile-debug-show-bt."0.26.2")...(g
a5e0 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 eiser-custom--defcustom.geiser-g
a600 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 66 75 6c 6c 2d 62 74 20 74 0a 20 20 22 57 68 65 uile-debug-show-full-bt.t..."Whe
a620 74 68 65 72 20 74 6f 20 73 68 6f 77 20 66 75 6c 6c 20 62 61 63 6b 74 72 61 63 65 73 20 69 6e 20 ther.to.show.full.backtraces.in.
a640 74 68 65 20 64 65 62 75 67 67 65 72 2c 20 69 6e 63 6c 75 64 69 6e 67 20 6c 6f 63 61 6c 20 76 61 the.debugger,.including.local.va
a660 72 69 61 62 6c 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 riables."...:type.'boolean)..(de
a680 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a 20 20 27 fine-obsolete-variable-alias...'
a6a0 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 66 75 6c 6c 2d 62 74 2d geiser-guile-debug-show-full-bt-
a6c0 70 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 66 75 6c 6c 2d p.'geiser-guile-debug-show-full-
a6e0 62 74 20 22 30 2e 32 36 2e 32 22 29 0a 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 bt."0.26.2")...(geiser-custom--d
a700 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 68 6f 77 2d 64 65 62 75 67 efcustom.geiser-guile-show-debug
a720 2d 68 65 6c 70 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 73 68 6f 77 20 62 72 69 65 66 -help.t..."Whether.to.show.brief
a740 20 68 65 6c 70 20 69 6e 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 20 77 68 65 6e 20 65 6e 74 65 .help.in.the.echo.area.when.ente
a760 72 69 6e 67 20 74 68 65 20 64 65 62 75 67 67 65 72 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f ring.the.debugger."...:type.'boo
a780 6c 65 61 6e 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 lean)..(define-obsolete-variable
a7a0 2d 61 6c 69 61 73 0a 20 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 68 6f 77 2d 64 65 62 75 -alias...'geiser-guile-show-debu
a7c0 67 2d 68 65 6c 70 2d 70 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 68 6f 77 2d 64 65 62 75 g-help-p.'geiser-guile-show-debu
a7e0 67 2d 68 65 6c 70 20 22 30 2e 32 36 2e 32 22 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d g-help."0.26.2")..(geiser-custom
a800 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 77 61 72 6e 69 6e 67 --defcustom.geiser-guile-warning
a820 2d 6c 65 76 65 6c 20 27 6d 65 64 69 75 6d 0a 20 20 22 56 65 72 62 6f 73 69 74 79 20 6f 66 20 74 -level.'medium..."Verbosity.of.t
a840 68 65 20 77 61 72 6e 69 6e 67 73 20 72 65 70 6f 72 74 65 64 20 62 79 20 47 75 69 6c 65 2e 0a 0a he.warnings.reported.by.Guile...
a860 59 6f 75 20 63 61 6e 20 65 69 74 68 65 72 20 63 68 6f 6f 73 65 20 6f 6e 65 20 6f 66 20 74 68 65 You.can.either.choose.one.of.the
a880 20 70 72 65 64 65 66 69 6e 65 64 20 77 61 72 6e 69 6e 67 20 73 65 74 73 2c 20 6f 72 0a 70 72 6f .predefined.warning.sets,.or.pro
a8a0 76 69 64 65 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 69 64 65 6e 74 69 66 79 69 vide.a.list.of.symbols.identifyi
a8c0 6e 67 20 74 68 65 20 6f 6e 65 73 20 79 6f 75 20 77 61 6e 74 2e 20 20 50 6f 73 73 69 62 6c 65 0a ng.the.ones.you.want...Possible.
a8e0 63 68 6f 69 63 65 73 20 61 72 65 20 61 72 69 74 79 2d 6d 69 73 6d 61 74 63 68 2c 20 75 6e 62 6f choices.are.arity-mismatch,.unbo
a900 75 6e 64 2d 76 61 72 69 61 62 6c 65 2c 20 75 6e 75 73 65 64 2d 76 61 72 69 61 62 6c 65 20 61 6e und-variable,.unused-variable.an
a920 64 0a 75 6e 75 73 65 64 2d 74 6f 70 6c 65 76 65 6c 2e 20 20 55 6e 72 65 63 6f 67 6e 69 73 65 64 d.unused-toplevel...Unrecognised
a940 20 73 79 6d 62 6f 6c 73 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 0a 54 68 65 20 70 72 65 64 65 .symbols.are.ignored...The.prede
a960 66 69 6e 65 64 20 6c 65 76 65 6c 73 20 61 72 65 3a 0a 0a 20 20 2d 20 4d 65 64 69 75 6d 3a 20 61 fined.levels.are:....-.Medium:.a
a980 72 69 74 79 2d 6d 69 73 6d 61 74 63 68 2c 20 75 6e 62 6f 75 6e 64 2d 76 61 72 69 61 62 6c 65 2c rity-mismatch,.unbound-variable,
a9a0 20 66 6f 72 6d 61 74 0a 20 20 2d 20 48 69 67 68 3a 20 61 72 69 74 79 2d 6d 69 73 6d 61 74 63 68 .format...-.High:.arity-mismatch
a9c0 2c 20 75 6e 62 6f 75 6e 64 2d 76 61 72 69 61 62 6c 65 2c 20 75 6e 75 73 65 64 2d 76 61 72 69 61 ,.unbound-variable,.unused-varia
a9e0 62 6c 65 2c 20 66 6f 72 6d 61 74 0a 20 20 2d 20 4e 6f 6e 65 3a 20 6e 6f 20 77 61 72 6e 69 6e 67 ble,.format...-.None:.no.warning
aa00 73 0a 0a 43 68 61 6e 67 65 73 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 69 73 20 s..Changes.to.the.value.of.this.
aa20 76 61 72 69 61 62 6c 65 20 77 69 6c 6c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 74 61 6b 65 variable.will.automatically.take
aa40 0a 65 66 66 65 63 74 20 6f 6e 20 6e 65 77 20 52 45 50 4c 73 2e 20 20 46 6f 72 20 65 78 69 73 74 .effect.on.new.REPLs...For.exist
aa60 69 6e 67 20 6f 6e 65 73 2c 20 75 73 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 0a 5c 5c 5b 67 65 69 ing.ones,.use.the.command.\\[gei
aa80 73 65 72 2d 67 75 69 6c 65 2d 75 70 64 61 74 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 5d 2e ser-guile-update-warning-level].
aaa0 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 "...:type.'(choice.(const.:tag."
aac0 4d 65 64 69 75 6d 20 28 61 72 69 74 79 20 61 6e 64 20 75 6e 62 6f 75 6e 64 20 76 61 72 73 29 22 Medium.(arity.and.unbound.vars)"
aae0 20 6d 65 64 69 75 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 .medium)..................(const
ab00 20 3a 74 61 67 20 22 48 69 67 68 20 28 61 6c 73 6f 20 75 6e 75 73 65 64 20 76 61 72 73 29 22 20 .:tag."High.(also.unused.vars)".
ab20 68 69 67 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 high)..................(const.:t
ab40 61 67 20 22 4e 6f 20 77 61 72 6e 69 6e 67 73 22 20 6e 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 ag."No.warnings".none)..........
ab60 20 20 20 20 20 20 20 20 28 72 65 70 65 61 74 20 3a 74 61 67 20 22 43 75 73 74 6f 6d 22 20 73 79 ........(repeat.:tag."Custom".sy
ab80 6d 62 6f 6c 29 29 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 mbol)))..(geiser-custom--defcust
aba0 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 6e om.geiser-guile-extra-keywords.n
abc0 69 6c 0a 20 20 22 45 78 74 72 61 20 6b 65 79 77 6f 72 64 73 20 68 69 67 68 6c 69 67 68 74 65 64 il..."Extra.keywords.highlighted
abe0 20 69 6e 20 47 75 69 6c 65 20 73 63 68 65 6d 65 20 62 75 66 66 65 72 73 2e 22 0a 20 20 3a 74 79 .in.Guile.scheme.buffers."...:ty
ac00 70 65 20 27 28 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 pe.'(repeat.string))..(geiser-cu
ac20 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 63 61 73 stom--defcustom.geiser-guile-cas
ac40 65 2d 73 65 6e 73 69 74 69 76 65 20 74 0a 20 20 22 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 6b e-sensitive.t..."Non-nil.means.k
ac60 65 79 77 6f 72 64 20 68 69 67 68 6c 69 67 68 74 69 6e 67 20 69 73 20 63 61 73 65 2d 73 65 6e 73 eyword.highlighting.is.case-sens
ac80 69 74 69 76 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 69 itive."...:type.'boolean)..(defi
aca0 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a 20 20 27 67 65 ne-obsolete-variable-alias...'ge
acc0 69 73 65 72 2d 67 75 69 6c 65 2d 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 2d 70 20 27 67 65 69 iser-guile-case-sensitive-p.'gei
ace0 73 65 72 2d 67 75 69 6c 65 2d 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 20 22 30 2e 32 36 2e 32 ser-guile-case-sensitive."0.26.2
ad00 22 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 ")..(geiser-custom--defcustom.ge
ad20 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 6f 74 68 65 72 2d 77 iser-guile-manual-lookup-other-w
ad40 69 6e 64 6f 77 20 6e 69 6c 0a 20 20 22 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 70 6f 70 20 75 indow.nil..."Non-nil.means.pop.u
ad60 70 20 74 68 65 20 49 6e 66 6f 20 62 75 66 66 65 72 20 69 6e 20 61 6e 6f 74 68 65 72 20 77 69 6e p.the.Info.buffer.in.another.win
ad80 64 6f 77 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 69 6e 65 dow."...:type.'boolean)..(define
ada0 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a 20 20 27 67 65 69 73 -obsolete-variable-alias...'geis
adc0 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 6f 74 68 65 72 2d 77 69 6e er-guile-manual-lookup-other-win
ade0 64 6f 77 2d 70 0a 20 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f dow-p...'geiser-guile-manual-loo
ae00 6b 75 70 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 30 2e 32 36 2e 32 22 29 0a 0a 28 67 65 69 kup-other-window."0.26.2")..(gei
ae20 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 ser-custom--defcustom.geiser-gui
ae40 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 6e 6f 64 65 73 0a 20 20 20 20 27 28 22 47 75 le-manual-lookup-nodes.....'("Gu
ae60 69 6c 65 22 20 22 67 75 69 6c 65 2d 32 2e 30 22 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 69 6e 66 ile"."guile-2.0")..."List.of.inf
ae80 6f 20 6e 6f 64 65 73 20 74 68 61 74 2c 20 77 68 65 6e 20 70 72 65 73 65 6e 74 2c 20 61 72 65 20 o.nodes.that,.when.present,.are.
aea0 75 73 65 64 20 66 6f 72 20 6d 61 6e 75 61 6c 20 6c 6f 6f 6b 75 70 73 2e 22 0a 20 20 3a 74 79 70 used.for.manual.lookups."...:typ
aec0 65 20 27 28 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 29 0a 0a 0c 0a 3b 3b 3b 20 52 45 50 4c 20 e.'(repeat.string))....;;;.REPL.
aee0 73 75 70 70 6f 72 74 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 62 69 support..(defun.geiser-guile--bi
af00 6e 61 72 79 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 nary.()..."Return.the.name.of.th
af20 65 20 47 75 69 6c 65 20 62 69 6e 61 72 79 20 74 6f 20 65 78 65 63 75 74 65 2e 22 0a 20 20 28 69 e.Guile.binary.to.execute."...(i
af40 66 20 28 6c 69 73 74 70 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e 61 72 79 29 0a 20 20 f.(listp.geiser-guile-binary)...
af60 20 20 20 20 28 63 61 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e 61 72 79 29 0a 20 20 ....(car.geiser-guile-binary)...
af80 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e 61 72 79 29 29 0a 0a 28 64 65 66 76 61 72 ..geiser-guile-binary))..(defvar
afa0 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d 65 2d 64 69 72 0a 20 20 28 65 78 70 61 .geiser-guile-scheme-dir...(expa
afc0 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 73 72 63 22 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 nd-file-name."src".(file-name-di
afe0 72 65 63 74 6f 72 79 20 6c 6f 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 22 44 69 72 65 rectory.load-file-name))..."Dire
b000 63 74 6f 72 79 20 77 68 65 72 65 20 74 68 65 20 47 75 69 6c 65 20 73 63 68 65 6d 65 20 67 65 69 ctory.where.the.Guile.scheme.gei
b020 73 65 72 20 6d 6f 64 75 6c 65 73 20 61 72 65 20 69 6e 73 74 61 6c 6c 65 64 2e 22 29 0a 0a 28 64 ser.modules.are.installed.")..(d
b040 65 66 76 61 72 2d 6c 6f 63 61 6c 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d 65 2d efvar-local.geiser-guile-scheme-
b060 6c 6f 63 61 6c 2d 64 69 72 0a 20 20 20 20 6e 69 6c 0a 20 20 22 4c 6f 63 61 74 69 6f 6e 20 66 6f local-dir.....nil..."Location.fo
b080 72 20 73 63 6d 20 66 69 6c 65 73 20 74 6f 20 63 6f 6d 6d 75 6e 69 63 61 74 65 20 75 73 69 6e 67 r.scm.files.to.communicate.using
b0a0 20 52 45 50 4c 20 74 68 61 74 20 61 72 65 20 6c 6f 63 61 6c 20 74 6f 20 70 72 6f 63 65 73 73 2e .REPL.that.are.local.to.process.
b0c0 0a 0a 57 68 65 6e 20 75 73 69 6e 67 20 54 72 61 6d 70 20 62 75 66 66 65 72 73 2c 20 74 68 65 20 ..When.using.Tramp.buffers,.the.
b0e0 67 75 69 6c 65 20 6d 6f 64 75 6c 65 73 20 61 72 65 20 6e 6f 74 20 6c 6f 63 61 6c 2e 20 54 68 65 guile.modules.are.not.local..The
b100 79 27 6c 6c 20 62 65 20 73 74 6f 72 65 64 20 69 6e 0a 74 68 69 73 20 6c 6f 63 61 74 69 6f 6e 20 y'll.be.stored.in.this.location.
b120 66 6f 72 20 66 75 72 74 68 65 72 20 63 6c 65 61 6e 75 70 2e 22 29 0a 0a 28 64 65 66 75 6e 20 67 for.further.cleanup.")..(defun.g
b140 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 72 65 6d 6f 74 65 2d 63 6f 70 79 20 28 73 6f 75 72 63 65 eiser-guile--remote-copy.(source
b160 2d 70 61 74 68 20 74 61 72 67 65 74 2d 70 61 74 68 29 0a 20 20 22 43 6f 70 79 20 73 6f 75 72 63 -path.target-path)..."Copy.sourc
b180 65 2d 70 61 74 68 20 74 6f 20 74 61 72 67 65 74 2d 70 61 74 68 20 65 6e 73 75 72 69 6e 67 20 73 e-path.to.target-path.ensuring.s
b1a0 79 6d 6c 69 6e 6b 73 20 61 72 65 20 72 65 73 6f 6c 76 65 64 2e 22 0a 20 20 3b 3b 20 77 68 65 6e ymlinks.are.resolved."...;;.when
b1c0 20 75 73 69 6e 67 20 60 73 74 72 61 69 67 68 74 27 2c 20 67 75 69 6c 65 20 73 63 72 69 70 74 73 .using.`straight',.guile.scripts
b1e0 20 74 68 61 74 20 6e 65 65 64 20 74 6f 20 62 65 20 65 76 61 6c 75 61 74 65 64 20 77 69 6c 6c 20 .that.need.to.be.evaluated.will.
b200 62 65 0a 20 20 3b 3b 20 73 79 6d 6c 69 6e 6b 73 0a 20 20 3b 3b 20 60 63 6f 70 79 2d 64 69 72 65 be...;;.symlinks...;;.`copy-dire
b220 63 74 6f 72 79 27 20 77 69 6c 6c 20 63 6f 70 79 20 62 72 6f 6b 65 6e 20 73 79 6d 6c 69 6e 6b 73 ctory'.will.copy.broken.symlinks
b240 0a 20 20 3b 3b 20 73 6f 20 77 65 20 6d 61 6e 75 61 6c 6c 79 20 63 6f 70 79 20 74 68 65 6d 20 74 ...;;.so.we.manually.copy.them.t
b260 6f 20 61 76 6f 69 64 20 62 72 6f 6b 65 6e 20 73 79 6d 6c 69 6e 6b 73 20 69 6e 20 72 65 6d 6f 74 o.avoid.broken.symlinks.in.remot
b280 65 20 68 6f 73 74 0a 20 20 28 63 6f 6e 64 20 28 28 66 69 6c 65 2d 73 79 6d 6c 69 6e 6b 2d 70 20 e.host...(cond.((file-symlink-p.
b2a0 73 6f 75 72 63 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 source-path)..........(geiser-gu
b2c0 69 6c 65 2d 2d 72 65 6d 6f 74 65 2d 63 6f 70 79 20 28 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 20 ile--remote-copy.(file-truename.
b2e0 73 6f 75 72 63 65 2d 70 61 74 68 29 20 74 61 72 67 65 74 2d 70 61 74 68 29 29 0a 20 20 20 20 20 source-path).target-path))......
b300 20 20 20 28 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 73 6f 75 72 63 65 2d 70 61 74 ...((file-directory-p.source-pat
b320 68 29 0a 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 69 6c 65 2d 64 69 72 65 63 74 h)..........(unless.(file-direct
b340 6f 72 79 2d 70 20 74 61 72 67 65 74 2d 70 61 74 68 29 20 28 6d 61 6b 65 2d 64 69 72 65 63 74 6f ory-p.target-path).(make-directo
b360 72 79 20 74 61 72 67 65 74 2d 70 61 74 68 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 ry.target-path.t))..........(let
b380 20 28 28 64 65 73 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 .((dest.(file-name-as-directory.
b3a0 74 61 72 67 65 74 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 target-path)))............(dolis
b3c0 74 20 28 66 20 28 73 65 71 2d 64 69 66 66 65 72 65 6e 63 65 20 28 64 69 72 65 63 74 6f 72 79 2d t.(f.(seq-difference.(directory-
b3e0 66 69 6c 65 73 20 73 6f 75 72 63 65 2d 70 61 74 68 29 20 27 28 22 2e 22 20 22 2e 2e 22 29 29 29 files.source-path).'("."."..")))
b400 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 72 65 6d ..............(geiser-guile--rem
b420 6f 74 65 2d 63 6f 70 79 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 20 73 6f 75 ote-copy.(expand-file-name.f.sou
b440 72 63 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rce-path).......................
b460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e ..................(expand-file-n
b480 61 6d 65 20 66 20 64 65 73 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 63 6c 2d 61 ame.f.dest))))).........(t.(cl-a
b4a0 73 73 65 72 74 20 28 66 69 6c 65 2d 72 65 67 75 6c 61 72 2d 70 20 73 6f 75 72 63 65 2d 70 61 74 ssert.(file-regular-p.source-pat
b4c0 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 70 79 2d 66 69 6c 65 20 73 6f 75 72 63 65 h))............(copy-file.source
b4e0 2d 70 61 74 68 20 74 61 72 67 65 74 2d 70 61 74 68 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 -path.target-path))))..(defun.ge
b500 69 73 65 72 2d 67 75 69 6c 65 2d 65 6e 73 75 72 65 2d 73 63 68 65 6d 65 2d 64 69 72 20 28 29 0a iser-guile-ensure-scheme-dir.().
b520 20 20 22 4d 61 79 62 65 20 73 65 74 75 70 20 61 6e 64 20 72 65 74 75 72 6e 20 64 69 72 20 66 6f .."Maybe.setup.and.return.dir.fo
b540 72 20 47 75 69 6c 65 20 73 63 68 65 6d 65 20 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 2e 0a 0a r.Guile.scheme.geiser.modules...
b560 49 66 20 75 73 69 6e 67 20 61 20 72 65 6d 6f 74 65 20 54 72 61 6d 70 20 62 75 66 66 65 72 2c 20 If.using.a.remote.Tramp.buffer,.
b580 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 63 6f 70 79 20 74 68 65 20 6d 6f 64 75 this.function.will.copy.the.modu
b5a0 6c 65 73 20 74 6f 20 61 0a 74 65 6d 70 6f 72 61 72 79 20 6c 6f 63 61 74 69 6f 6e 20 69 6e 20 74 les.to.a.temporary.location.in.t
b5c0 68 65 20 72 65 6d 6f 74 65 20 73 65 72 76 65 72 20 61 6e 64 20 74 68 65 20 72 65 74 75 72 6e 20 he.remote.server.and.the.return.
b5e0 69 74 2e 0a 45 6c 73 65 2c 20 77 69 6c 6c 20 6a 75 73 74 20 72 65 74 75 72 6e 20 60 67 65 69 73 it..Else,.will.just.return.`geis
b600 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d 65 2d 64 69 72 27 2e 22 0a 20 20 28 63 6f 6e 64 20 28 er-guile-scheme-dir'."...(cond.(
b620 28 6e 6f 74 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 27 74 72 61 6d 70 2d 74 72 61 6d 70 2d (not.(and.(fboundp.'tramp-tramp-
b640 66 69 6c 65 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 61 6d file-p)....................(tram
b660 70 2d 74 72 61 6d 70 2d 66 69 6c 65 2d 70 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 p-tramp-file-p.default-directory
b680 29 29 29 0a 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d 65 )))..........geiser-guile-scheme
b6a0 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 -dir).........(geiser-guile-sche
b6c0 6d 65 2d 6c 6f 63 61 6c 2d 64 69 72 29 20 3b 3b 20 72 65 6d 6f 74 65 20 66 69 6c 65 73 20 61 72 me-local-dir).;;.remote.files.ar
b6e0 65 20 61 6c 72 65 61 64 79 20 74 68 65 72 65 0a 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 e.already.there.........(t......
b700 20 20 20 20 28 6c 65 74 2a 20 28 28 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 2d 64 69 72 65 63 ....(let*.((temporary-file-direc
b720 74 6f 72 79 20 28 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 29 tory.(temporary-file-directory))
b740 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 74 65 2d 74 65 6d 70 2d 64 69 .................(remote-temp-di
b760 72 20 28 6d 61 6b 65 2d 74 65 6d 70 2d 66 69 6c 65 20 22 65 6d 61 63 73 2d 67 65 69 73 65 72 2d r.(make-temp-file."emacs-geiser-
b780 67 75 69 6c 65 22 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 guile".t)))............(message.
b7a0 22 53 65 74 74 69 6e 67 20 75 70 20 54 72 61 6d 70 20 47 75 69 6c 65 20 52 45 50 4c 2e 2e 2e 22 "Setting.up.Tramp.Guile.REPL..."
b7c0 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 6d 65 73 73 )............(let.((inhibit-mess
b7e0 61 67 65 20 74 29 29 20 3b 3b 20 70 72 65 76 65 6e 74 20 22 43 6f 70 79 69 6e 67 20 e2 80 a6 20 age.t)).;;.prevent."Copying.....
b800 74 6f 20 e2 80 a6 20 22 20 66 72 6f 6d 20 64 69 72 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 to.....".from.dired.............
b820 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 72 65 6d 6f 74 65 2d 63 6f 70 79 0a 20 20 20 20 .(geiser-guile--remote-copy.....
b840 20 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d 65 2d 64 69 ..........geiser-guile-scheme-di
b860 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 r...............(concat.(file-na
b880 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 72 65 6d 6f 74 65 2d 74 65 6d 70 2d 64 69 72 29 me-as-directory.remote-temp-dir)
b8a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d .......................(file-nam
b8c0 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-nondirectory..................
b8e0 20 20 20 20 20 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 67 65 69 73 65 ......(directory-file-name.geise
b900 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d 65 2d 64 69 72 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 r-guile-scheme-dir))))).........
b920 20 20 20 3b 3b 20 72 65 74 75 72 6e 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 20 ...;;.return.the.directory.name.
b940 61 73 20 6c 6f 63 61 6c 20 74 6f 20 28 72 65 6d 6f 74 65 29 20 70 72 6f 63 65 73 73 0a 20 20 20 as.local.to.(remote).process....
b960 20 20 20 20 20 20 20 20 28 73 65 74 71 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d ........(setq.geiser-guile-schem
b980 65 2d 6c 6f 63 61 6c 2d 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f e-local-dir..................(co
b9a0 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 ncat.(file-name-as-directory....
b9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6c 6f 63 .......................(file-loc
b9e0 61 6c 2d 6e 61 6d 65 20 72 65 6d 6f 74 65 2d 74 65 6d 70 2d 64 69 72 29 29 0a 20 20 20 20 20 20 al-name.remote-temp-dir)).......
ba00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f ...................(file-name-no
ba20 6e 64 69 72 65 63 74 6f 72 79 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d 65 2d 64 ndirectory.geiser-guile-scheme-d
ba40 69 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d ir)))))))..(defvar.geiser-guile-
ba60 2d 63 6f 6e 6e 2d 61 64 64 72 65 73 73 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 -conn-address.nil)..(defun.geise
ba80 72 2d 67 75 69 6c 65 2d 2d 67 65 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61 64 64 72 65 73 73 20 r-guile--get-connection-address.
baa0 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 65 77 29 0a 20 20 22 54 68 65 20 70 61 74 68 20 74 6f 20 74 (&optional.new)..."The.path.to.t
bac0 68 65 20 55 4e 49 58 20 73 6f 63 6b 65 74 20 74 6f 20 74 61 6c 6b 20 74 6f 20 47 75 69 6c 65 20 he.UNIX.socket.to.talk.to.Guile.
bae0 69 6e 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 55 6e 75 73 65 64 20 66 6f 72 20 6e 6f 77 2e in.a.connection..Unused.for.now.
bb00 22 0a 20 20 28 77 68 65 6e 20 6e 65 77 0a 20 20 20 20 28 73 65 74 71 20 67 65 69 73 65 72 2d 67 "...(when.new.....(setq.geiser-g
bb20 75 69 6c 65 2d 2d 63 6f 6e 6e 2d 61 64 64 72 65 73 73 20 28 6d 61 6b 65 2d 74 65 6d 70 2d 6e 61 uile--conn-address.(make-temp-na
bb40 6d 65 20 22 2f 74 6d 70 2f 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 22 29 29 29 0a 20 20 67 65 69 me."/tmp/geiser-guile-")))...gei
bb60 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6f 6e 6e 2d 61 64 64 72 65 73 73 29 0a 0a 28 64 65 66 75 6e ser-guile--conn-address)..(defun
bb80 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 61 72 61 6d 65 74 65 72 73 20 28 29 0a 20 20 22 .geiser-guile--parameters.()..."
bba0 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 61 6c 6c 20 70 61 72 61 6d 65 74 65 72 Return.a.list.with.all.parameter
bbc0 73 20 6e 65 65 64 65 64 20 74 6f 20 73 74 61 72 74 20 47 75 69 6c 65 2e 0a 54 68 69 73 20 66 75 s.needed.to.start.Guile..This.fu
bbe0 6e 63 74 69 6f 6e 20 75 73 65 73 20 60 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 nction.uses.`geiser-guile-init-f
bc00 69 6c 65 27 20 69 66 20 69 74 20 65 78 69 73 74 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 6e 69 ile'.if.it.exists."...(let.((ini
bc20 74 2d 66 69 6c 65 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 67 65 69 73 65 72 2d 67 75 69 6c t-file.(and.(stringp.geiser-guil
bc40 65 2d 69 6e 69 74 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-init-file)....................
bc60 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 .....(expand-file-name..........
bc80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 ................(concat.........
bca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 ..................(file-remote-p
bcc0 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 .default-directory).............
bce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d ..............geiser-guile-init-
bd00 66 69 6c 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 2d 66 6c 61 67 73 20 28 77 68 65 6e 20 file)))).........(c-flags.(when.
bd20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6f 6e 6e 2d 61 64 64 72 65 73 73 0a 20 20 20 20 20 geiser-guile--conn-address......
bd40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 28 66 6f 72 6d 61 74 20 22 2d 2d 6c 69 73 74 ..............`(,(format."--list
bd60 65 6e 3d 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 en=%s"..........................
bd80 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 65 74 2d 63 6f 6e 6e 65 63 74 69 .....(geiser-guile--get-connecti
bda0 6f 6e 2d 61 64 64 72 65 73 73 20 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 71 2d 66 6c 61 on-address.t))))).........(q-fla
bdc0 67 73 20 28 61 6e 64 20 28 6e 6f 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 gs.(and.(not.geiser-guile-load-i
bde0 6e 69 74 2d 66 69 6c 65 29 20 27 28 22 2d 71 22 29 29 29 29 0a 20 20 20 20 60 28 2c 40 28 61 6e nit-file).'("-q")))).....`(,@(an
be00 64 20 28 6c 69 73 74 70 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e 61 72 79 29 20 28 63 d.(listp.geiser-guile-binary).(c
be20 64 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e 61 72 79 29 29 0a 20 20 20 20 20 20 2c dr.geiser-guile-binary)).......,
be40 40 71 2d 66 6c 61 67 73 20 22 2d 4c 22 20 2c 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 65 6e 73 @q-flags."-L".,(geiser-guile-ens
be60 75 72 65 2d 73 63 68 65 6d 65 2d 64 69 72 29 20 2c 40 63 2d 66 6c 61 67 73 0a 20 20 20 20 20 20 ure-scheme-dir).,@c-flags.......
be80 2c 40 28 61 70 70 6c 79 20 27 61 70 70 65 6e 64 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 ,@(apply.'append.(mapcar.(lambda
bea0 20 28 70 29 20 28 6c 69 73 74 20 22 2d 4c 22 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 .(p).(list."-L".p)).............
bec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d ...................geiser-guile-
bee0 6c 6f 61 64 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 2c 40 28 61 6e 64 20 69 6e 69 74 2d 66 69 load-path)).......,@(and.init-fi
bf00 6c 65 20 28 66 69 6c 65 2d 72 65 61 64 61 62 6c 65 2d 70 20 69 6e 69 74 2d 66 69 6c 65 29 0a 20 le.(file-readable-p.init-file)..
bf20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 22 2d 6c 22 20 28 66 69 6c 65 2d 6c 6f 63 ............(list."-l".(file-loc
bf40 61 6c 2d 6e 61 6d 65 20 69 6e 69 74 2d 66 69 6c 65 29 29 29 29 29 29 0a 0a 28 64 65 66 63 6f 6e al-name.init-file))))))..(defcon
bf60 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 20 22 st.geiser-guile--prompt-regexp."
bf80 5e 5b 5e 40 28 5c 6e 5d 2b 40 28 5b 5e 29 5d 2a 29 3e 20 22 29 0a 28 64 65 66 63 6f 6e 73 74 20 ^[^@(\n]+@([^)]*)>.").(defconst.
bfa0 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 65 62 75 67 67 65 72 2d 70 72 6f 6d 70 74 2d 72 65 geiser-guile--debugger-prompt-re
bfc0 67 65 78 70 0a 20 20 22 5e 5b 5e 40 28 5c 6e 5d 2b 40 28 5b 5e 29 5d 2a 3f 29 20 5c 5c 5b 5c 5c gexp..."^[^@(\n]+@([^)]*?).\\[\\
bfe0 28 5b 30 2d 39 5d 2b 5c 5c 29 5c 5c 5d 3e 20 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 67 65 69 ([0-9]+\\)\\]>.")..(defconst.gei
c000 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6c 65 61 6e 2d 72 78 0a 20 20 28 66 6f 72 6d 61 74 20 22 5c ser-guile--clean-rx...(format."\
c020 5c 28 25 73 5c 5c 29 5c 5c 7c 5c 5c 28 5e 5c 5c 24 5b 30 2d 39 5d 2b 20 3d 20 5b 5e 5c 6e 5d 2b \(%s\\)\\|\\(^\\$[0-9]+.=.[^\n]+
c040 24 5c 5c 29 5c 5c 7c 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 63 6f 6e $\\)\\|%s"...........(geiser-con
c060 2d 2d 63 6f 6d 62 69 6e 65 64 2d 70 72 6f 6d 70 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d --combined-prompt.geiser-guile--
c080 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 prompt-regexp...................
c0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c .....................geiser-guil
c0c0 65 2d 2d 64 65 62 75 67 67 65 72 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 29 0a 20 20 20 20 20 e--debugger-prompt-regexp)......
c0e0 20 20 20 20 20 22 5c 5c 28 5c 6e 45 6e 74 65 72 69 6e 67 20 61 20 6e 65 77 20 70 72 6f 6d 70 74 ....."\\(\nEntering.a.new.prompt
c100 2e 20 20 54 79 70 65 20 60 2c 62 74 27 20 66 6f 72 20 5b 5e 5c 6e 5d 2b 5c 5c 2e 24 5c 5c 29 22 ...Type.`,bt'.for.[^\n]+\\.$\\)"
c120 29 29 0a 0a 0c 0a 3b 3b 3b 20 45 76 61 6c 75 61 74 69 6f 6e 20 73 75 70 70 6f 72 74 0a 28 64 65 ))....;;;.Evaluation.support.(de
c140 66 73 75 62 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6c 69 6e 65 61 72 69 7a 65 2d 61 fsubst.geiser-guile--linearize-a
c160 72 67 73 20 28 61 72 67 73 29 0a 20 20 22 43 6f 6e 63 61 74 65 6e 61 74 65 20 74 68 65 20 6c 69 rgs.(args)..."Concatenate.the.li
c180 73 74 20 41 52 47 53 2e 22 0a 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 27 69 64 65 6e 74 69 74 79 st.ARGS."...(mapconcat.'identity
c1a0 20 61 72 67 73 20 22 20 22 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 .args."."))..(defun.geiser-guile
c1c0 2d 2d 64 65 62 75 67 2d 63 6d 64 20 28 61 72 67 73 29 0a 20 20 28 6c 65 74 20 28 28 61 72 67 73 --debug-cmd.(args)...(let.((args
c1e0 20 28 69 66 20 28 61 6e 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f .(if.(and.geiser-guile-debug-sho
c200 77 2d 66 75 6c 6c 2d 62 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 w-full-bt.......................
c220 20 28 73 74 72 69 6e 67 3d 20 28 63 61 72 20 61 72 67 73 29 20 22 62 61 63 6b 74 72 61 63 65 22 .(string=.(car.args)."backtrace"
c240 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 62 61 63 6b 74 72 61 63 ))...................'("backtrac
c260 65 22 20 22 23 3a 66 75 6c 6c 3f 22 20 22 23 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 e"."#:full?"."#t")..............
c280 20 20 20 61 72 67 73 29 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 22 2c 22 20 28 67 65 69 73 ...args))).....(concat.",".(geis
c2a0 65 72 2d 67 75 69 6c 65 2d 2d 6c 69 6e 65 61 72 69 7a 65 2d 61 72 67 73 20 61 72 67 73 29 20 22 er-guile--linearize-args.args)."
c2c0 5c 6e 5c 22 5c 22 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d \n\"\"")))..(defun.geiser-guile-
c2e0 2d 67 65 69 73 65 72 2d 70 72 6f 63 65 64 75 72 65 20 28 70 72 6f 63 20 26 72 65 73 74 20 61 72 -geiser-procedure.(proc.&rest.ar
c300 67 73 29 0a 20 20 22 54 72 61 6e 73 66 6f 72 6d 20 50 52 4f 43 20 69 6e 20 73 74 72 69 6e 67 20 gs)..."Transform.PROC.in.string.
c320 66 6f 72 20 61 20 73 63 68 65 6d 65 20 70 72 6f 63 65 64 75 72 65 20 75 73 69 6e 67 20 41 52 47 for.a.scheme.procedure.using.ARG
c340 53 2e 22 0a 20 20 28 63 6c 2d 63 61 73 65 20 70 72 6f 63 0a 20 20 20 20 28 28 65 76 61 6c 20 63 S."...(cl-case.proc.....((eval.c
c360 6f 6d 70 69 6c 65 29 20 28 66 6f 72 6d 61 74 20 22 2c 67 65 69 73 65 72 2d 65 76 61 6c 20 25 73 ompile).(format.",geiser-eval.%s
c380 20 25 73 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .%s%s"..........................
c3a0 20 20 20 28 6f 72 20 28 63 61 72 20 61 72 67 73 29 20 22 23 66 22 29 0a 20 20 20 20 20 20 20 20 ...(or.(car.args)."#f").........
c3c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c ....................(geiser-guil
c3e0 65 2d 2d 6c 69 6e 65 61 72 69 7a 65 2d 61 72 67 73 20 28 63 64 72 20 61 72 67 73 29 29 0a 20 20 e--linearize-args.(cdr.args))...
c400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 63 ..........................(if.(c
c420 64 64 72 20 61 72 67 73 29 20 22 22 20 22 20 28 29 22 29 29 29 0a 20 20 20 20 28 28 6c 6f 61 64 ddr.args)."".".()"))).....((load
c440 2d 66 69 6c 65 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 29 20 28 66 6f 72 6d 61 74 20 22 2c 67 65 -file.compile-file).(format.",ge
c460 69 73 65 72 2d 6c 6f 61 64 2d 66 69 6c 65 20 25 73 22 20 28 63 61 72 20 61 72 67 73 29 29 29 0a iser-load-file.%s".(car.args))).
c480 20 20 20 20 28 28 6e 6f 2d 76 61 6c 75 65 73 29 20 22 2c 67 65 69 73 65 72 2d 6e 6f 2d 76 61 6c ....((no-values).",geiser-no-val
c4a0 75 65 73 22 29 0a 20 20 20 20 28 28 64 65 62 75 67 29 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 ues").....((debug).(geiser-guile
c4c0 2d 2d 64 65 62 75 67 2d 63 6d 64 20 61 72 67 73 29 29 0a 20 20 20 20 28 74 20 28 66 6f 72 6d 61 --debug-cmd.args)).....(t.(forma
c4e0 74 20 22 67 65 3a 25 73 20 28 25 73 29 22 20 70 72 6f 63 20 28 67 65 69 73 65 72 2d 67 75 69 6c t."ge:%s.(%s)".proc.(geiser-guil
c500 65 2d 2d 6c 69 6e 65 61 72 69 7a 65 2d 61 72 67 73 20 61 72 67 73 29 29 29 29 29 0a 0a 28 64 65 e--linearize-args.args)))))..(de
c520 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6c 65 61 6e 2d 75 70 2d 6f 75 74 70 75 fun.geiser-guile--clean-up-outpu
c540 74 20 28 73 74 72 29 0a 20 20 28 6c 65 74 20 28 28 6d 73 67 20 28 77 68 65 6e 20 28 73 74 72 69 t.(str)...(let.((msg.(when.(stri
c560 6e 67 2d 6d 61 74 63 68 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 65 62 75 67 67 65 72 2d ng-match.geiser-guile--debugger-
c580 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 prompt-regexp.str)..............
c5a0 20 20 28 66 6f 72 6d 61 74 20 22 5c 6e 5b 44 65 62 75 67 67 69 6e 67 20 6c 65 76 65 6c 3a 20 25 ..(format."\n[Debugging.level:.%
c5c0 73 5d 22 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 73 74 72 29 29 29 29 29 0a 20 20 20 s]".(match-string.1.str)))))....
c5e0 20 28 63 6f 6e 63 61 74 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 .(concat.(replace-regexp-in-stri
c600 6e 67 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6c 65 61 6e 2d 72 78 20 22 22 20 73 74 72 ng.geiser-guile--clean-rx."".str
c620 29 20 6d 73 67 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 ).msg)))..(defconst.geiser-guile
c640 2d 2d 6d 6f 64 75 6c 65 2d 72 65 0a 20 20 22 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c 65 20 2b 5c --module-re..."(define-module.+\
c660 5c 28 28 5b 5e 29 5d 2b 29 5c 5c 29 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 67 65 69 73 65 72 \(([^)]+)\\)")..(defconst.geiser
c680 2d 67 75 69 6c 65 2d 2d 6c 69 62 72 61 72 79 2d 72 65 0a 20 20 22 28 5c 5c 28 3f 3a 64 65 66 69 -guile--library-re..."(\\(?:defi
c6a0 6e 65 2d 5c 5c 29 3f 6c 69 62 72 61 72 79 5b 5b 3a 62 6c 61 6e 6b 3a 5d 5c 6e 5d 2b 5c 5c 28 28 ne-\\)?library[[:blank:]\n]+\\((
c6c0 5b 5e 29 5d 2b 29 5c 5c 29 22 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 [^)]+)\\)")..(defun.geiser-guile
c6e0 2d 2d 67 65 74 2d 6d 6f 64 75 6c 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 6f 64 75 6c 65 29 0a --get-module.(&optional.module).
c700 20 20 22 46 69 6e 64 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 6d 6f 64 75 6c 65 20 .."Find.current.buffer's.module.
c720 75 73 69 6e 67 20 4d 4f 44 55 4c 45 20 61 73 20 61 20 68 69 6e 74 2e 22 0a 20 20 28 63 6f 6e 64 using.MODULE.as.a.hint."...(cond
c740 20 28 28 6e 75 6c 6c 20 6d 6f 64 75 6c 65 29 0a 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 .((null.module)..........(save-e
c760 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 73 79 6e 74 xcursion............(geiser-synt
c780 61 78 2d 2d 70 6f 70 2d 74 6f 2d 74 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 ax--pop-to-top)............(if.(
c7a0 6f 72 20 28 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 67 65 69 73 65 72 2d 67 75 or.(re-search-backward.geiser-gu
c7c0 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d 72 65 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 ile--module-re.nil.t)...........
c7e0 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 67 65 69 .........(re-search-backward.gei
c800 73 65 72 2d 67 75 69 6c 65 2d 2d 6c 69 62 72 61 72 79 2d 72 65 20 6e 69 6c 20 74 29 0a 20 20 20 ser-guile--library-re.nil.t)....
c820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 ................(re-search-forwa
c840 72 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d 72 65 20 6e 69 6c 20 74 rd.geiser-guile--module-re.nil.t
c860 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d )....................(re-search-
c880 66 6f 72 77 61 72 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6c 69 62 72 61 72 79 2d 72 65 forward.geiser-guile--library-re
c8a0 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d .nil.t))................(geiser-
c8c0 67 75 69 6c 65 2d 2d 67 65 74 2d 6d 6f 64 75 6c 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d guile--get-module.(match-string-
c8e0 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3a no-properties.1))..............:
c900 66 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 6c 69 73 74 70 20 6d 6f 64 75 6c 65 29 20 6d 6f 64 f))).........((listp.module).mod
c920 75 6c 65 29 0a 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 70 20 6d 6f 64 75 6c 65 29 0a 20 ule).........((stringp.module)..
c940 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 ........(condition-case.nil.....
c960 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 67 65 69 73 65 72 2d 73 79 6e 74 61 78 2d 2d 72 65 .........(car.(geiser-syntax--re
c980 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6d 6f 64 75 6c 65 29 29 0a 20 20 20 20 20 20 20 20 ad-from-string.module)).........
c9a0 20 20 20 28 65 72 72 6f 72 20 3a 66 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 3a 66 29 29 29 ...(error.:f))).........(t.:f)))
c9c0 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d 63 6d ..(defun.geiser-guile--module-cm
c9e0 64 20 28 6d 6f 64 75 6c 65 20 66 6d 74 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 66 29 0a 20 20 22 d.(module.fmt.&optional.def)..."
ca00 55 73 65 20 46 4d 54 20 74 6f 20 66 6f 72 6d 61 74 20 61 20 63 68 61 6e 67 65 20 74 6f 20 4d 4f Use.FMT.to.format.a.change.to.MO
ca20 44 55 4c 45 2c 20 77 69 74 68 20 64 65 66 61 75 6c 74 20 44 45 46 2e 22 0a 20 20 28 77 68 65 6e DULE,.with.default.DEF."...(when
ca40 20 6d 6f 64 75 6c 65 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 6f 64 75 6c 65 20 28 67 65 69 73 .module.....(let*.((module.(geis
ca60 65 72 2d 67 75 69 6c 65 2d 2d 67 65 74 2d 6d 6f 64 75 6c 65 20 6d 6f 64 75 6c 65 29 29 0a 20 20 er-guile--get-module.module))...
ca80 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 20 28 63 6f 6e 64 20 28 28 6f 72 20 28 6e 75 6c .........(module.(cond.((or.(nul
caa0 6c 20 6d 6f 64 75 6c 65 29 20 28 65 71 20 6d 6f 64 75 6c 65 20 3a 66 29 29 20 64 65 66 29 0a 20 l.module).(eq.module.:f)).def)..
cac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 66 6f 72 6d ........................(t.(form
cae0 61 74 20 22 25 73 22 20 6d 6f 64 75 6c 65 29 29 29 29 29 0a 20 20 20 20 20 20 28 61 6e 64 20 6d at."%s".module))))).......(and.m
cb00 6f 64 75 6c 65 20 28 66 6f 72 6d 61 74 20 66 6d 74 20 6d 6f 64 75 6c 65 29 29 29 29 29 0a 0a 28 odule.(format.fmt.module)))))..(
cb20 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6d 70 6f 72 74 2d 63 6f 6d 6d 61 defun.geiser-guile--import-comma
cb40 6e 64 20 28 6d 6f 64 75 6c 65 29 0a 20 20 22 46 6f 72 6d 61 74 20 61 20 52 45 50 4c 20 63 6f 6d nd.(module)..."Format.a.REPL.com
cb60 6d 61 6e 64 20 74 6f 20 75 73 65 20 4d 4f 44 55 4c 45 2e 22 0a 20 20 28 67 65 69 73 65 72 2d 67 mand.to.use.MODULE."...(geiser-g
cb80 75 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d 63 6d 64 20 6d 6f 64 75 6c 65 20 22 2c 75 73 65 20 25 73 uile--module-cmd.module.",use.%s
cba0 22 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 65 6e 74 65 72 2d "))..(defun.geiser-guile--enter-
cbc0 63 6f 6d 6d 61 6e 64 20 28 6d 6f 64 75 6c 65 29 0a 20 20 22 46 6f 72 6d 61 74 20 61 20 52 45 50 command.(module)..."Format.a.REP
cbe0 4c 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 6e 74 65 72 20 4d 4f 44 55 4c 45 2e 22 0a 20 20 28 67 L.command.to.enter.MODULE."...(g
cc00 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d 63 6d 64 20 6d 6f 64 75 6c 65 20 22 eiser-guile--module-cmd.module."
cc20 2c 6d 20 25 73 22 20 22 28 67 75 69 6c 65 2d 75 73 65 72 29 22 29 29 0a 0a 0a 28 64 65 66 75 6e ,m.%s"."(guile-user)"))...(defun
cc40 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 65 78 69 74 2d 63 6f 6d 6d 61 6e 64 20 28 29 0a 20 .geiser-guile--exit-command.()..
cc60 20 22 46 6f 72 6d 61 74 20 61 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 71 75 69 74 2e ."Format.a.REPL.command.to.quit.
cc80 22 0a 20 20 22 2c 71 22 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d "...",q")..(defun.geiser-guile--
cca0 73 79 6d 62 6f 6c 2d 62 65 67 69 6e 20 28 6d 6f 64 75 6c 65 29 0a 20 20 22 46 69 6e 64 20 62 65 symbol-begin.(module)..."Find.be
ccc0 67 69 6e 6e 69 6e 67 20 6f 66 20 73 79 6d 62 6f 6c 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 ginning.of.symbol.in.the.context
cce0 20 6f 66 20 4d 4f 44 55 4c 45 2e 22 0a 20 20 28 69 66 20 6d 6f 64 75 6c 65 0a 20 20 20 20 20 20 .of.MODULE."...(if.module.......
cd00 28 6d 61 78 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 62 65 67 69 6e 6e 69 6e 67 2d (max.(save-excursion.(beginning-
cd20 6f 66 2d 6c 69 6e 65 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 61 of-line).(point))............(sa
cd40 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 73 6b 69 70 2d 73 79 6e 74 61 78 2d 62 61 63 6b 77 61 ve-excursion.(skip-syntax-backwa
cd60 72 64 20 22 5e 28 3e 22 29 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 28 73 61 rd."^(>").(1-.(point)))).....(sa
cd80 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 73 6b 69 70 2d 73 79 6e 74 61 78 2d 62 61 63 6b 77 61 ve-excursion.(skip-syntax-backwa
cda0 72 64 20 22 5e 27 2d 28 29 3e 22 29 20 28 70 6f 69 6e 74 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 43 rd."^'-()>").(point))))....;;;.C
cdc0 6f 6d 70 69 6c 61 74 69 6f 6e 20 73 68 65 6c 6c 20 72 65 67 65 78 70 73 0a 0a 28 64 65 66 63 6f ompilation.shell.regexps..(defco
cde0 6e 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 61 74 68 2d 72 78 20 22 5e 49 6e 20 5c nst.geiser-guile--path-rx."^In.\
ce00 5c 28 5b 5e 3a 5c 6e 20 5d 2b 5c 5c 29 3a 5c 6e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 67 65 \([^:\n.]+\\):\n")..(defconst.ge
ce20 69 73 65 72 2d 67 75 69 6c 65 2d 2d 72 65 6c 2d 70 61 74 68 2d 72 78 20 22 5e 49 6e 20 2b 5c 5c iser-guile--rel-path-rx."^In.+\\
ce40 28 5b 5e 2f 5c 6e 3a 20 5d 2b 5c 5c 29 3a 5c 6e 22 29 0a 0a 28 64 65 66 76 61 72 20 67 65 69 73 ([^/\n:.]+\\):\n")..(defvar.geis
ce60 65 72 2d 67 75 69 6c 65 2d 2d 66 69 6c 65 2d 63 61 63 68 65 20 28 6d 61 6b 65 2d 68 61 73 68 2d er-guile--file-cache.(make-hash-
ce80 74 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 0a 20 20 22 49 6e 74 65 72 6e 61 6c 20 table.:test.'equal)..."Internal.
cea0 63 61 63 68 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 66 cache.")..(defun.geiser-guile--f
cec0 69 6e 64 2d 66 69 6c 65 20 28 66 69 6c 65 29 0a 20 20 28 6f 72 20 28 67 65 74 68 61 73 68 20 66 ind-file.(file)...(or.(gethash.f
cee0 69 6c 65 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 66 69 6c 65 2d 63 61 63 68 65 29 0a 20 20 ile.geiser-guile--file-cache)...
cf00 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 20 67 65 69 ....(with-current-buffer.(or.gei
cf20 73 65 72 2d 64 65 62 75 67 2d 2d 73 65 6e 64 65 72 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e ser-debug--sender-buffer.(curren
cf40 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 72 20 t-buffer)).........(when-let.(r.
cf60 67 65 69 73 65 72 2d 72 65 70 6c 2d 2d 72 65 70 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 geiser-repl--repl)...........(wi
cf80 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 th-current-buffer.r.............
cfa0 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 72 65 73 75 6c 74 20 60 28 3a 65 76 61 (geiser-eval--send/result.`(:eva
cfc0 6c 20 28 3a 67 65 20 66 69 6e 64 2d 66 69 6c 65 20 2c 66 69 6c 65 29 29 29 29 29 29 29 29 0a 0a l.(:ge.find-file.,file))))))))..
cfe0 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 72 65 73 6f 6c 76 65 2d 66 69 6c (defun.geiser-guile--resolve-fil
d000 65 20 28 66 69 6c 65 29 0a 20 20 22 46 69 6e 64 20 74 68 65 20 67 69 76 65 6e 20 46 49 4c 45 2c e.(file)..."Find.the.given.FILE,
d020 20 69 66 20 69 74 27 73 20 69 6e 64 65 65 64 20 61 20 66 69 6c 65 2e 22 0a 20 20 28 77 68 65 6e .if.it's.indeed.a.file."...(when
d040 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 .(and.(stringp.file)............
d060 20 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ..(not.(member.file.............
d080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 73 6f 63 6b 65 74 22 20 22 73 74 64 69 6e 22 ..............'("socket"."stdin"
d0a0 20 22 75 6e 6b 6e 6f 77 6e 20 66 69 6c 65 22 20 22 63 75 72 72 65 6e 74 20 69 6e 70 75 74 22 29 ."unknown.file"."current.input")
d0c0 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 52 65 73 6f 6c 76 69 6e 67 20 25 73 22 20 ))).....(message."Resolving.%s".
d0e0 66 69 6c 65 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 62 73 6f file).....(cond.((file-name-abso
d100 6c 75 74 65 2d 70 20 66 69 6c 65 29 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 lute-p.file).file)...........(t.
d120 28 77 68 65 6e 2d 6c 65 74 20 28 66 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 66 69 6e 64 (when-let.(f.(geiser-guile--find
d140 2d 66 69 6c 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 -file.file))................(put
d160 68 61 73 68 20 66 69 6c 65 20 66 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 66 69 6c 65 2d 63 hash.file.f.geiser-guile--file-c
d180 61 63 68 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d ache))))))..(defun.geiser-guile-
d1a0 2d 72 65 73 6f 6c 76 65 2d 66 69 6c 65 2d 78 20 28 29 0a 20 20 22 43 68 65 63 6b 20 69 66 20 6c -resolve-file-x.()..."Check.if.l
d1c0 61 73 74 20 6d 61 74 63 68 20 63 6f 6e 74 61 69 6e 20 61 20 72 65 73 6f 6c 76 61 62 6c 65 20 66 ast.match.contain.a.resolvable.f
d1e0 69 6c 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d ile."...(let.((f.(geiser-guile--
d200 72 65 73 6f 6c 76 65 2d 66 69 6c 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 resolve-file.(match-string-no-pr
d220 6f 70 65 72 74 69 65 73 20 31 29 29 29 29 0a 20 20 20 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 operties.1)))).....(and.(stringp
d240 20 66 29 20 28 6c 69 73 74 20 66 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 45 72 72 6f 72 20 64 69 73 .f).(list.f))))....;;;.Error.dis
d260 70 6c 61 79 20 61 6e 64 20 64 65 62 75 67 67 65 72 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 play.and.debugger..(defun.geiser
d280 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 75 70 2d 65 72 72 6f 72 2d 6c 69 6e 6b 73 20 28 29 0a 20 20 -guile--set-up-error-links.()...
d2a0 28 73 65 74 71 2d 6c 6f 63 61 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 72 65 (setq-local.compilation-error-re
d2c0 67 65 78 70 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 2c 67 65 69 gexp-alist...............`((,gei
d2e0 73 65 72 2d 67 75 69 6c 65 2d 2d 70 61 74 68 2d 72 78 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d ser-guile--path-rx.geiser-guile-
d300 2d 72 65 73 6f 6c 76 65 2d 66 69 6c 65 2d 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -resolve-file-x)................
d320 20 28 22 5e 20 20 2b 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 3a 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 .("^..+\\([0-9]+\\):\\([0-9]+\\)
d340 22 20 6e 69 6c 20 31 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 5e 5c 5c ".nil.1.2).................("^\\
d360 28 2f 2e 2a 5c 5c 29 3a 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 3a 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c (/.*\\):\\([0-9]+\\):\\([0-9]+\\
d380 29 22 20 31 20 32 20 33 29 29 29 0a 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 61 64 64 2d 6b 65 79 )".1.2.3)))...(font-lock-add-key
d3a0 77 6f 72 64 73 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 words.nil.......................
d3c0 20 20 20 20 60 28 28 2c 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 61 74 68 2d 72 78 20 31 20 ....`((,geiser-guile--path-rx.1.
d3e0 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 66 61 63 65 29 29 29 29 0a 0a 28 64 65 66 compilation-error-face))))..(def
d400 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 73 65 6e 64 2d 64 62 67 20 un.geiser-guile-debug--send-dbg.
d420 28 74 68 69 6e 67 29 0a 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 77 61 69 (thing)...(geiser-eval--send/wai
d440 74 20 28 63 6f 6e 73 20 3a 64 65 62 75 67 20 28 69 66 20 28 6c 69 73 74 70 20 74 68 69 6e 67 29 t.(cons.:debug.(if.(listp.thing)
d460 20 74 68 69 6e 67 20 28 6c 69 73 74 20 74 68 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 .thing.(list.thing)))))..(defun.
d480 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 64 65 62 75 67 67 65 72 2d 64 69 73 geiser-guile-debug--debugger-dis
d4a0 70 6c 61 79 20 28 74 68 69 6e 67 20 72 65 74 29 0a 20 20 28 67 65 69 73 65 72 2d 64 65 62 75 67 play.(thing.ret)...(geiser-debug
d4c0 2d 2d 64 69 73 70 6c 61 79 2d 72 65 74 6f 72 74 20 28 66 6f 72 6d 61 74 20 22 2c 25 73 22 20 74 --display-retort.(format.",%s".t
d4e0 68 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 hing)...........................
d500 20 20 20 20 20 20 72 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ......ret.......................
d520 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 72 65 74 6f 72 74 2d 72 ..........(geiser-eval--retort-r
d540 65 73 75 6c 74 2d 73 74 72 20 72 65 74 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 esult-str.ret.nil)))..(defun.gei
d560 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 73 65 6e 64 2d 74 6f 2d 72 65 70 6c 20 28 74 ser-guile-debug--send-to-repl.(t
d580 68 69 6e 67 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 67 65 69 73 65 72 2d 64 65 62 75 67 2d 61 63 hing)...(unless.(geiser-debug-ac
d5a0 74 69 76 65 2d 70 29 20 28 65 72 72 6f 72 20 22 44 65 62 75 67 67 65 72 20 6e 6f 74 20 61 63 74 tive-p).(error."Debugger.not.act
d5c0 69 76 65 22 29 29 0a 20 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 73 69 6f 6e 0a ive"))...(save-window-excursion.
d5e0 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 67 65 69 73 65 72 2d ....(with-current-buffer.geiser-
d600 64 65 62 75 67 2d 2d 73 65 6e 64 65 72 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 77 68 65 6e debug--sender-buffer.......(when
d620 2d 6c 65 74 20 28 72 65 74 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 73 -let.(ret.(geiser-guile-debug--s
d640 65 6e 64 2d 64 62 67 20 74 68 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d end-dbg.thing)).........(geiser-
d660 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 64 65 62 75 67 67 65 72 2d 64 69 73 70 6c 61 79 20 74 68 guile-debug--debugger-display.th
d680 69 6e 67 20 72 65 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c ing.ret)))))..(defun.geiser-guil
d6a0 65 2d 64 65 62 75 67 2d 71 75 69 74 20 28 29 0a 20 20 22 51 75 69 74 20 74 68 65 20 63 75 72 72 e-debug-quit.()..."Quit.the.curr
d6c0 65 6e 74 20 64 65 62 75 67 67 69 6e 67 20 73 65 73 73 69 6f 6e 20 6c 65 76 65 6c 2e 22 0a 20 20 ent.debugging.session.level."...
d6e0 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 (interactive)...(geiser-guile-de
d700 62 75 67 2d 2d 73 65 6e 64 2d 74 6f 2d 72 65 70 6c 20 27 71 75 69 74 29 29 0a 0a 28 64 65 66 75 bug--send-to-repl.'quit))..(defu
d720 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 62 61 63 6b 74 72 n.geiser-guile-debug-show-backtr
d740 61 63 65 20 28 29 0a 20 20 22 51 75 69 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 62 75 67 ace.()..."Quit.the.current.debug
d760 67 69 6e 67 20 73 65 73 73 69 6f 6e 20 6c 65 76 65 6c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 ging.session.level."...(interact
d780 69 76 65 29 0a 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 73 65 6e 64 ive)...(geiser-guile-debug--send
d7a0 2d 74 6f 2d 72 65 70 6c 20 27 62 61 63 6b 74 72 61 63 65 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 -to-repl.'backtrace))..(defun.ge
d7c0 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 6c 6f 63 61 6c 73 20 28 29 0a iser-guile-debug-show-locals.().
d7e0 20 20 22 53 68 6f 77 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 22 0a 20 20 28 69 6e 74 .."Show.local.variables."...(int
d800 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d eractive)...(geiser-guile-debug-
d820 2d 73 65 6e 64 2d 74 6f 2d 72 65 70 6c 20 27 6c 6f 63 61 6c 73 29 29 0a 0a 28 64 65 66 75 6e 20 -send-to-repl.'locals))..(defun.
d840 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 72 65 67 69 73 74 65 72 geiser-guile-debug-show-register
d860 73 20 28 29 0a 20 20 22 53 68 6f 77 20 72 65 67 69 73 74 65 72 20 76 61 6c 75 65 73 2e 22 0a 20 s.()..."Show.register.values."..
d880 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 .(interactive)...(geiser-guile-d
d8a0 65 62 75 67 2d 2d 73 65 6e 64 2d 74 6f 2d 72 65 70 6c 20 27 72 65 67 69 73 74 65 72 73 29 29 0a ebug--send-to-repl.'registers)).
d8c0 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d .(defun.geiser-guile-debug-show-
d8e0 65 72 72 6f 72 20 28 29 0a 20 20 22 53 68 6f 77 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 22 error.()..."Show.error.message."
d900 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 ...(interactive)...(geiser-guile
d920 2d 64 65 62 75 67 2d 2d 73 65 6e 64 2d 74 6f 2d 72 65 70 6c 20 27 65 72 72 6f 72 29 29 0a 0a 28 -debug--send-to-repl.'error))..(
d940 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 67 65 69 73 65 72 2d 67 transient-define-prefix.geiser-g
d960 75 69 6c 65 2d 2d 64 65 62 75 67 2d 74 72 61 6e 73 69 65 6e 74 20 28 29 0a 20 20 22 44 65 62 75 uile--debug-transient.()..."Debu
d980 67 67 69 6e 67 20 6d 65 74 61 2d 63 6f 6d 6d 61 6e 64 73 2e 22 0a 20 20 5b 22 47 75 69 6c 65 20 gging.meta-commands."...["Guile.
d9a0 64 65 62 75 67 67 65 72 22 0a 20 20 20 5b 28 22 6e 22 20 22 4e 65 78 74 20 65 72 72 6f 72 22 20 debugger"....[("n"."Next.error".
d9c0 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6e 65 78 74 2d 65 72 72 6f 72 29 0a 20 20 20 20 28 22 70 22 compilation-next-error).....("p"
d9e0 20 22 50 72 65 76 69 6f 75 73 20 65 72 72 6f 72 22 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6e 65 ."Previous.error".compilation-ne
da00 78 74 2d 65 72 72 6f 72 29 0a 20 20 20 20 28 22 7a 22 20 22 53 63 68 65 6d 65 20 62 75 66 66 65 xt-error).....("z"."Scheme.buffe
da20 72 22 20 67 65 69 73 65 72 2d 64 65 62 75 67 2d 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 r".geiser-debug-switch-to-buffer
da40 29 0a 20 20 20 20 28 22 78 22 20 22 45 78 69 74 20 64 65 62 75 67 20 6c 65 76 65 6c 22 20 67 65 ).....("x"."Exit.debug.level".ge
da60 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 71 75 69 74 29 5d 0a 20 20 20 5b 28 22 62 22 iser-guile-debug-quit)]....[("b"
da80 20 22 53 68 6f 77 20 62 61 63 6b 74 72 61 63 65 22 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 ."Show.backtrace".geiser-guile-d
daa0 65 62 75 67 2d 73 68 6f 77 2d 62 61 63 6b 74 72 61 63 65 29 0a 20 20 20 20 28 22 65 22 20 22 53 ebug-show-backtrace).....("e"."S
dac0 68 6f 77 20 65 72 72 6f 72 22 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 how.error".geiser-guile-debug-sh
dae0 6f 77 2d 65 72 72 6f 72 29 0a 20 20 20 20 28 22 6c 22 20 22 53 68 6f 77 20 6c 6f 63 61 6c 73 22 ow-error).....("l"."Show.locals"
db00 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 6c 6f 63 61 6c 73 29 .geiser-guile-debug-show-locals)
db20 0a 20 20 20 20 28 22 72 22 20 22 53 68 6f 77 20 72 65 67 69 73 74 65 72 73 22 20 67 65 69 73 65 .....("r"."Show.registers".geise
db40 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 72 65 67 69 73 74 65 72 73 29 5d 5d 29 r-guile-debug-show-registers)]])
db60 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 6d 65 6e 75 ..(defun.geiser-guile-debug-menu
db80 20 28 29 0a 20 20 22 53 68 6f 77 20 61 76 61 69 6c 61 62 6c 65 20 64 65 62 75 67 67 69 6e 67 20 .()..."Show.available.debugging.
dba0 63 6f 6d 6d 61 6e 64 73 2c 20 69 66 20 61 6e 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 commands,.if.any."...(interactiv
dbc0 65 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 27 67 75 69 6c 65 20 67 65 69 73 65 e)...(when.(and.(eq.'guile.geise
dbe0 72 2d 69 6d 70 6c 2d 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 29 20 28 67 65 69 73 65 72 2d r-impl--implementation).(geiser-
dc00 64 65 62 75 67 2d 61 63 74 69 76 65 2d 70 29 29 0a 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 debug-active-p)).....(call-inter
dc20 61 63 74 69 76 65 6c 79 20 23 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 65 62 75 67 2d 74 actively.#'geiser-guile--debug-t
dc40 72 61 6e 73 69 65 6e 74 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 67 65 69 73 65 72 2d ransient)))..(define-key.geiser-
dc60 64 65 62 75 67 2d 6d 6f 64 65 2d 6d 61 70 20 22 2c 22 20 23 27 67 65 69 73 65 72 2d 67 75 69 6c debug-mode-map.",".#'geiser-guil
dc80 65 2d 64 65 62 75 67 2d 6d 65 6e 75 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 e-debug-menu)..(defun.geiser-gui
dca0 6c 65 2d 2d 65 6e 74 65 72 2d 64 65 62 75 67 67 65 72 20 28 29 0a 20 20 22 54 65 6c 6c 20 47 65 le--enter-debugger.()..."Tell.Ge
dcc0 69 73 65 72 20 74 6f 20 69 6e 74 65 72 61 63 74 20 77 69 74 68 20 74 68 65 20 64 65 62 75 67 67 iser.to.interact.with.the.debugg
dce0 65 72 2e 22 0a 20 20 28 77 68 65 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 68 6f 77 2d 64 er."...(when.geiser-guile-show-d
dd00 65 62 75 67 2d 68 65 6c 70 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 44 65 62 75 67 67 65 72 ebug-help.....(message."Debugger
dd20 20 61 63 74 69 76 65 2e 20 50 72 65 73 73 20 2c 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 73 2e 22 29 .active..Press.,.for.commands.")
dd40 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 )...nil)..(defun.geiser-guile--d
dd60 69 73 70 6c 61 79 2d 65 72 72 6f 72 20 28 5f 6d 6f 64 75 6c 65 20 5f 6b 65 79 20 6d 73 67 29 0a isplay-error.(_module._key.msg).
dd80 20 20 22 44 69 73 70 6c 61 79 20 65 72 72 6f 72 20 77 69 74 68 20 67 69 76 65 6e 20 6d 65 73 73 .."Display.error.with.given.mess
dda0 61 67 65 20 4d 53 47 2e 22 0a 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 70 20 6d 73 67 29 0a age.MSG."...(when.(stringp.msg).
ddc0 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 75 70 2d 65 72 72 6f 72 2d ....(geiser-guile--set-up-error-
dde0 6c 69 6e 6b 73 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 69 6e 73 65 links).....(save-excursion.(inse
de00 72 74 20 6d 73 67 29 29 29 0a 20 20 28 6e 6f 74 20 28 7a 65 72 6f 70 20 28 6c 65 6e 67 74 68 20 rt.msg)))...(not.(zerop.(length.
de20 6d 73 67 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 54 72 79 69 6e 67 20 74 6f 20 61 73 63 65 72 74 61 msg))))....;;;.Trying.to.ascerta
de40 69 6e 20 77 68 65 74 68 65 72 20 61 20 62 75 66 66 65 72 20 69 73 20 47 75 69 6c 65 20 53 63 68 in.whether.a.buffer.is.Guile.Sch
de60 65 6d 65 0a 0a 28 64 65 66 63 6f 6e 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 75 65 eme..(defconst.geiser-guile--gue
de80 73 73 2d 72 65 0a 20 20 28 66 6f 72 6d 61 74 20 22 5c 5c 28 25 73 5c 5c 7c 23 21 20 2a 2e 2b 5c ss-re...(format."\\(%s\\|#!.*.+\
dea0 5c 28 2f 5c 5c 7c 20 5c 5c 29 67 75 69 6c 65 5c 5c 28 20 2a 5c 5c 5c 5c 5c 5c 29 3f 5c 5c 29 22 \(/\\|.\\)guile\\(.*\\\\\\)?\\)"
dec0 0a 20 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d ...........geiser-guile--module-
dee0 72 65 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 75 65 73 73 re))..(defun.geiser-guile--guess
df00 20 28 29 0a 20 20 22 41 73 63 65 72 74 61 69 6e 20 77 68 65 74 68 65 72 20 77 65 20 61 72 65 20 .()..."Ascertain.whether.we.are.
df20 69 6e 20 61 20 47 75 69 6c 65 20 66 69 6c 65 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 in.a.Guile.file."...(save-excurs
df40 69 6f 6e 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a ion.....(goto-char.(point-min)).
df60 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 67 65 69 73 65 72 2d 67 75 ....(re-search-forward.geiser-gu
df80 69 6c 65 2d 2d 67 75 65 73 73 2d 72 65 20 6e 69 6c 20 74 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 4b 65 ile--guess-re.nil.t)))....;;;.Ke
dfa0 79 77 6f 72 64 73 20 61 6e 64 20 73 79 6e 74 61 78 0a 0a 28 64 65 66 63 6f 6e 73 74 20 67 65 69 ywords.and.syntax..(defconst.gei
dfc0 73 65 72 2d 67 75 69 6c 65 2d 2d 62 75 69 6c 74 69 6e 2d 6b 65 79 77 6f 72 64 73 0a 20 20 27 28 ser-guile--builtin-keywords...'(
dfe0 22 63 61 6c 6c 2d 77 69 74 68 2d 69 6e 70 75 74 2d 66 69 6c 65 22 0a 20 20 20 20 22 63 61 6c 6c "call-with-input-file"....."call
e000 2d 77 69 74 68 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 22 0a 20 20 20 20 22 63 61 6c 6c 2d 77 69 -with-input-string"....."call-wi
e020 74 68 2d 6f 75 74 70 75 74 2d 66 69 6c 65 22 0a 20 20 20 20 22 63 61 6c 6c 2d 77 69 74 68 2d 6f th-output-file"....."call-with-o
e040 75 74 70 75 74 2d 73 74 72 69 6e 67 22 0a 20 20 20 20 22 63 61 6c 6c 2d 77 69 74 68 2d 70 72 6f utput-string"....."call-with-pro
e060 6d 70 74 22 0a 20 20 20 20 22 63 61 6c 6c 2d 77 69 74 68 2d 74 72 61 63 65 22 0a 20 20 20 20 22 mpt"....."call-with-trace"....."
e080 64 65 66 69 6e 65 2d 61 63 63 65 73 73 6f 72 22 0a 20 20 20 20 22 64 65 66 69 6e 65 2d 63 6c 61 define-accessor"....."define-cla
e0a0 73 73 22 0a 20 20 20 20 22 64 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 74 69 6f 6e 22 0a 20 20 20 ss"....."define-enumeration"....
e0c0 20 22 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 61 62 6c 65 22 0a 20 20 20 20 22 64 65 66 69 6e 65 2d ."define-inlinable"....."define-
e0e0 73 79 6e 74 61 78 2d 70 61 72 61 6d 65 74 65 72 22 0a 20 20 20 20 22 65 76 61 6c 2d 77 68 65 6e syntax-parameter"....."eval-when
e100 22 0a 20 20 20 20 22 6c 61 6d 62 64 61 2a 22 0a 20 20 20 20 22 73 79 6e 74 61 78 2d 70 61 72 61 "....."lambda*"....."syntax-para
e120 6d 65 74 65 72 69 7a 65 22 0a 20 20 20 20 22 75 73 65 2d 6d 6f 64 75 6c 65 73 22 0a 20 20 20 20 meterize"....."use-modules".....
e140 22 77 69 74 68 2d 65 72 72 6f 72 2d 74 6f 2d 66 69 6c 65 22 0a 20 20 20 20 22 77 69 74 68 2d 65 "with-error-to-file"....."with-e
e160 72 72 6f 72 2d 74 6f 2d 70 6f 72 74 22 0a 20 20 20 20 22 77 69 74 68 2d 65 72 72 6f 72 2d 74 6f rror-to-port"....."with-error-to
e180 2d 73 74 72 69 6e 67 22 0a 20 20 20 20 22 77 69 74 68 2d 66 6c 75 69 64 2a 22 0a 20 20 20 20 22 -string"....."with-fluid*"....."
e1a0 77 69 74 68 2d 66 6c 75 69 64 73 22 0a 20 20 20 20 22 77 69 74 68 2d 66 6c 75 69 64 73 2a 22 0a with-fluids"....."with-fluids*".
e1c0 20 20 20 20 22 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 70 6f 72 74 22 0a 20 20 20 20 22 ...."with-input-from-port"....."
e1e0 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 22 0a 20 20 20 20 22 77 69 74 with-input-from-string"....."wit
e200 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 70 6f 72 74 22 0a 20 20 20 20 22 77 69 74 68 2d 6f 75 74 70 h-output-to-port"....."with-outp
e220 75 74 2d 74 6f 2d 73 74 72 69 6e 67 22 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 ut-to-string"))..(defun.geiser-g
e240 75 69 6c 65 2d 2d 6b 65 79 77 6f 72 64 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 47 75 69 6c uile--keywords.()..."Return.Guil
e260 65 2d 73 70 65 63 69 66 69 63 20 73 63 68 65 6d 65 20 6b 65 79 77 6f 72 64 73 2e 22 0a 20 20 28 e-specific.scheme.keywords."...(
e280 61 70 70 65 6e 64 0a 20 20 20 28 67 65 69 73 65 72 2d 73 79 6e 74 61 78 2d 2d 73 69 6d 70 6c 65 append....(geiser-syntax--simple
e2a0 2d 6b 65 79 77 6f 72 64 73 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 65 78 74 72 61 2d 6b 65 79 -keywords.geiser-guile-extra-key
e2c0 77 6f 72 64 73 29 0a 20 20 20 28 67 65 69 73 65 72 2d 73 79 6e 74 61 78 2d 2d 73 69 6d 70 6c 65 words)....(geiser-syntax--simple
e2e0 2d 6b 65 79 77 6f 72 64 73 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 62 75 69 6c 74 69 6e 2d -keywords.geiser-guile--builtin-
e300 6b 65 79 77 6f 72 64 73 29 0a 20 20 20 60 28 28 2c 28 72 78 20 22 28 22 20 28 67 72 6f 75 70 20 keywords)....`((,(rx."(".(group.
e320 22 64 65 66 69 6e 65 2d 6f 6e 63 65 22 29 20 65 6f 77 20 28 2a 20 73 70 61 63 65 29 20 28 3f 20 "define-once").eow.(*.space).(?.
e340 28 67 72 6f 75 70 20 28 2b 20 77 6f 72 64 29 29 29 29 0a 20 20 20 20 20 20 28 31 20 66 6f 6e 74 (group.(+.word)))).......(1.font
e360 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 0a 20 20 20 20 20 20 28 32 20 66 6f 6e -lock-keyword-face).......(2.fon
e380 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 20 6e 69 6c 20 74 29 t-lock-variable-name-face.nil.t)
e3a0 29 0a 20 20 20 20 20 28 22 28 5c 5c 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c 65 5c 5c 29 20 2b 28 )......("(\\(define-module\\).+(
e3c0 5c 5c 28 5b 5e 29 5d 2b 5c 5c 29 29 22 0a 20 20 20 20 20 20 28 31 20 66 6f 6e 74 2d 6c 6f 63 6b \\([^)]+\\))".......(1.font-lock
e3e0 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 0a 20 20 20 20 20 20 28 32 20 66 6f 6e 74 2d 6c 6f 63 -keyword-face).......(2.font-loc
e400 6b 2d 74 79 70 65 2d 66 61 63 65 20 6e 69 6c 20 74 29 29 29 29 29 0a 0a 28 67 65 69 73 65 72 2d k-type-face.nil.t)))))..(geiser-
e420 73 79 6e 74 61 78 2d 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 0a 20 28 63 2d 64 65 63 6c 61 72 syntax--scheme-indent..(c-declar
e440 65 20 30 29 0a 20 28 63 2d 6c 61 6d 62 64 61 20 32 29 0a 20 28 63 61 6c 6c 2d 77 69 74 68 2d 69 e.0)..(c-lambda.2)..(call-with-i
e460 6e 70 75 74 2d 73 74 72 69 6e 67 20 31 29 0a 20 28 63 61 6c 6c 2d 77 69 74 68 2d 6f 75 74 70 75 nput-string.1)..(call-with-outpu
e480 74 2d 73 74 72 69 6e 67 20 30 29 0a 20 28 63 61 6c 6c 2d 77 69 74 68 2d 70 72 6f 6d 70 74 20 31 t-string.0)..(call-with-prompt.1
e4a0 29 0a 20 28 63 61 6c 6c 2d 77 69 74 68 2d 74 72 61 63 65 20 30 29 0a 20 28 65 76 61 6c 2d 77 68 )..(call-with-trace.0)..(eval-wh
e4c0 65 6e 20 31 29 0a 20 28 6c 61 6d 62 64 61 2a 20 31 29 0a 20 28 70 6d 61 74 63 68 20 64 65 66 75 en.1)..(lambda*.1)..(pmatch.defu
e4e0 6e 29 0a 20 28 73 69 67 61 63 74 69 6f 6e 20 31 29 0a 20 28 73 79 6e 74 61 78 2d 70 61 72 61 6d n)..(sigaction.1)..(syntax-param
e500 65 74 65 72 69 7a 65 20 31 29 0a 20 28 77 69 74 68 2d 65 72 72 6f 72 2d 74 6f 2d 66 69 6c 65 20 eterize.1)..(with-error-to-file.
e520 31 29 0a 20 28 77 69 74 68 2d 65 72 72 6f 72 2d 74 6f 2d 70 6f 72 74 20 31 29 0a 20 28 77 69 74 1)..(with-error-to-port.1)..(wit
e540 68 2d 65 72 72 6f 72 2d 74 6f 2d 73 74 72 69 6e 67 20 30 29 0a 20 28 77 69 74 68 2d 66 6c 75 69 h-error-to-string.0)..(with-flui
e560 64 2a 20 31 29 0a 20 28 77 69 74 68 2d 66 6c 75 69 64 73 20 31 29 0a 20 28 77 69 74 68 2d 66 6c d*.1)..(with-fluids.1)..(with-fl
e580 75 69 64 73 2a 20 31 29 0a 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e uids*.1)..(with-input-from-strin
e5a0 67 20 31 29 0a 20 28 77 69 74 68 2d 6d 65 74 68 6f 64 20 31 29 0a 20 28 77 69 74 68 2d 6d 75 74 g.1)..(with-method.1)..(with-mut
e5c0 65 78 20 31 29 0a 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 20 30 29 ex.1)..(with-output-to-string.0)
e5e0 0a 20 28 77 69 74 68 2d 74 68 72 6f 77 2d 68 61 6e 64 6c 65 72 20 31 29 29 0a 0a 0c 0a 3b 3b 3b ..(with-throw-handler.1))....;;;
e600 20 52 45 50 4c 20 73 74 61 72 74 75 70 0a 0a 28 64 65 66 63 6f 6e 73 74 20 67 65 69 73 65 72 2d .REPL.startup..(defconst.geiser-
e620 67 75 69 6c 65 2d 6d 69 6e 69 6d 75 6d 2d 76 65 72 73 69 6f 6e 20 22 32 2e 32 22 29 0a 0a 28 64 guile-minimum-version."2.2")..(d
e640 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 76 65 72 73 69 6f 6e 20 28 5f 62 69 6e efun.geiser-guile--version.(_bin
e660 61 72 79 29 0a 20 20 22 46 69 6e 64 20 47 75 69 6c 65 27 73 20 76 65 72 73 69 6f 6e 20 72 75 6e ary)..."Find.Guile's.version.run
e680 6e 69 6e 67 20 74 68 65 20 63 6f 6e 66 69 67 75 72 65 64 20 47 75 69 6c 65 20 62 69 6e 61 72 79 ning.the.configured.Guile.binary
e6a0 2e 22 0a 20 20 3b 3b 20 6d 61 79 62 65 20 6f 6e 65 20 64 61 79 20 77 65 27 6c 6c 20 68 61 76 65 ."...;;.maybe.one.day.we'll.have
e6c0 20 60 70 72 6f 63 65 73 73 2d 6c 69 6e 65 73 27 20 77 69 74 68 20 74 72 61 6d 70 20 73 75 70 70 .`process-lines'.with.tramp.supp
e6e0 6f 72 74 0a 20 20 28 6c 65 74 20 28 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 73 77 69 74 63 ort...(let.((shell-command-switc
e700 68 20 22 2d 63 22 29 0a 20 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61 6d 65 h."-c").........(shell-file-name
e720 20 22 73 68 22 29 29 0a 20 20 20 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 ."sh")).....(shell-command-to-st
e740 72 69 6e 67 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 20 2d 63 20 25 73 22 0a 20 20 20 ring......(format."%s.-c.%s"....
e760 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 62 69 6e 61 72 79 29 ..........(geiser-guile--binary)
e780 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d ..............(shell-quote-argum
e7a0 65 6e 74 20 22 28 64 69 73 70 6c 61 79 20 28 76 65 72 73 69 6f 6e 29 29 22 29 29 29 29 29 0a 0a ent."(display.(version))")))))..
e7c0 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 70 64 61 74 65 2d 77 61 72 6e 69 (defun.geiser-guile-update-warni
e7e0 6e 67 2d 6c 65 76 65 6c 20 28 29 0a 20 20 22 55 70 64 61 74 65 20 74 68 65 20 77 61 72 6e 69 6e ng-level.()..."Update.the.warnin
e800 67 20 6c 65 76 65 6c 20 75 73 65 64 20 62 79 20 74 68 65 20 52 45 50 4c 2e 0a 54 68 65 20 6e 65 g.level.used.by.the.REPL..The.ne
e820 77 20 6c 65 76 65 6c 20 69 73 20 73 65 74 20 75 73 69 6e 67 20 74 68 65 20 76 61 6c 75 65 20 6f w.level.is.set.using.the.value.o
e840 66 20 60 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 27 2e 22 f.`geiser-guile-warning-level'."
e860 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 64 65 20 60 ...(interactive)...(let.((code.`
e880 28 3a 65 76 61 6c 20 28 3a 67 65 20 73 65 74 2d 77 61 72 6e 69 6e 67 73 20 27 2c 67 65 69 73 65 (:eval.(:ge.set-warnings.',geise
e8a0 72 2d 67 75 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 r-guile-warning-level)..........
e8c0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 20 65 76 61 6c 75 61 74 69 6f 6e 29 .............(geiser.evaluation)
e8e0 29 29 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 72 65 73 75 6c ))).....(geiser-eval--send/resul
e900 74 20 63 6f 64 65 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e t.code)))..;;;###autoload.(defun
e920 20 63 6f 6e 6e 65 63 74 2d 74 6f 2d 67 75 69 6c 65 20 28 29 0a 20 20 22 53 74 61 72 74 20 61 20 .connect-to-guile.()..."Start.a.
e940 47 75 69 6c 65 20 52 45 50 4c 20 63 6f 6e 6e 65 63 74 65 64 20 74 6f 20 61 20 72 65 6d 6f 74 65 Guile.REPL.connected.to.a.remote
e960 20 70 72 6f 63 65 73 73 2e 0a 0a 53 74 61 72 74 20 74 68 65 20 65 78 74 65 72 6e 61 6c 20 47 75 .process...Start.the.external.Gu
e980 69 6c 65 20 70 72 6f 63 65 73 73 20 77 69 74 68 20 74 68 65 20 66 6c 61 67 20 2d 2d 6c 69 73 74 ile.process.with.the.flag.--list
e9a0 65 6e 20 74 6f 20 6d 61 6b 65 0a 69 74 20 73 70 61 77 6e 20 61 20 73 65 72 76 65 72 20 74 68 72 en.to.make.it.spawn.a.server.thr
e9c0 65 61 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 65 69 73 65 72 2d ead."...(interactive)...(geiser-
e9e0 63 6f 6e 6e 65 63 74 20 27 67 75 69 6c 65 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d connect.'guile))..(defun.geiser-
ea00 67 75 69 6c 65 2d 2d 73 65 74 2d 67 65 69 73 65 72 2d 6c 6f 61 64 2d 70 61 74 68 20 28 29 0a 20 guile--set-geiser-load-path.()..
ea20 20 22 53 65 74 20 75 70 20 73 63 68 65 6d 65 20 6c 6f 61 64 20 70 61 74 68 20 66 6f 72 20 52 45 ."Set.up.scheme.load.path.for.RE
ea40 50 4c 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 70 61 74 68 20 28 67 65 69 73 65 72 2d 67 75 69 6c PL."...(let*.((path.(geiser-guil
ea60 65 2d 65 6e 73 75 72 65 2d 73 63 68 65 6d 65 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 e-ensure-scheme-dir))..........(
ea80 77 69 74 6e 65 73 73 20 22 67 65 69 73 65 72 2f 65 6d 61 63 73 2e 73 63 6d 22 29 0a 20 20 20 20 witness."geiser/emacs.scm").....
eaa0 20 20 20 20 20 28 63 6f 64 65 20 60 28 62 65 67 69 6e 20 28 69 66 20 28 6e 6f 74 20 28 25 73 65 .....(code.`(begin.(if.(not.(%se
eac0 61 72 63 68 2d 6c 6f 61 64 2d 70 61 74 68 20 2c 77 69 74 6e 65 73 73 29 29 0a 20 20 20 20 20 20 arch-load-path.,witness)).......
eae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21 20 25 6c 6f 61 64 .....................(set!.%load
eb00 2d 70 61 74 68 20 28 63 6f 6e 73 20 2c 70 61 74 68 20 25 6c 6f 61 64 2d 70 61 74 68 29 29 29 0a -path.(cons.,path.%load-path))).
eb20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 6f 6e 65 29 29 29 0a .......................'done))).
eb40 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 77 61 69 74 20 63 6f 64 65 ....(geiser-eval--send/wait.code
eb60 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 75 70 )))..(defun.geiser-guile--set-up
eb80 2d 64 65 63 6c 61 72 61 74 69 76 65 2d 6d 6f 64 75 6c 65 73 20 28 29 0a 20 20 22 53 65 74 20 75 -declarative-modules.()..."Set.u
eba0 70 20 47 75 69 6c 65 20 74 6f 20 28 6e 6f 74 29 20 75 73 65 20 64 65 63 6c 61 72 61 74 69 76 65 p.Guile.to.(not).use.declarative
ebc0 20 6d 6f 64 75 6c 65 73 2e 0a 53 65 65 20 60 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 73 65 2d .modules..See.`geiser-guile-use-
ebe0 64 65 63 6c 61 72 61 74 69 76 65 2d 6d 6f 64 75 6c 65 73 27 2e 22 0a 20 20 28 75 6e 6c 65 73 73 declarative-modules'."...(unless
ec00 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 73 65 2d 64 65 63 6c 61 72 61 74 69 76 65 2d 6d 6f .geiser-guile-use-declarative-mo
ec20 64 75 6c 65 73 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6f 64 65 20 27 28 62 65 67 69 6e 20 28 65 dules.....(let.((code.'(begin.(e
ec40 76 61 6c 2d 77 68 65 6e 20 28 65 78 70 61 6e 64 29 20 28 75 73 65 72 2d 6d 6f 64 75 6c 65 73 2d val-when.(expand).(user-modules-
ec60 64 65 63 6c 61 72 61 74 69 76 65 3f 20 3a 66 29 29 20 27 6f 6b 29 29 29 0a 20 20 20 20 20 20 28 declarative?.:f)).'ok))).......(
ec80 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 77 61 69 74 20 63 6f 64 65 29 29 29 29 0a geiser-eval--send/wait.code)))).
eca0 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 75 70 2d 62 61 63 .(defun.geiser-guile--set-up-bac
ecc0 6b 74 72 61 63 65 20 28 29 0a 20 20 22 53 65 74 20 75 70 20 47 75 69 6c 65 27 73 20 62 61 63 6b ktrace.()..."Set.up.Guile's.back
ece0 74 72 61 63 65 20 70 72 6f 70 65 72 74 69 65 73 2e 22 0a 20 20 28 77 68 65 6e 20 67 65 69 73 65 trace.properties."...(when.geise
ed00 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 62 61 63 6b 77 61 72 64 73 2d 62 61 63 6b 74 72 61 63 r-guile-debug-backwards-backtrac
ed20 65 0a 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 77 61 69 74 20 27 28 e.....(geiser-eval--send/wait.'(
ed40 64 65 62 75 67 2d 65 6e 61 62 6c 65 20 27 62 61 63 6b 77 61 72 64 73 29 29 29 0a 20 20 28 77 68 debug-enable.'backwards)))...(wh
ed60 65 6e 20 28 3e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 74 65 72 6d 69 6e 61 en.(>.geiser-guile-debug-termina
ed80 6c 2d 77 69 64 74 68 20 30 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e l-width.0).....(geiser-eval--sen
eda0 64 2f 77 61 69 74 20 60 28 62 65 67 69 6e 20 28 28 40 20 28 73 79 73 74 65 6d 20 72 65 70 6c 20 d/wait.`(begin.((@.(system.repl.
edc0 64 65 62 75 67 29 20 74 65 72 6d 69 6e 61 6c 2d 77 69 64 74 68 29 0a 20 20 20 20 20 20 20 20 20 debug).terminal-width)..........
ede0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 67 65 69 ............................,gei
ee00 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 74 65 72 6d 69 6e 61 6c 2d 77 69 64 74 68 29 0a ser-guile-debug-terminal-width).
ee20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
ee40 20 20 20 20 27 6f 6b 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 ....'ok))))..(defun.geiser-guile
ee60 2d 2d 73 74 61 72 74 75 70 20 28 72 65 6d 6f 74 65 29 0a 20 20 22 53 74 61 72 74 75 70 20 66 75 --startup.(remote)..."Startup.fu
ee80 6e 63 74 69 6f 6e 2c 20 66 6f 72 20 61 20 72 65 6d 6f 74 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 nction,.for.a.remote.connection.
eea0 69 66 20 52 45 4d 4f 54 45 20 69 73 20 74 2e 22 0a 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 if.REMOTE.is.t."...(geiser-guile
eec0 2d 2d 73 65 74 2d 75 70 2d 65 72 72 6f 72 2d 6c 69 6e 6b 73 29 0a 20 20 28 6c 65 74 20 28 28 67 --set-up-error-links)...(let.((g
eee0 65 69 73 65 72 2d 6c 6f 67 2d 76 65 72 62 6f 73 65 20 74 29 0a 20 20 20 20 20 20 20 20 28 67 2d eiser-log-verbose.t).........(g-
ef00 6c 6f 61 64 2d 70 61 74 68 20 28 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 76 61 6c 75 65 20 27 67 load-path.(buffer-local-value.'g
ef20 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 eiser-guile-load-path...........
ef40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
ef60 6f 72 20 67 65 69 73 65 72 2d 72 65 70 6c 2d 2d 6c 61 73 74 2d 73 63 6d 2d 62 75 66 66 65 72 0a or.geiser-repl--last-scm-buffer.
ef80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
efa0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 .............(current-buffer))))
efc0 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6f ).....(when.(or.geiser-guile--co
efe0 6e 6e 2d 61 64 64 72 65 73 73 20 72 65 6d 6f 74 65 29 0a 20 20 20 20 20 20 28 67 65 69 73 65 72 nn-address.remote).......(geiser
f000 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 67 65 69 73 65 72 2d 6c 6f 61 64 2d 70 61 74 68 29 29 0a 20 -guile--set-geiser-load-path))..
f020 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 75 70 2d 64 65 63 6c 61 72 61 ...(geiser-guile--set-up-declara
f040 74 69 76 65 2d 6d 6f 64 75 6c 65 73 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d tive-modules).....(geiser-guile-
f060 2d 73 65 74 2d 75 70 2d 62 61 63 6b 74 72 61 63 65 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d 65 -set-up-backtrace).....(geiser-e
f080 76 61 6c 2d 2d 73 65 6e 64 2f 77 61 69 74 20 22 2c 75 73 65 20 28 67 65 69 73 65 72 20 65 6d 61 val--send/wait.",use.(geiser.ema
f0a0 63 73 29 5c 6e 27 64 6f 6e 65 22 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 69 72 20 67 2d cs)\n'done").....(dolist.(dir.g-
f0c0 6c 6f 61 64 2d 70 61 74 68 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 65 78 70 load-path).......(let.((dir.(exp
f0e0 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 67 65 and-file-name.dir))).........(ge
f100 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 77 61 69 74 20 60 28 3a 65 76 61 6c 20 28 3a 67 iser-eval--send/wait.`(:eval.(:g
f120 65 20 61 64 64 2d 74 6f 2d 6c 6f 61 64 2d 70 61 74 68 20 2c 64 69 72 29 29 29 29 29 0a 20 20 20 e.add-to-load-path.,dir)))))....
f140 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 70 64 61 74 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 .(geiser-guile-update-warning-le
f160 76 65 6c 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 4d 61 6e 75 61 6c 20 6c 6f 6f 6b 75 70 0a 0a 28 64 65 vel)))....;;;.Manual.lookup..(de
f180 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6e 66 6f 2d 73 70 65 63 20 28 29 0a 20 fun.geiser-guile--info-spec.()..
f1a0 20 22 52 65 74 75 72 6e 20 69 6e 66 6f 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 66 6f 72 20 ."Return.info.specification.for.
f1c0 67 69 76 65 6e 20 4e 4f 44 45 53 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6e 72 78 20 22 5e 5b 20 given.NODES."...(let*.((nrx."^[.
f1e0 20 20 20 20 20 20 5d 2b 2d 2b 20 5b 5e 3a 5d 2b 3a 5b 20 20 20 20 5d 2a 22 29 0a 20 20 20 20 20 ......]+-+.[^:]+:[....]*")......
f200 20 20 20 20 28 64 72 78 20 22 5c 5c 62 22 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 73 20 28 77 ....(drx."\\b")..........(res.(w
f220 68 65 6e 20 28 49 6e 66 6f 2d 66 69 6e 64 2d 66 69 6c 65 20 22 72 35 72 73 22 20 74 29 0a 20 20 hen.(Info-find-file."r5rs".t)...
f240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 22 28 72 35 72 73 29 49 6e 64 65 78 22 20 6e ..............`(("(r5rs)Index".n
f260 69 6c 20 2c 6e 72 78 20 2c 64 72 78 29 29 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 6e il.,nrx.,drx))))).....(dolist.(n
f280 6f 64 65 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 6e ode.geiser-guile-manual-lookup-n
f2a0 6f 64 65 73 20 72 65 73 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 49 6e 66 6f 2d 66 69 6e 64 odes.res).......(when.(Info-find
f2c0 2d 66 69 6c 65 20 6e 6f 64 65 20 74 29 0a 20 20 20 20 20 20 20 20 28 6d 61 70 63 20 28 6c 61 6d -file.node.t).........(mapc.(lam
f2e0 62 64 61 20 28 69 64 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 bda.(idx).................(add-t
f300 6f 2d 6c 69 73 74 20 27 72 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 o-list.'res.....................
f320 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 66 6f 72 6d 61 74 20 22 28 25 73 29 25 73 22 20 .........(list.(format."(%s)%s".
f340 6e 6f 64 65 20 69 64 78 29 20 6e 69 6c 20 6e 72 78 20 64 72 78 29 29 29 0a 20 20 20 20 20 20 20 node.idx).nil.nrx.drx)))........
f360 20 20 20 20 20 20 20 27 28 22 52 35 52 53 20 49 6e 64 65 78 22 20 22 43 6f 6e 63 65 70 74 20 49 .......'("R5RS.Index"."Concept.I
f380 6e 64 65 78 22 20 22 50 72 6f 63 65 64 75 72 65 20 49 6e 64 65 78 22 20 22 56 61 72 69 61 62 6c ndex"."Procedure.Index"."Variabl
f3a0 65 20 49 6e 64 65 78 22 29 29 29 29 29 29 0a 0a 28 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 64 64 e.Index"))))))..(info-lookup-add
f3c0 2d 68 65 6c 70 20 3a 74 6f 70 69 63 20 27 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 -help.:topic.'symbol............
f3e0 20 20 20 20 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d ...........:mode.'geiser-guile-m
f400 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 67 6e 6f 72 ode.......................:ignor
f420 65 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-case.nil......................
f440 20 3a 72 65 67 65 78 70 20 22 5b 5e 28 29 60 27 2c 5c 22 20 20 20 20 20 20 20 20 5c 6e 5d 2b 22 .:regexp."[^()`',\"........\n]+"
f460 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f 63 2d 73 70 65 63 .......................:doc-spec
f480 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6e 66 6f 2d 73 70 65 63 29 29 0a 0a 28 64 65 .(geiser-guile--info-spec))..(de
f4a0 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 20 28 69 fun.geiser-guile--info-lookup.(i
f4c0 64 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 69 64 29 20 28 69 6e 66 6f 20 22 67 75 69 d)...(cond.((null.id).(info."gui
f4e0 6c 65 22 29 29 0a 20 20 20 20 20 20 20 20 28 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 69 le")).........((ignore-errors.(i
f500 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 69 nfo-lookup-symbol.(format."%s".i
f520 64 29 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 6f 64 65 29 20 74 29 29 0a 20 20 20 20 20 d).'geiser-guile-mode).t))......
f540 20 20 20 28 28 61 6e 64 20 28 6c 69 73 74 70 20 69 64 29 20 28 67 65 69 73 65 72 2d 67 75 69 6c ...((and.(listp.id).(geiser-guil
f560 65 2d 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 20 28 63 61 72 20 28 6c 61 73 74 20 69 64 29 29 29 29 e--info-lookup.(car.(last.id))))
f580 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6e 66 6f ).........(t.(geiser-guile--info
f5a0 2d 6c 6f 6f 6b 75 70 20 28 77 68 65 6e 20 28 6c 69 73 74 70 20 69 64 29 20 28 62 75 74 6c 61 73 -lookup.(when.(listp.id).(butlas
f5c0 74 20 69 64 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d t.id))))))..(defun.geiser-guile-
f5e0 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 2d 75 70 20 28 69 64 20 5f 6d 6f 64 29 0a 20 20 22 4c 6f 6f -manual-look-up.(id._mod)..."Loo
f600 6b 20 66 6f 72 20 49 44 20 69 6e 20 74 68 65 20 47 75 69 6c 65 20 6d 61 6e 75 61 6c 73 2e 22 0a k.for.ID.in.the.Guile.manuals.".
f620 20 20 28 6c 65 74 20 28 28 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 6f 74 68 65 72 2d 77 69 6e 64 6f ..(let.((info-lookup-other-windo
f640 77 2d 66 6c 61 67 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 w-flag.geiser-guile-manual-looku
f660 70 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 p-other-window)).....(geiser-gui
f680 6c 65 2d 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 20 69 64 29 0a 20 20 20 20 28 77 68 65 6e 20 67 65 le--info-lookup.id).....(when.ge
f6a0 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 6f 74 68 65 72 2d 77 iser-guile-manual-lookup-other-w
f6c0 69 6e 64 6f 77 0a 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 indow.......(switch-to-buffer-ot
f6e0 68 65 72 2d 77 69 6e 64 6f 77 20 22 2a 69 6e 66 6f 2a 22 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 49 her-window."*info*"))))....;;;.I
f700 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f 6e 3a 0a 0a 28 64 65 66 69 mplementation.definition:..(defi
f720 6e 65 2d 67 65 69 73 65 72 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 75 69 6c 65 0a 20 ne-geiser-implementation.guile..
f740 20 28 62 69 6e 61 72 79 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 62 69 6e 61 72 79 29 0a 20 .(binary.geiser-guile--binary)..
f760 20 28 61 72 67 6c 69 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 61 72 61 6d 65 74 65 .(arglist.geiser-guile--paramete
f780 72 73 29 0a 20 20 28 76 65 72 73 69 6f 6e 2d 63 6f 6d 6d 61 6e 64 20 67 65 69 73 65 72 2d 67 75 rs)...(version-command.geiser-gu
f7a0 69 6c 65 2d 2d 76 65 72 73 69 6f 6e 29 0a 20 20 28 6d 69 6e 69 6d 75 6d 2d 76 65 72 73 69 6f 6e ile--version)...(minimum-version
f7c0 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 69 6e 69 6d 75 6d 2d 76 65 72 73 69 6f 6e 29 0a 20 .geiser-guile-minimum-version)..
f7e0 20 28 72 65 70 6c 2d 73 74 61 72 74 75 70 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 74 61 .(repl-startup.geiser-guile--sta
f800 72 74 75 70 29 0a 20 20 28 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 20 67 65 69 73 65 72 2d 67 75 rtup)...(prompt-regexp.geiser-gu
f820 69 6c 65 2d 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 29 0a 20 20 28 63 6c 65 61 6e 2d 75 70 2d ile--prompt-regexp)...(clean-up-
f840 6f 75 74 70 75 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6c 65 61 6e 2d 75 70 2d 6f 75 output.geiser-guile--clean-up-ou
f860 74 70 75 74 29 0a 20 20 28 64 65 62 75 67 67 65 72 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 20 tput)...(debugger-prompt-regexp.
f880 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 65 62 75 67 67 65 72 2d 70 72 6f 6d 70 74 2d 72 65 geiser-guile--debugger-prompt-re
f8a0 67 65 78 70 29 0a 20 20 28 65 6e 74 65 72 2d 64 65 62 75 67 67 65 72 20 67 65 69 73 65 72 2d 67 gexp)...(enter-debugger.geiser-g
f8c0 75 69 6c 65 2d 2d 65 6e 74 65 72 2d 64 65 62 75 67 67 65 72 29 0a 20 20 28 6d 61 72 73 68 61 6c uile--enter-debugger)...(marshal
f8e0 6c 2d 70 72 6f 63 65 64 75 72 65 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 65 69 73 65 72 l-procedure.geiser-guile--geiser
f900 2d 70 72 6f 63 65 64 75 72 65 29 0a 20 20 28 66 69 6e 64 2d 6d 6f 64 75 6c 65 20 67 65 69 73 65 -procedure)...(find-module.geise
f920 72 2d 67 75 69 6c 65 2d 2d 67 65 74 2d 6d 6f 64 75 6c 65 29 0a 20 20 28 65 6e 74 65 72 2d 63 6f r-guile--get-module)...(enter-co
f940 6d 6d 61 6e 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 65 6e 74 65 72 2d 63 6f 6d 6d 61 6e mmand.geiser-guile--enter-comman
f960 64 29 0a 20 20 28 65 78 69 74 2d 63 6f 6d 6d 61 6e 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d d)...(exit-command.geiser-guile-
f980 2d 65 78 69 74 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 28 69 6d 70 6f 72 74 2d 63 6f 6d 6d 61 6e 64 -exit-command)...(import-command
f9a0 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6d 70 6f 72 74 2d 63 6f 6d 6d 61 6e 64 29 0a 20 .geiser-guile--import-command)..
f9c0 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 2d 62 65 67 69 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 .(find-symbol-begin.geiser-guile
f9e0 2d 2d 73 79 6d 62 6f 6c 2d 62 65 67 69 6e 29 0a 20 20 28 64 69 73 70 6c 61 79 2d 65 72 72 6f 72 --symbol-begin)...(display-error
fa00 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 69 73 70 6c 61 79 2d 65 72 72 6f 72 29 0a 20 20 .geiser-guile--display-error)...
fa20 28 65 78 74 65 72 6e 61 6c 2d 68 65 6c 70 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 61 6e (external-help.geiser-guile--man
fa40 75 61 6c 2d 6c 6f 6f 6b 2d 75 70 29 0a 20 20 28 63 68 65 63 6b 2d 62 75 66 66 65 72 20 67 65 69 ual-look-up)...(check-buffer.gei
fa60 73 65 72 2d 67 75 69 6c 65 2d 2d 67 75 65 73 73 29 0a 20 20 28 6b 65 79 77 6f 72 64 73 20 67 65 ser-guile--guess)...(keywords.ge
fa80 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6b 65 79 77 6f 72 64 73 29 0a 20 20 28 63 61 73 65 2d 73 65 iser-guile--keywords)...(case-se
faa0 6e 73 69 74 69 76 65 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 63 61 73 65 2d 73 65 6e 73 69 74 nsitive.geiser-guile-case-sensit
fac0 69 76 65 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 67 65 69 73 65 72 2d 61 63 ive))..;;;###autoload.(geiser-ac
fae0 74 69 76 61 74 65 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 27 67 75 69 6c 65 29 0a 0a 3b tivate-implementation.'guile)..;
fb00 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 61 75 74 6f 6c 6f 61 64 20 27 72 75 6e 2d 67 75 69 ;;###autoload.(autoload.'run-gui
fb20 6c 65 20 22 67 65 69 73 65 72 2d 67 75 69 6c 65 22 20 22 53 74 61 72 74 20 61 20 47 65 69 73 65 le."geiser-guile"."Start.a.Geise
fb40 72 20 47 75 69 6c 65 20 52 45 50 4c 2e 22 20 74 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 r.Guile.REPL.".t)..;;;###autoloa
fb60 64 0a 28 61 75 74 6f 6c 6f 61 64 20 27 73 77 69 74 63 68 2d 74 6f 2d 67 75 69 6c 65 20 22 67 65 d.(autoload.'switch-to-guile."ge
fb80 69 73 65 72 2d 67 75 69 6c 65 22 0a 20 20 22 53 74 61 72 74 20 61 20 47 65 69 73 65 72 20 47 75 iser-guile"..."Start.a.Geiser.Gu
fba0 69 6c 65 20 52 45 50 4c 2c 20 6f 72 20 73 77 69 74 63 68 20 74 6f 20 61 20 72 75 6e 6e 69 6e 67 ile.REPL,.or.switch.to.a.running
fbc0 20 6f 6e 65 2e 22 20 74 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 67 65 69 73 65 72 2d 67 75 69 6c .one.".t)..(provide.'geiser-guil
fbe0 65 29 0a 3b 3b 3b 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 e).;;;.geiser-guile.el.ends.here
fc00 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fc20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fc40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fc60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fc80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fcc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fd00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fd20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fd40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fd60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fd80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fda0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fdc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fde0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fe00 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 6c 69 63 65 6e 73 65 00 00 00 00 00 geiser-guile-0.28.1/license.....
fe20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fe40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fe60 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
fe80 30 30 30 33 30 32 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 31 36 34 00 20 30 00 00 00 0003022.00000000000.014164..0...
fea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
fee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
ff00 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
ff20 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
ff40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
ff60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
ff80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
ffa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
ffc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
ffe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10000 42 53 44 20 33 2d 43 6c 61 75 73 65 20 4c 69 63 65 6e 73 65 0a 0a 43 6f 70 79 72 69 67 68 74 20 BSD.3-Clause.License..Copyright.
10020 28 63 29 20 32 30 30 39 2c 20 32 30 31 30 2c 20 32 30 31 31 2c 20 32 30 31 32 2c 20 32 30 31 33 (c).2009,.2010,.2011,.2012,.2013
10040 2c 20 32 30 31 35 2c 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a ,.2015,.Jose.Antonio.Ortega.Ruiz
10060 0a 41 6c 6c 20 72 69 67 68 74 73 20 72 65 73 65 72 76 65 64 2e 0a 0a 52 65 64 69 73 74 72 69 62 .All.rights.reserved...Redistrib
10080 75 74 69 6f 6e 20 61 6e 64 20 75 73 65 20 69 6e 20 73 6f 75 72 63 65 20 61 6e 64 20 62 69 6e 61 ution.and.use.in.source.and.bina
100a0 72 79 20 66 6f 72 6d 73 2c 20 77 69 74 68 20 6f 72 20 77 69 74 68 6f 75 74 0a 6d 6f 64 69 66 69 ry.forms,.with.or.without.modifi
100c0 63 61 74 69 6f 6e 2c 20 61 72 65 20 70 65 72 6d 69 74 74 65 64 20 70 72 6f 76 69 64 65 64 20 74 cation,.are.permitted.provided.t
100e0 68 61 74 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 73 20 61 72 65 hat.the.following.conditions.are
10100 20 6d 65 74 3a 0a 0a 2a 20 52 65 64 69 73 74 72 69 62 75 74 69 6f 6e 73 20 6f 66 20 73 6f 75 72 .met:..*.Redistributions.of.sour
10120 63 65 20 63 6f 64 65 20 6d 75 73 74 20 72 65 74 61 69 6e 20 74 68 65 20 61 62 6f 76 65 20 63 6f ce.code.must.retain.the.above.co
10140 70 79 72 69 67 68 74 20 6e 6f 74 69 63 65 2c 20 74 68 69 73 0a 20 20 6c 69 73 74 20 6f 66 20 63 pyright.notice,.this...list.of.c
10160 6f 6e 64 69 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 69 73 63 onditions.and.the.following.disc
10180 6c 61 69 6d 65 72 2e 0a 0a 2a 20 52 65 64 69 73 74 72 69 62 75 74 69 6f 6e 73 20 69 6e 20 62 69 laimer...*.Redistributions.in.bi
101a0 6e 61 72 79 20 66 6f 72 6d 20 6d 75 73 74 20 72 65 70 72 6f 64 75 63 65 20 74 68 65 20 61 62 6f nary.form.must.reproduce.the.abo
101c0 76 65 20 63 6f 70 79 72 69 67 68 74 20 6e 6f 74 69 63 65 2c 0a 20 20 74 68 69 73 20 6c 69 73 74 ve.copyright.notice,...this.list
101e0 20 6f 66 20 63 6f 6e 64 69 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 .of.conditions.and.the.following
10200 20 64 69 73 63 6c 61 69 6d 65 72 20 69 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e .disclaimer.in.the.documentation
10220 0a 20 20 61 6e 64 2f 6f 72 20 6f 74 68 65 72 20 6d 61 74 65 72 69 61 6c 73 20 70 72 6f 76 69 64 ...and/or.other.materials.provid
10240 65 64 20 77 69 74 68 20 74 68 65 20 64 69 73 74 72 69 62 75 74 69 6f 6e 2e 0a 0a 2a 20 4e 65 69 ed.with.the.distribution...*.Nei
10260 74 68 65 72 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 63 6f 70 79 72 69 67 68 74 20 68 ther.the.name.of.the.copyright.h
10280 6f 6c 64 65 72 20 6e 6f 72 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 69 74 73 0a 20 20 63 6f 6e older.nor.the.names.of.its...con
102a0 74 72 69 62 75 74 6f 72 73 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 65 6e 64 6f 72 73 65 tributors.may.be.used.to.endorse
102c0 20 6f 72 20 70 72 6f 6d 6f 74 65 20 70 72 6f 64 75 63 74 73 20 64 65 72 69 76 65 64 20 66 72 6f .or.promote.products.derived.fro
102e0 6d 0a 20 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 20 77 69 74 68 6f 75 74 20 73 70 65 63 69 66 m...this.software.without.specif
10300 69 63 20 70 72 69 6f 72 20 77 72 69 74 74 65 6e 20 70 65 72 6d 69 73 73 69 6f 6e 2e 0a 0a 54 48 ic.prior.written.permission...TH
10320 49 53 20 53 4f 46 54 57 41 52 45 20 49 53 20 50 52 4f 56 49 44 45 44 20 42 59 20 54 48 45 20 43 IS.SOFTWARE.IS.PROVIDED.BY.THE.C
10340 4f 50 59 52 49 47 48 54 20 48 4f 4c 44 45 52 53 20 41 4e 44 20 43 4f 4e 54 52 49 42 55 54 4f 52 OPYRIGHT.HOLDERS.AND.CONTRIBUTOR
10360 53 20 22 41 53 20 49 53 22 0a 41 4e 44 20 41 4e 59 20 45 58 50 52 45 53 53 20 4f 52 20 49 4d 50 S."AS.IS".AND.ANY.EXPRESS.OR.IMP
10380 4c 49 45 44 20 57 41 52 52 41 4e 54 49 45 53 2c 20 49 4e 43 4c 55 44 49 4e 47 2c 20 42 55 54 20 LIED.WARRANTIES,.INCLUDING,.BUT.
103a0 4e 4f 54 20 4c 49 4d 49 54 45 44 20 54 4f 2c 20 54 48 45 0a 49 4d 50 4c 49 45 44 20 57 41 52 52 NOT.LIMITED.TO,.THE.IMPLIED.WARR
103c0 41 4e 54 49 45 53 20 4f 46 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 41 4e 44 20 46 49 ANTIES.OF.MERCHANTABILITY.AND.FI
103e0 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 20 41 TNESS.FOR.A.PARTICULAR.PURPOSE.A
10400 52 45 0a 44 49 53 43 4c 41 49 4d 45 44 2e 20 49 4e 20 4e 4f 20 45 56 45 4e 54 20 53 48 41 4c 4c RE.DISCLAIMED..IN.NO.EVENT.SHALL
10420 20 54 48 45 20 43 4f 50 59 52 49 47 48 54 20 48 4f 4c 44 45 52 20 4f 52 20 43 4f 4e 54 52 49 42 .THE.COPYRIGHT.HOLDER.OR.CONTRIB
10440 55 54 4f 52 53 20 42 45 20 4c 49 41 42 4c 45 0a 46 4f 52 20 41 4e 59 20 44 49 52 45 43 54 2c 20 UTORS.BE.LIABLE.FOR.ANY.DIRECT,.
10460 49 4e 44 49 52 45 43 54 2c 20 49 4e 43 49 44 45 4e 54 41 4c 2c 20 53 50 45 43 49 41 4c 2c 20 45 INDIRECT,.INCIDENTAL,.SPECIAL,.E
10480 58 45 4d 50 4c 41 52 59 2c 20 4f 52 20 43 4f 4e 53 45 51 55 45 4e 54 49 41 4c 0a 44 41 4d 41 47 XEMPLARY,.OR.CONSEQUENTIAL.DAMAG
104a0 45 53 20 28 49 4e 43 4c 55 44 49 4e 47 2c 20 42 55 54 20 4e 4f 54 20 4c 49 4d 49 54 45 44 20 54 ES.(INCLUDING,.BUT.NOT.LIMITED.T
104c0 4f 2c 20 50 52 4f 43 55 52 45 4d 45 4e 54 20 4f 46 20 53 55 42 53 54 49 54 55 54 45 20 47 4f 4f O,.PROCUREMENT.OF.SUBSTITUTE.GOO
104e0 44 53 20 4f 52 0a 53 45 52 56 49 43 45 53 3b 20 4c 4f 53 53 20 4f 46 20 55 53 45 2c 20 44 41 54 DS.OR.SERVICES;.LOSS.OF.USE,.DAT
10500 41 2c 20 4f 52 20 50 52 4f 46 49 54 53 3b 20 4f 52 20 42 55 53 49 4e 45 53 53 20 49 4e 54 45 52 A,.OR.PROFITS;.OR.BUSINESS.INTER
10520 52 55 50 54 49 4f 4e 29 20 48 4f 57 45 56 45 52 0a 43 41 55 53 45 44 20 41 4e 44 20 4f 4e 20 41 RUPTION).HOWEVER.CAUSED.AND.ON.A
10540 4e 59 20 54 48 45 4f 52 59 20 4f 46 20 4c 49 41 42 49 4c 49 54 59 2c 20 57 48 45 54 48 45 52 20 NY.THEORY.OF.LIABILITY,.WHETHER.
10560 49 4e 20 43 4f 4e 54 52 41 43 54 2c 20 53 54 52 49 43 54 20 4c 49 41 42 49 4c 49 54 59 2c 0a 4f IN.CONTRACT,.STRICT.LIABILITY,.O
10580 52 20 54 4f 52 54 20 28 49 4e 43 4c 55 44 49 4e 47 20 4e 45 47 4c 49 47 45 4e 43 45 20 4f 52 20 R.TORT.(INCLUDING.NEGLIGENCE.OR.
105a0 4f 54 48 45 52 57 49 53 45 29 20 41 52 49 53 49 4e 47 20 49 4e 20 41 4e 59 20 57 41 59 20 4f 55 OTHERWISE).ARISING.IN.ANY.WAY.OU
105c0 54 20 4f 46 20 54 48 45 20 55 53 45 0a 4f 46 20 54 48 49 53 20 53 4f 46 54 57 41 52 45 2c 20 45 T.OF.THE.USE.OF.THIS.SOFTWARE,.E
105e0 56 45 4e 20 49 46 20 41 44 56 49 53 45 44 20 4f 46 20 54 48 45 20 50 4f 53 53 49 42 49 4c 49 54 VEN.IF.ADVISED.OF.THE.POSSIBILIT
10600 59 20 4f 46 20 53 55 43 48 20 44 41 4d 41 47 45 2e 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Y.OF.SUCH.DAMAGE................
10620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
106a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
106c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
106e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
107a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
107c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
107e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10800 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 31 2f 72 65 61 64 6d 65 2e 6f 72 67 00 00 geiser-guile-0.28.1/readme.org..
10820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10860 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
10880 30 30 30 35 36 32 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 35 37 37 00 20 30 00 00 00 0005624.00000000000.014577..0...
108a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
108c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
108e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10900 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
10920 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
10940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
109a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
109c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
109e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
10a00 23 2b 54 49 54 4c 45 3a 20 47 65 69 73 65 72 20 61 6e 64 20 47 75 69 6c 65 20 74 61 6c 6b 20 74 #+TITLE:.Geiser.and.Guile.talk.t
10a20 6f 20 65 61 63 68 20 6f 74 68 65 72 0a 23 2b 4f 50 54 49 4f 4e 53 3a 20 64 3a 6e 69 6c 0a 23 2b o.each.other.#+OPTIONS:.d:nil.#+
10a40 45 58 50 4f 52 54 5f 46 49 4c 45 5f 4e 41 4d 45 3a 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 74 EXPORT_FILE_NAME:.geiser-guile.t
10a60 65 78 69 0a 23 2b 54 45 58 49 4e 46 4f 5f 44 49 52 5f 43 41 54 45 47 4f 52 59 3a 20 45 6d 61 63 exi.#+TEXINFO_DIR_CATEGORY:.Emac
10a80 73 0a 23 2b 54 45 58 49 4e 46 4f 5f 44 49 52 5f 54 49 54 4c 45 3a 20 47 65 69 73 65 72 20 47 75 s.#+TEXINFO_DIR_TITLE:.Geiser.Gu
10aa0 69 6c 65 3a 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 29 2e 0a 23 2b 54 45 58 49 4e 46 4f 5f 44 ile:.(geiser-guile)..#+TEXINFO_D
10ac0 49 52 5f 44 45 53 43 3a 20 53 75 70 70 6f 72 74 20 66 6f 72 20 47 75 69 6c 65 20 69 6e 20 47 65 IR_DESC:.Support.for.Guile.in.Ge
10ae0 69 73 65 72 0a 0a 2a 20 4f 76 65 72 76 69 65 77 0a 0a 54 68 69 73 20 70 61 63 6b 61 67 65 20 70 iser..*.Overview..This.package.p
10b00 72 6f 76 69 64 65 73 20 73 75 70 70 6f 72 74 20 66 6f 72 20 75 73 69 6e 67 20 5b 5b 68 74 74 70 rovides.support.for.using.[[http
10b20 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 73 6f 66 74 77 61 72 65 2f 67 75 69 6c 65 2f 5d s://www.gnu.org/software/guile/]
10b40 5b 47 4e 55 20 47 75 69 6c 65 5d 5d 20 69 6e 20 45 6d 61 63 73 20 77 69 74 68 0a 5b 5b 68 74 74 [GNU.Guile]].in.Emacs.with.[[htt
10b60 70 3a 2f 2f 67 65 69 73 65 72 2e 6e 6f 6e 67 6e 75 2e 6f 72 67 5d 5b 47 65 69 73 65 72 5d 5d 2e p://geiser.nongnu.org][Geiser]].
10b80 0a 0a 50 72 6f 76 69 64 65 64 20 5b 5b 68 74 74 70 73 3a 2f 2f 67 69 74 6c 61 62 2e 63 6f 6d 2f ..Provided.[[https://gitlab.com/
10ba0 65 6d 61 63 73 2d 67 65 69 73 65 72 2f 67 65 69 73 65 72 5d 5b 67 65 69 73 65 72 5d 5d 20 69 73 emacs-geiser/geiser][geiser]].is
10bc0 20 69 6e 73 74 61 6c 6c 65 64 20 69 6e 20 79 6f 75 72 20 73 79 73 74 65 6d 2c 20 69 66 20 74 68 .installed.in.your.system,.if.th
10be0 69 73 20 70 61 63 6b 61 67 65 27 73 0a 64 69 72 65 63 74 6f 72 79 20 69 73 20 69 6e 20 79 6f 75 is.package's.directory.is.in.you
10c00 72 20 6c 6f 61 64 20 70 61 74 68 2c 20 6a 75 73 74 20 61 64 64 20 7e 28 72 65 71 75 69 72 65 20 r.load.path,.just.add.~(require.
10c20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 29 7e 20 74 6f 0a 79 6f 75 72 20 69 6e 69 74 69 61 6c 69 'geiser-guile)~.to.your.initiali
10c40 73 61 74 69 6f 6e 20 66 69 6c 65 73 20 61 6e 64 20 74 68 65 6e 20 7e 4d 2d 78 20 67 65 69 73 65 sation.files.and.then.~M-x.geise
10c60 72 2d 67 75 69 6c 65 7e 20 74 6f 20 73 74 61 72 74 20 61 20 52 45 50 4c 2e 0a 53 63 68 65 6d 65 r-guile~.to.start.a.REPL..Scheme
10c80 20 66 69 6c 65 73 20 77 69 74 68 20 61 20 47 75 69 6c 65 20 6d 6f 64 75 6c 65 20 64 65 63 6c 61 .files.with.a.Guile.module.decla
10ca0 72 61 74 69 6f 6e 20 73 68 6f 75 6c 64 20 62 65 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 72 ration.should.be.automatically.r
10cc0 65 63 6f 67 6e 69 73 65 64 20 61 73 20 47 75 69 6c 65 2d 66 6c 61 76 6f 75 72 65 64 20 47 65 69 ecognised.as.Guile-flavoured.Gei
10ce0 73 65 72 20 62 75 66 66 65 72 73 2e 0a 0a 54 68 65 20 65 61 73 69 65 73 74 20 77 61 79 20 6f 66 ser.buffers...The.easiest.way.of
10d00 20 69 6e 73 74 61 6c 6c 69 6e 67 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 69 73 20 75 73 69 6e .installing.this.package.is.usin
10d20 67 20 4e 6f 6e 47 4e 55 20 45 6c 70 61 20 6f 72 0a 4d 45 4c 50 41 2e 20 20 49 66 20 79 6f 75 27 g.NonGNU.Elpa.or.MELPA...If.you'
10d40 72 65 20 69 6e 20 45 6d 61 63 73 20 32 38 20 6f 72 20 68 69 67 68 65 72 2c 20 74 68 65 20 66 6f re.in.Emacs.28.or.higher,.the.fo
10d60 72 6d 65 72 20 69 73 20 61 6c 72 65 61 64 79 20 65 6e 61 62 6c 65 64 0a 61 6e 64 20 61 6c 6c 20 rmer.is.already.enabled.and.all.
10d80 79 6f 75 20 6e 65 65 64 20 69 73 20 74 68 65 20 66 61 6d 69 6c 69 61 72 0a 0a 23 2b 62 65 67 69 you.need.is.the.familiar..#+begi
10da0 6e 5f 73 72 63 20 65 6c 69 73 70 0a 20 20 4d 2d 78 20 69 6e 73 74 61 6c 6c 2d 70 61 63 6b 61 67 n_src.elisp...M-x.install-packag
10dc0 65 20 52 45 54 20 67 65 69 73 65 72 2d 67 75 69 6c 65 20 52 45 54 0a 23 2b 65 6e 64 5f 73 72 63 e.RET.geiser-guile.RET.#+end_src
10de0 0a 0a 54 68 61 74 20 77 69 6c 6c 20 61 6c 73 6f 20 69 6e 73 74 61 6c 6c 20 67 65 69 73 65 72 2c ..That.will.also.install.geiser,
10e00 20 61 6e 64 20 69 74 73 20 66 69 6e 65 20 69 6e 66 6f 20 6d 61 6e 75 61 6c 2e 20 20 50 6c 65 61 .and.its.fine.info.manual...Plea
10e20 73 65 20 72 65 66 65 72 0a 74 6f 20 69 74 20 28 6f 72 20 69 74 73 20 5b 5b 68 74 74 70 73 3a 2f se.refer.to.it.(or.its.[[https:/
10e40 2f 67 65 69 73 65 72 2e 6e 6f 6e 67 6e 75 2e 6f 72 67 5d 5b 6f 6e 6c 69 6e 65 20 76 65 72 73 69 /geiser.nongnu.org][online.versi
10e60 6f 6e 5d 5d 29 20 66 6f 72 20 61 20 67 65 6e 65 72 61 6c 20 64 65 73 63 72 69 70 74 69 6f 6e 20 on]]).for.a.general.description.
10e80 6f 66 20 68 6f 77 20 67 65 69 73 65 72 0a 73 63 68 65 6d 65 73 20 77 6f 72 6b 2e 20 20 57 65 20 of.how.geiser.schemes.work...We.
10ea0 70 72 6f 76 69 64 65 20 62 65 6c 6f 77 20 73 6f 6d 65 20 61 64 64 69 74 69 6f 6e 61 6c 20 64 65 provide.below.some.additional.de
10ec0 74 61 69 6c 73 20 73 70 65 63 69 66 69 63 20 74 6f 0a 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 0a tails.specific.to.geiser-guile..
10ee0 0a 2a 20 53 74 61 72 74 20 75 70 0a 0a 20 20 57 68 65 6e 20 6c 61 75 6e 63 68 69 6e 67 20 74 68 .*.Start.up....When.launching.th
10f00 65 20 47 75 69 6c 65 20 52 45 50 4c 2c 20 67 65 69 73 65 72 20 77 69 6c 6c 20 69 6e 76 6f 6b 65 e.Guile.REPL,.geiser.will.invoke
10f20 20 74 68 65 20 62 69 6e 61 72 79 0a 20 20 63 6f 6e 66 69 67 75 72 65 64 20 69 6e 20 7e 67 65 69 .the.binary...configured.in.~gei
10f40 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e 61 72 79 7e 20 28 73 69 6d 70 6c 79 20 22 67 75 69 6c 65 ser-guile-binary~.(simply."guile
10f60 22 20 62 79 20 64 65 66 61 75 6c 74 29 0a 20 20 77 68 69 63 68 20 69 6e 20 74 75 72 6e 20 77 69 ".by.default)...which.in.turn.wi
10f80 6c 6c 20 6c 6f 61 64 20 7e 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 7e ll.load.~geiser-guile-init-file~
10fa0 2c 20 69 66 20 61 6e 79 2e 0a 0a 20 20 4e 6f 74 65 2c 20 68 6f 77 65 76 65 72 2c 20 74 68 61 74 ,.if.any.....Note,.however,.that
10fc0 20 73 70 65 63 69 66 79 69 6e 67 20 7e 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 .specifying.~geiser-guile-init-f
10fe0 69 6c 65 7e 20 69 73 20 2f 6e 6f 74 2f 0a 20 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 63 68 ile~.is./not/...equivalent.to.ch
11000 61 6e 67 69 6e 67 20 47 75 69 6c 65 27 73 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 66 69 anging.Guile's.initialization.fi
11020 6c 65 20 28 3d 7e 2f 2e 67 75 69 6c 65 3d 29 2c 0a 20 20 62 65 63 61 75 73 65 20 74 68 65 20 66 le.(=~/.guile=),...because.the.f
11040 6f 72 6d 65 72 20 69 73 20 6c 6f 61 64 65 64 20 75 73 69 6e 67 20 74 68 65 20 3d 2d 6c 3d 20 66 ormer.is.loaded.using.the.=-l=.f
11060 6c 61 67 2c 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 3d 2d 71 3d 0a 20 20 74 6f 20 64 69 73 lag,.together.with.=-q=...to.dis
11080 61 62 6c 65 20 6c 6f 61 64 69 6e 67 20 74 68 65 20 73 65 63 6f 6e 64 2e 20 20 42 75 74 20 74 68 able.loading.the.second...But.th
110a0 65 72 65 20 61 72 65 20 73 75 62 74 6c 65 20 64 69 66 66 65 72 65 6e 63 65 73 0a 20 20 69 6e 20 ere.are.subtle.differences...in.
110c0 74 68 65 20 77 61 79 20 47 75 69 6c 65 20 6c 6f 61 64 73 20 74 68 65 20 69 6e 69 74 69 61 6c 69 the.way.Guile.loads.the.initiali
110e0 7a 61 74 69 6f 6e 20 66 69 6c 65 20 76 65 72 73 75 73 20 68 6f 77 20 69 74 20 6c 6f 61 64 73 0a zation.file.versus.how.it.loads.
11100 20 20 61 20 66 69 6c 65 20 73 70 65 63 69 66 69 65 64 20 76 69 61 20 74 68 65 20 3d 2d 6c 3d 20 ..a.file.specified.via.the.=-l=.
11120 66 6c 61 67 2e 20 20 49 66 20 77 68 61 74 20 79 6f 75 20 77 61 6e 74 20 69 73 20 6a 75 73 74 0a flag...If.what.you.want.is.just.
11140 20 20 6c 6f 61 64 69 6e 67 20 3d 7e 2f 2e 67 75 69 6c 65 3d 2c 20 6c 65 61 76 65 20 7e 67 65 69 ..loading.=~/.guile=,.leave.~gei
11160 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 7e 20 61 6c 6f 6e 65 20 61 6e 64 20 73 ser-guile-init-file~.alone.and.s
11180 65 74 0a 20 20 7e 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69 6c et...~geiser-guile-load-init-fil
111a0 65 7e 20 74 6f 20 7e 74 7e 20 69 6e 73 74 65 61 64 2e 0a 0a 20 20 4f 6e 65 20 63 61 6e 20 61 6c e~.to.~t~.instead.....One.can.al
111c0 73 6f 20 70 72 6f 76 69 64 65 20 61 20 67 6c 6f 62 61 6c 20 6c 69 73 74 20 6f 66 20 70 61 74 68 so.provide.a.global.list.of.path
111e0 73 20 74 6f 20 61 64 64 20 74 6f 20 47 75 69 6c 65 27 73 0a 20 20 3d 25 6c 6f 61 64 2d 70 61 74 s.to.add.to.Guile's...=%load-pat
11200 68 3d 20 76 69 61 20 7e 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 70 61 74 68 7e 2e h=.via.~geiser-guile-load-path~.
11220 0a 0a 2a 20 44 65 62 75 67 67 69 6e 67 20 73 75 70 70 6f 72 74 0a 0a 20 20 47 75 69 6c 65 20 73 ..*.Debugging.support....Guile.s
11240 75 70 70 6f 72 74 73 20 61 6c 6c 20 74 68 65 20 64 65 62 75 67 67 65 72 20 63 6f 6d 6d 61 6e 64 upports.all.the.debugger.command
11260 73 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 47 65 69 73 65 72 20 28 69 74 27 73 0a 20 20 69 6e s.supported.by.Geiser.(it's...in
11280 20 66 61 63 74 20 75 73 65 64 20 61 73 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 66 6f 72 20 .fact.used.as.the.reference.for.
112a0 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 6e 64 20 64 65 73 69 67 6e 20 6f 66 the.implementation.and.design.of
112c0 0a 20 20 74 68 61 74 20 73 75 70 70 6f 72 74 29 2e 20 20 57 68 65 6e 20 74 68 65 20 52 45 50 4c ...that.support)...When.the.REPL
112e0 20 77 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c 79 20 65 6e 74 65 72 20 69 74 73 20 64 65 62 75 67 20 .would.normally.enter.its.debug.
11300 6d 6f 64 65 2c 0a 20 20 77 69 74 68 20 61 20 70 72 6f 6d 70 74 20 6f 66 20 74 68 65 20 73 74 79 mode,...with.a.prompt.of.the.sty
11320 6c 65 3a 0a 0a 20 20 20 20 20 20 73 63 68 65 6d 65 40 28 67 75 69 6c 65 2d 75 73 65 72 29 20 5b le:........scheme@(guile-user).[
11340 31 5d 3e 0a 0a 20 20 73 68 6f 77 69 6e 67 20 61 20 64 65 62 75 67 67 69 6e 67 20 6c 65 76 65 6c 1]>....showing.a.debugging.level
11360 2c 20 47 65 69 73 65 72 20 77 69 6c 6c 20 69 6e 73 74 65 61 64 20 62 72 69 6e 67 20 79 6f 75 20 ,.Geiser.will.instead.bring.you.
11380 74 6f 20 74 68 65 0a 20 20 3d 2a 47 65 69 73 65 72 20 44 62 67 2a 3d 20 62 75 66 66 65 72 2c 20 to.the...=*Geiser.Dbg*=.buffer,.
113a0 77 68 65 72 65 20 79 6f 75 20 63 61 6e 20 61 63 63 65 73 73 20 61 20 6d 65 6e 75 20 6f 66 20 64 where.you.can.access.a.menu.of.d
113c0 65 62 75 67 67 69 6e 67 0a 20 20 63 6f 6d 6d 61 6e 64 73 20 76 69 61 20 74 68 65 20 7e 2c 7e 20 ebugging...commands.via.the.~,~.
113e0 28 63 6f 6d 6d 61 29 20 6b 65 79 2e 0a 0a 20 20 54 68 65 20 67 65 69 73 65 72 2d 67 75 69 6c 65 (comma).key.....The.geiser-guile
11400 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 67 72 6f 75 70 20 77 69 6c 6c 20 73 68 6f 77 20 79 .customization.group.will.show.y
11420 6f 75 2c 20 61 6d 6f 6e 67 20 6d 61 6e 79 0a 20 20 6f 74 68 65 72 2c 20 61 20 66 65 77 20 66 6c ou,.among.many...other,.a.few.fl
11440 61 67 73 20 66 69 6e 65 2d 74 75 6e 69 6e 67 20 69 6e 74 65 72 61 63 74 69 6f 6e 20 77 69 74 68 ags.fine-tuning.interaction.with
11460 20 74 68 65 20 64 65 62 75 67 67 65 72 2c 20 61 73 0a 20 20 77 65 6c 6c 20 61 73 20 74 68 69 6e .the.debugger,.as...well.as.thin
11480 67 73 20 6c 69 6b 65 20 74 68 65 20 64 65 74 61 69 6c 20 6c 65 76 65 6c 20 6f 66 20 65 72 72 6f gs.like.the.detail.level.of.erro
114a0 72 20 6d 65 73 73 61 67 65 73 20 28 65 2e 67 2e 20 76 69 61 0a 20 20 7e 67 65 69 73 65 72 2d 67 r.messages.(e.g..via...~geiser-g
114c0 75 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 7e 29 2e 0a 0a 2a 20 54 72 61 6d 70 20 73 uile-warning-level~)...*.Tramp.s
114e0 75 70 70 6f 72 74 0a 20 20 47 65 69 73 65 72 20 67 75 69 6c 65 20 63 61 6e 20 62 65 20 75 73 65 upport...Geiser.guile.can.be.use
11500 64 20 72 65 6d 6f 74 65 6c 79 20 76 69 61 20 74 72 61 6d 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 d.remotely.via.tramp.connections
11520 3a 20 74 68 65 20 52 45 50 4c 0a 20 20 70 72 6f 63 65 73 73 20 77 69 6c 6c 20 62 65 20 72 75 6e :.the.REPL...process.will.be.run
11540 20 69 6e 20 74 68 65 20 6d 61 63 68 69 6e 65 20 77 68 65 72 65 20 74 68 65 20 74 72 61 6d 70 2d .in.the.machine.where.the.tramp-
11560 61 63 63 65 73 73 65 64 20 66 69 6c 65 0a 20 20 6c 69 76 65 73 2e 20 20 49 6d 70 6c 65 6d 65 6e accessed.file...lives...Implemen
11580 74 65 64 20 62 79 20 46 65 6c 69 70 65 20 4c 65 6d 61 2e 0a 00 00 00 00 00 00 00 00 00 00 00 00 ted.by.Felipe.Lema..............
115a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
115c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
115e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
116a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
116c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
116e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
117a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
117c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
117e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
118a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
118c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
118e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
119a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
119c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
119e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
11fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
120a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
120c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
120e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
121a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
121c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
121e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
122a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
122c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
122e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
123a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
123c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
123e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
124a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
124c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
124e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
125a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
125c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
125e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
126a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
126c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
126e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
127a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
127c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
127e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
128a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
128c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
128e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
129a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
129c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
129e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
12fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
130a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
130c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
130e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
131a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
131c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
131e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
132a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
132c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
132e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
133a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
133c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
133e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
134a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
134c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
134e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
135a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
135c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
135e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
136a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
136c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
136e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
137a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
137c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
137e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
138a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
138c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
138e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
139a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
139c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
139e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
generated by cgit v1.2.3 (git 2.25.1) at 2025-11-03 23:14:38 +0000