DataMuseum.dk

top - metrics - download

    Length: 5841 (0x16d1)
    Names: »cl-indent.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/cl-indent.elc« 

Hex Dump

0x0000…0020 0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6d 61 78 69 6d 75 6d 2d 62 61 63   ┆ (defvar lisp-indent-maximum-bac┆
0x0020…0040 6b 74 72 61 63 6b 69 6e 67 20 33 20 22 5c 0a 2a 4d 61 78 69 6d 75 6d 20 64 65 70 74 68 20 74 6f   ┆ktracking 3 "\ *Maximum depth to┆
0x0040…0060 20 62 61 63 6b 74 72 61 63 6b 20 6f 75 74 20 66 72 6f 6d 20 61 20 73 75 62 6c 69 73 74 20 66 6f   ┆ backtrack out from a sublist fo┆
0x0060…0080 72 20 73 74 72 75 63 74 75 72 65 64 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2e 0a 49 66 20 74 68 69   ┆r structured indentation. If thi┆
0x0080…00a0 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 20 30 2c 20 6e 6f 20 62 61 63 6b 74 72 61 63 6b 69 6e   ┆s variable is  0, no backtrackin┆
0x00a0…00c0 67 20 77 69 6c 6c 20 6f 63 63 75 72 20 61 6e 64 20 66 6f 72 6d 73 20 73 75 63 68 20 61 73 20 20   ┆g will occur and forms such as  ┆
0x00c0…00e0 66 6c 65 74 0a 6d 61 79 20 6e 6f 74 20 62 65 20 63 6f 72 72 65 63 74 6c 79 20 69 6e 64 65 6e 74   ┆flet may not be correctly indent┆
0x00e0…0100 65 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 74 61 67 2d 69 6e 64 65 6e 74 61 74   ┆ed.")  (defvar lisp-tag-indentat┆
0x0100…0120 69 6f 6e 20 31 20 22 5c 0a 2a 49 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 61 67 73 20 72 65   ┆ion 1 "\ *Indentation of tags re┆
0x0120…0140 6c 61 74 69 76 65 20 74 6f 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6c 69 73 74 2e 0a 54 68 69 73 20   ┆lative to containing list. This ┆
0x0140…0160 76 61 72 69 61 62 6c 65 20 69 73 20 75 73 65 64 20 62 79 20 74 68 65 20 66 75 6e 63 74 69 6f 6e   ┆variable is used by the function┆
0x0160…0180 20 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 2e 22 29 0a 0a 28 64 65 66 76 61   ┆  lisp-indent-tagbody.")  (defva┆
0x0180…01a0 72 20 6c 69 73 70 2d 74 61 67 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 33 20 22 5c   ┆r lisp-tag-body-indentation 3 "\┆
0x01a0…01c0 0a 2a 49 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 6e 6f 6e 2d 74 61 67 67 65 64 20 6c 69 6e 65   ┆ *Indentation of non-tagged line┆
0x01c0…01e0 73 20 72 65 6c 61 74 69 76 65 20 74 6f 20 63 6f 6e 74 61 69 6e 69 6e 67 20 6c 69 73 74 2e 0a 54   ┆s relative to containing list. T┆
0x01e0…0200 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 75 73 65 64 20 62 79 20 74 68 65 20 66 75 6e 63   ┆his variable is used by the func┆
0x0200…0220 74 69 6f 6e 20 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 20 20 74 6f 20 69 6e   ┆tion  lisp-indent-tagbody  to in┆
0x0220…0240 64 65 6e 74 20 6e 6f 72 6d 61 6c 0a 6c 69 6e 65 73 20 28 6c 69 6e 65 73 20 77 69 74 68 6f 75 74   ┆dent normal lines (lines without┆
0x0240…0260 20 74 61 67 73 29 2e 0a 54 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 69 73 20 72 65 6c 61 74   ┆ tags). The indentation is relat┆
0x0260…0280 69 76 65 20 74 6f 20 74 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 61   ┆ive to the indentation of the pa┆
0x0280…02a0 72 65 6e 74 68 65 73 69 73 20 65 6e 63 6c 6f 73 69 6e 67 0a 68 65 20 73 70 65 63 69 61 6c 20 66   ┆renthesis enclosing he special f┆
0x02a0…02c0 6f 72 6d 2e 20 20 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 20 74 2c 20 74 68 65 20 62 6f   ┆orm.  If the value is  t, the bo┆
0x02c0…02e0 64 79 20 6f 66 20 74 61 67 73 20 77 69 6c 6c 20 62 65 20 69 6e 64 65 6e 74 65 64 0a 61 73 20 61   ┆dy of tags will be indented as a┆
0x02e0…0300 20 62 6c 6f 63 6b 20 61 74 20 74 68 65 20 73 61 6d 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 61   ┆ block at the same indentation a┆
0x0300…0320 73 20 74 68 65 20 66 69 72 73 74 20 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 66 6f 6c 6c 6f 77 69   ┆s the first s-expression followi┆
0x0320…0340 6e 67 0a 74 68 65 20 74 61 67 2e 20 20 49 6e 20 74 68 69 73 20 63 61 73 65 2c 20 61 6e 79 20 66   ┆ng the tag.  In this case, any f┆
0x0340…0360 6f 72 6d 73 20 62 65 66 6f 72 65 20 74 68 65 20 66 69 72 73 74 20 74 61 67 20 61 72 65 20 69 6e   ┆orms before the first tag are in┆
0x0360…0380 64 65 6e 74 65 64 0a 62 79 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 2e 22 29 0a 0a 28   ┆dented by lisp-body-indent.")  (┆
0x0380…03a0 64 65 66 75 6e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 28 69   ┆defun common-lisp-indent-hook (i┆
0x03a0…03c0 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 74 61 74 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 69   ┆ndent-point state) (byte-code "i┆
0x03c0…03e0 18 d2 c3 c3 0e 06 d3 0e 08 d4 5c 22 c3 1e 09 1e 07 1d 1c 1a 19 0e 07 62 88 69 89 16 09 88 0c 3f   ┆          \"           b i     ?┆
0x03e0…0400 85 27 00 09 0e 0a 57 85 af 01 60 1e 0b d5 d4 21 88 d6 60 0e 06 d4 cc 24 88 c3 c3 c3 1e 0f 1e 0e   ┆ '    W   `    !  `    $        ┆
0x0400…0420 1e 0d d7 d8 21 3f 83 53 00 c3 16 0e c3 89 16 0f 82 aa 00 60 89 16 0d 88 d9 d4 21 88 da db 0e 0d   ┆    !? S           `      !     ┆
0x0420…0440 60 5c 22 21 89 16 0e 88 0e 0d 62 88 dc 0e 0e 21 16 0d 0e 0d dd 4e 89 16 0f 88 0e 0f 3f 85 84 00   ┆`\"!      b    !     N      ?   ┆
0x0440…0460 de df 0e 0e 5c 22 83 9d 00 0e 0e e0 d2 21 54 c3 4f 16 0e dc 0e 0e 21 dd 4e 89 16 0f 82 aa 00 0e   ┆    \"       !T O     ! N       ┆
0x0460…0480 0f 3f 85 aa 00 0e 0d e1 4e 89 16 0f 88 d2 1e 10 60 0e 06 57 85 c1 00 c3 e2 e3 8f 85 c1 00 c3 88   ┆ ?      N       `  W            ┆
0x0480…04a0 82 b5 00 88 0e 10 0a 42 89 12 29 88 0e 0e 3f 86 02 01 0e 0f 3f 83 f7 00 0a 41 3f 85 f4 00 de e4   ┆       B  )   ?     ?    A?     ┆
0x04a0…04c0 0e 0e 5c 22 83 e8 00 e5 82 f1 00 de e6 0e 0e 5c 22 85 f1 00 e7 89 16 0f 82 02 01 0e 0f e8 3d 85   ┆  \"           \"             = ┆
0x04c0…04e0 02 01 e9 89 16 0f 88 0e 0b 53 66 ea 3e 85 14 01 0e 0b eb 5a 66 ec 3d 3f 83 1f 01 0e 09 54 89 14   ┆         Sf >      Zf =?     T  ┆
0x04e0…0500 82 96 01 0e 0b 53 66 ec 3d 83 30 01 0e 09 54 89 14 82 96 01 0e 0f 3f 86 96 01 ed 0e 0f 21 83 6f   ┆     Sf = 0   T       ?      ! o┆
0x0500…0520 01 0a 41 83 46 01 08 82 6a 01 0a 40 0e 0f 58 83 58 01 0e 09 ee 5c 5c 0e 07 44 82 6a 01 0a 40 0e   ┆  A F   j  @  X X    \\  D j  @ ┆
0x0520…0540 0f 54 55 83 69 01 0e 09 0e 11 5c 5c 82 6a 01 08 89 14 82 96 01 0e 0f 39 83 87 01 ef 0e 0f 0a 0e   ┆ TU i     \\ j         9        ┆
0x0540…0560 08 0e 06 0e 09 08 26 06 89 14 82 96 01 f0 0e 0f 0a 0e 08 0e 06 0e 09 08 26 06 89 14 2b 88 0e 0b   ┆      &                 &   +   ┆
0x0560…0580 62 88 0e 0b 89 15 88 0c 3f 85 aa 01 c3 f1 f2 8f 29 88 82 1e 00 88 0c 2e 06 29 87 22 20 5b 6e 6f   ┆b       ?       )      . ) " [no┆
0x0580…05a0 72 6d 61 6c 2d 69 6e 64 65 6e 74 20 64 65 70 74 68 20 70 61 74 68 20 6e 69 6c 20 63 61 6c 63 75   ┆rmal-indent depth path nil calcu┆
0x05a0…05c0 6c 61 74 65 64 20 6c 61 73 74 2d 70 6f 69 6e 74 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 63 6f   ┆lated last-point indent-point co┆
0x05c0…05e0 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 20 73 74 61 74 65 20 73 65 78 70 2d 63   ┆ntaining-form-start state sexp-c┆
0x05e0…0600 6f 6c 75 6d 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6d 61 78 69 6d 75 6d 2d 62 61 63 6b 74 72   ┆olumn lisp-indent-maximum-backtr┆
0x0600…0620 61 63 6b 69 6e 67 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 73 65 78 70 20 74 20 74 65 6d 20 66 75 6e   ┆acking containing-sexp t tem fun┆
0x0620…0640 63 74 69 6f 6e 20 6d 65 74 68 6f 64 20 6e 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20   ┆ction method n lisp-body-indent ┆
0x0640…0660 30 20 65 6c 74 20 31 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 70 61 72 73 65 2d 70 61 72 74 69   ┆0 elt 1 forward-char parse-parti┆
0x0660…0680 61 6c 2d 73 65 78 70 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 77 5c 5c 7c 5c 5c 73 5f 22   ┆al-sexp looking-at "\\sw\\|\\s_"┆
0x0680…06a0 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 64 6f 77 6e 63 61 73 65 20 62 75 66 66 65 72 2d 73 75   ┆ forward-sexp downcase buffer-su┆
0x06a0…06c0 62 73 74 72 69 6e 67 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d   ┆bstring intern-soft common-lisp-┆
0x06c0…06e0 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 3a 5b 5e 3a 5d 2b   ┆indent-hook string-match ":[^:]+┆
0x06e0…0700 22 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f   ┆" match-beginning lisp-indent-ho┆
0x0700…0720 6f 6b 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 c5 21 88 60 08 59 83 0e 00 c1 82 1b 00 c6 60 08   ┆ok (byte-code "  ! ` Y        ` ┆
0x0720…0740 c5 c2 24 88 0b 54 89 13 88 c2 87 22 20 5b 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 6e 69 6c 20 74   ┆  $  T     " [indent-point nil t┆
0x0740…0760 20 6e 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d   ┆ n forward-sexp 1 parse-partial-┆
0x0760…0780 73 65 78 70 5d 20 36 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22   ┆sexp] 6) ((error (byte-code "  "┆
0x0780…07a0 20 5b 6e 69 6c 5d 20 31 29 29 29 20 22 5c 5c 60 64 65 66 22 20 28 34 20 28 26 77 68 6f 6c 65 20   ┆ [nil] 1))) "\\`def" (4 (&whole ┆
0x07a0…07c0 34 20 26 72 65 73 74 20 31 29 20 26 62 6f 64 79 29 20 22 5c 5c 60 5c 5c 28 77 69 74 68 5c 5c 7c   ┆4 &rest 1) &body) "\\`\\(with\\|┆
0x07c0…07e0 64 6f 5c 5c 29 2d 22 20 28 34 20 26 62 6f 64 79 29 20 64 65 66 75 6e 20 28 34 20 28 26 77 68 6f   ┆do\\)-" (4 &body) defun (4 (&who┆
0x07e0…0800 6c 65 20 34 20 26 72 65 73 74 20 31 29 20 26 62 6f 64 79 29 20 28 33 39 20 39 36 29 20 32 20 33   ┆le 4 &rest 1) &body) (39 96) 2 3┆
0x0800…0820 35 20 69 6e 74 65 67 65 72 70 20 34 20 66 75 6e 63 61 6c 6c 20 6c 69 73 70 2d 69 6e 64 65 6e 74   ┆5 integerp 4 funcall lisp-indent┆
0x0820…0840 2d 32 35 39 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 21 88 08 54 89 10 87 22 20 5b 64 65 70   ┆-259 (byte-code "  !  T   " [dep┆
0x0840…0860 74 68 20 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 20 31 5d 20 33 29 20 28 28 65 72 72 6f   ┆th backward-up-list 1] 3) ((erro┆
0x0860…0880 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 89 10 87 22 20 5b 64 65 70 74 68 20 6c 69 73 70 2d   ┆r (byte-code "    " [depth lisp-┆
0x0880…08a0 69 6e 64 65 6e 74 2d 6d 61 78 69 6d 75 6d 2d 62 61 63 6b 74 72 61 63 6b 69 6e 67 5d 20 32 29 29   ┆indent-maximum-backtracking] 2))┆
0x08a0…08c0 29 5d 20 32 33 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 72 65 70 6f   ┆)] 23))  (defun lisp-indent-repo┆
0x08c0…08e0 72 74 2d 62 61 64 2d 66 6f 72 6d 61 74 20 28 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3   ┆rt-bad-format (m) (byte-code "  ┆
0x08e0…0900 08 c4 09 24 87 22 20 5b 66 75 6e 63 74 69 6f 6e 20 6d 20 65 72 72 6f 72 20 22 25 73 20 68 61 73   ┆   $ " [function m error "%s has┆
0x0900…0920 20 61 20 62 61 64 6c 79 2d 66 6f 72 6d 65 64 20 25 73 20 70 72 6f 70 65 72 74 79 3a 20 25 73 22   ┆ a badly-formed %s property: %s"┆
0x0920…0940 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 5d 20 35 29 29 0a 0a 28   ┆ common-lisp-indent-hook] 5))  (┆
0x0940…0960 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 32 35 39 20 28 6d 65 74 68 6f 64 20 70 61   ┆defun lisp-indent-259 (method pa┆
0x0960…0980 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d   ┆th state indent-point sexp-colum┆
0x0980…09a0 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 8d   ┆n normal-indent) (byte-code "   ┆
0x09a0…09c0 87 22 20 5b 65 78 69 74 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 ce 0b cf 5c 22 c8 c8 c8 1e 06   ┆ " [exit (byte-code "    \"     ┆
0x09c0…09e0 1d 1c 1a 18 08 85 8d 01 0e 07 3a 3f 85 1d 00 d0 0e 07 21 88 08 40 53 14 08 41 10 c8 89 16 06 88   ┆          :?      !  @S  A      ┆
0x09e0…0a00 0c 85 89 01 0e 07 40 89 15 88 0d c8 3d 86 8d 00 0d d1 3d 85 44 00 0e 07 41 3f 86 8d 00 0d d2 3d   ┆      @     =     = D   A?     =┆
0x0a00…0a20 85 59 00 0e 07 41 3a 85 59 00 0e 07 41 41 3f 86 8d 00 d3 0d 21 86 8d 00 0d 3a 85 7a 00 0d 40 d4   ┆ Y   A: Y   AA?     !    : z  @ ┆
0x0a20…0a40 3d 85 7a 00 0d 41 40 39 86 7a 00 d3 0d 41 40 21 86 8d 00 0d 39 85 86 00 0e 07 41 3f 86 8d 00 d0   ┆= z  A@9 z   A@!    9     A?    ┆
0x0a40…0a60 0e 07 21 88 0e 06 85 96 00 0d 3a 3f 83 a1 00 d5 d6 0e 09 5c 22 82 85 01 0d d1 3d 83 c2 00 d5 d6   ┆  !       :?       \"     =     ┆
0x0a60…0a80 0c d7 55 85 b1 00 08 3f 83 bc 00 0e 0a 0e 0b 5c 5c 82 be 00 0e 09 5c 22 82 85 01 0d d2 3d 83 d8   ┆  U    ?       \\     \"     =  ┆
0x0a80…0aa0 00 0c d7 56 16 06 d7 14 0e 07 41 89 16 07 82 85 01 0c d7 56 83 f6 00 0c 53 14 0e 07 41 89 16 07   ┆   V      A        V    S   A   ┆
0x0aa0…0ac0 88 0c d7 57 85 f3 00 d5 d6 0e 09 5c 22 82 85 01 0d c8 3d 83 06 01 d5 d6 0e 09 0a 44 5c 22 82 85   ┆   W       \"     =        D\"  ┆
0x0ac0…0ae0 01 d3 0d 21 83 5c 22 01 d5 d6 08 3f 83 1c 01 0e 0a 0d 5c 5c 0a 44 82 1e 01 0e 09 5c 22 82 85 01   ┆   ! \"    ?      \\ D     \"   ┆
0x0ae0…0b00 0d 39 83 39 01 d5 d6 d8 0d 09 0b 0e 0c 0e 0a 0e 09 26 06 5c 22 82 85 01 08 3f 3f 83 4a 01 0d 41   ┆ 9 9             & \"    ?? J  A┆
0x0b00…0b20 41 16 07 c8 89 14 82 85 01 0d 41 40 89 15 88 d5 d6 0e 06 83 5c 5c 01 0e 09 82 84 01 0d c8 3d 83   ┆A         A@        \\        = ┆
0x0b20…0b40 69 01 0e 09 0a 44 82 84 01 d3 0d 21 83 78 01 0e 0a 0d 5c 5c 0a 44 82 84 01 d8 0d 09 0b 0e 0c 0e   ┆i    D     ! x    \\ D          ┆
0x0b40…0b60 0a 0e 09 26 06 5c 22 88 82 2a 00 88 82 0e 00 2d 87 22 20 5b 70 20 70 61 74 68 20 63 6f 6e 74 61   ┆   & \"  *     - " [p path conta┆
0x0b60…0b80 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 20 73 74 61 74 65 20 6e 20 74 65 6d 20 74 61 69   ┆ining-form-start state n tem tai┆
0x0b80…0ba0 6c 20 6d 65 74 68 6f 64 20 6e 69 6c 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 20 73 65 78 70 2d   ┆l method nil normal-indent sexp-┆
0x0ba0…0bc0 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20 69 6e 64 65 6e 74 2d 70   ┆column lisp-body-indent indent-p┆
0x0bc0…0be0 6f 69 6e 74 20 74 20 65 6c 74 20 31 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 72 65 70 6f 72 74 2d   ┆oint t elt 1 lisp-indent-report-┆
0x0be0…0c00 62 61 64 2d 66 6f 72 6d 61 74 20 26 62 6f 64 79 20 26 72 65 73 74 20 69 6e 74 65 67 65 72 70 20   ┆bad-format &body &rest integerp ┆
0x0c00…0c20 26 77 68 6f 6c 65 20 74 68 72 6f 77 20 65 78 69 74 20 30 20 66 75 6e 63 61 6c 6c 5d 20 32 35 29   ┆&whole throw exit 0 funcall] 25)┆
0x0c20…0c40 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64   ┆] 2))  (defun lisp-indent-tagbod┆
0x0c40…0c60 79 20 28 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d   ┆y (path state indent-point sexp-┆
0x0c60…0c80 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65   ┆column normal-indent) (byte-code┆
0x0c80…0ca0 20 22 08 41 3f 3f 83 0b 00 09 82 46 00 8a 0a 62 88 c9 20 88 ca cb 21 88 cc cd 21 83 5c 22 00 0b   ┆ " A??     F   b      !   ! \"  ┆
0x0ca0…0cc0 0c 5c 5c 82 3f 00 ce 0d 21 83 2e 00 0b 0d 5c 5c 82 3f 00 0d c6 3d 83 3b 00 cf d0 d1 8f 82 3f 00   ┆ \\ ?   ! .   \\ ?   = ;      ? ┆
0x0cc0…0ce0 0b 0e 07 5c 5c d2 0e 08 d3 5c 22 44 29 87 22 20 5b 70 61 74 68 20 6e 6f 72 6d 61 6c 2d 69 6e 64   ┆   \\    \"D) " [path normal-ind┆
0x0ce0…0d00 65 6e 74 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73   ┆ent indent-point sexp-column lis┆
0x0d00…0d20 70 2d 74 61 67 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6c 69 73 70 2d 74 61 67 2d 62 6f 64 79 2d   ┆p-tag-indentation lisp-tag-body-┆
0x0d20…0d40 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20 73   ┆indentation t lisp-body-indent s┆
0x0d40…0d60 74 61 74 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72   ┆tate beginning-of-line skip-char┆
0x0d60…0d80 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 77 5c   ┆s-forward "  " looking-at "\\sw\┆
0x0d80…0da0 5c 7c 5c 5c 73 5f 22 20 69 6e 74 65 67 65 72 70 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20   ┆\|\\s_" integerp nil (byte-code ┆
0x0da0…0dc0 22 c0 c1 21 88 69 87 22 20 5b 62 61 63 6b 77 61 72 64 2d 73 65 78 70 20 31 5d 20 32 29 20 28 28   ┆"  ! i " [backward-sexp 1] 2) ((┆
0x0dc0…0de0 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 54 87 22 20 5b 73 65 78 70 2d 63 6f 6c   ┆error (byte-code " T " [sexp-col┆
0x0de0…0e00 75 6d 6e 5d 20 31 29 29 29 20 65 6c 74 20 31 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73   ┆umn] 1))) elt 1] 8))  (defun lis┆
0x0e00…0e20 70 2d 69 6e 64 65 6e 74 2d 64 6f 20 28 70 61 74 68 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70   ┆p-indent-do (path state indent-p┆
0x0e20…0e40 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 20   ┆oint sexp-column normal-indent) ┆
0x0e40…0e60 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 c7 59 83 18 00 0a 19 c8 c9 4b 08 0b 0c 0d 0e 06 26 06   ┆(byte-code " @ Y       K      & ┆
0x0e60…0e80 29 82 24 00 c8 ca 4b cb 08 0b 0c 0d 0e 06 26 07 87 22 20 5b 70 61 74 68 20 6c 69 73 70 2d 74 61   ┆) $   K       &  " [path lisp-ta┆
0x0e80…0ea0 67 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64   ┆g-body-indentation lisp-body-ind┆
0x0ea0…0ec0 65 6e 74 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75   ┆ent state indent-point sexp-colu┆
0x0ec0…0ee0 6d 6e 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 20 33 20 66 75 6e 63 61 6c 6c 20 6c 69 73 70 2d   ┆mn normal-indent 3 funcall lisp-┆
0x0ee0…0f00 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 32 35 39 20 28   ┆indent-tagbody lisp-indent-259 (┆
0x0f00…0f20 28 26 77 68 6f 6c 65 20 6e 69 6c 20 26 72 65 73 74 29 20 28 26 77 68 6f 6c 65 20 6e 69 6c 20 26   ┆(&whole nil &rest) (&whole nil &┆
0x0f20…0f40 72 65 73 74 20 31 29 29 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65   ┆rest 1))] 11))  (defun lisp-inde┆
0x0f40…0f60 6e 74 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 68 61 63 6b 20 28 70 61 74 68 20 73 74   ┆nt-function-lambda-hack (path st┆
0x0f60…0f80 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6e 6f 72   ┆ate indent-point sexp-column nor┆
0x0f80…0fa0 6d 61 6c 2d 69 6e 64 65 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 86 09 00 08 40 c2   ┆mal-indent) (byte-code " A    @ ┆
0x0fa0…0fc0 56 83 10 00 09 82 14 00 c3 c4 c5 8f 87 22 20 5b 70 61 74 68 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65   ┆V            " [path normal-inde┆
0x0fc0…0fe0 6e 74 20 33 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a c2 c3 21 88 c4 c5 21 88 c6 c7   ┆nt 3 nil (byte-code "   !   !   ┆
0x0fe0…1000 21 83 17 00 c8 08 c9 69 23 82 1a 00 09 08 5c 5c 29 87 22 20 5b 6c 69 73 70 2d 62 6f 64 79 2d 69   ┆!      i#     \\) " [lisp-body-i┆
0x1000…1020 6e 64 65 6e 74 20 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69   ┆ndent sexp-column backward-up-li┆
0x1020…1040 73 74 20 32 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22   ┆st 2 forward-char 1 looking-at "┆
0x1040…1060 5c 5c 28 6c 69 73 70 3a 2b 5c 5c 29 3f 66 75 6e 63 74 69 6f 6e 5c 5c 28 5c 5c 53 77 5c 5c 7c 5c   ┆\\(lisp:+\\)?function\\(\\Sw\\|\┆
0x1060…1080 5c 53 5f 5c 5c 29 22 20 2b 20 2d 31 5d 20 37 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63   ┆\S_\\)" + -1] 7) ((error (byte-c┆
0x1080…10a0 6f 64 65 20 22 08 09 5c 5c 87 22 20 5b 73 65 78 70 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 62 6f   ┆ode "  \\ " [sexp-column lisp-bo┆
0x10a0…10c0 64 79 2d 69 6e 64 65 6e 74 5d 20 32 29 29 29 5d 20 33 29 29 0a 0a 28 6c 65 74 20 28 28 6c 20 28   ┆dy-indent] 2)))] 3))  (let ((l (┆
0x10c0…10e0 71 75 6f 74 65 20 28 28 62 6c 6f 63 6b 20 31 29 20 28 63 61 74 63 68 20 31 29 20 28 63 61 73 65   ┆quote ((block 1) (catch 1) (case┆
0x10e0…1100 20 28 34 20 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 32 20 26 72 65 73 74 20 31 29 29 29 20 28   ┆ (4 &rest (&whole 2 &rest 1))) (┆
0x1100…1120 63 63 61 73 65 20 2e 20 63 61 73 65 29 20 28 65 63 61 73 65 20 2e 20 63 61 73 65 29 20 28 74 79   ┆ccase . case) (ecase . case) (ty┆
0x1120…1140 70 65 63 61 73 65 20 2e 20 63 61 73 65 29 20 28 65 74 79 70 65 63 61 73 65 20 2e 20 63 61 73 65   ┆pecase . case) (etypecase . case┆
0x1140…1160 29 20 28 63 74 79 70 65 63 61 73 65 20 2e 20 63 61 73 65 29 20 28 63 61 74 63 68 20 31 29 20 28   ┆) (ctypecase . case) (catch 1) (┆
0x1160…1180 63 6f 6e 64 20 28 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 32 20 26 72 65 73 74 20 31 29 29 29   ┆cond (&rest (&whole 2 &rest 1)))┆
0x1180…11a0 20 28 62 6c 6f 63 6b 20 31 29 20 28 64 65 66 76 61 72 20 28 34 20 32 20 32 29 29 20 28 64 65 66   ┆ (block 1) (defvar (4 2 2)) (def┆
0x11a0…11c0 63 6f 6e 73 74 61 6e 74 20 2e 20 64 65 66 76 61 72 29 20 28 64 65 66 70 61 72 61 6d 65 74 65 72   ┆constant . defvar) (defparameter┆
0x11c0…11e0 20 2e 20 64 65 66 76 61 72 29 20 28 64 65 66 69 6e 65 2d 6d 6f 64 69 66 79 2d 6d 61 63 72 6f 20   ┆ . defvar) (define-modify-macro ┆
0x11e0…1200 28 34 20 26 62 6f 64 79 29 29 20 28 64 65 66 69 6e 65 2d 73 65 74 66 2d 6d 65 74 68 6f 64 20 28   ┆(4 &body)) (define-setf-method (┆
0x1200…1220 34 20 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20 31 29 20 26 62 6f 64 79 29 29 20 28 64 65   ┆4 (&whole 4 &rest 1) &body)) (de┆
0x1220…1240 66 73 65 74 66 20 28 34 20 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20 31 29 20 34 20 26 62   ┆fsetf (4 (&whole 4 &rest 1) 4 &b┆
0x1240…1260 6f 64 79 29 29 20 28 64 65 66 75 6e 20 28 34 20 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20   ┆ody)) (defun (4 (&whole 4 &rest ┆
0x1260…1280 31 29 20 26 62 6f 64 79 29 29 20 28 64 65 66 6d 61 63 72 6f 20 2e 20 64 65 66 75 6e 29 20 28 64   ┆1) &body)) (defmacro . defun) (d┆
0x1280…12a0 65 66 74 79 70 65 20 2e 20 64 65 66 75 6e 29 20 28 64 65 66 73 74 72 75 63 74 20 28 28 26 77 68   ┆eftype . defun) (defstruct ((&wh┆
0x12a0…12c0 6f 6c 65 20 34 20 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 32 20 26 72 65 73 74 20 31 29 29 20   ┆ole 4 &rest (&whole 2 &rest 1)) ┆
0x12c0…12e0 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 32 20 26 72 65 73 74 20 31 29 29 29 20 28 64 65 73 74   ┆&rest (&whole 2 &rest 1))) (dest┆
0x12e0…1300 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 20 28 28 26 77 68 6f 6c 65 20 36 20 26 72 65 73 74 20   ┆ructuring-bind ((&whole 6 &rest ┆
0x1300…1320 31 29 20 34 20 26 62 6f 64 79 29 29 20 28 64 6f 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 64 6f 29   ┆1) 4 &body)) (do lisp-indent-do)┆
0x1320…1340 20 28 64 6f 2a 20 2e 20 64 6f 29 20 28 64 6f 6c 69 73 74 20 28 28 26 77 68 6f 6c 65 20 34 20 32   ┆ (do* . do) (dolist ((&whole 4 2┆
0x1340…1360 20 31 29 20 26 62 6f 64 79 29 29 20 28 64 6f 74 69 6d 65 73 20 2e 20 64 6f 6c 69 73 74 29 20 28   ┆ 1) &body)) (dotimes . dolist) (┆
0x1360…1380 65 76 61 6c 2d 77 68 65 6e 20 31 29 20 28 66 6c 65 74 20 28 28 26 77 68 6f 6c 65 20 34 20 26 72   ┆eval-when 1) (flet ((&whole 4 &r┆
0x1380…13a0 65 73 74 20 28 26 77 68 6f 6c 65 20 31 20 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20 31 29   ┆est (&whole 1 (&whole 4 &rest 1)┆
0x13a0…13c0 20 26 62 6f 64 79 29 29 20 26 62 6f 64 79 29 29 20 28 6c 61 62 65 6c 73 20 2e 20 66 6c 65 74 29   ┆ &body)) &body)) (labels . flet)┆
0x13c0…13e0 20 28 6d 61 63 72 6f 6c 65 74 20 2e 20 66 6c 65 74 29 20 28 69 66 20 28 6e 69 6c 20 6e 69 6c 20   ┆ (macrolet . flet) (if (nil nil ┆
0x13e0…1400 26 62 6f 64 79 29 29 20 28 69 66 20 28 26 72 65 73 74 20 6e 69 6c 29 29 20 28 6c 61 6d 62 64 61   ┆&body)) (if (&rest nil)) (lambda┆
0x1400…1420 20 28 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20 31 29 20 26 72 65 73 74 20 6c 69 73 70 2d   ┆ ((&whole 4 &rest 1) &rest lisp-┆
0x1420…1440 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 2d 6c 61 6d 62 64 61 2d 68 61 63 6b 29 29 20 28 6c   ┆indent-function-lambda-hack)) (l┆
0x1440…1460 65 74 20 28 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20 28 26 77 68 6f 6c 65 20 31 20 31 20   ┆et ((&whole 4 &rest (&whole 1 1 ┆
0x1460…1480 32 29 29 20 26 62 6f 64 79 29 29 20 28 6c 65 74 2a 20 2e 20 6c 65 74 29 20 28 6c 6f 63 61 6c 6c   ┆2)) &body)) (let* . let) (locall┆
0x1480…14a0 79 20 31 29 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 28 26 77 68 6f   ┆y 1) (multiple-value-bind ((&who┆
0x14a0…14c0 6c 65 20 36 20 26 72 65 73 74 20 31 29 20 34 20 26 62 6f 64 79 29 29 20 28 6d 75 6c 74 69 70 6c   ┆le 6 &rest 1) 4 &body)) (multipl┆
0x14c0…14e0 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 20 28 34 20 26 62 6f 64 79 29 29 20 28 6d 75 6c 74 69 70 6c   ┆e-value-call (4 &body)) (multipl┆
0x14e0…1500 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 31 29 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d   ┆e-value-list 1) (multiple-value-┆
0x1500…1520 70 72 6f 67 31 20 31 29 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 34   ┆prog1 1) (multiple-value-setq (4┆
0x1520…1540 20 32 29 29 20 28 70 72 6f 67 20 28 28 26 77 68 6f 6c 65 20 34 20 26 72 65 73 74 20 31 29 20 26   ┆ 2)) (prog ((&whole 4 &rest 1) &┆
0x1540…1560 72 65 73 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 29 29 20 28 70 72 6f 67   ┆rest lisp-indent-tagbody)) (prog┆
0x1560…1580 2a 20 2e 20 70 72 6f 67 29 20 28 70 72 6f 67 31 20 31 29 20 28 70 72 6f 67 32 20 32 29 20 28 70   ┆* . prog) (prog1 1) (prog2 2) (p┆
0x1580…15a0 72 6f 67 6e 20 30 29 20 28 70 72 6f 67 76 20 28 34 20 34 20 26 62 6f 64 79 29 29 20 28 72 65 74   ┆rogn 0) (progv (4 4 &body)) (ret┆
0x15a0…15c0 75 72 6e 20 30 29 20 28 72 65 74 75 72 6e 2d 66 72 6f 6d 20 28 6e 69 6c 20 26 62 6f 64 79 29 29   ┆urn 0) (return-from (nil &body))┆
0x15c0…15e0 20 28 74 61 67 62 6f 64 79 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 74 61 67 62 6f 64 79 29 20 28   ┆ (tagbody lisp-indent-tagbody) (┆
0x15e0…1600 74 68 72 6f 77 20 31 29 20 28 75 6e 6c 65 73 73 20 31 29 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74   ┆throw 1) (unless 1) (unwind-prot┆
0x1600…1620 65 63 74 20 28 35 20 26 62 6f 64 79 29 29 20 28 77 68 65 6e 20 31 29 29 29 29 29 20 28 77 68 69   ┆ect (5 &body)) (when 1))))) (whi┆
0x1620…1640 6c 65 20 6c 20 28 70 75 74 20 28 63 61 72 20 28 63 61 72 20 6c 29 29 20 28 71 75 6f 74 65 20 63   ┆le l (put (car (car l)) (quote c┆
0x1640…1660 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 28 69 66 20 28 73 79 6d   ┆ommon-lisp-indent-hook) (if (sym┆
0x1660…1680 62 6f 6c 70 20 28 63 64 72 20 28 63 61 72 20 6c 29 29 29 20 28 67 65 74 20 28 63 64 72 20 28 63   ┆bolp (cdr (car l))) (get (cdr (c┆
0x1680…16a0 61 72 20 6c 29 29 20 28 71 75 6f 74 65 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74   ┆ar l)) (quote common-lisp-indent┆
0x16a0…16c0 2d 68 6f 6f 6b 29 29 20 28 63 61 72 20 28 63 64 72 20 28 63 61 72 20 6c 29 29 29 29 29 20 28 73   ┆-hook)) (car (cdr (car l))))) (s┆
0x16c0…16d1 65 74 71 20 6c 20 28 63 64 72 20 6c 29 29 29 29 0a   ┆etq l (cdr l)))) ┆