/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / w3 / dsssl-flow.elc.z / dsssl-flow.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 36 3a 30 34 20 31 | 39 39 38 0a 3b 3b 3b 20 |:06:04 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 77 33 2f 64 |s-20.3/l|isp/w3/d|
|000000a0| 73 73 73 6c 2d 66 6c 6f | 77 2e 65 6c 0a 3b 3b 3b |sssl-flo|w.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 64 73 73 73 6c 2d | (error |"`dsssl-|
|000001f0| 66 6c 6f 77 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |flow.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |il))...(|byte-cod|
|00000260| 65 20 22 c0 09 42 11 c2 | c3 c4 c5 23 88 c3 c6 4e |e "..B..|...#...N|
|00000270| ac 86 c2 c3 c6 c7 23 88 | c0 87 22 20 5b 63 6c 2d |......#.|.." [cl-|
|00000280| 73 74 72 75 63 74 2d 66 | 6c 6f 77 2d 6f 62 6a 65 |struct-f|low-obje|
|00000290| 63 74 2d 74 61 67 73 20 | 63 75 72 72 65 6e 74 2d |ct-tags |current-|
|000002a0| 6c 6f 61 64 2d 6c 69 73 | 74 20 70 75 74 20 66 6c |load-lis|t put fl|
|000002b0| 6f 77 2d 6f 62 6a 65 63 | 74 2d 74 79 70 65 20 63 |ow-objec|t-type c|
|000002c0| 6c 2d 63 6f 6d 70 69 6c | 65 72 2d 6d 61 63 72 6f |l-compil|er-macro|
|000002d0| 20 23 5b 28 63 6c 2d 77 | 68 6f 6c 65 20 63 6c 2d | #[(cl-w|hole cl-|
|000002e0| 78 29 20 22 c0 c1 c2 c3 | 89 89 0c 26 06 87 22 20 |x) "....|...&.." |
|000002f0| 5b 63 6c 2d 64 65 66 73 | 75 62 73 74 2d 65 78 70 |[cl-defs|ubst-exp|
|00000300| 61 6e 64 20 28 63 6c 2d | 78 29 20 28 62 6c 6f 63 |and (cl-|x) (bloc|
|00000310| 6b 20 66 6c 6f 77 2d 6f | 62 6a 65 63 74 2d 74 79 |k flow-o|bject-ty|
|00000320| 70 65 20 28 6f 72 20 28 | 61 6e 64 20 28 6d 65 6d |pe (or (|and (mem|
|00000330| 71 20 28 61 72 65 66 20 | 63 6c 2d 78 20 30 29 20 |q (aref |cl-x 0) |
|00000340| 63 6c 2d 73 74 72 75 63 | 74 2d 66 6c 6f 77 2d 6f |cl-struc|t-flow-o|
|00000350| 62 6a 65 63 74 2d 74 61 | 67 73 29 29 20 28 65 72 |bject-ta|gs)) (er|
|00000360| 72 6f 72 20 22 66 6c 6f | 77 2d 6f 62 6a 65 63 74 |ror "flo|w-object|
|00000370| 2d 74 79 70 65 20 61 63 | 63 65 73 73 69 6e 67 20 |-type ac|cessing |
|00000380| 61 20 6e 6f 6e 2d 66 6c | 6f 77 2d 6f 62 6a 65 63 |a non-fl|ow-objec|
|00000390| 74 22 20 63 6c 2d 78 29 | 29 20 28 61 72 65 66 20 |t" cl-x)|) (aref |
|000003a0| 63 6c 2d 78 20 31 29 29 | 20 6e 69 6c 20 63 6c 2d |cl-x 1))| nil cl-|
|000003b0| 78 5d 20 37 5d 20 62 79 | 74 65 2d 63 6f 6d 70 69 |x] 7] by|te-compi|
|000003c0| 6c 65 20 63 6c 2d 62 79 | 74 65 2d 63 6f 6d 70 69 |le cl-by|te-compi|
|000003d0| 6c 65 2d 63 6f 6d 70 69 | 6c 65 72 2d 6d 61 63 72 |le-compi|ler-macr|
|000003e0| 6f 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |o] 4).(d|efalias |
|000003f0| 27 66 6c 6f 77 2d 6f 62 | 6a 65 63 74 2d 74 79 70 |'flow-ob|ject-typ|
|00000400| 65 20 23 5b 28 63 6c 2d | 78 29 20 22 08 c1 48 5c |e #[(cl-|x) "..H\|
|00000410| 6e 73 ac 85 c3 c4 08 5c | 22 88 08 c5 48 87 22 20 |ns.....\|"...H." |
|00000420| 5b 63 6c 2d 78 20 30 20 | 63 6c 2d 73 74 72 75 63 |[cl-x 0 |cl-struc|
|00000430| 74 2d 66 6c 6f 77 2d 6f | 62 6a 65 63 74 2d 74 61 |t-flow-o|bject-ta|
|00000440| 67 73 20 65 72 72 6f 72 | 20 22 66 6c 6f 77 2d 6f |gs error| "flow-o|
|00000450| 62 6a 65 63 74 2d 74 79 | 70 65 20 61 63 63 65 73 |bject-ty|pe acces|
|00000460| 73 69 6e 67 20 61 20 6e | 6f 6e 2d 66 6c 6f 77 2d |sing a n|on-flow-|
|00000470| 6f 62 6a 65 63 74 22 20 | 31 5d 20 33 5d 29 0a 28 |object" |1] 3]).(|
|00000480| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 c3 23 |byte-cod|e "....#|
|00000490| 88 c0 c4 c5 c6 23 88 c4 | c7 4e ac 86 c0 c4 c7 c8 |.....#..|.N......|
|000004a0| 23 88 c0 87 22 20 5b 70 | 75 74 20 66 6c 6f 77 2d |#..." [p|ut flow-|
|000004b0| 6f 62 6a 65 63 74 2d 74 | 79 70 65 20 73 65 74 66 |object-t|ype setf|
|000004c0| 2d 6d 65 74 68 6f 64 20 | 23 5b 28 63 6c 2d 78 29 |-method |#[(cl-x)|
|000004d0| 20 22 c0 c1 21 87 22 20 | 5b 65 72 72 6f 72 20 22 | "..!." |[error "|
|000004e0| 66 6c 6f 77 2d 6f 62 6a | 65 63 74 2d 74 79 70 65 |flow-obj|ect-type|
|000004f0| 20 69 73 20 61 20 72 65 | 61 64 2d 6f 6e 6c 79 20 | is a re|ad-only |
|00000500| 73 6c 6f 74 22 5d 20 32 | 5d 20 66 6c 6f 77 2d 6f |slot"] 2|] flow-o|
|00000510| 62 6a 65 63 74 2d 70 72 | 6f 70 65 72 74 69 65 73 |bject-pr|operties|
|00000520| 20 63 6c 2d 63 6f 6d 70 | 69 6c 65 72 2d 6d 61 63 | cl-comp|iler-mac|
|00000530| 72 6f 20 23 5b 28 63 6c | 2d 77 68 6f 6c 65 20 63 |ro #[(cl|-whole c|
|00000540| 6c 2d 78 29 20 22 c0 c1 | c2 c3 89 89 0c 26 06 87 |l-x) "..|.....&..|
|00000550| 22 20 5b 63 6c 2d 64 65 | 66 73 75 62 73 74 2d 65 |" [cl-de|fsubst-e|
|00000560| 78 70 61 6e 64 20 28 63 | 6c 2d 78 29 20 28 62 6c |xpand (c|l-x) (bl|
|00000570| 6f 63 6b 20 66 6c 6f 77 | 2d 6f 62 6a 65 63 74 2d |ock flow|-object-|
|00000580| 70 72 6f 70 65 72 74 69 | 65 73 20 28 6f 72 20 28 |properti|es (or (|
|00000590| 61 6e 64 20 28 6d 65 6d | 71 20 28 61 72 65 66 20 |and (mem|q (aref |
|000005a0| 63 6c 2d 78 20 30 29 20 | 63 6c 2d 73 74 72 75 63 |cl-x 0) |cl-struc|
|000005b0| 74 2d 66 6c 6f 77 2d 6f | 62 6a 65 63 74 2d 74 61 |t-flow-o|bject-ta|
|000005c0| 67 73 29 29 20 28 65 72 | 72 6f 72 20 22 66 6c 6f |gs)) (er|ror "flo|
|000005d0| 77 2d 6f 62 6a 65 63 74 | 2d 70 72 6f 70 65 72 74 |w-object|-propert|
|000005e0| 69 65 73 20 61 63 63 65 | 73 73 69 6e 67 20 61 20 |ies acce|ssing a |
|000005f0| 6e 6f 6e 2d 66 6c 6f 77 | 2d 6f 62 6a 65 63 74 22 |non-flow|-object"|
|00000600| 20 63 6c 2d 78 29 29 20 | 28 61 72 65 66 20 63 6c | cl-x)) |(aref cl|
|00000610| 2d 78 20 32 29 29 20 6e | 69 6c 20 63 6c 2d 78 5d |-x 2)) n|il cl-x]|
|00000620| 20 37 5d 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 | 7] byte|-compile|
|00000630| 20 63 6c 2d 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 | cl-byte|-compile|
|00000640| 2d 63 6f 6d 70 69 6c 65 | 72 2d 6d 61 63 72 6f 5d |-compile|r-macro]|
|00000650| 20 34 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 | 4).(def|alias 'f|
|00000660| 6c 6f 77 2d 6f 62 6a 65 | 63 74 2d 70 72 6f 70 65 |low-obje|ct-prope|
|00000670| 72 74 69 65 73 20 23 5b | 28 63 6c 2d 78 29 20 22 |rties #[|(cl-x) "|
|00000680| 08 c1 48 5c 6e 73 ac 85 | c3 c4 08 5c 22 88 08 c5 |..H\ns..|...\"...|
|00000690| 48 87 22 20 5b 63 6c 2d | 78 20 30 20 63 6c 2d 73 |H." [cl-|x 0 cl-s|
|000006a0| 74 72 75 63 74 2d 66 6c | 6f 77 2d 6f 62 6a 65 63 |truct-fl|ow-objec|
|000006b0| 74 2d 74 61 67 73 20 65 | 72 72 6f 72 20 22 66 6c |t-tags e|rror "fl|
|000006c0| 6f 77 2d 6f 62 6a 65 63 | 74 2d 70 72 6f 70 65 72 |ow-objec|t-proper|
|000006d0| 74 69 65 73 20 61 63 63 | 65 73 73 69 6e 67 20 61 |ties acc|essing a|
|000006e0| 20 6e 6f 6e 2d 66 6c 6f | 77 2d 6f 62 6a 65 63 74 | non-flo|w-object|
|000006f0| 22 20 32 5d 20 33 5d 29 | 0a 28 62 79 74 65 2d 63 |" 2] 3])|.(byte-c|
|00000700| 6f 64 65 20 22 c0 c1 c2 | c3 23 88 c0 c4 c5 c6 23 |ode "...|.#.....#|
|00000710| 88 c4 c7 4e ac 86 c0 c4 | c7 c8 23 88 c0 87 22 20 |...N....|..#..." |
|00000720| 5b 70 75 74 20 66 6c 6f | 77 2d 6f 62 6a 65 63 74 |[put flo|w-object|
|00000730| 2d 70 72 6f 70 65 72 74 | 69 65 73 20 73 65 74 66 |-propert|ies setf|
|00000740| 2d 6d 65 74 68 6f 64 20 | 23 5b 28 63 6c 2d 78 29 |-method |#[(cl-x)|
|00000750| 20 22 c0 09 c2 c3 c4 c5 | 25 87 22 20 5b 63 6c 2d | "......|%." [cl-|
|00000760| 73 74 72 75 63 74 2d 73 | 65 74 66 2d 65 78 70 61 |struct-s|etf-expa|
|00000770| 6e 64 65 72 20 63 6c 2d | 78 20 66 6c 6f 77 2d 6f |nder cl-|x flow-o|
|00000780| 62 6a 65 63 74 20 66 6c | 6f 77 2d 6f 62 6a 65 63 |bject fl|ow-objec|
|00000790| 74 2d 70 72 6f 70 65 72 | 74 69 65 73 20 28 61 6e |t-proper|ties (an|
|000007a0| 64 20 28 6d 65 6d 71 20 | 28 61 72 65 66 20 63 6c |d (memq |(aref cl|
|000007b0| 2d 78 20 30 29 20 63 6c | 2d 73 74 72 75 63 74 2d |-x 0) cl|-struct-|
|000007c0| 66 6c 6f 77 2d 6f 62 6a | 65 63 74 2d 74 61 67 73 |flow-obj|ect-tags|
|000007d0| 29 29 20 32 5d 20 36 5d | 20 66 6c 6f 77 2d 6f 62 |)) 2] 6]| flow-ob|
|000007e0| 6a 65 63 74 2d 63 68 69 | 6c 64 72 65 6e 20 63 6c |ject-chi|ldren cl|
|000007f0| 2d 63 6f 6d 70 69 6c 65 | 72 2d 6d 61 63 72 6f 20 |-compile|r-macro |
|00000800| 23 5b 28 63 6c 2d 77 68 | 6f 6c 65 20 63 6c 2d 78 |#[(cl-wh|ole cl-x|
|00000810| 29 20 22 c0 c1 c2 c3 89 | 89 0c 26 06 87 22 20 5b |) ".....|..&.." [|
|00000820| 63 6c 2d 64 65 66 73 75 | 62 73 74 2d 65 78 70 61 |cl-defsu|bst-expa|
|00000830| 6e 64 20 28 63 6c 2d 78 | 29 20 28 62 6c 6f 63 6b |nd (cl-x|) (block|
|00000840| 20 66 6c 6f 77 2d 6f 62 | 6a 65 63 74 2d 63 68 69 | flow-ob|ject-chi|
|00000850| 6c 64 72 65 6e 20 28 6f | 72 20 28 61 6e 64 20 28 |ldren (o|r (and (|
|00000860| 6d 65 6d 71 20 28 61 72 | 65 66 20 63 6c 2d 78 20 |memq (ar|ef cl-x |
|00000870| 30 29 20 63 6c 2d 73 74 | 72 75 63 74 2d 66 6c 6f |0) cl-st|ruct-flo|
|00000880| 77 2d 6f 62 6a 65 63 74 | 2d 74 61 67 73 29 29 20 |w-object|-tags)) |
|00000890| 28 65 72 72 6f 72 20 22 | 66 6c 6f 77 2d 6f 62 6a |(error "|flow-obj|
|000008a0| 65 63 74 2d 63 68 69 6c | 64 72 65 6e 20 61 63 63 |ect-chil|dren acc|
|000008b0| 65 73 73 69 6e 67 20 61 | 20 6e 6f 6e 2d 66 6c 6f |essing a| non-flo|
|000008c0| 77 2d 6f 62 6a 65 63 74 | 22 20 63 6c 2d 78 29 29 |w-object|" cl-x))|
|000008d0| 20 28 61 72 65 66 20 63 | 6c 2d 78 20 33 29 29 20 | (aref c|l-x 3)) |
|000008e0| 6e 69 6c 20 63 6c 2d 78 | 5d 20 37 5d 20 62 79 74 |nil cl-x|] 7] byt|
|000008f0| 65 2d 63 6f 6d 70 69 6c | 65 20 63 6c 2d 62 79 74 |e-compil|e cl-byt|
|00000900| 65 2d 63 6f 6d 70 69 6c | 65 2d 63 6f 6d 70 69 6c |e-compil|e-compil|
|00000910| 65 72 2d 6d 61 63 72 6f | 5d 20 34 29 0a 28 64 65 |er-macro|] 4).(de|
|00000920| 66 61 6c 69 61 73 20 27 | 66 6c 6f 77 2d 6f 62 6a |falias '|flow-obj|
|00000930| 65 63 74 2d 63 68 69 6c | 64 72 65 6e 20 23 5b 28 |ect-chil|dren #[(|
|00000940| 63 6c 2d 78 29 20 22 08 | c1 48 5c 6e 73 ac 85 c3 |cl-x) ".|.H\ns...|
|00000950| c4 08 5c 22 88 08 c5 48 | 87 22 20 5b 63 6c 2d 78 |..\"...H|." [cl-x|
|00000960| 20 30 20 63 6c 2d 73 74 | 72 75 63 74 2d 66 6c 6f | 0 cl-st|ruct-flo|
|00000970| 77 2d 6f 62 6a 65 63 74 | 2d 74 61 67 73 20 65 72 |w-object|-tags er|
|00000980| 72 6f 72 20 22 66 6c 6f | 77 2d 6f 62 6a 65 63 74 |ror "flo|w-object|
|00000990| 2d 63 68 69 6c 64 72 65 | 6e 20 61 63 63 65 73 73 |-childre|n access|
|000009a0| 69 6e 67 20 61 20 6e 6f | 6e 2d 66 6c 6f 77 2d 6f |ing a no|n-flow-o|
|000009b0| 62 6a 65 63 74 22 20 33 | 5d 20 33 5d 29 0a 28 62 |bject" 3|] 3]).(b|
|000009c0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 c3 23 88 |yte-code| "....#.|
|000009d0| c0 c4 c5 c6 23 88 c4 c7 | 4e ac 86 c0 c4 c7 c8 23 |....#...|N......#|
|000009e0| 88 c0 87 22 20 5b 70 75 | 74 20 66 6c 6f 77 2d 6f |..." [pu|t flow-o|
|000009f0| 62 6a 65 63 74 2d 63 68 | 69 6c 64 72 65 6e 20 73 |bject-ch|ildren s|
|00000a00| 65 74 66 2d 6d 65 74 68 | 6f 64 20 23 5b 28 63 6c |etf-meth|od #[(cl|
|00000a10| 2d 78 29 20 22 c0 09 c2 | c3 c4 c5 25 87 22 20 5b |-x) "...|...%." [|
|00000a20| 63 6c 2d 73 74 72 75 63 | 74 2d 73 65 74 66 2d 65 |cl-struc|t-setf-e|
|00000a30| 78 70 61 6e 64 65 72 20 | 63 6c 2d 78 20 66 6c 6f |xpander |cl-x flo|
|00000a40| 77 2d 6f 62 6a 65 63 74 | 20 66 6c 6f 77 2d 6f 62 |w-object| flow-ob|
|00000a50| 6a 65 63 74 2d 63 68 69 | 6c 64 72 65 6e 20 28 61 |ject-chi|ldren (a|
|00000a60| 6e 64 20 28 6d 65 6d 71 | 20 28 61 72 65 66 20 63 |nd (memq| (aref c|
|00000a70| 6c 2d 78 20 30 29 20 63 | 6c 2d 73 74 72 75 63 74 |l-x 0) c|l-struct|
|00000a80| 2d 66 6c 6f 77 2d 6f 62 | 6a 65 63 74 2d 74 61 67 |-flow-ob|ject-tag|
|00000a90| 73 29 29 20 33 5d 20 36 | 5d 20 66 6c 6f 77 2d 6f |s)) 3] 6|] flow-o|
|00000aa0| 62 6a 65 63 74 2d 70 61 | 72 65 6e 74 20 63 6c 2d |bject-pa|rent cl-|
|00000ab0| 63 6f 6d 70 69 6c 65 72 | 2d 6d 61 63 72 6f 20 23 |compiler|-macro #|
|00000ac0| 5b 28 63 6c 2d 77 68 6f | 6c 65 20 63 6c 2d 78 29 |[(cl-who|le cl-x)|
|00000ad0| 20 22 c0 c1 c2 c3 89 89 | 0c 26 06 87 22 20 5b 63 | "......|.&.." [c|
|00000ae0| 6c 2d 64 65 66 73 75 62 | 73 74 2d 65 78 70 61 6e |l-defsub|st-expan|
|00000af0| 64 20 28 63 6c 2d 78 29 | 20 28 62 6c 6f 63 6b 20 |d (cl-x)| (block |
|00000b00| 66 6c 6f 77 2d 6f 62 6a | 65 63 74 2d 70 61 72 65 |flow-obj|ect-pare|
|00000b10| 6e 74 20 28 6f 72 20 28 | 61 6e 64 20 28 6d 65 6d |nt (or (|and (mem|
|00000b20| 71 20 28 61 72 65 66 20 | 63 6c 2d 78 20 30 29 20 |q (aref |cl-x 0) |
|00000b30| 63 6c 2d 73 74 72 75 63 | 74 2d 66 6c 6f 77 2d 6f |cl-struc|t-flow-o|
|00000b40| 62 6a 65 63 74 2d 74 61 | 67 73 29 29 20 28 65 72 |bject-ta|gs)) (er|
|00000b50| 72 6f 72 20 22 66 6c 6f | 77 2d 6f 62 6a 65 63 74 |ror "flo|w-object|
|00000b60| 2d 70 61 72 65 6e 74 20 | 61 63 63 65 73 73 69 6e |-parent |accessin|
|00000b70| 67 20 61 20 6e 6f 6e 2d | 66 6c 6f 77 2d 6f 62 6a |g a non-|flow-obj|
|00000b80| 65 63 74 22 20 63 6c 2d | 78 29 29 20 28 61 72 65 |ect" cl-|x)) (are|
|00000b90| 66 20 63 6c 2d 78 20 34 | 29 29 20 6e 69 6c 20 63 |f cl-x 4|)) nil c|
|00000ba0| 6c 2d 78 5d 20 37 5d 20 | 62 79 74 65 2d 63 6f 6d |l-x] 7] |byte-com|
|00000bb0| 70 69 6c 65 20 63 6c 2d | 62 79 74 65 2d 63 6f 6d |pile cl-|byte-com|
|00000bc0| 70 69 6c 65 2d 63 6f 6d | 70 69 6c 65 72 2d 6d 61 |pile-com|piler-ma|
|00000bd0| 63 72 6f 5d 20 34 29 0a | 28 64 65 66 61 6c 69 61 |cro] 4).|(defalia|
|00000be0| 73 20 27 66 6c 6f 77 2d | 6f 62 6a 65 63 74 2d 70 |s 'flow-|object-p|
|00000bf0| 61 72 65 6e 74 20 23 5b | 28 63 6c 2d 78 29 20 22 |arent #[|(cl-x) "|
|00000c00| 08 c1 48 5c 6e 73 ac 85 | c3 c4 08 5c 22 88 08 c5 |..H\ns..|...\"...|
|00000c10| 48 87 22 20 5b 63 6c 2d | 78 20 30 20 63 6c 2d 73 |H." [cl-|x 0 cl-s|
|00000c20| 74 72 75 63 74 2d 66 6c | 6f 77 2d 6f 62 6a 65 63 |truct-fl|ow-objec|
|00000c30| 74 2d 74 61 67 73 20 65 | 72 72 6f 72 20 22 66 6c |t-tags e|rror "fl|
|00000c40| 6f 77 2d 6f 62 6a 65 63 | 74 2d 70 61 72 65 6e 74 |ow-objec|t-parent|
|00000c50| 20 61 63 63 65 73 73 69 | 6e 67 20 61 20 6e 6f 6e | accessi|ng a non|
|00000c60| 2d 66 6c 6f 77 2d 6f 62 | 6a 65 63 74 22 20 34 5d |-flow-ob|ject" 4]|
|00000c70| 20 33 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | 3]).(by|te-code |
|00000c80| 22 c0 c1 c2 c3 23 88 c0 | c4 c5 c6 23 88 c4 c7 4e |"....#..|...#...N|
|00000c90| ac 86 c0 c4 c7 c8 23 88 | c0 87 22 20 5b 70 75 74 |......#.|.." [put|
|00000ca0| 20 66 6c 6f 77 2d 6f 62 | 6a 65 63 74 2d 70 61 72 | flow-ob|ject-par|
|00000cb0| 65 6e 74 20 73 65 74 66 | 2d 6d 65 74 68 6f 64 20 |ent setf|-method |
|00000cc0| 23 5b 28 63 6c 2d 78 29 | 20 22 c0 09 c2 c3 c4 c5 |#[(cl-x)| "......|
|00000cd0| 25 87 22 20 5b 63 6c 2d | 73 74 72 75 63 74 2d 73 |%." [cl-|struct-s|
|00000ce0| 65 74 66 2d 65 78 70 61 | 6e 64 65 72 20 63 6c 2d |etf-expa|nder cl-|
|00000cf0| 78 20 66 6c 6f 77 2d 6f | 62 6a 65 63 74 20 66 6c |x flow-o|bject fl|
|00000d00| 6f 77 2d 6f 62 6a 65 63 | 74 2d 70 61 72 65 6e 74 |ow-objec|t-parent|
|00000d10| 20 28 61 6e 64 20 28 6d | 65 6d 71 20 28 61 72 65 | (and (m|emq (are|
|00000d20| 66 20 63 6c 2d 78 20 30 | 29 20 63 6c 2d 73 74 72 |f cl-x 0|) cl-str|
|00000d30| 75 63 74 2d 66 6c 6f 77 | 2d 6f 62 6a 65 63 74 2d |uct-flow|-object-|
|00000d40| 74 61 67 73 29 29 20 34 | 5d 20 36 5d 20 66 6c 6f |tags)) 4|] 6] flo|
|00000d50| 77 2d 6f 62 6a 65 63 74 | 2d 70 20 63 6c 2d 63 6f |w-object|-p cl-co|
|00000d60| 6d 70 69 6c 65 72 2d 6d | 61 63 72 6f 20 23 5b 28 |mpiler-m|acro #[(|
|00000d70| 63 6c 2d 77 68 6f 6c 65 | 20 63 6c 2d 78 29 20 22 |cl-whole| cl-x) "|
|00000d80| c0 c1 c2 c3 89 89 0c 26 | 06 87 22 20 5b 63 6c 2d |.......&|.." [cl-|
|00000d90| 64 65 66 73 75 62 73 74 | 2d 65 78 70 61 6e 64 20 |defsubst|-expand |
|00000da0| 28 63 6c 2d 78 29 20 28 | 62 6c 6f 63 6b 20 66 6c |(cl-x) (|block fl|
|00000db0| 6f 77 2d 6f 62 6a 65 63 | 74 2d 70 20 28 61 6e 64 |ow-objec|t-p (and|
|00000dc0| 20 28 76 65 63 74 6f 72 | 70 20 63 6c 2d 78 29 20 | (vector|p cl-x) |
|00000dd0| 28 3e 3d 20 28 6c 65 6e | 67 74 68 20 63 6c 2d 78 |(>= (len|gth cl-x|
|00000de0| 29 20 35 29 20 28 6d 65 | 6d 71 20 28 61 72 65 66 |) 5) (me|mq (aref|
|00000df0| 20 63 6c 2d 78 20 30 29 | 20 63 6c 2d 73 74 72 75 | cl-x 0)| cl-stru|
|00000e00| 63 74 2d 66 6c 6f 77 2d | 6f 62 6a 65 63 74 2d 74 |ct-flow-|object-t|
|00000e10| 61 67 73 29 20 74 29 29 | 20 6e 69 6c 20 63 6c 2d |ags) t))| nil cl-|
|00000e20| 78 5d 20 37 5d 20 62 79 | 74 65 2d 63 6f 6d 70 69 |x] 7] by|te-compi|
|00000e30| 6c 65 20 63 6c 2d 62 79 | 74 65 2d 63 6f 6d 70 69 |le cl-by|te-compi|
|00000e40| 6c 65 2d 63 6f 6d 70 69 | 6c 65 72 2d 6d 61 63 72 |le-compi|ler-macr|
|00000e50| 6f 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |o] 4).(d|efalias |
|00000e60| 27 66 6c 6f 77 2d 6f 62 | 6a 65 63 74 2d 70 20 23 |'flow-ob|ject-p #|
|00000e70| 5b 28 63 6c 2d 78 29 20 | 22 c0 09 21 ad 8e 09 47 |[(cl-x) |"..!...G|
|00000e80| c2 59 ad 88 09 c3 48 0c | 73 ad 81 c5 87 22 20 5b |.Y....H.|s...." [|
|00000e90| 76 65 63 74 6f 72 70 20 | 63 6c 2d 78 20 35 20 30 |vectorp |cl-x 5 0|
|00000ea0| 20 63 6c 2d 73 74 72 75 | 63 74 2d 66 6c 6f 77 2d | cl-stru|ct-flow-|
|00000eb0| 6f 62 6a 65 63 74 2d 74 | 61 67 73 20 74 5d 20 32 |object-t|ags t] 2|
|00000ec0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6f |]).(defa|lias 'co|
|00000ed0| 70 79 2d 66 6c 6f 77 2d | 6f 62 6a 65 63 74 20 23 |py-flow-|object #|
|00000ee0| 5b 28 78 29 20 22 c0 09 | 21 87 22 20 5b 63 6f 70 |[(x) "..|!." [cop|
|00000ef0| 79 2d 73 65 71 75 65 6e | 63 65 20 78 5d 20 32 5d |y-sequen|ce x] 2]|
|00000f00| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 10 |).(byte-|code "..|
|00000f10| c1 11 c2 12 c3 13 c4 c5 | c6 c7 23 88 c5 c8 4e ac |........|..#...N.|
|00000f20| 86 c4 c5 c8 c9 23 88 c0 | 10 c1 11 c2 12 c3 13 c0 |.....#..|........|
|00000f30| 87 22 20 5b 3a 74 79 70 | 65 20 3a 70 72 6f 70 65 |." [:typ|e :prope|
|00000f40| 72 74 69 65 73 20 3a 63 | 68 69 6c 64 72 65 6e 20 |rties :c|hildren |
|00000f50| 3a 70 61 72 65 6e 74 20 | 70 75 74 20 6d 61 6b 65 |:parent |put make|
|00000f60| 2d 66 6c 6f 77 2d 6f 62 | 6a 65 63 74 20 63 6c 2d |-flow-ob|ject cl-|
|00000f70| 63 6f 6d 70 69 6c 65 72 | 2d 6d 61 63 72 6f 20 23 |compiler|-macro #|
|00000f80| 5b 28 63 6c 2d 77 68 6f | 6c 65 20 26 72 65 73 74 |[(cl-who|le &rest|
|00000f90| 20 2d 2d 72 65 73 74 2d | 2d 38 37 37 30 30 29 20 | --rest-|-87700) |
|00000fa0| 22 c0 09 73 ae 81 c2 41 | 40 1b c4 09 73 41 40 1d |"..s...A|@...sA@.|
|00000fb0| c6 09 73 41 40 1e 07 c8 | 09 73 41 40 1e 09 09 1e |..sA@...|.sA@....|
|00000fc0| 5c 6e 0e 5c 6e ab a6 0e | 5c 6e 40 cb 73 ab 89 0e |\n.\n...|\n@.s...|
|00000fd0| 5c 6e 41 41 89 16 5c 6e | aa 6e cc 09 73 41 40 ab |\nAA..\n|.n..sA@.|
|00000fe0| 86 cd 89 16 5c 6e aa 61 | ce cf 0e 5c 6e 40 5c 22 |....\n.a|...\n@\"|
|00000ff0| 88 aa 56 29 d0 d1 d2 d3 | 0e 14 cd 0b 0d 0e 07 0e |..V)....|........|
|00001000| 09 26 09 2c 87 22 20 5b | 3a 74 79 70 65 20 2d 2d |.&.,." [|:type --|
|00001010| 72 65 73 74 2d 2d 38 37 | 37 30 30 20 28 6e 69 6c |rest--87|700 (nil|
|00001020| 20 27 75 6e 6b 6e 6f 77 | 6e 29 20 74 79 70 65 20 | 'unknow|n) type |
|00001030| 3a 70 72 6f 70 65 72 74 | 69 65 73 20 70 72 6f 70 |:propert|ies prop|
|00001040| 65 72 74 69 65 73 20 3a | 63 68 69 6c 64 72 65 6e |erties :|children|
|00001050| 20 63 68 69 6c 64 72 65 | 6e 20 3a 70 61 72 65 6e | childre|n :paren|
|00001060| 74 20 70 61 72 65 6e 74 | 20 2d 2d 6b 65 79 73 2d |t parent| --keys-|
|00001070| 2d 38 37 37 30 31 20 28 | 3a 74 79 70 65 20 3a 70 |-87701 (|:type :p|
|00001080| 72 6f 70 65 72 74 69 65 | 73 20 3a 63 68 69 6c 64 |ropertie|s :child|
|00001090| 72 65 6e 20 3a 70 61 72 | 65 6e 74 20 3a 61 6c 6c |ren :par|ent :all|
|000010a0| 6f 77 2d 6f 74 68 65 72 | 2d 6b 65 79 73 29 20 3a |ow-other|-keys) :|
|000010b0| 61 6c 6c 6f 77 2d 6f 74 | 68 65 72 2d 6b 65 79 73 |allow-ot|her-keys|
|000010c0| 20 6e 69 6c 20 65 72 72 | 6f 72 20 22 4b 65 79 77 | nil err|or "Keyw|
|000010d0| 6f 72 64 20 61 72 67 75 | 6d 65 6e 74 20 25 73 20 |ord argu|ment %s |
|000010e0| 6e 6f 74 20 6f 6e 65 20 | 6f 66 20 28 3a 74 79 70 |not one |of (:typ|
|000010f0| 65 20 3a 70 72 6f 70 65 | 72 74 69 65 73 20 3a 63 |e :prope|rties :c|
|00001100| 68 69 6c 64 72 65 6e 20 | 3a 70 61 72 65 6e 74 29 |hildren |:parent)|
|00001110| 22 20 63 6c 2d 64 65 66 | 73 75 62 73 74 2d 65 78 |" cl-def|subst-ex|
|00001120| 70 61 6e 64 20 28 74 79 | 70 65 20 70 72 6f 70 65 |pand (ty|pe prope|
|00001130| 72 74 69 65 73 20 63 68 | 69 6c 64 72 65 6e 20 70 |rties ch|ildren p|
|00001140| 61 72 65 6e 74 29 20 28 | 62 6c 6f 63 6b 20 6d 61 |arent) (|block ma|
|00001150| 6b 65 2d 66 6c 6f 77 2d | 6f 62 6a 65 63 74 20 28 |ke-flow-|object (|
|00001160| 76 65 63 74 6f 72 20 27 | 63 6c 2d 73 74 72 75 63 |vector '|cl-struc|
|00001170| 74 2d 66 6c 6f 77 2d 6f | 62 6a 65 63 74 20 74 79 |t-flow-o|bject ty|
|00001180| 70 65 20 70 72 6f 70 65 | 72 74 69 65 73 20 63 68 |pe prope|rties ch|
|00001190| 69 6c 64 72 65 6e 20 70 | 61 72 65 6e 74 29 29 20 |ildren p|arent)) |
|000011a0| 74 20 63 6c 2d 77 68 6f | 6c 65 5d 20 31 31 5d 20 |t cl-who|le] 11] |
|000011b0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 20 63 6c 2d |byte-com|pile cl-|
|000011c0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 63 6f 6d |byte-com|pile-com|
|000011d0| 70 69 6c 65 72 2d 6d 61 | 63 72 6f 5d 20 34 29 0a |piler-ma|cro] 4).|
|000011e0| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 6b 65 2d |(defalia|s 'make-|
|000011f0| 66 6c 6f 77 2d 6f 62 6a | 65 63 74 20 23 5b 28 26 |flow-obj|ect #[(&|
|00001200| 72 65 73 74 20 2d 2d 72 | 65 73 74 2d 2d 38 37 37 |rest --r|est--877|
|00001210| 30 32 29 20 22 c0 09 73 | ae 81 c2 41 40 1b c4 09 |02) "..s|...A@...|
|00001220| 73 41 40 1d c6 09 73 41 | 40 1e 07 c8 09 73 41 40 |sA@...sA|@....sA@|
|00001230| 1e 09 09 1e 5c 6e 0e 5c | 6e ab a6 0e 5c 6e 40 cb |....\n.\|n...\n@.|
|00001240| 73 ab 89 0e 5c 6e 41 41 | 89 16 5c 6e aa 6e cc 09 |s...\nAA|..\n.n..|
|00001250| 73 41 40 ab 86 cd 89 16 | 5c 6e aa 61 ce cf 0e 5c |sA@.....|\n.a...\|
|00001260| 6e 40 5c 22 88 aa 56 29 | d0 d1 0b 0d 0e 07 0e 09 |n@\"..V)|........|
|00001270| 25 2c 87 22 20 5b 3a 74 | 79 70 65 20 2d 2d 72 65 |%,." [:t|ype --re|
|00001280| 73 74 2d 2d 38 37 37 30 | 32 20 28 6e 69 6c 20 75 |st--8770|2 (nil u|
|00001290| 6e 6b 6e 6f 77 6e 29 20 | 74 79 70 65 20 3a 70 72 |nknown) |type :pr|
|000012a0| 6f 70 65 72 74 69 65 73 | 20 70 72 6f 70 65 72 74 |operties| propert|
|000012b0| 69 65 73 20 3a 63 68 69 | 6c 64 72 65 6e 20 63 68 |ies :chi|ldren ch|
|000012c0| 69 6c 64 72 65 6e 20 3a | 70 61 72 65 6e 74 20 70 |ildren :|parent p|
|000012d0| 61 72 65 6e 74 20 2d 2d | 6b 65 79 73 2d 2d 38 37 |arent --|keys--87|
|000012e0| 37 30 33 20 28 3a 74 79 | 70 65 20 3a 70 72 6f 70 |703 (:ty|pe :prop|
|000012f0| 65 72 74 69 65 73 20 3a | 63 68 69 6c 64 72 65 6e |erties :|children|
|00001300| 20 3a 70 61 72 65 6e 74 | 20 3a 61 6c 6c 6f 77 2d | :parent| :allow-|
|00001310| 6f 74 68 65 72 2d 6b 65 | 79 73 29 20 3a 61 6c 6c |other-ke|ys) :all|
|00001320| 6f 77 2d 6f 74 68 65 72 | 2d 6b 65 79 73 20 6e 69 |ow-other|-keys ni|
|00001330| 6c 20 65 72 72 6f 72 20 | 22 4b 65 79 77 6f 72 64 |l error |"Keyword|
|00001340| 20 61 72 67 75 6d 65 6e | 74 20 25 73 20 6e 6f 74 | argumen|t %s not|
|00001350| 20 6f 6e 65 20 6f 66 20 | 28 3a 74 79 70 65 20 3a | one of |(:type :|
|00001360| 70 72 6f 70 65 72 74 69 | 65 73 20 3a 63 68 69 6c |properti|es :chil|
|00001370| 64 72 65 6e 20 3a 70 61 | 72 65 6e 74 29 22 20 76 |dren :pa|rent)" v|
|00001380| 65 63 74 6f 72 20 63 6c | 2d 73 74 72 75 63 74 2d |ector cl|-struct-|
|00001390| 66 6c 6f 77 2d 6f 62 6a | 65 63 74 5d 20 37 5d 29 |flow-obj|ect] 7])|
|000013a0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 09 42 |.(byte-c|ode "..B|
|000013b0| 11 c2 43 13 c4 c5 c6 c7 | 23 88 c4 c5 c8 c9 23 88 |..C.....|#.....#.|
|000013c0| c4 c5 ca cb 23 88 c4 c5 | cc cd 23 88 c4 ce cf cd |....#...|..#.....|
|000013d0| 23 88 c4 d0 cf cd 23 88 | c4 d1 cf d2 23 88 c4 d3 |#.....#.|....#...|
|000013e0| cf cd 23 88 c4 d4 cf cd | 23 88 c4 d5 cf cd 23 88 |..#.....|#.....#.|
|000013f0| c4 d6 cf cd 23 88 d7 0e | 18 42 16 18 c4 d9 da db |....#...|.B......|
|00001400| 23 88 d9 dc 4e ac 86 c4 | d9 dc dd 23 88 cb 87 22 |#...N...|...#..."|
|00001410| 20 5b 23 5b 28 63 6c 2d | 78 20 63 6c 2d 73 20 63 | [#[(cl-|x cl-s c|
|00001420| 6c 2d 6e 29 20 22 c0 09 | 21 85 88 00 09 47 c2 59 |l-n) "..|!....G.Y|
|00001430| ad fc 09 c3 48 0c 73 ad | f5 c5 c6 0e 07 5c 22 88 |....H.s.|.....\".|
|00001440| c5 c8 0e 07 5c 22 88 c9 | 09 c3 48 0c 73 ac 85 ca |....\"..|..H.s...|
|00001450| cb 09 5c 22 88 09 cc 48 | 0e 07 5c 22 88 c5 cd 0e |..\"...H|..\"....|
|00001460| 07 5c 22 88 c9 09 c3 48 | 0c 73 ac 85 ca ce 09 5c |.\"....H|.s.....\|
|00001470| 22 88 09 cf 48 0e 07 5c | 22 88 c5 d0 0e 07 5c 22 |"...H..\|".....\"|
|00001480| 88 c9 09 c3 48 0c 73 ac | 85 ca d1 09 5c 22 88 09 |....H.s.|....\"..|
|00001490| d2 48 0e 07 5c 22 88 c5 | d3 0e 07 5c 22 88 c9 09 |.H..\"..|...\"...|
|000014a0| c3 48 0c 73 ac 85 ca d4 | 09 5c 22 88 09 d5 48 0e |.H.s....|.\"...H.|
|000014b0| 07 5c 22 88 c5 d6 0e 07 | 5c 22 88 d7 87 22 20 5b |.\".....|\"..." [|
|000014c0| 76 65 63 74 6f 72 70 20 | 63 6c 2d 78 20 35 20 30 |vectorp |cl-x 5 0|
|000014d0| 20 63 6c 2d 73 74 72 75 | 63 74 2d 66 6c 6f 77 2d | cl-stru|ct-flow-|
|000014e0| 6f 62 6a 65 63 74 2d 74 | 61 67 73 20 70 72 69 6e |object-t|ags prin|
|000014f0| 63 20 22 23 53 28 66 6c | 6f 77 2d 6f 62 6a 65 63 |c "#S(fl|ow-objec|
|00001500| 74 22 20 63 6c 2d 73 20 | 22 20 74 79 70 65 22 20 |t" cl-s |" type" |
|00001510| 70 72 69 6e 31 20 65 72 | 72 6f 72 20 22 66 6c 6f |prin1 er|ror "flo|
|00001520| 77 2d 6f 62 6a 65 63 74 | 2d 74 79 70 65 20 61 63 |w-object|-type ac|
|00001530| 63 65 73 73 69 6e 67 20 | 61 20 6e 6f 6e 2d 66 6c |cessing |a non-fl|
|00001540| 6f 77 2d 6f 62 6a 65 63 | 74 22 20 31 20 22 20 70 |ow-objec|t" 1 " p|
|00001550| 72 6f 70 65 72 74 69 65 | 73 22 20 22 66 6c 6f 77 |ropertie|s" "flow|
|00001560| 2d 6f 62 6a 65 63 74 2d | 70 72 6f 70 65 72 74 69 |-object-|properti|
|00001570| 65 73 20 61 63 63 65 73 | 73 69 6e 67 20 61 20 6e |es acces|sing a n|
|00001580| 6f 6e 2d 66 6c 6f 77 2d | 6f 62 6a 65 63 74 22 20 |on-flow-|object" |
|00001590| 32 20 22 20 63 68 69 6c | 64 72 65 6e 22 20 22 66 |2 " chil|dren" "f|
|000015a0| 6c 6f 77 2d 6f 62 6a 65 | 63 74 2d 63 68 69 6c 64 |low-obje|ct-child|
|000015b0| 72 65 6e 20 61 63 63 65 | 73 73 69 6e 67 20 61 20 |ren acce|ssing a |
|000015c0| 6e 6f 6e 2d 66 6c 6f 77 | 2d 6f 62 6a 65 63 74 22 |non-flow|-object"|
|000015d0| 20 33 20 22 20 70 61 72 | 65 6e 74 22 20 22 66 6c | 3 " par|ent" "fl|
|000015e0| 6f 77 2d 6f 62 6a 65 63 | 74 2d 70 61 72 65 6e 74 |ow-objec|t-parent|
|000015f0| 20 61 63 63 65 73 73 69 | 6e 67 20 61 20 6e 6f 6e | accessi|ng a non|
|00001600| 2d 66 6c 6f 77 2d 6f 62 | 6a 65 63 74 22 20 34 20 |-flow-ob|ject" 4 |
|00001610| 22 29 22 20 74 5d 20 34 | 5d 20 63 75 73 74 6f 6d |")" t] 4|] custom|
|00001620| 2d 70 72 69 6e 74 2d 66 | 75 6e 63 74 69 6f 6e 73 |-print-f|unctions|
|00001630| 20 63 6c 2d 73 74 72 75 | 63 74 2d 66 6c 6f 77 2d | cl-stru|ct-flow-|
|00001640| 6f 62 6a 65 63 74 20 63 | 6c 2d 73 74 72 75 63 74 |object c|l-struct|
|00001650| 2d 66 6c 6f 77 2d 6f 62 | 6a 65 63 74 2d 74 61 67 |-flow-ob|ject-tag|
|00001660| 73 20 70 75 74 20 66 6c | 6f 77 2d 6f 62 6a 65 63 |s put fl|ow-objec|
|00001670| 74 20 63 6c 2d 73 74 72 | 75 63 74 2d 73 6c 6f 74 |t cl-str|uct-slot|
|00001680| 73 20 28 28 63 6c 2d 74 | 61 67 2d 73 6c 6f 74 29 |s ((cl-t|ag-slot)|
|00001690| 20 28 74 79 70 65 20 27 | 75 6e 6b 6e 6f 77 6e 20 | (type '|unknown |
|000016a0| 3a 72 65 61 64 2d 6f 6e | 6c 79 20 74 29 20 28 70 |:read-on|ly t) (p|
|000016b0| 72 6f 70 65 72 74 69 65 | 73 20 6e 69 6c 29 20 28 |ropertie|s nil) (|
|000016c0| 63 68 69 6c 64 72 65 6e | 20 6e 69 6c 29 20 28 70 |children| nil) (p|
|000016d0| 61 72 65 6e 74 20 6e 69 | 6c 29 29 20 63 6c 2d 73 |arent ni|l)) cl-s|
|000016e0| 74 72 75 63 74 2d 74 79 | 70 65 20 28 76 65 63 74 |truct-ty|pe (vect|
|000016f0| 6f 72 20 6e 69 6c 29 20 | 63 6c 2d 73 74 72 75 63 |or nil) |cl-struc|
|00001700| 74 2d 69 6e 63 6c 75 64 | 65 20 6e 69 6c 20 63 6c |t-includ|e nil cl|
|00001710| 2d 73 74 72 75 63 74 2d | 70 72 69 6e 74 20 74 20 |-struct-|print t |
|00001720| 6d 61 6b 65 2d 66 6c 6f | 77 2d 6f 62 6a 65 63 74 |make-flo|w-object|
|00001730| 20 73 69 64 65 2d 65 66 | 66 65 63 74 2d 66 72 65 | side-ef|fect-fre|
|00001740| 65 20 63 6f 70 79 2d 66 | 6c 6f 77 2d 6f 62 6a 65 |e copy-f|low-obje|
|00001750| 63 74 20 66 6c 6f 77 2d | 6f 62 6a 65 63 74 2d 70 |ct flow-|object-p|
|00001760| 20 65 72 72 6f 72 2d 66 | 72 65 65 20 66 6c 6f 77 | error-f|ree flow|
|00001770| 2d 6f 62 6a 65 63 74 2d | 70 61 72 65 6e 74 20 66 |-object-|parent f|
|00001780| 6c 6f 77 2d 6f 62 6a 65 | 63 74 2d 63 68 69 6c 64 |low-obje|ct-child|
|00001790| 72 65 6e 20 66 6c 6f 77 | 2d 6f 62 6a 65 63 74 2d |ren flow|-object-|
|000017a0| 70 72 6f 70 65 72 74 69 | 65 73 20 66 6c 6f 77 2d |properti|es flow-|
|000017b0| 6f 62 6a 65 63 74 2d 74 | 79 70 65 20 63 6c 2d 73 |object-t|ype cl-s|
|000017c0| 74 72 75 63 74 2d 64 73 | 73 73 6c 2d 66 6c 6f 77 |truct-ds|ssl-flow|
|000017d0| 2d 70 72 6f 63 65 73 73 | 6f 72 2d 74 61 67 73 20 |-process|or-tags |
|000017e0| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|000017f0| 74 20 64 73 73 73 6c 2d | 66 6c 6f 77 2d 70 72 6f |t dsssl-|flow-pro|
|00001800| 63 65 73 73 6f 72 2d 6e | 61 6d 65 20 63 6c 2d 63 |cessor-n|ame cl-c|
|00001810| 6f 6d 70 69 6c 65 72 2d | 6d 61 63 72 6f 20 23 5b |ompiler-|macro #[|
|00001820| 28 63 6c 2d 77 68 6f 6c | 65 20 63 6c 2d 78 29 20 |(cl-whol|e cl-x) |
|00001830| 22 c0 c1 c2 c3 89 89 0c | 26 06 87 22 20 5b 63 6c |".......|&.." [cl|
|00001840| 2d 64 65 66 73 75 62 73 | 74 2d 65 78 70 61 6e 64 |-defsubs|t-expand|
|00001850| 20 28 63 6c 2d 78 29 20 | 28 62 6c 6f 63 6b 20 64 | (cl-x) |(block d|
|00001860| 73 73 73 6c 2d 66 6c 6f | 77 2d 70 72 6f 63 65 73 |sssl-flo|w-proces|
|00001870| 73 6f 72 2d 6e 61 6d 65 | 20 28 6f 72 20 28 61 6e |sor-name| (or (an|
|00001880| 64 20 28 6d 65 6d 71 20 | 28 61 72 65 66 20 63 6c |d (memq |(aref cl|
|00001890| 2d 78 20 30 29 20 63 6c | 2d 73 74 72 75 63 74 2d |-x 0) cl|-struct-|
|000018a0| 64 73 73 73 6c 2d 66 6c | 6f 77 2d 70 72 6f 63 65 |dsssl-fl|ow-proce|
|000018b0| 73 73 6f 72 2d 74 61 67 | 73 29 29 20 28 65 72 72 |ssor-tag|s)) (err|
|000018c0| 6f 72 20 22 64 73 73 73 | 6c 2d 66 6c 6f 77 2d 70 |or "dsss|l-flow-p|
|000018d0| 72 6f 63 65 73 73 6f 72 | 2d 6e 61 6d 65 20 61 63 |rocessor|-name ac|
|000018e0| 63 65 73 73 69 6e 67 20 | 61 20 6e 6f 6e 2d 64 73 |cessing |a non-ds|
|000018f0| 73 73 6c 2d 66 6c 6f 77 | 2d 70 72 6f 63 65 73 73 |ssl-flow|-process|
|00001900| 6f 72 22 20 63 6c 2d 78 | 29 29 20 28 61 72 65 66 |or" cl-x|)) (aref|
|00001910| 20 63 6c 2d 78 20 31 29 | 29 20 6e 69 6c 20 63 6c | cl-x 1)|) nil cl|
|00001920| 2d 78 5d 20 37 5d 20 62 | 79 74 65 2d 63 6f 6d 70 |-x] 7] b|yte-comp|
|00001930| 69 6c 65 20 63 6c 2d 62 | 79 74 65 2d 63 6f 6d 70 |ile cl-b|yte-comp|
|00001940| 69 6c 65 2d 63 6f 6d 70 | 69 6c 65 72 2d 6d 61 63 |ile-comp|iler-mac|
|00001950| 72 6f 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |ro] 4).(|defalias|
|00001960| 20 27 64 73 73 73 6c 2d | 66 6c 6f 77 2d 70 72 6f | 'dsssl-|flow-pro|
|00001970| 63 65 73 73 6f 72 2d 6e | 61 6d 65 20 23 5b 28 63 |cessor-n|ame #[(c|
|00001980| 6c 2d 78 29 20 22 08 c1 | 48 5c 6e 73 ac 85 c3 c4 |l-x) "..|H\ns....|
|00001990| 08 5c 22 88 08 c5 48 87 | 22 20 5b 63 6c 2d 78 20 |.\"...H.|" [cl-x |
|000019a0| 30 20 63 6c 2d 73 74 72 | 75 63 74 2d 64 73 73 73 |0 cl-str|uct-dsss|
|000019b0| 6c 2d 66 6c 6f 77 2d 70 | 72 6f 63 65 73 73 6f 72 |l-flow-p|rocessor|
|000019c0| 2d 74 61 67 73 20 65 72 | 72 6f 72 20 22 64 73 73 |-tags er|ror "dss|
|000019d0| 73 6c 2d 66 6c 6f 77 2d | 70 72 6f 63 65 73 73 6f |sl-flow-|processo|
|000019e0| 72 2d 6e 61 6d 65 20 61 | 63 63 65 73 73 69 6e 67 |r-name a|ccessing|
|000019f0| 20 61 20 6e 6f 6e 2d 64 | 73 73 73 6c 2d 66 6c 6f | a non-d|sssl-flo|
|00001a00| 77 2d 70 72 6f 63 65 73 | 73 6f 72 22 20 31 5d 20 |w-proces|sor" 1] |
|00001a10| 33 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |3]).(byt|e-code "|
|00001a20| c0 c1 c2 c3 23 88 c0 c4 | c5 c6 23 88 c4 c7 4e ac |....#...|..#...N.|
|00001a30| 86 c0 c4 c7 c8 23 88 c0 | 87 22 20 5b 70 75 74 20 |.....#..|." [put |
|00001a40| 64 73 73 73 6c 2d 66 6c | 6f 77 2d 70 72 6f 63 65 |dsssl-fl|ow-proce|
|00001a50| 73 73 6f 72 2d 6e 61 6d | 65 20 73 65 74 66 2d 6d |ssor-nam|e setf-m|
|00001a60| 65 74 68 6f 64 20 23 5b | 28 63 6c 2d 78 29 20 22 |ethod #[|(cl-x) "|
|00001a70| c0 c1 21 87 22 20 5b 65 | 72 72 6f 72 20 22 64 73 |..!." [e|rror "ds|
|00001a80| 73 73 6c 2d 66 6c 6f 77 | 2d 70 72 6f 63 65 73 73 |ssl-flow|-process|
|00001a90| 6f 72 2d 6e 61 6d 65 20 | 69 73 20 61 20 72 65 61 |or-name |is a rea|
|00001aa0| 64 2d 6f 6e 6c 79 20 73 | 6c 6f 74 22 5d 20 32 5d |d-only s|lot"] 2]|
|00001ab0| 20 64 73 73 73 6c 2d 66 | 6c 6f 77 2d 70 72 6f 63 | dsssl-f|low-proc|
|00001ac0| 65 73 73 6f 72 2d 69 6e | 69 74 20 63 6c 2d 63 6f |essor-in|it cl-co|
|00001ad0| 6d 70 69 6c 65 72 2d 6d | 61 63 72 6f 20 23 5b 28 |mpiler-m|acro #[(|
|00001ae0| 63 6c 2d 77 68 6f 6c 65 | 20 63 6c 2d 78 29 20 22 |cl-whole| cl-x) "|
|00001af0| c0 c1 c2 c3 89 89 0c 26 | 06 87 22 20 5b 63 6c 2d |.......&|.." [cl-|
|00001b00| 64 65 66 73 75 62 73 74 | 2d 65 78 70 61 6e 64 20 |defsubst|-expand |
|00001b10| 28 63 6c 2d 78 29 20 28 | 62 6c 6f 63 6b 20 64 73 |(cl-x) (|block ds|
|00001b20| 73 73 6c 2d 66 6c 6f 77 | 2d 70 72 6f 63 65 73 73 |ssl-flow|-process|
|00001b30| 6f 72 2d 69 6e 69 74 20 | 28 6f 72 20 28 61 6e 64 |or-init |(or (and|
|00001b40| 20 28 6d 65 6d 71 20 28 | 61 72 65 66 20 63 6c 2d | (memq (|aref cl-|
|00001b50| 78 20 30 29 20 63 6c 2d | 73 74 72 75 63 74 2d 64 |x 0) cl-|struct-d|
|00001b60| 73 73 73 6c 2d 66 6c 6f | 77 2d 70 72 6f 63 65 73 |sssl-flo|w-proces|
|00001b70| 73 6f 72 2d 74 61 67 73 | 29 29 20 28 65 72 72 6f |sor-tags|)) (erro|
|00001b80| 72 20 22 64 73 73 73 6c | 2d 66 6c 6f 77 2d 70 72 |r "dsssl|-flow-pr|
|00001b90| 6f 63 65 73 73 6f 72 2d | 69 6e 69 74 20 61 63 63 |ocessor-|init acc|
|00001ba0| 65 73 73 69 6e 67 20 61 | 20 6e 6f 6e 2d 64 73 73 |essing a| non-dss|
|00001bb0| 73 6c 2d 66 6c 6f 77 2d | 70 72 6f 63 65 73 73 6f |sl-flow-|processo|
|00001bc0| 72 22 20 63 6c 2d 78 29 | 29 20 28 61 72 65 66 20 |r" cl-x)|) (aref |
|00001bd0| 63 6c 2d 78 20 32 29 29 | 20 6e 69 6c 20 63 6c 2d |cl-x 2))| nil cl-|
|00001be0| 78 5d 20 37 5d 20 62 79 | 74 65 2d 63 6f 6d 70 69 |x] 7] by|te-compi|
|00001bf0| 6c 65 20 63 6c 2d 62 79 | 74 65 2d 63 6f 6d 70 69 |le cl-by|te-compi|
|00001c00| 6c 65 2d 63 6f 6d 70 69 | 6c 65 72 2d 6d 61 63 72 |le-compi|ler-macr|
|00001c10| 6f 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |o] 4).(d|efalias |
|00001c20| 27 64 73 73 73 6c 2d 66 | 6c 6f 77 2d 70 72 6f 63 |'dsssl-f|low-proc|
|00001c30| 65 73 73 6f 72 2d 69 6e | 69 74 20 23 5b 28 63 6c |essor-in|it #[(cl|
|00001c40| 2d 78 29 20 22 08 c1 48 | 5c 6e 73 ac 85 c3 c4 08 |-x) "..H|\ns.....|
|00001c50| 5c 22 88 08 c5 48 87 22 | 20 5b 63 6c 2d 78 20 30 |\"...H."| [cl-x 0|
|00001c60| 20 63 6c 2d 73 74 72 75 | 63 74 2d 64 73 73 73 6c | cl-stru|ct-dsssl|
|00001c70| 2d 66 6c 6f 77 2d 70 72 | 6f 63 65 73 73 6f 72 2d |-flow-pr|ocessor-|
|00001c80| 74 61 67 73 20 65 72 72 | 6f 72 20 22 64 73 73 73 |tags err|or "dsss|
|00001c90| 6c 2d 66 6c 6f 77 2d 70 | 72 6f 63 65 73 73 6f 72 |l-flow-p|rocessor|
|00001ca0| 2d 69 6e 69 74 20 61 63 | 63 65 73 73 69 6e 67 20 |-init ac|cessing |
|00001cb0| 61 20 6e 6f 6e 2d 64 73 | 73 73 6c 2d 66 6c 6f 77 |a non-ds|ssl-flow|
|00001cc0| 2d 70 72 6f 63 65 73 73 | 6f 72 22 20 32 5d 20 33 |-process|or" 2] 3|
|00001cd0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00001ce0| c1 c2 c3 23 88 c0 c4 c5 | c6 23 88 c4 c7 4e ac 86 |...#....|.#...N..|
|00001cf0| c0 c4 c7 c8 23 88 c0 87 | 22 20 5b 70 75 74 20 64 |....#...|" [put d|
|00001d00| 73 73 73 6c 2d 66 6c 6f | 77 2d 70 72 6f 63 65 73 |sssl-flo|w-proces|
|00001d10| 73 6f 72 2d 69 6e 69 74 | 20 73 65 74 66 2d 6d 65 |sor-init| setf-me|
|00001d20| 74 68 6f 64 20 23 5b 28 | 63 6c 2d 78 29 20 22 c0 |thod #[(|cl-x) ".|
|00001d30| 09 c2 c3 c4 c5 25 87 22 | 20 5b 63 6c 2d 73 74 72 |.....%."| [cl-str|
|00001d40| 75 63 74 2d 73 65 74 66 | 2d 65 78 70 61 6e 64 65 |uct-setf|-expande|
|00001d50| 72 20 63 6c 2d 78 20 64 | 73 73 73 6c 2d 66 6c 6f |r cl-x d|sssl-flo|
|00001d60| 77 2d 70 72 6f 63 65 73 | 73 6f 72 20 64 73 73 73 |w-proces|sor dsss|
|00001d70| 6c 2d 66 6c 6f 77 2d 70 | 72 6f 63 65 73 73 6f 72 |l-flow-p|rocessor|
|00001d80| 2d 69 6e 69 74 20 28 61 | 6e 64 20 28 6d 65 6d 71 |-init (a|nd (memq|
|00001d90| 20 28 61 72 65 66 20 63 | 6c 2d 78 20 30 29 20 63 | (aref c|l-x 0) c|
|00001da0| 6c 2d 73 74 72 75 63 74 | 2d 64 73 73 73 6c 2d 66 |l-struct|-dsssl-f|
|00001db0| 6c 6f 77 2d 70 72 6f 63 | 65 73 73 6f 72 2d 74 61 |low-proc|essor-ta|
|00001dc0| 67 73 29 29 20 32 5d 20 | 36 5d 20 64 73 73 73 6c |gs)) 2] |6] dsssl|
|00001dd0| 2d 66 6c 6f 77 2d 70 72 | 6f 63 65 73 73 6f 72 2d |-flow-pr|ocessor-|
|00001de0| 68 61 6e 64 6c 65 72 20 | 63 6c 2d 63 6f 6d 70 69 |handler |cl-compi|
|00001df0| 6c 65 72 2d 6d 61 63 72 | 6f 20 23 5b 28 63 6c 2d |ler-macr|o #[(cl-|
|00001e00| 77 68 6f 6c 65 20 63 6c | 2d 78 29 20 22 c0 c1 c2 |whole cl|-x) "...|
|00001e10| c3 89 89 0c 26 06 87 22 | 20 5b 63 6c 2d 64 65 66 |....&.."| [cl-def|
|00001e20| 73 75 62 73 74 2d 65 78 | 70 61 6e 64 20 28 63 6c |subst-ex|pand (cl|
|00001e30| 2d 78 29 20 28 62 6c 6f | 63 6b 20 64 73 73 73 6c |-x) (blo|ck dsssl|
|00001e40| 2d 66 6c 6f 77 2d 70 72 | 6f 63 65 73 73 6f 72 2d |-flow-pr|ocessor-|
|00001e50| 68 61 6e 64 6c 65 72 20 | 28 6f 72 20 28 61 6e 64 |handler |(or (and|
|00001e60| 20 28 6d 65 6d 71 20 28 | 61 72 65 66 20 63 6c 2d | (memq (|aref cl-|
|00001e70| 78 20 30 29 20 63 6c 2d | 73 74 72 75 63 74 2d 64 |x 0) cl-|struct-d|
|00001e80| 73 73 73 6c 2d 66 6c 6f | 77 2d 70 72 6f 63 65 73 |sssl-flo|w-proces|
|00001e90| 73 6f 72 2d 74 61 67 73 | 29 29 20 28 65 72 72 6f |sor-tags|)) (erro|
|00001ea0| 72 20 22 64 73 73 73 6c | 2d 66 6c 6f 77 2d 70 72 |r "dsssl|-flow-pr|
|00001eb0| 6f 63 65 73 73 6f 72 2d | 68 61 6e 64 6c 65 72 20 |ocessor-|handler |
|00001ec0| 61 63 63 65 73 73 69 6e | 67 20 61 20 6e 6f 6e 2d |accessin|g a non-|
|00001ed0| 64 73 73 73 6c 2d 66 6c | 6f 77 2d 70 72 6f 63 65 |dsssl-fl|ow-proce|
|00001ee0| 73 73 6f 72 22 20 63 6c | 2d 78 29 29 20 28 61 72 |ssor" cl|-x)) (ar|
|00001ef0| 65 66 20 63 6c 2d 78 20 | 33 29 29 20 6e 69 6c 20 |ef cl-x |3)) nil |
|00001f00| 63 6c 2d 78 5d 20 37 5d | 20 62 79 74 65 2d 63 6f |cl-x] 7]| byte-co|
|00001f10| 6d 70 69 6c 65 20 63 6c | 2d 62 79 74 65 2d 63 6f |mpile cl|-byte-co|
|00001f20| 6d 70 69 6c 65 2d 63 6f | 6d 70 69 6c 65 72 2d 6d |mpile-co|mpiler-m|
|00001f30| 61 63 72 6f 5d 20 34 29 | 0a 28 64 65 66 61 6c 69 |acro] 4)|.(defali|
|00001f40| 61 73 20 27 64 73 73 73 | 6c 2d 66 6c 6f 77 2d 70 |as 'dsss|l-flow-p|
|00001f50| 72 6f 63 65 73 73 6f 72 | 2d 68 61 6e 64 6c 65 72 |rocessor|-handler|
|00001f60| 20 23 5b 28 63 6c 2d 78 | 29 20 22 08 c1 48 5c 6e | #[(cl-x|) "..H\n|
|00001f70| 73 ac 85 c3 c4 08 5c 22 | 88 08 c5 48 87 22 20 5b |s.....\"|...H." [|
|00001f80| 63 6c 2d 78 20 30 20 63 | 6c 2d 73 74 72 75 63 74 |cl-x 0 c|l-struct|
|00001f90| 2d 64 73 73 73 6c 2d 66 | 6c 6f 77 2d 70 72 6f 63 |-dsssl-f|low-proc|
|00001fa0| 65 73 73 6f 72 2d 74 61 | 67 73 20 65 72 72 6f 72 |essor-ta|gs error|
|00001fb0| 20 22 64 73 73 73 6c 2d | 66 6c 6f 77 2d 70 72 6f | "dsssl-|flow-pro|
|00001fc0| 63 65 73 73 6f 72 2d 68 | 61 6e 64 6c 65 72 20 61 |cessor-h|andler a|
|00001fd0| 63 63 65 73 73 69 6e 67 | 20 61 20 6e 6f 6e 2d 64 |ccessing| a non-d|
|00001fe0| 73 73 73 6c 2d 66 6c 6f | 77 2d 70 72 6f 63 65 73 |sssl-flo|w-proces|
|00001ff0| 73 6f 72 22 20 33 5d 20 | 33 5d 29 0a 28 62 79 74 |sor" 3] |3]).(byt|
|00002000| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 c3 23 88 c0 c4 |e-code "|....#...|
|00002010| c5 c6 23 88 c4 c7 4e ac | 86 c0 c4 c7 c8 23 88 c0 |..#...N.|.....#..|
|00002020| 87 22 20 5b 70 75 74 20 | 64 73 73 73 6c 2d 66 6c |." [put |dsssl-fl|
|00002030| 6f 77 2d 70 72 6f 63 65 | 73 73 6f 72 2d 68 61 6e |ow-proce|ssor-han|
|00002040| 64 6c 65 72 20 73 65 74 | 66 2d 6d 65 74 68 6f 64 |dler set|f-method|
|00002050| 20 23 5b 28 63 6c 2d 78 | 29 20 22 c0 09 c2 c3 c4 | #[(cl-x|) ".....|
|00002060| c5 25 87 22 20 5b 63 6c | 2d 73 74 72 75 63 74 2d |.%." [cl|-struct-|
|00002070| 73 65 74 66 2d 65 78 70 | 61 6e 64 65 72 20 63 6c |setf-exp|ander cl|
|00002080| 2d 78 20 64 73 73 73 6c | 2d 66 6c 6f 77 2d 70 72 |-x dsssl|-flow-pr|
|00002090| 6f 63 65 73 73 6f 72 20 | 64 73 73 73 6c 2d 66 6c |ocessor |dsssl-fl|
|000020a0| 6f 77 2d 70 72 6f 63 65 | 73 73 6f 72 2d 68 61 6e |ow-proce|ssor-han|
|000020b0| 64 6c 65 72 20 28 61 6e | 64 20 28 6d 65 6d 71 20 |dler (an|d (memq |
|000020c0| 28 61 72 65 66 20 63 6c | 2d 78 20 30 29 20 63 6c |(aref cl|-x 0) cl|
|000020d0| 2d 73 74 72 75 63 74 2d | 64 73 73 73 6c 2d 66 6c |-struct-|dsssl-fl|
|000020e0| 6f 77 2d 70 72 6f 63 65 | 73 73 6f 72 2d 74 61 67 |ow-proce|ssor-tag|
|000020f0| 73 29 29 20 33 5d 20 36 | 5d 20 64 73 73 73 6c 2d |s)) 3] 6|] dsssl-|
|00002100| 66 6c 6f 77 2d 70 72 6f | 63 65 73 73 6f 72 2d 73 |flow-pro|cessor-s|
|00002110| 69 7a 65 6f 66 20 63 6c | 2d 63 6f 6d 70 69 6c 65 |izeof cl|-compile|
|00002120| 72 2d 6d 61 63 72 6f 20 | 23 5b 28 63 6c 2d 77 68 |r-macro |#[(cl-wh|
|00002130| 6f 6c 65 20 63 6c 2d 78 | 29 20 22 c0 c1 c2 c3 89 |ole cl-x|) ".....|
|00002140| 89 0c 26 06 87 22 20 5b | 63 6c 2d 64 65 66 73 75 |..&.." [|cl-defsu|
|00002150| 62 73 74 2d 65 78 70 61 | 6e 64 20 28 63 6c 2d 78 |bst-expa|nd (cl-x|
|00002160| 29 20 28 62 6c 6f 63 6b | 20 64 73 73 73 6c 2d 66 |) (block| dsssl-f|
|00002170| 6c 6f 77 2d 70 72 6f 63 | 65 73 73 6f 72 2d 73 69 |low-proc|essor-si|
|00002180| 7a 65 6f 66 20 28 6f 72 | 20 28 61 6e 64 20 28 6d |zeof (or| (and (m|
|00002190| 65 6d 71 20 28 61 72 65 | 66 20 63 6c 2d 78 20 30 |emq (are|f cl-x 0|
|000021a0| 29 20 63 6c 2d 73 74 72 | 75 63 74 2d 64 73 73 73 |) cl-str|uct-dsss|
|000021b0| 6c 2d 66 6c 6f 77 2d 70 | 72 6f 63 65 73 73 6f 72 |l-flow-p|rocessor|
|000021c0| 2d 74 61 67 73 29 29 20 | 28 65 72 72 6f 72 20 22 |-tags)) |(error "|
|000021d0| 64 73 73 73 6c 2d 66 6c | 6f 77 2d 70 72 6f 63 65 |dsssl-fl|ow-proce|
|000021e0| 73 73 6f 72 2d 73 69 7a | 65 6f 66 20 61 63 63 65 |ssor-siz|eof acce|
|000021f0| 73 73 69 6e 67 20 61 20 | 6e 6f 6e 2d 64 73 73 73 |ssing a |non-dsss|
|00002200| 6c 2d 66 6c 6f 77 2d 70 | 72 6f 63 65 73 73 6f 72 |l-flow-p|rocessor|
|00002210| 22 20 63 6c 2d 78 29 29 | 20 28 61 72 65 66 20 63 |" cl-x))| (aref c|
|00002220| 6c 2d 78 20 34 29 29 20 | 6e 69 6c 20 63 6c 2d 78 |l-x 4)) |nil cl-x|
|00002230| 5d 20 37 5d 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |] 7] byt|e-compil|
|00002240| 65 20 63 6c 2d 62 79 74 | 65 2d 63 6f 6d 70 69 6c |e cl-byt|e-compil|
|00002250| 65 2d 63 6f 6d 70 69 6c | 65 72 2d 6d 61 63 72 6f |e-compil|er-macro|
|00002260| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00002270| 64 73 73 73 6c 2d 66 6c | 6f 77 2d 70 72 6f 63 65 |dsssl-fl|ow-proce|
|00002280| 73 73 6f 72 2d 73 69 7a | 65 6f 66 20 23 5b 28 63 |ssor-siz|eof #[(c|
|00002290| 6c 2d 78 29 20 22 08 c1 | 48 5c 6e 73 ac 85 c3 c4 |l-x) "..|H\ns....|
|000022a0| 08 5c 22 88 08 c5 48 87 | 22 20 5b 63 6c 2d 78 20 |.\"...H.|" [cl-x |
|000022b0| 30 20 63 6c 2d 73 74 72 | 75 63 74 2d 64 73 73 73 |0 cl-str|uct-dsss|
|000022c0| 6c 2d 66 6c 6f 77 2d 70 | 72 6f 63 65 73 73 6f 72 |l-flow-p|rocessor|
|000022d0| 2d 74 61 67 73 20 65 72 | 72 6f 72 20 22 64 73 73 |-tags er|ror "dss|
|000022e0| 73 6c 2d 66 6c 6f 77 2d | 70 72 6f 63 65 73 73 6f |sl-flow-|processo|
|000022f0| 72 2d 73 69 7a 65 6f 66 | 20 61 63 63 65 73 73 69 |r-sizeof| accessi|
|00002300| 6e 67 20 61 20 6e 6f 6e | 2d 64 73 73 73 6c 2d 66 |ng a non|-dsssl-f|
|00002310| 6c 6f 77 2d 70 72 6f 63 | 65 73 73 6f 72 22 20 34 |low-proc|essor" 4|
|00002320| 5d 20 33 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 3]).(b|yte-code|
|00002330| 20 22 c0 c1 c2 c3 23 88 | c0 c4 c5 c6 23 88 c4 c7 | "....#.|....#...|
|00002340| 4e ac 86 c0 c4 c7 c8 23 | 88 c0 87 22 20 5b 70 75 |N......#|..." [pu|
|00002350| 74 20 64 73 73 73 6c 2d | 66 6c 6f 77 2d 70 72 6f |t dsssl-|flow-pro|
|00002360| 63 65 73 73 6f 72 2d 73 | 69 7a 65 6f 66 20 73 65 |cessor-s|izeof se|
|00002370| 74 66 2d 6d 65 74 68 6f | 64 20 23 5b 28 63 6c 2d |tf-metho|d #[(cl-|
|00002380| 78 29 20 22 c0 09 c2 c3 | c4 c5 25 87 22 20 5b 63 |x) "....|..%." [c|
|00002390| 6c 2d 73 74 72 75 63 74 | 2d 73 65 74 66 2d 65 78 |l-struct|-setf-ex|
|000023a0| 70 61 6e 64 65 72 20 63 | 6c 2d 78 20 64 73 73 73 |pander c|l-x dsss|
|000023b0| 6c 2d 66 6c 6f 77 2d 70 | 72 6f 63 65 73 73 6f 72 |l-flow-p|rocessor|
|000023c0| 20 64 73 73 73 6c 2d 66 | 6c 6f 77 2d 70 72 6f 63 | dsssl-f|low-proc|
|000023d0| 65 73 73 6f 72 2d 73 69 | 7a 65 6f 66 20 28 61 6e |essor-si|zeof (an|
|000023e0| 64 20 28 6d 65 6d 71 20 | 28 61 72 65 66 20 63 6c |d (memq |(aref cl|
|000023f0| 2d 78 20 30 29 20 63 6c | 2d 73 74 72 75 63 74 2d |-x 0) cl|-struct-|
|00002400| 64 73 73 73 6c 2d 66 6c | 6f 77 2d 70 72 6f 63 65 |dsssl-fl|ow-proce|
|00002410| 73 73 6f 72 2d 74 61 67 | 73 29 29 20 34 5d 20 36 |ssor-tag|s)) 4] 6|
|00002420| 5d 20 64 73 73 73 6c 2d | 66 6c 6f 77 2d 70 72 6f |] dsssl-|flow-pro|
|00002430| 63 65 73 73 6f 72 2d 63 | 6c 65 61 6e 20 63 6c 2d |cessor-c|lean cl-|
|00002440| 63 6f 6d 70 69 6c 65 72 | 2d 6d 61 63 72 6f 20 23 |compiler|-macro #|
|00002450| 5b 28 63 6c 2d 77 68 6f | 6c 65 20 63 6c 2d 78 29 |[(cl-who|le cl-x)|
|00002460| 20 22 c0 c1 c2 c3 89 89 | 0c 26 06 87 22 20 5b 63 | "......|.&.." [c|
|00002470| 6c 2d 64 65 66 73 75 62 | 73 74 2d 65 78 70 61 6e |l-defsub|st-expan|
|00002480| 64 20 28 63 6c 2d 78 29 | 20 28 62 6c 6f 63 6b 20 |d (cl-x)| (block |
|00002490| 64 73 73 73 6c 2d 66 6c | 6f 77 2d 70 72 6f 63 65 |dsssl-fl|ow-proce|
|000024a0| 73 73 6f 72 2d 63 6c 65 | 61 6e 20 28 6f 72 20 28 |ssor-cle|an (or (|
|000024b0| 61 6e 64 20 28 6d 65 6d | 71 20 28 61 72 65 66 20 |and (mem|q (aref |
|000024c0| 63 6c 2d 78 20 30 29 20 | 63 6c 2d 73 74 72 75 63 |cl-x 0) |cl-struc|
|000024d0| 74 2d 64 73 73 73 6c 2d | 66 6c 6f 77 2d 70 72 6f |t-dsssl-|flow-pro|
|000024e0| 63 65 73 73 6f 72 2d 74 | 61 67 73 29 29 20 28 65 |cessor-t|ags)) (e|
|000024f0| 72 72 6f 72 20 22 64 73 | 73 73 6c 2d 66 6c 6f 77 |rror "ds|ssl-flow|
|00002500| 2d 70 72 6f 63 65 73 73 | 6f 72 2d 63 6c 65 61 6e |-process|or-clean|
|00002510| 20 61 63 63 65 73 73 69 | 6e 67 20 61 20 6e 6f 6e | accessi|ng a non|
|00002520| 2d 64 73 73 73 6c 2d 66 | 6c 6f 77 2d 70 72 6f 63 |-dsssl-f|low-proc|
|00002530| 65 73 73 6f 72 22 20 63 | 6c 2d 78 29 29 20 28 61 |essor" c|l-x)) (a|
|00002540| 72 65 66 20 63 6c 2d 78 | 20 35 29 29 20 6e 69 6c |ref cl-x| 5)) nil|
|00002550| 20 63 6c 2d 78 5d 20 37 | 5d 20 62 79 74 65 2d 63 | cl-x] 7|] byte-c|
|00002560| 6f 6d 70 69 6c 65 20 63 | 6c 2d 62 79 74 65 2d 63 |ompile c|l-byte-c|
|00002570| 6f 6d 70 69 6c 65 2d 63 | 6f 6d 70 69 6c 65 72 2d |ompile-c|ompiler-|
|00002580| 6d 61 63 72 6f 5d 20 34 | 29 0a 28 64 65 66 61 6c |macro] 4|).(defal|
|00002590| 69 61 73 20 27 64 73 73 | 73 6c 2d 66 6c 6f 77 2d |ias 'dss|sl-flow-|
|000025a0| 70 72 6f 63 65 73 73 6f | 72 2d 63 6c 65 61 6e 20 |processo|r-clean |
|000025b0| 23 5b 28 63 6c 2d 78 29 | 20 22 08 c1 48 5c 6e 73 |#[(cl-x)| "..H\ns|
|000025c0| ac 85 c3 c4 08 5c 22 88 | 08 c5 48 87 22 20 5b 63 |.....\".|..H." [c|
|000025d0| 6c 2d 78 20 30 20 63 6c | 2d 73 74 72 75 63 74 2d |l-x 0 cl|-struct-|
|000025e0| 64 73 73 73 6c 2d 66 6c | 6f 77 2d 70 72 6f 63 65 |dsssl-fl|ow-proce|
|000025f0| 73 73 6f 72 2d 74 61 67 | 73 20 65 72 72 6f 72 20 |ssor-tag|s error |
|00002600| 22 64 73 73 73 6c 2d 66 | 6c 6f 77 2d 70 72 6f 63 |"dsssl-f|low-proc|
|00002610| 65 73 73 6f 72 2d 63 6c | 65 61 6e 20 61 63 63 65 |essor-cl|ean acce|
|00002620| 73 73 69 6e 67 20 61 20 | 6e 6f 6e 2d 64 73 73 73 |ssing a |non-dsss|
|00002630| 6c 2d 66 6c 6f 77 2d 70 | 72 6f 63 65 73 73 6f 72 |l-flow-p|rocessor|
|00002640| 22 20 35 5d 20 33 5d 29 | 0a 28 62 79 74 65 2d 63 |" 5] 3])|.(byte-c|
|00002650| 6f 64 65 20 22 c0 c1 c2 | c3 23 88 c0 c4 c5 c6 23 |ode "...|.#.....#|
|00002660| 88 c4 c7 4e ac 86 c0 c4 | c7 c8 23 88 c0 87 22 20 |...N....|..#..." |
|00002670| 5b 70 75 74 20 64 73 73 | 73 6c 2d 66 6c 6f 77 2d |[put dss|sl-flow-|
|00002680| 70 72 6f 63 65 73 73 6f | 72 2d 63 6c 65 61 6e 20 |processo|r-clean |
|00002690| 73 65 74 66 2d 6d 65 74 | 68 6f 64 20 23 5b 28 63 |setf-met|hod #[(c|
|000026a0| 6c 2d 78 29 20 22 c0 09 | c2 c3 c4 c5 25 87 22 20 |l-x) "..|....%." |
|000026b0| 5b 63 6c 2d 73 74 72 75 | 63 74 2d 73 65 74 66 2d |[cl-stru|ct-setf-|
|000026c0| 65 78 70 61 6e 64 65 72 | 20 63 6c 2d 78 20 64 73 |expander| cl-x ds|
|000026d0| 73 73 6c 2d 66 6c 6f 77 | 2d 70 72 6f 63 65 73 73 |ssl-flow|-process|
|000026e0| 6f 72 20 64 73 73 73 6c | 2d 66 6c 6f 77 2d 70 72 |or dsssl|-flow-pr|
|000026f0| 6f 63 65 73 73 6f 72 2d | 63 6c 65 61 6e 20 28 61 |ocessor-|clean (a|
|00002700| 6e 64 20 28 6d 65 6d 71 | 20 28 61 72 65 66 20 63 |nd (memq| (aref c|
|00002710| 6c 2d 78 20 30 29 20 63 | 6c 2d 73 74 72 75 63 74 |l-x 0) c|l-struct|
|00002720| 2d 64 73 73 73 6c 2d 66 | 6c 6f 77 2d 70 72 6f 63 |-dsssl-f|low-proc|
|00002730| 65 73 73 6f 72 2d 74 61 | 67 73 29 29 20 35 5d 20 |essor-ta|gs)) 5] |
|00002740| 36 5d 20 64 73 73 73 6c | 2d 66 6c 6f 77 2d 70 72 |6] dsssl|-flow-pr|
|00002750| 6f 63 65 73 73 6f 72 2d | 70 20 63 6c 2d 63 6f 6d |ocessor-|p cl-com|
|00002760| 70 69 6c 65 72 2d 6d 61 | 63 72 6f 20 23 5b 28 63 |piler-ma|cro #[(c|
|00002770| 6c 2d 77 68 6f 6c 65 20 | 63 6c 2d 78 29 20 22 c0 |l-whole |cl-x) ".|
|00002780| c1 c2 c3 89 89 0c 26 06 | 87 22 20 5b 63 6c 2d 64 |......&.|." [cl-d|
|00002790| 65 66 73 75 62 73 74 2d | 65 78 70 61 6e 64 20 28 |efsubst-|expand (|
|000027a0| 63 6c 2d 78 29 20 28 62 | 6c 6f 63 6b 20 64 73 73 |cl-x) (b|lock dss|
|000027b0| 73 6c 2d 66 6c 6f 77 2d | 70 72 6f 63 65 73 73 6f |sl-flow-|processo|
|000027c0| 72 2d 70 20 28 61 6e 64 | 20 28 76 65 63 74 6f 72 |r-p (and| (vector|
|000027d0| 70 20 63 6c 2d 78 29 20 | 28 3e 3d 20 28 6c 65 6e |p cl-x) |(>= (len|
|000027e0| 67 74 68 20 63 6c 2d 78 | 29 20 36 29 20 28 6d 65 |gth cl-x|) 6) (me|
|000027f0| 6d 71 20 28 61 72 65 66 | 20 63 6c 2d 78 20 30 29 |mq (aref| cl-x 0)|
|00002800| 20 63 6c 2d 73 74 72 75 | 63 74 2d 64 73 73 73 6c | cl-stru|ct-dsssl|
|00002810| 2d 66 6c 6f 77 2d 70 72 | 6f 63 65 73 73 6f 72 2d |-flow-pr|ocessor-|
|00002820| 74 61 67 73 29 20 74 29 | 29 20 6e 69 6c 20 63 6c |tags) t)|) nil cl|
|00002830| 2d 78 5d 20 37 5d 20 62 | 79 74 65 2d 63 6f 6d 70 |-x] 7] b|yte-comp|
|00002840| 69 6c 65 20 63 6c 2d 62 | 79 74 65 2d 63 6f 6d 70 |ile cl-b|yte-comp|
|00002850| 69 6c 65 2d 63 6f 6d 70 | 69 6c 65 72 2d 6d 61 63 |ile-comp|iler-mac|
|00002860| 72 6f 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |ro] 4).(|defalias|
|00002870| 20 27 64 73 73 73 6c 2d | 66 6c 6f 77 2d 70 72 6f | 'dsssl-|flow-pro|
|00002880| 63 65 73 73 6f 72 2d 70 | 20 23 5b 28 63 6c 2d 78 |cessor-p| #[(cl-x|
|00002890| 29 20 22 c0 09 21 ad 8e | 09 47 c2 59 ad 88 09 c3 |) "..!..|.G.Y....|
|000028a0| 48 0c 73 ad 81 c5 87 22 | 20 5b 76 65 63 74 6f 72 |H.s...."| [vector|
|000028b0| 70 20 63 6c 2d 78 20 36 | 20 30 20 63 6c 2d 73 74 |p cl-x 6| 0 cl-st|
|000028c0| 72 75 63 74 2d 64 73 73 | 73 6c 2d 66 6c 6f 77 2d |ruct-dss|sl-flow-|
|000028d0| 70 72 6f 63 65 73 73 6f | 72 2d 74 61 67 73 20 74 |processo|r-tags t|
|000028e0| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|000028f0| 27 63 6f 70 79 2d 64 73 | 73 73 6c 2d 66 6c 6f 77 |'copy-ds|ssl-flow|
|00002900| 2d 70 72 6f 63 65 73 73 | 6f 72 20 23 5b 28 78 29 |-process|or #[(x)|
|00002910| 20 22 c0 09 21 87 22 20 | 5b 63 6f 70 79 2d 73 65 | "..!." |[copy-se|
|00002920| 71 75 65 6e 63 65 20 78 | 5d 20 32 5d 29 0a 28 62 |quence x|] 2]).(b|
|00002930| 79 74 65 2d 63 6f 64 65 | 20 22 c0 10 c1 11 c2 12 |yte-code| "......|
|00002940| c3 13 c4 14 c5 c6 c7 c8 | 23 88 c6 c9 4e ac 86 c5 |........|#...N...|
|00002950| c6 c9 ca 23 88 c0 10 c1 | 11 c2 12 c3 13 c4 14 c0 |...#....|........|
|00002960| 87 22 20 5b 3a 6e 61 6d | 65 20 3a 69 6e 69 74 20 |." [:nam|e :init |
|00002970| 3a 68 61 6e 64 6c 65 72 | 20 3a 73 69 7a 65 6f 66 |:handler| :sizeof|
|00002980| 20 3a 63 6c 65 61 6e 20 | 70 75 74 20 6d 61 6b 65 | :clean |put make|
|00002990| 2d 64 73 73 73 6c 2d 66 | 6c 6f 77 2d 70 72 6f 63 |-dsssl-f|low-proc|
|000029a0| 65 73 73 6f 72 20 63 6c | 2d 63 6f 6d 70 69 6c 65 |essor cl|-compile|
|000029b0| 72 2d 6d 61 63 72 6f 20 | 23 5b 28 63 6c 2d 77 68 |r-macro |#[(cl-wh|
|000029c0| 6f 6c 65 20 26 72 65 73 | 74 20 2d 2d 72 65 73 74 |ole &res|t --rest|
|000029d0| 2d 2d 38 37 37 30 34 29 | 20 22 c0 09 73 ae 81 c2 |--87704)| "..s...|
|000029e0| 41 40 1b c4 09 73 41 40 | 1d c6 09 73 41 40 1e 07 |A@...sA@|...sA@..|
|000029f0| c8 09 73 41 40 1e 09 ca | 09 73 41 40 1e 0b 09 1e |..sA@...|.sA@....|
|00002a00| 0c 0e 0c ab a6 0e 0c 40 | cd 73 ab 89 0e 0c 41 41 |.......@|.s....AA|
|00002a10| 89 16 0c aa 6e ce 09 73 | 41 40 ab 86 cf 89 16 0c |....n..s|A@......|
|00002a20| aa 61 d0 d1 0e 0c 40 5c | 22 88 aa 56 29 d2 d3 d4 |.a....@\|"..V)...|
|00002a30| d5 0e 16 cf 0b 0d 0e 07 | 0e 09 0e 0b 26 5c 6e 2d |........|....&\n-|
|00002a40| 87 22 20 5b 3a 6e 61 6d | 65 20 2d 2d 72 65 73 74 |." [:nam|e --rest|
|00002a50| 2d 2d 38 37 37 30 34 20 | 28 6e 69 6c 20 27 75 6e |--87704 |(nil 'un|
|00002a60| 6b 6e 6f 77 6e 29 20 6e | 61 6d 65 20 3a 69 6e 69 |known) n|ame :ini|
|00002a70| 74 20 69 6e 69 74 20 3a | 68 61 6e 64 6c 65 72 20 |t init :|handler |
|00002a80| 68 61 6e 64 6c 65 72 20 | 3a 73 69 7a 65 6f 66 20 |handler |:sizeof |
|00002a90| 73 69 7a 65 6f 66 20 3a | 63 6c 65 61 6e 20 63 6c |sizeof :|clean cl|
|00002aa0| 65 61 6e 20 2d 2d 6b 65 | 79 73 2d 2d 38 37 37 30 |ean --ke|ys--8770|
|00002ab0| 35 20 28 3a 6e 61 6d 65 | 20 3a 69 6e 69 74 20 3a |5 (:name| :init :|
|00002ac0| 68 61 6e 64 6c 65 72 20 | 3a 73 69 7a 65 6f 66 20 |handler |:sizeof |
|00002ad0| 3a 63 6c 65 61 6e 20 3a | 61 6c 6c 6f 77 2d 6f 74 |:clean :|allow-ot|
|00002ae0| 68 65 72 2d 6b 65 79 73 | 29 20 3a 61 6c 6c 6f 77 |her-keys|) :allow|
|00002af0| 2d 6f 74 68 65 72 2d 6b | 65 79 73 20 6e 69 6c 20 |-other-k|eys nil |
|00002b00| 65 72 72 6f 72 20 22 4b | 65 79 77 6f 72 64 20 61 |error "K|eyword a|
|00002b10| 72 67 75 6d 65 6e 74 20 | 25 73 20 6e 6f 74 20 6f |rgument |%s not o|
|00002b20| 6e 65 20 6f 66 20 28 3a | 6e 61 6d 65 20 3a 69 6e |ne of (:|name :in|
|00002b30| 69 74 20 3a 68 61 6e 64 | 6c 65 72 20 3a 73 69 7a |it :hand|ler :siz|
|00002b40| 65 6f 66 20 3a 63 6c 65 | 61 6e 29 22 20 63 6c 2d |eof :cle|an)" cl-|
|00002b50| 64 65 66 73 75 62 73 74 | 2d 65 78 70 61 6e 64 20 |defsubst|-expand |
|00002b60| 28 6e 61 6d 65 20 69 6e | 69 74 20 68 61 6e 64 6c |(name in|it handl|
|00002b70| 65 72 20 73 69 7a 65 6f | 66 20 63 6c 65 61 6e 29 |er sizeo|f clean)|
|00002b80| 20 28 62 6c 6f 63 6b 20 | 6d 61 6b 65 2d 64 73 73 | (block |make-dss|
|00002b90| 73 6c 2d 66 6c 6f 77 2d | 70 72 6f 63 65 73 73 6f |sl-flow-|processo|
|00002ba0| 72 20 28 76 65 63 74 6f | 72 20 27 63 6c 2d 73 74 |r (vecto|r 'cl-st|
|00002bb0| 72 75 63 74 2d 64 73 73 | 73 6c 2d 66 6c 6f 77 2d |ruct-dss|sl-flow-|
|00002bc0| 70 72 6f 63 65 73 73 6f | 72 20 6e 61 6d 65 20 69 |processo|r name i|
|00002bd0| 6e 69 74 20 68 61 6e 64 | 6c 65 72 20 73 69 7a 65 |nit hand|ler size|
|00002be0| 6f 66 20 63 6c 65 61 6e | 29 29 20 74 20 63 6c 2d |of clean|)) t cl-|
|00002bf0| 77 68 6f 6c 65 5d 20 31 | 32 5d 20 62 79 74 65 2d |whole] 1|2] byte-|
|00002c00| 63 6f 6d 70 69 6c 65 20 | 63 6c 2d 62 79 74 65 2d |compile |cl-byte-|
|00002c10| 63 6f 6d 70 69 6c 65 2d | 63 6f 6d 70 69 6c 65 72 |compile-|compiler|
|00002c20| 2d 6d 61 63 72 6f 5d 20 | 34 29 0a 28 64 65 66 61 |-macro] |4).(defa|
|00002c30| 6c 69 61 73 20 27 6d 61 | 6b 65 2d 64 73 73 73 6c |lias 'ma|ke-dsssl|
|00002c40| 2d 66 6c 6f 77 2d 70 72 | 6f 63 65 73 73 6f 72 20 |-flow-pr|ocessor |
|00002c50| 23 5b 28 26 72 65 73 74 | 20 2d 2d 72 65 73 74 2d |#[(&rest| --rest-|
|00002c60| 2d 38 37 37 30 36 29 20 | 22 c0 09 73 ae 81 c2 41 |-87706) |"..s...A|
|00002c70| 40 1b c4 09 73 41 40 1d | c6 09 73 41 40 1e 07 c8 |@...sA@.|..sA@...|
|00002c80| 09 73 41 40 1e 09 ca 09 | 73 41 40 1e 0b 09 1e 0c |.sA@....|sA@.....|
|00002c90| 0e 0c ab a6 0e 0c 40 cd | 73 ab 89 0e 0c 41 41 89 |......@.|s....AA.|
|00002ca0| 16 0c aa 6e ce 09 73 41 | 40 ab 86 cf 89 16 0c aa |...n..sA|@.......|
|00002cb0| 61 d0 d1 0e 0c 40 5c 22 | 88 aa 56 29 d2 d3 0b 0d |a....@\"|..V)....|
|00002cc0| 0e 07 0e 09 0e 0b 26 06 | 2d 87 22 20 5b 3a 6e 61 |......&.|-." [:na|
|00002cd0| 6d 65 20 2d 2d 72 65 73 | 74 2d 2d 38 37 37 30 36 |me --res|t--87706|
|00002ce0| 20 28 6e 69 6c 20 75 6e | 6b 6e 6f 77 6e 29 20 6e | (nil un|known) n|
|00002cf0| 61 6d 65 20 3a 69 6e 69 | 74 20 69 6e 69 74 20 3a |ame :ini|t init :|
|00002d00| 68 61 6e 64 6c 65 72 20 | 68 61 6e 64 6c 65 72 20 |handler |handler |
|00002d10| 3a 73 69 7a 65 6f 66 20 | 73 69 7a 65 6f 66 20 3a |:sizeof |sizeof :|
|00002d20| 63 6c 65 61 6e 20 63 6c | 65 61 6e 20 2d 2d 6b 65 |clean cl|ean --ke|
|00002d30| 79 73 2d 2d 38 37 37 30 | 37 20 28 3a 6e 61 6d 65 |ys--8770|7 (:name|
|00002d40| 20 3a 69 6e 69 74 20 3a | 68 61 6e 64 6c 65 72 20 | :init :|handler |
|00002d50| 3a 73 69 7a 65 6f 66 20 | 3a 63 6c 65 61 6e 20 3a |:sizeof |:clean :|
|00002d60| 61 6c 6c 6f 77 2d 6f 74 | 68 65 72 2d 6b 65 79 73 |allow-ot|her-keys|
|00002d70| 29 20 3a 61 6c 6c 6f 77 | 2d 6f 74 68 65 72 2d 6b |) :allow|-other-k|
|00002d80| 65 79 73 20 6e 69 6c 20 | 65 72 72 6f 72 20 22 4b |eys nil |error "K|
|00002d90| 65 79 77 6f 72 64 20 61 | 72 67 75 6d 65 6e 74 20 |eyword a|rgument |
|00002da0| 25 73 20 6e 6f 74 20 6f | 6e 65 20 6f 66 20 28 3a |%s not o|ne of (:|
|00002db0| 6e 61 6d 65 20 3a 69 6e | 69 74 20 3a 68 61 6e 64 |name :in|it :hand|
|00002dc0| 6c 65 72 20 3a 73 69 7a | 65 6f 66 20 3a 63 6c 65 |ler :siz|eof :cle|
|00002dd0| 61 6e 29 22 20 76 65 63 | 74 6f 72 20 63 6c 2d 73 |an)" vec|tor cl-s|
|00002de0| 74 72 75 63 74 2d 64 73 | 73 73 6c 2d 66 6c 6f 77 |truct-ds|ssl-flow|
|00002df0| 2d 70 72 6f 63 65 73 73 | 6f 72 5d 20 38 5d 29 0a |-process|or] 8]).|
|00002e00| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 42 11 |(byte-co|de "..B.|
|00002e10| c2 43 13 c4 c5 c6 c7 23 | 88 c4 c5 c8 c9 23 88 c4 |.C.....#|.....#..|
|00002e20| c5 ca cb 23 88 c4 c5 cc | cd 23 88 c4 ce cf cd 23 |...#....|.#.....#|
|00002e30| 88 c4 d0 cf cd 23 88 c4 | d1 cf d2 23 88 c4 d3 cf |.....#..|...#....|
|00002e40| cd 23 88 c4 d4 cf cd 23 | 88 c4 d5 cf cd 23 88 c4 |.#.....#|.....#..|
|00002e50| d6 cf cd 23 88 c4 d7 cf | cd 23 88 d8 d9 21 ac 83 |...#....|.#...!..|
|00002e60| cb 16 19 d9 0e 1a 42 16 | 1a d8 db 21 ac 83 cb 16 |......B.|...!....|
|00002e70| 1b db 0e 1a 42 16 1a dc | d9 21 88 dc db 21 87 22 |....B...|.!...!."|
|00002e80| 20 5b 23 5b 28 63 6c 2d | 78 20 63 6c 2d 73 20 63 | [#[(cl-|x cl-s c|
|00002e90| 6c 2d 6e 29 20 22 c0 09 | 21 85 a4 00 09 47 c2 59 |l-n) "..|!....G.Y|
|00002ea0| 85 a4 00 09 c3 48 0c 73 | 85 a4 00 c5 c6 0e 07 5c |.....H.s|.......\|
|00002eb0| 22 88 c5 c8 0e 07 5c 22 | 88 c9 09 c3 48 0c 73 ac |".....\"|....H.s.|
|00002ec0| 85 ca cb 09 5c 22 88 09 | cc 48 0e 07 5c 22 88 c5 |....\"..|.H..\"..|
|00002ed0| cd 0e 07 5c 22 88 c9 09 | c3 48 0c 73 ac 85 ca ce |...\"...|.H.s....|
|00002ee0| 09 5c 22 88 09 cf 48 0e | 07 5c 22 88 c5 d0 0e 07 |.\"...H.|.\".....|
|00002ef0| 5c 22 88 c9 09 c3 48 0c | 73 ac 85 ca d1 09 5c 22 |\"....H.|s.....\"|
|00002f00| 88 09 d2 48 0e 07 5c 22 | 88 c5 d3 0e 07 5c 22 88 |...H..\"|.....\".|
|00002f10| c9 09 c3 48 0c 73 ac 85 | ca d4 09 5c 22 88 09 d5 |...H.s..|...\"...|
|00002f20| 48 0e 07 5c 22 88 c5 d6 | 0e 07 5c 22 88 c9 09 c3 |H..\"...|..\"....|
|00002f30| 48 0c 73 ac 85 ca d7 09 | 5c 22 88 09 d8 48 0e 07 |H.s.....|\"...H..|
|00002f40| 5c 22 88 c5 d9 0e 07 5c | 22 88 da 87 22 20 5b 76 |\".....\|"..." [v|
|00002f50| 65 63 74 6f 72 70 20 63 | 6c 2d 78 20 36 20 30 20 |ectorp c|l-x 6 0 |
|00002f60| 63 6c 2d 73 74 72 75 63 | 74 2d 64 73 73 73 6c 2d |cl-struc|t-dsssl-|
|00002f70| 66 6c 6f 77 2d 70 72 6f | 63 65 73 73 6f 72 2d 74 |flow-pro|cessor-t|
|00002f80| 61 67 73 20 70 72 69 6e | 63 20 22 23 53 28 64 73 |ags prin|c "#S(ds|
|00002f90| 73 73 6c 2d 66 6c 6f 77 | 2d 70 72 6f 63 65 73 73 |ssl-flow|-process|
|00002fa0| 6f 72 22 20 63 6c 2d 73 | 20 22 20 6e 61 6d 65 22 |or" cl-s| " name"|
|00002fb0| 20 70 72 69 6e 31 20 65 | 72 72 6f 72 20 22 64 73 | prin1 e|rror "ds|
|00002fc0| 73 73 6c 2d 66 6c 6f 77 | 2d 70 72 6f 63 65 73 73 |ssl-flow|-process|
|00002fd0| 6f 72 2d 6e 61 6d 65 20 | 61 63 63 65 73 73 69 6e |or-name |accessin|
|00002fe0| 67 20 61 20 6e 6f 6e 2d | 64 73 73 73 6c 2d 66 6c |g a non-|dsssl-fl|
|00002ff0| 6f 77 2d 70 72 6f 63 65 | 73 73 6f 72 22 20 31 20 |ow-proce|ssor" 1 |
|00003000| 22 20 69 6e 69 74 22 20 | 22 64 73 73 73 6c 2d 66 |" init" |"dsssl-f|
|00003010| 6c 6f 77 2d 70 72 6f 63 | 65 73 73 6f 72 2d 69 6e |low-proc|essor-in|
|00003020| 69 74 20 61 63 63 65 73 | 73 69 6e 67 20 61 20 6e |it acces|sing a n|
|00003030| 6f 6e 2d 64 73 73 73 6c | 2d 66 6c 6f 77 2d 70 72 |on-dsssl|-flow-pr|
|00003040| 6f 63 65 73 73 6f 72 22 | 20 32 20 22 20 68 61 6e |ocessor"| 2 " han|
|00003050| 64 6c 65 72 22 20 22 64 | 73 73 73 6c 2d 66 6c 6f |dler" "d|sssl-flo|
|00003060| 77 2d 70 72 6f 63 65 73 | 73 6f 72 2d 68 61 6e 64 |w-proces|sor-hand|
|00003070| 6c 65 72 20 61 63 63 65 | 73 73 69 6e 67 20 61 20 |ler acce|ssing a |
|00003080| 6e 6f 6e 2d 64 73 73 73 | 6c 2d 66 6c 6f 77 2d 70 |non-dsss|l-flow-p|
|00003090| 72 6f 63 65 73 73 6f 72 | 22 20 33 20 22 20 73 69 |rocessor|" 3 " si|
|000030a0| 7a 65 6f 66 22 20 22 64 | 73 73 73 6c 2d 66 6c 6f |zeof" "d|sssl-flo|
|000030b0| 77 2d 70 72 6f 63 65 73 | 73 6f 72 2d 73 69 7a 65 |w-proces|sor-size|
|000030c0| 6f 66 20 61 63 63 65 73 | 73 69 6e 67 20 61 20 6e |of acces|sing a n|
|000030d0| 6f 6e 2d 64 73 73 73 6c | 2d 66 6c 6f 77 2d 70 72 |on-dsssl|-flow-pr|
|000030e0| 6f 63 65 73 73 6f 72 22 | 20 34 20 22 20 63 6c 65 |ocessor"| 4 " cle|
|000030f0| 61 6e 22 20 22 64 73 73 | 73 6c 2d 66 6c 6f 77 2d |an" "dss|sl-flow-|
|00003100| 70 72 6f 63 65 73 73 6f | 72 2d 63 6c 65 61 6e 20 |processo|r-clean |
|00003110| 61 63 63 65 73 73 69 6e | 67 20 61 20 6e 6f 6e 2d |accessin|g a non-|
|00003120| 64 73 73 73 6c 2d 66 6c | 6f 77 2d 70 72 6f 63 65 |dsssl-fl|ow-proce|
|00003130| 73 73 6f 72 22 20 35 20 | 22 29 22 20 74 5d 20 34 |ssor" 5 |")" t] 4|
|00003140| 5d 20 63 75 73 74 6f 6d | 2d 70 72 69 6e 74 2d 66 |] custom|-print-f|
|00003150| 75 6e 63 74 69 6f 6e 73 | 20 63 6c 2d 73 74 72 75 |unctions| cl-stru|
|00003160| 63 74 2d 64 73 73 73 6c | 2d 66 6c 6f 77 2d 70 72 |ct-dsssl|-flow-pr|
|00003170| 6f 63 65 73 73 6f 72 20 | 63 6c 2d 73 74 72 75 63 |ocessor |cl-struc|
|00003180| 74 2d 64 73 73 73 6c 2d | 66 6c 6f 77 2d 70 72 6f |t-dsssl-|flow-pro|
|00003190| 63 65 73 73 6f 72 2d 74 | 61 67 73 20 70 75 74 20 |cessor-t|ags put |
|000031a0| 64 73 73 73 6c 2d 66 6c | 6f 77 2d 70 72 6f 63 65 |dsssl-fl|ow-proce|
|000031b0| 73 73 6f 72 20 63 6c 2d | 73 74 72 75 63 74 2d 73 |ssor cl-|struct-s|
|000031c0| 6c 6f 74 73 20 28 28 63 | 6c 2d 74 61 67 2d 73 6c |lots ((c|l-tag-sl|
|000031d0| 6f 74 29 20 28 6e 61 6d | 65 20 27 75 6e 6b 6e 6f |ot) (nam|e 'unkno|
|000031e0| 77 6e 20 3a 72 65 61 64 | 2d 6f 6e 6c 79 20 74 29 |wn :read|-only t)|
|000031f0| 20 28 69 6e 69 74 20 6e | 69 6c 29 20 28 68 61 6e | (init n|il) (han|
|00003200| 64 6c 65 72 20 6e 69 6c | 29 20 28 73 69 7a 65 6f |dler nil|) (sizeo|
|00003210| 66 20 6e 69 6c 29 20 28 | 63 6c 65 61 6e 20 6e 69 |f nil) (|clean ni|
|00003220| 6c 29 29 20 63 6c 2d 73 | 74 72 75 63 74 2d 74 79 |l)) cl-s|truct-ty|
|00003230| 70 65 20 28 76 65 63 74 | 6f 72 20 6e 69 6c 29 20 |pe (vect|or nil) |
|00003240| 63 6c 2d 73 74 72 75 63 | 74 2d 69 6e 63 6c 75 64 |cl-struc|t-includ|
|00003250| 65 20 6e 69 6c 20 63 6c | 2d 73 74 72 75 63 74 2d |e nil cl|-struct-|
|00003260| 70 72 69 6e 74 20 74 20 | 6d 61 6b 65 2d 64 73 73 |print t |make-dss|
|00003270| 73 6c 2d 66 6c 6f 77 2d | 70 72 6f 63 65 73 73 6f |sl-flow-|processo|
|00003280| 72 20 73 69 64 65 2d 65 | 66 66 65 63 74 2d 66 72 |r side-e|ffect-fr|
|00003290| 65 65 20 63 6f 70 79 2d | 64 73 73 73 6c 2d 66 6c |ee copy-|dsssl-fl|
|000032a0| 6f 77 2d 70 72 6f 63 65 | 73 73 6f 72 20 64 73 73 |ow-proce|ssor dss|
|000032b0| 73 6c 2d 66 6c 6f 77 2d | 70 72 6f 63 65 73 73 6f |sl-flow-|processo|
|000032c0| 72 2d 70 20 65 72 72 6f | 72 2d 66 72 65 65 20 64 |r-p erro|r-free d|
|000032d0| 73 73 73 6c 2d 66 6c 6f | 77 2d 70 72 6f 63 65 73 |sssl-flo|w-proces|
|000032e0| 73 6f 72 2d 63 6c 65 61 | 6e 20 64 73 73 73 6c 2d |sor-clea|n dsssl-|
|000032f0| 66 6c 6f 77 2d 70 72 6f | 63 65 73 73 6f 72 2d 73 |flow-pro|cessor-s|
|00003300| 69 7a 65 6f 66 20 64 73 | 73 73 6c 2d 66 6c 6f 77 |izeof ds|ssl-flow|
|00003310| 2d 70 72 6f 63 65 73 73 | 6f 72 2d 68 61 6e 64 6c |-process|or-handl|
|00003320| 65 72 20 64 73 73 73 6c | 2d 66 6c 6f 77 2d 70 72 |er dsssl|-flow-pr|
|00003330| 6f 63 65 73 73 6f 72 2d | 69 6e 69 74 20 64 73 73 |ocessor-|init dss|
|00003340| 73 6c 2d 66 6c 6f 77 2d | 70 72 6f 63 65 73 73 6f |sl-flow-|processo|
|00003350| 72 2d 6e 61 6d 65 20 62 | 6f 75 6e 64 70 20 64 73 |r-name b|oundp ds|
|00003360| 73 73 6c 2d 66 6c 6f 77 | 2d 61 63 74 69 76 65 2d |ssl-flow|-active-|
|00003370| 66 61 63 65 73 20 63 75 | 72 72 65 6e 74 2d 6c 6f |faces cu|rrent-lo|
|00003380| 61 64 2d 6c 69 73 74 20 | 64 73 73 73 6c 2d 66 6c |ad-list |dsssl-fl|
|00003390| 6f 77 2d 61 63 74 69 76 | 65 2d 76 6f 69 63 65 73 |ow-activ|e-voices|
|000033a0| 20 6d 61 6b 65 2d 76 61 | 72 69 61 62 6c 65 2d 62 | make-va|riable-b|
|000033b0| 75 66 66 65 72 2d 6c 6f | 63 61 6c 5d 20 34 29 0a |uffer-lo|cal] 4).|
|000033c0| 28 64 65 66 61 6c 69 61 | 73 20 27 64 73 73 73 6c |(defalia|s 'dsssl|
|000033d0| 2d 66 6c 6f 77 2d 64 69 | 73 70 6c 61 79 20 23 5b |-flow-di|splay #[|
|000033e0| 28 66 6c 6f 77 73 20 70 | 72 6f 63 65 73 73 6f 72 |(flows p|rocessor|
|000033f0| 29 20 22 08 c1 48 5c 6e | 73 ac 85 c3 c4 08 5c 22 |) "..H\n|s.....\"|
|00003400| 88 08 c5 48 0e 06 43 c7 | 89 89 1e 08 1e 09 1e 5c |...H..C.|.......\|
|00003410| 6e 1e 0b 1e 0c 0e 0b 85 | 19 02 0e 0b 89 41 16 0b |n.......|.....A..|
|00003420| 40 16 5c 6e cd 20 88 0e | 5c 6e ab 6b cd 20 88 0e |@.\n. ..|\n.k. ..|
|00003430| 5c 6e 40 3b ab 8c ce 0e | 5c 6e 89 41 16 5c 6e 40 |\n@;....|\n.A.\n@|
|00003440| 21 88 aa 9b 0e 5c 6e 89 | 41 16 5c 6e 40 16 09 cf |!....\n.|A.\n@...|
|00003450| 0e 09 21 0e 10 42 16 10 | d1 0e 09 21 0e 12 42 16 |..!..B..|...!..B.|
|00003460| 12 0e 09 c1 48 0e 13 73 | ac 86 c3 d4 0e 09 5c 22 |....H..s|......\"|
|00003470| 88 0e 09 d5 48 d6 61 ac | 35 0e 09 c1 48 0e 13 73 |....H.a.|5...H..s|
|00003480| ac 86 c3 d4 0e 09 5c 22 | 88 0e 09 d5 48 d7 61 ac |......\"|....H.a.|
|00003490| 1e 0e 09 c1 48 0e 13 73 | ac 86 c3 d4 0e 09 5c 22 |....H..s|......\"|
|000034a0| 88 0e 09 d5 48 d8 61 ac | 07 0e 09 c1 48 0e 13 73 |....H.a.|....H..s|
|000034b0| ac 86 c3 d4 0e 09 5c 22 | 88 0e 09 d5 48 d9 61 84 |......\"|....H.a.|
|000034c0| 30 00 0e 09 c1 48 0e 13 | 73 ac 86 c3 d4 0e 09 5c |0....H..|s......\|
|000034d0| 22 88 0e 09 d5 48 da 61 | 84 30 00 0e 09 c1 48 0e |"....H.a|.0....H.|
|000034e0| 13 73 ac 86 c3 d4 0e 09 | 5c 22 88 0e 09 d5 48 db |.s......|\"....H.|
|000034f0| 61 84 30 00 0e 09 c1 48 | 0e 13 73 ac 86 c3 d4 0e |a.0....H|..s.....|
|00003500| 09 5c 22 88 0e 09 d5 48 | dc 61 84 30 00 0e 09 c1 |.\"....H|.a.0....|
|00003510| 48 0e 13 73 ac 86 c3 d4 | 0e 09 5c 22 88 0e 09 d5 |H..s....|..\"....|
|00003520| 48 dd 61 84 30 00 0e 09 | c1 48 0e 13 73 ac 86 c3 |H.a.0...|.H..s...|
|00003530| d4 0e 09 5c 22 88 0e 09 | d5 48 de 61 84 30 00 0e |...\"...|.H.a.0..|
|00003540| 09 c1 48 0e 13 73 ac 86 | c3 d4 0e 09 5c 22 88 0e |..H..s..|....\"..|
|00003550| 09 d5 48 df 61 84 30 00 | 0e 09 c1 48 0e 13 73 ac |..H.a.0.|...H..s.|
|00003560| 86 c3 d4 0e 09 5c 22 88 | 0e 09 d5 48 e0 61 84 30 |.....\".|...H.a.0|
|00003570| 00 0e 09 c1 48 0e 13 73 | ac 86 c3 d4 0e 09 5c 22 |....H..s|......\"|
|00003580| 88 0e 09 d5 48 e1 61 84 | 30 00 0e 09 c1 48 0e 13 |....H.a.|0....H..|
|00003590| 73 ac 86 c3 d4 0e 09 5c | 22 88 0e 09 d5 48 e2 61 |s......\|"....H.a|
|000035a0| 84 30 00 0e 09 c1 48 0e | 13 73 ac 86 c3 d4 0e 09 |.0....H.|.s......|
|000035b0| 5c 22 88 0e 09 d5 48 e3 | 61 84 30 00 0e 09 c1 48 |\"....H.|a.0....H|
|000035c0| 0e 13 73 ac 86 c3 d4 0e | 09 5c 22 88 0e 09 d5 48 |..s.....|.\"....H|
|000035d0| e4 61 84 30 00 0e 09 c1 | 48 0e 13 73 ac 86 c3 d4 |.a.0....|H..s....|
|000035e0| 0e 09 5c 22 88 0e 09 d5 | 48 e5 61 84 30 00 0e 09 |..\"....|H.a.0...|
|000035f0| c1 48 0e 13 73 ac 86 c3 | d4 0e 09 5c 22 88 0e 09 |.H..s...|...\"...|
|00003600| d5 48 e6 61 84 30 00 0e | 09 c1 48 0e 13 73 ac 86 |.H.a.0..|..H..s..|
|00003610| c3 d4 0e 09 5c 22 88 0e | 09 d5 48 e7 61 84 30 00 |....\"..|..H.a.0.|
|00003620| e8 0e 09 21 88 82 30 00 | 2d 87 22 20 5b 70 72 6f |...!..0.|-." [pro|
|00003630| 63 65 73 73 6f 72 20 30 | 20 63 6c 2d 73 74 72 75 |cessor 0| cl-stru|
|00003640| 63 74 2d 64 73 73 73 6c | 2d 66 6c 6f 77 2d 70 72 |ct-dsssl|-flow-pr|
|00003650| 6f 63 65 73 73 6f 72 2d | 74 61 67 73 20 65 72 72 |ocessor-|tags err|
|00003660| 6f 72 20 22 64 73 73 73 | 6c 2d 66 6c 6f 77 2d 70 |or "dsss|l-flow-p|
|00003670| 72 6f 63 65 73 73 6f 72 | 2d 68 61 6e 64 6c 65 72 |rocessor|-handler|
|00003680| 20 61 63 63 65 73 73 69 | 6e 67 20 61 20 6e 6f 6e | accessi|ng a non|
|00003690| 2d 64 73 73 73 6c 2d 66 | 6c 6f 77 2d 70 72 6f 63 |-dsssl-f|low-proc|
|000036a0| 65 73 73 6f 72 22 20 33 | 20 66 6c 6f 77 73 20 6e |essor" 3| flows n|
|000036b0| 69 6c 20 6c 61 73 74 2d | 6f 62 6a 65 63 74 20 6e |il last-|object n|
|000036c0| 6f 64 65 20 63 6f 6e 74 | 65 6e 74 20 66 6c 6f 77 |ode cont|ent flow|
|000036d0| 2d 73 74 61 63 6b 20 68 | 61 6e 64 6c 65 72 20 64 |-stack h|andler d|
|000036e0| 73 73 73 6c 2d 66 6c 6f | 77 2d 70 72 6f 67 72 65 |sssl-flo|w-progre|
|000036f0| 73 73 2d 6d 65 74 65 72 | 20 64 73 73 73 6c 2d 66 |ss-meter| dsssl-f|
|00003700| 6c 6f 77 2d 68 61 6e 64 | 6c 65 2d 73 74 72 69 6e |low-hand|le-strin|
|00003710| 67 2d 63 6f 6e 74 65 6e | 74 20 64 73 73 73 6c 2d |g-conten|t dsssl-|
|00003720| 66 6c 6f 77 2d 66 61 63 | 65 2d 66 6f 72 2d 65 6c |flow-fac|e-for-el|
|00003730| 65 6d 65 6e 74 20 64 73 | 73 73 6c 2d 66 6c 6f 77 |ement ds|ssl-flow|
|00003740| 2d 61 63 74 69 76 65 2d | 66 61 63 65 73 20 64 73 |-active-|faces ds|
|00003750| 73 73 6c 2d 66 6c 6f 77 | 2d 76 6f 69 63 65 2d 66 |ssl-flow|-voice-f|
|00003760| 6f 72 2d 65 6c 65 6d 65 | 6e 74 20 64 73 73 73 6c |or-eleme|nt dsssl|
|00003770| 2d 66 6c 6f 77 2d 61 63 | 74 69 76 65 2d 76 6f 69 |-flow-ac|tive-voi|
|00003780| 63 65 73 20 63 6c 2d 73 | 74 72 75 63 74 2d 66 6c |ces cl-s|truct-fl|
|00003790| 6f 77 2d 6f 62 6a 65 63 | 74 2d 74 61 67 73 20 22 |ow-objec|t-tags "|
|000037a0| 66 6c 6f 77 2d 6f 62 6a | 65 63 74 2d 74 79 70 65 |flow-obj|ect-type|
|000037b0| 20 61 63 63 65 73 73 69 | 6e 67 20 61 20 6e 6f 6e | accessi|ng a non|
|000037c0| 2d 66 6c 6f 77 2d 6f 62 | 6a 65 63 74 22 20 31 20 |-flow-ob|ject" 1 |
|000037d0| 73 65 71 75 65 6e 63 65 | 20 64 69 73 70 6c 61 79 |sequence| display|
|000037e0| 2d 67 72 6f 75 70 20 70 | 61 72 61 67 72 61 70 68 |-group p|aragraph|
|000037f0| 20 70 61 72 61 67 72 61 | 70 68 2d 62 72 65 61 6b | paragra|ph-break|
|00003800| 20 65 78 74 65 72 6e 61 | 6c 2d 67 72 61 70 68 69 | externa|l-graphi|
|00003810| 63 20 73 69 6d 70 6c 65 | 2d 70 61 67 65 2d 73 65 |c simple|-page-se|
|00003820| 71 75 65 6e 63 65 20 74 | 61 62 6c 65 20 74 61 62 |quence t|able tab|
|00003830| 6c 65 2d 70 61 72 74 20 | 74 61 62 6c 65 2d 63 6f |le-part |table-co|
|00003840| 6c 75 6d 6e 20 74 61 62 | 6c 65 2d 72 6f 77 20 74 |lumn tab|le-row t|
|00003850| 61 62 6c 65 2d 62 6f 72 | 64 65 72 20 74 61 62 6c |able-bor|der tabl|
|00003860| 65 2d 63 65 6c 6c 20 76 | 65 72 74 69 63 61 6c 2d |e-cell v|ertical-|
|00003870| 73 63 72 6f 6c 6c 20 6d | 75 6c 74 69 2d 6d 6f 64 |scroll m|ulti-mod|
|00003880| 65 20 6d 61 72 67 69 6e | 61 6c 69 61 20 61 70 70 |e margin|alia app|
|00003890| 6c 65 74 20 73 63 72 69 | 70 74 20 66 6f 72 6d 2d |let scri|pt form-|
|000038a0| 65 6c 65 6d 65 6e 74 20 | 64 73 73 73 6c 2d 66 6c |element |dsssl-fl|
|000038b0| 6f 77 2d 68 61 6e 64 6c | 65 2d 63 6f 6e 74 65 6e |ow-handl|e-conten|
|000038c0| 74 5d 20 35 5d 29 0a 28 | 70 72 6f 76 69 64 65 20 |t] 5]).(|provide |
|000038d0| 27 64 73 73 73 6c 2d 66 | 6c 6f 77 29 0a          |'dsssl-f|low).   |
+--------+-------------------------+-------------------------+--------+--------+