/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / modes / cl-indent.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 35 38 3a 32 34 20 |Feb  1 1|8:58:24 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 6d 6f 64 | 65 73 2f 63 6c 2d 69 6e |lisp/mod|es/cl-in|
|00000080| 64 65 6e 74 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |dent.el.|;;; emac|
|00000090| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 34 2e 31 |s versio|n 19.4.1|
|000000a0| 33 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |3 Lucid.|.;;; byt|
|000000b0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000c0| 31 30 3b 20 20 31 2d 66 | 65 62 2d 39 33 2e 0a 3b |10;  1-f|eb-93..;|
|000000d0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|000000e0| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|000000f0| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000100| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000110| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 31 38 2e |xist in |Emacs18.|
|00000120| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000130| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000140| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000150| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000160| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000170| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000180| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000190| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|000001a0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 54 68 69 |.    (er|ror "Thi|
|000001b0| 73 20 66 69 6c 65 20 77 | 61 73 20 63 6f 6d 70 69 |s file w|as compi|
|000001c0| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 31 39 2e |led for |Emacs19.|
|000001d0| 22 29 29 0a 0a 28 64 65 | 66 76 61 72 20 6c 69 73 |"))..(de|fvar lis|
|000001e0| 70 2d 69 6e 64 65 6e 74 | 2d 6d 61 78 69 6d 75 6d |p-indent|-maximum|
|000001f0| 2d 62 61 63 6b 74 72 61 | 63 6b 69 6e 67 20 33 20 |-backtra|cking 3 |
|00000200| 22 5c 0a 2a 4d 61 78 69 | 6d 75 6d 20 64 65 70 74 |"\.*Maxi|mum dept|
|00000210| 68 20 74 6f 20 62 61 63 | 6b 74 72 61 63 6b 20 6f |h to bac|ktrack o|
|00000220| 75 74 20 66 72 6f 6d 20 | 61 20 73 75 62 6c 69 73 |ut from |a sublis|
|00000230| 74 20 66 6f 72 20 73 74 | 72 75 63 74 75 72 65 64 |t for st|ructured|
|00000240| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 2e 0a 49 66 | indenta|tion..If|
|00000250| 20 74 68 69 73 20 76 61 | 72 69 61 62 6c 65 20 69 | this va|riable i|
|00000260| 73 20 20 30 2c 20 6e 6f | 20 62 61 63 6b 74 72 61 |s  0, no| backtra|
|00000270| 63 6b 69 6e 67 20 77 69 | 6c 6c 20 6f 63 63 75 72 |cking wi|ll occur|
|00000280| 20 61 6e 64 20 66 6f 72 | 6d 73 20 73 75 63 68 20 | and for|ms such |
|00000290| 61 73 20 20 66 6c 65 74 | 0a 6d 61 79 20 6e 6f 74 |as  flet|.may not|
|000002a0| 20 62 65 20 63 6f 72 72 | 65 63 74 6c 79 20 69 6e | be corr|ectly in|
|000002b0| 64 65 6e 74 65 64 2e 22 | 29 0a 28 64 65 66 76 61 |dented."|).(defva|
|000002c0| 72 20 6c 69 73 70 2d 74 | 61 67 2d 69 6e 64 65 6e |r lisp-t|ag-inden|
|000002d0| 74 61 74 69 6f 6e 20 31 | 20 22 5c 0a 2a 49 6e 64 |tation 1| "\.*Ind|
|000002e0| 65 6e 74 61 74 69 6f 6e | 20 6f 66 20 74 61 67 73 |entation| of tags|
|000002f0| 20 72 65 6c 61 74 69 76 | 65 20 74 6f 20 63 6f 6e | relativ|e to con|
|00000300| 74 61 69 6e 69 6e 67 20 | 6c 69 73 74 2e 0a 54 68 |taining |list..Th|
|00000310| 69 73 20 76 61 72 69 61 | 62 6c 65 20 69 73 20 75 |is varia|ble is u|
|00000320| 73 65 64 20 62 79 20 74 | 68 65 20 66 75 6e 63 74 |sed by t|he funct|
|00000330| 69 6f 6e 20 20 6c 69 73 | 70 2d 69 6e 64 65 6e 74 |ion  lis|p-indent|
|00000340| 2d 74 61 67 62 6f 64 79 | 2e 22 29 0a 28 64 65 66 |-tagbody|.").(def|
|00000350| 76 61 72 20 6c 69 73 70 | 2d 74 61 67 2d 62 6f 64 |var lisp|-tag-bod|
|00000360| 79 2d 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 33 20 |y-indent|ation 3 |
|00000370| 22 5c 0a 2a 49 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |"\.*Inde|ntation |
|00000380| 6f 66 20 6e 6f 6e 2d 74 | 61 67 67 65 64 20 6c 69 |of non-t|agged li|
|00000390| 6e 65 73 20 72 65 6c 61 | 74 69 76 65 20 74 6f 20 |nes rela|tive to |
|000003a0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 6c 69 73 74 2e |containi|ng list.|
|000003b0| 0a 54 68 69 73 20 76 61 | 72 69 61 62 6c 65 20 69 |.This va|riable i|
|000003c0| 73 20 75 73 65 64 20 62 | 79 20 74 68 65 20 66 75 |s used b|y the fu|
|000003d0| 6e 63 74 69 6f 6e 20 20 | 6c 69 73 70 2d 69 6e 64 |nction  |lisp-ind|
|000003e0| 65 6e 74 2d 74 61 67 62 | 6f 64 79 20 20 74 6f 20 |ent-tagb|ody  to |
|000003f0| 69 6e 64 65 6e 74 20 6e | 6f 72 6d 61 6c 0a 6c 69 |indent n|ormal.li|
|00000400| 6e 65 73 20 28 6c 69 6e | 65 73 20 77 69 74 68 6f |nes (lin|es witho|
|00000410| 75 74 20 74 61 67 73 29 | 2e 0a 54 68 65 20 69 6e |ut tags)|..The in|
|00000420| 64 65 6e 74 61 74 69 6f | 6e 20 69 73 20 72 65 6c |dentatio|n is rel|
|00000430| 61 74 69 76 65 20 74 6f | 20 74 68 65 20 69 6e 64 |ative to| the ind|
|00000440| 65 6e 74 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |entation| of the |
|00000450| 70 61 72 65 6e 74 68 65 | 73 69 73 20 65 6e 63 6c |parenthe|sis encl|
|00000460| 6f 73 69 6e 67 0a 68 65 | 20 73 70 65 63 69 61 6c |osing.he| special|
|00000470| 20 66 6f 72 6d 2e 20 20 | 49 66 20 74 68 65 20 76 | form.  |If the v|
|00000480| 61 6c 75 65 20 69 73 20 | 20 74 2c 20 74 68 65 20 |alue is | t, the |
|00000490| 62 6f 64 79 20 6f 66 20 | 74 61 67 73 20 77 69 6c |body of |tags wil|
|000004a0| 6c 20 62 65 20 69 6e 64 | 65 6e 74 65 64 0a 61 73 |l be ind|ented.as|
|000004b0| 20 61 20 62 6c 6f 63 6b | 20 61 74 20 74 68 65 20 | a block| at the |
|000004c0| 73 61 6d 65 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e |same ind|entation|
|000004d0| 20 61 73 20 74 68 65 20 | 66 69 72 73 74 20 73 2d | as the |first s-|
|000004e0| 65 78 70 72 65 73 73 69 | 6f 6e 20 66 6f 6c 6c 6f |expressi|on follo|
|000004f0| 77 69 6e 67 0a 74 68 65 | 20 74 61 67 2e 20 20 49 |wing.the| tag.  I|
|00000500| 6e 20 74 68 69 73 20 63 | 61 73 65 2c 20 61 6e 79 |n this c|ase, any|
|00000510| 20 66 6f 72 6d 73 20 62 | 65 66 6f 72 65 20 74 68 | forms b|efore th|
|00000520| 65 20 66 69 72 73 74 20 | 74 61 67 20 61 72 65 20 |e first |tag are |
|00000530| 69 6e 64 65 6e 74 65 64 | 0a 62 79 20 6c 69 73 70 |indented|.by lisp|
|00000540| 2d 62 6f 64 79 2d 69 6e | 64 65 6e 74 2e 22 29 0a |-body-in|dent.").|
|00000550| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4d 88 |(byte-co|de "..M.|
|00000560| c2 c3 4d 88 c4 c5 4d 88 | c6 c7 4d 88 c8 c9 4d 88 |..M...M.|..M...M.|
|00000570| ca cb 4d 88 cc 1e 0d ce | 0e 0d 40 40 c0 0e 0d 40 |..M.....|..@@...@|
|00000580| 41 39 ab 88 0e 0d 40 41 | c0 4e aa 85 0e 0d 40 41 |A9....@A|.N....@A|
|00000590| 40 23 88 0e 0d 41 89 16 | 0d ac 5c 5c 29 c0 87 22 |@#...A..|..\\).."|
|000005a0| 20 5b 63 6f 6d 6d 6f 6e | 2d 6c 69 73 70 2d 69 6e | [common|-lisp-in|
|000005b0| 64 65 6e 74 2d 66 75 6e | 63 74 69 6f 6e 20 23 5b |dent-fun|ction #[|
|000005c0| 28 69 6e 64 65 6e 74 2d | 70 6f 69 6e 74 20 73 74 |(indent-|point st|
|000005d0| 61 74 65 29 20 22 69 18 | c1 c2 89 0b 0c c5 9c c2 |ate) "i.|........|
|000005e0| 1e 06 1e 07 1e 08 1e 09 | 1e 5c 6e 1e 0b 0e 07 62 |........|.\n....b|
|000005f0| 88 69 16 06 0e 09 84 87 | 01 0e 0b 0e 0c 57 83 87 |.i......|.....W..|
|00000600| 01 60 1e 0d c5 75 88 ce | 60 0b c5 cf 24 88 c2 89 |.`...u..|`...$...|
|00000610| 89 1e 10 1e 11 1e 12 d3 | d4 21 ac 88 c2 16 11 c2 |........|.!......|
|00000620| 16 10 aa c4 60 16 12 d5 | c5 21 88 0e 12 60 7b 97 |....`...|.!...`{.|
|00000630| 16 11 0e 12 62 88 d6 0e | 11 21 89 16 12 d7 4e 89 |....b...|.!....N.|
|00000640| 16 10 ac 9a d8 d9 0e 11 | 5c 22 ab 93 0e 11 c1 94 |........|\"......|
|00000650| 54 c2 4f 16 11 d6 0e 11 | 21 d7 4e 16 10 aa 8a 0e |T.O.....|!.N.....|
|00000660| 10 ac 86 0e 12 da 4e 16 | 10 c1 1e 1b 60 0b 57 ab |......N.|....`.W.|
|00000670| 86 c2 dc dd 8f ac 7a 0e | 1b 0e 5c 6e 42 16 5c 6e |......z.|..\nB.\n|
|00000680| 29 0e 11 ab a8 0e 10 ac | 9b 0e 5c 6e 41 ac 9f d8 |).......|..\nA...|
|00000690| de 0e 11 5c 22 ab 83 df | aa 88 d8 e0 0e 11 5c 22 |...\"...|......\"|
|000006a0| ad 81 e1 16 10 aa 89 0e | 10 e2 3d ab 83 e3 16 10 |........|..=.....|
|000006b0| 0e 0d 53 66 e4 3e ab 91 | 0e 0d e5 5a 66 e6 3d ac |..Sf.>..|...Zf.=.|
|000006c0| 88 0e 06 54 16 09 82 71 | 01 0e 0d 53 66 e7 3d ac |...T...q|...Sf.=.|
|000006d0| 91 0e 0d 53 66 e8 3d ab | 8e 0e 0d e5 5a 66 e7 3d |...Sf.=.|....Zf.=|
|000006e0| ab 85 08 16 09 aa e7 0e | 0d 53 66 e6 3d ab 87 0e |........|.Sf.=...|
|000006f0| 06 54 16 09 aa d8 0e 10 | ab d4 0e 10 a8 ab ae 0e |.T......|........|
|00000700| 5c 6e 41 ab 83 08 aa a2 | 0e 5c 6e 40 0e 10 58 ab |\nA.....|.\n@..X.|
|00000710| 89 0e 06 e9 5c 5c 0e 07 | 44 aa 91 0e 5c 6e 40 0e |....\\..|D...\n@.|
|00000720| 10 54 55 ab 87 0e 06 0e | 2a 5c 5c aa 81 08 16 09 |.TU.....|*\\.....|
|00000730| aa a1 0e 10 39 ab 8e 0e | 10 0e 5c 6e 0c 0b 0e 06 |....9...|..\n....|
|00000740| 08 25 16 09 aa 8e eb 0e | 10 0e 5c 6e 0c 0b 0e 06 |.%......|..\n....|
|00000750| 08 26 06 16 09 2b 0e 0d | 62 88 0e 0d 16 08 0e 09 |.&...+..|b.......|
|00000760| ac 85 c2 ec ed 8f 88 29 | 82 1d 00 0e 09 2e 07 87 |.......)|........|
|00000770| 22 20 5b 6e 6f 72 6d 61 | 6c 2d 69 6e 64 65 6e 74 |" [norma|l-indent|
|00000780| 20 30 20 6e 69 6c 20 69 | 6e 64 65 6e 74 2d 70 6f | 0 nil i|ndent-po|
|00000790| 69 6e 74 20 73 74 61 74 | 65 20 31 20 73 65 78 70 |int stat|e 1 sexp|
|000007a0| 2d 63 6f 6c 75 6d 6e 20 | 63 6f 6e 74 61 69 6e 69 |-column |containi|
|000007b0| 6e 67 2d 66 6f 72 6d 2d | 73 74 61 72 74 20 6c 61 |ng-form-|start la|
|000007c0| 73 74 2d 70 6f 69 6e 74 | 20 63 61 6c 63 75 6c 61 |st-point| calcula|
|000007d0| 74 65 64 20 70 61 74 68 | 20 64 65 70 74 68 20 6c |ted path| depth l|
|000007e0| 69 73 70 2d 69 6e 64 65 | 6e 74 2d 6d 61 78 69 6d |isp-inde|nt-maxim|
|000007f0| 75 6d 2d 62 61 63 6b 74 | 72 61 63 6b 69 6e 67 20 |um-backt|racking |
|00000800| 63 6f 6e 74 61 69 6e 69 | 6e 67 2d 73 65 78 70 20 |containi|ng-sexp |
|00000810| 70 61 72 73 65 2d 70 61 | 72 74 69 61 6c 2d 73 65 |parse-pa|rtial-se|
|00000820| 78 70 20 74 20 6d 65 74 | 68 6f 64 20 66 75 6e 63 |xp t met|hod func|
|00000830| 74 69 6f 6e 20 74 65 6d | 20 6c 6f 6f 6b 69 6e 67 |tion tem| looking|
|00000840| 2d 61 74 20 22 5c 5c 73 | 77 5c 5c 7c 5c 5c 73 5f |-at "\\s|w\\|\\s_|
|00000850| 22 20 66 6f 72 77 61 72 | 64 2d 73 65 78 70 20 69 |" forwar|d-sexp i|
|00000860| 6e 74 65 72 6e 2d 73 6f | 66 74 20 63 6f 6d 6d 6f |ntern-so|ft commo|
|00000870| 6e 2d 6c 69 73 70 2d 69 | 6e 64 65 6e 74 2d 66 75 |n-lisp-i|ndent-fu|
|00000880| 6e 63 74 69 6f 6e 20 73 | 74 72 69 6e 67 2d 6d 61 |nction s|tring-ma|
|00000890| 74 63 68 20 22 3a 5b 5e | 3a 5d 2b 22 20 6c 69 73 |tch ":[^|:]+" lis|
|000008a0| 70 2d 69 6e 64 65 6e 74 | 2d 66 75 6e 63 74 69 6f |p-indent|-functio|
|000008b0| 6e 20 6e 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |n n (byt|e-code "|
|000008c0| c0 c1 21 88 60 5c 6e 59 | 3f ad 8b c3 60 5c 6e c1 |..!.`\nY|?...`\n.|
|000008d0| c4 24 88 0d 54 15 c4 87 | 22 20 5b 66 6f 72 77 61 |.$..T...|" [forwa|
|000008e0| 72 64 2d 73 65 78 70 20 | 31 20 69 6e 64 65 6e 74 |rd-sexp |1 indent|
|000008f0| 2d 70 6f 69 6e 74 20 70 | 61 72 73 65 2d 70 61 72 |-point p|arse-par|
|00000900| 74 69 61 6c 2d 73 65 78 | 70 20 74 20 6e 5d 20 35 |tial-sex|p t n] 5|
|00000910| 29 20 28 28 65 72 72 6f | 72 29 29 20 22 5c 5c 60 |) ((erro|r)) "\\`|
|00000920| 64 65 66 22 20 28 34 20 | 28 26 77 68 6f 6c 65 20 |def" (4 |(&whole |
|00000930| 34 20 26 72 65 73 74 20 | 31 29 20 26 62 6f 64 79 |4 &rest |1) &body|
|00000940| 29 20 22 5c 5c 60 5c 5c | 28 77 69 74 68 5c 5c 7c |) "\\`\\|(with\\||
|00000950| 64 6f 5c 5c 29 2d 22 20 | 28 34 20 26 62 6f 64 79 |do\\)-" |(4 &body|
|00000960| 29 20 64 65 66 75 6e 20 | 28 34 20 28 26 77 68 6f |) defun |(4 (&who|
|00000970| 6c 65 20 34 20 26 72 65 | 73 74 20 31 29 20 26 62 |le 4 &re|st 1) &b|
|00000980| 6f 64 79 29 20 28 33 39 | 20 39 36 29 20 32 20 33 |ody) (39| 96) 2 3|
|00000990| 35 20 34 34 20 36 34 20 | 34 20 6c 69 73 70 2d 62 |5 44 64 |4 lisp-b|
|000009a0| 6f 64 79 2d 69 6e 64 65 | 6e 74 20 6c 69 73 70 2d |ody-inde|nt lisp-|
|000009b0| 69 6e 64 65 6e 74 2d 32 | 35 39 20 28 62 79 74 65 |indent-2|59 (byte|
|000009c0| 2d 63 6f 64 65 20 22 c0 | c1 21 88 5c 6e 54 12 c0 |-code ".|.!.\nT..|
|000009d0| 87 22 20 5b 62 61 63 6b | 77 61 72 64 2d 75 70 2d |." [back|ward-up-|
|000009e0| 6c 69 73 74 20 31 20 64 | 65 70 74 68 5d 20 32 29 |list 1 d|epth] 2)|
|000009f0| 20 28 28 65 72 72 6f 72 | 20 28 62 79 74 65 2d 63 | ((error| (byte-c|
|00000a00| 6f 64 65 20 22 08 11 c2 | 87 22 20 5b 6c 69 73 70 |ode "...|." [lisp|
|00000a10| 2d 69 6e 64 65 6e 74 2d | 6d 61 78 69 6d 75 6d 2d |-indent-|maximum-|
|00000a20| 62 61 63 6b 74 72 61 63 | 6b 69 6e 67 20 64 65 70 |backtrac|king dep|
|00000a30| 74 68 20 6e 69 6c 5d 20 | 31 29 29 29 5d 20 38 5d |th nil] |1)))] 8]|
|00000a40| 20 6c 69 73 70 2d 69 6e | 64 65 6e 74 2d 72 65 70 | lisp-in|dent-rep|
|00000a50| 6f 72 74 2d 62 61 64 2d | 66 6f 72 6d 61 74 20 23 |ort-bad-|format #|
|00000a60| 5b 28 6d 29 20 22 c0 c1 | 5c 6e c3 0c 24 87 22 20 |[(m) "..|\n..$." |
|00000a70| 5b 65 72 72 6f 72 20 22 | 25 73 20 68 61 73 20 61 |[error "|%s has a|
|00000a80| 20 62 61 64 6c 79 2d 66 | 6f 72 6d 65 64 20 25 73 | badly-f|ormed %s|
|00000a90| 20 70 72 6f 70 65 72 74 | 79 3a 20 25 73 22 20 66 | propert|y: %s" f|
|00000aa0| 75 6e 63 74 69 6f 6e 20 | 63 6f 6d 6d 6f 6e 2d 6c |unction |common-l|
|00000ab0| 69 73 70 2d 69 6e 64 65 | 6e 74 2d 66 75 6e 63 74 |isp-inde|nt-funct|
|00000ac0| 69 6f 6e 20 6d 5d 20 35 | 5d 20 6c 69 73 70 2d 69 |ion m] 5|] lisp-i|
|00000ad0| 6e 64 65 6e 74 2d 32 35 | 39 20 23 5b 28 6d 65 74 |ndent-25|9 #[(met|
|00000ae0| 68 6f 64 20 70 61 74 68 | 20 73 74 61 74 65 20 69 |hod path| state i|
|00000af0| 6e 64 65 6e 74 2d 70 6f | 69 6e 74 20 73 65 78 70 |ndent-po|int sexp|
|00000b00| 2d 63 6f 6c 75 6d 6e 20 | 6e 6f 72 6d 61 6c 2d 69 |-column |normal-i|
|00000b10| 6e 64 65 6e 74 29 20 22 | c0 c1 8d 87 22 20 5b 65 |ndent) "|...." [e|
|00000b20| 78 69 74 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |xit (byt|e-code "|
|00000b30| 08 09 c2 9c c3 89 89 1c | 1d 1e 06 1e 07 1e 08 0e |........|........|
|00000b40| 08 85 62 01 0e 09 3a ac | 85 ca 0e 09 21 88 0e 08 |..b...:.|....!...|
|00000b50| 40 53 16 06 0e 08 41 16 | 08 c3 14 0e 06 ab 60 0e |@S....A.|......`.|
|00000b60| 09 40 89 15 c3 3d ac c3 | 0d cb 3d ab 85 0e 09 41 |.@...=..|..=....A|
|00000b70| ab b9 0d cc 3d ab 8c 0e | 09 41 3a ab 86 0e 09 41 |....=...|.A:....A|
|00000b80| 41 ab a8 0d a8 ac a4 0d | 3a ab 92 0d 40 cd 3d ab |A.......|:...@.=.|
|00000b90| 8c 0d 41 40 39 ac 94 0d | 41 40 a8 ac 8e 0d 39 ab |..A@9...|A@....9.|
|00000ba0| 85 0e 09 41 ab 85 ca 0e | 09 21 88 0c ab 8c 0d 3a |...A....|.!.....:|
|00000bb0| ac 88 ce cf 0e 10 5c 22 | 88 aa 21 0d cb 3d ab 99 |......\"|..!..=..|
|00000bc0| ce cf 0e 06 d1 55 ab 8b | 0e 08 ac 87 0e 12 0e 13 |.....U..|........|
|00000bd0| 5c 5c aa 82 0e 10 5c 22 | 88 aa 03 0d cc 3d ab 90 |\\....\"|.....=..|
|00000be0| 0e 06 d1 56 14 d1 16 06 | 0e 09 41 16 09 82 2b 00 |...V....|..A...+.|
|00000bf0| 0e 06 d1 56 ab 9a 0e 06 | 53 16 06 0e 09 41 16 09 |...V....|S....A..|
|00000c00| 0e 06 d1 57 83 2b 00 ce | cf 0e 10 5c 22 88 82 2b |...W.+..|...\"..+|
|00000c10| 00 0d c3 3d ab 8c ce cf | 0e 10 0e 07 44 5c 22 88 |...=....|....D\".|
|00000c20| 82 2b 00 0d a8 ab 96 ce | cf 0e 08 ac 89 0e 12 0d |.+......|........|
|00000c30| 5c 5c 0e 07 44 aa 82 0e | 10 5c 22 88 82 2b 00 0d |\\..D...|.\"..+..|
|00000c40| 39 ab 91 ce cf 0d 08 09 | 0e 14 0e 12 0e 10 25 5c |9.......|......%\|
|00000c50| 22 88 82 2b 00 0e 08 ab | 8c 0d 41 41 16 09 c3 89 |"..+....|..AA....|
|00000c60| 16 06 82 2d 00 0d 41 40 | 15 ce cf 0c ab 84 0e 10 |...-..A@|........|
|00000c70| aa a3 0d c3 3d ab 87 0e | 10 0e 07 44 aa 97 0d a8 |....=...|...D....|
|00000c80| ab 89 0e 12 0d 5c 5c 0e | 07 44 aa 8a 0d 08 09 0e |.....\\.|.D......|
|00000c90| 14 0e 12 0e 10 25 5c 22 | 88 82 2b 00 2d 87 22 20 |.....%\"|..+.-." |
|00000ca0| 5b 70 61 74 68 20 73 74 | 61 74 65 20 31 20 6e 69 |[path st|ate 1 ni|
|00000cb0| 6c 20 74 61 69 6c 20 74 | 65 6d 20 6e 20 63 6f 6e |l tail t|em n con|
|00000cc0| 74 61 69 6e 69 6e 67 2d | 66 6f 72 6d 2d 73 74 61 |taining-|form-sta|
|00000cd0| 72 74 20 70 20 6d 65 74 | 68 6f 64 20 6c 69 73 70 |rt p met|hod lisp|
|00000ce0| 2d 69 6e 64 65 6e 74 2d | 72 65 70 6f 72 74 2d 62 |-indent-|report-b|
|00000cf0| 61 64 2d 66 6f 72 6d 61 | 74 20 26 62 6f 64 79 20 |ad-forma|t &body |
|00000d00| 26 72 65 73 74 20 26 77 | 68 6f 6c 65 20 74 68 72 |&rest &w|hole thr|
|00000d10| 6f 77 20 65 78 69 74 20 | 6e 6f 72 6d 61 6c 2d 69 |ow exit |normal-i|
|00000d20| 6e 64 65 6e 74 20 30 20 | 73 65 78 70 2d 63 6f 6c |ndent 0 |sexp-col|
|00000d30| 75 6d 6e 20 6c 69 73 70 | 2d 62 6f 64 79 2d 69 6e |umn lisp|-body-in|
|00000d40| 64 65 6e 74 20 69 6e 64 | 65 6e 74 2d 70 6f 69 6e |dent ind|ent-poin|
|00000d50| 74 5d 20 39 29 5d 20 32 | 5d 20 6c 69 73 70 2d 69 |t] 9)] 2|] lisp-i|
|00000d60| 6e 64 65 6e 74 2d 74 61 | 67 62 6f 64 79 20 23 5b |ndent-ta|gbody #[|
|00000d70| 28 70 61 74 68 20 73 74 | 61 74 65 20 69 6e 64 65 |(path st|ate inde|
|00000d80| 6e 74 2d 70 6f 69 6e 74 | 20 73 65 78 70 2d 63 6f |nt-point| sexp-co|
|00000d90| 6c 75 6d 6e 20 6e 6f 72 | 6d 61 6c 2d 69 6e 64 65 |lumn nor|mal-inde|
|00000da0| 6e 74 29 20 22 08 41 ab | 82 09 87 8a 5c 6e 62 88 |nt) ".A.|....\nb.|
|00000db0| c3 79 88 c4 c5 77 88 c6 | c7 21 ab 87 0e 08 0e 09 |.y...w..|.!......|
|00000dc0| 5c 5c aa 9d 0e 5c 6e a8 | ab 87 0e 08 0e 5c 6e 5c |\\...\n.|.....\n\|
|00000dd0| 5c aa 91 0e 5c 6e cb 3d | ab 86 c5 cc cd 8f aa 85 |\...\n.=|........|
|00000de0| 0e 08 0e 0e 5c 5c 0e 0f | d0 9c 29 44 87 22 20 5b |....\\..|..)D." [|
|00000df0| 70 61 74 68 20 6e 6f 72 | 6d 61 6c 2d 69 6e 64 65 |path nor|mal-inde|
|00000e00| 6e 74 20 69 6e 64 65 6e | 74 2d 70 6f 69 6e 74 20 |nt inden|t-point |
|00000e10| 30 20 22 20 09 22 20 6e | 69 6c 20 6c 6f 6f 6b 69 |0 " ." n|il looki|
|00000e20| 6e 67 2d 61 74 20 22 5c | 5c 73 77 5c 5c 7c 5c 5c |ng-at "\|\sw\\|\\|
|00000e30| 73 5f 22 20 73 65 78 70 | 2d 63 6f 6c 75 6d 6e 20 |s_" sexp|-column |
|00000e40| 6c 69 73 70 2d 74 61 67 | 2d 69 6e 64 65 6e 74 61 |lisp-tag|-indenta|
|00000e50| 74 69 6f 6e 20 6c 69 73 | 70 2d 74 61 67 2d 62 6f |tion lis|p-tag-bo|
|00000e60| 64 79 2d 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 74 |dy-inden|tation t|
|00000e70| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 | (byte-c|ode "..!|
|00000e80| 88 69 87 22 20 5b 62 61 | 63 6b 77 61 72 64 2d 73 |.i." [ba|ckward-s|
|00000e90| 65 78 70 20 31 5d 20 32 | 29 20 28 28 65 72 72 6f |exp 1] 2|) ((erro|
|00000ea0| 72 20 28 31 2b 20 73 65 | 78 70 2d 63 6f 6c 75 6d |r (1+ se|xp-colum|
|00000eb0| 6e 29 29 29 20 6c 69 73 | 70 2d 62 6f 64 79 2d 69 |n))) lis|p-body-i|
|00000ec0| 6e 64 65 6e 74 20 73 74 | 61 74 65 20 31 5d 20 33 |ndent st|ate 1] 3|
|00000ed0| 5d 20 6c 69 73 70 2d 69 | 6e 64 65 6e 74 2d 64 6f |] lisp-i|ndent-do|
|00000ee0| 20 23 5b 28 70 61 74 68 | 20 73 74 61 74 65 20 69 | #[(path| state i|
|00000ef0| 6e 64 65 6e 74 2d 70 6f | 69 6e 74 20 73 65 78 70 |ndent-po|int sexp|
|00000f00| 2d 63 6f 6c 75 6d 6e 20 | 6e 6f 72 6d 61 6c 2d 69 |-column |normal-i|
|00000f10| 6e 64 65 6e 74 29 20 22 | 08 40 c1 59 ab 8e 5c 6e |ndent) "|.@.Y..\n|
|00000f20| 1b c4 08 0d 0e 06 0e 07 | 0e 08 25 29 87 c9 ca 08 |........|..%)....|
|00000f30| 0d 0e 06 0e 07 0e 08 26 | 06 87 22 20 5b 70 61 74 |.......&|.." [pat|
|00000f40| 68 20 33 20 6c 69 73 70 | 2d 62 6f 64 79 2d 69 6e |h 3 lisp|-body-in|
|00000f50| 64 65 6e 74 20 6c 69 73 | 70 2d 74 61 67 2d 62 6f |dent lis|p-tag-bo|
|00000f60| 64 79 2d 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 6c |dy-inden|tation l|
|00000f70| 69 73 70 2d 69 6e 64 65 | 6e 74 2d 74 61 67 62 6f |isp-inde|nt-tagbo|
|00000f80| 64 79 20 73 74 61 74 65 | 20 69 6e 64 65 6e 74 2d |dy state| indent-|
|00000f90| 70 6f 69 6e 74 20 73 65 | 78 70 2d 63 6f 6c 75 6d |point se|xp-colum|
|00000fa0| 6e 20 6e 6f 72 6d 61 6c | 2d 69 6e 64 65 6e 74 20 |n normal|-indent |
|00000fb0| 6c 69 73 70 2d 69 6e 64 | 65 6e 74 2d 32 35 39 20 |lisp-ind|ent-259 |
|00000fc0| 28 28 26 77 68 6f 6c 65 | 20 6e 69 6c 20 26 72 65 |((&whole| nil &re|
|00000fd0| 73 74 29 20 28 26 77 68 | 6f 6c 65 20 6e 69 6c 20 |st) (&wh|ole nil |
|00000fe0| 26 72 65 73 74 20 31 29 | 29 5d 20 37 5d 20 6c 69 |&rest 1)|)] 7] li|
|00000ff0| 73 70 2d 69 6e 64 65 6e | 74 2d 66 75 6e 63 74 69 |sp-inden|t-functi|
|00001000| 6f 6e 2d 6c 61 6d 62 64 | 61 2d 68 61 63 6b 20 23 |on-lambd|a-hack #|
|00001010| 5b 28 70 61 74 68 20 73 | 74 61 74 65 20 69 6e 64 |[(path s|tate ind|
|00001020| 65 6e 74 2d 70 6f 69 6e | 74 20 73 65 78 70 2d 63 |ent-poin|t sexp-c|
|00001030| 6f 6c 75 6d 6e 20 6e 6f | 72 6d 61 6c 2d 69 6e 64 |olumn no|rmal-ind|
|00001040| 65 6e 74 29 20 22 08 41 | ac 86 08 40 c1 56 ab 82 |ent) ".A|...@.V..|
|00001050| 5c 6e 87 c3 c4 c5 8f 87 | 22 20 5b 70 61 74 68 20 |\n......|" [path |
|00001060| 33 20 6e 6f 72 6d 61 6c | 2d 69 6e 64 65 6e 74 20 |3 normal|-indent |
|00001070| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00001080| 8a c0 c1 21 88 c2 75 88 | c3 c4 21 ab 87 0d 69 c6 |...!..u.|..!...i.|
|00001090| 5c 5c 5c 5c aa 84 0e 07 | 0d 5c 5c 29 87 22 20 5b |\\\\....|.\\)." [|
|000010a0| 62 61 63 6b 77 61 72 64 | 2d 75 70 2d 6c 69 73 74 |backward|-up-list|
|000010b0| 20 32 20 31 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 | 2 1 loo|king-at |
|000010c0| 22 5c 5c 28 6c 69 73 70 | 3a 2b 5c 5c 29 3f 66 75 |"\\(lisp|:+\\)?fu|
|000010d0| 6e 63 74 69 6f 6e 5c 5c | 28 5c 5c 53 77 5c 5c 7c |nction\\|(\\Sw\\||
|000010e0| 5c 5c 53 5f 5c 5c 29 22 | 20 6c 69 73 70 2d 62 6f |\\S_\\)"| lisp-bo|
|000010f0| 64 79 2d 69 6e 64 65 6e | 74 20 2d 31 20 73 65 78 |dy-inden|t -1 sex|
|00001100| 70 2d 63 6f 6c 75 6d 6e | 5d 20 33 29 20 28 28 65 |p-column|] 3) ((e|
|00001110| 72 72 6f 72 20 28 2b 20 | 73 65 78 70 2d 63 6f 6c |rror (+ |sexp-col|
|00001120| 75 6d 6e 20 6c 69 73 70 | 2d 62 6f 64 79 2d 69 6e |umn lisp|-body-in|
|00001130| 64 65 6e 74 29 29 29 5d | 20 33 5d 20 28 28 62 6c |dent)))]| 3] ((bl|
|00001140| 6f 63 6b 20 31 29 20 28 | 63 61 74 63 68 20 31 29 |ock 1) (|catch 1)|
|00001150| 20 28 63 61 73 65 20 28 | 34 20 26 72 65 73 74 20 | (case (|4 &rest |
|00001160| 28 26 77 68 6f 6c 65 20 | 32 20 26 72 65 73 74 20 |(&whole |2 &rest |
|00001170| 31 29 29 29 20 28 63 63 | 61 73 65 20 2e 20 63 61 |1))) (cc|ase . ca|
|00001180| 73 65 29 20 28 65 63 61 | 73 65 20 2e 20 63 61 73 |se) (eca|se . cas|
|00001190| 65 29 20 28 74 79 70 65 | 63 61 73 65 20 2e 20 63 |e) (type|case . c|
|000011a0| 61 73 65 29 20 28 65 74 | 79 70 65 63 61 73 65 20 |ase) (et|ypecase |
|000011b0| 2e 20 63 61 73 65 29 20 | 28 63 74 79 70 65 63 61 |. case) |(ctypeca|
|000011c0| 73 65 20 2e 20 63 61 73 | 65 29 20 28 63 61 74 63 |se . cas|e) (catc|
|000011d0| 68 20 31 29 20 28 63 6f | 6e 64 20 28 26 72 65 73 |h 1) (co|nd (&res|
|000011e0| 74 20 28 26 77 68 6f 6c | 65 20 32 20 26 72 65 73 |t (&whol|e 2 &res|
|000011f0| 74 20 31 29 29 29 20 28 | 62 6c 6f 63 6b 20 31 29 |t 1))) (|block 1)|
|00001200| 20 28 64 65 66 76 61 72 | 20 28 34 20 32 20 32 29 | (defvar| (4 2 2)|
|00001210| 29 20 28 64 65 66 63 6f | 6e 73 74 61 6e 74 20 2e |) (defco|nstant .|
|00001220| 20 64 65 66 76 61 72 29 | 20 28 64 65 66 70 61 72 | defvar)| (defpar|
|00001230| 61 6d 65 74 65 72 20 2e | 20 64 65 66 76 61 72 29 |ameter .| defvar)|
|00001240| 20 28 64 65 66 69 6e 65 | 2d 6d 6f 64 69 66 79 2d | (define|-modify-|
|00001250| 6d 61 63 72 6f 20 28 34 | 20 26 62 6f 64 79 29 29 |macro (4| &body))|
|00001260| 20 28 64 65 66 69 6e 65 | 2d 73 65 74 66 2d 6d 65 | (define|-setf-me|
|00001270| 74 68 6f 64 20 28 34 20 | 28 26 77 68 6f 6c 65 20 |thod (4 |(&whole |
|00001280| 34 20 26 72 65 73 74 20 | 31 29 20 26 62 6f 64 79 |4 &rest |1) &body|
|00001290| 29 29 20 28 64 65 66 73 | 65 74 66 20 28 34 20 28 |)) (defs|etf (4 (|
|000012a0| 26 77 68 6f 6c 65 20 34 | 20 26 72 65 73 74 20 31 |&whole 4| &rest 1|
|000012b0| 29 20 34 20 26 62 6f 64 | 79 29 29 20 28 64 65 66 |) 4 &bod|y)) (def|
|000012c0| 75 6e 20 28 34 20 28 26 | 77 68 6f 6c 65 20 34 20 |un (4 (&|whole 4 |
|000012d0| 26 72 65 73 74 20 31 29 | 20 26 62 6f 64 79 29 29 |&rest 1)| &body))|
|000012e0| 20 28 64 65 66 6d 61 63 | 72 6f 20 2e 20 64 65 66 | (defmac|ro . def|
|000012f0| 75 6e 29 20 28 64 65 66 | 74 79 70 65 20 2e 20 64 |un) (def|type . d|
|00001300| 65 66 75 6e 29 20 28 64 | 65 66 73 74 72 75 63 74 |efun) (d|efstruct|
|00001310| 20 28 28 26 77 68 6f 6c | 65 20 34 20 26 72 65 73 | ((&whol|e 4 &res|
|00001320| 74 20 28 26 77 68 6f 6c | 65 20 32 20 26 72 65 73 |t (&whol|e 2 &res|
|00001330| 74 20 31 29 29 20 26 72 | 65 73 74 20 28 26 77 68 |t 1)) &r|est (&wh|
|00001340| 6f 6c 65 20 32 20 26 72 | 65 73 74 20 31 29 29 29 |ole 2 &r|est 1)))|
|00001350| 20 28 64 65 73 74 72 75 | 63 74 75 72 69 6e 67 2d | (destru|cturing-|
|00001360| 62 69 6e 64 20 28 28 26 | 77 68 6f 6c 65 20 36 20 |bind ((&|whole 6 |
|00001370| 26 72 65 73 74 20 31 29 | 20 34 20 26 62 6f 64 79 |&rest 1)| 4 &body|
|00001380| 29 29 20 28 64 6f 20 6c | 69 73 70 2d 69 6e 64 65 |)) (do l|isp-inde|
|00001390| 6e 74 2d 64 6f 29 20 28 | 64 6f 2a 20 2e 20 64 6f |nt-do) (|do* . do|
|000013a0| 29 20 28 64 6f 6c 69 73 | 74 20 28 28 26 77 68 6f |) (dolis|t ((&who|
|000013b0| 6c 65 20 34 20 32 20 31 | 29 20 26 62 6f 64 79 29 |le 4 2 1|) &body)|
|000013c0| 29 20 28 64 6f 74 69 6d | 65 73 20 2e 20 64 6f 6c |) (dotim|es . dol|
|000013d0| 69 73 74 29 20 28 65 76 | 61 6c 2d 77 68 65 6e 20 |ist) (ev|al-when |
|000013e0| 31 29 20 28 66 6c 65 74 | 20 28 28 26 77 68 6f 6c |1) (flet| ((&whol|
|000013f0| 65 20 34 20 26 72 65 73 | 74 20 28 26 77 68 6f 6c |e 4 &res|t (&whol|
|00001400| 65 20 31 20 28 26 77 68 | 6f 6c 65 20 34 20 26 72 |e 1 (&wh|ole 4 &r|
|00001410| 65 73 74 20 31 29 20 26 | 62 6f 64 79 29 29 20 26 |est 1) &|body)) &|
|00001420| 62 6f 64 79 29 29 20 28 | 6c 61 62 65 6c 73 20 2e |body)) (|labels .|
|00001430| 20 66 6c 65 74 29 20 28 | 6d 61 63 72 6f 6c 65 74 | flet) (|macrolet|
|00001440| 20 2e 20 66 6c 65 74 29 | 20 28 69 66 20 28 6e 69 | . flet)| (if (ni|
|00001450| 6c 20 6e 69 6c 20 26 62 | 6f 64 79 29 29 20 28 69 |l nil &b|ody)) (i|
|00001460| 66 20 28 26 72 65 73 74 | 20 6e 69 6c 29 29 20 28 |f (&rest| nil)) (|
|00001470| 6c 61 6d 62 64 61 20 28 | 28 26 77 68 6f 6c 65 20 |lambda (|(&whole |
|00001480| 34 20 26 72 65 73 74 20 | 31 29 20 26 72 65 73 74 |4 &rest |1) &rest|
|00001490| 20 6c 69 73 70 2d 69 6e | 64 65 6e 74 2d 66 75 6e | lisp-in|dent-fun|
|000014a0| 63 74 69 6f 6e 2d 6c 61 | 6d 62 64 61 2d 68 61 63 |ction-la|mbda-hac|
|000014b0| 6b 29 29 20 28 6c 65 74 | 20 28 28 26 77 68 6f 6c |k)) (let| ((&whol|
|000014c0| 65 20 34 20 26 72 65 73 | 74 20 28 26 77 68 6f 6c |e 4 &res|t (&whol|
|000014d0| 65 20 31 20 31 20 32 29 | 29 20 26 62 6f 64 79 29 |e 1 1 2)|) &body)|
|000014e0| 29 20 28 6c 65 74 2a 20 | 2e 20 6c 65 74 29 20 28 |) (let* |. let) (|
|000014f0| 63 6f 6d 70 69 6c 65 72 | 2d 6c 65 74 20 2e 20 6c |compiler|-let . l|
|00001500| 65 74 29 20 28 6c 6f 63 | 61 6c 6c 79 20 31 29 20 |et) (loc|ally 1) |
|00001510| 28 6d 75 6c 74 69 70 6c | 65 2d 76 61 6c 75 65 2d |(multipl|e-value-|
|00001520| 62 69 6e 64 20 28 28 26 | 77 68 6f 6c 65 20 36 20 |bind ((&|whole 6 |
|00001530| 26 72 65 73 74 20 31 29 | 20 34 20 26 62 6f 64 79 |&rest 1)| 4 &body|
|00001540| 29 29 20 28 6d 75 6c 74 | 69 70 6c 65 2d 76 61 6c |)) (mult|iple-val|
|00001550| 75 65 2d 63 61 6c 6c 20 | 28 34 20 26 62 6f 64 79 |ue-call |(4 &body|
|00001560| 29 29 20 28 6d 75 6c 74 | 69 70 6c 65 2d 76 61 6c |)) (mult|iple-val|
|00001570| 75 65 2d 6c 69 73 74 20 | 31 29 20 28 6d 75 6c 74 |ue-list |1) (mult|
|00001580| 69 70 6c 65 2d 76 61 6c | 75 65 2d 70 72 6f 67 31 |iple-val|ue-prog1|
|00001590| 20 31 29 20 28 6d 75 6c | 74 69 70 6c 65 2d 76 61 | 1) (mul|tiple-va|
|000015a0| 6c 75 65 2d 73 65 74 71 | 20 28 34 20 32 29 29 20 |lue-setq| (4 2)) |
|000015b0| 28 70 72 6f 67 20 28 28 | 26 77 68 6f 6c 65 20 34 |(prog ((|&whole 4|
|000015c0| 20 26 72 65 73 74 20 31 | 29 20 26 72 65 73 74 20 | &rest 1|) &rest |
|000015d0| 6c 69 73 70 2d 69 6e 64 | 65 6e 74 2d 74 61 67 62 |lisp-ind|ent-tagb|
|000015e0| 6f 64 79 29 29 20 28 70 | 72 6f 67 2a 20 2e 20 70 |ody)) (p|rog* . p|
|000015f0| 72 6f 67 29 20 28 70 72 | 6f 67 31 20 31 29 20 28 |rog) (pr|og1 1) (|
|00001600| 70 72 6f 67 32 20 32 29 | 20 28 70 72 6f 67 6e 20 |prog2 2)| (progn |
|00001610| 30 29 20 28 70 72 6f 67 | 76 20 28 34 20 34 20 26 |0) (prog|v (4 4 &|
|00001620| 62 6f 64 79 29 29 20 28 | 72 65 74 75 72 6e 20 30 |body)) (|return 0|
|00001630| 29 20 28 72 65 74 75 72 | 6e 2d 66 72 6f 6d 20 28 |) (retur|n-from (|
|00001640| 6e 69 6c 20 26 62 6f 64 | 79 29 29 20 28 74 61 67 |nil &bod|y)) (tag|
|00001650| 62 6f 64 79 20 6c 69 73 | 70 2d 69 6e 64 65 6e 74 |body lis|p-indent|
|00001660| 2d 74 61 67 62 6f 64 79 | 29 20 28 74 68 72 6f 77 |-tagbody|) (throw|
|00001670| 20 31 29 20 28 75 6e 6c | 65 73 73 20 31 29 20 28 | 1) (unl|ess 1) (|
|00001680| 75 6e 77 69 6e 64 2d 70 | 72 6f 74 65 63 74 20 28 |unwind-p|rotect (|
|00001690| 35 20 26 62 6f 64 79 29 | 29 20 28 77 68 65 6e 20 |5 &body)|) (when |
|000016a0| 31 29 29 20 6c 20 70 75 | 74 5d 20 36 29 0a       |1)) l pu|t] 6).  |
+--------+-------------------------+-------------------------+--------+--------+