/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / prim / specifier.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 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 32 32 3a 32 | 37 20 31 39 39 35 0a 3b | 14:22: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 72 | 69 6d 2f 73 70 65 63 69 |/lisp/pr|im/speci|
|00000090| 66 69 65 72 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |fier.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 66 73 65 74 |cs 19.")|)..(fset|
|000001f0| 20 27 6d 61 6b 65 2d 73 | 70 65 63 69 66 69 65 72 | 'make-s|pecifier|
|00000200| 2d 61 6e 64 2d 69 6e 69 | 74 20 23 5b 28 74 79 70 |-and-ini|t #[(typ|
|00000210| 65 20 73 70 65 63 2d 6c | 69 73 74 20 26 6f 70 74 |e spec-l|ist &opt|
|00000220| 69 6f 6e 61 6c 20 64 6f | 6e 74 2d 63 61 6e 6f 6e |ional do|nt-canon|
|00000230| 69 63 61 6c 69 7a 65 29 | 20 22 c0 09 21 1a 0b ac |icalize)| "..!...|
|00000240| 85 c4 0d 09 5c 22 15 c6 | 5c 6e 0d 5c 22 88 5c 6e |....\"..|\n.\".\n|
|00000250| 29 87 22 20 5b 6d 61 6b | 65 2d 73 70 65 63 69 66 |)." [mak|e-specif|
|00000260| 69 65 72 20 74 79 70 65 | 20 73 70 20 64 6f 6e 74 |ier type| sp dont|
|00000270| 2d 63 61 6e 6f 6e 69 63 | 61 6c 69 7a 65 20 63 61 |-canonic|alize ca|
|00000280| 6e 6f 6e 69 63 61 6c 69 | 7a 65 2d 73 70 65 63 2d |nonicali|ze-spec-|
|00000290| 6c 69 73 74 20 73 70 65 | 63 2d 6c 69 73 74 20 61 |list spe|c-list a|
|000002a0| 64 64 2d 73 70 65 63 2d | 6c 69 73 74 2d 74 6f 2d |dd-spec-|list-to-|
|000002b0| 73 70 65 63 69 66 69 65 | 72 5d 20 33 20 22 5c 0a |specifie|r] 3 "\.|
|000002c0| 43 72 65 61 74 65 20 61 | 6e 64 20 69 6e 69 74 69 |Create a|nd initi|
|000002d0| 61 6c 69 7a 65 20 61 20 | 6e 65 77 20 73 70 65 63 |alize a |new spec|
|000002e0| 69 66 69 65 72 2e 0a 0a | 54 68 69 73 20 69 73 20 |ifier...|This is |
|000002f0| 61 20 66 72 6f 6e 74 2d | 65 6e 64 20 6f 6e 74 6f |a front-|end onto|
|00000300| 20 60 6d 61 6b 65 2d 73 | 70 65 63 69 66 69 65 72 | `make-s|pecifier|
|00000310| 27 20 74 68 61 74 20 61 | 6c 6c 6f 77 73 20 79 6f |' that a|llows yo|
|00000320| 75 20 74 6f 20 63 72 65 | 61 74 65 20 61 0a 73 70 |u to cre|ate a.sp|
|00000330| 65 63 69 66 69 65 72 20 | 61 6e 64 20 61 64 64 20 |ecifier |and add |
|00000340| 73 70 65 63 73 20 74 6f | 20 69 74 20 61 74 20 74 |specs to| it at t|
|00000350| 68 65 20 73 61 6d 65 20 | 74 69 6d 65 2e 20 20 54 |he same |time.  T|
|00000360| 59 50 45 20 73 70 65 63 | 69 66 69 65 73 20 74 68 |YPE spec|ifies th|
|00000370| 65 0a 73 70 65 63 69 66 | 69 65 72 20 74 79 70 65 |e.specif|ier type|
|00000380| 2e 20 20 53 50 45 43 2d | 4c 49 53 54 20 73 75 70 |.  SPEC-|LIST sup|
|00000390| 70 6c 69 65 73 20 74 68 | 65 20 73 70 65 63 69 66 |plies th|e specif|
|000003a0| 69 63 61 74 69 6f 6e 28 | 73 29 20 74 6f 20 62 65 |ication(|s) to be|
|000003b0| 20 61 64 64 65 64 0a 74 | 6f 20 74 68 65 20 73 70 | added.t|o the sp|
|000003c0| 65 63 69 66 69 65 72 2e | 20 4e 6f 72 6d 61 6c 6c |ecifier.| Normall|
|000003d0| 79 2c 20 61 6c 6d 6f 73 | 74 20 61 6e 79 20 72 65 |y, almos|t any re|
|000003e0| 61 73 6f 6e 61 62 6c 65 | 20 61 62 62 72 65 76 69 |asonable| abbrevi|
|000003f0| 61 74 69 6f 6e 20 6f 66 | 20 74 68 65 0a 66 75 6c |ation of| the.ful|
|00000400| 6c 20 73 70 65 63 2d 6c | 69 73 74 20 66 6f 72 6d |l spec-l|ist form|
|00000410| 20 69 73 20 61 63 63 65 | 70 74 65 64 2c 20 61 6e | is acce|pted, an|
|00000420| 64 20 69 73 20 63 6f 6e | 76 65 72 74 65 64 20 74 |d is con|verted t|
|00000430| 6f 20 74 68 65 20 66 75 | 6c 6c 20 66 6f 72 6d 3b |o the fu|ll form;|
|00000440| 0a 68 6f 77 65 76 65 72 | 2c 20 69 66 20 6f 70 74 |.however|, if opt|
|00000450| 69 6f 6e 61 6c 20 61 72 | 67 75 6d 65 6e 74 20 44 |ional ar|gument D|
|00000460| 4f 4e 54 2d 43 41 4e 4f | 4e 49 43 41 4c 49 5a 45 |ONT-CANO|NICALIZE|
|00000470| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 74 68 69 | is non-|nil, thi|
|00000480| 73 0a 63 6f 6e 76 65 72 | 73 69 6f 6e 20 69 73 20 |s.conver|sion is |
|00000490| 6e 6f 74 20 70 65 72 66 | 6f 72 6d 65 64 2c 20 61 |not perf|ormed, a|
|000004a0| 6e 64 20 74 68 65 20 53 | 50 45 43 2d 4c 49 53 54 |nd the S|PEC-LIST|
|000004b0| 20 6d 75 73 74 20 61 6c | 72 65 61 64 79 20 62 65 | must al|ready be|
|000004c0| 20 69 6e 20 66 75 6c 6c | 0a 66 6f 72 6d 2e 20 20 | in full|.form.  |
|000004d0| 53 65 65 20 60 63 61 6e | 6f 6e 69 63 61 6c 69 7a |See `can|onicaliz|
|000004e0| 65 2d 73 70 65 63 2d 6c | 69 73 74 27 2e 22 5d 29 |e-spec-l|ist'."])|
|000004f0| 0a 28 66 73 65 74 20 27 | 6d 61 70 2d 73 70 65 63 |.(fset '|map-spec|
|00000500| 69 66 69 65 72 20 23 5b | 28 6d 73 2d 73 70 65 63 |ifier #[|(ms-spec|
|00000510| 69 66 69 65 72 20 6d 73 | 2d 66 75 6e 63 20 26 6f |ifier ms|-func &o|
|00000520| 70 74 69 6f 6e 61 6c 20 | 6d 73 2d 6c 6f 63 61 6c |ptional |ms-local|
|00000530| 65 20 6d 73 2d 6d 61 70 | 61 72 67 29 20 22 c0 09 |e ms-map|arg) "..|
|00000540| 5c 6e 5c 22 c3 1c 1d 0d | ab 9a 0c ac 97 0d 40 1e |\n\"....|......@.|
|00000550| 06 0e 07 09 0e 06 40 0e | 06 41 0e 08 24 14 0d 41 |......@.|.A..$..A|
|00000560| 15 29 aa 63 0c 2a 87 22 | 20 5b 73 70 65 63 69 66 |.).c.*."| [specif|
|00000570| 69 65 72 2d 73 70 65 63 | 2d 6c 69 73 74 20 6d 73 |ier-spec|-list ms|
|00000580| 2d 73 70 65 63 69 66 69 | 65 72 20 6d 73 2d 6c 6f |-specifi|er ms-lo|
|00000590| 63 61 6c 65 20 6e 69 6c | 20 6d 73 2d 72 65 73 75 |cale nil| ms-resu|
|000005a0| 6c 74 20 6d 73 2d 73 70 | 65 63 73 20 6d 73 2d 74 |lt ms-sp|ecs ms-t|
|000005b0| 68 69 73 2d 73 70 65 63 | 20 6d 73 2d 66 75 6e 63 |his-spec| ms-func|
|000005c0| 20 6d 73 2d 6d 61 70 61 | 72 67 5d 20 35 20 22 5c | ms-mapa|rg] 5 "\|
|000005d0| 0a 41 70 70 6c 79 20 4d | 53 2d 46 55 4e 43 20 74 |.Apply M|S-FUNC t|
|000005e0| 6f 20 74 68 65 20 73 70 | 65 63 69 66 69 63 61 74 |o the sp|ecificat|
|000005f0| 69 6f 6e 28 73 29 20 66 | 6f 72 20 4d 53 2d 4c 4f |ion(s) f|or MS-LO|
|00000600| 43 41 4c 45 20 69 6e 20 | 4d 53 2d 53 50 45 43 49 |CALE in |MS-SPECI|
|00000610| 46 49 45 52 2e 0a 0a 49 | 66 20 4d 53 2d 4c 4f 43 |FIER...I|f MS-LOC|
|00000620| 41 4c 45 20 69 73 20 61 | 20 6c 6f 63 61 6c 65 2c |ALE is a| locale,|
|00000630| 20 4d 53 2d 46 55 4e 43 | 20 77 69 6c 6c 20 62 65 | MS-FUNC| will be|
|00000640| 20 63 61 6c 6c 65 64 20 | 66 6f 72 20 74 68 61 74 | called |for that|
|00000650| 20 6c 6f 63 61 6c 65 2e | 0a 49 66 20 4d 53 2d 4c | locale.|.If MS-L|
|00000660| 4f 43 41 4c 45 20 69 73 | 20 61 20 6c 6f 63 61 6c |OCALE is| a local|
|00000670| 65 20 74 79 70 65 2c 20 | 4d 53 2d 46 55 4e 43 20 |e type, |MS-FUNC |
|00000680| 77 69 6c 6c 20 62 65 20 | 6d 61 70 70 65 64 20 6f |will be |mapped o|
|00000690| 76 65 72 20 61 6c 6c 20 | 6c 6f 63 61 6c 65 73 0a |ver all |locales.|
|000006a0| 6f 66 20 74 68 61 74 20 | 74 79 70 65 2e 20 20 49 |of that |type.  I|
|000006b0| 66 20 4d 53 2d 4c 4f 43 | 41 4c 45 20 69 73 20 27 |f MS-LOC|ALE is '|
|000006c0| 61 6c 6c 20 6f 72 20 6e | 69 6c 2c 20 4d 53 2d 46 |all or n|il, MS-F|
|000006d0| 55 4e 43 20 77 69 6c 6c | 20 62 65 20 6d 61 70 70 |UNC will| be mapp|
|000006e0| 65 64 0a 6f 76 65 72 20 | 61 6c 6c 20 6c 6f 63 61 |ed.over |all loca|
|000006f0| 6c 65 73 20 69 6e 20 4d | 53 2d 53 50 45 43 49 46 |les in M|S-SPECIF|
|00000700| 49 45 52 2e 0a 0a 4d 53 | 2d 46 55 4e 43 20 69 73 |IER...MS|-FUNC is|
|00000710| 20 63 61 6c 6c 65 64 20 | 77 69 74 68 20 66 6f 75 | called |with fou|
|00000720| 72 20 61 72 67 75 6d 65 | 6e 74 73 3a 20 74 68 65 |r argume|nts: the|
|00000730| 20 4d 53 2d 53 50 45 43 | 49 46 49 45 52 2c 20 74 | MS-SPEC|IFIER, t|
|00000740| 68 65 20 6c 6f 63 61 6c | 65 0a 62 65 69 6e 67 20 |he local|e.being |
|00000750| 6d 61 70 70 65 64 20 6f | 76 65 72 2c 20 74 68 65 |mapped o|ver, the|
|00000760| 20 69 6e 73 74 2d 6c 69 | 73 74 20 66 6f 72 20 74 | inst-li|st for t|
|00000770| 68 61 74 20 6c 6f 63 61 | 6c 65 2c 20 61 6e 64 20 |hat loca|le, and |
|00000780| 74 68 65 0a 6f 70 74 69 | 6f 6e 61 6c 20 4d 53 2d |the.opti|onal MS-|
|00000790| 4d 41 50 41 52 47 2e 20 | 20 49 66 20 61 6e 79 20 |MAPARG. | If any |
|000007a0| 69 6e 76 6f 63 61 74 69 | 6f 6e 20 6f 66 20 4d 53 |invocati|on of MS|
|000007b0| 2d 46 55 4e 43 20 72 65 | 74 75 72 6e 73 20 6e 6f |-FUNC re|turns no|
|000007c0| 6e 2d 6e 69 6c 2c 0a 74 | 68 65 20 6d 61 70 70 69 |n-nil,.t|he mappi|
|000007d0| 6e 67 20 77 69 6c 6c 20 | 73 74 6f 70 20 61 6e 64 |ng will |stop and|
|000007e0| 20 74 68 65 20 72 65 74 | 75 72 6e 65 64 20 76 61 | the ret|urned va|
|000007f0| 6c 75 65 20 62 65 63 6f | 6d 65 73 20 74 68 65 0a |lue beco|mes the.|
|00000800| 76 61 6c 75 65 20 72 65 | 74 75 72 6e 65 64 20 66 |value re|turned f|
|00000810| 72 6f 6d 20 60 6d 61 70 | 2d 73 70 65 63 69 66 69 |rom `map|-specifi|
|00000820| 65 72 27 2e 20 20 4f 74 | 68 65 72 77 69 73 65 2c |er'.  Ot|herwise,|
|00000830| 20 60 6d 61 70 2d 73 70 | 65 63 69 66 69 65 72 27 | `map-sp|ecifier'|
|00000840| 0a 72 65 74 75 72 6e 73 | 20 6e 69 6c 2e 22 5d 29 |.returns| nil."])|
|00000850| 0a 28 66 73 65 74 20 27 | 63 61 6e 6f 6e 69 63 61 |.(fset '|canonica|
|00000860| 6c 69 7a 65 2d 69 6e 73 | 74 2d 70 61 69 72 20 23 |lize-ins|t-pair #|
|00000870| 5b 28 69 6e 73 74 2d 70 | 61 69 72 20 73 70 65 63 |[(inst-p|air spec|
|00000880| 69 66 69 65 72 2d 74 79 | 70 65 20 26 6f 70 74 69 |ifier-ty|pe &opti|
|00000890| 6f 6e 61 6c 20 6e 6f 65 | 72 72 6f 72 29 20 22 c0 |onal noe|rror) ".|
|000008a0| 09 5c 6e 5c 22 ab 84 c3 | 09 42 87 09 3a ac 8a 0c |.\n\"...|.B..:...|
|000008b0| ab 82 c5 87 c6 09 5c 6e | 5c 22 87 c7 09 40 21 ab |......\n|\"...@!.|
|000008c0| 8e c0 09 41 5c 6e 5c 22 | ab 87 09 40 43 09 41 42 |...A\n\"|...@C.AB|
|000008d0| 87 c8 09 40 21 ab 89 c0 | 09 41 5c 6e 5c 22 ab 82 |...@!...|.A\n\"..|
|000008e0| 09 87 0c ab 82 c5 87 c9 | ca cb 09 40 44 5c 22 87 |........|...@D\".|
|000008f0| 22 20 5b 76 61 6c 69 64 | 2d 69 6e 73 74 61 6e 74 |" [valid|-instant|
|00000900| 69 61 74 6f 72 2d 70 20 | 69 6e 73 74 2d 70 61 69 |iator-p |inst-pai|
|00000910| 72 20 73 70 65 63 69 66 | 69 65 72 2d 74 79 70 65 |r specif|ier-type|
|00000920| 20 6e 69 6c 20 6e 6f 65 | 72 72 6f 72 20 74 20 63 | nil noe|rror t c|
|00000930| 68 65 63 6b 2d 76 61 6c | 69 64 2d 69 6e 73 74 61 |heck-val|id-insta|
|00000940| 6e 74 69 61 74 6f 72 20 | 76 61 6c 69 64 2d 73 70 |ntiator |valid-sp|
|00000950| 65 63 69 66 69 65 72 2d | 74 61 67 2d 70 20 76 61 |ecifier-|tag-p va|
|00000960| 6c 69 64 2d 73 70 65 63 | 69 66 69 65 72 2d 74 61 |lid-spec|ifier-ta|
|00000970| 67 2d 73 65 74 2d 70 20 | 73 69 67 6e 61 6c 20 65 |g-set-p |signal e|
|00000980| 72 72 6f 72 20 22 49 6e | 76 61 6c 69 64 20 73 70 |rror "In|valid sp|
|00000990| 65 63 69 66 69 65 72 20 | 74 61 67 20 73 65 74 22 |ecifier |tag set"|
|000009a0| 5d 20 34 20 22 5c 0a 43 | 61 6e 6f 6e 69 63 61 6c |] 4 "\.C|anonical|
|000009b0| 69 7a 65 20 74 68 65 20 | 67 69 76 65 6e 20 49 4e |ize the |given IN|
|000009c0| 53 54 2d 50 41 49 52 2e | 0a 0a 53 50 45 43 49 46 |ST-PAIR.|..SPECIF|
|000009d0| 49 45 52 2d 54 59 50 45 | 20 73 70 65 63 69 66 69 |IER-TYPE| specifi|
|000009e0| 65 73 20 74 68 65 20 74 | 79 70 65 20 6f 66 20 73 |es the t|ype of s|
|000009f0| 70 65 63 69 66 69 65 72 | 20 74 68 61 74 20 74 68 |pecifier| that th|
|00000a00| 69 73 20 53 50 45 43 2d | 4c 49 53 54 0a 77 69 6c |is SPEC-|LIST.wil|
|00000a10| 6c 20 62 65 20 75 73 65 | 64 20 66 6f 72 2e 0a 0a |l be use|d for...|
|00000a20| 43 61 6e 6f 6e 69 63 61 | 6c 69 7a 69 6e 67 20 6d |Canonica|lizing m|
|00000a30| 65 61 6e 73 20 63 6f 6e | 76 65 72 74 69 6e 67 20 |eans con|verting |
|00000a40| 74 6f 20 74 68 65 20 66 | 75 6c 6c 20 66 6f 72 6d |to the f|ull form|
|00000a50| 20 66 6f 72 20 61 6e 20 | 69 6e 73 74 2d 70 61 69 | for an |inst-pai|
|00000a60| 72 2c 20 69 2e 65 2e 0a | 60 28 54 41 47 2d 53 45 |r, i.e..|`(TAG-SE|
|00000a70| 54 20 2e 20 49 4e 53 54 | 41 4e 54 49 41 54 4f 52 |T . INST|ANTIATOR|
|00000a80| 29 27 2e 20 20 41 20 73 | 69 6e 67 6c 65 2c 20 75 |)'.  A s|ingle, u|
|00000a90| 6e 74 61 67 67 65 64 20 | 69 6e 73 74 61 6e 74 69 |ntagged |instanti|
|00000aa0| 61 74 6f 72 20 69 73 20 | 67 69 76 65 6e 0a 61 20 |ator is |given.a |
|00000ab0| 74 61 67 20 73 65 74 20 | 6f 66 20 6e 69 6c 20 28 |tag set |of nil (|
|00000ac0| 74 68 65 20 65 6d 70 74 | 79 20 73 65 74 29 2c 20 |the empt|y set), |
|00000ad0| 61 6e 64 20 61 20 73 69 | 6e 67 6c 65 20 74 61 67 |and a si|ngle tag|
|00000ae0| 20 69 73 20 63 6f 6e 76 | 65 72 74 65 64 20 69 6e | is conv|erted in|
|00000af0| 74 6f 0a 61 20 74 61 67 | 20 73 65 74 20 63 6f 6e |to.a tag| set con|
|00000b00| 73 69 73 74 69 6e 67 20 | 6f 6e 6c 79 20 6f 66 20 |sisting |only of |
|00000b10| 74 68 61 74 20 74 61 67 | 2e 0a 0a 49 66 20 4e 4f |that tag|...If NO|
|00000b20| 45 52 52 4f 52 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |ERROR is| non-nil|
|00000b30| 2c 20 73 69 67 6e 61 6c | 20 61 6e 20 65 72 72 6f |, signal| an erro|
|00000b40| 72 20 69 66 20 74 68 65 | 20 69 6e 73 74 2d 70 61 |r if the| inst-pa|
|00000b50| 69 72 20 69 73 20 69 6e | 76 61 6c 69 64 3b 0a 6f |ir is in|valid;.o|
|00000b60| 74 68 65 72 77 69 73 65 | 20 72 65 74 75 72 6e 20 |therwise| return |
|00000b70| 74 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 63 61 6e |t."]).(f|set 'can|
|00000b80| 6f 6e 69 63 61 6c 69 7a | 65 2d 69 6e 73 74 2d 6c |onicaliz|e-inst-l|
|00000b90| 69 73 74 20 23 5b 28 69 | 6e 73 74 2d 6c 69 73 74 |ist #[(i|nst-list|
|00000ba0| 20 73 70 65 63 69 66 69 | 65 72 2d 74 79 70 65 20 | specifi|er-type |
|00000bb0| 26 6f 70 74 69 6f 6e 61 | 6c 20 6e 6f 65 72 72 6f |&optiona|l noerro|
|00000bc0| 72 29 20 22 c0 09 5c 6e | c3 23 89 1c c3 3d ac 84 |r) "..\n|.#...=..|
|00000bd0| 0c 43 aa 93 09 3a ac 8c | 0d ab 83 c3 aa 89 c6 09 |.C...:..|........|
|00000be0| 5c 6e 5c 22 aa 83 c7 c8 | 8d 29 87 22 20 5b 63 61 |\n\"....|.)." [ca|
|00000bf0| 6e 6f 6e 69 63 61 6c 69 | 7a 65 2d 69 6e 73 74 2d |nonicali|ze-inst-|
|00000c00| 70 61 69 72 20 69 6e 73 | 74 2d 6c 69 73 74 20 73 |pair ins|t-list s|
|00000c10| 70 65 63 69 66 69 65 72 | 2d 74 79 70 65 20 74 20 |pecifier|-type t |
|00000c20| 72 65 73 75 6c 74 20 6e | 6f 65 72 72 6f 72 20 63 |result n|oerror c|
|00000c30| 68 65 63 6b 2d 76 61 6c | 69 64 2d 69 6e 73 74 61 |heck-val|id-insta|
|00000c40| 6e 74 69 61 74 6f 72 20 | 63 61 6e 6e 2d 69 6e 73 |ntiator |cann-ins|
|00000c50| 74 2d 6c 69 73 74 20 28 | 62 79 74 65 2d 63 6f 64 |t-list (|byte-cod|
|00000c60| 65 20 22 08 c1 1a 89 1b | ab b8 0b 3a ac 93 0c ab |e ".....|...:....|
|00000c70| 87 c5 c6 c7 5c 22 88 aa | a4 c8 c9 ca 08 44 5c 22 |....\"..|.....D\"|
|00000c80| 88 aa 9b cb 0b 40 0e 0c | 0c 23 89 1e 0d c7 3d ab |.....@..|.#....=.|
|00000c90| 87 c5 c6 c7 5c 22 88 aa | 85 0e 0d 5c 6e 42 12 29 |....\"..|...\nB.)|
|00000ca0| 0b 41 89 13 ac 48 5c 6e | 9f 2a 87 22 20 5b 69 6e |.A...H\n|.*." [in|
|00000cb0| 73 74 2d 6c 69 73 74 20 | 6e 69 6c 20 72 65 73 75 |st-list |nil resu|
|00000cc0| 6c 74 20 72 65 73 74 20 | 6e 6f 65 72 72 6f 72 20 |lt rest |noerror |
|00000cd0| 74 68 72 6f 77 20 63 61 | 6e 6e 2d 69 6e 73 74 2d |throw ca|nn-inst-|
|00000ce0| 6c 69 73 74 20 74 20 73 | 69 67 6e 61 6c 20 65 72 |list t s|ignal er|
|00000cf0| 72 6f 72 20 22 49 6e 76 | 61 6c 69 64 20 6c 69 73 |ror "Inv|alid lis|
|00000d00| 74 20 66 6f 72 6d 61 74 | 22 20 63 61 6e 6f 6e 69 |t format|" canoni|
|00000d10| 63 61 6c 69 7a 65 2d 69 | 6e 73 74 2d 70 61 69 72 |calize-i|nst-pair|
|00000d20| 20 73 70 65 63 69 66 69 | 65 72 2d 74 79 70 65 20 | specifi|er-type |
|00000d30| 72 65 73 32 5d 20 35 29 | 5d 20 35 20 22 5c 0a 43 |res2] 5)|] 5 "\.C|
|00000d40| 61 6e 6f 6e 69 63 61 6c | 69 7a 65 20 74 68 65 20 |anonical|ize the |
|00000d50| 67 69 76 65 6e 20 49 4e | 53 54 2d 4c 49 53 54 20 |given IN|ST-LIST |
|00000d60| 28 61 20 6c 69 73 74 20 | 6f 66 20 69 6e 73 74 2d |(a list |of inst-|
|00000d70| 70 61 69 72 73 29 2e 0a | 0a 53 50 45 43 49 46 49 |pairs)..|.SPECIFI|
|00000d80| 45 52 2d 54 59 50 45 20 | 73 70 65 63 69 66 69 65 |ER-TYPE |specifie|
|00000d90| 73 20 74 68 65 20 74 79 | 70 65 20 6f 66 20 73 70 |s the ty|pe of sp|
|00000da0| 65 63 69 66 69 65 72 20 | 74 68 61 74 20 74 68 69 |ecifier |that thi|
|00000db0| 73 20 49 4e 53 54 2d 4c | 49 53 54 0a 77 69 6c 6c |s INST-L|IST.will|
|00000dc0| 20 62 65 20 75 73 65 64 | 20 66 6f 72 2e 0a 0a 43 | be used| for...C|
|00000dd0| 61 6e 6f 6e 69 63 61 6c | 69 7a 69 6e 67 20 6d 65 |anonical|izing me|
|00000de0| 61 6e 73 20 63 6f 6e 76 | 65 72 74 69 6e 67 20 74 |ans conv|erting t|
|00000df0| 6f 20 74 68 65 20 66 75 | 6c 6c 20 66 6f 72 6d 20 |o the fu|ll form |
|00000e00| 66 6f 72 20 61 6e 20 69 | 6e 73 74 2d 6c 69 73 74 |for an i|nst-list|
|00000e10| 2c 20 69 2e 65 2e 0a 60 | 28 28 54 41 47 2d 53 45 |, i.e..`|((TAG-SE|
|00000e20| 54 20 2e 20 49 4e 53 54 | 41 4e 54 49 41 54 4f 52 |T . INST|ANTIATOR|
|00000e30| 29 20 2e 2e 2e 29 27 2e | 20 20 54 68 69 73 20 66 |) ...)'.|  This f|
|00000e40| 75 6e 63 74 69 6f 6e 20 | 61 63 63 65 70 74 73 20 |unction |accepts |
|00000e50| 61 20 73 69 6e 67 6c 65 | 0a 69 6e 73 74 2d 70 61 |a single|.inst-pa|
|00000e60| 69 72 20 6f 72 20 61 6e | 79 20 61 62 62 72 65 76 |ir or an|y abbrev|
|00000e70| 61 74 69 6f 6e 20 74 68 | 65 72 65 6f 66 20 6f 72 |ation th|ereof or|
|00000e80| 20 61 20 6c 69 73 74 20 | 6f 66 20 28 70 6f 73 73 | a list |of (poss|
|00000e90| 69 62 6c 79 0a 61 62 62 | 72 65 76 69 61 74 65 64 |ibly.abb|reviated|
|00000ea0| 29 20 69 6e 73 74 2d 70 | 61 69 72 73 2e 20 28 53 |) inst-p|airs. (S|
|00000eb0| 65 65 20 60 63 61 6e 6f | 6e 69 63 61 6c 69 7a 65 |ee `cano|nicalize|
|00000ec0| 2d 69 6e 73 74 2d 70 61 | 69 72 27 2e 29 0a 0a 49 |-inst-pa|ir'.)..I|
|00000ed0| 66 20 4e 4f 45 52 52 4f | 52 20 69 73 20 6e 6f 6e |f NOERRO|R is non|
|00000ee0| 2d 6e 69 6c 2c 20 73 69 | 67 6e 61 6c 20 61 6e 20 |-nil, si|gnal an |
|00000ef0| 65 72 72 6f 72 20 69 66 | 20 74 68 65 20 69 6e 73 |error if| the ins|
|00000f00| 74 2d 6c 69 73 74 20 69 | 73 20 69 6e 76 61 6c 69 |t-list i|s invali|
|00000f10| 64 3b 0a 6f 74 68 65 72 | 77 69 73 65 20 72 65 74 |d;.other|wise ret|
|00000f20| 75 72 6e 20 74 2e 22 5d | 29 0a 28 66 73 65 74 20 |urn t."]|).(fset |
|00000f30| 27 63 61 6e 6f 6e 69 63 | 61 6c 69 7a 65 2d 73 70 |'canonic|alize-sp|
|00000f40| 65 63 20 23 5b 28 73 70 | 65 63 20 73 70 65 63 69 |ec #[(sp|ec speci|
|00000f50| 66 69 65 72 2d 74 79 70 | 65 20 26 6f 70 74 69 6f |fier-typ|e &optio|
|00000f60| 6e 61 6c 20 6e 6f 65 72 | 72 6f 72 29 20 22 c0 09 |nal noer|ror) "..|
|00000f70| 5c 6e c3 23 89 1c c3 3d | ac 85 c5 0c 42 aa bc 09 |\n.#...=|....B...|
|00000f80| 3a ac 8d 0e 06 ab 83 c3 | aa b1 c7 09 5c 6e 5c 22 |:.......|....\n\"|
|00000f90| aa ab c8 09 40 21 ac 90 | 0e 06 ab 83 c3 aa 9e c9 |....@!..|........|
|00000fa0| ca cb 09 40 44 5c 22 aa | 95 c0 09 41 5c 6e 0e 06 |...@D\".|...A\n..|
|00000fb0| 23 89 1c c3 3d ab 83 c3 | aa 84 09 40 0c 42 29 29 |#...=...|...@.B))|
|00000fc0| 87 22 20 5b 63 61 6e 6f | 6e 69 63 61 6c 69 7a 65 |." [cano|nicalize|
|00000fd0| 2d 69 6e 73 74 2d 6c 69 | 73 74 20 73 70 65 63 20 |-inst-li|st spec |
|00000fe0| 73 70 65 63 69 66 69 65 | 72 2d 74 79 70 65 20 74 |specifie|r-type t|
|00000ff0| 20 72 65 73 75 6c 74 20 | 67 6c 6f 62 61 6c 20 6e | result |global n|
|00001000| 6f 65 72 72 6f 72 20 63 | 68 65 63 6b 2d 76 61 6c |oerror c|heck-val|
|00001010| 69 64 2d 69 6e 73 74 61 | 6e 74 69 61 74 6f 72 20 |id-insta|ntiator |
|00001020| 76 61 6c 69 64 2d 73 70 | 65 63 69 66 69 65 72 2d |valid-sp|ecifier-|
|00001030| 6c 6f 63 61 6c 65 2d 70 | 20 73 69 67 6e 61 6c 20 |locale-p| signal |
|00001040| 65 72 72 6f 72 20 22 49 | 6e 76 61 6c 69 64 20 73 |error "I|nvalid s|
|00001050| 70 65 63 69 66 69 65 72 | 20 6c 6f 63 61 6c 65 22 |pecifier| locale"|
|00001060| 5d 20 35 20 22 5c 0a 43 | 61 6e 6f 6e 69 63 61 6c |] 5 "\.C|anonical|
|00001070| 69 7a 65 20 74 68 65 20 | 67 69 76 65 6e 20 53 50 |ize the |given SP|
|00001080| 45 43 20 28 61 20 73 70 | 65 63 69 66 69 63 61 74 |EC (a sp|ecificat|
|00001090| 69 6f 6e 29 2e 0a 0a 53 | 50 45 43 49 46 49 45 52 |ion)...S|PECIFIER|
|000010a0| 2d 54 59 50 45 20 73 70 | 65 63 69 66 69 65 73 20 |-TYPE sp|ecifies |
|000010b0| 74 68 65 20 74 79 70 65 | 20 6f 66 20 73 70 65 63 |the type| of spec|
|000010c0| 69 66 69 65 72 20 74 68 | 61 74 20 74 68 69 73 20 |ifier th|at this |
|000010d0| 53 50 45 43 2d 4c 49 53 | 54 0a 77 69 6c 6c 20 62 |SPEC-LIS|T.will b|
|000010e0| 65 20 75 73 65 64 20 66 | 6f 72 2e 0a 0a 43 61 6e |e used f|or...Can|
|000010f0| 6f 6e 69 63 61 6c 69 7a | 69 6e 67 20 6d 65 61 6e |onicaliz|ing mean|
|00001100| 73 20 63 6f 6e 76 65 72 | 74 69 6e 67 20 74 6f 20 |s conver|ting to |
|00001110| 74 68 65 20 66 75 6c 6c | 20 66 6f 72 6d 20 66 6f |the full| form fo|
|00001120| 72 20 61 20 73 70 65 63 | 2c 20 69 2e 65 2e 0a 60 |r a spec|, i.e..`|
|00001130| 28 4c 4f 43 41 4c 45 20 | 28 54 41 47 2d 53 45 54 |(LOCALE |(TAG-SET|
|00001140| 20 2e 20 49 4e 53 54 41 | 4e 54 49 41 54 4f 52 29 | . INSTA|NTIATOR)|
|00001150| 20 2e 2e 2e 29 27 2e 20 | 20 54 68 69 73 20 66 75 | ...)'. | This fu|
|00001160| 6e 63 74 69 6f 6e 20 61 | 63 63 65 70 74 73 20 61 |nction a|ccepts a|
|00001170| 0a 70 6f 73 73 69 62 6c | 79 20 61 62 62 72 65 76 |.possibl|y abbrev|
|00001180| 69 61 74 65 64 20 69 6e | 73 74 2d 6c 69 73 74 20 |iated in|st-list |
|00001190| 6f 72 20 61 20 63 6f 6e | 73 20 6f 66 20 61 20 6c |or a con|s of a l|
|000011a0| 6f 63 61 6c 65 20 61 6e | 64 20 61 20 70 6f 73 73 |ocale an|d a poss|
|000011b0| 69 62 6c 79 0a 61 62 62 | 72 65 76 69 61 74 65 64 |ibly.abb|reviated|
|000011c0| 20 69 6e 73 74 2d 6c 69 | 73 74 2e 20 28 53 65 65 | inst-li|st. (See|
|000011d0| 20 60 63 61 6e 6f 6e 69 | 63 61 6c 69 7a 65 2d 69 | `canoni|calize-i|
|000011e0| 6e 73 74 2d 6c 69 73 74 | 27 2e 29 0a 0a 49 66 20 |nst-list|'.)..If |
|000011f0| 4e 4f 45 52 52 4f 52 20 | 69 73 20 6e 69 6c 2c 20 |NOERROR |is nil, |
|00001200| 73 69 67 6e 61 6c 20 61 | 6e 20 65 72 72 6f 72 20 |signal a|n error |
|00001210| 69 66 20 74 68 65 20 73 | 70 65 63 69 66 69 63 61 |if the s|pecifica|
|00001220| 74 69 6f 6e 20 69 73 20 | 69 6e 76 61 6c 69 64 3b |tion is |invalid;|
|00001230| 0a 6f 74 68 65 72 77 69 | 73 65 20 72 65 74 75 72 |.otherwi|se retur|
|00001240| 6e 20 74 2e 22 5d 29 0a | 28 66 73 65 74 20 27 63 |n t."]).|(fset 'c|
|00001250| 61 6e 6f 6e 69 63 61 6c | 69 7a 65 2d 73 70 65 63 |anonical|ize-spec|
|00001260| 2d 6c 69 73 74 20 23 5b | 28 73 70 65 63 2d 6c 69 |-list #[|(spec-li|
|00001270| 73 74 20 73 70 65 63 69 | 66 69 65 72 2d 74 79 70 |st speci|fier-typ|
|00001280| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 6e 6f 65 72 |e &optio|nal noer|
|00001290| 72 6f 72 29 20 22 c0 09 | 5c 6e c3 23 89 1c c3 3d |ror) "..|\n.#...=|
|000012a0| ac 84 0c 43 aa 93 09 3a | ac 8c 0d ab 83 c3 aa 89 |...C...:|........|
|000012b0| c6 09 5c 6e 5c 22 aa 83 | c7 c8 8d 29 87 22 20 5b |..\n\"..|...)." [|
|000012c0| 63 61 6e 6f 6e 69 63 61 | 6c 69 7a 65 2d 73 70 65 |canonica|lize-spe|
|000012d0| 63 20 73 70 65 63 2d 6c | 69 73 74 20 73 70 65 63 |c spec-l|ist spec|
|000012e0| 69 66 69 65 72 2d 74 79 | 70 65 20 74 20 72 65 73 |ifier-ty|pe t res|
|000012f0| 75 6c 74 20 6e 6f 65 72 | 72 6f 72 20 63 68 65 63 |ult noer|ror chec|
|00001300| 6b 2d 76 61 6c 69 64 2d | 69 6e 73 74 61 6e 74 69 |k-valid-|instanti|
|00001310| 61 74 6f 72 20 63 61 6e | 6e 2d 73 70 65 63 2d 6c |ator can|n-spec-l|
|00001320| 69 73 74 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ist (byt|e-code "|
|00001330| 08 c1 1a 89 1b ab b8 0b | 3a ac 93 0c ab 87 c5 c6 |........|:.......|
|00001340| c7 5c 22 88 aa a4 c8 c9 | ca 08 44 5c 22 88 aa 9b |.\".....|..D\"...|
|00001350| cb 0b 40 0e 0c 0c 23 89 | 1e 0d c7 3d ab 87 c5 c6 |..@...#.|...=....|
|00001360| c7 5c 22 88 aa 85 0e 0d | 5c 6e 42 12 29 0b 41 89 |.\".....|\nB.).A.|
|00001370| 13 ac 48 5c 6e 9f 2a 87 | 22 20 5b 73 70 65 63 2d |..H\n.*.|" [spec-|
|00001380| 6c 69 73 74 20 6e 69 6c | 20 72 65 73 75 6c 74 20 |list nil| result |
|00001390| 72 65 73 74 20 6e 6f 65 | 72 72 6f 72 20 74 68 72 |rest noe|rror thr|
|000013a0| 6f 77 20 63 61 6e 6e 2d | 73 70 65 63 2d 6c 69 73 |ow cann-|spec-lis|
|000013b0| 74 20 74 20 73 69 67 6e | 61 6c 20 65 72 72 6f 72 |t t sign|al error|
|000013c0| 20 22 49 6e 76 61 6c 69 | 64 20 6c 69 73 74 20 66 | "Invali|d list f|
|000013d0| 6f 72 6d 61 74 22 20 63 | 61 6e 6f 6e 69 63 61 6c |ormat" c|anonical|
|000013e0| 69 7a 65 2d 73 70 65 63 | 20 73 70 65 63 69 66 69 |ize-spec| specifi|
|000013f0| 65 72 2d 74 79 70 65 20 | 72 65 73 32 5d 20 35 29 |er-type |res2] 5)|
|00001400| 5d 20 35 20 22 5c 0a 43 | 61 6e 6f 6e 69 63 61 6c |] 5 "\.C|anonical|
|00001410| 69 7a 65 20 74 68 65 20 | 67 69 76 65 6e 20 53 50 |ize the |given SP|
|00001420| 45 43 2d 4c 49 53 54 20 | 28 61 20 6c 69 73 74 20 |EC-LIST |(a list |
|00001430| 6f 66 20 73 70 65 63 69 | 66 69 63 61 74 69 6f 6e |of speci|fication|
|00001440| 73 29 2e 0a 0a 53 50 45 | 43 49 46 49 45 52 2d 54 |s)...SPE|CIFIER-T|
|00001450| 59 50 45 20 73 70 65 63 | 69 66 69 65 73 20 74 68 |YPE spec|ifies th|
|00001460| 65 20 74 79 70 65 20 6f | 66 20 73 70 65 63 69 66 |e type o|f specif|
|00001470| 69 65 72 20 74 68 61 74 | 20 74 68 69 73 20 53 50 |ier that| this SP|
|00001480| 45 43 2d 4c 49 53 54 0a | 77 69 6c 6c 20 62 65 20 |EC-LIST.|will be |
|00001490| 75 73 65 64 20 66 6f 72 | 2e 0a 0a 43 61 6e 6f 6e |used for|...Canon|
|000014a0| 69 63 61 6c 69 7a 69 6e | 67 20 6d 65 61 6e 73 20 |icalizin|g means |
|000014b0| 63 6f 6e 76 65 72 74 69 | 6e 67 20 74 6f 20 74 68 |converti|ng to th|
|000014c0| 65 20 66 75 6c 6c 20 66 | 6f 72 6d 20 66 6f 72 20 |e full f|orm for |
|000014d0| 61 20 73 70 65 63 2d 6c | 69 73 74 2c 20 69 2e 65 |a spec-l|ist, i.e|
|000014e0| 2e 0a 60 28 28 4c 4f 43 | 41 4c 45 20 28 54 41 47 |..`((LOC|ALE (TAG|
|000014f0| 2d 53 45 54 20 2e 20 49 | 4e 53 54 41 4e 54 49 41 |-SET . I|NSTANTIA|
|00001500| 54 4f 52 29 20 2e 2e 2e | 29 20 2e 2e 2e 29 27 2e |TOR) ...|) ...)'.|
|00001510| 20 20 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |  This f|unction |
|00001520| 61 63 63 65 70 74 73 0a | 61 20 70 6f 73 73 69 62 |accepts.|a possib|
|00001530| 6c 79 20 61 62 62 72 65 | 76 69 61 74 65 64 20 73 |ly abbre|viated s|
|00001540| 70 65 63 69 66 69 63 61 | 74 69 6f 6e 20 6f 72 20 |pecifica|tion or |
|00001550| 61 20 6c 69 73 74 20 6f | 66 20 73 75 63 68 20 74 |a list o|f such t|
|00001560| 68 69 6e 67 73 2e 20 28 | 53 65 65 0a 60 63 61 6e |hings. (|See.`can|
|00001570| 6f 6e 69 63 61 6c 69 7a | 65 2d 73 70 65 63 27 2e |onicaliz|e-spec'.|
|00001580| 29 20 54 68 69 73 20 69 | 73 20 74 68 65 20 66 75 |) This i|s the fu|
|00001590| 6e 63 74 69 6f 6e 20 75 | 73 65 64 20 74 6f 20 63 |nction u|sed to c|
|000015a0| 6f 6e 76 65 72 74 20 73 | 70 65 63 2d 6c 69 73 74 |onvert s|pec-list|
|000015b0| 73 0a 61 63 63 65 70 74 | 65 64 20 62 79 20 60 73 |s.accept|ed by `s|
|000015c0| 65 74 2d 73 70 65 63 69 | 66 69 65 72 27 20 61 6e |et-speci|fier' an|
|000015d0| 64 20 73 75 63 68 20 69 | 6e 74 6f 20 61 20 66 6f |d such i|nto a fo|
|000015e0| 72 6d 20 73 75 69 74 61 | 62 6c 65 20 66 6f 72 0a |rm suita|ble for.|
|000015f0| 60 61 64 64 2d 73 70 65 | 63 2d 6c 69 73 74 2d 74 |`add-spe|c-list-t|
|00001600| 6f 2d 73 70 65 63 69 66 | 69 65 72 27 2e 0a 0a 54 |o-specif|ier'...T|
|00001610| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 74 72 69 |his func|tion tri|
|00001620| 65 73 20 65 78 74 72 65 | 6d 65 6c 79 20 68 61 72 |es extre|mely har|
|00001630| 64 20 74 6f 20 72 65 73 | 6f 6c 76 65 20 61 6e 79 |d to res|olve any|
|00001640| 20 61 6d 62 69 67 75 69 | 74 69 65 73 2c 0a 61 6e | ambigui|ties,.an|
|00001650| 64 20 74 68 65 20 62 75 | 69 6c 74 2d 69 6e 20 73 |d the bu|ilt-in s|
|00001660| 70 65 63 69 66 69 65 72 | 20 74 79 70 65 73 20 28 |pecifier| types (|
|00001670| 66 6f 6e 74 2c 20 69 6d | 61 67 65 2c 20 74 6f 6f |font, im|age, too|
|00001680| 6c 62 61 72 2c 20 65 74 | 63 2e 29 20 61 72 65 0a |lbar, et|c.) are.|
|00001690| 64 65 73 69 67 6e 65 64 | 20 73 6f 20 74 68 61 74 |designed| so that|
|000016a0| 20 74 68 65 72 65 20 77 | 6f 6e 27 74 20 62 65 20 | there w|on't be |
|000016b0| 61 6e 79 20 61 6d 62 69 | 67 75 69 74 69 65 73 2e |any ambi|guities.|
|000016c0| 0a 0a 49 66 20 4e 4f 45 | 52 52 4f 52 20 69 73 20 |..If NOE|RROR is |
|000016d0| 6e 69 6c 2c 20 73 69 67 | 6e 61 6c 20 61 6e 20 65 |nil, sig|nal an e|
|000016e0| 72 72 6f 72 20 69 66 20 | 74 68 65 20 73 70 65 63 |rror if |the spec|
|000016f0| 2d 6c 69 73 74 20 69 73 | 20 69 6e 76 61 6c 69 64 |-list is| invalid|
|00001700| 3b 0a 6f 74 68 65 72 77 | 69 73 65 20 72 65 74 75 |;.otherw|ise retu|
|00001710| 72 6e 20 74 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |rn t."])|.(fset '|
|00001720| 73 65 74 2d 73 70 65 63 | 69 66 69 65 72 20 23 5b |set-spec|ifier #[|
|00001730| 28 73 70 65 63 69 66 69 | 65 72 20 76 61 6c 75 65 |(specifi|er value|
|00001740| 20 26 6f 70 74 69 6f 6e | 61 6c 20 68 6f 77 2d 74 | &option|al how-t|
|00001750| 6f 2d 61 64 64 29 20 22 | c0 09 c2 0b c4 09 21 5c |o-add) "|......!\|
|00001760| 22 0d 23 87 22 20 5b 61 | 64 64 2d 73 70 65 63 2d |".#." [a|dd-spec-|
|00001770| 6c 69 73 74 2d 74 6f 2d | 73 70 65 63 69 66 69 65 |list-to-|specifie|
|00001780| 72 20 73 70 65 63 69 66 | 69 65 72 20 63 61 6e 6f |r specif|ier cano|
|00001790| 6e 69 63 61 6c 69 7a 65 | 2d 73 70 65 63 2d 6c 69 |nicalize|-spec-li|
|000017a0| 73 74 20 76 61 6c 75 65 | 20 73 70 65 63 69 66 69 |st value| specifi|
|000017b0| 65 72 2d 74 79 70 65 20 | 68 6f 77 2d 74 6f 2d 61 |er-type |how-to-a|
|000017c0| 64 64 5d 20 36 20 22 5c | 0a 41 64 64 20 73 6f 6d |dd] 6 "\|.Add som|
|000017d0| 65 20 73 70 65 63 69 66 | 69 63 61 74 69 6f 6e 73 |e specif|ications|
|000017e0| 20 74 6f 20 53 50 45 43 | 49 46 49 45 52 2e 0a 56 | to SPEC|IFIER..V|
|000017f0| 41 4c 55 45 20 63 61 6e | 20 62 65 20 61 20 73 69 |ALUE can| be a si|
|00001800| 6e 67 6c 65 20 69 6e 73 | 74 61 6e 74 69 61 74 6f |ngle ins|tantiato|
|00001810| 72 20 6f 72 20 74 61 67 | 67 65 64 20 69 6e 73 74 |r or tag|ged inst|
|00001820| 61 6e 74 69 61 74 6f 72 | 20 28 61 64 64 65 64 20 |antiator| (added |
|00001830| 61 73 20 61 0a 67 6c 6f | 62 61 6c 20 73 70 65 63 |as a.glo|bal spec|
|00001840| 69 66 69 63 61 74 69 6f | 6e 29 2c 20 61 20 6c 69 |ificatio|n), a li|
|00001850| 73 74 20 6f 66 20 74 61 | 67 67 65 64 20 61 6e 64 |st of ta|gged and|
|00001860| 2f 6f 72 20 75 6e 74 61 | 67 67 65 64 20 69 6e 73 |/or unta|gged ins|
|00001870| 74 61 6e 74 69 61 74 6f | 72 73 0a 28 61 64 64 65 |tantiato|rs.(adde|
|00001880| 64 20 61 73 20 61 20 67 | 6c 6f 62 61 6c 20 73 70 |d as a g|lobal sp|
|00001890| 65 63 69 66 69 63 61 74 | 69 6f 6e 29 2c 20 61 20 |ecificat|ion), a |
|000018a0| 63 6f 6e 73 20 6f 66 20 | 61 20 6c 6f 63 61 6c 65 |cons of |a locale|
|000018b0| 20 61 6e 64 20 69 6e 73 | 74 61 6e 74 69 61 74 6f | and ins|tantiato|
|000018c0| 72 0a 6f 72 20 6c 6f 63 | 61 6c 65 20 61 6e 64 20 |r.or loc|ale and |
|000018d0| 69 6e 73 74 61 6e 74 69 | 61 74 6f 72 20 6c 69 73 |instanti|ator lis|
|000018e0| 74 2c 20 61 20 6c 69 73 | 74 20 6f 66 20 73 75 63 |t, a lis|t of suc|
|000018f0| 68 20 63 6f 6e 73 65 73 | 2c 20 6f 72 20 6e 65 61 |h conses|, or nea|
|00001900| 72 6c 79 20 61 6e 79 0a | 6f 74 68 65 72 20 72 65 |rly any.|other re|
|00001910| 61 73 6f 6e 61 62 6c 65 | 20 66 6f 72 6d 2e 20 20 |asonable| form.  |
|00001920| 4d 6f 72 65 20 73 70 65 | 63 69 66 69 63 61 6c 6c |More spe|cificall|
|00001930| 79 2c 20 56 41 4c 55 45 | 20 63 61 6e 20 62 65 20 |y, VALUE| can be |
|00001940| 61 6e 79 74 68 69 6e 67 | 0a 61 63 63 65 70 74 65 |anything|.accepte|
|00001950| 64 20 62 79 20 60 63 61 | 6e 6f 6e 69 63 61 6c 69 |d by `ca|nonicali|
|00001960| 7a 65 2d 73 70 65 63 2d | 6c 69 73 74 27 2e 0a 0a |ze-spec-|list'...|
|00001970| 48 4f 57 2d 54 4f 2d 41 | 44 44 20 69 73 20 74 68 |HOW-TO-A|DD is th|
|00001980| 65 20 73 61 6d 65 20 61 | 73 20 69 6e 20 60 61 64 |e same a|s in `ad|
|00001990| 64 2d 73 70 65 63 2d 74 | 6f 2d 73 70 65 63 69 66 |d-spec-t|o-specif|
|000019a0| 69 65 72 27 2e 0a 0a 4e | 6f 74 65 20 74 68 61 74 |ier'...N|ote that|
|000019b0| 20 60 73 65 74 2d 73 70 | 65 63 69 66 69 65 72 27 | `set-sp|ecifier'|
|000019c0| 20 69 73 20 65 78 61 63 | 74 6c 79 20 63 6f 6d 70 | is exac|tly comp|
|000019d0| 6c 65 6d 65 6e 74 61 72 | 79 20 74 6f 20 60 73 70 |lementar|y to `sp|
|000019e0| 65 63 69 66 69 65 72 2d | 73 70 65 63 73 27 0a 65 |ecifier-|specs'.e|
|000019f0| 78 63 65 70 74 20 69 6e | 20 74 68 65 20 63 61 73 |xcept in| the cas|
|00001a00| 65 20 77 68 65 72 65 20 | 53 50 45 43 49 46 49 45 |e where |SPECIFIE|
|00001a10| 52 20 68 61 73 20 6e 6f | 20 73 70 65 63 73 20 61 |R has no| specs a|
|00001a20| 74 20 61 6c 6c 20 69 6e | 20 69 74 20 62 75 74 20 |t all in| it but |
|00001a30| 6e 69 6c 0a 69 73 20 61 | 20 76 61 6c 69 64 20 69 |nil.is a| valid i|
|00001a40| 6e 73 74 61 6e 74 69 61 | 74 6f 72 20 28 69 6e 20 |nstantia|tor (in |
|00001a50| 74 68 61 74 20 63 61 73 | 65 2c 20 60 73 70 65 63 |that cas|e, `spec|
|00001a60| 69 66 69 65 72 2d 73 70 | 65 63 73 27 20 77 69 6c |ifier-sp|ecs' wil|
|00001a70| 6c 20 72 65 74 75 72 6e | 0a 6e 69 6c 20 28 6d 65 |l return|.nil (me|
|00001a80| 61 6e 69 6e 67 20 6e 6f | 20 73 70 65 63 73 29 20 |aning no| specs) |
|00001a90| 61 6e 64 20 60 73 65 74 | 2d 73 70 65 63 69 66 69 |and `set|-specifi|
|00001aa0| 65 72 27 20 77 69 6c 6c | 20 69 6e 74 65 72 70 72 |er' will| interpr|
|00001ab0| 65 74 20 74 68 65 20 60 | 6e 69 6c 27 0a 61 73 20 |et the `|nil'.as |
|00001ac0| 6d 65 61 6e 69 6e 67 20 | 5c 22 49 27 6d 20 61 64 |meaning |\"I'm ad|
|00001ad0| 64 69 6e 67 20 61 20 67 | 6c 6f 62 61 6c 20 69 6e |ding a g|lobal in|
|00001ae0| 73 74 61 6e 74 69 61 74 | 6f 72 20 61 6e 64 20 69 |stantiat|or and i|
|00001af0| 74 73 20 76 61 6c 75 65 | 20 69 73 20 60 6e 69 6c |ts value| is `nil|
|00001b00| 27 5c 22 29 2c 0a 6f 72 | 20 69 6e 20 73 74 72 61 |'\"),.or| in stra|
|00001b10| 6e 67 65 20 63 61 73 65 | 73 20 77 68 65 72 65 20 |nge case|s where |
|00001b20| 74 68 65 72 65 20 69 73 | 20 61 6e 20 61 6d 62 69 |there is| an ambi|
|00001b30| 67 75 69 74 79 20 62 65 | 74 77 65 65 6e 20 61 20 |guity be|tween a |
|00001b40| 73 70 65 63 2d 6c 69 73 | 74 0a 61 6e 64 20 61 6e |spec-lis|t.and an|
|00001b50| 20 69 6e 73 74 2d 6c 69 | 73 74 2c 20 65 74 63 2e | inst-li|st, etc.|
|00001b60| 20 28 54 68 65 20 62 75 | 69 6c 74 2d 69 6e 20 73 | (The bu|ilt-in s|
|00001b70| 70 65 63 69 66 69 65 72 | 20 74 79 70 65 73 20 61 |pecifier| types a|
|00001b80| 72 65 20 64 65 73 69 67 | 6e 65 64 0a 69 6e 20 73 |re desig|ned.in s|
|00001b90| 75 63 68 20 61 20 77 61 | 79 20 61 73 20 74 6f 20 |uch a wa|y as to |
|00001ba0| 61 76 6f 69 64 20 61 6e | 79 20 73 75 63 68 20 61 |avoid an|y such a|
|00001bb0| 6d 62 69 67 75 69 74 69 | 65 73 2e 29 0a 0a 49 66 |mbiguiti|es.)..If|
|00001bc0| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 77 6f 72 | you wan|t to wor|
|00001bd0| 6b 20 77 69 74 68 20 73 | 70 65 63 2d 6c 69 73 74 |k with s|pec-list|
|00001be0| 73 2c 20 79 6f 75 20 73 | 68 6f 75 6c 64 20 70 72 |s, you s|hould pr|
|00001bf0| 6f 62 61 62 6c 79 20 6e | 6f 74 20 75 73 65 20 74 |obably n|ot use t|
|00001c00| 68 65 73 65 0a 66 75 6e | 63 74 69 6f 6e 73 2c 20 |hese.fun|ctions, |
|00001c10| 62 75 74 20 73 68 6f 75 | 6c 64 20 75 73 65 20 74 |but shou|ld use t|
|00001c20| 68 65 20 6c 6f 77 65 72 | 2d 6c 65 76 65 6c 20 66 |he lower|-level f|
|00001c30| 75 6e 63 74 69 6f 6e 73 | 20 60 73 70 65 63 69 66 |unctions| `specif|
|00001c40| 69 65 72 2d 73 70 65 63 | 2d 6c 69 73 74 27 0a 61 |ier-spec|-list'.a|
|00001c50| 6e 64 20 60 61 64 64 2d | 73 70 65 63 2d 6c 69 73 |nd `add-|spec-lis|
|00001c60| 74 2d 74 6f 2d 73 70 65 | 63 69 66 69 65 72 27 2e |t-to-spe|cifier'.|
|00001c70| 20 20 54 68 65 73 65 20 | 66 75 6e 63 74 69 6f 6e |  These |function|
|00001c80| 73 20 61 6c 77 61 79 73 | 20 77 6f 72 6b 20 77 69 |s always| work wi|
|00001c90| 74 68 0a 66 75 6c 6c 79 | 2d 71 75 61 6c 69 66 69 |th.fully|-qualifi|
|00001ca0| 65 64 20 73 70 65 63 2d | 6c 69 73 74 73 3b 20 74 |ed spec-|lists; t|
|00001cb0| 68 75 73 2c 20 74 68 65 | 72 65 20 69 73 20 6e 6f |hus, the|re is no|
|00001cc0| 20 70 6f 73 73 69 62 69 | 6c 69 74 79 20 66 6f 72 | possibi|lity for|
|00001cd0| 0a 61 6d 62 69 67 75 69 | 74 79 20 61 6e 64 20 6e |.ambigui|ty and n|
|00001ce0| 6f 20 6e 65 65 64 20 74 | 6f 20 67 6f 20 74 68 72 |o need t|o go thr|
|00001cf0| 6f 75 67 68 20 74 68 65 | 20 66 75 6e 63 74 69 6f |ough the| functio|
|00001d00| 6e 20 60 63 61 6e 6f 6e | 69 63 61 6c 69 7a 65 2d |n `canon|icalize-|
|00001d10| 73 70 65 63 2d 6c 69 73 | 74 27 2c 0a 77 68 69 63 |spec-lis|t',.whic|
|00001d20| 68 20 69 73 20 70 6f 74 | 65 6e 74 69 61 6c 6c 79 |h is pot|entially|
|00001d30| 20 74 69 6d 65 2d 63 6f | 6e 73 75 6d 69 6e 67 2e | time-co|nsuming.|
|00001d40| 22 5d 29 0a             |                         |"]).    |        |
+--------+-------------------------+-------------------------+--------+--------+