home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 22.3 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 39 3a 32 | 37 20 31 39 39 35 0a 3b | 14:19:2|7 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 63 | 6c 2d 63 76 73 2f 63 6f |/lisp/pc|l-cvs/co|
|00000090| 6f 6b 69 65 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |okie.el.|;;; emac|
|000000a0| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 31 33 20 |s versio|n 19.13 |
|000000b0| 58 45 6d 61 63 73 20 4c | 75 63 69 64 2e 0a 3b 3b |XEmacs L|ucid..;;|
|000000c0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000d0| 6f 6e 20 32 2e 32 35 3b | 20 31 2d 53 65 70 2d 39 |on 2.25;| 1-Sep-9|
|000000e0| 34 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |4..;;; o|ptimizat|
|000000f0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000100| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000110| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000120| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000130| 73 20 31 38 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 18...(|if (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000150| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000170| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000180| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on).. |
|00000190| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 | (strin|g-lessp |
|000001a0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 31 |emacs-ve|rsion "1|
|000001b0| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))). | (error|
|000001c0| 20 22 54 68 69 73 20 66 | 69 6c 65 20 77 61 73 20 | "This f|ile was |
|000001d0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001e0| 63 73 20 31 39 2e 22 29 | 29 0a 0a 28 62 79 74 65 |cs 19.")|)..(byte|
|000001f0| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c2 c3 21 88 c4 |-code ".|.!...!..|
|00000200| c5 c6 c7 23 88 c5 c8 4d | 88 c4 c9 c6 ca 23 88 c9 |...#...M|.....#..|
|00000210| cb 4d 88 cc cd 4d 88 ce | cf 4d 88 d0 d1 4d 88 d2 |.M...M..|.M...M..|
|00000220| d3 4d 88 d4 d5 4d 88 d6 | d7 4d 88 d8 d9 4d 88 da |.M...M..|.M...M..|
|00000230| db 4d 88 dc dd 4d 88 de | df 4d 88 e0 e1 4d 88 e2 |.M...M..|.M...M..|
|00000240| e3 4d 88 e4 e5 4d 88 e6 | e7 4d 88 e8 e9 4d 88 ea |.M...M..|.M...M..|
|00000250| eb 4d 88 ec ed 4d 88 ee | ef 4d 88 f0 f1 4d 88 f2 |.M...M..|.M...M..|
|00000260| f3 4d 88 f4 f5 4d 88 f6 | f7 4d 88 f8 f9 4d 88 fa |.M...M..|.M...M..|
|00000270| fb 4d 87 22 20 5b 72 65 | 71 75 69 72 65 20 64 6c |.M." [re|quire dl|
|00000280| 6c 20 70 72 6f 76 69 64 | 65 20 63 6f 6f 6b 69 65 |l provid|e cookie|
|00000290| 20 70 75 74 20 69 63 6f | 6f 6b 69 65 2d 73 65 74 | put ico|okie-set|
|000002a0| 2d 62 75 66 66 65 72 2d | 62 69 6e 64 2d 64 6c 6c |-buffer-|bind-dll|
|000002b0| 20 6c 69 73 70 2d 69 6e | 64 65 6e 74 2d 68 6f 6f | lisp-in|dent-hoo|
|000002c0| 6b 20 31 20 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |k 1 (mac|ro . #[(|
|000002d0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 26 72 65 73 74 |collecti|on &rest|
|000002e0| 20 66 6f 72 6d 73 29 20 | 22 c0 c1 21 c0 c2 21 1b | forms) |"..!..!.|
|000002f0| 1c c5 0c c6 42 0b 0e 07 | 44 c8 c9 0b 44 44 45 ca |....B...|D...DDE.|
|00000300| cb 0b 44 44 cc cd 0e 0e | 42 ca 0c 44 45 46 2a 87 |..DD....|B..DEF*.|
|00000310| 22 20 5b 6d 61 6b 65 2d | 73 79 6d 62 6f 6c 20 22 |" [make-|symbol "|
|00000320| 6f 6c 64 2d 62 75 66 66 | 65 72 22 20 22 63 6f 6c |old-buff|er" "col|
|00000330| 6c 65 63 74 69 6f 6e 22 | 20 68 6e 64 20 6f 6c 64 |lection"| hnd old|
|00000340| 2d 62 75 66 66 65 72 20 | 6c 65 74 2a 20 28 28 63 |-buffer |let* ((c|
|00000350| 75 72 72 65 6e 74 2d 62 | 75 66 66 65 72 29 29 20 |urrent-b|uffer)) |
|00000360| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 64 6c 6c 20 69 |collecti|on dll i|
|00000370| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00000380| 6e 2d 3e 64 6c 6c 20 73 | 65 74 2d 62 75 66 66 65 |n->dll s|et-buffe|
|00000390| 72 20 69 63 6f 6f 6b 69 | 65 2d 63 6f 6c 6c 65 63 |r icooki|e-collec|
|000003a0| 74 69 6f 6e 2d 3e 62 75 | 66 66 65 72 20 75 6e 77 |tion->bu|ffer unw|
|000003b0| 69 6e 64 2d 70 72 6f 74 | 65 63 74 20 70 72 6f 67 |ind-prot|ect prog|
|000003c0| 6e 20 66 6f 72 6d 73 5d | 20 37 5d 29 20 69 63 6f |n forms]| 7]) ico|
|000003d0| 6f 6b 69 65 2d 73 65 74 | 2d 62 75 66 66 65 72 2d |okie-set|-buffer-|
|000003e0| 62 69 6e 64 2d 64 6c 6c | 2d 6c 65 74 2a 20 32 20 |bind-dll|-let* 2 |
|000003f0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 63 6f 6c 6c |(macro .| #[(coll|
|00000400| 65 63 74 69 6f 6e 20 76 | 61 72 6c 69 73 74 20 26 |ection v|arlist &|
|00000410| 72 65 73 74 20 66 6f 72 | 6d 73 29 20 22 c0 c1 21 |rest for|ms) "..!|
|00000420| c0 c2 21 1b 1c c5 0c c6 | 42 0b 0e 07 44 c8 c9 0b |..!.....|B...D...|
|00000430| 44 44 0e 5c 6e 42 42 42 | cb cc 0b 44 44 cd ce 0e |DD.\nBBB|...DD...|
|00000440| 0f 42 cb 0c 44 45 46 2a | 87 22 20 5b 6d 61 6b 65 |.B..DEF*|." [make|
|00000450| 2d 73 79 6d 62 6f 6c 20 | 22 6f 6c 64 2d 62 75 66 |-symbol |"old-buf|
|00000460| 66 65 72 22 20 22 63 6f | 6c 6c 65 63 74 69 6f 6e |fer" "co|llection|
|00000470| 22 20 68 6e 64 20 6f 6c | 64 2d 62 75 66 66 65 72 |" hnd ol|d-buffer|
|00000480| 20 6c 65 74 2a 20 28 28 | 63 75 72 72 65 6e 74 2d | let* ((|current-|
|00000490| 62 75 66 66 65 72 29 29 | 20 63 6f 6c 6c 65 63 74 |buffer))| collect|
|000004a0| 69 6f 6e 20 64 6c 6c 20 | 69 63 6f 6f 6b 69 65 2d |ion dll |icookie-|
|000004b0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 2d 3e 64 6c 6c 20 |collecti|on->dll |
|000004c0| 76 61 72 6c 69 73 74 20 | 73 65 74 2d 62 75 66 66 |varlist |set-buff|
|000004d0| 65 72 20 69 63 6f 6f 6b | 69 65 2d 63 6f 6c 6c 65 |er icook|ie-colle|
|000004e0| 63 74 69 6f 6e 2d 3e 62 | 75 66 66 65 72 20 75 6e |ction->b|uffer un|
|000004f0| 77 69 6e 64 2d 70 72 6f | 74 65 63 74 20 70 72 6f |wind-pro|tect pro|
|00000500| 67 6e 20 66 6f 72 6d 73 | 5d 20 37 5d 29 20 69 63 |gn forms|] 7]) ic|
|00000510| 6f 6f 6b 69 65 2d 66 69 | 6c 74 65 72 2d 68 66 20 |ookie-fi|lter-hf |
|00000520| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 63 6f 6c 6c |(macro .| #[(coll|
|00000530| 65 63 74 69 6f 6e 20 74 | 69 6e 29 20 22 c0 c1 21 |ection t|in) "..!|
|00000540| c0 c2 21 1b 1c c5 0c 0e | 06 44 0b 0e 07 44 44 c8 |..!.....|.D...DD.|
|00000550| c9 ca 0c cb 0b 44 45 ca | 0c cc 0b 44 45 45 cd 0c |.....DE.|...DEE..|
|00000560| 46 45 2a 87 22 20 5b 6d | 61 6b 65 2d 73 79 6d 62 |FE*." [m|ake-symb|
|00000570| 6f 6c 20 22 74 69 6e 22 | 20 22 74 6d 70 63 6f 6c |ol "tin"| "tmpcol|
|00000580| 6c 65 63 74 69 6f 6e 22 | 20 74 6d 70 63 6f 6c 6c |lection"| tmpcoll|
|00000590| 20 74 65 6d 70 76 61 72 | 20 6c 65 74 20 74 69 6e | tempvar| let tin|
|000005a0| 20 63 6f 6c 6c 65 63 74 | 69 6f 6e 20 69 66 20 6f | collect|ion if o|
|000005b0| 72 20 65 71 20 69 63 6f | 6f 6b 69 65 2d 63 6f 6c |r eq ico|okie-col|
|000005c0| 6c 65 63 74 69 6f 6e 2d | 3e 68 65 61 64 65 72 20 |lection-|>header |
|000005d0| 69 63 6f 6f 6b 69 65 2d | 63 6f 6c 6c 65 63 74 69 |icookie-|collecti|
|000005e0| 6f 6e 2d 3e 66 6f 6f 74 | 65 72 20 6e 69 6c 5d 20 |on->foot|er nil] |
|000005f0| 39 5d 29 20 69 63 6f 6f | 6b 69 65 2d 63 72 65 61 |9]) icoo|kie-crea|
|00000600| 74 65 2d 77 72 61 70 70 | 65 72 20 23 5b 28 73 74 |te-wrapp|er #[(st|
|00000610| 61 72 74 2d 6d 61 72 6b | 65 72 20 63 6f 6f 6b 69 |art-mark|er cooki|
|00000620| 65 29 20 22 c0 c1 5c 6e | 0b 5c 22 42 87 22 20 5b |e) "..\n|.\"B." [|
|00000630| 57 52 41 50 50 45 52 20 | 76 65 63 74 6f 72 20 73 |WRAPPER |vector s|
|00000640| 74 61 72 74 2d 6d 61 72 | 6b 65 72 20 63 6f 6f 6b |tart-mar|ker cook|
|00000650| 69 65 5d 20 34 5d 20 69 | 63 6f 6f 6b 69 65 2d 77 |ie] 4] i|cookie-w|
|00000660| 72 61 70 70 65 72 2d 3e | 73 74 61 72 74 2d 6d 61 |rapper->|start-ma|
|00000670| 72 6b 65 72 20 23 5b 28 | 77 72 61 70 70 65 72 29 |rker #[(|wrapper)|
|00000680| 20 22 08 41 c1 9c 87 22 | 20 5b 77 72 61 70 70 65 | ".A..."| [wrappe|
|00000690| 72 20 30 5d 20 32 5d 20 | 69 63 6f 6f 6b 69 65 2d |r 0] 2] |icookie-|
|000006a0| 77 72 61 70 70 65 72 2d | 3e 63 6f 6f 6b 69 65 2d |wrapper-|>cookie-|
|000006b0| 73 61 66 65 20 23 5b 28 | 77 72 61 70 70 65 72 29 |safe #[(|wrapper)|
|000006c0| 20 22 08 41 c1 9c 87 22 | 20 5b 77 72 61 70 70 65 | ".A..."| [wrappe|
|000006d0| 72 20 31 5d 20 32 5d 20 | 69 63 6f 6f 6b 69 65 2d |r 1] 2] |icookie-|
|000006e0| 77 72 61 70 70 65 72 2d | 3e 63 6f 6f 6b 69 65 20 |wrapper-|>cookie |
|000006f0| 23 5b 28 77 72 61 70 70 | 65 72 29 20 22 08 41 c1 |#[(wrapp|er) ".A.|
|00000700| 9c 87 22 20 5b 77 72 61 | 70 70 65 72 20 31 5d 20 |.." [wra|pper 1] |
|00000710| 32 5d 20 69 63 6f 6f 6b | 69 65 2d 63 72 65 61 74 |2] icook|ie-creat|
|00000720| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 20 23 5b 28 |e-collec|tion #[(|
|00000730| 62 75 66 66 65 72 20 70 | 72 65 74 74 79 2d 70 72 |buffer p|retty-pr|
|00000740| 69 6e 74 65 72 20 68 65 | 61 64 65 72 2d 77 72 61 |inter he|ader-wra|
|00000750| 70 70 65 72 20 66 6f 6f | 74 65 72 2d 77 72 61 70 |pper foo|ter-wrap|
|00000760| 70 65 72 20 64 6c 6c 29 | 20 22 c0 c1 5c 6e 0b 0c |per dll)| "..\n..|
|00000770| 0d 0e 06 c7 26 06 42 87 | 22 20 5b 43 4f 4c 4c 45 |....&.B.|" [COLLE|
|00000780| 43 54 49 4f 4e 20 76 65 | 63 74 6f 72 20 62 75 66 |CTION ve|ctor buf|
|00000790| 66 65 72 20 70 72 65 74 | 74 79 2d 70 72 69 6e 74 |fer pret|ty-print|
|000007a0| 65 72 20 68 65 61 64 65 | 72 2d 77 72 61 70 70 65 |er heade|r-wrappe|
|000007b0| 72 20 66 6f 6f 74 65 72 | 2d 77 72 61 70 70 65 72 |r footer|-wrapper|
|000007c0| 20 64 6c 6c 20 6e 69 6c | 5d 20 38 5d 20 69 63 6f | dll nil|] 8] ico|
|000007d0| 6f 6b 69 65 2d 63 6f 6c | 6c 65 63 74 69 6f 6e 2d |okie-col|lection-|
|000007e0| 3e 62 75 66 66 65 72 20 | 23 5b 28 63 6f 6c 6c 65 |>buffer |#[(colle|
|000007f0| 63 74 69 6f 6e 29 20 22 | 08 41 c1 9c 87 22 20 5b |ction) "|.A..." [|
|00000800| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 30 5d 20 32 5d |collecti|on 0] 2]|
|00000810| 20 69 63 6f 6f 6b 69 65 | 2d 63 6f 6c 6c 65 63 74 | icookie|-collect|
|00000820| 69 6f 6e 2d 3e 70 72 65 | 74 74 79 2d 70 72 69 6e |ion->pre|tty-prin|
|00000830| 74 65 72 20 23 5b 28 63 | 6f 6c 6c 65 63 74 69 6f |ter #[(c|ollectio|
|00000840| 6e 29 20 22 08 41 c1 9c | 87 22 20 5b 63 6f 6c 6c |n) ".A..|." [coll|
|00000850| 65 63 74 69 6f 6e 20 31 | 5d 20 32 5d 20 69 63 6f |ection 1|] 2] ico|
|00000860| 6f 6b 69 65 2d 63 6f 6c | 6c 65 63 74 69 6f 6e 2d |okie-col|lection-|
|00000870| 3e 68 65 61 64 65 72 20 | 23 5b 28 63 6f 6c 6c 65 |>header |#[(colle|
|00000880| 63 74 69 6f 6e 29 20 22 | 08 41 c1 9c 87 22 20 5b |ction) "|.A..." [|
|00000890| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 32 5d 20 32 5d |collecti|on 2] 2]|
|000008a0| 20 69 63 6f 6f 6b 69 65 | 2d 63 6f 6c 6c 65 63 74 | icookie|-collect|
|000008b0| 69 6f 6e 2d 3e 66 6f 6f | 74 65 72 20 23 5b 28 63 |ion->foo|ter #[(c|
|000008c0| 6f 6c 6c 65 63 74 69 6f | 6e 29 20 22 08 41 c1 9c |ollectio|n) ".A..|
|000008d0| 87 22 20 5b 63 6f 6c 6c | 65 63 74 69 6f 6e 20 33 |." [coll|ection 3|
|000008e0| 5d 20 32 5d 20 69 63 6f | 6f 6b 69 65 2d 63 6f 6c |] 2] ico|okie-col|
|000008f0| 6c 65 63 74 69 6f 6e 2d | 3e 64 6c 6c 20 23 5b 28 |lection-|>dll #[(|
|00000900| 63 6f 6c 6c 65 63 74 69 | 6f 6e 29 20 22 08 41 c1 |collecti|on) ".A.|
|00000910| 9c 87 22 20 5b 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |.." [col|lection |
|00000920| 34 5d 20 32 5d 20 69 63 | 6f 6f 6b 69 65 2d 63 6f |4] 2] ic|ookie-co|
|00000930| 6c 6c 65 63 74 69 6f 6e | 2d 3e 6c 61 73 74 2d 74 |llection|->last-t|
|00000940| 69 6e 20 23 5b 28 63 6f | 6c 6c 65 63 74 69 6f 6e |in #[(co|llection|
|00000950| 29 20 22 08 41 c1 9c 87 | 22 20 5b 63 6f 6c 6c 65 |) ".A...|" [colle|
|00000960| 63 74 69 6f 6e 20 35 5d | 20 32 5d 20 69 63 6f 6f |ction 5]| 2] icoo|
|00000970| 6b 69 65 2d 73 65 74 2d | 63 6f 6c 6c 65 63 74 69 |kie-set-|collecti|
|00000980| 6f 6e 2d 3e 62 75 66 66 | 65 72 20 23 5b 28 63 6f |on->buff|er #[(co|
|00000990| 6c 6c 65 63 74 69 6f 6e | 20 62 75 66 66 65 72 29 |llection| buffer)|
|000009a0| 20 22 08 41 c1 5c 6e 49 | 87 22 20 5b 63 6f 6c 6c | ".A.\nI|." [coll|
|000009b0| 65 63 74 69 6f 6e 20 30 | 20 62 75 66 66 65 72 5d |ection 0| buffer]|
|000009c0| 20 33 5d 20 69 63 6f 6f | 6b 69 65 2d 73 65 74 2d | 3] icoo|kie-set-|
|000009d0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 2d 3e 70 72 65 74 |collecti|on->pret|
|000009e0| 74 79 2d 70 72 69 6e 74 | 65 72 20 23 5b 28 63 6f |ty-print|er #[(co|
|000009f0| 6c 6c 65 63 74 69 6f 6e | 20 70 72 65 74 74 79 2d |llection| pretty-|
|00000a00| 70 72 69 6e 74 65 72 29 | 20 22 08 41 c1 5c 6e 49 |printer)| ".A.\nI|
|00000a10| 87 22 20 5b 63 6f 6c 6c | 65 63 74 69 6f 6e 20 31 |." [coll|ection 1|
|00000a20| 20 70 72 65 74 74 79 2d | 70 72 69 6e 74 65 72 5d | pretty-|printer]|
|00000a30| 20 33 5d 20 69 63 6f 6f | 6b 69 65 2d 73 65 74 2d | 3] icoo|kie-set-|
|00000a40| 63 6f 6c 6c 65 63 74 69 | 6f 6e 2d 3e 68 65 61 64 |collecti|on->head|
|00000a50| 65 72 20 23 5b 28 63 6f | 6c 6c 65 63 74 69 6f 6e |er #[(co|llection|
|00000a60| 20 68 65 61 64 65 72 29 | 20 22 08 41 c1 5c 6e 49 | header)| ".A.\nI|
|00000a70| 87 22 20 5b 63 6f 6c 6c | 65 63 74 69 6f 6e 20 32 |." [coll|ection 2|
|00000a80| 20 68 65 61 64 65 72 5d | 20 33 5d 20 69 63 6f 6f | header]| 3] icoo|
|00000a90| 6b 69 65 2d 73 65 74 2d | 63 6f 6c 6c 65 63 74 69 |kie-set-|collecti|
|00000aa0| 6f 6e 2d 3e 66 6f 6f 74 | 65 72 20 23 5b 28 63 6f |on->foot|er #[(co|
|00000ab0| 6c 6c 65 63 74 69 6f 6e | 20 66 6f 6f 74 65 72 29 |llection| footer)|
|00000ac0| 20 22 08 41 c1 5c 6e 49 | 87 22 20 5b 63 6f 6c 6c | ".A.\nI|." [coll|
|00000ad0| 65 63 74 69 6f 6e 20 33 | 20 66 6f 6f 74 65 72 5d |ection 3| footer]|
|00000ae0| 20 33 5d 20 69 63 6f 6f | 6b 69 65 2d 73 65 74 2d | 3] icoo|kie-set-|
|00000af0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 2d 3e 64 6c 6c 20 |collecti|on->dll |
|00000b00| 23 5b 28 63 6f 6c 6c 65 | 63 74 69 6f 6e 20 64 6c |#[(colle|ction dl|
|00000b10| 6c 29 20 22 08 41 c1 5c | 6e 49 87 22 20 5b 63 6f |l) ".A.\|nI." [co|
|00000b20| 6c 6c 65 63 74 69 6f 6e | 20 34 20 64 6c 6c 5d 20 |llection| 4 dll] |
|00000b30| 33 5d 20 69 63 6f 6f 6b | 69 65 2d 73 65 74 2d 63 |3] icook|ie-set-c|
|00000b40| 6f 6c 6c 65 63 74 69 6f | 6e 2d 3e 6c 61 73 74 2d |ollectio|n->last-|
|00000b50| 74 69 6e 20 23 5b 28 63 | 6f 6c 6c 65 63 74 69 6f |tin #[(c|ollectio|
|00000b60| 6e 20 6c 61 73 74 2d 74 | 69 6e 29 20 22 08 41 c1 |n last-t|in) ".A.|
|00000b70| 5c 6e 49 87 22 20 5b 63 | 6f 6c 6c 65 63 74 69 6f |\nI." [c|ollectio|
|00000b80| 6e 20 35 20 6c 61 73 74 | 2d 74 69 6e 5d 20 33 5d |n 5 last|-tin] 3]|
|00000b90| 20 69 63 6f 6f 6b 69 65 | 2d 61 62 73 20 23 5b 28 | icookie|-abs #[(|
|00000ba0| 78 29 20 22 08 89 5b 5d | 87 22 20 5b 78 5d 20 32 |x) "..[]|." [x] 2|
|00000bb0| 5d 20 69 63 6f 6f 6b 69 | 65 2d 63 72 65 61 74 65 |] icooki|e-create|
|00000bc0| 2d 77 72 61 70 70 65 72 | 2d 61 6e 64 2d 69 6e 73 |-wrapper|-and-ins|
|00000bd0| 65 72 74 20 23 5b 28 63 | 6f 6f 6b 69 65 20 73 74 |ert #[(c|ookie st|
|00000be0| 72 69 6e 67 20 70 6f 73 | 29 20 22 8a 08 62 88 c1 |ring pos|) "..b..|
|00000bf0| 08 21 ab 85 c2 08 21 aa | 81 08 c3 1c 1d c6 0e 07 |.!....!.|........|
|00000c00| 21 88 c6 c8 21 88 c9 ca | 0d 21 0e 0b 5c 22 2b 87 |!...!...|.!..\"+.|
|00000c10| 22 20 5b 70 6f 73 20 6d | 61 72 6b 65 72 70 20 6d |" [pos m|arkerp m|
|00000c20| 61 72 6b 65 72 2d 70 6f | 73 69 74 69 6f 6e 20 6e |arker-po|sition n|
|00000c30| 69 6c 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |il buffe|r-read-o|
|00000c40| 6e 6c 79 20 73 74 61 72 | 74 20 69 6e 73 65 72 74 |nly star|t insert|
|00000c50| 2d 62 65 66 6f 72 65 2d | 6d 61 72 6b 65 72 73 20 |-before-|markers |
|00000c60| 73 74 72 69 6e 67 20 31 | 30 20 69 63 6f 6f 6b 69 |string 1|0 icooki|
|00000c70| 65 2d 63 72 65 61 74 65 | 2d 77 72 61 70 70 65 72 |e-create|-wrapper|
|00000c80| 20 63 6f 70 79 2d 6d 61 | 72 6b 65 72 20 63 6f 6f | copy-ma|rker coo|
|00000c90| 6b 69 65 5d 20 33 5d 20 | 69 63 6f 6f 6b 69 65 2d |kie] 3] |icookie-|
|00000ca0| 63 72 65 61 74 65 2d 77 | 72 61 70 70 65 72 2d 61 |create-w|rapper-a|
|00000cb0| 6e 64 2d 70 72 65 74 74 | 79 2d 70 72 69 6e 74 20 |nd-prett|y-print |
|00000cc0| 23 5b 28 63 6f 6f 6b 69 | 65 20 70 72 65 74 74 79 |#[(cooki|e pretty|
|00000cd0| 2d 70 72 69 6e 74 65 72 | 20 70 6f 73 29 20 22 8a |-printer| pos) ".|
|00000ce0| 08 62 88 c1 08 21 ab 85 | c2 08 21 aa 81 08 c3 1c |.b...!..|..!.....|
|00000cf0| 1d c6 c7 21 88 c8 c9 21 | 88 0e 5c 6e 0e 0b 21 88 |...!...!|..\n..!.|
|00000d00| cc cd 0d 21 0e 0b 5c 22 | 2b 87 22 20 5b 70 6f 73 |...!..\"|+." [pos|
|00000d10| 20 6d 61 72 6b 65 72 70 | 20 6d 61 72 6b 65 72 2d | markerp| marker-|
|00000d20| 70 6f 73 69 74 69 6f 6e | 20 6e 69 6c 20 62 75 66 |position| nil buf|
|00000d30| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 73 74 |fer-read|-only st|
|00000d40| 61 72 74 20 69 6e 73 65 | 72 74 2d 62 65 66 6f 72 |art inse|rt-befor|
|00000d50| 65 2d 6d 61 72 6b 65 72 | 73 20 31 30 20 62 61 63 |e-marker|s 10 bac|
|00000d60| 6b 77 61 72 64 2d 63 68 | 61 72 20 31 20 70 72 65 |kward-ch|ar 1 pre|
|00000d70| 74 74 79 2d 70 72 69 6e | 74 65 72 20 63 6f 6f 6b |tty-prin|ter cook|
|00000d80| 69 65 20 69 63 6f 6f 6b | 69 65 2d 63 72 65 61 74 |ie icook|ie-creat|
|00000d90| 65 2d 77 72 61 70 70 65 | 72 20 63 6f 70 79 2d 6d |e-wrappe|r copy-m|
|00000da0| 61 72 6b 65 72 5d 20 33 | 5d 20 69 63 6f 6f 6b 69 |arker] 3|] icooki|
|00000db0| 65 2d 64 65 6c 65 74 65 | 2d 74 69 6e 2d 69 6e 74 |e-delete|-tin-int|
|00000dc0| 65 72 6e 61 6c 20 23 5b | 28 63 6f 6c 6c 65 63 74 |ernal #[|(collect|
|00000dd0| 69 6f 6e 20 74 69 6e 29 | 20 22 c0 09 21 c2 1b 1c |ion tin)| "..!...|
|00000de0| c5 09 21 0e 06 3d ab 85 | c7 09 c2 5c 22 88 c8 0e |..!..=..|...\"...|
|00000df0| 06 c9 48 21 c8 ca 0c 0e | 06 5c 22 c9 48 21 7c 88 |..H!....|.\".H!|.|
|00000e00| c8 0e 06 c9 48 21 c2 89 | 93 88 cb 0c 0e 06 5c 22 |....H!..|......\"|
|00000e10| 2a 87 22 20 5b 69 63 6f | 6f 6b 69 65 2d 63 6f 6c |*." [ico|okie-col|
|00000e20| 6c 65 63 74 69 6f 6e 2d | 3e 64 6c 6c 20 63 6f 6c |lection-|>dll col|
|00000e30| 6c 65 63 74 69 6f 6e 20 | 6e 69 6c 20 62 75 66 66 |lection |nil buff|
|00000e40| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 64 6c 6c |er-read-|only dll|
|00000e50| 20 69 63 6f 6f 6b 69 65 | 2d 63 6f 6c 6c 65 63 74 | icookie|-collect|
|00000e60| 69 6f 6e 2d 3e 6c 61 73 | 74 2d 74 69 6e 20 74 69 |ion->las|t-tin ti|
|00000e70| 6e 20 69 63 6f 6f 6b 69 | 65 2d 73 65 74 2d 63 6f |n icooki|e-set-co|
|00000e80| 6c 6c 65 63 74 69 6f 6e | 2d 3e 6c 61 73 74 2d 74 |llection|->last-t|
|00000e90| 69 6e 20 69 63 6f 6f 6b | 69 65 2d 77 72 61 70 70 |in icook|ie-wrapp|
|00000ea0| 65 72 2d 3e 73 74 61 72 | 74 2d 6d 61 72 6b 65 72 |er->star|t-marker|
|00000eb0| 20 32 20 64 6c 6c 2d 6e | 65 78 74 20 64 6c 6c 2d | 2 dll-n|ext dll-|
|00000ec0| 64 65 6c 65 74 65 5d 20 | 35 5d 20 69 63 6f 6f 6b |delete] |5] icook|
|00000ed0| 69 65 2d 72 65 66 72 65 | 73 68 2d 74 69 6e 20 23 |ie-refre|sh-tin #|
|00000ee0| 5b 28 63 6f 6c 6c 65 63 | 74 69 6f 6e 20 74 69 6e |[(collec|tion tin|
|00000ef0| 29 20 22 c0 19 8a c2 0b | c4 48 21 c5 c2 c6 0e 07 |) ".....|.H!.....|
|00000f00| 0b 5c 22 c4 48 21 21 53 | 7c 88 c2 0b c4 48 21 62 |.\".H!!S||....H!b|
|00000f10| 88 c8 0e 09 21 ca 0b c4 | 48 21 21 2a 87 22 20 5b |....!...|H!!*." [|
|00000f20| 6e 69 6c 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |nil buff|er-read-|
|00000f30| 6f 6e 6c 79 20 69 63 6f | 6f 6b 69 65 2d 77 72 61 |only ico|okie-wra|
|00000f40| 70 70 65 72 2d 3e 73 74 | 61 72 74 2d 6d 61 72 6b |pper->st|art-mark|
|00000f50| 65 72 20 74 69 6e 20 32 | 20 6d 61 72 6b 65 72 2d |er tin 2| marker-|
|00000f60| 70 6f 73 69 74 69 6f 6e | 20 64 6c 6c 2d 6e 65 78 |position| dll-nex|
|00000f70| 74 20 64 6c 6c 20 69 63 | 6f 6f 6b 69 65 2d 63 6f |t dll ic|ookie-co|
|00000f80| 6c 6c 65 63 74 69 6f 6e | 2d 3e 70 72 65 74 74 79 |llection|->pretty|
|00000f90| 2d 70 72 69 6e 74 65 72 | 20 63 6f 6c 6c 65 63 74 |-printer| collect|
|00000fa0| 69 6f 6e 20 69 63 6f 6f | 6b 69 65 2d 77 72 61 70 |ion icoo|kie-wrap|
|00000fb0| 70 65 72 2d 3e 63 6f 6f | 6b 69 65 5d 20 36 5d 20 |per->coo|kie] 6] |
|00000fc0| 69 63 6f 6f 6b 69 65 2d | 70 6f 73 2d 62 65 66 6f |icookie-|pos-befo|
|00000fd0| 72 65 2d 6d 69 64 64 6c | 65 2d 70 20 23 5b 28 63 |re-middl|e-p #[(c|
|00000fe0| 6f 6c 6c 65 63 74 69 6f | 6e 20 70 6f 73 20 74 69 |ollectio|n pos ti|
|00000ff0| 6e 31 20 74 69 6e 32 29 | 20 22 c0 09 21 1a 0b c4 |n1 tin2)| "..!...|
|00001000| 0d c6 48 21 c4 0e 07 c6 | 48 21 5c 5c c6 a5 57 29 |..H!....|H!\\..W)|
|00001010| 87 22 20 5b 69 63 6f 6f | 6b 69 65 2d 63 6f 6c 6c |." [icoo|kie-coll|
|00001020| 65 63 74 69 6f 6e 2d 3e | 64 6c 6c 20 63 6f 6c 6c |ection->|dll coll|
|00001030| 65 63 74 69 6f 6e 20 64 | 6c 6c 20 70 6f 73 20 69 |ection d|ll pos i|
|00001040| 63 6f 6f 6b 69 65 2d 77 | 72 61 70 70 65 72 2d 3e |cookie-w|rapper->|
|00001050| 73 74 61 72 74 2d 6d 61 | 72 6b 65 72 20 74 69 6e |start-ma|rker tin|
|00001060| 31 20 32 20 74 69 6e 32 | 5d 20 35 5d 5d 20 34 29 |1 2 tin2|] 5]] 4)|
|00001070| 0a 28 66 73 65 74 20 27 | 63 6f 6c 6c 65 63 74 69 |.(fset '|collecti|
|00001080| 6f 6e 2d 63 72 65 61 74 | 65 20 23 5b 28 62 75 66 |on-creat|e #[(buf|
|00001090| 66 65 72 20 70 72 65 74 | 74 79 2d 70 72 69 6e 74 |fer pret|ty-print|
|000010a0| 65 72 20 26 6f 70 74 69 | 6f 6e 61 6c 20 68 65 61 |er &opti|onal hea|
|000010b0| 64 65 72 20 66 6f 6f 74 | 65 72 20 70 6f 73 29 20 |der foot|er pos) |
|000010c0| 22 c0 c1 5c 6e 21 0b c4 | 89 c5 20 25 1e 06 70 1e |"..\n!..|.. %..p.|
|000010d0| 07 0e 06 1e 08 c9 0e 08 | 21 1e 5c 6e cb 0e 08 21 |........|!.\n...!|
|000010e0| 71 88 cc 8e 0e 0d ac 83 | ce 16 0d 0e 0f ac 83 ce |q.......|........|
|000010f0| 16 0f 0e 10 ac 85 65 16 | 10 aa 8e d1 0e 10 21 ab |......e.|......!.|
|00001100| 88 0e 10 d2 0e 10 21 4c | 88 d3 0e 0f 89 0e 10 23 |......!L|.......#|
|00001110| d3 0e 0d 89 0e 10 23 1e | 14 1e 15 d6 0e 5c 6e 0e |......#.|.....\n.|
|00001120| 14 5c 22 88 d7 0e 5c 6e | 0e 15 5c 22 88 d8 0e 06 |.\"...\n|..\"....|
|00001130| d9 0e 5c 6e da 5c 22 5c | 22 88 db 0e 06 d9 0e 5c |..\n.\"\|"......\|
|00001140| 6e dc 5c 22 5c 22 88 2e | 06 0e 06 29 87 22 20 5b |n.\"\"..|...)." [|
|00001150| 69 63 6f 6f 6b 69 65 2d | 63 72 65 61 74 65 2d 63 |icookie-|create-c|
|00001160| 6f 6c 6c 65 63 74 69 6f | 6e 20 67 65 74 2d 62 75 |ollectio|n get-bu|
|00001170| 66 66 65 72 2d 63 72 65 | 61 74 65 20 62 75 66 66 |ffer-cre|ate buff|
|00001180| 65 72 20 70 72 65 74 74 | 79 2d 70 72 69 6e 74 65 |er prett|y-printe|
|00001190| 72 20 6e 69 6c 20 64 6c | 6c 2d 63 72 65 61 74 65 |r nil dl|l-create|
|000011a0| 20 6e 65 77 2d 63 6f 6c | 6c 65 63 74 69 6f 6e 20 | new-col|lection |
|000011b0| 6f 6c 64 2d 62 75 66 66 | 65 72 20 63 6f 6c 6c 65 |old-buff|er colle|
|000011c0| 63 74 69 6f 6e 20 69 63 | 6f 6f 6b 69 65 2d 63 6f |ction ic|ookie-co|
|000011d0| 6c 6c 65 63 74 69 6f 6e | 2d 3e 64 6c 6c 20 64 6c |llection|->dll dl|
|000011e0| 6c 20 69 63 6f 6f 6b 69 | 65 2d 63 6f 6c 6c 65 63 |l icooki|e-collec|
|000011f0| 74 69 6f 6e 2d 3e 62 75 | 66 66 65 72 20 28 28 73 |tion->bu|ffer ((s|
|00001200| 65 74 2d 62 75 66 66 65 | 72 20 6f 6c 64 2d 62 75 |et-buffe|r old-bu|
|00001210| 66 66 65 72 29 29 20 68 | 65 61 64 65 72 20 22 22 |ffer)) h|eader ""|
|00001220| 20 66 6f 6f 74 65 72 20 | 70 6f 73 20 6d 61 72 6b | footer |pos mark|
|00001230| 65 72 70 20 6d 61 72 6b | 65 72 2d 70 6f 73 69 74 |erp mark|er-posit|
|00001240| 69 6f 6e 20 69 63 6f 6f | 6b 69 65 2d 63 72 65 61 |ion icoo|kie-crea|
|00001250| 74 65 2d 77 72 61 70 70 | 65 72 2d 61 6e 64 2d 69 |te-wrapp|er-and-i|
|00001260| 6e 73 65 72 74 20 68 65 | 61 64 20 66 6f 6f 74 20 |nsert he|ad foot |
|00001270| 64 6c 6c 2d 65 6e 74 65 | 72 2d 66 69 72 73 74 20 |dll-ente|r-first |
|00001280| 64 6c 6c 2d 65 6e 74 65 | 72 2d 6c 61 73 74 20 69 |dll-ente|r-last i|
|00001290| 63 6f 6f 6b 69 65 2d 73 | 65 74 2d 63 6f 6c 6c 65 |cookie-s|et-colle|
|000012a0| 63 74 69 6f 6e 2d 3e 68 | 65 61 64 65 72 20 64 6c |ction->h|eader dl|
|000012b0| 6c 2d 6e 74 68 20 30 20 | 69 63 6f 6f 6b 69 65 2d |l-nth 0 |icookie-|
|000012c0| 73 65 74 2d 63 6f 6c 6c | 65 63 74 69 6f 6e 2d 3e |set-coll|ection->|
|000012d0| 66 6f 6f 74 65 72 20 2d | 31 5d 20 36 20 22 5c 0a |footer -|1] 6 "\.|
|000012e0| 43 72 65 61 74 65 20 61 | 6e 20 65 6d 70 74 79 20 |Create a|n empty |
|000012f0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 6f 66 20 63 6f |collecti|on of co|
|00001300| 6f 6b 69 65 73 2e 0a 41 | 72 67 73 3a 20 42 55 46 |okies..A|rgs: BUF|
|00001310| 46 45 52 20 50 52 45 54 | 54 59 2d 50 52 49 4e 54 |FER PRET|TY-PRINT|
|00001320| 45 52 20 26 6f 70 74 69 | 6f 6e 61 6c 20 48 45 41 |ER &opti|onal HEA|
|00001330| 44 45 52 20 46 4f 4f 54 | 45 52 20 50 4f 53 2e 0a |DER FOOT|ER POS..|
|00001340| 0a 54 68 65 20 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |.The col|lection |
|00001350| 77 69 6c 6c 20 62 65 20 | 69 6e 73 65 72 74 65 64 |will be |inserted|
|00001360| 20 69 6e 20 42 55 46 46 | 45 52 2e 20 42 55 46 46 | in BUFF|ER. BUFF|
|00001370| 45 52 20 6d 61 79 20 62 | 65 20 61 0a 62 75 66 66 |ER may b|e a.buff|
|00001380| 65 72 20 6f 72 20 61 20 | 62 75 66 66 65 72 20 6e |er or a |buffer n|
|00001390| 61 6d 65 2e 20 49 74 20 | 69 73 20 63 72 65 61 74 |ame. It |is creat|
|000013a0| 65 64 20 69 66 20 69 74 | 20 64 6f 65 73 20 6e 6f |ed if it| does no|
|000013b0| 74 20 65 78 69 73 74 2e | 0a 0a 50 52 45 54 54 59 |t exist.|..PRETTY|
|000013c0| 2d 50 52 49 4e 54 45 52 | 20 73 68 6f 75 6c 64 20 |-PRINTER| should |
|000013d0| 62 65 20 61 20 66 75 6e | 63 74 69 6f 6e 20 74 68 |be a fun|ction th|
|000013e0| 61 74 20 74 61 6b 65 73 | 20 6f 6e 65 20 61 72 67 |at takes| one arg|
|000013f0| 75 6d 65 6e 74 2c 20 61 | 0a 63 6f 6f 6b 69 65 2c |ument, a|.cookie,|
|00001400| 20 61 6e 64 20 69 6e 73 | 65 72 74 73 20 61 20 73 | and ins|erts a s|
|00001410| 74 72 69 6e 67 20 72 65 | 70 72 65 73 65 6e 74 69 |tring re|presenti|
|00001420| 6e 67 20 69 74 20 69 6e | 20 74 68 65 20 62 75 66 |ng it in| the buf|
|00001430| 66 65 72 20 28 61 74 0a | 70 6f 69 6e 74 29 2e 20 |fer (at.|point). |
|00001440| 54 68 65 20 73 74 72 69 | 6e 67 20 50 52 45 54 54 |The stri|ng PRETT|
|00001450| 59 2d 50 52 49 4e 54 45 | 52 20 69 6e 73 65 72 74 |Y-PRINTE|R insert|
|00001460| 73 20 6d 61 79 20 62 65 | 20 65 6d 70 74 79 20 6f |s may be| empty o|
|00001470| 72 20 73 70 61 6e 0a 73 | 65 76 65 72 61 6c 20 6c |r span.s|everal l|
|00001480| 69 6e 73 65 2e 20 41 20 | 74 72 61 69 6c 69 6e 67 |inse. A |trailing|
|00001490| 20 6e 65 77 6c 69 6e 65 | 20 77 69 6c 6c 20 61 6c | newline| will al|
|000014a0| 77 61 79 73 20 62 65 20 | 69 6e 73 65 72 74 65 64 |ways be |inserted|
|000014b0| 0a 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 2e 20 |.automat|ically. |
|000014c0| 54 68 65 20 50 52 45 54 | 54 59 2d 50 52 49 4e 54 |The PRET|TY-PRINT|
|000014d0| 45 52 20 73 68 6f 75 6c | 64 20 75 73 65 20 69 6e |ER shoul|d use in|
|000014e0| 73 65 72 74 2c 20 61 6e | 64 20 6e 6f 74 0a 69 6e |sert, an|d not.in|
|000014f0| 73 65 72 74 2d 62 65 66 | 6f 72 65 2d 6d 61 72 6b |sert-bef|ore-mark|
|00001500| 65 72 73 2e 0a 0a 4f 70 | 74 69 6f 6e 61 6c 20 74 |ers...Op|tional t|
|00001510| 68 69 72 64 20 61 72 67 | 75 6d 65 6e 74 20 48 45 |hird arg|ument HE|
|00001520| 41 44 45 52 20 69 73 20 | 61 20 73 74 72 69 6e 67 |ADER is |a string|
|00001530| 20 74 68 61 74 20 77 69 | 6c 6c 20 61 6c 77 61 79 | that wi|ll alway|
|00001540| 73 20 62 65 0a 70 72 65 | 73 65 6e 74 20 61 74 20 |s be.pre|sent at |
|00001550| 74 68 65 20 74 6f 70 20 | 6f 66 20 74 68 65 20 63 |the top |of the c|
|00001560| 6f 6c 6c 65 63 74 69 6f | 6e 2e 20 48 45 41 44 45 |ollectio|n. HEADE|
|00001570| 52 20 73 68 6f 75 6c 64 | 20 65 6e 64 20 77 69 74 |R should| end wit|
|00001580| 68 20 61 0a 6e 65 77 6c | 69 6e 65 2e 20 20 4f 70 |h a.newl|ine. Op|
|00001590| 74 69 6f 6e 61 6c 79 20 | 66 6f 75 72 74 68 20 61 |tionaly |fourth a|
|000015a0| 72 67 75 6d 65 6e 74 20 | 46 4f 4f 54 45 52 20 69 |rgument |FOOTER i|
|000015b0| 73 20 73 69 6d 69 6c 61 | 72 2c 20 61 6e 64 20 77 |s simila|r, and w|
|000015c0| 69 6c 6c 0a 61 6c 77 61 | 79 73 20 62 65 20 69 6e |ill.alwa|ys be in|
|000015d0| 73 65 72 74 65 64 20 61 | 74 20 74 68 65 20 62 6f |serted a|t the bo|
|000015e0| 74 74 6f 6d 20 6f 66 20 | 74 68 65 20 63 6f 6c 6c |ttom of |the coll|
|000015f0| 65 63 74 69 6f 6e 2e 0a | 0a 4f 70 74 69 6f 6e 61 |ection..|.Optiona|
|00001600| 6c 20 66 69 66 74 68 20 | 61 72 67 75 6d 65 6e 74 |l fifth |argument|
|00001610| 20 50 4f 53 20 69 73 20 | 61 20 62 75 66 66 65 72 | POS is |a buffer|
|00001620| 20 70 6f 73 69 74 69 6f | 6e 2c 20 73 70 65 63 69 | positio|n, speci|
|00001630| 66 79 69 6e 67 0a 77 68 | 65 72 65 20 74 68 65 20 |fying.wh|ere the |
|00001640| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 77 69 6c 6c 20 |collecti|on will |
|00001650| 62 65 20 69 6e 73 65 72 | 74 65 64 2e 20 49 74 20 |be inser|ted. It |
|00001660| 64 65 66 61 75 6c 74 73 | 20 74 6f 20 74 68 65 0a |defaults| to the.|
|00001670| 62 65 67 69 6e 69 6e 67 | 20 6f 66 20 74 68 65 20 |begining| of the |
|00001680| 62 75 66 66 65 72 2e 22 | 5d 29 0a 28 66 73 65 74 |buffer."|]).(fset|
|00001690| 20 27 74 69 6e 2d 63 6f | 6f 6b 69 65 20 23 5b 28 | 'tin-co|okie #[(|
|000016a0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 74 69 6e 29 20 |collecti|on tin) |
|000016b0| 22 c0 09 c2 48 21 87 22 | 20 5b 69 63 6f 6f 6b 69 |"...H!."| [icooki|
|000016c0| 65 2d 77 72 61 70 70 65 | 72 2d 3e 63 6f 6f 6b 69 |e-wrappe|r->cooki|
|000016d0| 65 20 74 69 6e 20 32 5d | 20 33 20 22 5c 0a 47 65 |e tin 2]| 3 "\.Ge|
|000016e0| 74 20 74 68 65 20 63 6f | 6f 6b 69 65 20 66 72 6f |t the co|okie fro|
|000016f0| 6d 20 61 20 54 49 4e 2e | 20 41 72 67 73 3a 20 43 |m a TIN.| Args: C|
|00001700| 4f 4c 4c 45 43 54 49 4f | 4e 20 54 49 4e 2e 22 5d |OLLECTIO|N TIN."]|
|00001710| 29 0a 28 66 73 65 74 20 | 27 63 6f 6f 6b 69 65 2d |).(fset |'cookie-|
|00001720| 65 6e 74 65 72 2d 66 69 | 72 73 74 20 23 5b 28 63 |enter-fi|rst #[(c|
|00001730| 6f 6c 6c 65 63 74 69 6f | 6e 20 63 6f 6f 6b 69 65 |ollectio|n cookie|
|00001740| 29 20 22 70 18 09 1a c3 | 5c 6e 21 1c c5 5c 6e 21 |) "p....|\n!..\n!|
|00001750| 71 88 c6 8e c7 0c c8 0c | c9 5c 22 ca 0e 0b cc 09 |q.......|.\".....|
|00001760| 21 cd c8 0c ce 5c 22 cf | 48 21 23 23 2c 87 22 20 |!....\".|H!##,." |
|00001770| 5b 6f 6c 64 2d 62 75 66 | 66 65 72 20 63 6f 6c 6c |[old-buf|fer coll|
|00001780| 65 63 74 69 6f 6e 20 63 | 6f 6c 6c 65 63 74 69 6f |ection c|ollectio|
|00001790| 6e 20 69 63 6f 6f 6b 69 | 65 2d 63 6f 6c 6c 65 63 |n icooki|e-collec|
|000017a0| 74 69 6f 6e 2d 3e 64 6c | 6c 20 64 6c 6c 20 69 63 |tion->dl|l dll ic|
|000017b0| 6f 6f 6b 69 65 2d 63 6f | 6c 6c 65 63 74 69 6f 6e |ookie-co|llection|
|000017c0| 2d 3e 62 75 66 66 65 72 | 20 28 28 73 65 74 2d 62 |->buffer| ((set-b|
|000017d0| 75 66 66 65 72 20 6f 6c | 64 2d 62 75 66 66 65 72 |uffer ol|d-buffer|
|000017e0| 29 29 20 64 6c 6c 2d 65 | 6e 74 65 72 2d 61 66 74 |)) dll-e|nter-aft|
|000017f0| 65 72 20 64 6c 6c 2d 6e | 74 68 20 30 20 69 63 6f |er dll-n|th 0 ico|
|00001800| 6f 6b 69 65 2d 63 72 65 | 61 74 65 2d 77 72 61 70 |okie-cre|ate-wrap|
|00001810| 70 65 72 2d 61 6e 64 2d | 70 72 65 74 74 79 2d 70 |per-and-|pretty-p|
|00001820| 72 69 6e 74 20 63 6f 6f | 6b 69 65 20 69 63 6f 6f |rint coo|kie icoo|
|00001830| 6b 69 65 2d 63 6f 6c 6c | 65 63 74 69 6f 6e 2d 3e |kie-coll|ection->|
|00001840| 70 72 65 74 74 79 2d 70 | 72 69 6e 74 65 72 20 69 |pretty-p|rinter i|
|00001850| 63 6f 6f 6b 69 65 2d 77 | 72 61 70 70 65 72 2d 3e |cookie-w|rapper->|
|00001860| 73 74 61 72 74 2d 6d 61 | 72 6b 65 72 20 31 20 32 |start-ma|rker 1 2|
|00001870| 5d 20 31 30 20 22 5c 0a | 45 6e 74 65 72 20 61 20 |] 10 "\.|Enter a |
|00001880| 43 4f 4f 4b 49 45 20 66 | 69 72 73 74 20 69 6e 20 |COOKIE f|irst in |
|00001890| 74 68 65 20 63 6f 6f 6b | 69 65 20 63 6f 6c 6c 65 |the cook|ie colle|
|000018a0| 63 74 69 6f 6e 20 43 4f | 4c 4c 45 43 54 49 4f 4e |ction CO|LLECTION|
|000018b0| 2e 0a 41 72 67 73 3a 20 | 43 4f 4c 4c 45 43 54 49 |..Args: |COLLECTI|
|000018c0| 4f 4e 20 43 4f 4f 4b 49 | 45 2e 22 5d 29 0a 28 66 |ON COOKI|E."]).(f|
|000018d0| 73 65 74 20 27 63 6f 6f | 6b 69 65 2d 65 6e 74 65 |set 'coo|kie-ente|
|000018e0| 72 2d 6c 61 73 74 20 23 | 5b 28 63 6f 6c 6c 65 63 |r-last #|[(collec|
|000018f0| 74 69 6f 6e 20 63 6f 6f | 6b 69 65 29 20 22 70 18 |tion coo|kie) "p.|
|00001900| 09 1a c3 5c 6e 21 1c c5 | 5c 6e 21 71 88 c6 8e c7 |...\n!..|\n!q....|
|00001910| 0c c8 0c c9 5c 22 ca 0e | 0b cc 09 21 cd ce 0c 21 |....\"..|...!...!|
|00001920| 21 23 23 2c 87 22 20 5b | 6f 6c 64 2d 62 75 66 66 |!##,." [|old-buff|
|00001930| 65 72 20 63 6f 6c 6c 65 | 63 74 69 6f 6e 20 63 6f |er colle|ction co|
|00001940| 6c 6c 65 63 74 69 6f 6e | 20 69 63 6f 6f 6b 69 65 |llection| icookie|
|00001950| 2d 63 6f 6c 6c 65 63 74 | 69 6f 6e 2d 3e 64 6c 6c |-collect|ion->dll|
|00001960| 20 64 6c 6c 20 69 63 6f | 6f 6b 69 65 2d 63 6f 6c | dll ico|okie-col|
|00001970| 6c 65 63 74 69 6f 6e 2d | 3e 62 75 66 66 65 72 20 |lection-|>buffer |
|00001980| 28 28 73 65 74 2d 62 75 | 66 66 65 72 20 6f 6c 64 |((set-bu|ffer old|
|00001990| 2d 62 75 66 66 65 72 29 | 29 20 64 6c 6c 2d 65 6e |-buffer)|) dll-en|
|000019a0| 74 65 72 2d 62 65 66 6f | 72 65 20 64 6c 6c 2d 6e |ter-befo|re dll-n|
|000019b0| 74 68 20 2d 31 20 69 63 | 6f 6f 6b 69 65 2d 63 72 |th -1 ic|ookie-cr|
|000019c0| 65 61 74 65 2d 77 72 61 | 70 70 65 72 2d 61 6e 64 |eate-wra|pper-and|
|000019d0| 2d 70 72 65 74 74 79 2d | 70 72 69 6e 74 20 63 6f |-pretty-|print co|
|000019e0| 6f 6b 69 65 20 69 63 6f | 6f 6b 69 65 2d 63 6f 6c |okie ico|okie-col|
|000019f0| 6c 65 63 74 69 6f 6e 2d | 3e 70 72 65 74 74 79 2d |lection-|>pretty-|
|00001a00| 70 72 69 6e 74 65 72 20 | 69 63 6f 6f 6b 69 65 2d |printer |icookie-|
|00001a10| 77 72 61 70 70 65 72 2d | 3e 73 74 61 72 74 2d 6d |wrapper-|>start-m|
|00001a20| 61 72 6b 65 72 20 64 6c | 6c 2d 6c 61 73 74 5d 20 |arker dl|l-last] |
|00001a30| 39 20 22 5c 0a 45 6e 74 | 65 72 20 61 20 43 4f 4f |9 "\.Ent|er a COO|
|00001a40| 4b 49 45 20 6c 61 73 74 | 20 69 6e 20 74 68 65 20 |KIE last| in the |
|00001a50| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00001a60| 6e 20 43 4f 4c 4c 45 43 | 54 49 4f 4e 2e 0a 41 72 |n COLLEC|TION..Ar|
|00001a70| 67 73 3a 20 43 4f 4c 4c | 45 43 54 49 4f 4e 20 43 |gs: COLL|ECTION C|
|00001a80| 4f 4f 4b 49 45 2e 22 5d | 29 0a 28 66 73 65 74 20 |OOKIE."]|).(fset |
|00001a90| 27 63 6f 6f 6b 69 65 2d | 65 6e 74 65 72 2d 61 66 |'cookie-|enter-af|
|00001aa0| 74 65 72 2d 74 69 6e 20 | 23 5b 28 63 6f 6c 6c 65 |ter-tin |#[(colle|
|00001ab0| 63 74 69 6f 6e 20 74 69 | 6e 20 63 6f 6f 6b 69 65 |ction ti|n cookie|
|00001ac0| 29 20 22 70 18 09 1a c3 | 5c 6e 21 1c c5 5c 6e 21 |) "p....|\n!..\n!|
|00001ad0| 71 88 c6 8e c7 0c 0e 08 | c9 0e 5c 6e cb 09 21 cc |q.......|..\n..!.|
|00001ae0| cd 0c 0e 08 5c 22 ce 48 | 21 23 23 2c 87 22 20 5b |....\".H|!##,." [|
|00001af0| 6f 6c 64 2d 62 75 66 66 | 65 72 20 63 6f 6c 6c 65 |old-buff|er colle|
|00001b00| 63 74 69 6f 6e 20 63 6f | 6c 6c 65 63 74 69 6f 6e |ction co|llection|
|00001b10| 20 69 63 6f 6f 6b 69 65 | 2d 63 6f 6c 6c 65 63 74 | icookie|-collect|
|00001b20| 69 6f 6e 2d 3e 64 6c 6c | 20 64 6c 6c 20 69 63 6f |ion->dll| dll ico|
|00001b30| 6f 6b 69 65 2d 63 6f 6c | 6c 65 63 74 69 6f 6e 2d |okie-col|lection-|
|00001b40| 3e 62 75 66 66 65 72 20 | 28 28 73 65 74 2d 62 75 |>buffer |((set-bu|
|00001b50| 66 66 65 72 20 6f 6c 64 | 2d 62 75 66 66 65 72 29 |ffer old|-buffer)|
|00001b60| 29 20 64 6c 6c 2d 65 6e | 74 65 72 2d 61 66 74 65 |) dll-en|ter-afte|
|00001b70| 72 20 74 69 6e 20 69 63 | 6f 6f 6b 69 65 2d 63 72 |r tin ic|ookie-cr|
|00001b80| 65 61 74 65 2d 77 72 61 | 70 70 65 72 2d 61 6e 64 |eate-wra|pper-and|
|00001b90| 2d 70 72 65 74 74 79 2d | 70 72 69 6e 74 20 63 6f |-pretty-|print co|
|00001ba0| 6f 6b 69 65 20 69 63 6f | 6f 6b 69 65 2d 63 6f 6c |okie ico|okie-col|
|00001bb0| 6c 65 63 74 69 6f 6e 2d | 3e 70 72 65 74 74 79 2d |lection-|>pretty-|
|00001bc0| 70 72 69 6e 74 65 72 20 | 69 63 6f 6f 6b 69 65 2d |printer |icookie-|
|00001bd0| 77 72 61 70 70 65 72 2d | 3e 73 74 61 72 74 2d 6d |wrapper-|>start-m|
|00001be0| 61 72 6b 65 72 20 64 6c | 6c 2d 6e 65 78 74 20 32 |arker dl|l-next 2|
|00001bf0| 5d 20 31 30 20 22 5c 0a | 45 6e 74 65 72 20 61 20 |] 10 "\.|Enter a |
|00001c00| 6e 65 77 20 43 4f 4f 4b | 49 45 20 61 66 74 65 72 |new COOK|IE after|
|00001c10| 20 54 49 4e 2e 0a 41 72 | 67 73 3a 20 43 4f 4c 4c | TIN..Ar|gs: COLL|
|00001c20| 45 43 54 49 4f 4e 20 54 | 49 4e 20 43 4f 4f 4b 49 |ECTION T|IN COOKI|
|00001c30| 45 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 63 6f 6f |E."]).(f|set 'coo|
|00001c40| 6b 69 65 2d 65 6e 74 65 | 72 2d 62 65 66 6f 72 65 |kie-ente|r-before|
|00001c50| 2d 74 69 6e 20 23 5b 28 | 63 6f 6c 6c 65 63 74 69 |-tin #[(|collecti|
|00001c60| 6f 6e 20 74 69 6e 20 63 | 6f 6f 6b 69 65 29 20 22 |on tin c|ookie) "|
|00001c70| 70 18 09 1a c3 5c 6e 21 | 1c c5 5c 6e 21 71 88 c6 |p....\n!|..\n!q..|
|00001c80| 8e c7 0c 0e 08 c9 0e 5c | 6e cb 09 21 cc 0e 08 cd |.......\|n..!....|
|00001c90| 48 21 23 23 2c 87 22 20 | 5b 6f 6c 64 2d 62 75 66 |H!##,." |[old-buf|
|00001ca0| 66 65 72 20 63 6f 6c 6c | 65 63 74 69 6f 6e 20 63 |fer coll|ection c|
|00001cb0| 6f 6c 6c 65 63 74 69 6f | 6e 20 69 63 6f 6f 6b 69 |ollectio|n icooki|
|00001cc0| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 64 6c |e-collec|tion->dl|
|00001cd0| 6c 20 64 6c 6c 20 69 63 | 6f 6f 6b 69 65 2d 63 6f |l dll ic|ookie-co|
|00001ce0| 6c 6c 65 63 74 69 6f 6e | 2d 3e 62 75 66 66 65 72 |llection|->buffer|
|00001cf0| 20 28 28 73 65 74 2d 62 | 75 66 66 65 72 20 6f 6c | ((set-b|uffer ol|
|00001d00| 64 2d 62 75 66 66 65 72 | 29 29 20 64 6c 6c 2d 65 |d-buffer|)) dll-e|
|00001d10| 6e 74 65 72 2d 62 65 66 | 6f 72 65 20 74 69 6e 20 |nter-bef|ore tin |
|00001d20| 69 63 6f 6f 6b 69 65 2d | 63 72 65 61 74 65 2d 77 |icookie-|create-w|
|00001d30| 72 61 70 70 65 72 2d 61 | 6e 64 2d 70 72 65 74 74 |rapper-a|nd-prett|
|00001d40| 79 2d 70 72 69 6e 74 20 | 63 6f 6f 6b 69 65 20 69 |y-print |cookie i|
|00001d50| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00001d60| 6e 2d 3e 70 72 65 74 74 | 79 2d 70 72 69 6e 74 65 |n->prett|y-printe|
|00001d70| 72 20 69 63 6f 6f 6b 69 | 65 2d 77 72 61 70 70 65 |r icooki|e-wrappe|
|00001d80| 72 2d 3e 73 74 61 72 74 | 2d 6d 61 72 6b 65 72 20 |r->start|-marker |
|00001d90| 32 5d 20 39 20 22 5c 0a | 45 6e 74 65 72 20 61 20 |2] 9 "\.|Enter a |
|00001da0| 6e 65 77 20 43 4f 4f 4b | 49 45 20 62 65 66 6f 72 |new COOK|IE befor|
|00001db0| 65 20 54 49 4e 2e 0a 41 | 72 67 73 3a 20 43 4f 4c |e TIN..A|rgs: COL|
|00001dc0| 4c 45 43 54 49 4f 4e 20 | 54 49 4e 20 43 4f 4f 4b |LECTION |TIN COOK|
|00001dd0| 49 45 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 74 69 |IE."]).(|fset 'ti|
|00001de0| 6e 2d 6e 65 78 74 20 23 | 5b 28 63 6f 6c 6c 65 63 |n-next #|[(collec|
|00001df0| 74 69 6f 6e 20 74 69 6e | 29 20 22 08 ad 9a c1 c2 |tion tin|) ".....|
|00001e00| 0b 21 08 5c 22 0b 1c 89 | 1d c6 0c 21 3d ae 85 0d |.!.\"...|...!=...|
|00001e10| c7 0c 21 3d 3f ad 81 0d | 2a 87 22 20 5b 74 69 6e |..!=?...|*." [tin|
|00001e20| 20 64 6c 6c 2d 6e 65 78 | 74 20 69 63 6f 6f 6b 69 | dll-nex|t icooki|
|00001e30| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 64 6c |e-collec|tion->dl|
|00001e40| 6c 20 63 6f 6c 6c 65 63 | 74 69 6f 6e 20 74 6d 70 |l collec|tion tmp|
|00001e50| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 74 69 6e 20 69 |collecti|on tin i|
|00001e60| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00001e70| 6e 2d 3e 68 65 61 64 65 | 72 20 69 63 6f 6f 6b 69 |n->heade|r icooki|
|00001e80| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 66 6f |e-collec|tion->fo|
|00001e90| 6f 74 65 72 5d 20 34 20 | 22 5c 0a 47 65 74 20 74 |oter] 4 |"\.Get t|
|00001ea0| 68 65 20 6e 65 78 74 20 | 74 69 6e 2e 20 41 72 67 |he next |tin. Arg|
|00001eb0| 73 3a 20 43 4f 4c 4c 45 | 43 54 49 4f 4e 20 54 49 |s: COLLE|CTION TI|
|00001ec0| 4e 2e 0a 52 65 74 75 72 | 6e 73 20 6e 69 6c 20 69 |N..Retur|ns nil i|
|00001ed0| 66 20 54 49 4e 20 69 73 | 20 6e 69 6c 20 6f 72 20 |f TIN is| nil or |
|00001ee0| 74 68 65 20 6c 61 73 74 | 20 63 6f 6f 6b 69 65 2e |the last| cookie.|
|00001ef0| 22 5d 29 0a 28 66 73 65 | 74 20 27 74 69 6e 2d 70 |"]).(fse|t 'tin-p|
|00001f00| 72 65 76 69 6f 75 73 20 | 23 5b 28 63 6f 6c 6c 65 |revious |#[(colle|
|00001f10| 63 74 69 6f 6e 20 74 69 | 6e 29 20 22 08 ad 9a c1 |ction ti|n) "....|
|00001f20| c2 0b 21 08 5c 22 0b 1c | 89 1d c6 0c 21 3d ae 85 |..!.\"..|....!=..|
|00001f30| 0d c7 0c 21 3d 3f ad 81 | 0d 2a 87 22 20 5b 74 69 |...!=?..|.*." [ti|
|00001f40| 6e 20 64 6c 6c 2d 70 72 | 65 76 69 6f 75 73 20 69 |n dll-pr|evious i|
|00001f50| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00001f60| 6e 2d 3e 64 6c 6c 20 63 | 6f 6c 6c 65 63 74 69 6f |n->dll c|ollectio|
|00001f70| 6e 20 74 6d 70 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |n tmpcol|lection |
|00001f80| 74 69 6e 20 69 63 6f 6f | 6b 69 65 2d 63 6f 6c 6c |tin icoo|kie-coll|
|00001f90| 65 63 74 69 6f 6e 2d 3e | 68 65 61 64 65 72 20 69 |ection->|header i|
|00001fa0| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00001fb0| 6e 2d 3e 66 6f 6f 74 65 | 72 5d 20 34 20 22 5c 0a |n->foote|r] 4 "\.|
|00001fc0| 47 65 74 20 74 68 65 20 | 70 72 65 76 69 6f 75 73 |Get the |previous|
|00001fd0| 20 74 69 6e 2e 20 41 72 | 67 73 3a 20 43 4f 4c 4c | tin. Ar|gs: COLL|
|00001fe0| 45 43 54 49 4f 4e 20 54 | 49 4e 2e 0a 52 65 74 75 |ECTION T|IN..Retu|
|00001ff0| 72 6e 73 20 6e 69 6c 20 | 69 66 20 54 49 4e 20 69 |rns nil |if TIN i|
|00002000| 73 20 6e 69 6c 20 6f 72 | 20 74 68 65 20 66 69 72 |s nil or| the fir|
|00002010| 73 74 20 63 6f 6f 6b 69 | 65 2e 22 5d 29 0a 28 66 |st cooki|e."]).(f|
|00002020| 73 65 74 20 27 74 69 6e | 2d 6e 74 68 20 23 5b 28 |set 'tin|-nth #[(|
|00002030| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 6e 29 20 22 08 |collecti|on n) ".|
|00002040| c1 57 ab 85 08 53 10 aa | 83 08 54 10 c2 c3 0c 21 |.W...S..|..T....!|
|00002050| 08 5c 22 0c 1d 89 1e 06 | c7 0d 21 3d ae 86 0e 06 |.\".....|..!=....|
|00002060| c8 0d 21 3d 3f ad 82 0e | 06 2a 87 22 20 5b 6e 20 |..!=?...|.*." [n |
|00002070| 30 20 64 6c 6c 2d 6e 74 | 68 20 69 63 6f 6f 6b 69 |0 dll-nt|h icooki|
|00002080| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 64 6c |e-collec|tion->dl|
|00002090| 6c 20 63 6f 6c 6c 65 63 | 74 69 6f 6e 20 74 6d 70 |l collec|tion tmp|
|000020a0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 74 69 6e 20 69 |collecti|on tin i|
|000020b0| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|000020c0| 6e 2d 3e 68 65 61 64 65 | 72 20 69 63 6f 6f 6b 69 |n->heade|r icooki|
|000020d0| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 66 6f |e-collec|tion->fo|
|000020e0| 6f 74 65 72 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 |oter] 4 |"\.Retur|
|000020f0| 6e 20 74 68 65 20 4e 74 | 68 20 74 69 6e 2e 20 41 |n the Nt|h tin. A|
|00002100| 72 67 73 3a 20 43 4f 4c | 4c 45 43 54 49 4f 4e 20 |rgs: COL|LECTION |
|00002110| 4e 2e 0a 4e 20 63 6f 75 | 6e 74 73 20 66 72 6f 6d |N..N cou|nts from|
|00002120| 20 7a 65 72 6f 2e 20 4e | 69 6c 20 69 73 20 72 65 | zero. N|il is re|
|00002130| 74 75 72 6e 65 64 20 69 | 66 20 74 68 65 72 65 20 |turned i|f there |
|00002140| 69 73 20 6c 65 73 73 20 | 74 68 61 6e 20 4e 20 63 |is less |than N c|
|00002150| 6f 6f 6b 69 65 73 2e 0a | 49 66 20 4e 20 69 73 20 |ookies..|If N is |
|00002160| 6e 65 67 61 74 69 76 65 | 2c 20 72 65 74 75 72 6e |negative|, return|
|00002170| 20 74 68 65 20 2d 28 4e | 2b 31 29 74 68 20 6c 61 | the -(N|+1)th la|
|00002180| 73 74 20 65 6c 65 6d 65 | 6e 74 2e 0a 54 68 75 73 |st eleme|nt..Thus|
|00002190| 2c 20 28 74 69 6e 2d 6e | 74 68 20 64 6c 6c 20 30 |, (tin-n|th dll 0|
|000021a0| 29 20 72 65 74 75 72 6e | 73 20 74 68 65 20 66 69 |) return|s the fi|
|000021b0| 72 73 74 20 6e 6f 64 65 | 2c 0a 61 6e 64 20 28 74 |rst node|,.and (t|
|000021c0| 69 6e 2d 6e 74 68 20 64 | 6c 6c 20 2d 31 29 20 72 |in-nth d|ll -1) r|
|000021d0| 65 74 75 72 6e 73 20 74 | 68 65 20 6c 61 73 74 20 |eturns t|he last |
|000021e0| 6e 6f 64 65 2e 0a 0a 55 | 73 65 20 74 69 6e 2d 63 |node...U|se tin-c|
|000021f0| 6f 6f 6b 69 65 20 74 6f | 20 65 78 74 72 61 63 74 |ookie to| extract|
|00002200| 20 74 68 65 20 63 6f 6f | 6b 69 65 20 66 72 6f 6d | the coo|kie from|
|00002210| 20 74 68 65 20 74 69 6e | 20 28 6f 72 20 75 73 65 | the tin| (or use|
|00002220| 0a 63 6f 6f 6b 69 65 2d | 6e 74 68 20 69 6e 73 74 |.cookie-|nth inst|
|00002230| 65 61 64 29 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |ead)."])|.(fset '|
|00002240| 63 6f 6f 6b 69 65 2d 6e | 74 68 20 23 5b 28 63 6f |cookie-n|th #[(co|
|00002250| 6c 6c 65 63 74 69 6f 6e | 20 6e 29 20 22 08 c1 57 |llection| n) "..W|
|00002260| ab 85 08 53 10 aa 83 08 | 54 10 c2 0b 21 1c c5 0c |...S....|T...!...|
|00002270| 08 5c 22 0b 1e 06 89 1e | 07 c8 0e 06 21 3d ae 87 |.\".....|....!=..|
|00002280| 0e 07 c9 0e 06 21 3d 3f | ad 82 0e 07 2a 89 1e 5c |.....!=?|....*..\|
|00002290| 6e ad 86 cb 0e 5c 6e cc | 48 21 2a 87 22 20 5b 6e |n....\n.|H!*." [n|
|000022a0| 20 30 20 69 63 6f 6f 6b | 69 65 2d 63 6f 6c 6c 65 | 0 icook|ie-colle|
|000022b0| 63 74 69 6f 6e 2d 3e 64 | 6c 6c 20 63 6f 6c 6c 65 |ction->d|ll colle|
|000022c0| 63 74 69 6f 6e 20 64 6c | 6c 20 64 6c 6c 2d 6e 74 |ction dl|l dll-nt|
|000022d0| 68 20 74 6d 70 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |h tmpcol|lection |
|000022e0| 74 69 6e 20 69 63 6f 6f | 6b 69 65 2d 63 6f 6c 6c |tin icoo|kie-coll|
|000022f0| 65 63 74 69 6f 6e 2d 3e | 68 65 61 64 65 72 20 69 |ection->|header i|
|00002300| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00002310| 6e 2d 3e 66 6f 6f 74 65 | 72 20 74 69 6e 20 69 63 |n->foote|r tin ic|
|00002320| 6f 6f 6b 69 65 2d 77 72 | 61 70 70 65 72 2d 3e 63 |ookie-wr|apper->c|
|00002330| 6f 6f 6b 69 65 20 32 5d | 20 34 20 22 5c 0a 52 65 |ookie 2]| 4 "\.Re|
|00002340| 74 75 72 6e 20 74 68 65 | 20 4e 74 68 20 63 6f 6f |turn the| Nth coo|
|00002350| 6b 69 65 2e 20 41 72 67 | 73 3a 20 43 4f 4c 4c 45 |kie. Arg|s: COLLE|
|00002360| 43 54 49 4f 4e 20 4e 2e | 0a 4e 20 63 6f 75 6e 74 |CTION N.|.N count|
|00002370| 73 20 66 72 6f 6d 20 7a | 65 72 6f 2e 20 4e 69 6c |s from z|ero. Nil|
|00002380| 20 69 73 20 72 65 74 75 | 72 6e 65 64 20 69 66 20 | is retu|rned if |
|00002390| 74 68 65 72 65 20 69 73 | 20 6c 65 73 73 20 74 68 |there is| less th|
|000023a0| 61 6e 20 4e 20 63 6f 6f | 6b 69 65 73 2e 0a 49 66 |an N coo|kies..If|
|000023b0| 20 4e 20 69 73 20 6e 65 | 67 61 74 69 76 65 2c 20 | N is ne|gative, |
|000023c0| 72 65 74 75 72 6e 20 74 | 68 65 20 2d 28 4e 2b 31 |return t|he -(N+1|
|000023d0| 29 74 68 20 6c 61 73 74 | 20 65 6c 65 6d 65 6e 74 |)th last| element|
|000023e0| 2e 0a 54 68 75 73 2c 20 | 28 63 6f 6f 6b 69 65 2d |..Thus, |(cookie-|
|000023f0| 6e 74 68 20 64 6c 6c 20 | 30 29 20 72 65 74 75 72 |nth dll |0) retur|
|00002400| 6e 73 20 74 68 65 20 66 | 69 72 73 74 20 63 6f 6f |ns the f|irst coo|
|00002410| 6b 69 65 2c 0a 61 6e 64 | 20 28 63 6f 6f 6b 69 65 |kie,.and| (cookie|
|00002420| 2d 6e 74 68 20 64 6c 6c | 20 2d 31 29 20 72 65 74 |-nth dll| -1) ret|
|00002430| 75 72 6e 73 20 74 68 65 | 20 6c 61 73 74 20 63 6f |urns the| last co|
|00002440| 6f 6b 69 65 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |okie."])|.(fset '|
|00002450| 74 69 6e 2d 64 65 6c 65 | 74 65 20 23 5b 28 63 6f |tin-dele|te #[(co|
|00002460| 6c 6c 65 63 74 69 6f 6e | 20 74 69 6e 29 20 22 70 |llection| tin) "p|
|00002470| 18 09 1a c3 5c 6e 21 1c | c5 5c 6e 21 71 88 c6 8e |....\n!.|.\n!q...|
|00002480| c7 c8 09 0e 09 5c 22 21 | 2c 87 22 20 5b 6f 6c 64 |.....\"!|,." [old|
|00002490| 2d 62 75 66 66 65 72 20 | 63 6f 6c 6c 65 63 74 69 |-buffer |collecti|
|000024a0| 6f 6e 20 63 6f 6c 6c 65 | 63 74 69 6f 6e 20 69 63 |on colle|ction ic|
|000024b0| 6f 6f 6b 69 65 2d 63 6f | 6c 6c 65 63 74 69 6f 6e |ookie-co|llection|
|000024c0| 2d 3e 64 6c 6c 20 64 6c | 6c 20 69 63 6f 6f 6b 69 |->dll dl|l icooki|
|000024d0| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 62 75 |e-collec|tion->bu|
|000024e0| 66 66 65 72 20 28 28 73 | 65 74 2d 62 75 66 66 65 |ffer ((s|et-buffe|
|000024f0| 72 20 6f 6c 64 2d 62 75 | 66 66 65 72 29 29 20 69 |r old-bu|ffer)) i|
|00002500| 63 6f 6f 6b 69 65 2d 77 | 72 61 70 70 65 72 2d 3e |cookie-w|rapper->|
|00002510| 63 6f 6f 6b 69 65 20 69 | 63 6f 6f 6b 69 65 2d 64 |cookie i|cookie-d|
|00002520| 65 6c 65 74 65 2d 74 69 | 6e 2d 69 6e 74 65 72 6e |elete-ti|n-intern|
|00002530| 61 6c 20 74 69 6e 5d 20 | 34 20 22 5c 0a 44 65 6c |al tin] |4 "\.Del|
|00002540| 65 74 65 20 61 20 74 69 | 6e 20 66 72 6f 6d 20 61 |ete a ti|n from a|
|00002550| 20 63 6f 6c 6c 65 63 74 | 69 6f 6e 2e 20 41 72 67 | collect|ion. Arg|
|00002560| 73 3a 20 43 4f 4c 4c 45 | 43 54 49 4f 4e 20 54 49 |s: COLLE|CTION TI|
|00002570| 4e 2e 0a 54 68 65 20 63 | 6f 6f 6b 69 65 20 69 6e |N..The c|ookie in|
|00002580| 20 74 68 65 20 74 69 6e | 20 69 73 20 72 65 74 75 | the tin| is retu|
|00002590| 72 6e 65 64 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |rned."])|.(fset '|
|000025a0| 63 6f 6f 6b 69 65 2d 64 | 65 6c 65 74 65 2d 66 69 |cookie-d|elete-fi|
|000025b0| 72 73 74 20 23 5b 28 63 | 6f 6c 6c 65 63 74 69 6f |rst #[(c|ollectio|
|000025c0| 6e 29 20 22 70 18 09 1a | c3 5c 6e 21 1c c5 0c c6 |n) "p...|.\n!....|
|000025d0| 5c 22 1e 07 c8 5c 6e 21 | 71 88 c9 8e 0e 07 ca 09 |\"...\n!|q.......|
|000025e0| 21 3d 3f ad 87 cb cc 09 | 0e 07 5c 22 21 2d 87 22 |!=?.....|..\"!-."|
|000025f0| 20 5b 6f 6c 64 2d 62 75 | 66 66 65 72 20 63 6f 6c | [old-bu|ffer col|
|00002600| 6c 65 63 74 69 6f 6e 20 | 63 6f 6c 6c 65 63 74 69 |lection |collecti|
|00002610| 6f 6e 20 69 63 6f 6f 6b | 69 65 2d 63 6f 6c 6c 65 |on icook|ie-colle|
|00002620| 63 74 69 6f 6e 2d 3e 64 | 6c 6c 20 64 6c 6c 20 64 |ction->d|ll dll d|
|00002630| 6c 6c 2d 6e 74 68 20 31 | 20 74 69 6e 20 69 63 6f |ll-nth 1| tin ico|
|00002640| 6f 6b 69 65 2d 63 6f 6c | 6c 65 63 74 69 6f 6e 2d |okie-col|lection-|
|00002650| 3e 62 75 66 66 65 72 20 | 28 28 73 65 74 2d 62 75 |>buffer |((set-bu|
|00002660| 66 66 65 72 20 6f 6c 64 | 2d 62 75 66 66 65 72 29 |ffer old|-buffer)|
|00002670| 29 20 69 63 6f 6f 6b 69 | 65 2d 63 6f 6c 6c 65 63 |) icooki|e-collec|
|00002680| 74 69 6f 6e 2d 3e 66 6f | 6f 74 65 72 20 69 63 6f |tion->fo|oter ico|
|00002690| 6f 6b 69 65 2d 77 72 61 | 70 70 65 72 2d 3e 63 6f |okie-wra|pper->co|
|000026a0| 6f 6b 69 65 20 69 63 6f | 6f 6b 69 65 2d 64 65 6c |okie ico|okie-del|
|000026b0| 65 74 65 2d 74 69 6e 2d | 69 6e 74 65 72 6e 61 6c |ete-tin-|internal|
|000026c0| 5d 20 34 20 22 5c 0a 44 | 65 6c 65 74 65 20 66 69 |] 4 "\.D|elete fi|
|000026d0| 72 73 74 20 63 6f 6f 6b | 69 65 20 61 6e 64 20 72 |rst cook|ie and r|
|000026e0| 65 74 75 72 6e 20 69 74 | 2e 20 41 72 67 73 3a 20 |eturn it|. Args: |
|000026f0| 43 4f 4c 4c 45 43 54 49 | 4f 4e 2e 0a 52 65 74 75 |COLLECTI|ON..Retu|
|00002700| 72 6e 73 20 6e 69 6c 20 | 69 66 20 74 68 65 72 65 |rns nil |if there|
|00002710| 20 61 72 65 20 6e 6f 20 | 63 6f 6f 6b 69 65 73 20 | are no |cookies |
|00002720| 6c 65 66 74 20 69 6e 20 | 74 68 65 20 63 6f 6c 6c |left in |the coll|
|00002730| 65 63 74 69 6f 6e 2e 22 | 5d 29 0a 28 66 73 65 74 |ection."|]).(fset|
|00002740| 20 27 63 6f 6f 6b 69 65 | 2d 64 65 6c 65 74 65 2d | 'cookie|-delete-|
|00002750| 6c 61 73 74 20 23 5b 28 | 63 6f 6c 6c 65 63 74 69 |last #[(|collecti|
|00002760| 6f 6e 29 20 22 70 18 09 | 1a c3 5c 6e 21 1c c5 0c |on) "p..|..\n!...|
|00002770| c6 5c 22 1e 07 c8 5c 6e | 21 71 88 c9 8e 0e 07 ca |.\"...\n|!q......|
|00002780| 09 21 3d 3f ad 87 cb cc | 09 0e 07 5c 22 21 2d 87 |.!=?....|...\"!-.|
|00002790| 22 20 5b 6f 6c 64 2d 62 | 75 66 66 65 72 20 63 6f |" [old-b|uffer co|
|000027a0| 6c 6c 65 63 74 69 6f 6e | 20 63 6f 6c 6c 65 63 74 |llection| collect|
|000027b0| 69 6f 6e 20 69 63 6f 6f | 6b 69 65 2d 63 6f 6c 6c |ion icoo|kie-coll|
|000027c0| 65 63 74 69 6f 6e 2d 3e | 64 6c 6c 20 64 6c 6c 20 |ection->|dll dll |
|000027d0| 64 6c 6c 2d 6e 74 68 20 | 2d 32 20 74 69 6e 20 69 |dll-nth |-2 tin i|
|000027e0| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|000027f0| 6e 2d 3e 62 75 66 66 65 | 72 20 28 28 73 65 74 2d |n->buffe|r ((set-|
|00002800| 62 75 66 66 65 72 20 6f | 6c 64 2d 62 75 66 66 65 |buffer o|ld-buffe|
|00002810| 72 29 29 20 69 63 6f 6f | 6b 69 65 2d 63 6f 6c 6c |r)) icoo|kie-coll|
|00002820| 65 63 74 69 6f 6e 2d 3e | 68 65 61 64 65 72 20 69 |ection->|header i|
|00002830| 63 6f 6f 6b 69 65 2d 77 | 72 61 70 70 65 72 2d 3e |cookie-w|rapper->|
|00002840| 63 6f 6f 6b 69 65 20 69 | 63 6f 6f 6b 69 65 2d 64 |cookie i|cookie-d|
|00002850| 65 6c 65 74 65 2d 74 69 | 6e 2d 69 6e 74 65 72 6e |elete-ti|n-intern|
|00002860| 61 6c 5d 20 34 20 22 5c | 0a 44 65 6c 65 74 65 20 |al] 4 "\|.Delete |
|00002870| 6c 61 73 74 20 63 6f 6f | 6b 69 65 20 61 6e 64 20 |last coo|kie and |
|00002880| 72 65 74 75 72 6e 20 69 | 74 2e 20 41 72 67 73 3a |return i|t. Args:|
|00002890| 20 43 4f 4c 4c 45 43 54 | 49 4f 4e 2e 0a 52 65 74 | COLLECT|ION..Ret|
|000028a0| 75 72 6e 73 20 6e 69 6c | 20 69 66 20 74 68 65 72 |urns nil| if ther|
|000028b0| 65 20 69 73 20 6e 6f 20 | 63 6f 6f 6b 69 65 20 6c |e is no |cookie l|
|000028c0| 65 66 74 20 69 6e 20 74 | 68 65 20 63 6f 6c 6c 65 |eft in t|he colle|
|000028d0| 63 74 69 6f 6e 2e 22 5d | 29 0a 28 66 73 65 74 20 |ction."]|).(fset |
|000028e0| 27 63 6f 6f 6b 69 65 2d | 66 69 72 73 74 20 23 5b |'cookie-|first #[|
|000028f0| 28 63 6f 6c 6c 65 63 74 | 69 6f 6e 29 20 22 c0 09 |(collect|ion) "..|
|00002900| 21 1a c3 5c 6e c4 5c 22 | 09 1d 89 1e 06 c7 0d 21 |!..\n.\"|.......!|
|00002910| 3d ae 86 0e 06 c8 0d 21 | 3d 3f ad 82 0e 06 2a 89 |=......!|=?....*.|
|00002920| 1e 09 ad 86 ca 0e 09 cb | 48 21 2a 87 22 20 5b 69 |........|H!*." [i|
|00002930| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00002940| 6e 2d 3e 64 6c 6c 20 63 | 6f 6c 6c 65 63 74 69 6f |n->dll c|ollectio|
|00002950| 6e 20 64 6c 6c 20 64 6c | 6c 2d 6e 74 68 20 2d 31 |n dll dl|l-nth -1|
|00002960| 20 74 6d 70 63 6f 6c 6c | 65 63 74 69 6f 6e 20 74 | tmpcoll|ection t|
|00002970| 69 6e 20 69 63 6f 6f 6b | 69 65 2d 63 6f 6c 6c 65 |in icook|ie-colle|
|00002980| 63 74 69 6f 6e 2d 3e 68 | 65 61 64 65 72 20 69 63 |ction->h|eader ic|
|00002990| 6f 6f 6b 69 65 2d 63 6f | 6c 6c 65 63 74 69 6f 6e |ookie-co|llection|
|000029a0| 2d 3e 66 6f 6f 74 65 72 | 20 74 69 6e 20 69 63 6f |->footer| tin ico|
|000029b0| 6f 6b 69 65 2d 77 72 61 | 70 70 65 72 2d 3e 63 6f |okie-wra|pper->co|
|000029c0| 6f 6b 69 65 20 32 5d 20 | 34 20 22 5c 0a 52 65 74 |okie 2] |4 "\.Ret|
|000029d0| 75 72 6e 20 74 68 65 20 | 66 69 72 73 74 20 63 6f |urn the |first co|
|000029e0| 6f 6b 69 65 20 69 6e 20 | 43 4f 4c 4c 45 43 54 49 |okie in |COLLECTI|
|000029f0| 4f 4e 2e 20 54 68 65 20 | 63 6f 6f 6b 69 65 20 69 |ON. The |cookie i|
|00002a00| 73 20 6e 6f 74 20 72 65 | 6d 6f 76 65 64 2e 22 5d |s not re|moved."]|
|00002a10| 29 0a 28 66 73 65 74 20 | 27 63 6f 6f 6b 69 65 2d |).(fset |'cookie-|
|00002a20| 6c 61 73 74 20 23 5b 28 | 63 6f 6c 6c 65 63 74 69 |last #[(|collecti|
|00002a30| 6f 6e 29 20 22 c0 09 21 | 1a c3 5c 6e c4 5c 22 09 |on) "..!|..\n.\".|
|00002a40| 1d 89 1e 06 c7 0d 21 3d | ae 86 0e 06 c8 0d 21 3d |......!=|......!=|
|00002a50| 3f ad 82 0e 06 2a 89 1e | 09 ad 86 ca 0e 09 cb 48 |?....*..|.......H|
|00002a60| 21 2a 87 22 20 5b 69 63 | 6f 6f 6b 69 65 2d 63 6f |!*." [ic|ookie-co|
|00002a70| 6c 6c 65 63 74 69 6f 6e | 2d 3e 64 6c 6c 20 63 6f |llection|->dll co|
|00002a80| 6c 6c 65 63 74 69 6f 6e | 20 64 6c 6c 20 64 6c 6c |llection| dll dll|
|00002a90| 2d 6e 74 68 20 2d 32 20 | 74 6d 70 63 6f 6c 6c 65 |-nth -2 |tmpcolle|
|00002aa0| 63 74 69 6f 6e 20 74 69 | 6e 20 69 63 6f 6f 6b 69 |ction ti|n icooki|
|00002ab0| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 68 65 |e-collec|tion->he|
|00002ac0| 61 64 65 72 20 69 63 6f | 6f 6b 69 65 2d 63 6f 6c |ader ico|okie-col|
|00002ad0| 6c 65 63 74 69 6f 6e 2d | 3e 66 6f 6f 74 65 72 20 |lection-|>footer |
|00002ae0| 74 69 6e 20 69 63 6f 6f | 6b 69 65 2d 77 72 61 70 |tin icoo|kie-wrap|
|00002af0| 70 65 72 2d 3e 63 6f 6f | 6b 69 65 20 32 5d 20 34 |per->coo|kie 2] 4|
|00002b00| 20 22 5c 0a 52 65 74 75 | 72 6e 20 74 68 65 20 6c | "\.Retu|rn the l|
|00002b10| 61 73 74 20 63 6f 6f 6b | 69 65 20 69 6e 20 43 4f |ast cook|ie in CO|
|00002b20| 4c 4c 45 43 54 49 4f 4e | 2e 20 54 68 65 20 63 6f |LLECTION|. The co|
|00002b30| 6f 6b 69 65 20 69 73 20 | 6e 6f 74 20 72 65 6d 6f |okie is |not remo|
|00002b40| 76 65 64 2e 22 5d 29 0a | 28 66 73 65 74 20 27 63 |ved."]).|(fset 'c|
|00002b50| 6f 6c 6c 65 63 74 69 6f | 6e 2d 65 6d 70 74 79 20 |ollectio|n-empty |
|00002b60| 23 5b 28 63 6f 6c 6c 65 | 63 74 69 6f 6e 29 20 22 |#[(colle|ction) "|
|00002b70| c0 c1 5c 6e 21 c3 5c 22 | c4 5c 6e 21 3d 87 22 20 |..\n!.\"|.\n!=." |
|00002b80| 5b 64 6c 6c 2d 6e 74 68 | 20 69 63 6f 6f 6b 69 65 |[dll-nth| icookie|
|00002b90| 2d 63 6f 6c 6c 65 63 74 | 69 6f 6e 2d 3e 64 6c 6c |-collect|ion->dll|
|00002ba0| 20 63 6f 6c 6c 65 63 74 | 69 6f 6e 20 31 20 69 63 | collect|ion 1 ic|
|00002bb0| 6f 6f 6b 69 65 2d 63 6f | 6c 6c 65 63 74 69 6f 6e |ookie-co|llection|
|00002bc0| 2d 3e 66 6f 6f 74 65 72 | 5d 20 33 20 22 5c 0a 52 |->footer|] 3 "\.R|
|00002bd0| 65 74 75 72 6e 20 74 72 | 75 65 20 69 66 20 74 68 |eturn tr|ue if th|
|00002be0| 65 72 65 20 61 72 65 20 | 6e 6f 20 63 6f 6f 6b 69 |ere are |no cooki|
|00002bf0| 65 73 20 69 6e 20 43 4f | 4c 4c 45 43 54 49 4f 4e |es in CO|LLECTION|
|00002c00| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 63 6f 6c 6c |."]).(fs|et 'coll|
|00002c10| 65 63 74 69 6f 6e 2d 6c | 65 6e 67 74 68 20 23 5b |ection-l|ength #[|
|00002c20| 28 63 6f 6c 6c 65 63 74 | 69 6f 6e 29 20 22 c0 c1 |(collect|ion) "..|
|00002c30| 5c 6e 21 21 c3 5a 87 22 | 20 5b 64 6c 6c 2d 6c 65 |\n!!.Z."| [dll-le|
|00002c40| 6e 67 74 68 20 69 63 6f | 6f 6b 69 65 2d 63 6f 6c |ngth ico|okie-col|
|00002c50| 6c 65 63 74 69 6f 6e 2d | 3e 64 6c 6c 20 63 6f 6c |lection-|>dll col|
|00002c60| 6c 65 63 74 69 6f 6e 20 | 32 5d 20 33 20 22 5c 0a |lection |2] 3 "\.|
|00002c70| 52 65 74 75 72 6e 20 74 | 68 65 20 6e 75 6d 62 65 |Return t|he numbe|
|00002c80| 72 20 6f 66 20 63 6f 6f | 6b 69 65 73 20 69 6e 20 |r of coo|kies in |
|00002c90| 43 4f 4c 4c 45 43 54 49 | 4f 4e 2e 22 5d 29 0a 28 |COLLECTI|ON."]).(|
|00002ca0| 66 73 65 74 20 27 63 6f | 6c 6c 65 63 74 69 6f 6e |fset 'co|llection|
|00002cb0| 2d 6c 69 73 74 2d 63 6f | 6f 6b 69 65 73 20 23 5b |-list-co|okies #[|
|00002cc0| 28 63 6f 6c 6c 65 63 74 | 69 6f 6e 29 20 22 70 18 |(collect|ion) "p.|
|00002cd0| 09 1a c3 5c 6e 21 1c c5 | 1e 06 c7 09 21 1e 08 c9 |...\n!..|....!...|
|00002ce0| 0c ca 5c 22 1e 0b cc 5c | 6e 21 71 88 cd 8e 0e 0b |..\"...\|n!q.....|
|00002cf0| 0e 08 3d ac 95 ce 0e 0b | cf 48 21 0e 06 42 16 06 |..=.....|.H!..B..|
|00002d00| d0 0c 0e 0b 5c 22 89 16 | 0b aa 66 0e 06 2e 07 87 |....\"..|..f.....|
|00002d10| 22 20 5b 6f 6c 64 2d 62 | 75 66 66 65 72 20 63 6f |" [old-b|uffer co|
|00002d20| 6c 6c 65 63 74 69 6f 6e | 20 63 6f 6c 6c 65 63 74 |llection| collect|
|00002d30| 69 6f 6e 20 69 63 6f 6f | 6b 69 65 2d 63 6f 6c 6c |ion icoo|kie-coll|
|00002d40| 65 63 74 69 6f 6e 2d 3e | 64 6c 6c 20 64 6c 6c 20 |ection->|dll dll |
|00002d50| 6e 69 6c 20 72 65 73 75 | 6c 74 20 69 63 6f 6f 6b |nil resu|lt icook|
|00002d60| 69 65 2d 63 6f 6c 6c 65 | 63 74 69 6f 6e 2d 3e 68 |ie-colle|ction->h|
|00002d70| 65 61 64 65 72 20 68 65 | 61 64 65 72 20 64 6c 6c |eader he|ader dll|
|00002d80| 2d 6e 74 68 20 2d 32 20 | 74 69 6e 20 69 63 6f 6f |-nth -2 |tin icoo|
|00002d90| 6b 69 65 2d 63 6f 6c 6c | 65 63 74 69 6f 6e 2d 3e |kie-coll|ection->|
|00002da0| 62 75 66 66 65 72 20 28 | 28 73 65 74 2d 62 75 66 |buffer (|(set-buf|
|00002db0| 66 65 72 20 6f 6c 64 2d | 62 75 66 66 65 72 29 29 |fer old-|buffer))|
|00002dc0| 20 69 63 6f 6f 6b 69 65 | 2d 77 72 61 70 70 65 72 | icookie|-wrapper|
|00002dd0| 2d 3e 63 6f 6f 6b 69 65 | 20 32 20 64 6c 6c 2d 70 |->cookie| 2 dll-p|
|00002de0| 72 65 76 69 6f 75 73 5d | 20 34 20 22 5c 0a 52 65 |revious]| 4 "\.Re|
|00002df0| 74 75 72 6e 20 61 20 6c | 69 73 74 20 6f 66 20 61 |turn a l|ist of a|
|00002e00| 6c 6c 20 63 6f 6f 6b 69 | 65 73 20 69 6e 20 43 4f |ll cooki|es in CO|
|00002e10| 4c 4c 45 43 54 49 4f 4e | 2e 22 5d 29 0a 28 66 73 |LLECTION|."]).(fs|
|00002e20| 65 74 20 27 63 6f 6c 6c | 65 63 74 69 6f 6e 2d 63 |et 'coll|ection-c|
|00002e30| 6c 65 61 72 20 23 5b 28 | 63 6f 6c 6c 65 63 74 69 |lear #[(|collecti|
|00002e40| 6f 6e 29 20 22 70 18 09 | 1a c3 5c 6e 21 1c c5 09 |on) "p..|..\n!...|
|00002e50| 21 1e 06 c7 09 21 1e 08 | c9 5c 6e 21 71 88 ca 8e |!....!..|.\n!q...|
|00002e60| cb 1e 0c cd ce 0c cf 5c | 22 d0 48 21 cd 0e 08 d0 |.......\|".H!....|
|00002e70| 48 21 7c 88 29 d1 0e 06 | d0 48 0e 08 d0 48 44 21 |H!|.)...|.H...HD!|
|00002e80| 14 d2 09 0c 5c 22 88 d3 | 09 ce 0c d4 5c 22 5c 22 |....\"..|....\"\"|
|00002e90| 88 d5 09 ce 0c d6 5c 22 | 5c 22 2e 06 87 22 20 5b |......\"|\"..." [|
|00002ea0| 6f 6c 64 2d 62 75 66 66 | 65 72 20 63 6f 6c 6c 65 |old-buff|er colle|
|00002eb0| 63 74 69 6f 6e 20 63 6f | 6c 6c 65 63 74 69 6f 6e |ction co|llection|
|00002ec0| 20 69 63 6f 6f 6b 69 65 | 2d 63 6f 6c 6c 65 63 74 | icookie|-collect|
|00002ed0| 69 6f 6e 2d 3e 64 6c 6c | 20 64 6c 6c 20 69 63 6f |ion->dll| dll ico|
|00002ee0| 6f 6b 69 65 2d 63 6f 6c | 6c 65 63 74 69 6f 6e 2d |okie-col|lection-|
|00002ef0| 3e 68 65 61 64 65 72 20 | 68 65 61 64 65 72 20 69 |>header |header i|
|00002f00| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00002f10| 6e 2d 3e 66 6f 6f 74 65 | 72 20 66 6f 6f 74 65 72 |n->foote|r footer|
|00002f20| 20 69 63 6f 6f 6b 69 65 | 2d 63 6f 6c 6c 65 63 74 | icookie|-collect|
|00002f30| 69 6f 6e 2d 3e 62 75 66 | 66 65 72 20 28 28 73 65 |ion->buf|fer ((se|
|00002f40| 74 2d 62 75 66 66 65 72 | 20 6f 6c 64 2d 62 75 66 |t-buffer| old-buf|
|00002f50| 66 65 72 29 29 20 6e 69 | 6c 20 62 75 66 66 65 72 |fer)) ni|l buffer|
|00002f60| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 69 63 6f 6f 6b |-read-on|ly icook|
|00002f70| 69 65 2d 77 72 61 70 70 | 65 72 2d 3e 73 74 61 72 |ie-wrapp|er->star|
|00002f80| 74 2d 6d 61 72 6b 65 72 | 20 64 6c 6c 2d 6e 74 68 |t-marker| dll-nth|
|00002f90| 20 31 20 32 20 64 6c 6c | 2d 63 72 65 61 74 65 2d | 1 2 dll|-create-|
|00002fa0| 66 72 6f 6d 2d 6c 69 73 | 74 20 69 63 6f 6f 6b 69 |from-lis|t icooki|
|00002fb0| 65 2d 73 65 74 2d 63 6f | 6c 6c 65 63 74 69 6f 6e |e-set-co|llection|
|00002fc0| 2d 3e 64 6c 6c 20 69 63 | 6f 6f 6b 69 65 2d 73 65 |->dll ic|ookie-se|
|00002fd0| 74 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 68 65 |t-collec|tion->he|
|00002fe0| 61 64 65 72 20 30 20 69 | 63 6f 6f 6b 69 65 2d 73 |ader 0 i|cookie-s|
|00002ff0| 65 74 2d 63 6f 6c 6c 65 | 63 74 69 6f 6e 2d 3e 66 |et-colle|ction->f|
|00003000| 6f 6f 74 65 72 20 2d 31 | 5d 20 35 20 22 5c 0a 52 |ooter -1|] 5 "\.R|
|00003010| 65 6d 6f 76 65 20 61 6c | 6c 20 63 6f 6f 6b 69 65 |emove al|l cookie|
|00003020| 73 20 69 6e 20 43 4f 4c | 4c 45 43 54 49 4f 4e 2e |s in COL|LECTION.|
|00003030| 22 5d 29 0a 28 66 73 65 | 74 20 27 63 6f 6f 6b 69 |"]).(fse|t 'cooki|
|00003040| 65 2d 6d 61 70 20 23 5b | 28 6d 61 70 2d 66 75 6e |e-map #[|(map-fun|
|00003050| 63 74 69 6f 6e 20 63 6f | 6c 6c 65 63 74 69 6f 6e |ction co|llection|
|00003060| 20 26 72 65 73 74 20 6d | 61 70 2d 61 72 67 73 29 | &rest m|ap-args)|
|00003070| 20 22 70 18 09 1a c3 5c | 6e 21 1c c5 09 21 1e 06 | "p....\|n!...!..|
|00003080| c7 0c c8 5c 22 1e 09 ca | 5c 6e 21 71 88 cb 8e 0e |...\"...|\n!q....|
|00003090| 09 0e 06 3d 3f ad 9e cc | 0e 0d ce 0e 09 cf 48 21 |...=?...|......H!|
|000030a0| 0e 10 23 ab 86 d1 09 0e | 09 5c 22 88 d2 0c 0e 09 |..#.....|.\".....|
|000030b0| 5c 22 89 16 09 aa 5c 5c | 2e 06 87 22 20 5b 6f 6c |\"....\\|..." [ol|
|000030c0| 64 2d 62 75 66 66 65 72 | 20 63 6f 6c 6c 65 63 74 |d-buffer| collect|
|000030d0| 69 6f 6e 20 63 6f 6c 6c | 65 63 74 69 6f 6e 20 69 |ion coll|ection i|
|000030e0| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|000030f0| 6e 2d 3e 64 6c 6c 20 64 | 6c 6c 20 69 63 6f 6f 6b |n->dll d|ll icook|
|00003100| 69 65 2d 63 6f 6c 6c 65 | 63 74 69 6f 6e 2d 3e 66 |ie-colle|ction->f|
|00003110| 6f 6f 74 65 72 20 66 6f | 6f 74 65 72 20 64 6c 6c |ooter fo|oter dll|
|00003120| 2d 6e 74 68 20 31 20 74 | 69 6e 20 69 63 6f 6f 6b |-nth 1 t|in icook|
|00003130| 69 65 2d 63 6f 6c 6c 65 | 63 74 69 6f 6e 2d 3e 62 |ie-colle|ction->b|
|00003140| 75 66 66 65 72 20 28 28 | 73 65 74 2d 62 75 66 66 |uffer ((|set-buff|
|00003150| 65 72 20 6f 6c 64 2d 62 | 75 66 66 65 72 29 29 20 |er old-b|uffer)) |
|00003160| 61 70 70 6c 79 20 6d 61 | 70 2d 66 75 6e 63 74 69 |apply ma|p-functi|
|00003170| 6f 6e 20 69 63 6f 6f 6b | 69 65 2d 77 72 61 70 70 |on icook|ie-wrapp|
|00003180| 65 72 2d 3e 63 6f 6f 6b | 69 65 20 32 20 6d 61 70 |er->cook|ie 2 map|
|00003190| 2d 61 72 67 73 20 69 63 | 6f 6f 6b 69 65 2d 72 65 |-args ic|ookie-re|
|000031a0| 66 72 65 73 68 2d 74 69 | 6e 20 64 6c 6c 2d 6e 65 |fresh-ti|n dll-ne|
|000031b0| 78 74 5d 20 36 20 22 5c | 0a 41 70 70 6c 79 20 4d |xt] 6 "\|.Apply M|
|000031c0| 41 50 2d 46 55 4e 43 54 | 49 4f 4e 20 74 6f 20 61 |AP-FUNCT|ION to a|
|000031d0| 6c 6c 20 63 6f 6f 6b 69 | 65 73 20 69 6e 20 43 4f |ll cooki|es in CO|
|000031e0| 4c 4c 45 43 54 49 4f 4e | 2e 0a 4d 41 50 2d 46 55 |LLECTION|..MAP-FU|
|000031f0| 4e 43 54 49 4f 4e 20 69 | 73 20 61 70 70 6c 69 65 |NCTION i|s applie|
|00003200| 64 20 74 6f 20 74 68 65 | 20 66 69 72 73 74 20 65 |d to the| first e|
|00003210| 6c 65 6d 65 6e 74 20 66 | 69 72 73 74 2e 0a 49 66 |lement f|irst..If|
|00003220| 20 4d 41 50 2d 46 55 4e | 43 54 49 4f 4e 20 72 65 | MAP-FUN|CTION re|
|00003230| 74 75 72 6e 73 20 6e 6f | 6e 2d 6e 69 6c 20 74 68 |turns no|n-nil th|
|00003240| 65 20 63 6f 6f 6b 69 65 | 20 77 69 6c 6c 20 62 65 |e cookie| will be|
|00003250| 20 72 65 66 72 65 73 68 | 65 64 20 28 69 74 73 0a | refresh|ed (its.|
|00003260| 70 72 65 74 74 79 2d 70 | 72 69 6e 74 65 72 20 77 |pretty-p|rinter w|
|00003270| 69 6c 6c 20 62 65 20 63 | 61 6c 6c 65 64 20 6f 6e |ill be c|alled on|
|00003280| 63 65 20 61 67 61 69 6e | 29 2e 0a 0a 4e 6f 74 65 |ce again|)...Note|
|00003290| 20 74 68 61 74 20 74 68 | 65 20 62 75 66 66 65 72 | that th|e buffer|
|000032a0| 20 66 6f 72 20 43 4f 4c | 4c 45 43 54 49 4f 4e 20 | for COL|LECTION |
|000032b0| 77 69 6c 6c 20 62 65 20 | 63 75 72 72 65 6e 74 20 |will be |current |
|000032c0| 62 75 66 66 65 72 20 77 | 68 65 6e 20 4d 41 50 2d |buffer w|hen MAP-|
|000032d0| 46 55 4e 43 54 49 4f 4e | 20 0a 69 73 20 63 61 6c |FUNCTION| .is cal|
|000032e0| 6c 65 64 2e 20 20 4d 41 | 50 2d 46 55 4e 43 54 49 |led. MA|P-FUNCTI|
|000032f0| 4f 4e 20 6d 75 73 74 20 | 72 65 73 74 6f 72 65 20 |ON must |restore |
|00003300| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00003310| 65 72 20 74 6f 20 42 55 | 46 46 45 52 20 62 65 66 |er to BU|FFER bef|
|00003320| 6f 72 65 20 0a 69 74 20 | 72 65 74 75 72 6e 73 2c |ore .it |returns,|
|00003330| 20 69 66 20 69 74 20 63 | 68 61 6e 67 65 73 20 69 | if it c|hanges i|
|00003340| 74 2e 0a 0a 49 66 20 6d | 6f 72 65 20 74 68 61 6e |t...If m|ore than|
|00003350| 20 74 77 6f 20 61 72 67 | 75 6d 65 6e 74 73 20 61 | two arg|uments a|
|00003360| 72 65 20 67 69 76 65 6e | 20 74 6f 20 63 6f 6f 6b |re given| to cook|
|00003370| 69 65 2d 6d 61 70 2c 20 | 72 65 6d 61 69 6e 69 6e |ie-map, |remainin|
|00003380| 67 0a 61 72 67 75 6d 65 | 6e 74 73 20 77 69 6c 6c |g.argume|nts will|
|00003390| 20 62 65 20 70 61 73 73 | 65 64 20 74 6f 20 4d 41 | be pass|ed to MA|
|000033a0| 50 2d 46 55 4e 43 54 49 | 4f 4e 2e 22 5d 29 0a 28 |P-FUNCTI|ON."]).(|
|000033b0| 66 73 65 74 20 27 63 6f | 6f 6b 69 65 2d 6d 61 70 |fset 'co|okie-map|
|000033c0| 2d 72 65 76 65 72 73 65 | 20 23 5b 28 6d 61 70 2d |-reverse| #[(map-|
|000033d0| 66 75 6e 63 74 69 6f 6e | 20 63 6f 6c 6c 65 63 74 |function| collect|
|000033e0| 69 6f 6e 20 26 72 65 73 | 74 20 6d 61 70 2d 61 72 |ion &res|t map-ar|
|000033f0| 67 73 29 20 22 70 18 09 | 1a c3 5c 6e 21 1c c5 09 |gs) "p..|..\n!...|
|00003400| 21 1e 06 c7 0c c8 5c 22 | 1e 09 ca 5c 6e 21 71 88 |!.....\"|...\n!q.|
|00003410| cb 8e 0e 09 0e 06 3d 3f | ad 9e cc 0e 0d ce 0e 09 |......=?|........|
|00003420| cf 48 21 0e 10 23 ab 86 | d1 09 0e 09 5c 22 88 d2 |.H!..#..|....\"..|
|00003430| 0c 0e 09 5c 22 89 16 09 | aa 5c 5c 2e 06 87 22 20 |...\"...|.\\..." |
|00003440| 5b 6f 6c 64 2d 62 75 66 | 66 65 72 20 63 6f 6c 6c |[old-buf|fer coll|
|00003450| 65 63 74 69 6f 6e 20 63 | 6f 6c 6c 65 63 74 69 6f |ection c|ollectio|
|00003460| 6e 20 69 63 6f 6f 6b 69 | 65 2d 63 6f 6c 6c 65 63 |n icooki|e-collec|
|00003470| 74 69 6f 6e 2d 3e 64 6c | 6c 20 64 6c 6c 20 69 63 |tion->dl|l dll ic|
|00003480| 6f 6f 6b 69 65 2d 63 6f | 6c 6c 65 63 74 69 6f 6e |ookie-co|llection|
|00003490| 2d 3e 68 65 61 64 65 72 | 20 68 65 61 64 65 72 20 |->header| header |
|000034a0| 64 6c 6c 2d 6e 74 68 20 | 2d 32 20 74 69 6e 20 69 |dll-nth |-2 tin i|
|000034b0| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|000034c0| 6e 2d 3e 62 75 66 66 65 | 72 20 28 28 73 65 74 2d |n->buffe|r ((set-|
|000034d0| 62 75 66 66 65 72 20 6f | 6c 64 2d 62 75 66 66 65 |buffer o|ld-buffe|
|000034e0| 72 29 29 20 61 70 70 6c | 79 20 6d 61 70 2d 66 75 |r)) appl|y map-fu|
|000034f0| 6e 63 74 69 6f 6e 20 69 | 63 6f 6f 6b 69 65 2d 77 |nction i|cookie-w|
|00003500| 72 61 70 70 65 72 2d 3e | 63 6f 6f 6b 69 65 20 32 |rapper->|cookie 2|
|00003510| 20 6d 61 70 2d 61 72 67 | 73 20 69 63 6f 6f 6b 69 | map-arg|s icooki|
|00003520| 65 2d 72 65 66 72 65 73 | 68 2d 74 69 6e 20 64 6c |e-refres|h-tin dl|
|00003530| 6c 2d 70 72 65 76 69 6f | 75 73 5d 20 36 20 22 5c |l-previo|us] 6 "\|
|00003540| 0a 41 70 70 6c 79 20 4d | 41 50 2d 46 55 4e 43 54 |.Apply M|AP-FUNCT|
|00003550| 49 4f 4e 20 74 6f 20 61 | 6c 6c 20 63 6f 6f 6b 69 |ION to a|ll cooki|
|00003560| 65 73 20 69 6e 20 43 4f | 4c 4c 45 43 54 49 4f 4e |es in CO|LLECTION|
|00003570| 2e 0a 4d 41 50 2d 46 55 | 4e 43 54 49 4f 4e 20 69 |..MAP-FU|NCTION i|
|00003580| 73 20 61 70 70 6c 69 65 | 64 20 74 6f 20 74 68 65 |s applie|d to the|
|00003590| 20 6c 61 73 74 20 63 6f | 6f 6b 69 65 20 66 69 72 | last co|okie fir|
|000035a0| 73 74 2e 0a 49 66 20 4d | 41 50 2d 46 55 4e 43 54 |st..If M|AP-FUNCT|
|000035b0| 49 4f 4e 20 72 65 74 75 | 72 6e 73 20 6e 6f 6e 2d |ION retu|rns non-|
|000035c0| 6e 69 6c 20 74 68 65 20 | 63 6f 6f 6b 69 65 20 77 |nil the |cookie w|
|000035d0| 69 6c 6c 20 62 65 20 72 | 65 66 72 65 73 68 65 64 |ill be r|efreshed|
|000035e0| 2e 0a 0a 4e 6f 74 65 20 | 74 68 61 74 20 74 68 65 |...Note |that the|
|000035f0| 20 62 75 66 66 65 72 20 | 66 6f 72 20 43 4f 4c 4c | buffer |for COLL|
|00003600| 45 43 54 49 4f 4e 20 77 | 69 6c 6c 20 62 65 20 63 |ECTION w|ill be c|
|00003610| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 77 68 |urrent b|uffer wh|
|00003620| 65 6e 20 4d 41 50 2d 46 | 55 4e 43 54 49 4f 4e 20 |en MAP-F|UNCTION |
|00003630| 0a 69 73 20 63 61 6c 6c | 65 64 2e 20 20 4d 41 50 |.is call|ed. MAP|
|00003640| 2d 46 55 4e 43 54 49 4f | 4e 20 6d 75 73 74 20 72 |-FUNCTIO|N must r|
|00003650| 65 73 74 6f 72 65 20 74 | 68 65 20 63 75 72 72 65 |estore t|he curre|
|00003660| 6e 74 20 62 75 66 66 65 | 72 20 74 6f 20 42 55 46 |nt buffe|r to BUF|
|00003670| 46 45 52 20 62 65 66 6f | 72 65 20 0a 69 74 20 72 |FER befo|re .it r|
|00003680| 65 74 75 72 6e 73 2c 20 | 69 66 20 69 74 20 63 68 |eturns, |if it ch|
|00003690| 61 6e 67 65 73 20 74 68 | 65 20 63 75 72 72 65 6e |anges th|e curren|
|000036a0| 74 20 62 75 66 66 65 72 | 2e 0a 0a 49 66 20 6d 6f |t buffer|...If mo|
|000036b0| 72 65 20 74 68 61 6e 20 | 74 77 6f 20 61 72 67 75 |re than |two argu|
|000036c0| 6d 65 6e 74 73 20 61 72 | 65 20 67 69 76 65 6e 20 |ments ar|e given |
|000036d0| 74 6f 20 63 6f 6f 6b 69 | 65 2d 6d 61 70 2c 20 72 |to cooki|e-map, r|
|000036e0| 65 6d 61 69 6e 69 6e 67 | 0a 61 72 67 75 6d 65 6e |emaining|.argumen|
|000036f0| 74 73 20 77 69 6c 6c 20 | 62 65 20 70 61 73 73 65 |ts will |be passe|
|00003700| 64 20 74 6f 20 4d 41 50 | 2d 46 55 4e 43 54 49 4f |d to MAP|-FUNCTIO|
|00003710| 4e 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 63 6f 6c |N."]).(f|set 'col|
|00003720| 6c 65 63 74 69 6f 6e 2d | 61 70 70 65 6e 64 2d 63 |lection-|append-c|
|00003730| 6f 6f 6b 69 65 73 20 23 | 5b 28 63 6f 6c 6c 65 63 |ookies #|[(collec|
|00003740| 74 69 6f 6e 20 63 6f 6f | 6b 69 65 2d 6c 69 73 74 |tion coo|kie-list|
|00003750| 29 20 22 08 ad 8d c1 5c | 6e 08 40 5c 22 88 08 41 |) "....\|n.@\"..A|
|00003760| 89 10 ac 74 c3 87 22 20 | 5b 63 6f 6f 6b 69 65 2d |...t.." |[cookie-|
|00003770| 6c 69 73 74 20 63 6f 6f | 6b 69 65 2d 65 6e 74 65 |list coo|kie-ente|
|00003780| 72 2d 6c 61 73 74 20 63 | 6f 6c 6c 65 63 74 69 6f |r-last c|ollectio|
|00003790| 6e 20 6e 69 6c 5d 20 34 | 20 22 5c 0a 49 6e 73 65 |n nil] 4| "\.Inse|
|000037a0| 72 74 20 61 6c 6c 20 63 | 6f 6f 6b 69 65 73 20 69 |rt all c|ookies i|
|000037b0| 6e 20 74 68 65 20 6c 69 | 73 74 20 43 4f 4f 4b 49 |n the li|st COOKI|
|000037c0| 45 2d 4c 49 53 54 20 6c | 61 73 74 20 69 6e 20 43 |E-LIST l|ast in C|
|000037d0| 4f 4c 4c 45 43 54 49 4f | 4e 2e 0a 41 72 67 73 3a |OLLECTIO|N..Args:|
|000037e0| 20 43 4f 4c 4c 45 43 54 | 49 4f 4e 20 43 4f 4f 4b | COLLECT|ION COOK|
|000037f0| 49 45 2d 4c 49 53 54 2e | 22 5d 29 0a 28 66 73 65 |IE-LIST.|"]).(fse|
|00003800| 74 20 27 63 6f 6c 6c 65 | 63 74 69 6f 6e 2d 66 69 |t 'colle|ction-fi|
|00003810| 6c 74 65 72 2d 63 6f 6f | 6b 69 65 73 20 23 5b 28 |lter-coo|kies #[(|
|00003820| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 70 72 65 64 69 |collecti|on predi|
|00003830| 63 61 74 65 20 26 72 65 | 73 74 20 65 78 74 72 61 |cate &re|st extra|
|00003840| 2d 61 72 67 73 29 20 22 | 70 18 09 1a c3 5c 6e 21 |-args) "|p....\n!|
|00003850| 1c c5 0c c6 5c 22 1e 07 | c8 09 21 1e 09 ca 1e 0b |....\"..|..!.....|
|00003860| cc 5c 6e 21 71 88 cd 8e | 0e 07 0e 09 3d 3f ad a2 |.\n!q...|....=?..|
|00003870| ce 0c 0e 07 5c 22 16 0b | cf 0e 10 d1 0e 07 d2 48 |....\"..|.......H|
|00003880| 21 0e 13 23 ac 86 d4 09 | 0e 07 5c 22 88 0e 0b 89 |!..#....|..\"....|
|00003890| 16 07 aa 58 2e 07 87 22 | 20 5b 6f 6c 64 2d 62 75 |...X..."| [old-bu|
|000038a0| 66 66 65 72 20 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |ffer col|lection |
|000038b0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 69 63 6f 6f 6b |collecti|on icook|
|000038c0| 69 65 2d 63 6f 6c 6c 65 | 63 74 69 6f 6e 2d 3e 64 |ie-colle|ction->d|
|000038d0| 6c 6c 20 64 6c 6c 20 64 | 6c 6c 2d 6e 74 68 20 31 |ll dll d|ll-nth 1|
|000038e0| 20 74 69 6e 20 69 63 6f | 6f 6b 69 65 2d 63 6f 6c | tin ico|okie-col|
|000038f0| 6c 65 63 74 69 6f 6e 2d | 3e 66 6f 6f 74 65 72 20 |lection-|>footer |
|00003900| 66 6f 6f 74 65 72 20 6e | 69 6c 20 6e 65 78 74 20 |footer n|il next |
|00003910| 69 63 6f 6f 6b 69 65 2d | 63 6f 6c 6c 65 63 74 69 |icookie-|collecti|
|00003920| 6f 6e 2d 3e 62 75 66 66 | 65 72 20 28 28 73 65 74 |on->buff|er ((set|
|00003930| 2d 62 75 66 66 65 72 20 | 6f 6c 64 2d 62 75 66 66 |-buffer |old-buff|
|00003940| 65 72 29 29 20 64 6c 6c | 2d 6e 65 78 74 20 61 70 |er)) dll|-next ap|
|00003950| 70 6c 79 20 70 72 65 64 | 69 63 61 74 65 20 69 63 |ply pred|icate ic|
|00003960| 6f 6f 6b 69 65 2d 77 72 | 61 70 70 65 72 2d 3e 63 |ookie-wr|apper->c|
|00003970| 6f 6f 6b 69 65 20 32 20 | 65 78 74 72 61 2d 61 72 |ookie 2 |extra-ar|
|00003980| 67 73 20 69 63 6f 6f 6b | 69 65 2d 64 65 6c 65 74 |gs icook|ie-delet|
|00003990| 65 2d 74 69 6e 2d 69 6e | 74 65 72 6e 61 6c 5d 20 |e-tin-in|ternal] |
|000039a0| 36 20 22 5c 0a 52 65 6d | 6f 76 65 20 61 6c 6c 20 |6 "\.Rem|ove all |
|000039b0| 63 6f 6f 6b 69 65 73 20 | 69 6e 20 43 4f 4c 4c 45 |cookies |in COLLE|
|000039c0| 43 54 49 4f 4e 20 66 6f | 72 20 77 68 69 63 68 20 |CTION fo|r which |
|000039d0| 50 52 45 44 49 43 41 54 | 45 20 72 65 74 75 72 6e |PREDICAT|E return|
|000039e0| 73 20 6e 69 6c 2e 0a 41 | 72 67 73 3a 20 43 4f 4c |s nil..A|rgs: COL|
|000039f0| 4c 45 43 54 49 4f 4e 20 | 50 52 45 44 49 43 41 54 |LECTION |PREDICAT|
|00003a00| 45 20 26 72 65 73 74 20 | 45 58 54 52 41 2d 41 52 |E &rest |EXTRA-AR|
|00003a10| 47 53 2e 0a 4e 6f 74 65 | 20 74 68 61 74 20 74 68 |GS..Note| that th|
|00003a20| 65 20 62 75 66 66 65 72 | 20 66 6f 72 20 43 4f 4c |e buffer| for COL|
|00003a30| 4c 45 43 54 49 4f 4e 20 | 77 69 6c 6c 20 62 65 20 |LECTION |will be |
|00003a40| 63 75 72 72 65 6e 74 2d | 62 75 66 66 65 72 20 77 |current-|buffer w|
|00003a50| 68 65 6e 20 50 52 45 44 | 49 43 41 54 45 20 0a 69 |hen PRED|ICATE .i|
|00003a60| 73 20 63 61 6c 6c 65 64 | 2e 20 50 52 45 44 49 43 |s called|. PREDIC|
|00003a70| 41 54 45 20 6d 75 73 74 | 20 72 65 73 74 6f 72 65 |ATE must| restore|
|00003a80| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 | the cur|rent buf|
|00003a90| 66 65 72 20 62 65 66 6f | 72 65 20 69 74 20 72 65 |fer befo|re it re|
|00003aa0| 74 75 72 6e 73 0a 69 66 | 20 69 74 20 63 68 61 6e |turns.if| it chan|
|00003ab0| 67 65 73 20 69 74 2e 0a | 0a 54 68 65 20 50 52 45 |ges it..|.The PRE|
|00003ac0| 44 49 43 41 54 45 20 69 | 73 20 63 61 6c 6c 65 64 |DICATE i|s called|
|00003ad0| 20 77 69 74 68 20 74 68 | 65 20 63 6f 6f 6b 69 65 | with th|e cookie|
|00003ae0| 20 61 73 20 69 74 73 20 | 66 69 72 73 74 20 61 72 | as its |first ar|
|00003af0| 67 75 6d 65 6e 74 2e 20 | 49 66 20 61 6e 79 0a 45 |gument. |If any.E|
|00003b00| 58 54 52 41 2d 41 52 47 | 53 20 61 72 65 20 67 69 |XTRA-ARG|S are gi|
|00003b10| 76 65 6e 20 74 6f 20 63 | 6f 6c 6c 65 63 74 69 6f |ven to c|ollectio|
|00003b20| 6e 2d 66 69 6c 74 65 72 | 2d 63 6f 6f 6b 69 65 73 |n-filter|-cookies|
|00003b30| 20 74 68 65 79 20 77 69 | 6c 6c 20 62 65 20 70 61 | they wi|ll be pa|
|00003b40| 73 73 65 64 20 74 6f 20 | 74 68 65 0a 50 52 45 44 |ssed to |the.PRED|
|00003b50| 49 43 41 54 45 2e 22 5d | 29 0a 28 66 73 65 74 20 |ICATE."]|).(fset |
|00003b60| 27 63 6f 6c 6c 65 63 74 | 69 6f 6e 2d 66 69 6c 74 |'collect|ion-filt|
|00003b70| 65 72 2d 74 69 6e 73 20 | 23 5b 28 63 6f 6c 6c 65 |er-tins |#[(colle|
|00003b80| 63 74 69 6f 6e 20 70 72 | 65 64 69 63 61 74 65 20 |ction pr|edicate |
|00003b90| 26 72 65 73 74 20 65 78 | 74 72 61 2d 61 72 67 73 |&rest ex|tra-args|
|00003ba0| 29 20 22 70 18 09 1a c3 | 5c 6e 21 1c c5 0c c6 5c |) "p....|\n!....\|
|00003bb0| 22 1e 07 c8 09 21 1e 09 | ca 1e 0b cc 5c 6e 21 71 |"....!..|....\n!q|
|00003bc0| 88 cd 8e 0e 07 0e 09 3d | 3f ad 9e ce 0c 0e 07 5c |.......=|?......\|
|00003bd0| 22 16 0b cf 0e 10 0e 07 | 0e 11 23 ac 86 d2 09 0e |".......|..#.....|
|00003be0| 07 5c 22 88 0e 0b 89 16 | 07 aa 5c 5c 2e 07 87 22 |.\".....|..\\..."|
|00003bf0| 20 5b 6f 6c 64 2d 62 75 | 66 66 65 72 20 63 6f 6c | [old-bu|ffer col|
|00003c00| 6c 65 63 74 69 6f 6e 20 | 63 6f 6c 6c 65 63 74 69 |lection |collecti|
|00003c10| 6f 6e 20 69 63 6f 6f 6b | 69 65 2d 63 6f 6c 6c 65 |on icook|ie-colle|
|00003c20| 63 74 69 6f 6e 2d 3e 64 | 6c 6c 20 64 6c 6c 20 64 |ction->d|ll dll d|
|00003c30| 6c 6c 2d 6e 74 68 20 31 | 20 74 69 6e 20 69 63 6f |ll-nth 1| tin ico|
|00003c40| 6f 6b 69 65 2d 63 6f 6c | 6c 65 63 74 69 6f 6e 2d |okie-col|lection-|
|00003c50| 3e 66 6f 6f 74 65 72 20 | 66 6f 6f 74 65 72 20 6e |>footer |footer n|
|00003c60| 69 6c 20 6e 65 78 74 20 | 69 63 6f 6f 6b 69 65 2d |il next |icookie-|
|00003c70| 63 6f 6c 6c 65 63 74 69 | 6f 6e 2d 3e 62 75 66 66 |collecti|on->buff|
|00003c80| 65 72 20 28 28 73 65 74 | 2d 62 75 66 66 65 72 20 |er ((set|-buffer |
|00003c90| 6f 6c 64 2d 62 75 66 66 | 65 72 29 29 20 64 6c 6c |old-buff|er)) dll|
|00003ca0| 2d 6e 65 78 74 20 61 70 | 70 6c 79 20 70 72 65 64 |-next ap|ply pred|
|00003cb0| 69 63 61 74 65 20 65 78 | 74 72 61 2d 61 72 67 73 |icate ex|tra-args|
|00003cc0| 20 69 63 6f 6f 6b 69 65 | 2d 64 65 6c 65 74 65 2d | icookie|-delete-|
|00003cd0| 74 69 6e 2d 69 6e 74 65 | 72 6e 61 6c 5d 20 35 20 |tin-inte|rnal] 5 |
|00003ce0| 22 5c 0a 52 65 6d 6f 76 | 65 20 61 6c 6c 20 63 6f |"\.Remov|e all co|
|00003cf0| 6f 6b 69 65 73 20 69 6e | 20 43 4f 4c 4c 45 43 54 |okies in| COLLECT|
|00003d00| 49 4f 4e 20 66 6f 72 20 | 77 68 69 63 68 20 50 52 |ION for |which PR|
|00003d10| 45 44 49 43 41 54 45 20 | 72 65 74 75 72 6e 73 20 |EDICATE |returns |
|00003d20| 6e 69 6c 2e 0a 4e 6f 74 | 65 20 74 68 61 74 20 74 |nil..Not|e that t|
|00003d30| 68 65 20 62 75 66 66 65 | 72 20 66 6f 72 20 43 4f |he buffe|r for CO|
|00003d40| 4c 4c 45 43 54 49 4f 4e | 20 77 69 6c 6c 20 62 65 |LLECTION| will be|
|00003d50| 20 63 75 72 72 65 6e 74 | 2d 62 75 66 66 65 72 20 | current|-buffer |
|00003d60| 77 68 65 6e 20 50 52 45 | 44 49 43 41 54 45 20 0a |when PRE|DICATE .|
|00003d70| 69 73 20 63 61 6c 6c 65 | 64 2e 20 50 52 45 44 49 |is calle|d. PREDI|
|00003d80| 43 41 54 45 20 6d 75 73 | 74 20 72 65 73 74 6f 72 |CATE mus|t restor|
|00003d90| 65 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |e the cu|rrent bu|
|00003da0| 66 66 65 72 20 62 65 66 | 6f 72 65 20 69 74 20 72 |ffer bef|ore it r|
|00003db0| 65 74 75 72 6e 73 0a 69 | 66 20 69 74 20 63 68 61 |eturns.i|f it cha|
|00003dc0| 6e 67 65 73 20 69 74 2e | 0a 0a 54 68 65 20 50 52 |nges it.|..The PR|
|00003dd0| 45 44 49 43 41 54 45 20 | 69 73 20 63 61 6c 6c 65 |EDICATE |is calle|
|00003de0| 64 20 77 69 74 68 20 6f | 6e 65 20 61 72 67 75 6d |d with o|ne argum|
|00003df0| 65 6e 74 2c 20 74 68 65 | 20 74 69 6e 2e 20 49 66 |ent, the| tin. If|
|00003e00| 20 61 6e 79 20 45 58 54 | 52 41 2d 41 52 47 53 0a | any EXT|RA-ARGS.|
|00003e10| 61 72 65 20 67 69 76 65 | 6e 20 74 6f 20 63 6f 6c |are give|n to col|
|00003e20| 6c 65 63 74 69 6f 6e 2d | 66 69 6c 74 65 72 2d 63 |lection-|filter-c|
|00003e30| 6f 6f 6b 69 65 73 20 74 | 68 65 79 20 77 69 6c 6c |ookies t|hey will|
|00003e40| 20 62 65 20 70 61 73 73 | 65 64 20 74 6f 20 74 68 | be pass|ed to th|
|00003e50| 65 20 50 52 45 44 49 43 | 41 54 45 2e 22 5d 29 0a |e PREDIC|ATE."]).|
|00003e60| 28 66 73 65 74 20 27 74 | 69 6e 2d 6c 6f 63 61 74 |(fset 't|in-locat|
|00003e70| 65 20 23 5b 28 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |e #[(col|lection |
|00003e80| 70 6f 73 20 26 6f 70 74 | 69 6f 6e 61 6c 20 67 75 |pos &opt|ional gu|
|00003e90| 65 73 73 29 20 22 70 18 | 09 1a c3 5c 6e 21 1c c5 |ess) "p.|...\n!..|
|00003ea0| 09 21 1e 06 c7 5c 6e 21 | 71 88 c8 8e c9 0c ca 5c |.!...\n!|q......\|
|00003eb0| 22 c9 0c cb 5c 22 3d ab | 84 cc 82 04 01 0e 0d ce |"...\"=.|........|
|00003ec0| c9 0c ca 5c 22 cf 48 21 | 57 ab 87 c9 0c ca 5c 22 |...\".H!|W.....\"|
|00003ed0| 82 04 01 0e 0d ce d0 0c | 21 21 59 ab 87 c9 0c d1 |........|!!Y.....|
|00003ee0| 5c 22 82 04 01 c9 0c ca | 5c 22 1e 12 d3 0e 0d ce |\"......|\"......|
|00003ef0| 0e 12 cf 48 21 5a 21 1e | 14 0e 15 ab a0 0e 15 1e |...H!Z!.|........|
|00003f00| 16 d3 0e 0d ce 0e 16 cf | 48 21 5a 21 89 1e 17 0e |........|H!Z!....|
|00003f10| 14 57 ab 88 0e 17 16 14 | 0e 16 16 12 2a c9 0c cb |.W......|....*...|
|00003f20| 5c 22 1e 16 d3 0e 0d ce | 0e 16 cf 48 21 5a 21 89 |\"......|...H!Z!.|
|00003f30| 1e 17 0e 14 57 ab 88 0e | 17 16 14 0e 16 16 12 2a |....W...|.......*|
|00003f40| d8 09 21 ab a1 d8 09 21 | 1e 16 d3 0e 0d ce 0e 16 |..!....!|........|
|00003f50| cf 48 21 5a 21 89 1e 17 | 0e 14 57 ab 88 0e 17 16 |.H!Z!...|..W.....|
|00003f60| 14 0e 16 16 12 2a 0e 0d | ce 0e 12 cf 48 21 59 ab |.....*..|....H!Y.|
|00003f70| 9b 0e 0d ce 0e 12 cf 48 | 21 59 ab 89 d9 0c 0e 12 |.......H|!Y......|
|00003f80| 5c 22 16 12 aa 6c da 0c | 0e 12 5c 22 aa 96 0e 0d |\"...l..|..\"....|
|00003f90| ce 0e 12 cf 48 21 57 ab | 89 da 0c 0e 12 5c 22 16 |....H!W.|.....\".|
|00003fa0| 12 aa 6c 0e 12 2a 2d 87 | 22 20 5b 6f 6c 64 2d 62 |..l..*-.|" [old-b|
|00003fb0| 75 66 66 65 72 20 63 6f | 6c 6c 65 63 74 69 6f 6e |uffer co|llection|
|00003fc0| 20 63 6f 6c 6c 65 63 74 | 69 6f 6e 20 69 63 6f 6f | collect|ion icoo|
|00003fd0| 6b 69 65 2d 63 6f 6c 6c | 65 63 74 69 6f 6e 2d 3e |kie-coll|ection->|
|00003fe0| 64 6c 6c 20 64 6c 6c 20 | 69 63 6f 6f 6b 69 65 2d |dll dll |icookie-|
|00003ff0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 2d 3e 66 6f 6f 74 |collecti|on->foot|
|00004000| 65 72 20 66 6f 6f 74 65 | 72 20 69 63 6f 6f 6b 69 |er foote|r icooki|
|00004010| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 62 75 |e-collec|tion->bu|
|00004020| 66 66 65 72 20 28 28 73 | 65 74 2d 62 75 66 66 65 |ffer ((s|et-buffe|
|00004030| 72 20 6f 6c 64 2d 62 75 | 66 66 65 72 29 29 20 64 |r old-bu|ffer)) d|
|00004040| 6c 6c 2d 6e 74 68 20 31 | 20 2d 31 20 6e 69 6c 20 |ll-nth 1| -1 nil |
|00004050| 70 6f 73 20 69 63 6f 6f | 6b 69 65 2d 77 72 61 70 |pos icoo|kie-wrap|
|00004060| 70 65 72 2d 3e 73 74 61 | 72 74 2d 6d 61 72 6b 65 |per->sta|rt-marke|
|00004070| 72 20 32 20 64 6c 6c 2d | 6c 61 73 74 20 2d 32 20 |r 2 dll-|last -2 |
|00004080| 62 65 73 74 2d 67 75 65 | 73 73 20 69 63 6f 6f 6b |best-gue|ss icook|
|00004090| 69 65 2d 61 62 73 20 64 | 69 73 74 61 6e 63 65 20 |ie-abs d|istance |
|000040a0| 67 75 65 73 73 20 67 20 | 64 20 69 63 6f 6f 6b 69 |guess g |d icooki|
|000040b0| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 6c 61 |e-collec|tion->la|
|000040c0| 73 74 2d 74 69 6e 20 64 | 6c 6c 2d 6e 65 78 74 20 |st-tin d|ll-next |
|000040d0| 64 6c 6c 2d 70 72 65 76 | 69 6f 75 73 5d 20 36 20 |dll-prev|ious] 6 |
|000040e0| 22 5c 0a 52 65 74 75 72 | 6e 20 74 68 65 20 74 69 |"\.Retur|n the ti|
|000040f0| 6e 20 74 68 61 74 20 50 | 4f 53 20 28 61 20 62 75 |n that P|OS (a bu|
|00004100| 66 66 65 72 20 70 6f 73 | 69 74 69 6f 6e 29 20 69 |ffer pos|ition) i|
|00004110| 73 20 77 69 74 68 69 6e | 2e 0a 41 72 67 73 3a 20 |s within|..Args: |
|00004120| 43 4f 4c 4c 45 43 54 49 | 4f 4e 20 50 4f 53 20 26 |COLLECTI|ON POS &|
|00004130| 6f 70 74 69 6f 6e 61 6c | 20 47 55 45 53 53 2e 0a |optional| GUESS..|
|00004140| 50 4f 53 20 6d 61 79 20 | 62 65 20 61 20 6d 61 72 |POS may |be a mar|
|00004150| 6b 65 72 20 6f 72 20 61 | 6e 20 69 6e 74 65 67 65 |ker or a|n intege|
|00004160| 72 2e 0a 47 55 45 53 53 | 20 73 68 6f 75 6c 64 20 |r..GUESS| should |
|00004170| 62 65 20 61 20 74 69 6e | 20 74 68 61 74 20 69 74 |be a tin| that it|
|00004180| 20 69 73 20 6c 69 6b 65 | 6c 79 20 74 68 61 74 20 | is like|ly that |
|00004190| 50 4f 53 20 69 73 20 6e | 65 61 72 2e 0a 0a 49 66 |POS is n|ear...If|
|000041a0| 20 50 4f 53 20 70 6f 69 | 6e 74 73 20 62 65 66 6f | POS poi|nts befo|
|000041b0| 72 65 20 74 68 65 20 66 | 69 72 73 74 20 63 6f 6f |re the f|irst coo|
|000041c0| 6b 69 65 2c 20 74 68 65 | 20 66 69 72 73 74 20 63 |kie, the| first c|
|000041d0| 6f 6f 6b 69 65 20 69 73 | 20 72 65 74 75 72 6e 65 |ookie is| returne|
|000041e0| 64 2e 0a 49 66 20 50 4f | 53 20 70 6f 69 6e 74 73 |d..If PO|S points|
|000041f0| 20 61 66 74 65 72 20 74 | 68 65 20 6c 61 73 74 20 | after t|he last |
|00004200| 63 6f 6f 6b 69 65 2c 20 | 74 68 65 20 6c 61 73 74 |cookie, |the last|
|00004210| 20 63 6f 6f 6b 69 65 20 | 69 73 20 72 65 74 75 72 | cookie |is retur|
|00004220| 6e 65 64 2e 0a 49 66 20 | 74 68 65 20 43 4f 4c 4c |ned..If |the COLL|
|00004230| 45 43 54 49 4f 4e 20 69 | 73 20 65 6d 70 74 79 2c |ECTION i|s empty,|
|00004240| 20 6e 69 6c 20 69 73 20 | 72 65 74 75 72 6e 65 64 | nil is |returned|
|00004250| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 63 6f 6c 6c |."]).(fs|et 'coll|
|00004260| 65 63 74 69 6f 6e 2d 72 | 65 66 72 65 73 68 20 23 |ection-r|efresh #|
|00004270| 5b 28 63 6f 6c 6c 65 63 | 74 69 6f 6e 29 20 22 70 |[(collec|tion) "p|
|00004280| 18 09 1a c3 5c 6e 21 1c | c5 09 21 1e 06 c7 09 21 |....\n!.|..!....!|
|00004290| 1e 08 c9 5c 6e 21 71 88 | ca 8e cb 1e 0c cd ce 0c |...\n!q.|........|
|000042a0| cf 5c 22 d0 48 21 cd 0e | 08 d0 48 21 7c 88 cd 0e |.\".H!..|..H!|...|
|000042b0| 08 d0 48 21 62 88 ce 0c | cf 5c 22 89 1e 11 0e 08 |..H!b...|.\".....|
|000042c0| 3d ac a2 cd 0e 11 d0 48 | 21 60 cb 93 88 d2 09 21 |=......H|!`.....!|
|000042d0| d3 0e 11 d0 48 21 21 88 | d4 63 88 d5 0c 0e 11 5c |....H!!.|.c.....\|
|000042e0| 22 89 16 11 aa 59 2a cd | 0e 08 d0 48 21 60 cb 93 |"....Y*.|...H!`..|
|000042f0| 2e 06 87 22 20 5b 6f 6c | 64 2d 62 75 66 66 65 72 |..." [ol|d-buffer|
|00004300| 20 63 6f 6c 6c 65 63 74 | 69 6f 6e 20 63 6f 6c 6c | collect|ion coll|
|00004310| 65 63 74 69 6f 6e 20 69 | 63 6f 6f 6b 69 65 2d 63 |ection i|cookie-c|
|00004320| 6f 6c 6c 65 63 74 69 6f | 6e 2d 3e 64 6c 6c 20 64 |ollectio|n->dll d|
|00004330| 6c 6c 20 69 63 6f 6f 6b | 69 65 2d 63 6f 6c 6c 65 |ll icook|ie-colle|
|00004340| 63 74 69 6f 6e 2d 3e 68 | 65 61 64 65 72 20 68 65 |ction->h|eader he|
|00004350| 61 64 65 72 20 69 63 6f | 6f 6b 69 65 2d 63 6f 6c |ader ico|okie-col|
|00004360| 6c 65 63 74 69 6f 6e 2d | 3e 66 6f 6f 74 65 72 20 |lection-|>footer |
|00004370| 66 6f 6f 74 65 72 20 69 | 63 6f 6f 6b 69 65 2d 63 |footer i|cookie-c|
|00004380| 6f 6c 6c 65 63 74 69 6f | 6e 2d 3e 62 75 66 66 65 |ollectio|n->buffe|
|00004390| 72 20 28 28 73 65 74 2d | 62 75 66 66 65 72 20 6f |r ((set-|buffer o|
|000043a0| 6c 64 2d 62 75 66 66 65 | 72 29 29 20 6e 69 6c 20 |ld-buffe|r)) nil |
|000043b0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|000043c0| 20 69 63 6f 6f 6b 69 65 | 2d 77 72 61 70 70 65 72 | icookie|-wrapper|
|000043d0| 2d 3e 73 74 61 72 74 2d | 6d 61 72 6b 65 72 20 64 |->start-|marker d|
|000043e0| 6c 6c 2d 6e 74 68 20 31 | 20 32 20 74 69 6e 20 69 |ll-nth 1| 2 tin i|
|000043f0| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00004400| 6e 2d 3e 70 72 65 74 74 | 79 2d 70 72 69 6e 74 65 |n->prett|y-printe|
|00004410| 72 20 69 63 6f 6f 6b 69 | 65 2d 77 72 61 70 70 65 |r icooki|e-wrappe|
|00004420| 72 2d 3e 63 6f 6f 6b 69 | 65 20 22 5c 6e 22 20 64 |r->cooki|e "\n" d|
|00004430| 6c 6c 2d 6e 65 78 74 5d | 20 35 20 22 5c 0a 52 65 |ll-next]| 5 "\.Re|
|00004440| 66 72 65 73 68 20 61 6c | 6c 20 63 6f 6f 6b 69 65 |fresh al|l cookie|
|00004450| 73 20 69 6e 20 43 4f 4c | 4c 45 43 54 49 4f 4e 2e |s in COL|LECTION.|
|00004460| 0a 0a 54 68 65 20 70 72 | 65 74 74 79 2d 70 72 69 |..The pr|etty-pri|
|00004470| 6e 74 65 72 20 74 68 61 | 74 20 77 61 73 20 73 70 |nter tha|t was sp|
|00004480| 65 63 69 66 69 65 64 20 | 77 68 65 6e 20 74 68 65 |ecified |when the|
|00004490| 20 43 4f 4c 4c 45 43 54 | 49 4f 4e 20 77 61 73 20 | COLLECT|ION was |
|000044a0| 63 72 65 61 74 65 64 0a | 77 69 6c 6c 20 62 65 20 |created.|will be |
|000044b0| 63 61 6c 6c 65 64 20 66 | 6f 72 20 61 6c 6c 20 63 |called f|or all c|
|000044c0| 6f 6f 6b 69 65 73 20 69 | 6e 20 43 4f 4c 4c 45 43 |ookies i|n COLLEC|
|000044d0| 54 49 4f 4e 2e 0a 0a 4e | 6f 74 65 20 74 68 61 74 |TION...N|ote that|
|000044e0| 20 74 69 6e 2d 69 6e 76 | 61 6c 69 64 61 74 65 20 | tin-inv|alidate |
|000044f0| 69 73 20 6d 6f 72 65 20 | 65 66 66 69 63 69 65 6e |is more |efficien|
|00004500| 74 20 69 66 20 6f 6e 6c | 79 20 61 20 73 6d 61 6c |t if onl|y a smal|
|00004510| 6c 0a 6e 75 6d 62 65 72 | 20 6f 66 20 63 6f 6f 6b |l.number| of cook|
|00004520| 69 65 73 20 6e 65 65 64 | 73 20 74 6f 20 62 65 20 |ies need|s to be |
|00004530| 72 65 66 72 65 73 68 65 | 64 2e 22 5d 29 0a 28 66 |refreshe|d."]).(f|
|00004540| 73 65 74 20 27 74 69 6e | 2d 69 6e 76 61 6c 69 64 |set 'tin|-invalid|
|00004550| 61 74 65 20 23 5b 28 63 | 6f 6c 6c 65 63 74 69 6f |ate #[(c|ollectio|
|00004560| 6e 20 26 72 65 73 74 20 | 74 69 6e 73 29 20 22 70 |n &rest |tins) "p|
|00004570| 18 09 1a c3 5c 6e 21 1c | c5 5c 6e 21 71 88 c6 8e |....\n!.|.\n!q...|
|00004580| 0e 07 ad 90 c8 09 0e 07 | 40 5c 22 88 0e 07 41 89 |........|@\"...A.|
|00004590| 16 07 ac 71 c9 2c 87 22 | 20 5b 6f 6c 64 2d 62 75 |...q.,."| [old-bu|
|000045a0| 66 66 65 72 20 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |ffer col|lection |
|000045b0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 69 63 6f 6f 6b |collecti|on icook|
|000045c0| 69 65 2d 63 6f 6c 6c 65 | 63 74 69 6f 6e 2d 3e 64 |ie-colle|ction->d|
|000045d0| 6c 6c 20 64 6c 6c 20 69 | 63 6f 6f 6b 69 65 2d 63 |ll dll i|cookie-c|
|000045e0| 6f 6c 6c 65 63 74 69 6f | 6e 2d 3e 62 75 66 66 65 |ollectio|n->buffe|
|000045f0| 72 20 28 28 73 65 74 2d | 62 75 66 66 65 72 20 6f |r ((set-|buffer o|
|00004600| 6c 64 2d 62 75 66 66 65 | 72 29 29 20 74 69 6e 73 |ld-buffe|r)) tins|
|00004610| 20 69 63 6f 6f 6b 69 65 | 2d 72 65 66 72 65 73 68 | icookie|-refresh|
|00004620| 2d 74 69 6e 20 6e 69 6c | 5d 20 34 20 22 5c 0a 52 |-tin nil|] 4 "\.R|
|00004630| 65 66 72 65 73 68 20 73 | 6f 6d 65 20 63 6f 6f 6b |efresh s|ome cook|
|00004640| 69 65 73 2e 20 41 72 67 | 73 3a 20 43 4f 4c 4c 45 |ies. Arg|s: COLLE|
|00004650| 43 54 49 4f 4e 20 26 72 | 65 73 74 20 54 49 4e 53 |CTION &r|est TINS|
|00004660| 2e 0a 54 68 65 20 70 72 | 65 74 74 79 2d 70 72 69 |..The pr|etty-pri|
|00004670| 6e 74 65 72 20 74 68 61 | 74 20 66 6f 72 20 43 4f |nter tha|t for CO|
|00004680| 4c 4c 45 43 54 49 4f 4e | 20 77 69 6c 6c 20 62 65 |LLECTION| will be|
|00004690| 20 63 61 6c 6c 65 64 20 | 66 6f 72 20 61 6c 6c 20 | called |for all |
|000046a0| 54 49 4e 53 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |TINS."])|.(fset '|
|000046b0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 2d 73 65 74 2d 67 |collecti|on-set-g|
|000046c0| 6f 61 6c 2d 63 6f 6c 75 | 6d 6e 20 23 5b 28 63 6f |oal-colu|mn #[(co|
|000046d0| 6c 6c 65 63 74 69 6f 6e | 20 67 6f 61 6c 29 20 22 |llection| goal) "|
|000046e0| 70 18 09 1a c3 5c 6e 21 | 1c c5 5c 6e 21 71 88 c6 |p....\n!|..\n!q..|
|000046f0| 8e c7 c8 21 88 0e 09 89 | 16 08 2c 87 22 20 5b 6f |...!....|..,." [o|
|00004700| 6c 64 2d 62 75 66 66 65 | 72 20 63 6f 6c 6c 65 63 |ld-buffe|r collec|
|00004710| 74 69 6f 6e 20 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |tion col|lection |
|00004720| 69 63 6f 6f 6b 69 65 2d | 63 6f 6c 6c 65 63 74 69 |icookie-|collecti|
|00004730| 6f 6e 2d 3e 64 6c 6c 20 | 64 6c 6c 20 69 63 6f 6f |on->dll |dll icoo|
|00004740| 6b 69 65 2d 63 6f 6c 6c | 65 63 74 69 6f 6e 2d 3e |kie-coll|ection->|
|00004750| 62 75 66 66 65 72 20 28 | 28 73 65 74 2d 62 75 66 |buffer (|(set-buf|
|00004760| 66 65 72 20 6f 6c 64 2d | 62 75 66 66 65 72 29 29 |fer old-|buffer))|
|00004770| 20 6d 61 6b 65 2d 6c 6f | 63 61 6c 2d 76 61 72 69 | make-lo|cal-vari|
|00004780| 61 62 6c 65 20 67 6f 61 | 6c 2d 63 6f 6c 75 6d 6e |able goa|l-column|
|00004790| 20 67 6f 61 6c 5d 20 32 | 20 22 5c 0a 53 65 74 20 | goal] 2| "\.Set |
|000047a0| 67 6f 61 6c 2d 63 6f 6c | 75 6d 6e 20 66 6f 72 20 |goal-col|umn for |
|000047b0| 43 4f 4c 4c 45 43 54 49 | 4f 4e 2e 0a 41 72 67 73 |COLLECTI|ON..Args|
|000047c0| 3a 20 43 4f 4c 4c 45 43 | 54 49 4f 4e 20 47 4f 41 |: COLLEC|TION GOA|
|000047d0| 4c 2e 0a 67 6f 61 6c 2d | 63 6f 6c 75 6d 6e 20 69 |L..goal-|column i|
|000047e0| 73 20 6d 61 64 65 20 62 | 75 66 66 65 72 2d 6c 6f |s made b|uffer-lo|
|000047f0| 63 61 6c 2e 0a 0a 54 68 | 65 72 65 20 77 69 6c 6c |cal...Th|ere will|
|00004800| 20 65 76 65 6e 74 75 61 | 6c 6c 79 20 62 65 20 61 | eventua|lly be a|
|00004810| 20 62 65 74 74 65 72 20 | 77 61 79 20 74 6f 20 73 | better |way to s|
|00004820| 70 65 63 69 66 79 20 74 | 68 65 20 63 75 72 73 6f |pecify t|he curso|
|00004830| 72 20 70 6f 73 69 74 69 | 6f 6e 2e 22 5d 29 0a 28 |r positi|on."]).(|
|00004840| 66 73 65 74 20 27 74 69 | 6e 2d 67 6f 74 6f 2d 70 |fset 'ti|n-goto-p|
|00004850| 72 65 76 69 6f 75 73 20 | 23 5b 28 63 6f 6c 6c 65 |revious |#[(colle|
|00004860| 63 74 69 6f 6e 20 70 6f | 73 20 61 72 67 29 20 22 |ction po|s arg) "|
|00004870| 70 18 09 1a c3 5c 6e 21 | 1c c5 09 0e 06 c7 09 21 |p....\n!|.......!|
|00004880| 23 1e 08 c9 5c 6e 21 71 | 88 ca 8e 0e 08 ad d6 0e |#...\n!q|........|
|00004890| 08 ab 95 0e 0b cc 56 ab | 8f 0e 0b 53 16 0b cd 0c |......V.|...S....|
|000048a0| 0e 08 5c 22 89 16 08 ac | 6b 0e 08 09 1e 0e 89 1e |..\"....|k.......|
|000048b0| 0f d0 0e 0e 21 3d ae 87 | 0e 0f d1 0e 0e 21 3d 3f |....!=..|.....!=?|
|000048c0| ad 82 0e 0f 2a ac 86 d2 | 0c d3 5c 22 16 08 d4 0e |....*...|..\"....|
|000048d0| 08 d5 48 21 62 88 0e 16 | ab 85 d7 0e 16 21 88 d8 |..H!b...|.....!..|
|000048e0| 09 0e 08 5c 22 88 0e 08 | 2d 87 22 20 5b 6f 6c 64 |...\"...|-." [old|
|000048f0| 2d 62 75 66 66 65 72 20 | 63 6f 6c 6c 65 63 74 69 |-buffer |collecti|
|00004900| 6f 6e 20 63 6f 6c 6c 65 | 63 74 69 6f 6e 20 69 63 |on colle|ction ic|
|00004910| 6f 6f 6b 69 65 2d 63 6f | 6c 6c 65 63 74 69 6f 6e |ookie-co|llection|
|00004920| 2d 3e 64 6c 6c 20 64 6c | 6c 20 74 69 6e 2d 6c 6f |->dll dl|l tin-lo|
|00004930| 63 61 74 65 20 70 6f 73 | 20 69 63 6f 6f 6b 69 65 |cate pos| icookie|
|00004940| 2d 63 6f 6c 6c 65 63 74 | 69 6f 6e 2d 3e 6c 61 73 |-collect|ion->las|
|00004950| 74 2d 74 69 6e 20 74 69 | 6e 20 69 63 6f 6f 6b 69 |t-tin ti|n icooki|
|00004960| 65 2d 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 3e 62 75 |e-collec|tion->bu|
|00004970| 66 66 65 72 20 28 28 73 | 65 74 2d 62 75 66 66 65 |ffer ((s|et-buffe|
|00004980| 72 20 6f 6c 64 2d 62 75 | 66 66 65 72 29 29 20 61 |r old-bu|ffer)) a|
|00004990| 72 67 20 30 20 64 6c 6c | 2d 70 72 65 76 69 6f 75 |rg 0 dll|-previou|
|000049a0| 73 20 74 6d 70 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |s tmpcol|lection |
|000049b0| 74 69 6e 20 69 63 6f 6f | 6b 69 65 2d 63 6f 6c 6c |tin icoo|kie-coll|
|000049c0| 65 63 74 69 6f 6e 2d 3e | 68 65 61 64 65 72 20 69 |ection->|header i|
|000049d0| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|000049e0| 6e 2d 3e 66 6f 6f 74 65 | 72 20 64 6c 6c 2d 6e 74 |n->foote|r dll-nt|
|000049f0| 68 20 31 20 69 63 6f 6f | 6b 69 65 2d 77 72 61 70 |h 1 icoo|kie-wrap|
|00004a00| 70 65 72 2d 3e 73 74 61 | 72 74 2d 6d 61 72 6b 65 |per->sta|rt-marke|
|00004a10| 72 20 32 20 67 6f 61 6c | 2d 63 6f 6c 75 6d 6e 20 |r 2 goal|-column |
|00004a20| 6d 6f 76 65 2d 74 6f 2d | 63 6f 6c 75 6d 6e 20 69 |move-to-|column i|
|00004a30| 63 6f 6f 6b 69 65 2d 73 | 65 74 2d 63 6f 6c 6c 65 |cookie-s|et-colle|
|00004a40| 63 74 69 6f 6e 2d 3e 6c | 61 73 74 2d 74 69 6e 5d |ction->l|ast-tin]|
|00004a50| 20 36 20 22 5c 0a 4d 6f | 76 65 20 70 6f 69 6e 74 | 6 "\.Mo|ve point|
|00004a60| 20 74 6f 20 74 68 65 20 | 41 52 47 74 68 20 70 72 | to the |ARGth pr|
|00004a70| 65 76 69 6f 75 73 20 63 | 6f 6f 6b 69 65 2e 0a 44 |evious c|ookie..D|
|00004a80| 6f 6e 27 74 20 6d 6f 76 | 65 20 69 66 20 77 65 20 |on't mov|e if we |
|00004a90| 61 72 65 20 61 74 20 74 | 68 65 20 66 69 72 73 74 |are at t|he first|
|00004aa0| 20 63 6f 6f 6b 69 65 2c | 20 6f 72 20 69 66 20 43 | cookie,| or if C|
|00004ab0| 4f 4c 4c 45 43 54 49 4f | 4e 20 69 73 20 65 6d 70 |OLLECTIO|N is emp|
|00004ac0| 74 79 2e 0a 41 72 67 73 | 3a 20 43 4f 4c 4c 45 43 |ty..Args|: COLLEC|
|00004ad0| 54 49 4f 4e 20 50 4f 53 | 20 41 52 47 2e 0a 52 65 |TION POS| ARG..Re|
|00004ae0| 74 75 72 6e 73 20 74 68 | 65 20 74 69 6e 20 77 65 |turns th|e tin we|
|00004af0| 20 6d 6f 76 65 20 74 6f | 2e 22 5d 29 0a 28 66 73 | move to|."]).(fs|
|00004b00| 65 74 20 27 74 69 6e 2d | 67 6f 74 6f 2d 6e 65 78 |et 'tin-|goto-nex|
|00004b10| 74 20 23 5b 28 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |t #[(col|lection |
|00004b20| 70 6f 73 20 61 72 67 29 | 20 22 70 18 09 1a c3 5c |pos arg)| "p....\|
|00004b30| 6e 21 1c c5 09 0e 06 c7 | 09 21 23 1e 08 c9 5c 6e |n!......|.!#...\n|
|00004b40| 21 71 88 ca 8e 0e 08 ab | 95 0e 0b cc 56 ab 8f 0e |!q......|....V...|
|00004b50| 0b 53 16 0b cd 0c 0e 08 | 5c 22 89 16 08 ac 6b 0e |.S......|\"....k.|
|00004b60| 08 09 1e 0e 89 1e 0f d0 | 0e 0e 21 3d ae 87 0e 0f |........|..!=....|
|00004b70| d1 0e 0e 21 3d 3f ad 82 | 0e 0f 2a ac 86 d2 0c d3 |...!=?..|..*.....|
|00004b80| 5c 22 16 08 d4 0e 08 d5 | 48 21 62 88 0e 16 ab 85 |\"......|H!b.....|
|00004b90| d7 0e 16 21 88 d8 09 0e | 08 5c 22 88 0e 08 2d 87 |...!....|.\"...-.|
|00004ba0| 22 20 5b 6f 6c 64 2d 62 | 75 66 66 65 72 20 63 6f |" [old-b|uffer co|
|00004bb0| 6c 6c 65 63 74 69 6f 6e | 20 63 6f 6c 6c 65 63 74 |llection| collect|
|00004bc0| 69 6f 6e 20 69 63 6f 6f | 6b 69 65 2d 63 6f 6c 6c |ion icoo|kie-coll|
|00004bd0| 65 63 74 69 6f 6e 2d 3e | 64 6c 6c 20 64 6c 6c 20 |ection->|dll dll |
|00004be0| 74 69 6e 2d 6c 6f 63 61 | 74 65 20 70 6f 73 20 69 |tin-loca|te pos i|
|00004bf0| 63 6f 6f 6b 69 65 2d 63 | 6f 6c 6c 65 63 74 69 6f |cookie-c|ollectio|
|00004c00| 6e 2d 3e 6c 61 73 74 2d | 74 69 6e 20 74 69 6e 20 |n->last-|tin tin |
|00004c10| 69 63 6f 6f 6b 69 65 2d | 63 6f 6c 6c 65 63 74 69 |icookie-|collecti|
|00004c20| 6f 6e 2d 3e 62 75 66 66 | 65 72 20 28 28 73 65 74 |on->buff|er ((set|
|00004c30| 2d 62 75 66 66 65 72 20 | 6f 6c 64 2d 62 75 66 66 |-buffer |old-buff|
|00004c40| 65 72 29 29 20 61 72 67 | 20 30 20 64 6c 6c 2d 6e |er)) arg| 0 dll-n|
|00004c50| 65 78 74 20 74 6d 70 63 | 6f 6c 6c 65 63 74 69 6f |ext tmpc|ollectio|
|00004c60| 6e 20 74 69 6e 20 69 63 | 6f 6f 6b 69 65 2d 63 6f |n tin ic|ookie-co|
|00004c70| 6c 6c 65 63 74 69 6f 6e | 2d 3e 68 65 61 64 65 72 |llection|->header|
|00004c80| 20 69 63 6f 6f 6b 69 65 | 2d 63 6f 6c 6c 65 63 74 | icookie|-collect|
|00004c90| 69 6f 6e 2d 3e 66 6f 6f | 74 65 72 20 64 6c 6c 2d |ion->foo|ter dll-|
|00004ca0| 6e 74 68 20 2d 32 20 69 | 63 6f 6f 6b 69 65 2d 77 |nth -2 i|cookie-w|
|00004cb0| 72 61 70 70 65 72 2d 3e | 73 74 61 72 74 2d 6d 61 |rapper->|start-ma|
|00004cc0| 72 6b 65 72 20 32 20 67 | 6f 61 6c 2d 63 6f 6c 75 |rker 2 g|oal-colu|
|00004cd0| 6d 6e 20 6d 6f 76 65 2d | 74 6f 2d 63 6f 6c 75 6d |mn move-|to-colum|
|00004ce0| 6e 20 69 63 6f 6f 6b 69 | 65 2d 73 65 74 2d 63 6f |n icooki|e-set-co|
|00004cf0| 6c 6c 65 63 74 69 6f 6e | 2d 3e 6c 61 73 74 2d 74 |llection|->last-t|
|00004d00| 69 6e 5d 20 36 20 22 5c | 0a 4d 6f 76 65 20 70 6f |in] 6 "\|.Move po|
|00004d10| 69 6e 74 20 74 6f 20 74 | 68 65 20 41 52 47 74 68 |int to t|he ARGth|
|00004d20| 20 6e 65 78 74 20 63 6f | 6f 6b 69 65 2e 0a 44 6f | next co|okie..Do|
|00004d30| 6e 27 74 20 6d 6f 76 65 | 20 69 66 20 77 65 20 61 |n't move| if we a|
|00004d40| 72 65 20 61 74 20 74 68 | 65 20 6c 61 73 74 20 63 |re at th|e last c|
|00004d50| 6f 6f 6b 69 65 2e 0a 41 | 72 67 73 3a 20 43 4f 4c |ookie..A|rgs: COL|
|00004d60| 4c 45 43 54 49 4f 4e 20 | 50 4f 53 20 41 52 47 2e |LECTION |POS ARG.|
|00004d70| 0a 52 65 74 75 72 6e 73 | 20 74 68 65 20 74 69 6e |.Returns| the tin|
|00004d80| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 74 69 6e 2d |."]).(fs|et 'tin-|
|00004d90| 67 6f 74 6f 20 23 5b 28 | 63 6f 6c 6c 65 63 74 69 |goto #[(|collecti|
|00004da0| 6f 6e 20 74 69 6e 29 20 | 22 70 18 09 1a c3 5c 6e |on tin) |"p....\n|
|00004db0| 21 1c c5 5c 6e 21 71 88 | c6 8e c7 0e 08 c9 48 21 |!..\n!q.|......H!|
|00004dc0| 62 88 0e 5c 6e ab 85 cb | 0e 5c 6e 21 88 cc 09 0e |b..\n...|.\n!....|
|00004dd0| 08 5c 22 2c 87 22 20 5b | 6f 6c 64 2d 62 75 66 66 |.\",." [|old-buff|
|00004de0| 65 72 20 63 6f 6c 6c 65 | 63 74 69 6f 6e 20 63 6f |er colle|ction co|
|00004df0| 6c 6c 65 63 74 69 6f 6e | 20 69 63 6f 6f 6b 69 65 |llection| icookie|
|00004e00| 2d 63 6f 6c 6c 65 63 74 | 69 6f 6e 2d 3e 64 6c 6c |-collect|ion->dll|
|00004e10| 20 64 6c 6c 20 69 63 6f | 6f 6b 69 65 2d 63 6f 6c | dll ico|okie-col|
|00004e20| 6c 65 63 74 69 6f 6e 2d | 3e 62 75 66 66 65 72 20 |lection-|>buffer |
|00004e30| 28 28 73 65 74 2d 62 75 | 66 66 65 72 20 6f 6c 64 |((set-bu|ffer old|
|00004e40| 2d 62 75 66 66 65 72 29 | 29 20 69 63 6f 6f 6b 69 |-buffer)|) icooki|
|00004e50| 65 2d 77 72 61 70 70 65 | 72 2d 3e 73 74 61 72 74 |e-wrappe|r->start|
|00004e60| 2d 6d 61 72 6b 65 72 20 | 74 69 6e 20 32 20 67 6f |-marker |tin 2 go|
|00004e70| 61 6c 2d 63 6f 6c 75 6d | 6e 20 6d 6f 76 65 2d 74 |al-colum|n move-t|
|00004e80| 6f 2d 63 6f 6c 75 6d 6e | 20 69 63 6f 6f 6b 69 65 |o-column| icookie|
|00004e90| 2d 73 65 74 2d 63 6f 6c | 6c 65 63 74 69 6f 6e 2d |-set-col|lection-|
|00004ea0| 3e 6c 61 73 74 2d 74 69 | 6e 5d 20 33 20 22 5c 0a |>last-ti|n] 3 "\.|
|00004eb0| 4d 6f 76 65 20 70 6f 69 | 6e 74 20 74 6f 20 54 49 |Move poi|nt to TI|
|00004ec0| 4e 2e 20 20 41 72 67 73 | 3a 20 43 4f 4c 4c 45 43 |N. Args|: COLLEC|
|00004ed0| 54 49 4f 4e 20 54 49 4e | 2e 22 5d 29 0a 28 66 73 |TION TIN|."]).(fs|
|00004ee0| 65 74 20 27 63 6f 6c 6c | 65 63 74 69 6f 6e 2d 63 |et 'coll|ection-c|
|00004ef0| 6f 6c 6c 65 63 74 2d 74 | 69 6e 20 23 5b 28 63 6f |ollect-t|in #[(co|
|00004f00| 6c 6c 65 63 74 69 6f 6e | 20 70 72 65 64 69 63 61 |llection| predica|
|00004f10| 74 65 20 26 72 65 73 74 | 20 70 72 65 64 69 63 61 |te &rest| predica|
|00004f20| 74 65 2d 61 72 67 73 29 | 20 22 70 18 09 1a c3 5c |te-args)| "p....\|
|00004f30| 6e 21 1c c5 09 21 1e 06 | c7 0c c8 5c 22 1e 09 ca |n!...!..|...\"...|
|00004f40| 1e 0b cc 5c 6e 21 71 88 | cd 8e 0e 09 0e 06 3d ac |...\n!q.|......=.|
|00004f50| 9f ce 0e 0f d0 0e 09 d1 | 48 21 0e 12 23 ab 87 0e |........|H!..#...|
|00004f60| 09 0e 0b 42 16 0b d3 0c | 0e 09 5c 22 89 16 09 aa |...B....|..\"....|
|00004f70| 5c 5c 0e 0b 2e 07 87 22 | 20 5b 6f 6c 64 2d 62 75 |\\....."| [old-bu|
|00004f80| 66 66 65 72 20 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |ffer col|lection |
|00004f90| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 69 63 6f 6f 6b |collecti|on icook|
|00004fa0| 69 65 2d 63 6f 6c 6c 65 | 63 74 69 6f 6e 2d 3e 64 |ie-colle|ction->d|
|00004fb0| 6c 6c 20 64 6c 6c 20 69 | 63 6f 6f 6b 69 65 2d 63 |ll dll i|cookie-c|
|00004fc0| 6f 6c 6c 65 63 74 69 6f | 6e 2d 3e 68 65 61 64 65 |ollectio|n->heade|
|00004fd0| 72 20 68 65 61 64 65 72 | 20 64 6c 6c 2d 6e 74 68 |r header| dll-nth|
|00004fe0| 20 2d 32 20 74 69 6e 20 | 6e 69 6c 20 72 65 73 75 | -2 tin |nil resu|
|00004ff0| 6c 74 20 69 63 6f 6f 6b | 69 65 2d 63 6f 6c 6c 65 |lt icook|ie-colle|
|00005000| 63 74 69 6f 6e 2d 3e 62 | 75 66 66 65 72 20 28 28 |ction->b|uffer ((|
|00005010| 73 65 74 2d 62 75 66 66 | 65 72 20 6f 6c 64 2d 62 |set-buff|er old-b|
|00005020| 75 66 66 65 72 29 29 20 | 61 70 70 6c 79 20 70 72 |uffer)) |apply pr|
|00005030| 65 64 69 63 61 74 65 20 | 69 63 6f 6f 6b 69 65 2d |edicate |icookie-|
|00005040| 77 72 61 70 70 65 72 2d | 3e 63 6f 6f 6b 69 65 20 |wrapper-|>cookie |
|00005050| 32 20 70 72 65 64 69 63 | 61 74 65 2d 61 72 67 73 |2 predic|ate-args|
|00005060| 20 64 6c 6c 2d 70 72 65 | 76 69 6f 75 73 5d 20 36 | dll-pre|vious] 6|
|00005070| 20 22 5c 0a 53 65 6c 65 | 63 74 20 63 6f 6f 6b 69 | "\.Sele|ct cooki|
|00005080| 65 73 20 66 72 6f 6d 20 | 43 4f 4c 4c 45 43 54 49 |es from |COLLECTI|
|00005090| 4f 4e 20 75 73 69 6e 67 | 20 50 52 45 44 49 43 41 |ON using| PREDICA|
|000050a0| 54 45 2e 0a 52 65 74 75 | 72 6e 20 61 20 6c 69 73 |TE..Retu|rn a lis|
|000050b0| 74 20 6f 66 20 61 6c 6c | 20 73 65 6c 65 63 74 65 |t of all| selecte|
|000050c0| 64 20 74 69 6e 73 2e 0a | 0a 50 52 45 44 49 43 41 |d tins..|.PREDICA|
|000050d0| 54 45 20 69 73 20 61 20 | 66 75 6e 63 74 69 6f 6e |TE is a |function|
|000050e0| 20 74 68 61 74 20 74 61 | 6b 65 73 20 61 20 63 6f | that ta|kes a co|
|000050f0| 6f 6b 69 65 20 61 73 20 | 69 74 73 20 66 69 72 73 |okie as |its firs|
|00005100| 74 20 61 72 67 75 6d 65 | 6e 74 2e 0a 0a 54 68 65 |t argume|nt...The|
|00005110| 20 74 69 6e 73 20 6f 6e | 20 74 68 65 20 72 65 74 | tins on| the ret|
|00005120| 75 72 6e 65 64 20 6c 69 | 73 74 20 77 69 6c 6c 20 |urned li|st will |
|00005130| 61 70 70 65 61 72 20 69 | 6e 20 74 68 65 20 73 61 |appear i|n the sa|
|00005140| 6d 65 20 6f 72 64 65 72 | 20 61 73 20 69 6e 20 74 |me order| as in t|
|00005150| 68 65 0a 62 75 66 66 65 | 72 2e 20 20 59 6f 75 20 |he.buffe|r. You |
|00005160| 73 68 6f 75 6c 64 20 6e | 6f 74 20 72 65 6c 79 20 |should n|ot rely |
|00005170| 6f 6e 20 69 6e 20 77 68 | 69 63 68 20 6f 72 64 65 |on in wh|ich orde|
|00005180| 72 20 50 52 45 44 49 43 | 41 54 45 20 69 73 20 63 |r PREDIC|ATE is c|
|00005190| 61 6c 6c 65 64 2e 0a 0a | 4e 6f 74 65 20 74 68 61 |alled...|Note tha|
|000051a0| 74 20 74 68 65 20 62 75 | 66 66 65 72 20 74 68 65 |t the bu|ffer the|
|000051b0| 20 43 4f 4c 4c 45 43 54 | 49 4f 4e 20 69 73 20 64 | COLLECT|ION is d|
|000051c0| 69 73 70 6c 61 79 65 64 | 20 69 6e 20 69 73 20 63 |isplayed| in is c|
|000051d0| 75 72 72 65 6e 74 2d 62 | 75 66 66 65 72 0a 77 68 |urrent-b|uffer.wh|
|000051e0| 65 6e 20 50 52 45 44 49 | 43 41 54 45 20 69 73 20 |en PREDI|CATE is |
|000051f0| 63 61 6c 6c 65 64 2e 20 | 20 49 66 20 50 52 45 44 |called. | If PRED|
|00005200| 49 43 41 54 45 20 6d 75 | 73 74 20 72 65 73 74 6f |ICATE mu|st resto|
|00005210| 72 65 20 63 75 72 72 65 | 6e 74 2d 62 75 66 66 65 |re curre|nt-buffe|
|00005220| 72 20 69 66 0a 69 74 20 | 63 68 61 6e 67 65 73 20 |r if.it |changes |
|00005230| 69 74 2e 0a 0a 49 66 20 | 6d 6f 72 65 20 74 68 61 |it...If |more tha|
|00005240| 6e 20 74 77 6f 20 61 72 | 67 75 6d 65 6e 74 73 20 |n two ar|guments |
|00005250| 61 72 65 20 67 69 76 65 | 6e 20 74 6f 20 63 6f 6c |are give|n to col|
|00005260| 6c 65 63 74 69 6f 6e 2d | 63 6f 6c 6c 65 63 74 2d |lection-|collect-|
|00005270| 74 69 6e 20 74 68 65 20 | 72 65 6d 61 69 6e 69 6e |tin the |remainin|
|00005280| 67 0a 61 72 67 75 6d 65 | 6e 74 73 20 77 69 6c 6c |g.argume|nts will|
|00005290| 20 62 65 20 70 61 73 73 | 65 64 20 74 6f 20 50 52 | be pass|ed to PR|
|000052a0| 45 44 49 43 41 54 45 2e | 22 5d 29 0a 28 66 73 65 |EDICATE.|"]).(fse|
|000052b0| 74 20 27 63 6f 6c 6c 65 | 63 74 69 6f 6e 2d 63 6f |t 'colle|ction-co|
|000052c0| 6c 6c 65 63 74 2d 63 6f | 6f 6b 69 65 20 23 5b 28 |llect-co|okie #[(|
|000052d0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 70 72 65 64 69 |collecti|on predi|
|000052e0| 63 61 74 65 20 26 72 65 | 73 74 20 70 72 65 64 69 |cate &re|st predi|
|000052f0| 63 61 74 65 2d 61 72 67 | 73 29 20 22 70 18 09 1a |cate-arg|s) "p...|
|00005300| c3 5c 6e 21 1c c5 09 21 | 1e 06 c7 0c c8 5c 22 1e |.\n!...!|.....\".|
|00005310| 09 ca 1e 0b cc 5c 6e 21 | 71 88 cd 8e 0e 09 0e 06 |.....\n!|q.......|
|00005320| 3d ac a3 ce 0e 0f d0 0e | 09 d1 48 21 0e 12 23 ab |=.......|..H!..#.|
|00005330| 8b d0 0e 09 d1 48 21 0e | 0b 42 16 0b d3 0c 0e 09 |.....H!.|.B......|
|00005340| 5c 22 89 16 09 aa 58 0e | 0b 2e 07 87 22 20 5b 6f |\"....X.|...." [o|
|00005350| 6c 64 2d 62 75 66 66 65 | 72 20 63 6f 6c 6c 65 63 |ld-buffe|r collec|
|00005360| 74 69 6f 6e 20 63 6f 6c | 6c 65 63 74 69 6f 6e 20 |tion col|lection |
|00005370| 69 63 6f 6f 6b 69 65 2d | 63 6f 6c 6c 65 63 74 69 |icookie-|collecti|
|00005380| 6f 6e 2d 3e 64 6c 6c 20 | 64 6c 6c 20 69 63 6f 6f |on->dll |dll icoo|
|00005390| 6b 69 65 2d 63 6f 6c 6c | 65 63 74 69 6f 6e 2d 3e |kie-coll|ection->|
|000053a0| 68 65 61 64 65 72 20 68 | 65 61 64 65 72 20 64 6c |header h|eader dl|
|000053b0| 6c 2d 6e 74 68 20 2d 32 | 20 74 69 6e 20 6e 69 6c |l-nth -2| tin nil|
|000053c0| 20 72 65 73 75 6c 74 20 | 69 63 6f 6f 6b 69 65 2d | result |icookie-|
|000053d0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 2d 3e 62 75 66 66 |collecti|on->buff|
|000053e0| 65 72 20 28 28 73 65 74 | 2d 62 75 66 66 65 72 20 |er ((set|-buffer |
|000053f0| 6f 6c 64 2d 62 75 66 66 | 65 72 29 29 20 61 70 70 |old-buff|er)) app|
|00005400| 6c 79 20 70 72 65 64 69 | 63 61 74 65 20 69 63 6f |ly predi|cate ico|
|00005410| 6f 6b 69 65 2d 77 72 61 | 70 70 65 72 2d 3e 63 6f |okie-wra|pper->co|
|00005420| 6f 6b 69 65 20 32 20 70 | 72 65 64 69 63 61 74 65 |okie 2 p|redicate|
|00005430| 2d 61 72 67 73 20 64 6c | 6c 2d 70 72 65 76 69 6f |-args dl|l-previo|
|00005440| 75 73 5d 20 36 20 22 5c | 0a 53 65 6c 65 63 74 20 |us] 6 "\|.Select |
|00005450| 63 6f 6f 6b 69 65 73 20 | 66 72 6f 6d 20 43 4f 4c |cookies |from COL|
|00005460| 4c 45 43 54 49 4f 4e 20 | 75 73 69 6e 67 20 50 52 |LECTION |using PR|
|00005470| 45 44 49 43 41 54 45 2e | 0a 52 65 74 75 72 6e 20 |EDICATE.|.Return |
|00005480| 61 20 6c 69 73 74 20 6f | 66 20 61 6c 6c 20 73 65 |a list o|f all se|
|00005490| 6c 65 63 74 65 64 20 63 | 6f 6f 6b 69 65 73 2e 0a |lected c|ookies..|
|000054a0| 0a 50 52 45 44 49 43 41 | 54 45 20 69 73 20 61 20 |.PREDICA|TE is a |
|000054b0| 66 75 6e 63 74 69 6f 6e | 20 74 68 61 74 20 74 61 |function| that ta|
|000054c0| 6b 65 73 20 61 20 63 6f | 6f 6b 69 65 20 61 73 20 |kes a co|okie as |
|000054d0| 69 74 73 20 66 69 72 73 | 74 20 61 72 67 75 6d 65 |its firs|t argume|
|000054e0| 6e 74 2e 0a 0a 54 68 65 | 20 63 6f 6f 6b 69 65 73 |nt...The| cookies|
|000054f0| 20 6f 6e 20 74 68 65 20 | 72 65 74 75 72 6e 65 64 | on the |returned|
|00005500| 20 6c 69 73 74 20 77 69 | 6c 6c 20 61 70 70 65 61 | list wi|ll appea|
|00005510| 72 20 69 6e 20 74 68 65 | 20 73 61 6d 65 20 6f 72 |r in the| same or|
|00005520| 64 65 72 20 61 73 20 69 | 6e 0a 74 68 65 20 62 75 |der as i|n.the bu|
|00005530| 66 66 65 72 2e 20 20 59 | 6f 75 20 73 68 6f 75 6c |ffer. Y|ou shoul|
|00005540| 64 20 6e 6f 74 20 72 65 | 6c 79 20 6f 6e 20 69 6e |d not re|ly on in|
|00005550| 20 77 68 69 63 68 20 6f | 72 64 65 72 20 50 52 45 | which o|rder PRE|
|00005560| 44 49 43 41 54 45 20 69 | 73 0a 63 61 6c 6c 65 64 |DICATE i|s.called|
|00005570| 2e 0a 0a 4e 6f 74 65 20 | 74 68 61 74 20 74 68 65 |...Note |that the|
|00005580| 20 62 75 66 66 65 72 20 | 74 68 65 20 43 4f 4c 4c | buffer |the COLL|
|00005590| 45 43 54 49 4f 4e 20 69 | 73 20 64 69 73 70 6c 61 |ECTION i|s displa|
|000055a0| 79 65 64 20 69 6e 20 69 | 73 20 63 75 72 72 65 6e |yed in i|s curren|
|000055b0| 74 2d 62 75 66 66 65 72 | 0a 77 68 65 6e 20 50 52 |t-buffer|.when PR|
|000055c0| 45 44 49 43 41 54 45 20 | 69 73 20 63 61 6c 6c 65 |EDICATE |is calle|
|000055d0| 64 2e 20 20 49 66 20 50 | 52 45 44 49 43 41 54 45 |d. If P|REDICATE|
|000055e0| 20 6d 75 73 74 20 72 65 | 73 74 6f 72 65 20 63 75 | must re|store cu|
|000055f0| 72 72 65 6e 74 2d 62 75 | 66 66 65 72 20 69 66 0a |rrent-bu|ffer if.|
|00005600| 69 74 20 63 68 61 6e 67 | 65 73 20 69 74 2e 0a 0a |it chang|es it...|
|00005610| 49 66 20 6d 6f 72 65 20 | 74 68 61 6e 20 74 77 6f |If more |than two|
|00005620| 20 61 72 67 75 6d 65 6e | 74 73 20 61 72 65 20 67 | argumen|ts are g|
|00005630| 69 76 65 6e 20 74 6f 20 | 63 6f 6c 6c 65 63 74 69 |iven to |collecti|
|00005640| 6f 6e 2d 63 6f 6c 6c 65 | 63 74 2d 63 6f 6f 6b 69 |on-colle|ct-cooki|
|00005650| 65 20 74 68 65 0a 72 65 | 6d 61 69 6e 69 6e 67 20 |e the.re|maining |
|00005660| 61 72 67 75 6d 65 6e 74 | 73 20 77 69 6c 6c 20 62 |argument|s will b|
|00005670| 65 20 70 61 73 73 65 64 | 20 74 6f 20 50 52 45 44 |e passed| to PRED|
|00005680| 49 43 41 54 45 2e 22 5d | 29 0a 28 66 73 65 74 20 |ICATE."]|).(fset |
|00005690| 27 63 6f 6f 6b 69 65 2d | 73 6f 72 74 20 23 5b 28 |'cookie-|sort #[(|
|000056a0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 70 72 65 64 69 |collecti|on predi|
|000056b0| 63 61 74 65 29 20 22 c0 | 09 c2 5c 22 88 c3 09 c4 |cate) ".|..\"....|
|000056c0| c5 09 21 0e 06 5c 22 c7 | 09 21 88 5c 22 87 22 20 |..!..\".|.!.\"." |
|000056d0| 5b 69 63 6f 6f 6b 69 65 | 2d 73 65 74 2d 63 6f 6c |[icookie|-set-col|
|000056e0| 6c 65 63 74 69 6f 6e 2d | 3e 6c 61 73 74 2d 74 69 |lection-|>last-ti|
|000056f0| 6e 20 63 6f 6c 6c 65 63 | 74 69 6f 6e 20 6e 69 6c |n collec|tion nil|
|00005700| 20 63 6f 6c 6c 65 63 74 | 69 6f 6e 2d 61 70 70 65 | collect|ion-appe|
|00005710| 6e 64 2d 63 6f 6f 6b 69 | 65 73 20 73 6f 72 74 20 |nd-cooki|es sort |
|00005720| 63 6f 6c 6c 65 63 74 69 | 6f 6e 2d 6c 69 73 74 2d |collecti|on-list-|
|00005730| 63 6f 6f 6b 69 65 73 20 | 70 72 65 64 69 63 61 74 |cookies |predicat|
|00005740| 65 20 63 6f 6c 6c 65 63 | 74 69 6f 6e 2d 63 6c 65 |e collec|tion-cle|
|00005750| 61 72 5d 20 35 20 22 5c | 0a 53 6f 72 74 20 74 68 |ar] 5 "\|.Sort th|
|00005760| 65 20 63 6f 6f 6b 69 65 | 73 20 69 6e 20 43 4f 4c |e cookie|s in COL|
|00005770| 4c 45 43 54 49 4f 4e 2c | 20 73 74 61 62 6c 79 2c |LECTION,| stably,|
|00005780| 20 63 6f 6d 70 61 72 69 | 6e 67 20 65 6c 65 6d 65 | compari|ng eleme|
|00005790| 6e 74 73 20 75 73 69 6e | 67 20 50 52 45 44 49 43 |nts usin|g PREDIC|
|000057a0| 41 54 45 2e 0a 50 52 45 | 44 49 43 41 54 45 20 69 |ATE..PRE|DICATE i|
|000057b0| 73 20 63 61 6c 6c 65 64 | 20 77 69 74 68 20 74 77 |s called| with tw|
|000057c0| 6f 20 63 6f 6f 6b 69 65 | 73 2c 20 61 6e 64 20 73 |o cookie|s, and s|
|000057d0| 68 6f 75 6c 64 20 72 65 | 74 75 72 6e 20 54 0a 69 |hould re|turn T.i|
|000057e0| 66 20 74 68 65 20 66 69 | 72 73 74 20 63 6f 6f 6b |f the fi|rst cook|
|000057f0| 69 65 20 69 73 20 5c 22 | 6c 65 73 73 5c 22 20 74 |ie is \"|less\" t|
|00005800| 68 61 6e 20 74 68 65 20 | 73 65 63 6f 6e 64 2e 0a |han the |second..|
|00005810| 0a 41 6c 6c 20 63 6f 6f | 6b 69 65 73 20 77 69 6c |.All coo|kies wil|
|00005820| 6c 20 62 65 20 72 65 66 | 72 65 73 68 65 64 20 77 |l be ref|reshed w|
|00005830| 68 65 6e 20 74 68 65 20 | 73 6f 72 74 20 69 73 20 |hen the |sort is |
|00005840| 63 6f 6d 70 6c 65 74 65 | 2e 22 5d 29 0a 28 66 73 |complete|."]).(fs|
|00005850| 65 74 20 27 63 6f 6c 6c | 65 63 74 69 6f 6e 2d 62 |et 'coll|ection-b|
|00005860| 75 66 66 65 72 20 23 5b | 28 63 6f 6c 6c 65 63 74 |uffer #[|(collect|
|00005870| 69 6f 6e 29 20 22 c0 09 | 21 1a c3 5c 6e 21 ad 81 |ion) "..|!..\n!..|
|00005880| 5c 6e 29 87 22 20 5b 69 | 63 6f 6f 6b 69 65 2d 63 |\n)." [i|cookie-c|
|00005890| 6f 6c 6c 65 63 74 69 6f | 6e 2d 3e 62 75 66 66 65 |ollectio|n->buffe|
|000058a0| 72 20 63 6f 6c 6c 65 63 | 74 69 6f 6e 20 62 75 66 |r collec|tion buf|
|000058b0| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 5d 20 32 20 | buffer-|name] 2 |
|000058c0| 22 5c 0a 52 65 74 75 72 | 6e 20 74 68 65 20 62 75 |"\.Retur|n the bu|
|000058d0| 66 66 65 72 20 74 68 61 | 74 20 69 73 20 61 73 73 |ffer tha|t is ass|
|000058e0| 6f 63 69 61 74 65 64 20 | 77 69 74 68 20 43 4f 4c |ociated |with COL|
|000058f0| 4c 45 43 54 49 4f 4e 2e | 0a 52 65 74 75 72 6e 73 |LECTION.|.Returns|
|00005900| 20 6e 69 6c 20 69 66 20 | 74 68 65 20 62 75 66 66 | nil if |the buff|
|00005910| 65 72 20 68 61 73 20 62 | 65 65 6e 20 64 65 6c 65 |er has b|een dele|
|00005920| 74 65 64 2e 22 5d 29 0a | |ted."]).| |
+--------+-------------------------+-------------------------+--------+--------+
