/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / ls-lisp.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 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 33 3a 32 39 3a 30 | 32 20 31 39 39 33 0a 3b | 23:29:0|2 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 6c 73 2d | 6c 69 73 70 2e 65 6c 0a |lisp/ls-|lisp.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 31 35 2e | 31 36 2e 0a 3b 3b 3b 20 |n 19.15.|16..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|00000190| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001a0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001b0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 22 29 29 0a |for Emac|s 19")).|
|000001c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 6e 73 65 |.(defali|as 'inse|
|000001d0| 72 74 2d 64 69 72 65 63 | 74 6f 72 79 20 23 5b 28 |rt-direc|tory #[(|
|000001e0| 66 69 6c 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |file &op|tional s|
|000001f0| 77 69 74 63 68 65 73 20 | 77 69 6c 64 63 61 72 64 |witches |wildcard|
|00000200| 20 66 75 6c 6c 2d 64 69 | 72 65 63 74 6f 72 79 2d | full-di|rectory-|
|00000210| 70 29 20 22 c0 09 21 89 | 1a 83 13 00 5c 6e c3 09 |p) "..!.|....\n..|
|00000220| 0c 0d 0e 06 25 82 d8 00 | c7 0c c8 5c 22 14 0d 83 |....%...|...\"...|
|00000230| 24 00 c9 09 21 15 ca 09 | 21 11 0d 84 2d 00 0e 06 |$...!...|!...-...|
|00000240| 83 cc 00 cb 09 21 89 1e | 0c 1e 0d ce 1e 0f c8 1e |.....!..|........|
|00000250| 10 c8 1e 11 d2 0e 0c c8 | 0d 23 1e 13 c8 1e 14 c8 |........|.#......|
|00000260| 1e 15 c8 1e 16 d7 0c 3e | 83 5f 00 d8 d9 0e 13 5c |.......>|._.....\|
|00000270| 22 16 13 82 6c 00 da 0c | 3e 84 6c 00 d8 db 0e 13 |"...l...|>.l.....|
|00000280| 5c 22 16 13 dc dd 0e 13 | 5c 22 16 14 de 63 88 df |\"......|\"...c..|
|00000290| 0e 14 0c 5c 22 16 14 0e | 14 83 b1 00 0e 14 40 89 |...\"...|......@.|
|000002a0| 16 10 40 16 11 0e 10 41 | 16 16 0e 14 41 16 14 0e |..@....A|....A...|
|000002b0| 0c 0e 11 50 16 15 0e 0f | e0 0e 16 38 5c 5c 16 0f |...P....|...8\\..|
|000002c0| e1 0e 11 0e 16 0c 23 63 | 88 82 7d 00 8a e2 e3 21 |......#c|..}....!|
|000002d0| 88 ce 95 62 88 e4 e5 21 | 88 e6 e7 0e 0f e8 a5 54 |...b...!|.......T|
|000002e0| 5c 22 63 2e 5c 6e 82 d8 | 00 c9 09 21 11 e1 09 e9 |\"c.\n..|...!....|
|000002f0| 09 21 0c 23 63 29 87 22 | 20 5b 66 69 6e 64 2d 66 |.!.#c)."| [find-f|
|00000300| 69 6c 65 2d 6e 61 6d 65 | 2d 68 61 6e 64 6c 65 72 |ile-name|-handler|
|00000310| 20 66 69 6c 65 20 68 61 | 6e 64 6c 65 72 20 69 6e | file ha|ndler in|
|00000320| 73 65 72 74 2d 64 69 72 | 65 63 74 6f 72 79 20 73 |sert-dir|ectory s|
|00000330| 77 69 74 63 68 65 73 20 | 77 69 6c 64 63 61 72 64 |witches |wildcard|
|00000340| 20 66 75 6c 6c 2d 64 69 | 72 65 63 74 6f 72 79 2d | full-di|rectory-|
|00000350| 70 20 61 70 70 65 6e 64 | 20 6e 69 6c 20 66 69 6c |p append| nil fil|
|00000360| 65 2d 6e 61 6d 65 2d 6e | 6f 6e 64 69 72 65 63 74 |e-name-n|ondirect|
|00000370| 6f 72 79 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 64 69 |ory file|-name-di|
|00000380| 72 65 63 74 6f 72 79 20 | 66 69 6c 65 2d 6e 61 6d |rectory |file-nam|
|00000390| 65 2d 61 73 2d 64 69 72 | 65 63 74 6f 72 79 20 64 |e-as-dir|ectory d|
|000003a0| 69 72 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |ir defau|lt-direc|
|000003b0| 74 6f 72 79 20 30 20 73 | 75 6d 20 65 6c 74 20 73 |tory 0 s|um elt s|
|000003c0| 68 6f 72 74 20 64 69 72 | 65 63 74 6f 72 79 2d 66 |hort dir|ectory-f|
|000003d0| 69 6c 65 73 20 66 69 6c | 65 2d 6c 69 73 74 20 66 |iles fil|e-list f|
|000003e0| 69 6c 65 2d 61 6c 69 73 | 74 20 66 69 6c 20 61 74 |ile-alis|t fil at|
|000003f0| 74 72 20 36 35 20 6c 73 | 2d 6c 69 73 70 2d 64 65 |tr 65 ls|-lisp-de|
|00000400| 6c 65 74 65 2d 6d 61 74 | 63 68 69 6e 67 20 22 5e |lete-mat|ching "^|
|00000410| 5c 5c 2e 5c 5c 2e 3f 24 | 22 20 39 37 20 22 5e 5c |\\.\\.?$|" 97 "^\|
|00000420| 5c 2e 22 20 6d 61 70 63 | 61 72 20 23 5b 28 78 29 |\." mapc|ar #[(x)|
|00000430| 20 22 08 c1 c2 08 21 21 | 42 87 22 20 5b 78 20 66 | "....!!|B." [x f|
|00000440| 69 6c 65 2d 61 74 74 72 | 69 62 75 74 65 73 20 65 |ile-attr|ibutes e|
|00000450| 78 70 61 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 5d |xpand-fi|le-name]|
|00000460| 20 34 5d 20 22 74 6f 74 | 61 6c 20 07 5c 6e 22 20 | 4] "tot|al .\n" |
|00000470| 6c 73 2d 6c 69 73 70 2d | 68 61 6e 64 6c 65 2d 73 |ls-lisp-|handle-s|
|00000480| 77 69 74 63 68 65 73 20 | 37 20 6c 73 2d 6c 69 73 |witches |7 ls-lis|
|00000490| 70 2d 66 6f 72 6d 61 74 | 20 73 65 61 72 63 68 2d |p-format| search-|
|000004a0| 62 61 63 6b 77 61 72 64 | 20 22 74 6f 74 61 6c 20 |backward| "total |
|000004b0| 07 22 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 2d |." delet|e-char -|
|000004c0| 31 20 66 6f 72 6d 61 74 | 20 22 25 64 22 20 31 30 |1 format| "%d" 10|
|000004d0| 32 34 20 66 69 6c 65 2d | 61 74 74 72 69 62 75 74 |24 file-|attribut|
|000004e0| 65 73 5d 20 37 20 22 5c | 0a 49 6e 73 65 72 74 20 |es] 7 "\|.Insert |
|000004f0| 64 69 72 65 63 74 6f 72 | 79 20 6c 69 73 74 69 6e |director|y listin|
|00000500| 67 20 66 6f 72 20 6f 66 | 20 46 49 4c 45 2c 20 66 |g for of| FILE, f|
|00000510| 6f 72 6d 61 74 74 65 64 | 20 61 63 63 6f 72 64 69 |ormatted| accordi|
|00000520| 6e 67 20 74 6f 20 53 57 | 49 54 43 48 45 53 2e 0a |ng to SW|ITCHES..|
|00000530| 4c 65 61 76 65 73 20 70 | 6f 69 6e 74 20 61 66 74 |Leaves p|oint aft|
|00000540| 65 72 20 74 68 65 20 69 | 6e 73 65 72 74 65 64 20 |er the i|nserted |
|00000550| 74 65 78 74 2e 0a 4f 70 | 74 69 6f 6e 61 6c 20 74 |text..Op|tional t|
|00000560| 68 69 72 64 20 61 72 67 | 20 57 49 4c 44 43 41 52 |hird arg| WILDCAR|
|00000570| 44 20 6d 65 61 6e 73 20 | 74 72 65 61 74 20 46 49 |D means |treat FI|
|00000580| 4c 45 20 61 73 20 73 68 | 65 6c 6c 20 77 69 6c 64 |LE as sh|ell wild|
|00000590| 63 61 72 64 2e 0a 4f 70 | 74 69 6f 6e 61 6c 20 66 |card..Op|tional f|
|000005a0| 6f 75 72 74 68 20 61 72 | 67 20 46 55 4c 4c 2d 44 |ourth ar|g FULL-D|
|000005b0| 49 52 45 43 54 4f 52 59 | 2d 50 20 6d 65 61 6e 73 |IRECTORY|-P means|
|000005c0| 20 66 69 6c 65 20 69 73 | 20 61 20 64 69 72 65 63 | file is| a direc|
|000005d0| 74 6f 72 79 20 61 6e 64 | 0a 73 77 69 74 63 68 65 |tory and|.switche|
|000005e0| 73 20 64 6f 20 6e 6f 74 | 20 63 6f 6e 74 61 69 6e |s do not| contain|
|000005f0| 20 60 64 27 2c 20 73 6f | 20 74 68 61 74 20 61 20 | `d', so| that a |
|00000600| 66 75 6c 6c 20 6c 69 73 | 74 69 6e 67 20 69 73 20 |full lis|ting is |
|00000610| 65 78 70 65 63 74 65 64 | 2e 0a 0a 54 68 69 73 20 |expected|...This |
|00000620| 76 65 72 73 69 6f 6e 20 | 6f 66 20 74 68 65 20 66 |version |of the f|
|00000630| 75 6e 63 74 69 6f 6e 20 | 63 6f 6d 65 73 20 66 72 |unction |comes fr|
|00000640| 6f 6d 20 60 6c 73 2d 6c | 69 73 70 2e 65 6c 27 2e |om `ls-l|isp.el'.|
|00000650| 0a 49 74 20 64 6f 65 73 | 20 6e 6f 74 20 73 75 70 |.It does| not sup|
|00000660| 70 6f 72 74 20 6f 72 64 | 69 6e 61 72 79 20 73 68 |port ord|inary sh|
|00000670| 65 6c 6c 20 77 69 6c 64 | 63 61 72 64 73 3b 20 69 |ell wild|cards; i|
|00000680| 6e 73 74 65 61 64 2c 20 | 69 74 20 61 6c 6c 6f 77 |nstead, |it allow|
|00000690| 73 0a 72 65 67 75 6c 61 | 72 20 65 78 70 72 65 73 |s.regula|r expres|
|000006a0| 73 69 6f 6e 73 20 74 6f | 20 6d 61 74 63 68 20 66 |sions to| match f|
|000006b0| 69 6c 65 20 6e 61 6d 65 | 73 2e 0a 0a 54 68 65 20 |ile name|s...The |
|000006c0| 73 77 69 74 63 68 65 73 | 20 74 68 61 74 20 77 6f |switches| that wo|
|000006d0| 72 6b 20 61 72 65 3a 20 | 41 20 61 20 63 20 69 20 |rk are: |A a c i |
|000006e0| 72 20 53 20 73 20 74 20 | 75 22 5d 29 0a 28 62 79 |r S s t |u"]).(by|
|000006f0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 5c 22 88 c0 |te-code |"...\"..|
|00000700| c3 c4 5c 22 88 c0 c5 c6 | 5c 22 88 c0 c7 c8 5c 22 |..\"....|\"....\"|
|00000710| 88 c0 c9 ca 5c 22 88 c0 | cb cc 5c 22 88 cd ce 21 |....\"..|..\"...!|
|00000720| 87 22 20 5b 64 65 66 61 | 6c 69 61 73 20 6c 73 2d |." [defa|lias ls-|
|00000730| 6c 69 73 70 2d 64 65 6c | 65 74 65 2d 6d 61 74 63 |lisp-del|ete-matc|
|00000740| 68 69 6e 67 20 23 5b 28 | 72 65 67 65 78 70 20 6c |hing #[(|regexp l|
|00000750| 69 73 74 29 20 22 c0 19 | 5c 6e 83 1a 00 c3 0c 5c |ist) "..|\n.....\|
|00000760| 6e 40 5c 22 84 13 00 5c | 6e 40 09 42 11 5c 6e 41 |n@\"...\|n@.B.\nA|
|00000770| 89 12 84 06 00 09 29 87 | 22 20 5b 6e 69 6c 20 72 |......).|" [nil r|
|00000780| 65 73 75 6c 74 20 6c 69 | 73 74 20 73 74 72 69 6e |esult li|st strin|
|00000790| 67 2d 6d 61 74 63 68 20 | 72 65 67 65 78 70 5d 20 |g-match |regexp] |
|000007a0| 34 5d 20 6c 73 2d 6c 69 | 73 70 2d 68 61 6e 64 6c |4] ls-li|sp-handl|
|000007b0| 65 2d 73 77 69 74 63 68 | 65 73 20 23 5b 28 66 69 |e-switch|es #[(fi|
|000007c0| 6c 65 2d 61 6c 69 73 74 | 20 73 77 69 74 63 68 65 |le-alist| switche|
|000007d0| 73 29 20 22 c0 19 c2 0b | c4 0d 3e 83 0e 00 c6 82 |s) "....|..>.....|
|000007e0| 1d 00 c7 0d 3e 83 1c 00 | c8 0d 21 11 c9 82 1d 00 |....>...|..!.....|
|000007f0| ca 5c 22 13 29 cb 0d 3e | 83 29 00 0b 9f 13 0b 87 |.\".)..>|.)......|
|00000800| 22 20 5b 6e 69 6c 20 69 | 6e 64 65 78 20 73 6f 72 |" [nil i|ndex sor|
|00000810| 74 20 66 69 6c 65 2d 61 | 6c 69 73 74 20 38 33 20 |t file-a|list 83 |
|00000820| 73 77 69 74 63 68 65 73 | 20 23 5b 28 78 20 79 29 |switches| #[(x y)|
|00000830| 20 22 c0 09 41 38 c0 5c | 6e 41 38 57 87 22 20 5b | "..A8.\|nA8W." [|
|00000840| 37 20 79 20 78 5d 20 33 | 5d 20 31 31 36 20 6c 73 |7 y x] 3|] 116 ls|
|00000850| 2d 6c 69 73 70 2d 74 69 | 6d 65 2d 69 6e 64 65 78 |-lisp-ti|me-index|
|00000860| 20 23 5b 28 78 20 79 29 | 20 22 c0 09 5c 6e 41 38 | #[(x y)| "..\nA8|
|00000870| 09 0b 41 38 5c 22 87 22 | 20 5b 6c 73 2d 6c 69 73 |..A8\"."| [ls-lis|
|00000880| 70 2d 74 69 6d 65 2d 6c | 65 73 73 70 20 69 6e 64 |p-time-l|essp ind|
|00000890| 65 78 20 79 20 78 5d 20 | 34 5d 20 23 5b 28 78 20 |ex y x] |4] #[(x |
|000008a0| 79 29 20 22 08 40 09 40 | 99 87 22 20 5b 78 20 79 |y) ".@.@|.." [x y|
|000008b0| 5d 20 32 5d 20 31 31 34 | 5d 20 34 5d 20 6c 73 2d |] 2] 114|] 4] ls-|
|000008c0| 6c 69 73 70 2d 74 69 6d | 65 2d 6c 65 73 73 70 20 |lisp-tim|e-lessp |
|000008d0| 23 5b 28 74 69 6d 65 30 | 20 74 69 6d 65 31 29 20 |#[(time0| time1) |
|000008e0| 22 08 40 09 40 08 41 40 | 09 41 40 1a 1b 1c 89 1d |".@.@.A@|.A@.....|
|000008f0| 0c 57 86 1d 00 0d 0c 55 | 85 1d 00 0b 5c 6e 57 2c |.W.....U|....\nW,|
|00000900| 87 22 20 5b 74 69 6d 65 | 30 20 74 69 6d 65 31 20 |." [time|0 time1 |
|00000910| 6c 6f 31 20 6c 6f 30 20 | 68 69 31 20 68 69 30 5d |lo1 lo0 |hi1 hi0]|
|00000920| 20 35 5d 20 6c 73 2d 6c | 69 73 70 2d 66 6f 72 6d | 5] ls-l|isp-form|
|00000930| 61 74 20 23 5b 28 66 69 | 6c 65 2d 6e 61 6d 65 20 |at #[(fi|le-name |
|00000940| 66 69 6c 65 2d 61 74 74 | 72 20 26 6f 70 74 69 6f |file-att|r &optio|
|00000950| 6e 61 6c 20 73 77 69 74 | 63 68 65 73 29 20 22 08 |nal swit|ches) ".|
|00000960| 40 19 c2 0b 3e 85 0f 00 | c4 c5 c6 08 38 5c 22 c7 |@...>...|....8\".|
|00000970| 0b 3e 85 1e 00 c4 c8 c9 | 08 38 ca a5 54 5c 22 cb |.>......|.8..T\".|
|00000980| 08 38 c4 cc 08 41 40 cd | 20 ce 08 38 55 83 34 00 |.8...A@.| ..8U.4.|
|00000990| cf 20 82 37 00 ce 08 38 | 0e 10 d1 3d 83 42 00 d2 |. .7...8|...=.B..|
|000009a0| 82 45 00 d3 08 38 c9 08 | 38 25 d4 08 0b 5c 22 d5 |.E...8..|8%...\".|
|000009b0| 0e 16 09 3b 83 5b 00 d7 | 09 50 82 5c 5c 00 d8 d9 |...;.[..|.P.\\...|
|000009c0| b0 09 29 87 22 20 5b 66 | 69 6c 65 2d 61 74 74 72 |..)." [f|ile-attr|
|000009d0| 20 66 69 6c 65 2d 74 79 | 70 65 20 31 30 35 20 73 | file-ty|pe 105 s|
|000009e0| 77 69 74 63 68 65 73 20 | 66 6f 72 6d 61 74 20 22 |witches |format "|
|000009f0| 25 36 64 20 22 20 31 30 | 20 31 31 35 20 22 25 34 |%6d " 10| 115 "%4|
|00000a00| 64 20 22 20 37 20 31 30 | 32 34 20 38 20 22 20 25 |d " 7 10|24 8 " %|
|00000a10| 33 64 20 25 2d 38 64 20 | 25 2d 38 64 20 25 38 64 |3d %-8d |%-8d %8d|
|00000a20| 20 22 20 75 73 65 72 2d | 75 69 64 20 32 20 75 73 | " user-|uid 2 us|
|00000a30| 65 72 2d 6c 6f 67 69 6e | 2d 6e 61 6d 65 20 73 79 |er-login|-name sy|
|00000a40| 73 74 65 6d 2d 74 79 70 | 65 20 6d 73 2d 64 6f 73 |stem-typ|e ms-dos|
|00000a50| 20 22 72 6f 6f 74 22 20 | 33 20 6c 73 2d 6c 69 73 | "root" |3 ls-lis|
|00000a60| 70 2d 66 6f 72 6d 61 74 | 2d 74 69 6d 65 20 22 20 |p-format|-time " |
|00000a70| 22 20 66 69 6c 65 2d 6e | 61 6d 65 20 22 20 2d 3e |" file-n|ame " ->|
|00000a80| 20 22 20 22 22 20 22 5c | 6e 22 5d 20 31 30 5d 20 | " "" "\|n"] 10] |
|00000a90| 6c 73 2d 6c 69 73 70 2d | 74 69 6d 65 2d 69 6e 64 |ls-lisp-|time-ind|
|00000aa0| 65 78 20 23 5b 28 73 77 | 69 74 63 68 65 73 29 20 |ex #[(sw|itches) |
|00000ab0| 22 c0 09 3e 83 08 00 c2 | 87 c3 09 3e 83 10 00 c4 |"..>....|...>....|
|00000ac0| 87 c5 87 22 20 5b 39 39 | 20 73 77 69 74 63 68 65 |..." [99| switche|
|00000ad0| 73 20 36 20 31 31 37 20 | 34 20 35 5d 20 32 5d 20 |s 6 117 |4 5] 2] |
|00000ae0| 6c 73 2d 6c 69 73 70 2d | 66 6f 72 6d 61 74 2d 74 |ls-lisp-|format-t|
|00000af0| 69 6d 65 20 23 5b 28 66 | 69 6c 65 2d 61 74 74 72 |ime #[(f|ile-attr|
|00000b00| 20 73 77 69 74 63 68 65 | 73 29 20 22 c0 c1 c2 8f | switche|s) "....|
|00000b10| 87 22 20 5b 65 72 72 6f | 72 2d 64 61 74 61 20 28 |." [erro|r-data (|
|00000b20| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 5c 6e 21 |byte-cod|e "..\n!|
|00000b30| 0b 38 21 89 1c c5 c6 4f | 1e 07 0c c6 c8 4f 1e 09 |.8!....O|.....O..|
|00000b40| 0c ca cb 4f 89 1e 0c c0 | 20 ca cb 4f 9a 1e 0d 0e |...O....| ..O....|
|00000b50| 07 0e 0d 83 2f 00 0e 09 | 82 31 00 0e 0c 50 2d 87 |..../...|.1...P-.|
|00000b60| 22 20 5b 63 75 72 72 65 | 6e 74 2d 74 69 6d 65 2d |" [curre|nt-time-|
|00000b70| 73 74 72 69 6e 67 20 6c | 73 2d 6c 69 73 70 2d 74 |string l|s-lisp-t|
|00000b80| 69 6d 65 2d 69 6e 64 65 | 78 20 73 77 69 74 63 68 |ime-inde|x switch|
|00000b90| 65 73 20 66 69 6c 65 2d | 61 74 74 72 20 74 69 6d |es file-|attr tim|
|00000ba0| 65 20 34 20 31 31 20 64 | 61 74 65 20 31 36 20 63 |e 4 11 d|ate 16 c|
|00000bb0| 6c 6f 63 6b 20 31 39 20 | 32 34 20 79 65 61 72 20 |lock 19 |24 year |
|00000bc0| 73 61 6d 65 2d 79 65 61 | 72 5d 20 35 29 20 28 28 |same-yea|r] 5) ((|
|00000bd0| 65 72 72 6f 72 20 22 4a | 61 6e 20 30 30 20 30 30 |error "J|an 00 00|
|00000be0| 3a 30 30 22 29 29 5d 20 | 33 5d 20 70 72 6f 76 69 |:00"))] |3] provi|
|00000bf0| 64 65 20 6c 73 2d 6c 69 | 73 70 5d 20 33 29 0a    |de ls-li|sp] 3). |
+--------+-------------------------+-------------------------+--------+--------+