Artifact 10868a3c96e6a326093906531246cff02125c9e5:
0000: 40 6d 61 63 72 6f 20 e3 83 ac e3 82 a4 e3 83 a4 @macro .........
0010: e3 82 92 e3 81 a9 e3 81 86 e5 ae 9f e8 a3 85 e3 ................
0020: 81 99 e3 82 8b e3 81 b9 e3 81 8d e3 81 8b 0a 0a ................
0030: 2d 20 e3 80 8c e3 83 9e e3 82 af e3 83 ad e3 83 - ..............
0040: ac e3 82 a4 e3 83 a4 e3 81 af e5 ae 9f e8 a1 8c ................
0050: e6 99 82 e3 83 ac e3 82 a4 e3 83 a4 e3 81 ae e5 ................
0060: 85 88 e3 81 ab e5 ae 9f e8 a1 8c e3 81 95 e3 82 ................
0070: 8c e3 82 8b e3 80 8d e3 81 8c 0a 2d 20 e3 80 8c ...........- ...
0080: e3 83 9e e3 82 af e3 83 ad e5 ae 9a e7 be a9 e5 ................
0090: 86 85 e3 81 a7 e5 ae 9f e8 a1 8c e6 99 82 e9 96 ................
00a0: a2 e6 95 b0 e3 82 92 ef bc 88 e6 a7 8b e6 96 87 ................
00b0: e6 9c a8 e3 81 ae e6 93 8d e4 bd 9c e3 81 ae e3 ................
00c0: 81 9f e3 82 81 e3 81 aa e3 81 a9 e3 81 ab ef bc ................
00d0: 89 e4 bd bf e3 81 88 e3 82 8b e3 81 a8 e4 be bf ................
00e0: e5 88 a9 e3 81 a7 e3 81 82 e3 82 8b e3 80 8d 0a ................
00f0: 2d 20 e3 80 8c e3 81 a8 e3 81 84 e3 81 a3 e3 81 - ..............
0100: a6 e3 80 81 e7 89 b9 e3 81 ab e9 96 a2 e6 95 b0 ................
0110: e5 86 85 e3 83 9e e3 82 af e3 83 ad e3 81 aa e3 ................
0120: 81 a9 e3 81 ab e3 81 a4 e3 81 84 e3 81 a6 e3 80 ................
0130: 81 e5 ae 9f e8 a1 8c e6 99 82 e3 81 ae e3 82 b9 ................
0140: e3 82 b3 e3 83 bc e3 83 97 e3 81 8c e5 ae 9a e3 ................
0150: 81 be e3 82 8b e3 81 ae e3 82 92 e5 be 85 e3 81 ................
0160: a3 e3 81 a6 e3 81 8b e3 82 89 0a 20 20 20 20 e6 ........... .
0170: af 8e e5 9b 9e e9 96 a2 e6 95 b0 e5 ae 9f e8 a1 ................
0180: 8c e3 81 ae e3 81 9f e3 81 b3 e3 81 ab e3 83 9e ................
0190: e3 82 af e3 83 ad e5 b1 95 e9 96 8b e3 81 97 e3 ................
01a0: 81 a6 e3 81 84 e3 82 8b e3 81 a8 e9 81 85 e3 81 ................
01b0: 84 e3 80 8d 0a 0a e3 81 96 e3 81 a3 e3 81 a8 e8 ................
01c0: aa bf e3 81 b9 e3 81 9f e7 b5 90 e6 9e 9c e3 80 ................
01d0: 82 0a e6 99 ae e6 ae b5 e3 82 b9 e3 82 b3 e3 83 ................
01e0: bc e3 83 97 e5 86 85 e3 83 9e e3 82 af e3 83 ad ................
01f0: e3 81 a8 e3 81 8b e5 85 a8 e3 81 8f e4 bd bf e3 ................
0200: 82 8f e3 81 aa e3 81 84 e3 81 ae e3 81 a7 e9 96 ................
0210: 93 e9 81 95 e3 81 a3 e3 81 a6 e3 82 8b e6 81 90 ................
0220: e3 82 8c e3 81 8c e5 a4 9a e3 80 85 e3 81 82 e3 ................
0230: 82 8b e3 81 ae e3 81 a7 e6 b3 a8 e6 84 8f e3 80 ................
0240: 82 0a 0a 43 6f 6d 6d 6f 6e 20 4c 69 73 70 0a 20 ...Common Lisp.
0250: 20 68 74 74 70 3a 2f 2f 77 77 77 2e 6c 69 73 70 http://www.lisp
0260: 77 6f 72 6b 73 2e 63 6f 6d 2f 64 6f 63 75 6d 65 works.com/docume
0270: 6e 74 61 74 69 6f 6e 2f 48 79 70 65 72 53 70 65 ntation/HyperSpe
0280: 63 2f 42 6f 64 79 2f 6d 5f 64 65 66 6d 61 63 2e c/Body/m_defmac.
0290: 68 74 6d 0a 20 20 68 74 74 70 3a 2f 2f 77 77 77 htm. http://www
02a0: 2e 6c 69 73 70 77 6f 72 6b 73 2e 63 6f 6d 2f 64 .lispworks.com/d
02b0: 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2f 48 79 70 ocumentation/Hyp
02c0: 65 72 53 70 65 63 2f 42 6f 64 79 2f 30 33 5f 61 erSpec/Body/03_a
02d0: 62 61 61 2e 68 74 6d 0a 0a 20 20 2d 20 e3 83 88 baa.htm.. - ...
02e0: e3 83 83 e3 83 97 e3 83 ac e3 83 99 e3 83 ab e3 ................
02f0: 81 ae 20 64 65 66 6d 61 63 72 6f 20 e3 81 ae 20 .. defmacro ...
0300: 62 6f 64 79 20 e3 81 af 20 63 6f 6d 70 69 6c 65 body ... compile
0310: 20 e6 99 82 e3 81 ab e5 ae 9f e8 a1 8c e3 81 a7 ...............
0320: e3 81 8d e3 81 aa e3 81 8f e3 81 a6 e3 81 af e3 ................
0330: 81 84 e3 81 91 e3 81 aa e3 81 84 0a 20 20 2d 20 ............ -
0340: e3 83 88 e3 83 83 e3 83 97 e3 83 ac e3 83 99 e3 ................
0350: 83 ab 20 64 65 66 6d 61 63 72 6f 20 e3 81 ae e5 .. defmacro ....
0360: 87 ba e7 8f be e4 bb a5 e9 99 8d e3 81 ae e5 bc ................
0370: 8f e3 81 af e5 85 a8 e3 81 a6 e4 b8 80 e5 ba a6 ................
0380: e3 81 ab 20 63 6f 6d 70 69 6c 65 20 e6 99 82 e5 ... compile ....
0390: b1 95 e9 96 8b e3 81 95 e3 82 8c e3 82 8b 20 28 .............. (
03a0: 6d 75 73 74 3f 29 0a 20 20 2d 20 28 65 76 61 6c must?). - (eval
03b0: 2d 77 68 65 6e 20 28 3a 63 6f 6d 70 69 6c 65 29 -when (:compile)
03c0: 20 28 72 65 71 75 69 72 65 20 2e 2e 2e 29 29 20 (require ...))
03d0: e7 9a 84 e3 81 aa e3 81 8b e3 82 93 e3 81 98 e3 ................
03e0: 81 ae e6 8c 87 e5 ae 9a e3 82 92 e3 81 99 e3 82 ................
03f0: 8b e3 81 93 e3 81 a8 e3 81 a7 0a 20 20 20 20 e3 ........... .
0400: 82 b3 e3 83 b3 e3 83 91 e3 82 a4 e3 83 ab e6 99 ................
0410: 82 e3 81 ab e3 83 a9 e3 82 a4 e3 83 96 e3 83 a9 ................
0420: e3 83 aa e9 96 a2 e6 95 b0 e3 82 92 69 6d 70 6f ............impo
0430: 72 74 e7 ad 89 e3 81 af e3 81 a7 e3 81 8d e3 82 rt..............
0440: 8b e3 81 ae e3 81 a7 e3 80 81 e3 81 9d e3 82 8c ................
0450: e3 81 a7 e3 81 be e3 81 82 e5 ae 9f e8 a1 8c e6 ................
0460: 99 82 e9 96 93 e6 95 b0 e3 82 82 e3 82 8f e3 82 ................
0470: 8a e3 81 a8 0a 20 20 20 20 e3 82 b3 e3 83 b3 e3 ..... .......
0480: 83 91 e3 82 a4 e3 83 ab e6 99 82 e3 81 ab e3 82 ................
0490: 82 e4 bd bf e3 81 88 e3 82 8b 0a 0a 20 20 2d 20 ............ -
04a0: 6c 65 78 69 63 61 6c 20 73 63 6f 70 65 20 e5 86 lexical scope ..
04b0: 85 e3 81 a7 e3 81 ae 20 64 65 66 6d 61 63 72 6f ....... defmacro
04c0: 20 e3 81 af e7 92 b0 e5 a2 83 e3 82 82 e6 99 ae ...............
04d0: e9 80 9a e3 81 ab e3 82 ad e3 83 a3 e3 83 97 e3 ................
04e0: 83 81 e3 83 a3 e3 81 a7 e3 81 8d e3 82 8b e3 81 ................
04f0: 97 e6 99 ae e9 80 9a e3 81 ab 22 e5 ae 9f e8 a1 ..........".....
0500: 8c e6 99 82 22 e3 81 ab e5 b1 95 e9 96 8b e3 81 ...."...........
0510: 95 e3 82 8c e3 82 8b e3 80 82 0a 20 20 20 20 e3 ........... .
0520: 81 99 e3 81 aa e3 82 8f e3 81 a1 e9 96 a2 e6 95 ................
0530: b0 e6 9c ac e4 bd 93 e3 81 ae e5 ae 9f e8 a1 8c ................
0540: e3 81 af e3 80 81 e3 81 a8 e3 81 84 e3 81 86 e3 ................
0550: 81 8b e6 9b b8 e3 81 8f e5 bc 8f 20 22 66 6f 72 ........... "for
0560: 6d 22 20 e3 81 ae e3 80 81 65 76 61 6c 20 e3 81 m" ......eval ..
0570: af e3 81 be e3 81 9a 20 6d 61 63 72 6f 20 e3 81 ....... macro ..
0580: aa e3 82 89 e5 b1 95 e9 96 8b e3 81 97 e3 81 a6 ................
0590: e3 81 8b e3 82 89 0a e3 80 80 20 20 65 76 61 6c .......... eval
05a0: e3 80 81 e3 81 a8 e3 81 84 e3 81 86 e3 82 b9 e3 ................
05b0: 83 86 e3 83 83 e3 83 97 e3 82 92 e8 b8 8f e3 82 ................
05c0: 80 0a 0a 20 20 e3 81 9f e3 81 84 e3 81 a6 e3 81 ... ...........
05d0: 84 e3 81 ae e3 80 8c e3 82 b3 e3 83 b3 e3 83 91 ................
05e0: e3 82 a4 e3 83 ab e3 81 a7 e3 81 8d e3 82 8b e3 ................
05f0: 80 8d e6 99 ae e9 80 9a e3 81 ae e3 83 9e e3 82 ................
0600: af e3 83 ad e3 81 af e9 80 9f e3 81 8f e5 87 a6 ................
0610: e7 90 86 e3 81 a7 e3 81 8d e3 81 a6 e3 80 81 0a ................
0620: e3 80 80 e5 ae 9f e8 a1 8c e6 99 82 e7 92 b0 e5 ................
0630: a2 83 e3 82 ad e3 83 a3 e3 83 97 e3 83 81 e3 83 ................
0640: a3 e3 81 99 e3 82 8b e3 82 88 e3 81 86 e3 81 aa ................
0650: e3 81 93 e3 81 a8 e3 82 82 e3 81 97 e3 81 9f e3 ................
0660: 81 91 e3 82 8c e3 81 b0 e8 87 aa e7 94 b1 e3 81 ................
0670: ab e5 87 ba e6 9d a5 e3 82 8b e3 81 91 e3 81 a9 ................
0680: e9 81 85 e3 81 8f e3 81 a6 e3 81 84 e3 81 84 e3 ................
0690: 82 84 e3 81 a8 e3 81 84 e3 81 86 e6 84 9f e3 81 ................
06a0: 98 e3 81 8b e3 80 82 0a 0a 0a 52 36 52 53 0a 20 ..........R6RS.
06b0: 20 68 74 74 70 3a 2f 2f 70 72 61 63 74 69 63 61 http://practica
06c0: 6c 2d 73 63 68 65 6d 65 2e 6e 65 74 2f 77 69 6c l-scheme.net/wil
06d0: 69 6b 69 2f 77 69 6c 69 6b 69 2e 63 67 69 3f 52 iki/wiliki.cgi?R
06e0: 36 52 53 25 33 61 25 45 37 25 42 46 25 42 42 25 6RS%3a%E7%BF%BB%
06f0: 45 38 25 41 38 25 42 33 25 33 61 52 36 52 53 25 E8%A8%B3%3aR6RS%
0700: 33 61 31 30 25 32 30 45 78 70 61 6e 73 69 6f 6e 3a10%20Expansion
0710: 25 32 30 70 72 6f 63 65 73 73 0a 0a e3 80 80 e5 %20process......
0720: 85 a8 e9 83 a8 e3 82 b3 e3 83 b3 e3 83 91 e3 82 ................
0730: a4 e3 83 ab e6 99 82 e3 81 ab e3 82 84 e3 82 8b ................
0740: e3 80 82 0a e3 80 80 e5 ae 9f e8 a1 8c e6 99 82 ................
0750: e6 9d 9f e7 b8 9b 20 28 64 65 66 69 6e 65 20 e3 ...... (define .
0760: 82 84 20 28 6c 65 74 20 e3 82 84 20 28 6c 61 6d .. (let ... (lam
0770: 62 64 61 20 e3 81 af e3 80 81 68 79 67 65 6e 69 bda ......hygeni
0780: 63 20 e6 80 a7 e3 81 ae e3 81 9f e3 82 81 e3 81 c ..............
0790: ab e5 a4 89 e6 95 b0 e6 9d 9f e7 b8 9b e3 81 a7 ................
07a0: e3 81 82 e3 82 8b e3 81 93 e3 81 a8 e3 81 af e8 ................
07b0: a8 98 e9 8c b2 e3 81 95 e3 82 8c e3 82 8b e3 81 ................
07c0: 97 e3 80 81 0a e3 80 80 e3 81 82 e3 81 a8 e5 be ................
07d0: ae e5 a6 99 e3 81 ab e3 83 9e e3 82 af e3 83 ad ................
07e0: e5 b1 95 e9 96 8b e3 81 ae e8 a9 95 e4 be a1 e9 ................
07f0: a0 86 e5 ba 8f e3 82 82 e5 a4 89 e3 81 88 e3 82 ................
0800: 8b e3 81 91 e3 81 a9 e3 80 81 e5 9f ba e6 9c ac ................
0810: e7 9a 84 e3 81 ab e3 81 af e3 83 9e e3 82 af e3 ................
0820: 83 ad e5 b1 95 e9 96 8b e5 99 a8 e3 81 af e3 81 ................
0830: 93 e3 81 ae e8 be ba e3 81 ae 20 73 70 65 63 69 .......... speci
0840: 61 6c 20 66 6f 72 6d 20 e3 82 92 e7 b4 a0 e9 80 al form ........
0850: 9a e3 82 8a e3 81 97 e3 81 a6 0a e3 80 80 e3 81 ................
0860: 84 e3 81 8d e3 81 aa e3 82 8a e3 82 b3 e3 83 b3 ................
0870: e3 83 91 e3 82 a4 e3 83 ab e6 99 82 e3 81 ab e4 ................
0880: b8 ad e3 81 be e3 81 a7 e5 b1 95 e9 96 8b e3 82 ................
0890: 92 e3 81 8b e3 81 91 e3 82 8b e3 80 82 e4 bb a5 ................
08a0: e9 99 8d e3 80 81 e5 ae 9f e8 a1 8c e6 99 82 e3 ................
08b0: 81 af e3 81 be e3 81 a3 e3 81 9f e3 81 8f e5 b1 ................
08c0: 95 e9 96 8b e3 81 af e8 b5 b7 e3 81 8d e3 81 aa ................
08d0: e3 81 84 e3 80 82 0a 0a e3 80 80 2d 20 6c 65 78 ...........- lex
08e0: 69 63 61 6c 20 73 63 6f 70 65 20 e3 81 ae e3 82 ical scope .....
08f0: ad e3 83 a3 e3 83 97 e3 83 81 e3 83 a3 e3 81 af ................
0900: ef bc 9f 0a e3 80 80 20 20 73 70 65 63 20 e3 81 ....... spec ..
0910: a7 e3 81 af e3 81 a9 e3 81 86 e3 81 84 e3 81 86 ................
0920: e6 89 b1 e3 81 84 e3 81 aa e3 81 ae e3 81 8b e3 ................
0930: 81 84 e3 81 be e3 81 84 e3 81 a1 e3 82 88 e3 81 ................
0940: 8f e3 82 8f e3 81 8b e3 82 89 e3 81 aa e3 81 84 ................
0950: e3 80 82 0a e3 80 80 e3 80 80 2d 20 47 61 75 63 ..........- Gauc
0960: 68 65 20 e3 81 af e3 82 b3 e3 83 b3 e3 83 91 e3 he .............
0970: 82 a4 e3 83 ab e6 99 82 e3 81 ab e8 a7 a3 e6 b1 ................
0980: ba e3 81 95 e3 82 8c e3 82 8b e3 82 82 e3 81 ae ................
0990: e3 81 a0 e3 81 91 e3 81 af e8 a7 a3 e6 b1 ba e3 ................
09a0: 81 97 e3 81 a6 e3 81 8f e3 82 8c e3 81 9f e3 80 ................
09b0: 82 0a e3 80 80 e3 80 80 e3 80 80 e3 80 80 28 6c ..............(l
09c0: 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 ambda (x).
09d0: 20 20 20 20 20 20 2e 2e 2e 20 28 6c 65 74 2d 73 ... (let-s
09e0: 79 6e 74 61 78 20 2e 2e 2e 20 78 20 2e 2e 2e 29 yntax ... x ...)
09f0: 20 2e 2e 2e 0a 20 20 20 20 20 20 e3 81 93 e3 81 .... .....
0a00: ae 20 78 20 e3 81 af 20 73 74 72 61 79 20 6c 6f . x ... stray lo
0a10: 63 61 6c 20 76 61 72 69 61 62 6c 65 20 e3 82 a8 cal variable ...
0a20: e3 83 a9 e3 83 bc e3 81 ab e3 81 aa e3 82 8b e3 ................
0a30: 81 91 e3 81 a9 0a e3 80 80 e3 80 80 e3 80 80 e3 ................
0a40: 80 80 28 6c 65 74 20 28 28 78 20 31 29 29 0a 20 ..(let ((x 1)).
0a50: 20 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 20 28 ... (
0a60: 6c 65 74 2d 73 79 6e 74 61 78 20 2e 2e 2e 20 78 let-syntax ... x
0a70: 20 2e 2e 2e 29 20 2e 2e 2e 0a 20 20 20 20 20 20 ...) ....
0a80: e3 81 af e8 a1 8c e3 81 91 e3 82 8b 0a 0a e3 80 ................
0a90: 80 e7 8f be e5 ae 9f e7 9a 84 e3 81 a7 e5 a6 a5 ................
0aa0: e5 bd 93 e3 81 a0 e3 81 a8 e6 80 9d e3 81 86 e3 ................
0ab0: 81 91 e3 81 a9 e3 82 b9 e3 82 b3 e3 83 bc e3 83 ................
0ac0: 97 e3 81 ae e6 a6 82 e5 bf b5 e3 81 8c e9 8c af ................
0ad0: e7 b6 9c e3 81 97 e3 81 a6 e3 81 84 e3 82 8b e6 ................
0ae0: 84 9f e3 81 8c e5 88 9d e8 a6 8b e3 81 a7 e3 81 ................
0af0: af e3 81 97 e3 81 a6 0a e3 80 80 ef bc 88 e3 81 ................
0b00: a8 e3 81 84 e3 81 a3 e3 81 a6 e3 82 82 e6 b7 b1 ................
0b10: e3 81 8f e8 80 83 e3 81 88 e3 82 8b e3 81 a8 e3 ................
0b20: 81 9d e3 81 86 e3 81 a7 e3 82 82 e3 81 aa e3 81 ................
0b30: 84 e3 82 88 e3 81 86 e3 81 ab e6 80 9d e3 81 88 ................
0b40: e3 81 a6 e3 81 8f e3 82 8b e3 81 91 e3 81 a9 ef ................
0b50: bc 89 e3 81 99 e3 81 93 e3 81 97 e6 85 a3 e3 82 ................
0b60: 8c e3 81 ab e3 81 8f e3 81 84 e3 81 8b e3 82 82 ................
0b70: 0a .