/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / dired / dired-ls.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 63 6f 6d 70 | 69 6c 65 64 20 62 79 20 |;;; comp|iled by |
|00000010| 6a 77 7a 40 74 68 61 6c | 69 64 6f 6d 69 64 65 20 |jwz@thal|idomide |
|00000020| 6f 6e 20 46 72 69 20 4f | 63 74 20 20 39 20 31 35 |on Fri O|ct  9 15|
|00000030| 3a 34 39 3a 35 37 20 31 | 39 39 32 0a 3b 3b 3b 20 |:49:57 1|992.;;; |
|00000040| 66 72 6f 6d 20 66 69 6c | 65 20 2f 63 61 64 69 6c |from fil|e /cadil|
|00000050| 6c 61 63 2d 74 68 2f 6a | 77 7a 2f 65 6d 61 63 73 |lac-th/j|wz/emacs|
|00000060| 31 39 2f 6c 69 73 70 2f | 64 69 72 65 64 2f 64 69 |19/lisp/|dired/di|
|00000070| 72 65 64 2d 6c 69 73 70 | 2e 65 6c 0a 3b 3b 3b 20 |red-lisp|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 33 2e 31 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |.3.1 Luc|id..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 32 2e 30 38 3b 20 32 | 37 2d 61 75 67 2d 39 32 | 2.08; 2|7-aug-92|
|000000c0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|000000d0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000e0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|000000f0| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000100| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000110| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000120| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000130| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000140| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000150| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000160| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000170| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000180| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|00000190| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001a0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001b0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001c0| 31 39 2e 22 29 29 0a 0a | 28 64 65 66 63 6f 6e 73 |19."))..|(defcons|
|000001d0| 74 20 64 69 72 65 64 2d | 6c 69 73 70 2d 76 65 72 |t dired-|lisp-ver|
|000001e0| 73 69 6f 6e 20 28 73 75 | 62 73 74 72 69 6e 67 20 |sion (su|bstring |
|000001f0| 22 21 52 65 76 69 73 69 | 6f 6e 3a 20 31 2e 38 20 |"!Revisi|on: 1.8 |
|00000200| 21 22 20 31 31 20 2d 32 | 29 20 22 5c 0a 21 49 64 |!" 11 -2|) "\.!Id|
|00000210| 3a 20 64 69 72 65 64 2d | 6c 69 73 70 2e 65 6c 2c |: dired-|lisp.el,|
|00000220| 76 20 31 2e 38 20 31 39 | 39 32 2f 30 35 2f 30 31 |v 1.8 19|92/05/01|
|00000230| 20 31 37 3a 35 30 3a 35 | 36 20 73 6b 20 45 78 70 | 17:50:5|6 sk Exp|
|00000240| 20 21 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | !").(by|te-code |
|00000250| 22 c0 c1 21 88 c2 c3 21 | ac 85 c3 c4 4b 4d 88 c4 |"..!...!|....KM..|
|00000260| c5 4d 87 22 20 5b 72 65 | 71 75 69 72 65 20 64 69 |.M." [re|quire di|
|00000270| 72 65 64 20 66 62 6f 75 | 6e 64 70 20 64 69 72 65 |red fbou|ndp dire|
|00000280| 64 2d 6c 69 73 70 2d 75 | 6e 69 78 2d 6c 73 20 64 |d-lisp-u|nix-ls d|
|00000290| 69 72 65 64 2d 6c 73 20 | 64 69 72 65 64 2d 6c 69 |ired-ls |dired-li|
|000002a0| 73 70 2d 6c 73 5d 20 32 | 29 0a 28 66 73 65 74 20 |sp-ls] 2|).(fset |
|000002b0| 27 64 69 72 65 64 2d 6c | 69 73 70 2d 6c 73 20 23 |'dired-l|isp-ls #|
|000002c0| 5b 28 66 69 6c 65 20 26 | 6f 70 74 69 6f 6e 61 6c |[(file &|optional|
|000002d0| 20 73 77 69 74 63 68 65 | 73 20 77 69 6c 64 63 61 | switche|s wildca|
|000002e0| 72 64 20 66 75 6c 6c 2d | 64 69 72 65 63 74 6f 72 |rd full-|director|
|000002f0| 79 2d 70 29 20 22 08 ac | 82 09 10 08 3a ac 85 c2 |y-p) "..|....:...|
|00000300| c3 08 5c 22 10 0c ab 8b | c5 0e 06 21 14 c7 0e 06 |..\"....|...!....|
|00000310| 21 16 06 0c ac 85 0e 08 | 83 ba 00 c9 0e 06 21 89 |!.......|......!.|
|00000320| 1e 5c 6e 1e 0b cc 1e 0d | ce 1e 0f d0 0e 5c 6e ce |.\n.....|.....\n.|
|00000330| 0c 23 1e 11 ce 1e 12 ce | 1e 13 ce 1e 14 d5 08 3e |.#......|.......>|
|00000340| ab 89 d6 d7 0e 11 5c 22 | 16 11 aa 8c d8 08 3e ac |......\"|......>.|
|00000350| 87 d6 d9 0e 11 5c 22 16 | 11 c2 da 0e 11 5c 22 16 |.....\".|.....\".|
|00000360| 12 db 63 88 dc 0e 12 08 | 5c 22 16 12 0e 12 ab ae |..c.....|\"......|
|00000370| 0e 12 40 89 16 0f 40 16 | 1d 0e 0f 41 16 14 0e 12 |..@...@.|...A....|
|00000380| 41 16 12 0e 5c 6e 0e 1d | 50 16 13 0e 0d de 0e 14 |A...\n..|P.......|
|00000390| 38 5c 5c 16 0d df 0e 1d | 0e 14 08 23 63 88 aa 4e |8\\.....|...#c..N|
|000003a0| 8a e0 e1 21 88 cc 95 62 | 88 e2 e3 21 88 e4 e5 0e |...!...b|...!....|
|000003b0| 0d e6 a5 54 5c 22 63 2e | 09 87 c5 0e 06 21 16 06 |...T\"c.|.....!..|
|000003c0| df 0e 06 e7 0e 06 21 08 | 23 63 87 22 20 5b 73 77 |......!.|#c." [sw|
|000003d0| 69 74 63 68 65 73 20 64 | 69 72 65 64 2d 6c 69 73 |itches d|ired-lis|
|000003e0| 74 69 6e 67 2d 73 77 69 | 74 63 68 65 73 20 6d 61 |ting-swi|tches ma|
|000003f0| 70 63 61 72 20 69 64 65 | 6e 74 69 74 79 20 77 69 |pcar ide|ntity wi|
|00000400| 6c 64 63 61 72 64 20 66 | 69 6c 65 2d 6e 61 6d 65 |ldcard f|ile-name|
|00000410| 2d 6e 6f 6e 64 69 72 65 | 63 74 6f 72 79 20 66 69 |-nondire|ctory fi|
|00000420| 6c 65 20 66 69 6c 65 2d | 6e 61 6d 65 2d 64 69 72 |le file-|name-dir|
|00000430| 65 63 74 6f 72 79 20 66 | 75 6c 6c 2d 64 69 72 65 |ectory f|ull-dire|
|00000440| 63 74 6f 72 79 2d 70 20 | 66 69 6c 65 2d 6e 61 6d |ctory-p |file-nam|
|00000450| 65 2d 61 73 2d 64 69 72 | 65 63 74 6f 72 79 20 64 |e-as-dir|ectory d|
|00000460| 69 72 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |ir defau|lt-direc|
|00000470| 74 6f 72 79 20 30 20 73 | 75 6d 20 6e 69 6c 20 65 |tory 0 s|um nil e|
|00000480| 6c 74 20 64 69 72 65 63 | 74 6f 72 79 2d 66 69 6c |lt direc|tory-fil|
|00000490| 65 73 20 66 69 6c 65 2d | 6c 69 73 74 20 66 69 6c |es file-|list fil|
|000004a0| 65 2d 61 6c 69 73 74 20 | 66 69 6c 20 61 74 74 72 |e-alist |fil attr|
|000004b0| 20 36 35 20 64 69 72 65 | 64 2d 6c 69 73 70 2d 64 | 65 dire|d-lisp-d|
|000004c0| 65 6c 65 74 65 2d 6d 61 | 74 63 68 69 6e 67 20 22 |elete-ma|tching "|
|000004d0| 5e 5c 5c 2e 5c 5c 2e 3f | 24 22 20 39 37 20 22 5e |^\\.\\.?|$" 97 "^|
|000004e0| 5c 5c 2e 22 20 23 5b 28 | 78 29 20 22 08 c1 c2 08 |\\." #[(|x) "....|
|000004f0| 21 21 42 87 22 20 5b 78 | 20 66 69 6c 65 2d 61 74 |!!B." [x| file-at|
|00000500| 74 72 69 62 75 74 65 73 | 20 65 78 70 61 6e 64 2d |tributes| expand-|
|00000510| 66 69 6c 65 2d 6e 61 6d | 65 5d 20 34 5d 20 22 74 |file-nam|e] 4] "t|
|00000520| 6f 74 61 6c 20 07 5c 6e | 22 20 64 69 72 65 64 2d |otal .\n|" dired-|
|00000530| 6c 69 73 70 2d 68 61 6e | 64 6c 65 2d 73 77 69 74 |lisp-han|dle-swit|
|00000540| 63 68 65 73 20 73 68 6f | 72 74 20 37 20 64 69 72 |ches sho|rt 7 dir|
|00000550| 65 64 2d 6c 69 73 70 2d | 66 6f 72 6d 61 74 20 73 |ed-lisp-|format s|
|00000560| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00000570| 74 6f 74 61 6c 20 07 22 | 20 64 65 6c 65 74 65 2d |total ."| delete-|
|00000580| 63 68 61 72 20 2d 31 20 | 66 6f 72 6d 61 74 20 22 |char -1 |format "|
|00000590| 25 64 22 20 31 30 32 34 | 20 66 69 6c 65 2d 61 74 |%d" 1024| file-at|
|000005a0| 74 72 69 62 75 74 65 73 | 5d 20 35 20 22 5c 0a 64 |tributes|] 5 "\.d|
|000005b0| 69 72 65 64 2d 6c 69 73 | 70 2e 65 6c 27 73 20 76 |ired-lis|p.el's v|
|000005c0| 65 72 73 69 6f 6e 20 6f | 66 20 64 69 72 65 64 2d |ersion o|f dired-|
|000005d0| 6c 73 2e 0a 4b 6e 6f 77 | 6e 20 73 77 69 74 63 68 |ls..Know|n switch|
|000005e0| 65 73 3a 20 41 20 61 20 | 53 20 72 20 69 20 73 20 |es: A a |S r i s |
|000005f0| 74 0a 49 6e 20 45 6d 61 | 63 73 20 31 39 2c 20 61 |t.In Ema|cs 19, a|
|00000600| 64 64 69 74 69 6f 6e 61 | 6c 20 6b 6e 6f 77 6e 20 |dditiona|l known |
|00000610| 73 77 69 74 63 68 65 73 | 20 61 72 65 3a 20 63 20 |switches| are: c |
|00000620| 75 0a 4f 74 68 65 72 73 | 20 61 72 65 20 69 67 6e |u.Others| are ign|
|00000630| 6f 72 65 64 2e 0a 0a 20 | 20 49 6e 73 65 72 74 20 |ored... | Insert |
|00000640| 6c 73 20 6f 75 74 70 75 | 74 20 6f 66 20 46 49 4c |ls outpu|t of FIL|
|00000650| 45 2c 20 6f 70 74 69 6f | 6e 61 6c 6c 79 20 66 6f |E, optio|nally fo|
|00000660| 72 6d 61 74 74 65 64 20 | 77 69 74 68 20 53 57 49 |rmatted |with SWI|
|00000670| 54 43 48 45 53 2e 0a 4f | 70 74 69 6f 6e 61 6c 20 |TCHES..O|ptional |
|00000680| 74 68 69 72 64 20 61 72 | 67 20 57 49 4c 44 43 41 |third ar|g WILDCA|
|00000690| 52 44 20 6d 65 61 6e 73 | 20 74 72 65 61 74 20 6e |RD means| treat n|
|000006a0| 6f 6e 2d 64 69 72 65 63 | 74 6f 72 79 20 70 61 72 |on-direc|tory par|
|000006b0| 74 20 6f 66 20 46 49 4c | 45 20 61 73 0a 65 6d 61 |t of FIL|E as.ema|
|000006c0| 63 73 20 72 65 67 65 78 | 70 20 28 5f 6e 6f 74 5f |cs regex|p (_not_|
|000006d0| 20 61 20 73 68 65 6c 6c | 20 77 69 6c 64 63 61 72 | a shell| wildcar|
|000006e0| 64 29 2e 20 20 49 66 20 | 79 6f 75 20 65 6e 74 65 |d).  If |you ente|
|000006f0| 72 20 72 65 67 65 78 70 | 73 20 72 65 6d 65 6d 62 |r regexp|s rememb|
|00000700| 65 72 0a 74 6f 20 64 6f | 75 62 6c 65 20 65 61 63 |er.to do|uble eac|
|00000710| 68 20 24 20 73 69 67 6e | 2e 0a 0a 4f 70 74 69 6f |h $ sign|...Optio|
|00000720| 6e 61 6c 20 66 6f 75 72 | 74 68 20 61 72 67 20 46 |nal four|th arg F|
|00000730| 55 4c 4c 2d 44 49 52 45 | 43 54 4f 52 59 2d 50 20 |ULL-DIRE|CTORY-P |
|00000740| 6d 65 61 6e 73 20 66 69 | 6c 65 20 69 73 20 61 20 |means fi|le is a |
|00000750| 64 69 72 65 63 74 6f 72 | 79 20 61 6e 64 0a 73 77 |director|y and.sw|
|00000760| 69 74 63 68 65 73 20 64 | 6f 20 6e 6f 74 20 63 6f |itches d|o not co|
|00000770| 6e 74 61 69 6e 20 60 64 | 27 2e 0a 0a 53 57 49 54 |ntain `d|'...SWIT|
|00000780| 43 48 45 53 20 64 65 66 | 61 75 6c 74 20 74 6f 20 |CHES def|ault to |
|00000790| 64 69 72 65 64 2d 6c 69 | 73 74 69 6e 67 2d 73 77 |dired-li|sting-sw|
|000007a0| 69 74 63 68 65 73 2e 22 | 5d 29 0a 28 62 79 74 65 |itches."|]).(byte|
|000007b0| 2d 63 6f 64 65 20 22 c0 | c1 4d 88 c2 c3 4d 88 c4 |-code ".|.M...M..|
|000007c0| c5 4d 88 c6 c7 4d 88 c8 | c9 4d 88 ca cb 4d 88 cc |.M...M..|.M...M..|
|000007d0| cd 21 87 22 20 5b 64 69 | 72 65 64 2d 6c 69 73 70 |.!." [di|red-lisp|
|000007e0| 2d 64 65 6c 65 74 65 2d | 6d 61 74 63 68 69 6e 67 |-delete-|matching|
|000007f0| 20 23 5b 28 72 65 67 65 | 78 70 20 6c 69 73 74 29 | #[(rege|xp list)|
|00000800| 20 22 c0 19 5c 6e ab 92 | c3 0c 5c 6e 40 5c 22 ac | "..\n..|..\n@\".|
|00000810| 85 5c 6e 40 09 42 11 5c | 6e 41 89 12 ac 6e 09 29 |.\n@.B.\|nA...n.)|
|00000820| 87 22 20 5b 6e 69 6c 20 | 72 65 73 75 6c 74 20 6c |." [nil |result l|
|00000830| 69 73 74 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |ist stri|ng-match|
|00000840| 20 72 65 67 65 78 70 5d | 20 34 5d 20 64 69 72 65 | regexp]| 4] dire|
|00000850| 64 2d 6c 69 73 70 2d 68 | 61 6e 64 6c 65 2d 73 77 |d-lisp-h|andle-sw|
|00000860| 69 74 63 68 65 73 20 23 | 5b 28 66 69 6c 65 2d 61 |itches #|[(file-a|
|00000870| 6c 69 73 74 20 73 77 69 | 74 63 68 65 73 29 20 22 |list swi|tches) "|
|00000880| c0 19 c2 0b c4 0d 3e ab | 83 c6 aa 8d c7 0d 3e ab |......>.|......>.|
|00000890| 87 c8 0d 21 11 c9 aa 81 | ca 5c 22 13 29 cb 0d 3e |...!....|.\".)..>|
|000008a0| ab 83 0b 9f 13 0b 87 22 | 20 5b 6e 69 6c 20 69 6e |......."| [nil in|
|000008b0| 64 65 78 20 73 6f 72 74 | 20 66 69 6c 65 2d 61 6c |dex sort| file-al|
|000008c0| 69 73 74 20 38 33 20 73 | 77 69 74 63 68 65 73 20 |ist 83 s|witches |
|000008d0| 23 5b 28 78 20 79 29 20 | 22 c0 09 41 38 c0 5c 6e |#[(x y) |"..A8.\n|
|000008e0| 41 38 57 87 22 20 5b 37 | 20 79 20 78 5d 20 33 5d |A8W." [7| y x] 3]|
|000008f0| 20 31 31 36 20 64 69 72 | 65 64 2d 6c 69 73 70 2d | 116 dir|ed-lisp-|
|00000900| 74 69 6d 65 2d 69 6e 64 | 65 78 20 23 5b 28 78 20 |time-ind|ex #[(x |
|00000910| 79 29 20 22 c0 09 5c 6e | 41 38 09 0b 41 38 5c 22 |y) "..\n|A8..A8\"|
|00000920| 87 22 20 5b 74 69 6d 65 | 2d 6c 65 73 73 70 20 69 |." [time|-lessp i|
|00000930| 6e 64 65 78 20 79 20 78 | 5d 20 34 5d 20 23 5b 28 |ndex y x|] 4] #[(|
|00000940| 78 20 79 29 20 22 08 40 | 09 40 99 87 22 20 5b 78 |x y) ".@|.@.." [x|
|00000950| 20 79 5d 20 32 5d 20 31 | 31 34 5d 20 34 5d 20 74 | y] 2] 1|14] 4] t|
|00000960| 69 6d 65 2d 6c 65 73 73 | 70 20 23 5b 28 74 69 6d |ime-less|p #[(tim|
|00000970| 65 30 20 74 69 6d 65 31 | 29 20 22 08 40 09 40 08 |e0 time1|) ".@.@.|
|00000980| 41 40 09 41 40 1a 1b 1c | 89 1d 0c 57 ae 88 0d 0c |A@.A@...|...W....|
|00000990| 55 ad 83 0b 5c 6e 57 2c | 87 22 20 5b 74 69 6d 65 |U...\nW,|." [time|
|000009a0| 30 20 74 69 6d 65 31 20 | 6c 6f 31 20 6c 6f 30 20 |0 time1 |lo1 lo0 |
|000009b0| 68 69 31 20 68 69 30 5d | 20 35 5d 20 64 69 72 65 |hi1 hi0]| 5] dire|
|000009c0| 64 2d 6c 69 73 70 2d 66 | 6f 72 6d 61 74 20 23 5b |d-lisp-f|ormat #[|
|000009d0| 28 66 69 6c 65 2d 6e 61 | 6d 65 20 66 69 6c 65 2d |(file-na|me file-|
|000009e0| 61 74 74 72 20 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |attr &op|tional s|
|000009f0| 77 69 74 63 68 65 73 29 | 20 22 08 40 19 c2 0b 3e |witches)| ".@...>|
|00000a00| ad 86 c4 c5 c6 08 38 5c | 22 c7 0b 3e ad 89 c4 c8 |......8\|"..>....|
|00000a10| c9 08 38 ca a5 54 5c 22 | cb 08 38 c4 cc 08 41 40 |..8..T\"|..8...A@|
|00000a20| cd 08 38 ce 08 38 c9 08 | 38 25 cf 08 0b 5c 22 d0 |..8..8..|8%...\".|
|00000a30| 0e 11 09 3b ab 85 d2 09 | 50 aa 81 d3 d4 b0 09 29 |...;....|P......)|
|00000a40| 87 22 20 5b 66 69 6c 65 | 2d 61 74 74 72 20 66 69 |." [file|-attr fi|
|00000a50| 6c 65 2d 74 79 70 65 20 | 31 30 35 20 73 77 69 74 |le-type |105 swit|
|00000a60| 63 68 65 73 20 66 6f 72 | 6d 61 74 20 22 25 36 64 |ches for|mat "%6d|
|00000a70| 20 22 20 31 30 20 31 31 | 35 20 22 25 34 64 20 22 | " 10 11|5 "%4d "|
|00000a80| 20 37 20 31 30 32 34 20 | 38 20 22 20 25 33 64 20 | 7 1024 |8 " %3d |
|00000a90| 25 2d 38 64 20 25 2d 38 | 64 20 25 38 64 20 22 20 |%-8d %-8|d %8d " |
|00000aa0| 32 20 33 20 64 69 72 65 | 64 2d 6c 69 73 70 2d 66 |2 3 dire|d-lisp-f|
|00000ab0| 6f 72 6d 61 74 2d 74 69 | 6d 65 20 22 20 22 20 66 |ormat-ti|me " " f|
|00000ac0| 69 6c 65 2d 6e 61 6d 65 | 20 22 20 2d 3e 20 22 20 |ile-name| " -> " |
|00000ad0| 22 22 20 22 5c 6e 22 5d | 20 31 30 5d 20 64 69 72 |"" "\n"]| 10] dir|
|00000ae0| 65 64 2d 6c 69 73 70 2d | 74 69 6d 65 2d 69 6e 64 |ed-lisp-|time-ind|
|00000af0| 65 78 20 23 5b 28 73 77 | 69 74 63 68 65 73 29 20 |ex #[(sw|itches) |
|00000b00| 22 c0 09 3e ab 82 c2 87 | c3 09 3e ab 82 c4 87 c5 |"..>....|..>.....|
|00000b10| 87 22 20 5b 39 39 20 73 | 77 69 74 63 68 65 73 20 |." [99 s|witches |
|00000b20| 36 20 31 31 37 20 34 20 | 35 5d 20 32 5d 20 64 69 |6 117 4 |5] 2] di|
|00000b30| 72 65 64 2d 6c 69 73 70 | 2d 66 6f 72 6d 61 74 2d |red-lisp|-format-|
|00000b40| 74 69 6d 65 20 23 5b 28 | 66 69 6c 65 2d 61 74 74 |time #[(|file-att|
|00000b50| 72 20 73 77 69 74 63 68 | 65 73 29 20 22 c0 c1 c2 |r switch|es) "...|
|00000b60| 8f 87 22 20 5b 65 72 72 | 6f 72 2d 64 61 74 61 20 |.." [err|or-data |
|00000b70| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 5c 6e |(byte-co|de "..\n|
|00000b80| 21 0b 38 21 89 1c c5 c6 | 4f 1e 07 0c c6 c8 4f 1e |!.8!....|O.....O.|
|00000b90| 09 0c ca cb 4f 89 1e 0c | c0 20 ca cb 4f 9a 1e 0d |....O...|. ..O...|
|00000ba0| 0e 07 0e 0d ab 84 0e 09 | aa 82 0e 0c 50 2d 87 22 |........|....P-."|
|00000bb0| 20 5b 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 73 | [curren|t-time-s|
|00000bc0| 74 72 69 6e 67 20 64 69 | 72 65 64 2d 6c 69 73 70 |tring di|red-lisp|
|00000bd0| 2d 74 69 6d 65 2d 69 6e | 64 65 78 20 73 77 69 74 |-time-in|dex swit|
|00000be0| 63 68 65 73 20 66 69 6c | 65 2d 61 74 74 72 20 74 |ches fil|e-attr t|
|00000bf0| 69 6d 65 20 34 20 31 31 | 20 64 61 74 65 20 31 36 |ime 4 11| date 16|
|00000c00| 20 63 6c 6f 63 6b 20 31 | 39 20 32 34 20 79 65 61 | clock 1|9 24 yea|
|00000c10| 72 20 73 61 6d 65 2d 79 | 65 61 72 5d 20 35 29 20 |r same-y|ear] 5) |
|00000c20| 28 28 65 72 72 6f 72 20 | 22 4a 61 6e 20 30 30 20 |((error |"Jan 00 |
|00000c30| 30 30 3a 30 30 22 29 29 | 5d 20 33 5d 20 70 72 6f |00:00"))|] 3] pro|
|00000c40| 76 69 64 65 20 64 69 72 | 65 64 2d 6c 69 73 70 5d |vide dir|ed-lisp]|
|00000c50| 20 32 29 0a             |                         | 2).    |        |
+--------+-------------------------+-------------------------+--------+--------+