/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume10 / comobj.lisp / part10

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 75 75 | 6e 65 74 21 72 73 0a 46 |Path: uu|net!rs.F|
|00000010| 72 6f 6d 3a 20 72 73 40 | 75 75 6e 65 74 2e 55 55 |rom: rs@|uunet.UU|
|00000020| 2e 4e 45 54 20 28 52 69 | 63 68 20 53 61 6c 7a 29 |.NET (Ri|ch Salz)|
|00000030| 0a 4e 65 77 73 67 72 6f | 75 70 73 3a 20 63 6f 6d |.Newsgro|ups: com|
|00000040| 70 2e 73 6f 75 72 63 65 | 73 2e 75 6e 69 78 0a 53 |p.source|s.unix.S|
|00000050| 75 62 6a 65 63 74 3a 20 | 76 31 30 69 30 38 34 3a |ubject: |v10i084:|
|00000060| 20 20 43 6f 6d 6d 6f 6e | 20 4f 62 6a 65 63 74 73 |  Common| Objects|
|00000070| 2c 20 43 6f 6d 6d 6f 6e | 20 4c 6f 6f 70 73 2c 20 |, Common| Loops, |
|00000080| 43 6f 6d 6d 6f 6e 20 4c | 69 73 70 2c 20 50 61 72 |Common L|isp, Par|
|00000090| 74 31 30 2f 31 33 0a 4d | 65 73 73 61 67 65 2d 49 |t10/13.M|essage-I|
|000000a0| 44 3a 20 3c 37 35 35 40 | 75 75 6e 65 74 2e 55 55 |D: <755@|uunet.UU|
|000000b0| 2e 4e 45 54 3e 0a 44 61 | 74 65 3a 20 33 20 41 75 |.NET>.Da|te: 3 Au|
|000000c0| 67 20 38 37 20 32 31 3a | 31 37 3a 35 36 20 47 4d |g 87 21:|17:56 GM|
|000000d0| 54 0a 4f 72 67 61 6e 69 | 7a 61 74 69 6f 6e 3a 20 |T.Organi|zation: |
|000000e0| 55 55 4e 45 54 20 43 6f | 6d 6d 75 6e 69 63 61 74 |UUNET Co|mmunicat|
|000000f0| 69 6f 6e 73 20 53 65 72 | 76 69 63 65 73 2c 20 41 |ions Ser|vices, A|
|00000100| 72 6c 69 6e 67 74 6f 6e | 2c 20 56 41 0a 4c 69 6e |rlington|, VA.Lin|
|00000110| 65 73 3a 20 38 37 37 0a | 41 70 70 72 6f 76 65 64 |es: 877.|Approved|
|00000120| 3a 20 72 73 40 75 75 6e | 65 74 2e 55 55 2e 4e 45 |: rs@uun|et.UU.NE|
|00000130| 54 0a 0a 53 75 62 6d 69 | 74 74 65 64 2d 62 79 3a |T..Submi|tted-by:|
|00000140| 20 52 6f 79 20 44 27 53 | 6f 75 7a 61 20 3c 64 73 | Roy D'S|ouza <ds|
|00000150| 6f 75 7a 61 25 68 70 6c | 61 62 73 63 40 68 70 6c |ouza%hpl|absc@hpl|
|00000160| 61 62 73 2e 48 50 2e 43 | 4f 4d 3e 0a 50 6f 73 74 |abs.HP.C|OM>.Post|
|00000170| 69 6e 67 2d 6e 75 6d 62 | 65 72 3a 20 56 6f 6c 75 |ing-numb|er: Volu|
|00000180| 6d 65 20 31 30 2c 20 49 | 73 73 75 65 20 38 34 0a |me 10, I|ssue 84.|
|00000190| 41 72 63 68 69 76 65 2d | 6e 61 6d 65 3a 20 63 6f |Archive-|name: co|
|000001a0| 6d 6f 62 6a 2e 6c 69 73 | 70 2f 50 61 72 74 31 30 |mobj.lis|p/Part10|
|000001b0| 0a 0a 23 21 20 2f 62 69 | 6e 2f 73 68 0a 23 20 54 |..#! /bi|n/sh.# T|
|000001c0| 68 69 73 20 69 73 20 61 | 20 73 68 65 6c 6c 20 61 |his is a| shell a|
|000001d0| 72 63 68 69 76 65 2e 20 | 20 52 65 6d 6f 76 65 20 |rchive. | Remove |
|000001e0| 61 6e 79 74 68 69 6e 67 | 20 62 65 66 6f 72 65 20 |anything| before |
|000001f0| 74 68 69 73 20 6c 69 6e | 65 2c 20 74 68 65 6e 20 |this lin|e, then |
|00000200| 75 6e 70 61 63 6b 0a 23 | 20 69 74 20 62 79 20 73 |unpack.#| it by s|
|00000210| 61 76 69 6e 67 20 69 74 | 20 69 6e 74 6f 20 61 20 |aving it| into a |
|00000220| 66 69 6c 65 20 61 6e 64 | 20 74 79 70 69 6e 67 20 |file and| typing |
|00000230| 22 73 68 20 66 69 6c 65 | 22 2e 20 20 54 6f 20 6f |"sh file|".  To o|
|00000240| 76 65 72 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |verwrite| existin|
|00000250| 67 0a 23 20 66 69 6c 65 | 73 2c 20 74 79 70 65 20 |g.# file|s, type |
|00000260| 22 73 68 20 66 69 6c 65 | 20 2d 63 22 2e 20 20 59 |"sh file| -c".  Y|
|00000270| 6f 75 20 63 61 6e 20 61 | 6c 73 6f 20 66 65 65 64 |ou can a|lso feed|
|00000280| 20 74 68 69 73 20 61 73 | 20 73 74 61 6e 64 61 72 | this as| standar|
|00000290| 64 20 69 6e 70 75 74 20 | 76 69 61 0a 23 20 75 6e |d input |via.# un|
|000002a0| 73 68 61 72 2c 20 6f 72 | 20 62 79 20 74 79 70 69 |shar, or| by typi|
|000002b0| 6e 67 20 22 73 68 20 3c | 66 69 6c 65 22 2c 20 65 |ng "sh <|file", e|
|000002c0| 2e 67 2e 2e 20 20 49 66 | 20 74 68 69 73 20 61 72 |.g..  If| this ar|
|000002d0| 63 68 69 76 65 20 69 73 | 20 63 6f 6d 70 6c 65 74 |chive is| complet|
|000002e0| 65 2c 20 79 6f 75 0a 23 | 20 77 69 6c 6c 20 73 65 |e, you.#| will se|
|000002f0| 65 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |e the fo|llowing |
|00000300| 6d 65 73 73 61 67 65 20 | 61 74 20 74 68 65 20 65 |message |at the e|
|00000310| 6e 64 3a 0a 23 09 09 22 | 45 6e 64 20 6f 66 20 61 |nd:.#.."|End of a|
|00000320| 72 63 68 69 76 65 20 31 | 30 20 28 6f 66 20 31 33 |rchive 1|0 (of 13|
|00000330| 29 2e 22 0a 23 20 43 6f | 6e 74 65 6e 74 73 3a 20 |).".# Co|ntents: |
|00000340| 20 62 72 61 69 64 2e 6c | 0a 50 41 54 48 3d 2f 62 | braid.l|.PATH=/b|
|00000350| 69 6e 3a 2f 75 73 72 2f | 62 69 6e 3a 2f 75 73 72 |in:/usr/|bin:/usr|
|00000360| 2f 75 63 62 20 3b 20 65 | 78 70 6f 72 74 20 50 41 |/ucb ; e|xport PA|
|00000370| 54 48 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 62 |TH.if te|st -f 'b|
|00000380| 72 61 69 64 2e 6c 27 20 | 2d 61 20 22 24 7b 31 7d |raid.l' |-a "${1}|
|00000390| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|000003a0| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | .  echo| shar: W|
|000003b0| 69 6c 6c 20 6e 6f 74 20 | 63 6c 6f 62 62 65 72 20 |ill not |clobber |
|000003c0| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 5c 22 |existing| file \"|
|000003d0| 27 62 72 61 69 64 2e 6c | 27 5c 22 0a 65 6c 73 65 |'braid.l|'\".else|
|000003e0| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 45 78 74 72 |.echo sh|ar: Extr|
|000003f0| 61 63 74 69 6e 67 20 5c | 22 27 62 72 61 69 64 2e |acting \|"'braid.|
|00000400| 6c 27 5c 22 20 5c 28 33 | 34 32 35 30 20 63 68 61 |l'\" \(3|4250 cha|
|00000410| 72 61 63 74 65 72 73 5c | 29 0a 73 65 64 20 22 73 |racters\|).sed "s|
|00000420| 2f 5e 58 2f 2f 22 20 3e | 27 62 72 61 69 64 2e 6c |/^X//" >|'braid.l|
|00000430| 27 20 3c 3c 27 45 4e 44 | 5f 4f 46 5f 46 49 4c 45 |' <<'END|_OF_FILE|
|00000440| 27 0a 58 3b 3b 3b 2d 2a | 2d 4d 6f 64 65 3a 4c 49 |'.X;;;-*|-Mode:LI|
|00000450| 53 50 3b 20 50 61 63 6b | 61 67 65 3a 28 50 43 4c |SP; Pack|age:(PCL|
|00000460| 20 28 4c 49 53 50 20 57 | 41 4c 4b 45 52 29 29 3b | (LISP W|ALKER));|
|00000470| 20 42 61 73 65 3a 31 30 | 3b 20 53 79 6e 74 61 78 | Base:10|; Syntax|
|00000480| 3a 43 6f 6d 6d 6f 6e 2d | 6c 69 73 70 20 2d 2a 2d |:Common-|lisp -*-|
|00000490| 0a 58 3b 3b 3b 0a 58 3b | 3b 3b 20 2a 2a 2a 2a 2a |.X;;;.X;|;; *****|
|000004a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004e0| 2a 2a 2a 2a 0a 58 3b 3b | 3b 20 43 6f 70 79 72 69 |****.X;;|; Copyri|
|000004f0| 67 68 74 20 28 63 29 20 | 31 39 38 35 20 58 65 72 |ght (c) |1985 Xer|
|00000500| 6f 78 20 43 6f 72 70 6f | 72 61 74 69 6f 6e 2e 20 |ox Corpo|ration. |
|00000510| 20 41 6c 6c 20 72 69 67 | 68 74 73 20 72 65 73 65 | All rig|hts rese|
|00000520| 72 76 65 64 2e 0a 58 3b | 3b 3b 0a 58 3b 3b 3b 20 |rved..X;|;;.X;;; |
|00000530| 55 73 65 20 61 6e 64 20 | 63 6f 70 79 69 6e 67 20 |Use and |copying |
|00000540| 6f 66 20 74 68 69 73 20 | 73 6f 66 74 77 61 72 65 |of this |software|
|00000550| 20 61 6e 64 20 70 72 65 | 70 61 72 61 74 69 6f 6e | and pre|paration|
|00000560| 20 6f 66 20 64 65 72 69 | 76 61 74 69 76 65 20 77 | of deri|vative w|
|00000570| 6f 72 6b 73 0a 58 3b 3b | 3b 20 62 61 73 65 64 20 |orks.X;;|; based |
|00000580| 75 70 6f 6e 20 74 68 69 | 73 20 73 6f 66 74 77 61 |upon thi|s softwa|
|00000590| 72 65 20 61 72 65 20 70 | 65 72 6d 69 74 74 65 64 |re are p|ermitted|
|000005a0| 2e 20 20 41 6e 79 20 64 | 69 73 74 72 69 62 75 74 |.  Any d|istribut|
|000005b0| 69 6f 6e 20 6f 66 20 74 | 68 69 73 0a 58 3b 3b 3b |ion of t|his.X;;;|
|000005c0| 20 73 6f 66 74 77 61 72 | 65 20 6f 72 20 64 65 72 | softwar|e or der|
|000005d0| 69 76 61 74 69 76 65 20 | 77 6f 72 6b 73 20 6d 75 |ivative |works mu|
|000005e0| 73 74 20 63 6f 6d 70 6c | 79 20 77 69 74 68 20 61 |st compl|y with a|
|000005f0| 6c 6c 20 61 70 70 6c 69 | 63 61 62 6c 65 20 55 6e |ll appli|cable Un|
|00000600| 69 74 65 64 0a 58 3b 3b | 3b 20 53 74 61 74 65 73 |ited.X;;|; States|
|00000610| 20 65 78 70 6f 72 74 20 | 63 6f 6e 74 72 6f 6c 20 | export |control |
|00000620| 6c 61 77 73 2e 0a 58 3b | 3b 3b 20 0a 58 3b 3b 3b |laws..X;|;; .X;;;|
|00000630| 20 54 68 69 73 20 73 6f | 66 74 77 61 72 65 20 69 | This so|ftware i|
|00000640| 73 20 6d 61 64 65 20 61 | 76 61 69 6c 61 62 6c 65 |s made a|vailable|
|00000650| 20 41 53 20 49 53 2c 20 | 61 6e 64 20 58 65 72 6f | AS IS, |and Xero|
|00000660| 78 20 43 6f 72 70 6f 72 | 61 74 69 6f 6e 20 6d 61 |x Corpor|ation ma|
|00000670| 6b 65 73 20 6e 6f 0a 58 | 3b 3b 3b 20 77 61 72 72 |kes no.X|;;; warr|
|00000680| 61 6e 74 79 20 61 62 6f | 75 74 20 74 68 65 20 73 |anty abo|ut the s|
|00000690| 6f 66 74 77 61 72 65 2c | 20 69 74 73 20 70 65 72 |oftware,| its per|
|000006a0| 66 6f 72 6d 61 6e 63 65 | 20 6f 72 20 69 74 73 20 |formance| or its |
|000006b0| 63 6f 6e 66 6f 72 6d 69 | 74 79 20 74 6f 20 61 6e |conformi|ty to an|
|000006c0| 79 0a 58 3b 3b 3b 20 73 | 70 65 63 69 66 69 63 61 |y.X;;; s|pecifica|
|000006d0| 74 69 6f 6e 2e 0a 58 3b | 3b 3b 20 0a 58 3b 3b 3b |tion..X;|;; .X;;;|
|000006e0| 20 41 6e 79 20 70 65 72 | 73 6f 6e 20 6f 62 74 61 | Any per|son obta|
|000006f0| 69 6e 69 6e 67 20 61 20 | 63 6f 70 79 20 6f 66 20 |ining a |copy of |
|00000700| 74 68 69 73 20 73 6f 66 | 74 77 61 72 65 20 69 73 |this sof|tware is|
|00000710| 20 72 65 71 75 65 73 74 | 65 64 20 74 6f 20 73 65 | request|ed to se|
|00000720| 6e 64 20 74 68 65 69 72 | 0a 58 3b 3b 3b 20 6e 61 |nd their|.X;;; na|
|00000730| 6d 65 20 61 6e 64 20 70 | 6f 73 74 20 6f 66 66 69 |me and p|ost offi|
|00000740| 63 65 20 6f 72 20 65 6c | 65 63 74 72 6f 6e 69 63 |ce or el|ectronic|
|00000750| 20 6d 61 69 6c 20 61 64 | 64 72 65 73 73 20 74 6f | mail ad|dress to|
|00000760| 3a 0a 58 3b 3b 3b 20 20 | 20 43 6f 6d 6d 6f 6e 4c |:.X;;;  | CommonL|
|00000770| 6f 6f 70 73 20 43 6f 6f | 72 64 69 6e 61 74 6f 72 |oops Coo|rdinator|
|00000780| 0a 58 3b 3b 3b 20 20 20 | 58 65 72 6f 78 20 41 72 |.X;;;   |Xerox Ar|
|00000790| 74 69 66 69 63 61 6c 20 | 49 6e 74 65 6c 6c 69 67 |tifical |Intellig|
|000007a0| 65 6e 63 65 20 53 79 73 | 74 65 6d 73 0a 58 3b 3b |ence Sys|tems.X;;|
|000007b0| 3b 20 20 20 32 34 30 30 | 20 48 61 6e 6f 76 65 72 |;   2400| Hanover|
|000007c0| 20 53 74 2e 0a 58 3b 3b | 3b 20 20 20 50 61 6c 6f | St..X;;|;   Palo|
|000007d0| 20 41 6c 74 6f 2c 20 43 | 41 20 39 34 33 30 33 0a | Alto, C|A 94303.|
|000007e0| 58 3b 3b 3b 20 28 6f 72 | 20 73 65 6e 64 20 41 72 |X;;; (or| send Ar|
|000007f0| 70 61 6e 65 74 20 6d 61 | 69 6c 20 74 6f 20 43 6f |panet ma|il to Co|
|00000800| 6d 6d 6f 6e 4c 6f 6f 70 | 73 2d 43 6f 6f 72 64 69 |mmonLoop|s-Coordi|
|00000810| 6e 61 74 6f 72 2e 70 61 | 40 58 65 72 6f 78 2e 61 |nator.pa|@Xerox.a|
|00000820| 72 70 61 29 0a 58 3b 3b | 3b 0a 58 3b 3b 3b 20 53 |rpa).X;;|;.X;;; S|
|00000830| 75 67 67 65 73 74 69 6f | 6e 73 2c 20 63 6f 6d 6d |uggestio|ns, comm|
|00000840| 65 6e 74 73 20 61 6e 64 | 20 72 65 71 75 65 73 74 |ents and| request|
|00000850| 73 20 66 6f 72 20 69 6d | 70 72 6f 76 65 6d 65 6e |s for im|provemen|
|00000860| 74 73 20 61 72 65 20 61 | 6c 73 6f 20 77 65 6c 63 |ts are a|lso welc|
|00000870| 6f 6d 65 2e 0a 58 3b 3b | 3b 20 2a 2a 2a 2a 2a 2a |ome..X;;|; ******|
|00000880| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008c0| 2a 2a 2a 0a 58 3b 3b 3b | 0a 58 3b 3b 3b 20 54 68 |***.X;;;|.X;;; Th|
|000008d0| 65 20 6d 65 74 61 2d 62 | 72 61 69 64 20 61 6e 64 |e meta-b|raid and|
|000008e0| 20 64 65 66 73 74 72 75 | 63 74 2e 0a 58 3b 3b 3b | defstru|ct..X;;;|
|000008f0| 0a 58 3b 3b 3b 20 4e 4f | 54 45 3a 20 54 68 69 73 |.X;;; NO|TE: This|
|00000900| 20 66 69 6c 65 20 6d 75 | 73 74 20 62 65 20 6c 6f | file mu|st be lo|
|00000910| 61 64 65 64 20 62 65 66 | 6f 72 65 20 69 74 20 63 |aded bef|ore it c|
|00000920| 61 6e 20 62 65 20 63 6f | 6d 70 69 6c 65 64 2e 0a |an be co|mpiled..|
|00000930| 58 0a 58 23 7c 20 2a 2a | 2a 20 54 4f 20 44 4f 20 |X.X#| **|* TO DO |
|00000940| 2a 2a 2a 0a 58 0a 58 7c | 23 0a 58 28 69 6e 2d 70 |***.X.X||#.X(in-p|
|00000950| 61 63 6b 61 67 65 20 27 | 70 63 6c 29 0a 58 0a 58 |ackage '|pcl).X.X|
|00000960| 20 20 3b 3b 20 20 20 0a | 58 3b 3b 3b 3b 3b 3b 20 |  ;;   .|X;;;;;; |
|00000970| 4d 65 64 69 75 6d 2d 6c | 65 76 65 6c 20 73 75 70 |Medium-l|evel sup|
|00000980| 70 6f 72 74 20 66 6f 72 | 20 74 68 65 20 63 6c 61 |port for| the cla|
|00000990| 73 73 20 43 4c 41 53 53 | 2e 0a 58 20 20 3b 3b 20 |ss CLASS|..X  ;; |
|000009a0| 20 20 0a 58 3b 3b 3b 20 | 54 68 65 20 6c 6f 77 2d |  .X;;; |The low-|
|000009b0| 6c 65 76 65 6c 20 6d 61 | 63 72 6f 73 20 61 72 65 |level ma|cros are|
|000009c0| 20 64 65 66 69 6e 65 64 | 20 62 79 20 74 68 65 20 | defined| by the |
|000009d0| 66 69 6c 65 20 70 6f 72 | 74 61 62 6c 65 2d 6c 6f |file por|table-lo|
|000009e0| 77 20 28 6f 72 20 61 20 | 73 70 65 63 69 61 6c 0a |w (or a |special.|
|000009f0| 58 3b 3b 3b 20 76 65 72 | 73 69 6f 6e 29 20 6f 66 |X;;; ver|sion) of|
|00000a00| 20 74 68 61 74 20 66 69 | 6c 65 20 69 66 20 74 68 | that fi|le if th|
|00000a10| 65 72 65 20 69 73 20 6f | 6e 65 20 66 6f 72 20 74 |ere is o|ne for t|
|00000a20| 68 69 73 20 69 6d 70 6c | 65 6d 65 6e 74 61 74 69 |his impl|ementati|
|00000a30| 6f 6e 2e 20 20 54 68 69 | 73 20 69 73 0a 58 3b 3b |on.  Thi|s is.X;;|
|00000a40| 3b 20 74 68 65 20 6c 6f | 77 65 73 74 2d 6c 65 76 |; the lo|west-lev|
|00000a50| 65 6c 20 63 6f 6d 70 6c | 65 74 65 6c 79 20 70 6f |el compl|etely po|
|00000a60| 72 74 61 62 6c 65 20 63 | 6f 64 65 20 77 68 69 63 |rtable c|ode whic|
|00000a70| 68 20 6f 70 65 72 61 74 | 65 73 20 6f 6e 20 69 6e |h operat|es on in|
|00000a80| 73 74 61 6e 63 65 73 0a | 58 3b 3b 3b 20 77 69 74 |stances.|X;;; wit|
|00000a90| 68 20 6d 65 74 61 2d 63 | 6c 61 73 73 20 63 6c 61 |h meta-c|lass cla|
|00000aa0| 73 73 2e 0a 58 0a 58 28 | 64 65 66 6d 61 63 72 6f |ss..X.X(|defmacro|
|00000ab0| 20 67 65 74 2d 73 74 61 | 74 69 63 2d 73 6c 6f 74 | get-sta|tic-slot|
|00000ac0| 2d 2d 63 6c 61 73 73 20 | 28 69 77 6d 63 2d 63 6c |--class |(iwmc-cl|
|00000ad0| 61 73 73 20 73 6c 6f 74 | 2d 69 6e 64 65 78 29 0a |ass slot|-index).|
|00000ae0| 58 20 20 60 28 25 73 74 | 61 74 69 63 2d 73 6c 6f |X  `(%st|atic-slo|
|00000af0| 74 2d 73 74 6f 72 61 67 | 65 2d 67 65 74 2d 73 6c |t-storag|e-get-sl|
|00000b00| 6f 74 2d 2d 63 6c 61 73 | 73 0a 58 20 20 20 20 20 |ot--clas|s.X     |
|00000b10| 28 69 77 6d 63 2d 63 6c | 61 73 73 2d 73 74 61 74 |(iwmc-cl|ass-stat|
|00000b20| 69 63 2d 73 6c 6f 74 73 | 20 2c 69 77 6d 63 2d 63 |ic-slots| ,iwmc-c|
|00000b30| 6c 61 73 73 29 0a 58 20 | 20 20 20 20 2c 73 6c 6f |lass).X |    ,slo|
|00000b40| 74 2d 69 6e 64 65 78 29 | 29 0a 58 0a 58 28 64 65 |t-index)|).X.X(de|
|00000b50| 66 6d 61 63 72 6f 20 67 | 65 74 2d 64 79 6e 61 6d |fmacro g|et-dynam|
|00000b60| 69 63 2d 73 6c 6f 74 2d | 2d 63 6c 61 73 73 20 28 |ic-slot-|-class (|
|00000b70| 69 77 6d 63 2d 63 6c 61 | 73 73 20 73 6c 6f 74 2d |iwmc-cla|ss slot-|
|00000b80| 6e 61 6d 65 20 64 65 66 | 61 75 6c 74 29 0a 58 20 |name def|ault).X |
|00000b90| 20 60 28 25 64 79 6e 61 | 6d 69 63 2d 73 6c 6f 74 | `(%dyna|mic-slot|
|00000ba0| 2d 73 74 6f 72 61 67 65 | 2d 67 65 74 2d 73 6c 6f |-storage|-get-slo|
|00000bb0| 74 2d 2d 63 6c 61 73 73 | 0a 58 20 20 20 20 20 28 |t--class|.X     (|
|00000bc0| 69 77 6d 63 2d 63 6c 61 | 73 73 2d 64 79 6e 61 6d |iwmc-cla|ss-dynam|
|00000bd0| 69 63 2d 73 6c 6f 74 73 | 20 2c 69 77 6d 63 2d 63 |ic-slots| ,iwmc-c|
|00000be0| 6c 61 73 73 29 0a 58 20 | 20 20 20 20 2c 73 6c 6f |lass).X |    ,slo|
|00000bf0| 74 2d 6e 61 6d 65 0a 58 | 20 20 20 20 20 2c 64 65 |t-name.X|     ,de|
|00000c00| 66 61 75 6c 74 29 29 0a | 58 0a 58 28 64 65 66 6d |fault)).|X.X(defm|
|00000c10| 61 63 72 6f 20 72 65 6d | 6f 76 65 2d 64 79 6e 61 |acro rem|ove-dyna|
|00000c20| 6d 69 63 2d 73 6c 6f 74 | 2d 2d 63 6c 61 73 73 20 |mic-slot|--class |
|00000c30| 28 69 77 6d 63 2d 63 6c | 61 73 73 20 73 6c 6f 74 |(iwmc-cl|ass slot|
|00000c40| 2d 6e 61 6d 65 29 0a 58 | 20 20 60 28 25 64 79 6e |-name).X|  `(%dyn|
|00000c50| 61 6d 69 63 2d 73 6c 6f | 74 2d 73 74 6f 72 61 67 |amic-slo|t-storag|
|00000c60| 65 2d 72 65 6d 6f 76 65 | 2d 73 6c 6f 74 2d 2d 63 |e-remove|-slot--c|
|00000c70| 6c 61 73 73 0a 58 20 20 | 20 20 20 28 69 77 6d 63 |lass.X  |   (iwmc|
|00000c80| 2d 63 6c 61 73 73 2d 64 | 79 6e 61 6d 69 63 2d 73 |-class-d|ynamic-s|
|00000c90| 6c 6f 74 73 20 2c 69 77 | 6d 63 2d 63 6c 61 73 73 |lots ,iw|mc-class|
|00000ca0| 29 0a 58 20 20 20 20 20 | 2c 73 6c 6f 74 2d 6e 61 |).X     |,slot-na|
|00000cb0| 6d 65 29 29 0a 58 0a 58 | 0a 58 20 20 3b 3b 0a 58 |me)).X.X|.X  ;;.X|
|00000cc0| 3b 3b 3b 3b 3b 3b 20 64 | 65 66 6d 65 74 68 20 20 |;;;;;; d|efmeth  |
|00000cd0| 2d 2d 20 64 65 66 69 6e | 69 6e 67 20 6d 65 74 68 |-- defin|ing meth|
|00000ce0| 6f 64 73 0a 58 20 20 3b | 3b 0a 58 3b 3b 3b 20 57 |ods.X  ;|;.X;;; W|
|00000cf0| 65 20 6e 65 65 64 20 74 | 6f 20 62 65 20 61 62 6c |e need t|o be abl|
|00000d00| 65 20 74 6f 20 64 65 66 | 69 6e 65 20 73 6f 6d 65 |e to def|ine some|
|00000d10| 74 68 69 6e 67 20 6c 69 | 6b 65 20 6d 65 74 68 6f |thing li|ke metho|
|00000d20| 64 73 20 62 65 66 6f 72 | 65 20 77 65 20 72 65 61 |ds befor|e we rea|
|00000d30| 6c 6c 79 20 68 61 76 65 | 0a 58 3b 3b 3b 20 72 65 |lly have|.X;;; re|
|00000d40| 61 6c 20 6d 65 74 68 6f | 64 20 66 75 6e 63 74 69 |al metho|d functi|
|00000d50| 6f 6e 61 6c 69 74 79 20 | 61 76 61 69 6c 61 62 6c |onality |availabl|
|00000d60| 65 2e 0a 58 3b 3b 3b 0a | 58 3b 3b 3b 20 64 65 66 |e..X;;;.|X;;; def|
|00000d70| 6d 65 74 68 20 65 78 70 | 61 6e 64 73 20 62 79 20 |meth exp|ands by |
|00000d80| 63 61 6c 6c 69 6e 67 20 | 65 78 70 61 6e 64 2d 64 |calling |expand-d|
|00000d90| 65 66 6d 65 74 68 2c 20 | 74 68 69 73 20 6d 65 61 |efmeth, |this mea|
|00000da0| 6e 73 20 74 68 61 74 20 | 77 65 20 63 61 6e 20 64 |ns that |we can d|
|00000db0| 65 66 69 6e 65 0a 58 3b | 3b 3b 20 61 6e 20 65 61 |efine.X;|;; an ea|
|00000dc0| 72 6c 79 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 64 |rly vers|ion of d|
|00000dd0| 65 66 6d 65 74 68 20 6a | 75 73 74 20 62 79 20 64 |efmeth j|ust by d|
|00000de0| 65 66 69 6e 69 6e 67 20 | 61 6e 20 65 61 72 6c 79 |efining |an early|
|00000df0| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 65 78 70 61 | version| of expa|
|00000e00| 6e 64 2d 0a 58 3b 3b 3b | 20 64 65 66 6d 65 74 68 |nd-.X;;;| defmeth|
|00000e10| 2e 0a 58 3b 3b 3b 0a 58 | 28 64 65 66 6d 61 63 72 |..X;;;.X|(defmacr|
|00000e20| 6f 20 64 65 66 6d 65 74 | 68 6f 64 20 28 26 72 65 |o defmet|hod (&re|
|00000e30| 73 74 20 61 72 67 73 29 | 0a 58 20 3b 28 64 65 63 |st args)|.X ;(dec|
|00000e40| 6c 61 72 65 20 28 7a 6c | 3a 61 72 67 6c 69 73 74 |lare (zl|:arglist|
|00000e50| 20 6e 61 6d 65 20 71 75 | 61 6c 69 66 69 65 72 2a | name qu|alifier*|
|00000e60| 20 61 72 67 6c 69 73 74 | 20 26 62 6f 64 79 20 62 | arglist| &body b|
|00000e70| 6f 64 79 29 29 0a 58 20 | 20 28 6c 65 74 20 28 28 |ody)).X | (let ((|
|00000e80| 6e 61 6d 65 20 28 70 6f | 70 20 61 72 67 73 29 29 |name (po|p args))|
|00000e90| 0a 58 09 28 71 75 61 6c | 69 66 69 65 72 73 20 28 |.X.(qual|ifiers (|
|00000ea0| 29 29 0a 58 09 28 61 72 | 67 6c 69 73 74 20 28 29 |)).X.(ar|glist ()|
|00000eb0| 29 0a 58 09 28 62 6f 64 | 79 20 6e 69 6c 29 29 0a |).X.(bod|y nil)).|
|00000ec0| 58 20 20 20 20 28 6d 75 | 6c 74 69 70 6c 65 2d 76 |X    (mu|ltiple-v|
|00000ed0| 61 6c 75 65 2d 73 65 74 | 71 20 28 71 75 61 6c 69 |alue-set|q (quali|
|00000ee0| 66 69 65 72 73 20 61 72 | 67 73 29 20 28 64 65 66 |fiers ar|gs) (def|
|00000ef0| 6d 65 74 68 6f 64 2d 71 | 75 61 6c 69 66 69 65 72 |method-q|ualifier|
|00000f00| 73 20 61 72 67 73 29 29 | 0a 58 20 20 20 20 28 73 |s args))|.X    (s|
|00000f10| 65 74 71 20 61 72 67 6c | 69 73 74 20 28 70 6f 70 |etq argl|ist (pop|
|00000f20| 20 61 72 67 73 29 0a 58 | 09 20 20 62 6f 64 79 20 | args).X|.  body |
|00000f30| 61 72 67 73 29 0a 58 20 | 20 20 20 60 28 64 65 66 |args).X |   `(def|
|00000f40| 6d 65 74 68 20 28 2c 6e | 61 6d 65 20 2e 20 2c 71 |meth (,n|ame . ,q|
|00000f50| 75 61 6c 69 66 69 65 72 | 73 29 20 2c 61 72 67 6c |ualifier|s) ,argl|
|00000f60| 69 73 74 20 2e 20 2c 62 | 6f 64 79 29 29 29 0a 58 |ist . ,b|ody))).X|
|00000f70| 0a 58 28 64 65 66 6d 61 | 63 72 6f 20 64 65 66 6d |.X(defma|cro defm|
|00000f80| 65 74 68 6f 64 2d 73 65 | 74 66 20 28 26 72 65 73 |ethod-se|tf (&res|
|00000f90| 74 20 61 72 67 73 29 0a | 58 20 20 28 6c 65 74 20 |t args).|X  (let |
|00000fa0| 28 28 6e 61 6d 65 20 28 | 70 6f 70 20 61 72 67 73 |((name (|pop args|
|00000fb0| 29 29 0a 58 09 28 71 75 | 61 6c 69 66 69 65 72 73 |)).X.(qu|alifiers|
|00000fc0| 20 28 29 29 0a 58 09 28 | 61 72 67 6c 69 73 74 20 | ()).X.(|arglist |
|00000fd0| 28 29 29 0a 58 09 28 6e | 65 77 2d 76 61 6c 75 65 |()).X.(n|ew-value|
|00000fe0| 2d 61 72 67 6c 69 73 74 | 20 28 29 29 0a 58 09 28 |-arglist| ()).X.(|
|00000ff0| 62 6f 64 79 20 6e 69 6c | 29 29 0a 58 20 20 20 20 |body nil|)).X    |
|00001000| 28 6d 75 6c 74 69 70 6c | 65 2d 76 61 6c 75 65 2d |(multipl|e-value-|
|00001010| 73 65 74 71 20 28 71 75 | 61 6c 69 66 69 65 72 73 |setq (qu|alifiers|
|00001020| 20 61 72 67 73 29 20 28 | 64 65 66 6d 65 74 68 6f | args) (|defmetho|
|00001030| 64 2d 71 75 61 6c 69 66 | 69 65 72 73 20 61 72 67 |d-qualif|iers arg|
|00001040| 73 29 29 0a 58 20 20 20 | 20 28 73 65 74 71 20 61 |s)).X   | (setq a|
|00001050| 72 67 6c 69 73 74 20 28 | 70 6f 70 20 61 72 67 73 |rglist (|pop args|
|00001060| 29 0a 58 09 20 20 6e 65 | 77 2d 76 61 6c 75 65 2d |).X.  ne|w-value-|
|00001070| 61 72 67 6c 69 73 74 20 | 28 70 6f 70 20 61 72 67 |arglist |(pop arg|
|00001080| 73 29 0a 58 09 20 20 62 | 6f 64 79 20 61 72 67 73 |s).X.  b|ody args|
|00001090| 29 0a 58 20 20 20 20 60 | 28 64 65 66 6d 65 74 68 |).X    `|(defmeth|
|000010a0| 20 28 2c 6e 61 6d 65 20 | 28 3a 73 65 74 66 20 2c | (,name |(:setf ,|
|000010b0| 6e 65 77 2d 76 61 6c 75 | 65 2d 61 72 67 6c 69 73 |new-valu|e-arglis|
|000010c0| 74 29 20 2c 2e 71 75 61 | 6c 69 66 69 65 72 73 29 |t) ,.qua|lifiers)|
|000010d0| 20 2c 61 72 67 6c 69 73 | 74 0a 58 20 20 20 20 20 | ,arglis|t.X     |
|000010e0| 20 20 2c 40 62 6f 64 79 | 29 29 29 0a 58 0a 58 28 |  ,@body|))).X.X(|
|000010f0| 64 65 66 75 6e 20 64 65 | 66 6d 65 74 68 6f 64 2d |defun de|fmethod-|
|00001100| 71 75 61 6c 69 66 69 65 | 72 73 20 28 61 72 67 73 |qualifie|rs (args|
|00001110| 29 0a 58 20 20 28 64 65 | 63 6c 61 72 65 20 28 76 |).X  (de|clare (v|
|00001120| 61 6c 75 65 73 20 71 75 | 61 6c 69 66 69 65 72 73 |alues qu|alifiers|
|00001130| 20 61 72 67 6c 69 73 74 | 2d 61 6e 64 2d 62 6f 64 | arglist|-and-bod|
|00001140| 79 29 29 0a 58 20 20 28 | 6c 65 74 20 28 28 71 75 |y)).X  (|let ((qu|
|00001150| 61 6c 69 66 69 65 72 73 | 20 28 29 29 29 0a 58 20 |alifiers| ())).X |
|00001160| 20 20 20 28 6c 6f 6f 70 | 20 28 69 66 20 28 61 6e |   (loop| (if (an|
|00001170| 64 20 28 63 61 72 20 61 | 72 67 73 29 20 28 6c 69 |d (car a|rgs) (li|
|00001180| 73 74 70 20 28 63 61 72 | 20 61 72 67 73 29 29 29 |stp (car| args)))|
|00001190| 0a 58 09 20 20 20 20 20 | 20 28 72 65 74 75 72 6e |.X.     | (return|
|000011a0| 20 28 76 61 6c 75 65 73 | 20 28 6e 72 65 76 65 72 | (values| (nrever|
|000011b0| 73 65 20 71 75 61 6c 69 | 66 69 65 72 73 29 20 61 |se quali|fiers) a|
|000011c0| 72 67 73 29 29 0a 58 09 | 20 20 20 20 20 20 28 70 |rgs)).X.|      (p|
|000011d0| 75 73 68 20 28 70 6f 70 | 20 61 72 67 73 29 20 71 |ush (pop| args) q|
|000011e0| 75 61 6c 69 66 69 65 72 | 73 29 29 29 29 29 0a 58 |ualifier|s))))).X|
|000011f0| 0a 58 28 64 65 66 75 6e | 20 64 65 66 6d 65 74 68 |.X(defun| defmeth|
|00001200| 6f 64 2d 61 72 67 75 6d | 65 6e 74 2d 73 70 65 63 |od-argum|ent-spec|
|00001210| 69 61 6c 69 7a 65 72 73 | 20 28 61 72 67 6c 69 73 |ializers| (arglis|
|00001220| 74 29 0a 58 20 20 28 6c | 65 74 20 28 28 61 72 67 |t).X  (l|et ((arg|
|00001230| 20 28 63 61 72 20 61 72 | 67 6c 69 73 74 29 29 29 | (car ar|glist)))|
|00001240| 0a 58 20 20 20 20 28 63 | 6f 6e 64 20 28 28 6e 75 |.X    (c|ond ((nu|
|00001250| 6c 6c 20 61 72 67 6c 69 | 73 74 29 20 6e 69 6c 29 |ll argli|st) nil)|
|00001260| 0a 58 09 20 20 28 28 6d | 65 6d 71 20 61 72 67 20 |.X.  ((m|emq arg |
|00001270| 27 28 26 6f 70 74 69 6f | 6e 61 6c 20 26 72 65 73 |'(&optio|nal &res|
|00001280| 74 20 26 6b 65 79 20 26 | 61 75 78 29 29 20 6e 69 |t &key &|aux)) ni|
|00001290| 6c 29 20 3b 44 6f 6e 27 | 74 20 61 6c 6c 6f 77 20 |l) ;Don'|t allow |
|000012a0| 61 6e 79 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |any.X   |        |
|000012b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000012c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000012d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 61 72 |        |     ;ar|
|000012e0| 67 75 6d 65 6e 74 20 73 | 70 65 63 69 61 6c 69 7a |gument s|pecializ|
|000012f0| 65 72 73 0a 58 09 20 20 | 20 20 20 20 20 20 20 20 |ers.X.  |        |
|00001300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001320| 20 20 20 20 20 20 3b 61 | 66 74 65 72 20 6f 6e 65 |      ;a|fter one|
|00001330| 20 6f 66 20 74 68 65 73 | 65 2e 0a 58 09 20 20 28 | of thes|e..X.  (|
|00001340| 28 6d 65 6d 71 20 61 72 | 67 20 6c 61 6d 62 64 61 |(memq ar|g lambda|
|00001350| 2d 6c 69 73 74 2d 6b 65 | 79 77 6f 72 64 73 29 09 |-list-ke|ywords).|
|00001360| 20 20 20 20 20 20 20 20 | 3b 4f 72 20 6f 6e 65 20 |        |;Or one |
|00001370| 6f 66 20 74 68 65 73 65 | 21 21 0a 58 09 20 20 20 |of these|!!.X.   |
|00001380| 28 77 61 72 6e 20 22 55 | 6e 72 65 63 6f 67 6e 69 |(warn "U|nrecogni|
|00001390| 7a 65 64 20 6c 61 6d 62 | 64 61 2d 6c 69 73 74 20 |zed lamb|da-list |
|000013a0| 6b 65 79 77 6f 72 64 20 | 7e 53 20 69 6e 20 61 72 |keyword |~S in ar|
|000013b0| 67 6c 69 73 74 2e 7e 25 | 7e 0a 58 20 20 20 20 20 |glist.~%|~.X     |
|000013c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 41 73 73 |        |     Ass|
|000013d0| 75 6d 69 6e 67 20 74 68 | 61 74 20 6e 6f 20 61 72 |uming th|at no ar|
|000013e0| 67 75 6d 65 6e 74 20 73 | 70 65 63 69 61 6c 69 7a |gument s|pecializ|
|000013f0| 65 72 73 20 61 70 70 65 | 61 72 20 61 66 74 65 72 |ers appe|ar after|
|00001400| 20 69 74 2e 22 0a 58 09 | 09 20 61 72 67 29 0a 58 | it.".X.|. arg).X|
|00001410| 09 20 20 20 6e 69 6c 29 | 0a 58 09 20 20 28 74 0a |.   nil)|.X.  (t.|
|00001420| 58 09 20 20 20 28 6c 65 | 74 20 28 28 74 61 69 6c |X.   (le|t ((tail|
|00001430| 20 28 64 65 66 6d 65 74 | 68 6f 64 2d 61 72 67 75 | (defmet|hod-argu|
|00001440| 6d 65 6e 74 2d 73 70 65 | 63 69 61 6c 69 7a 65 72 |ment-spe|cializer|
|00001450| 73 20 28 63 64 72 20 61 | 72 67 6c 69 73 74 29 29 |s (cdr a|rglist))|
|00001460| 29 0a 58 09 09 20 28 73 | 70 65 63 69 61 6c 69 7a |).X.. (s|pecializ|
|00001470| 65 72 20 28 61 6e 64 20 | 28 6c 69 73 74 70 20 61 |er (and |(listp a|
|00001480| 72 67 29 20 28 63 61 64 | 72 20 61 72 67 29 29 29 |rg) (cad|r arg)))|
|00001490| 29 0a 58 09 20 20 20 20 | 20 28 6f 72 20 28 61 6e |).X.    | (or (an|
|000014a0| 64 20 74 61 69 6c 20 28 | 63 6f 6e 73 20 28 6f 72 |d tail (|cons (or|
|000014b0| 20 73 70 65 63 69 61 6c | 69 7a 65 72 20 27 74 29 | special|izer 't)|
|000014c0| 20 74 61 69 6c 29 29 0a | 58 09 09 20 28 61 6e 64 | tail)).|X.. (and|
|000014d0| 20 73 70 65 63 69 61 6c | 69 7a 65 72 20 28 63 6f | special|izer (co|
|000014e0| 6e 73 20 73 70 65 63 69 | 61 6c 69 7a 65 72 20 28 |ns speci|alizer (|
|000014f0| 29 29 29 29 29 29 29 29 | 29 0a 58 0a 58 0a 58 28 |))))))))|).X.X.X(|
|00001500| 64 65 66 6d 61 63 72 6f | 20 64 65 66 6d 65 74 68 |defmacro| defmeth|
|00001510| 20 28 6e 61 6d 65 26 6f | 70 74 69 6f 6e 73 20 61 | (name&o|ptions a|
|00001520| 72 67 6c 69 73 74 20 26 | 62 6f 64 79 20 62 6f 64 |rglist &|body bod|
|00001530| 79 29 0a 58 20 20 28 65 | 78 70 61 6e 64 2d 64 65 |y).X  (e|xpand-de|
|00001540| 66 6d 65 74 68 20 6e 61 | 6d 65 26 6f 70 74 69 6f |fmeth na|me&optio|
|00001550| 6e 73 20 61 72 67 6c 69 | 73 74 20 62 6f 64 79 29 |ns argli|st body)|
|00001560| 29 0a 58 0a 58 28 65 76 | 61 6c 2d 77 68 65 6e 20 |).X.X(ev|al-when |
|00001570| 28 63 6f 6d 70 69 6c 65 | 20 6c 6f 61 64 20 65 76 |(compile| load ev|
|00001580| 61 6c 29 0a 58 20 20 3b | 3b 20 4d 61 6b 65 20 73 |al).X  ;|; Make s|
|00001590| 75 72 65 20 77 65 20 63 | 61 6c 6c 20 62 6f 6f 74 |ure we c|all boot|
|000015a0| 73 74 72 61 70 2d 65 78 | 70 61 6e 64 2d 64 65 66 |strap-ex|pand-def|
|000015b0| 6d 65 74 68 20 64 75 72 | 69 6e 67 20 62 6f 6f 74 |meth dur|ing boot|
|000015c0| 73 74 72 61 70 70 69 6e | 67 2e 0a 58 20 20 3b 3b |strappin|g..X  ;;|
|000015d0| 20 20 2d 20 43 61 6e 27 | 74 20 73 61 79 20 28 73 |  - Can'|t say (s|
|000015e0| 65 74 66 20 28 73 79 6d | 62 6f 6c 2d 66 75 20 2e |etf (sym|bol-fu .|
|000015f0| 2e 29 20 23 27 62 6f 6f | 74 73 74 72 61 70 2d 65 |.) #'boo|tstrap-e|
|00001600| 78 70 61 6e 64 2d 64 65 | 66 6d 65 74 68 20 62 65 |xpand-de|fmeth be|
|00001610| 63 61 75 73 65 0a 58 20 | 20 3b 3b 20 20 20 20 62 |cause.X | ;;    b|
|00001620| 6f 6f 74 73 74 72 61 70 | 2d 65 78 70 61 6e 64 2d |ootstrap|-expand-|
|00001630| 64 65 66 6d 65 74 68 20 | 69 73 6e 27 74 20 64 65 |defmeth |isn't de|
|00001640| 66 69 6e 65 64 20 79 65 | 74 20 61 6e 64 20 74 68 |fined ye|t and th|
|00001650| 61 74 20 69 73 6e 27 74 | 20 6c 65 67 61 6c 0a 58 |at isn't| legal.X|
|00001660| 20 20 3b 3b 20 20 20 20 | 69 6e 20 43 6f 6d 6d 6f |  ;;    |in Commo|
|00001670| 6e 20 4c 69 73 70 2e 0a | 58 20 20 3b 3b 20 20 2d |n Lisp..|X  ;;  -|
|00001680| 20 43 61 6e 27 74 20 73 | 61 79 20 28 73 65 74 66 | Can't s|ay (setf|
|00001690| 20 28 73 79 6d 62 6f 6c | 2d 66 75 20 2e 2e 29 20 | (symbol|-fu ..) |
|000016a0| 27 62 6f 6f 74 73 74 72 | 61 70 2d 65 78 70 61 6e |'bootstr|ap-expan|
|000016b0| 64 2d 64 65 66 6d 65 74 | 68 20 62 65 63 61 75 73 |d-defmet|h becaus|
|000016c0| 65 0a 58 20 20 3b 3b 20 | 20 20 20 6e 6f 74 20 61 |e.X  ;; |   not a|
|000016d0| 6c 6c 20 43 6f 6d 6d 6f | 6e 20 4c 69 73 70 73 20 |ll Commo|n Lisps |
|000016e0| 6c 69 6b 65 20 68 61 76 | 69 6e 67 20 73 79 6d 62 |like hav|ing symb|
|000016f0| 6f 6c 73 20 69 6e 20 74 | 68 65 20 66 75 6e 63 74 |ols in t|he funct|
|00001700| 69 6f 6e 20 63 65 6c 6c | 2e 0a 58 20 20 28 73 65 |ion cell|..X  (se|
|00001710| 74 66 20 28 73 79 6d 62 | 6f 6c 2d 66 75 6e 63 74 |tf (symb|ol-funct|
|00001720| 69 6f 6e 20 27 65 78 70 | 61 6e 64 2d 64 65 66 6d |ion 'exp|and-defm|
|00001730| 65 74 68 29 0a 58 09 23 | 27 28 6c 61 6d 62 64 61 |eth).X.#|'(lambda|
|00001740| 20 28 6e 61 6d 65 26 6f | 70 74 69 6f 6e 73 20 61 | (name&o|ptions a|
|00001750| 72 67 6c 69 73 74 20 62 | 6f 64 79 29 0a 58 09 20 |rglist b|ody).X. |
|00001760| 20 20 20 28 62 6f 6f 74 | 73 74 72 61 70 2d 65 78 |   (boot|strap-ex|
|00001770| 70 61 6e 64 2d 64 65 66 | 6d 65 74 68 20 6e 61 6d |pand-def|meth nam|
|00001780| 65 26 6f 70 74 69 6f 6e | 73 20 61 72 67 6c 69 73 |e&option|s arglis|
|00001790| 74 20 62 6f 64 79 29 29 | 29 0a 58 20 20 29 0a 58 |t body))|).X  ).X|
|000017a0| 0a 58 20 20 3b 3b 20 20 | 20 0a 58 3b 3b 3b 3b 3b |.X  ;;  | .X;;;;;|
|000017b0| 3b 20 45 61 72 6c 79 20 | 6d 65 74 68 6f 64 73 0a |; Early |methods.|
|000017c0| 58 20 20 3b 3b 20 20 20 | 0a 58 0a 58 28 64 65 66 |X  ;;   |.X.X(def|
|000017d0| 76 61 72 20 2a 72 65 61 | 6c 2d 6d 65 74 68 6f 64 |var *rea|l-method|
|000017e0| 73 2d 65 78 69 73 74 2d | 70 2a 29 0a 58 28 65 76 |s-exist-|p*).X(ev|
|000017f0| 61 6c 2d 77 68 65 6e 20 | 28 63 6f 6d 70 69 6c 65 |al-when |(compile|
|00001800| 20 6c 6f 61 64 20 65 76 | 61 6c 29 0a 58 20 20 28 | load ev|al).X  (|
|00001810| 73 65 74 71 20 2a 72 65 | 61 6c 2d 6d 65 74 68 6f |setq *re|al-metho|
|00001820| 64 73 2d 65 78 69 73 74 | 2d 70 2a 20 6e 69 6c 29 |ds-exist|-p* nil)|
|00001830| 29 0a 58 0a 58 28 65 76 | 61 6c 2d 77 68 65 6e 20 |).X.X(ev|al-when |
|00001840| 28 6c 6f 61 64 29 20 20 | 0a 58 20 20 28 73 65 74 |(load)  |.X  (set|
|00001850| 71 20 2a 65 72 72 6f 72 | 2d 77 68 65 6e 2d 64 65 |q *error|-when-de|
|00001860| 66 69 6e 69 6e 67 2d 6d | 65 74 68 6f 64 2d 6f 6e |fining-m|ethod-on|
|00001870| 2d 65 78 69 73 74 69 6e | 67 2d 66 75 6e 63 74 69 |-existin|g-functi|
|00001880| 6f 6e 2a 20 27 62 6f 6f | 74 73 74 72 61 70 70 69 |on* 'boo|tstrappi|
|00001890| 6e 67 29 29 0a 58 0a 58 | 28 64 65 66 76 61 72 20 |ng)).X.X|(defvar |
|000018a0| 2a 70 72 6f 74 65 63 74 | 65 64 2d 65 61 72 6c 79 |*protect|ed-early|
|000018b0| 2d 73 65 6c 65 63 74 6f | 72 73 2a 20 27 28 70 72 |-selecto|rs* '(pr|
|000018c0| 69 6e 74 2d 69 6e 73 74 | 61 6e 63 65 29 29 0a 58 |int-inst|ance)).X|
|000018d0| 0a 58 28 64 65 66 70 61 | 72 61 6d 65 74 65 72 20 |.X(defpa|rameter |
|000018e0| 2a 65 61 72 6c 79 2d 64 | 65 66 6d 65 74 68 73 2a |*early-d|efmeths*|
|000018f0| 20 28 29 29 0a 58 0a 58 | 28 64 65 66 6d 61 63 72 | ()).X.X|(defmacr|
|00001900| 6f 20 73 69 6d 70 6c 65 | 2d 74 79 70 65 2d 73 70 |o simple|-type-sp|
|00001910| 65 63 73 20 28 61 72 67 | 6c 69 73 74 29 0a 58 20 |ecs (arg|list).X |
|00001920| 20 60 28 6c 65 74 20 28 | 28 74 79 70 65 2d 73 70 | `(let (|(type-sp|
|00001930| 65 63 73 0a 58 09 20 20 | 20 28 69 74 65 72 61 74 |ecs.X.  | (iterat|
|00001940| 65 20 28 28 61 72 67 20 | 69 6e 20 2c 61 72 67 6c |e ((arg |in ,argl|
|00001950| 69 73 74 29 29 0a 58 09 | 09 20 20 20 20 28 75 6e |ist)).X.|.    (un|
|00001960| 74 69 6c 20 28 6d 65 6d | 71 20 61 72 67 20 27 28 |til (mem|q arg '(|
|00001970| 26 6f 70 74 69 6f 6e 61 | 6c 20 26 72 65 73 74 20 |&optiona|l &rest |
|00001980| 26 6b 65 79 20 26 61 75 | 78 29 29 29 0a 58 09 09 |&key &au|x))).X..|
|00001990| 20 20 20 20 28 63 6f 6c | 6c 65 63 74 20 28 69 66 |    (col|lect (if|
|000019a0| 20 28 6c 69 73 74 70 20 | 61 72 67 29 20 28 63 61 | (listp |arg) (ca|
|000019b0| 64 72 20 61 72 67 29 20 | 27 74 29 29 29 29 29 0a |dr arg) |'t))))).|
|000019c0| 58 20 20 20 20 20 28 73 | 65 74 71 20 74 79 70 65 |X     (s|etq type|
|000019d0| 2d 73 70 65 63 73 20 28 | 6e 72 65 76 65 72 73 65 |-specs (|nreverse|
|000019e0| 20 74 79 70 65 2d 73 70 | 65 63 73 29 29 0a 58 20 | type-sp|ecs)).X |
|000019f0| 20 20 20 20 28 69 74 65 | 72 61 74 65 20 28 28 74 |    (ite|rate ((t|
|00001a00| 79 70 65 2d 73 70 65 63 | 20 69 6e 20 74 79 70 65 |ype-spec| in type|
|00001a10| 2d 73 70 65 63 73 29 29 | 0a 58 09 20 20 20 20 20 |-specs))|.X.     |
|00001a20| 20 28 75 6e 74 69 6c 20 | 28 6e 65 71 20 74 79 70 | (until |(neq typ|
|00001a30| 65 2d 73 70 65 63 20 27 | 74 29 29 0a 58 09 20 20 |e-spec '|t)).X.  |
|00001a40| 20 20 20 20 28 70 6f 70 | 20 74 79 70 65 2d 73 70 |    (pop| type-sp|
|00001a50| 65 63 73 29 29 0a 58 20 | 20 20 20 20 28 6e 72 65 |ecs)).X |    (nre|
|00001a60| 76 65 72 73 65 20 74 79 | 70 65 2d 73 70 65 63 73 |verse ty|pe-specs|
|00001a70| 29 29 29 0a 58 0a 58 28 | 64 65 66 6d 61 63 72 6f |))).X.X(|defmacro|
|00001a80| 20 73 69 6d 70 6c 65 2d | 77 69 74 68 6f 75 74 2d | simple-|without-|
|00001a90| 74 79 70 65 2d 73 70 65 | 63 73 20 28 61 72 67 6c |type-spe|cs (argl|
|00001aa0| 69 73 74 29 0a 58 20 20 | 60 28 69 74 65 72 61 74 |ist).X  |`(iterat|
|00001ab0| 65 20 28 28 6c 6f 63 20 | 6f 6e 20 2c 61 72 67 6c |e ((loc |on ,argl|
|00001ac0| 69 73 74 29 29 0a 58 09 | 20 20 20 20 28 63 6f 6e |ist)).X.|    (con|
|00001ad0| 64 20 28 28 6d 65 6d 71 | 20 28 63 61 72 20 6c 6f |d ((memq| (car lo|
|00001ae0| 63 29 20 27 28 26 6f 70 | 74 69 6f 6e 61 6c 20 26 |c) '(&op|tional &|
|00001af0| 72 65 73 74 20 26 6b 65 | 79 20 26 61 75 78 29 29 |rest &ke|y &aux))|
|00001b00| 0a 58 09 09 20 20 20 28 | 6a 6f 69 6e 20 6c 6f 63 |.X..   (|join loc|
|00001b10| 29 20 28 75 6e 74 69 6c | 20 74 29 29 0a 58 09 09 |) (until| t)).X..|
|00001b20| 20 20 28 74 0a 58 09 09 | 20 20 20 28 63 6f 6c 6c |  (t.X..|   (coll|
|00001b30| 65 63 74 20 28 69 66 20 | 28 6c 69 73 74 70 20 28 |ect (if |(listp (|
|00001b40| 63 61 72 20 6c 6f 63 29 | 29 0a 58 09 09 09 09 28 |car loc)|).X....(|
|00001b50| 63 61 61 72 20 6c 6f 63 | 29 0a 58 09 09 09 09 28 |caar loc|).X....(|
|00001b60| 63 61 72 20 6c 6f 63 29 | 29 29 29 29 29 29 0a 58 |car loc)|)))))).X|
|00001b70| 28 64 65 66 6d 61 63 72 | 6f 20 73 69 6d 70 6c 65 |(defmacr|o simple|
|00001b80| 2d 61 72 67 73 20 28 61 | 72 67 6c 69 73 74 29 0a |-args (a|rglist).|
|00001b90| 58 20 20 60 28 69 74 65 | 72 61 74 65 20 28 28 61 |X  `(ite|rate ((a|
|00001ba0| 72 67 20 69 6e 20 2c 61 | 72 67 6c 69 73 74 29 29 |rg in ,a|rglist))|
|00001bb0| 0a 58 09 20 20 20 20 28 | 75 6e 74 69 6c 20 28 65 |.X.    (|until (e|
|00001bc0| 71 20 61 72 67 20 27 26 | 61 75 78 29 29 0a 58 09 |q arg '&|aux)).X.|
|00001bd0| 20 20 20 20 28 75 6e 6c | 65 73 73 20 28 6d 65 6d |    (unl|ess (mem|
|00001be0| 71 20 61 72 67 20 27 28 | 26 6f 70 74 69 6f 6e 61 |q arg '(|&optiona|
|00001bf0| 6c 20 26 72 65 73 74 20 | 26 6b 65 79 29 29 0a 58 |l &rest |&key)).X|
|00001c00| 09 20 20 20 20 20 20 28 | 63 6f 6c 6c 65 63 74 20 |.      (|collect |
|00001c10| 28 69 66 20 28 6c 69 73 | 74 70 20 61 72 67 29 20 |(if (lis|tp arg) |
|00001c20| 28 63 61 72 20 61 72 67 | 29 20 61 72 67 29 29 29 |(car arg|) arg)))|
|00001c30| 29 29 0a 58 0a 58 28 64 | 65 66 75 6e 20 62 6f 6f |)).X.X(d|efun boo|
|00001c40| 74 73 74 72 61 70 2d 65 | 78 70 61 6e 64 2d 64 65 |tstrap-e|xpand-de|
|00001c50| 66 6d 65 74 68 20 28 6e | 61 6d 65 26 6f 70 74 69 |fmeth (n|ame&opti|
|00001c60| 6f 6e 73 20 61 72 67 6c | 69 73 74 20 62 6f 64 79 |ons argl|ist body|
|00001c70| 29 0a 58 20 20 3b 3b 20 | 53 6f 6d 65 20 53 49 4d |).X  ;; |Some SIM|
|00001c80| 50 4c 45 20 6c 6f 63 61 | 6c 20 6d 61 63 72 6f 73 |PLE loca|l macros|
|00001c90| 20 66 6f 72 20 67 65 74 | 74 69 6e 67 20 74 68 65 | for get|ting the|
|00001ca0| 20 74 79 70 65 2d 73 70 | 65 63 69 66 69 65 72 73 | type-sp|ecifiers|
|00001cb0| 20 6f 75 74 20 6f 66 20 | 74 68 65 0a 58 20 20 3b | out of |the.X  ;|
|00001cc0| 3b 20 61 72 67 75 6d 65 | 6e 74 20 6c 69 73 74 2e |; argume|nt list.|
|00001cd0| 20 20 55 6e 66 6f 72 74 | 75 6e 61 74 65 6c 79 2c |  Unfort|unately,|
|00001ce0| 20 69 74 20 69 73 20 69 | 6d 70 6f 72 74 61 6e 74 | it is i|mportant|
|00001cf0| 20 74 68 61 74 20 74 68 | 65 73 65 20 73 69 6d 70 | that th|ese simp|
|00001d00| 6c 65 0a 58 20 20 3b 3b | 20 6d 61 63 72 6f 73 20 |le.X  ;;| macros |
|00001d10| 61 6e 64 20 74 68 65 20 | 6d 65 74 68 6f 64 73 20 |and the |methods |
|00001d20| 77 68 69 63 68 20 63 6f | 6d 65 20 61 6c 6f 6e 67 |which co|me along|
|00001d30| 20 6c 61 74 65 72 20 61 | 6e 64 20 64 6f 20 74 68 | later a|nd do th|
|00001d40| 69 73 20 6a 6f 62 20 62 | 65 74 74 65 72 0a 58 20 |is job b|etter.X |
|00001d50| 20 3b 3b 20 62 65 20 63 | 6f 6d 70 61 74 69 62 6c | ;; be c|ompatibl|
|00001d60| 65 2e 20 20 54 68 69 73 | 20 77 69 6c 6c 20 62 65 |e.  This| will be|
|00001d70| 63 6f 6d 65 20 6c 65 73 | 73 20 6f 66 20 61 6e 20 |come les|s of an |
|00001d80| 69 73 73 75 65 20 6f 6e | 63 65 20 6d 65 74 68 6f |issue on|ce metho|
|00001d90| 64 73 20 64 6f 6e 27 74 | 0a 58 20 20 3b 3b 20 68 |ds don't|.X  ;; h|
|00001da0| 61 76 65 20 6e 61 6d 65 | 73 20 61 6e 79 6d 6f 72 |ave name|s anymor|
|00001db0| 65 2e 0a 58 3b 20 28 6d | 61 63 72 6f 6c 65 74 20 |e..X; (m|acrolet |
|00001dc0| 28 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0a |()      |       .|
|00001dd0| 58 20 20 20 20 28 6d 75 | 6c 74 69 70 6c 65 2d 76 |X    (mu|ltiple-v|
|00001de0| 61 6c 75 65 2d 62 69 6e | 64 20 28 64 6f 63 75 6d |alue-bin|d (docum|
|00001df0| 65 6e 74 61 74 69 6f 6e | 20 64 65 63 6c 61 72 65 |entation| declare|
|00001e00| 73 20 62 6f 64 79 29 0a | 58 20 20 20 20 20 20 20 |s body).|X       |
|00001e10| 20 28 65 78 74 72 61 63 | 74 2d 64 65 63 6c 61 72 | (extrac|t-declar|
|00001e20| 61 74 69 6f 6e 73 20 62 | 6f 64 79 29 0a 58 20 20 |ations b|ody).X  |
|00001e30| 20 20 20 20 28 6f 72 20 | 28 6c 69 73 74 70 20 6e |    (or |(listp n|
|00001e40| 61 6d 65 26 6f 70 74 69 | 6f 6e 73 29 20 28 73 65 |ame&opti|ons) (se|
|00001e50| 74 71 20 6e 61 6d 65 26 | 6f 70 74 69 6f 6e 73 20 |tq name&|options |
|00001e60| 28 6c 69 73 74 20 6e 61 | 6d 65 26 6f 70 74 69 6f |(list na|me&optio|
|00001e70| 6e 73 29 29 29 0a 58 20 | 20 20 20 20 20 28 6b 65 |ns))).X |     (ke|
|00001e80| 79 77 6f 72 64 2d 70 61 | 72 73 65 20 28 28 73 65 |yword-pa|rse ((se|
|00001e90| 74 66 20 28 29 20 73 65 | 74 66 70 29 29 0a 58 20 |tf () se|tfp)).X |
|00001ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001eb0| 20 20 20 20 28 63 64 72 | 20 6e 61 6d 65 26 6f 70 |    (cdr| name&op|
|00001ec0| 74 69 6f 6e 73 29 0a 58 | 20 20 20 20 20 20 20 20 |tions).X|        |
|00001ed0| 28 6c 65 74 2a 20 28 28 | 6e 61 6d 65 20 28 63 61 |(let* ((|name (ca|
|00001ee0| 72 20 6e 61 6d 65 26 6f | 70 74 69 6f 6e 73 29 29 |r name&o|ptions))|
|00001ef0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00001f00| 20 28 64 69 73 63 72 69 | 6d 69 6e 61 74 6f 72 2d | (discri|minator-|
|00001f10| 6e 61 6d 65 20 28 69 66 | 20 73 65 74 66 70 0a 58 |name (if| setfp.X|
|00001f20| 09 09 09 09 20 20 20 20 | 20 20 20 28 6d 61 6b 65 |....    |   (make|
|00001f30| 2d 73 65 74 66 2d 64 69 | 73 63 72 69 6d 69 6e 61 |-setf-di|scrimina|
|00001f40| 74 6f 72 2d 6e 61 6d 65 | 20 6e 61 6d 65 29 0a 58 |tor-name| name).X|
|00001f50| 09 09 09 09 20 20 20 20 | 20 20 20 6e 61 6d 65 29 |....    |   name)|
|00001f60| 29 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).X     |        |
|00001f70| 20 20 28 6d 65 74 68 6f | 64 2d 6e 61 6d 65 20 28 |  (metho|d-name (|
|00001f80| 69 66 20 73 65 74 66 70 | 0a 58 20 20 20 20 20 20 |if setfp|.X      |
|00001f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001fa0| 20 20 20 20 20 20 20 20 | 20 20 28 6d 61 6b 65 2d |        |  (make-|
|00001fb0| 73 65 74 66 2d 6d 65 74 | 68 6f 64 2d 6e 61 6d 65 |setf-met|hod-name|
|00001fc0| 0a 58 09 09 09 09 20 20 | 6e 61 6d 65 0a 58 09 09 |.X....  |name.X..|
|00001fd0| 09 09 20 20 28 73 69 6d | 70 6c 65 2d 74 79 70 65 |..  (sim|ple-type|
|00001fe0| 2d 73 70 65 63 73 20 73 | 65 74 66 29 0a 58 09 09 |-specs s|etf).X..|
|00001ff0| 09 09 20 20 28 73 69 6d | 70 6c 65 2d 74 79 70 65 |..  (sim|ple-type|
|00002000| 2d 73 70 65 63 73 20 61 | 72 67 6c 69 73 74 29 29 |-specs a|rglist))|
|00002010| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00002020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002030| 20 20 28 6d 61 6b 65 2d | 6d 65 74 68 6f 64 2d 6e |  (make-|method-n|
|00002040| 61 6d 65 0a 58 09 09 09 | 09 20 20 6e 61 6d 65 20 |ame.X...|.  name |
|00002050| 28 73 69 6d 70 6c 65 2d | 74 79 70 65 2d 73 70 65 |(simple-|type-spe|
|00002060| 63 73 20 61 72 67 6c 69 | 73 74 29 29 29 29 0a 58 |cs argli|st)))).X|
|00002070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00002080| 6d 65 74 68 6f 64 2d 61 | 72 67 6c 69 73 74 20 28 |method-a|rglist (|
|00002090| 73 69 6d 70 6c 65 2d 77 | 69 74 68 6f 75 74 2d 74 |simple-w|ithout-t|
|000020a0| 79 70 65 2d 73 70 65 63 | 73 0a 58 20 20 20 20 20 |ype-spec|s.X     |
|000020b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 69 66 20 |        |    (if |
|000020d0| 73 65 74 66 70 0a 58 20 | 20 20 20 20 20 20 20 20 |setfp.X |        |
|000020e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 63 6f 6e |        |    (con|
|00002100| 73 20 28 63 61 72 20 61 | 72 67 6c 69 73 74 29 0a |s (car a|rglist).|
|00002110| 58 09 09 09 09 09 20 20 | 20 28 61 70 70 65 6e 64 |X.....  | (append|
|00002120| 20 73 65 74 66 20 28 63 | 64 72 20 61 72 67 6c 69 | setf (c|dr argli|
|00002130| 73 74 29 29 29 0a 58 20 | 20 20 20 20 20 20 20 20 |st))).X |        |
|00002140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002150| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 72 67 6c |        |    argl|
|00002160| 69 73 74 29 29 29 29 0a | 58 20 20 20 20 20 20 20 |ist)))).|X       |
|00002170| 20 20 20 60 28 70 72 6f | 67 6e 0a 58 20 20 20 20 |   `(pro|gn.X    |
|00002180| 20 20 20 20 20 20 20 20 | 20 3b 3b 20 52 65 63 6f |        | ;; Reco|
|00002190| 72 64 20 74 68 69 73 20 | 65 61 72 6c 79 20 64 65 |rd this |early de|
|000021a0| 66 6d 65 74 68 20 73 6f | 20 74 68 61 74 20 66 69 |fmeth so| that fi|
|000021b0| 78 75 70 2d 65 61 72 6c | 79 2d 64 65 66 6d 65 74 |xup-earl|y-defmet|
|000021c0| 68 73 20 77 69 6c 6c 0a | 58 20 20 20 20 20 20 20 |hs will.|X       |
|000021d0| 20 20 20 20 20 20 3b 3b | 20 6b 6e 6f 77 20 74 6f |      ;;| know to|
|000021e0| 20 66 69 78 20 69 74 20 | 75 70 20 6c 61 74 65 72 | fix it |up later|
|000021f0| 2e 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..X     |        |
|00002200| 28 65 76 61 6c 2d 77 68 | 65 6e 20 28 63 6f 6d 70 |(eval-wh|en (comp|
|00002210| 69 6c 65 20 6c 6f 61 64 | 20 65 76 61 6c 29 0a 58 |ile load| eval).X|
|00002220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00002230| 72 65 63 6f 72 64 2d 65 | 61 72 6c 79 2d 64 65 66 |record-e|arly-def|
|00002240| 6d 65 74 68 0a 58 09 09 | 20 27 2c 64 69 73 63 72 |meth.X..| ',discr|
|00002250| 69 6d 69 6e 61 74 6f 72 | 2d 6e 61 6d 65 20 27 2c |iminator|-name ',|
|00002260| 6e 61 6d 65 26 6f 70 74 | 69 6f 6e 73 20 27 2c 61 |name&opt|ions ',a|
|00002270| 72 67 6c 69 73 74 20 27 | 2c 62 6f 64 79 29 29 0a |rglist '|,body)).|
|00002280| 58 09 20 20 20 20 20 28 | 72 65 63 6f 72 64 2d 64 |X.     (|record-d|
|00002290| 65 66 69 6e 69 74 69 6f | 6e 20 27 2c 64 69 73 63 |efinitio|n ',disc|
|000022a0| 72 69 6d 69 6e 61 74 6f | 72 2d 6e 61 6d 65 20 27 |riminato|r-name '|
|000022b0| 6d 65 74 68 6f 64 29 0a | 58 20 20 20 20 20 20 20 |method).|X       |
|000022c0| 20 20 20 20 20 20 28 64 | 65 66 75 6e 20 2c 6d 65 |      (d|efun ,me|
|000022d0| 74 68 6f 64 2d 6e 61 6d | 65 20 2c 6d 65 74 68 6f |thod-nam|e ,metho|
|000022e0| 64 2d 61 72 67 6c 69 73 | 74 0a 58 20 20 20 20 20 |d-arglis|t.X     |
|000022f0| 20 20 20 20 20 20 20 20 | 20 20 2c 40 28 61 6e 64 |        |  ,@(and|
|00002300| 20 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 28 | documen|tation (|
|00002310| 6c 69 73 74 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 |list doc|umentati|
|00002320| 6f 6e 29 29 0a 58 20 20 | 20 20 20 20 20 20 20 20 |on)).X  |        |
|00002330| 20 20 20 20 20 2c 40 64 | 65 63 6c 61 72 65 73 0a |     ,@d|eclares.|
|00002340| 58 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X;      |        |
|00002350| 23 2b 53 79 6d 62 6f 6c | 69 63 73 28 64 65 63 6c |#+Symbol|ics(decl|
|00002360| 61 72 65 20 28 73 79 73 | 3a 66 75 6e 63 74 69 6f |are (sys|:functio|
|00002370| 6e 2d 70 61 72 65 6e 74 | 20 2c 6e 61 6d 65 20 64 |n-parent| ,name d|
|00002380| 65 66 6d 65 74 68 29 29 | 0a 58 20 20 20 20 20 20 |efmeth))|.X      |
|00002390| 20 20 20 20 20 20 20 20 | 20 2e 20 2c 62 6f 64 79 |        | . ,body|
|000023a0| 29 09 20 20 20 20 20 0a | 58 09 20 20 20 20 20 2c |).     .|X.     ,|
|000023b0| 28 75 6e 6c 65 73 73 20 | 28 6d 65 6d 71 20 64 69 |(unless |(memq di|
|000023c0| 73 63 72 69 6d 69 6e 61 | 74 6f 72 2d 6e 61 6d 65 |scrimina|tor-name|
|000023d0| 20 2a 70 72 6f 74 65 63 | 74 65 64 2d 65 61 72 6c | *protec|ted-earl|
|000023e0| 79 2d 73 65 6c 65 63 74 | 6f 72 73 2a 29 0a 58 09 |y-select|ors*).X.|
|000023f0| 09 60 28 65 76 61 6c 2d | 77 68 65 6e 20 28 6c 6f |.`(eval-|when (lo|
|00002400| 61 64 20 65 76 61 6c 29 | 0a 58 09 09 20 20 20 28 |ad eval)|.X..   (|
|00002410| 73 65 74 66 20 28 73 79 | 6d 62 6f 6c 2d 66 75 6e |setf (sy|mbol-fun|
|00002420| 63 74 69 6f 6e 20 27 2c | 64 69 73 63 72 69 6d 69 |ction ',|discrimi|
|00002430| 6e 61 74 6f 72 2d 6e 61 | 6d 65 29 0a 58 09 09 09 |nator-na|me).X...|
|00002440| 20 28 73 79 6d 62 6f 6c | 2d 66 75 6e 63 74 69 6f | (symbol|-functio|
|00002450| 6e 20 27 2c 6d 65 74 68 | 6f 64 2d 6e 61 6d 65 29 |n ',meth|od-name)|
|00002460| 29 29 29 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |))).X   |        |
|00002470| 20 20 2c 40 28 61 6e 64 | 20 73 65 74 66 70 0a 58 |  ,@(and| setfp.X|
|00002480| 09 09 20 20 20 20 28 6e | 6f 74 20 28 6d 65 6d 71 |..    (n|ot (memq|
|00002490| 20 64 69 73 63 72 69 6d | 69 6e 61 74 6f 72 2d 6e | discrim|inator-n|
|000024a0| 61 6d 65 20 2a 70 72 6f | 74 65 63 74 65 64 2d 65 |ame *pro|tected-e|
|000024b0| 61 72 6c 79 2d 73 65 6c | 65 63 74 6f 72 73 2a 29 |arly-sel|ectors*)|
|000024c0| 29 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).X     |        |
|000024d0| 20 20 20 20 20 20 20 28 | 6c 65 74 20 28 28 61 72 |       (|let ((ar|
|000024e0| 67 73 20 28 73 69 6d 70 | 6c 65 2d 77 69 74 68 6f |gs (simp|le-witho|
|000024f0| 75 74 2d 74 79 70 65 2d | 73 70 65 63 73 20 61 72 |ut-type-|specs ar|
|00002500| 67 6c 69 73 74 29 29 0a | 58 20 20 20 20 20 20 20 |glist)).|X       |
|00002510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002520| 20 20 20 28 73 65 74 66 | 2d 61 72 67 73 20 28 73 |   (setf|-args (s|
|00002530| 69 6d 70 6c 65 2d 77 69 | 74 68 6f 75 74 2d 74 79 |imple-wi|thout-ty|
|00002540| 70 65 2d 73 70 65 63 73 | 20 73 65 74 66 29 29 29 |pe-specs| setf)))|
|00002550| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00002560| 20 20 20 20 20 20 20 20 | 60 28 28 64 65 66 73 65 |        |`((defse|
|00002570| 74 66 20 2c 6e 61 6d 65 | 20 2c 61 72 67 73 20 2c |tf ,name| ,args ,|
|00002580| 73 65 74 66 2d 61 72 67 | 73 0a 58 20 20 20 20 20 |setf-arg|s.X     |
|00002590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000025a0| 20 20 20 20 20 28 6c 69 | 73 74 20 27 2c 64 69 73 |     (li|st ',dis|
|000025b0| 63 72 69 6d 69 6e 61 74 | 6f 72 2d 6e 61 6d 65 0a |criminat|or-name.|
|000025c0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X       |        |
|000025d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000025e0| 20 2c 28 63 61 72 20 61 | 72 67 73 29 0a 58 20 20 | ,(car a|rgs).X  |
|000025f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2c 40 |        |      ,@|
|00002610| 28 73 69 6d 70 6c 65 2d | 61 72 67 73 20 73 65 74 |(simple-|args set|
|00002620| 66 29 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |f).X    |        |
|00002630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002640| 20 20 20 20 2c 40 28 73 | 69 6d 70 6c 65 2d 61 72 |    ,@(s|imple-ar|
|00002650| 67 73 20 28 63 64 72 20 | 61 72 67 73 29 29 29 29 |gs (cdr |args))))|
|00002660| 29 29 29 29 29 29 29 29 | 0a 58 3b 29 0a 58 0a 58 |))))))))|.X;).X.X|
|00002670| 28 64 65 66 75 6e 20 72 | 65 63 6f 72 64 2d 65 61 |(defun r|ecord-ea|
|00002680| 72 6c 79 2d 64 65 66 6d | 65 74 68 20 28 64 69 73 |rly-defm|eth (dis|
|00002690| 63 72 69 6d 69 6e 61 74 | 6f 72 2d 6e 61 6d 65 20 |criminat|or-name |
|000026a0| 6e 61 6d 65 26 6f 70 74 | 69 6f 6e 73 20 61 72 67 |name&opt|ions arg|
|000026b0| 6c 69 73 74 20 62 6f 64 | 79 29 0a 58 20 20 28 70 |list bod|y).X  (p|
|000026c0| 75 73 68 6e 65 77 20 28 | 6c 69 73 74 2a 20 27 64 |ushnew (|list* 'd|
|000026d0| 65 66 6d 65 74 68 20 64 | 69 73 63 72 69 6d 69 6e |efmeth d|iscrimin|
|000026e0| 61 74 6f 72 2d 6e 61 6d | 65 20 6e 61 6d 65 26 6f |ator-nam|e name&o|
|000026f0| 70 74 69 6f 6e 73 20 61 | 72 67 6c 69 73 74 20 62 |ptions a|rglist b|
|00002700| 6f 64 79 29 0a 58 09 20 | 20 20 2a 65 61 72 6c 79 |ody).X. |  *early|
|00002710| 2d 64 65 66 6d 65 74 68 | 73 2a 0a 58 09 20 20 20 |-defmeth|s*.X.   |
|00002720| 3a 74 65 73 74 20 23 27 | 65 71 75 61 6c 29 29 0a |:test #'|equal)).|
|00002730| 58 0a 58 28 64 65 66 75 | 6e 20 72 65 63 6f 72 64 |X.X(defu|n record|
|00002740| 2d 65 61 72 6c 79 2d 64 | 69 73 63 72 69 6d 69 6e |-early-d|iscrimin|
|00002750| 61 74 6f 72 20 28 64 69 | 73 63 72 69 6d 69 6e 61 |ator (di|scrimina|
|00002760| 74 6f 72 2d 6e 61 6d 65 | 29 0a 58 20 20 28 70 75 |tor-name|).X  (pu|
|00002770| 73 68 6e 65 77 20 28 6c | 69 73 74 20 27 63 6c 65 |shnew (l|ist 'cle|
|00002780| 61 72 20 64 69 73 63 72 | 69 6d 69 6e 61 74 6f 72 |ar discr|iminator|
|00002790| 2d 6e 61 6d 65 29 20 2a | 65 61 72 6c 79 2d 64 65 |-name) *|early-de|
|000027a0| 66 6d 65 74 68 73 2a 20 | 3a 74 65 73 74 20 23 27 |fmeths* |:test #'|
|000027b0| 65 71 75 61 6c 29 29 0a | 58 0a 58 28 64 65 66 75 |equal)).|X.X(defu|
|000027c0| 6e 20 72 65 63 6f 72 64 | 2d 65 61 72 6c 79 2d 6d |n record|-early-m|
|000027d0| 65 74 68 6f 64 2d 66 69 | 78 75 70 20 28 66 6f 72 |ethod-fi|xup (for|
|000027e0| 6d 29 0a 58 20 20 28 70 | 75 73 68 6e 65 77 20 28 |m).X  (p|ushnew (|
|000027f0| 6c 69 73 74 20 27 65 76 | 61 6c 20 66 6f 72 6d 29 |list 'ev|al form)|
|00002800| 20 2a 65 61 72 6c 79 2d | 64 65 66 6d 65 74 68 73 | *early-|defmeths|
|00002810| 2a 20 3a 74 65 73 74 20 | 23 27 65 71 75 61 6c 29 |* :test |#'equal)|
|00002820| 29 0a 58 0a 58 28 64 65 | 66 6d 61 63 72 6f 20 66 |).X.X(de|fmacro f|
|00002830| 69 78 2d 65 61 72 6c 79 | 2d 64 65 66 6d 65 74 68 |ix-early|-defmeth|
|00002840| 73 20 28 29 0a 58 20 20 | 28 6c 65 74 20 28 28 72 |s ().X  |(let ((r|
|00002850| 65 73 65 74 73 20 28 29 | 29 0a 58 09 28 65 76 61 |esets ()|).X.(eva|
|00002860| 6c 73 20 28 29 29 29 0a | 58 20 20 20 20 28 64 6f |ls ())).|X    (do|
|00002870| 6c 69 73 74 20 28 65 6e | 74 72 79 20 2a 65 61 72 |list (en|try *ear|
|00002880| 6c 79 2d 64 65 66 6d 65 | 74 68 73 2a 29 0a 58 20 |ly-defme|ths*).X |
|00002890| 20 20 20 20 20 28 65 63 | 61 73 65 20 28 63 61 72 |     (ec|ase (car|
|000028a0| 20 65 6e 74 72 79 29 0a | 58 09 28 64 65 66 6d 65 | entry).|X.(defme|
|000028b0| 74 68 20 28 70 75 73 68 | 20 28 63 6f 6e 73 20 27 |th (push| (cons '|
|000028c0| 64 65 66 6d 65 74 68 20 | 28 63 64 64 72 20 65 6e |defmeth |(cddr en|
|000028d0| 74 72 79 29 29 20 65 76 | 61 6c 73 29 0a 58 09 09 |try)) ev|als).X..|
|000028e0| 20 28 70 75 73 68 20 28 | 63 61 64 72 20 65 6e 74 | (push (|cadr ent|
|000028f0| 72 79 29 20 72 65 73 65 | 74 73 29 29 0a 58 09 28 |ry) rese|ts)).X.(|
|00002900| 63 6c 65 61 72 20 20 20 | 28 70 75 73 68 20 28 63 |clear   |(push (c|
|00002910| 61 64 72 20 65 6e 74 72 | 79 29 20 72 65 73 65 74 |adr entr|y) reset|
|00002920| 73 29 29 0a 58 09 28 65 | 76 61 6c 20 20 20 20 28 |s)).X.(e|val    (|
|00002930| 70 75 73 68 20 28 63 61 | 64 72 20 65 6e 74 72 79 |push (ca|dr entry|
|00002940| 29 20 65 76 61 6c 73 29 | 29 29 29 20 20 20 20 0a |) evals)|)))    .|
|00002950| 58 20 20 20 20 60 28 70 | 72 6f 67 6e 0a 58 20 20 |X    `(p|rogn.X  |
|00002960| 20 20 20 20 20 3b 3b 20 | 54 68 65 20 66 69 72 73 |     ;; |The firs|
|00002970| 74 20 74 68 69 6e 67 20 | 74 6f 20 64 6f 20 69 73 |t thing |to do is|
|00002980| 20 67 6f 20 74 68 72 6f | 75 67 68 20 61 6e 64 20 | go thro|ugh and |
|00002990| 67 65 74 20 72 69 64 20 | 6f 66 20 61 6c 6c 20 74 |get rid |of all t|
|000029a0| 68 65 20 6f 6c 64 0a 58 | 20 20 20 20 20 20 20 3b |he old.X|       ;|
|000029b0| 3b 20 64 69 73 63 72 69 | 6d 69 6e 61 74 6f 72 73 |; discri|minators|
|000029c0| 2e 20 20 54 68 69 73 20 | 6f 6e 6c 79 20 6e 65 65 |.  This |only nee|
|000029d0| 64 73 20 74 6f 20 68 61 | 70 70 65 6e 20 77 68 65 |ds to ha|ppen whe|
|000029e0| 6e 20 77 65 20 61 72 65 | 20 62 65 69 6e 67 0a 58 |n we are| being.X|
|000029f0| 20 20 20 20 20 20 20 3b | 3b 20 6c 6f 61 64 65 64 |       ;|; loaded|
|00002a00| 20 69 6e 74 6f 20 74 68 | 65 20 73 61 6d 65 20 56 | into th|e same V|
|00002a10| 4d 65 6d 20 77 65 20 77 | 65 72 65 20 63 6f 6d 70 |Mem we w|ere comp|
|00002a20| 69 6c 65 64 20 69 6e 2e | 20 20 54 68 65 20 57 48 |iled in.|  The WH|
|00002a30| 45 4e 20 69 73 0a 58 20 | 20 20 20 20 20 20 3b 3b |EN is.X |      ;;|
|00002a40| 20 6d 61 6b 69 6e 67 20 | 74 68 61 74 20 6f 70 74 | making |that opt|
|00002a50| 69 6d 69 7a 61 74 69 6f | 6e 2e 0a 58 20 20 20 20 |imizatio|n..X    |
|00002a60| 20 20 20 28 64 65 66 75 | 6e 20 66 69 78 2d 65 61 |   (defu|n fix-ea|
|00002a70| 72 6c 79 2d 64 65 66 6d | 65 74 68 73 2d 31 20 28 |rly-defm|eths-1 (|
|00002a80| 29 09 20 0a 58 09 20 28 | 77 68 65 6e 20 28 64 69 |). .X. (|when (di|
|00002a90| 73 63 72 69 6d 69 6e 61 | 74 6f 72 2d 6e 61 6d 65 |scrimina|tor-name|
|00002aa0| 64 20 27 2c 28 63 61 72 | 20 72 65 73 65 74 73 29 |d ',(car| resets)|
|00002ab0| 29 09 20 20 20 0a 58 09 | 20 20 20 28 64 6f 6c 69 |).   .X.|   (doli|
|00002ac0| 73 74 20 28 78 20 27 2c | 72 65 73 65 74 73 29 20 |st (x ',|resets) |
|00002ad0| 28 73 65 74 66 20 28 64 | 69 73 63 72 69 6d 69 6e |(setf (d|iscrimin|
|00002ae0| 61 74 6f 72 2d 6e 61 6d | 65 64 20 78 29 20 6e 69 |ator-nam|ed x) ni|
|00002af0| 6c 29 29 29 29 0a 58 20 | 20 20 20 20 20 20 28 66 |l)))).X |      (f|
|00002b00| 69 78 2d 65 61 72 6c 79 | 2d 64 65 66 6d 65 74 68 |ix-early|-defmeth|
|00002b10| 73 2d 31 29 0a 58 20 20 | 20 20 20 20 20 2c 40 65 |s-1).X  |     ,@e|
|00002b20| 76 61 6c 73 29 29 29 0a | 58 0a 58 23 7c 20 54 68 |vals))).|X.X#| Th|
|00002b30| 69 73 20 69 73 20 75 73 | 65 66 75 6c 20 66 6f 72 |is is us|eful for|
|00002b40| 20 64 65 62 75 67 67 69 | 6e 67 2e 0a 58 28 64 65 | debuggi|ng..X(de|
|00002b50| 66 6d 61 63 72 6f 20 75 | 6e 66 69 78 2d 65 61 72 |fmacro u|nfix-ear|
|00002b60| 6c 79 2d 64 65 66 6d 65 | 74 68 73 20 28 29 0a 58 |ly-defme|ths ().X|
|00002b70| 20 20 60 28 70 72 6f 67 | 6e 0a 58 20 20 20 20 20 |  `(prog|n.X     |
|00002b80| 28 64 6f 2d 73 79 6d 62 | 6f 6c 73 20 28 78 29 0a |(do-symb|ols (x).|
|00002b90| 58 20 20 20 20 20 20 20 | 28 72 65 6d 70 72 6f 70 |X       |(remprop|
|00002ba0| 20 78 20 27 64 69 73 63 | 72 69 6d 69 6e 61 74 6f | x 'disc|riminato|
|00002bb0| 72 29 0a 58 20 20 20 20 | 20 20 20 28 72 65 6d 70 |r).X    |   (remp|
|00002bc0| 72 6f 70 20 78 20 27 73 | 65 74 66 2d 64 69 73 63 |rop x 's|etf-disc|
|00002bd0| 72 69 6d 69 6e 61 74 6f | 72 29 29 0a 58 20 20 20 |riminato|r)).X   |
|00002be0| 20 20 2e 20 2c 28 6d 61 | 70 63 61 72 20 27 28 6c |  . ,(ma|pcar '(l|
|00002bf0| 61 6d 62 64 61 20 28 78 | 29 20 28 63 6f 6e 73 20 |ambda (x|) (cons |
|00002c00| 27 64 65 66 6d 65 74 68 | 20 78 29 29 20 28 72 65 |'defmeth| x)) (re|
|00002c10| 76 65 72 73 65 20 2a 65 | 61 72 6c 79 2d 64 65 66 |verse *e|arly-def|
|00002c20| 6d 65 74 68 73 2a 29 29 | 29 29 0a 58 0a 58 28 75 |meths*))|)).X.X(u|
|00002c30| 6e 66 69 78 2d 65 61 72 | 6c 79 2d 64 65 66 6d 65 |nfix-ear|ly-defme|
|00002c40| 74 68 73 29 0a 58 7c 23 | 0a 58 0a 58 28 64 65 66 |ths).X|#|.X.X(def|
|00002c50| 75 6e 20 6d 61 6b 65 2d | 73 65 74 66 2d 64 69 73 |un make-|setf-dis|
|00002c60| 63 72 69 6d 69 6e 61 74 | 6f 72 2d 6e 61 6d 65 20 |criminat|or-name |
|00002c70| 28 6e 61 6d 65 29 0a 58 | 20 20 28 69 6e 74 65 72 |(name).X|  (inter|
|00002c80| 6e 20 28 73 74 72 69 6e | 67 2d 61 70 70 65 6e 64 |n (strin|g-append|
|00002c90| 20 6e 61 6d 65 20 22 20 | 3a 53 45 54 46 2d 64 69 | name " |:SETF-di|
|00002ca0| 73 63 72 69 6d 69 6e 61 | 74 6f 72 22 29 0a 58 09 |scrimina|tor").X.|
|00002cb0| 20 20 28 73 79 6d 62 6f | 6c 2d 70 61 63 6b 61 67 |  (symbo|l-packag|
|00002cc0| 65 20 6e 61 6d 65 29 29 | 29 0a 58 0a 58 28 64 65 |e name))|).X.X(de|
|00002cd0| 66 75 6e 20 6d 61 6b 65 | 2d 6d 65 74 68 6f 64 2d |fun make|-method-|
|00002ce0| 6e 61 6d 65 20 28 73 65 | 6c 65 63 74 6f 72 20 74 |name (se|lector t|
|00002cf0| 79 70 65 2d 73 70 65 63 | 69 66 69 65 72 73 29 0a |ype-spec|ifiers).|
|00002d00| 58 20 20 28 69 6e 74 65 | 72 6e 20 28 61 70 70 6c |X  (inte|rn (appl|
|00002d10| 79 20 23 27 73 74 72 69 | 6e 67 2d 61 70 70 65 6e |y #'stri|ng-appen|
|00002d20| 64 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d.X     |        |
|00002d30| 20 20 20 20 20 20 20 20 | 20 28 6c 69 73 74 2a 20 |        | (list* |
|00002d40| 22 4d 65 74 68 6f 64 20 | 22 0a 58 20 20 20 20 20 |"Method |".X     |
|00002d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002d60| 20 20 20 20 20 20 20 20 | 73 65 6c 65 63 74 6f 72 |        |selector|
|00002d70| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00002d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 22 |        |       "|
|00002d90| 20 22 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 | ".X    |        |
|00002da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002db0| 20 28 6d 61 6b 65 2d 6d | 65 74 68 6f 64 2d 6e 61 | (make-m|ethod-na|
|00002dc0| 6d 65 2d 69 6e 74 65 72 | 6e 61 6c 20 74 79 70 65 |me-inter|nal type|
|00002dd0| 2d 73 70 65 63 69 66 69 | 65 72 73 29 29 29 0a 58 |-specifi|ers))).X|
|00002de0| 09 20 20 28 73 79 6d 62 | 6f 6c 2d 70 61 63 6b 61 |.  (symb|ol-packa|
|00002df0| 67 65 20 73 65 6c 65 63 | 74 6f 72 29 29 29 0a 58 |ge selec|tor))).X|
|00002e00| 0a 58 28 64 65 66 75 6e | 20 6d 61 6b 65 2d 73 65 |.X(defun| make-se|
|00002e10| 74 66 2d 6d 65 74 68 6f | 64 2d 6e 61 6d 65 20 28 |tf-metho|d-name (|
|00002e20| 73 65 6c 65 63 74 6f 72 | 20 73 65 74 66 2d 74 79 |selector| setf-ty|
|00002e30| 70 65 2d 73 70 65 63 69 | 66 69 65 72 73 20 74 79 |pe-speci|fiers ty|
|00002e40| 70 65 2d 73 70 65 63 69 | 66 69 65 72 73 29 0a 58 |pe-speci|fiers).X|
|00002e50| 20 20 28 69 6e 74 65 72 | 6e 20 28 61 70 70 6c 79 |  (inter|n (apply|
|00002e60| 20 23 27 73 74 72 69 6e | 67 2d 61 70 70 65 6e 64 | #'strin|g-append|
|00002e70| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00002e80| 20 20 20 20 20 20 20 20 | 28 6c 69 73 74 2a 20 22 |        |(list* "|
|00002e90| 4d 65 74 68 6f 64 20 22 | 0a 58 20 20 20 20 20 20 |Method "|.X      |
|00002ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002eb0| 20 20 20 20 20 20 20 73 | 65 6c 65 63 74 6f 72 0a |       s|elector.|
|00002ec0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X       |        |
|00002ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 22 20 |        |      " |
|00002ee0| 28 22 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |(".X    |        |
|00002ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002f00| 20 28 61 70 70 6c 79 20 | 23 27 73 74 72 69 6e 67 | (apply |#'string|
|00002f10| 2d 61 70 70 65 6e 64 0a | 58 20 20 20 20 20 20 20 |-append.|X       |
|00002f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 3a 53 |        |     ":S|
|00002f40| 45 54 46 20 22 0a 58 20 | 20 20 20 20 20 20 20 20 |ETF ".X |        |
|00002f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002f60| 20 20 20 20 20 20 20 20 | 20 20 20 28 6d 61 6b 65 |        |   (make|
|00002f70| 2d 6d 65 74 68 6f 64 2d | 6e 61 6d 65 2d 69 6e 74 |-method-|name-int|
|00002f80| 65 72 6e 61 6c 20 73 65 | 74 66 2d 74 79 70 65 2d |ernal se|tf-type-|
|00002f90| 73 70 65 63 69 66 69 65 | 72 73 29 29 0a 58 20 20 |specifie|rs)).X  |
|00002fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002fb0| 20 20 20 20 20 20 20 20 | 20 20 20 22 29 20 22 0a |        |   ") ".|
|00002fc0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X       |        |
|00002fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 6d |        |      (m|
|00002fe0| 61 6b 65 2d 6d 65 74 68 | 6f 64 2d 6e 61 6d 65 2d |ake-meth|od-name-|
|00002ff0| 69 6e 74 65 72 6e 61 6c | 20 74 79 70 65 2d 73 70 |internal| type-sp|
|00003000| 65 63 69 66 69 65 72 73 | 29 29 29 0a 58 09 20 20 |ecifiers|))).X.  |
|00003010| 28 73 79 6d 62 6f 6c 2d | 70 61 63 6b 61 67 65 20 |(symbol-|package |
|00003020| 73 65 6c 65 63 74 6f 72 | 29 29 29 0a 58 0a 58 28 |selector|))).X.X(|
|00003030| 64 65 66 75 6e 20 6d 61 | 6b 65 2d 6d 65 74 68 6f |defun ma|ke-metho|
|00003040| 64 2d 6e 61 6d 65 2d 69 | 6e 74 65 72 6e 61 6c 20 |d-name-i|nternal |
|00003050| 28 74 79 70 65 2d 73 70 | 65 63 69 66 69 65 72 73 |(type-sp|ecifiers|
|00003060| 29 0a 58 20 20 28 69 66 | 20 74 79 70 65 2d 73 70 |).X  (if| type-sp|
|00003070| 65 63 69 66 69 65 72 73 | 0a 58 20 20 20 20 20 20 |ecifiers|.X      |
|00003080| 28 69 74 65 72 61 74 65 | 20 28 28 74 79 70 65 2d |(iterate| ((type-|
|00003090| 73 70 65 63 20 6f 6e 20 | 74 79 70 65 2d 73 70 65 |spec on |type-spe|
|000030a0| 63 69 66 69 65 72 73 29 | 29 0a 58 20 20 20 20 20 |cifiers)|).X     |
|000030b0| 20 20 20 28 63 6f 6c 6c | 65 63 74 20 28 73 74 72 |   (coll|ect (str|
|000030c0| 69 6e 67 20 28 63 61 72 | 20 74 79 70 65 2d 73 70 |ing (car| type-sp|
|000030d0| 65 63 29 29 29 0a 58 20 | 20 20 20 20 20 20 20 28 |ec))).X |       (|
|000030e0| 77 68 65 6e 20 28 63 64 | 72 20 74 79 70 65 2d 73 |when (cd|r type-s|
|000030f0| 70 65 63 29 20 28 63 6f | 6c 6c 65 63 74 20 22 20 |pec) (co|llect " |
|00003100| 22 29 29 29 0a 58 20 20 | 20 20 20 20 27 28 22 44 |"))).X  |    '("D|
|00003110| 65 66 61 75 6c 74 22 29 | 29 29 0a 58 20 20 0a 58 |efault")|)).X  .X|
|00003120| 0a 58 0c 0a 58 20 20 3b | 3b 0a 58 3b 3b 3b 3b 3b |.X..X  ;|;.X;;;;;|
|00003130| 3b 20 53 4c 4f 54 44 53 | 20 61 6e 64 20 44 53 2d |; SLOTDS| and DS-|
|00003140| 4f 50 54 49 4f 4e 53 0a | 58 20 20 3b 3b 0a 58 3b |OPTIONS.|X  ;;.X;|
|00003150| 3b 3b 0a 58 3b 3b 3b 20 | 41 20 73 6c 6f 74 2d 64 |;;.X;;; |A slot-d|
|00003160| 65 73 63 72 69 70 74 69 | 6f 6e 20 69 73 20 74 68 |escripti|on is th|
|00003170| 65 20 74 68 69 6e 67 20 | 77 68 69 63 68 20 61 70 |e thing |which ap|
|00003180| 70 65 61 72 73 20 69 6e | 20 61 20 64 65 66 73 74 |pears in| a defst|
|00003190| 72 75 63 74 2e 20 20 41 | 20 53 4c 4f 54 44 20 69 |ruct.  A| SLOTD i|
|000031a0| 73 0a 58 3b 3b 3b 20 61 | 6e 20 69 6e 74 65 72 6e |s.X;;; a|n intern|
|000031b0| 61 6c 20 64 65 73 63 72 | 69 70 74 69 6f 6e 20 6f |al descr|iption o|
|000031c0| 66 20 61 20 73 6c 6f 74 | 2e 0a 58 3b 3b 3b 0a 58 |f a slot|..X;;;.X|
|000031d0| 3b 3b 3b 20 54 68 65 20 | 53 4c 4f 54 44 20 73 74 |;;; The |SLOTD st|
|000031e0| 72 75 63 74 75 72 65 20 | 63 6f 72 72 65 73 70 6f |ructure |correspo|
|000031f0| 6e 64 73 20 74 6f 20 74 | 68 65 20 6b 69 6e 64 20 |nds to t|he kind |
|00003200| 6f 66 20 73 6c 6f 74 20 | 74 68 65 20 73 74 72 75 |of slot |the stru|
|00003210| 63 74 75 72 65 2d 63 6c | 61 73 73 0a 58 3b 3b 3b |cture-cl|ass.X;;;|
|00003220| 20 6d 65 74 61 2d 63 6c | 61 73 73 20 63 72 65 61 | meta-cl|ass crea|
|00003230| 74 65 73 20 28 74 68 65 | 20 6b 69 6e 64 20 6f 66 |tes (the| kind of|
|00003240| 20 73 6c 6f 74 20 74 68 | 61 74 20 61 70 70 65 61 | slot th|at appea|
|00003250| 72 73 20 69 6e 20 53 74 | 65 65 6c 65 20 45 64 69 |rs in St|eele Edi|
|00003260| 74 69 6f 6e 20 31 29 2e | 0a 58 3b 3b 3b 20 4f 74 |tion 1).|.X;;; Ot|
|00003270| 68 65 72 20 6d 65 74 61 | 63 6c 61 73 73 65 73 20 |her meta|classes |
|00003280| 77 68 69 63 68 20 6e 65 | 65 64 20 74 6f 20 68 61 |which ne|ed to ha|
|00003290| 76 65 20 6d 6f 72 65 20 | 65 6c 61 62 6f 72 61 74 |ve more |elaborat|
|000032a0| 65 20 73 6c 6f 74 20 6f | 70 74 69 6f 6e 73 20 61 |e slot o|ptions a|
|000032b0| 6e 64 0a 58 3b 3b 3b 20 | 73 6c 6f 74 64 73 2c 20 |nd.X;;; |slotds, |
|000032c0| 74 68 65 79 20 3a 69 6e | 63 6c 75 64 65 20 74 68 |they :in|clude th|
|000032d0| 61 74 20 63 6c 61 73 73 | 20 69 6e 20 74 68 65 69 |at class| in thei|
|000032e0| 72 20 73 6c 6f 74 64 73 | 2e 0a 58 3b 3b 3b 0a 58 |r slotds|..X;;;.X|
|000032f0| 3b 3b 3b 20 73 6c 6f 74 | 64 73 20 61 72 65 20 3a |;;; slot|ds are :|
|00003300| 74 79 70 65 20 6c 69 73 | 74 20 66 6f 72 20 32 20 |type lis|t for 2 |
|00003310| 69 6d 70 6f 72 74 61 6e | 74 20 72 65 61 73 6f 6e |importan|t reason|
|00003320| 73 3a 0a 58 3b 3b 3b 20 | 20 20 2d 20 73 6f 20 74 |s:.X;;; |  - so t|
|00003330| 68 61 74 20 6c 6f 6f 6b | 69 6e 67 20 75 70 20 61 |hat look|ing up a|
|00003340| 20 73 6c 6f 74 64 20 69 | 6e 20 61 20 6c 69 73 74 | slotd i|n a list|
|00003350| 20 6f 66 20 6c 69 73 74 | 73 20 77 69 6c 6c 20 63 | of list|s will c|
|00003360| 6f 6d 70 69 6c 65 0a 58 | 3b 3b 3b 20 20 20 20 20 |ompile.X|;;;     |
|00003370| 69 6e 74 6f 20 61 20 63 | 61 6c 6c 20 74 6f 20 61 |into a c|all to a|
|00003380| 73 73 71 0a 58 3b 3b 3b | 20 20 20 2d 20 50 43 4c |ssq.X;;;|   - PCL|
|00003390| 20 61 73 73 75 6d 65 73 | 20 6f 6e 6c 79 20 74 68 | assumes| only th|
|000033a0| 65 20 65 78 69 73 74 65 | 6e 63 65 20 6f 66 20 74 |e existe|nce of t|
|000033b0| 68 65 20 73 69 6d 70 6c | 65 73 74 20 6f 66 20 64 |he simpl|est of d|
|000033c0| 65 66 73 74 72 75 63 74 | 73 0a 58 3b 3b 3b 20 20 |efstruct|s.X;;;  |
|000033d0| 20 20 20 74 68 69 73 20 | 61 6c 6c 6f 77 73 20 50 |   this |allows P|
|000033e0| 43 4c 20 74 6f 20 62 65 | 20 75 73 65 64 20 74 6f |CL to be| used to|
|000033f0| 20 69 6d 70 6c 65 6d 65 | 6e 74 20 61 20 72 65 61 | impleme|nt a rea|
|00003400| 6c 20 64 65 66 73 74 72 | 75 63 74 2e 0a 58 3b 3b |l defstr|uct..X;;|
|00003410| 3b 20 20 20 20 20 0a 58 | 28 64 65 66 73 74 72 75 |;     .X|(defstru|
|00003420| 63 74 20 28 65 73 73 65 | 6e 74 69 61 6c 2d 73 6c |ct (esse|ntial-sl|
|00003430| 6f 74 64 20 28 3a 74 79 | 70 65 20 6c 69 73 74 29 |otd (:ty|pe list)|
|00003440| 0a 58 09 09 09 20 20 20 | 20 28 3a 63 6f 6e 73 74 |.X...   | (:const|
|00003450| 72 75 63 74 6f 72 20 6d | 61 6b 65 2d 73 6c 6f 74 |ructor m|ake-slot|
|00003460| 64 2d 2d 65 73 73 65 6e | 74 69 61 6c 2d 63 6c 61 |d--essen|tial-cla|
|00003470| 73 73 29 29 0a 58 20 20 | 6e 61 6d 65 29 0a 58 0a |ss)).X  |name).X.|
|00003480| 58 3b 3b 3b 0a 58 3b 3b | 3b 20 53 6c 6f 74 64 2d |X;;;.X;;|; Slotd-|
|00003490| 70 6f 73 69 74 69 6f 6e | 20 69 73 20 75 73 65 64 |position| is used|
|000034a0| 20 74 6f 20 66 69 6e 64 | 20 74 68 65 20 70 6f 73 | to find| the pos|
|000034b0| 69 74 69 6f 6e 20 6f 66 | 20 61 20 73 6c 6f 74 20 |ition of| a slot |
|000034c0| 77 69 74 68 20 61 20 70 | 61 72 74 69 63 75 6c 61 |with a p|articula|
|000034d0| 72 0a 58 3b 3b 3b 20 6e | 61 6d 65 20 69 6e 20 61 |r.X;;; n|ame in a|
|000034e0| 20 6c 69 73 74 20 6f 66 | 20 73 6c 6f 74 64 73 2e | list of| slotds.|
|000034f0| 20 20 53 70 65 63 69 66 | 69 63 61 6c 6c 79 20 69 |  Specif|ically i|
|00003500| 74 20 69 73 20 75 73 65 | 64 20 69 6e 20 74 68 65 |t is use|d in the|
|00003510| 20 63 61 73 65 20 6f 66 | 20 61 0a 58 3b 3b 3b 20 | case of| a.X;;; |
|00003520| 67 65 74 2d 73 6c 6f 74 | 20 63 61 63 68 65 20 6d |get-slot| cache m|
|00003530| 69 73 73 20 74 6f 20 66 | 69 6e 64 20 74 68 69 73 |iss to f|ind this|
|00003540| 20 73 6c 6f 74 20 69 6e | 64 65 78 2e 20 20 54 68 | slot in|dex.  Th|
|00003550| 61 74 20 6d 65 61 6e 73 | 20 69 74 20 69 73 20 75 |at means| it is u|
|00003560| 73 65 64 20 69 6e 0a 58 | 3b 3b 3b 20 61 62 6f 75 |sed in.X|;;; abou|
|00003570| 74 20 32 25 20 6f 66 20 | 74 68 65 20 74 6f 74 61 |t 2% of |the tota|
|00003580| 6c 20 73 6c 6f 74 20 61 | 63 63 65 73 73 65 73 20 |l slot a|ccesses |
|00003590| 73 6f 20 69 74 20 73 68 | 6f 75 6c 64 20 62 65 20 |so it sh|ould be |
|000035a0| 66 61 73 74 2e 0a 58 3b | 3b 3b 20 0a 58 28 64 65 |fast..X;|;; .X(de|
|000035b0| 66 6d 61 63 72 6f 20 73 | 6c 6f 74 64 2d 70 6f 73 |fmacro s|lotd-pos|
|000035c0| 69 74 69 6f 6e 20 28 73 | 6c 6f 74 64 2d 6e 61 6d |ition (s|lotd-nam|
|000035d0| 65 20 73 6c 6f 74 64 73 | 29 0a 58 20 20 60 28 6c |e slotds|).X  `(l|
|000035e0| 65 74 20 28 28 73 6c 6f | 74 64 2d 6e 61 6d 65 20 |et ((slo|td-name |
|000035f0| 2c 73 6c 6f 74 64 2d 6e | 61 6d 65 29 29 0a 58 20 |,slotd-n|ame)).X |
|00003600| 20 20 20 20 28 64 6f 20 | 28 28 70 6f 73 20 30 20 |    (do |((pos 0 |
|00003610| 28 2b 20 70 6f 73 20 31 | 29 29 0a 58 09 20 20 28 |(+ pos 1|)).X.  (|
|00003620| 73 6c 6f 74 64 73 20 2c | 73 6c 6f 74 64 73 20 28 |slotds ,|slotds (|
|00003630| 63 64 72 20 73 6c 6f 74 | 64 73 29 29 29 0a 58 09 |cdr slot|ds))).X.|
|00003640| 20 28 28 6e 75 6c 6c 20 | 73 6c 6f 74 64 73 29 20 | ((null |slotds) |
|00003650| 6e 69 6c 29 0a 58 20 20 | 20 20 20 20 20 28 64 65 |nil).X  |     (de|
|00003660| 63 6c 61 72 65 20 28 74 | 79 70 65 20 69 6e 74 65 |clare (t|ype inte|
|00003670| 67 65 72 20 70 6f 73 29 | 20 28 74 79 70 65 20 6c |ger pos)| (type l|
|00003680| 69 73 74 20 73 6c 6f 74 | 64 73 29 29 0a 58 20 20 |ist slot|ds)).X  |
|00003690| 20 20 20 20 20 28 61 6e | 64 20 28 65 71 20 73 6c |     (an|d (eq sl|
|000036a0| 6f 74 64 2d 6e 61 6d 65 | 20 28 73 6c 6f 74 64 2d |otd-name| (slotd-|
|000036b0| 6e 61 6d 65 20 28 63 61 | 72 20 73 6c 6f 74 64 73 |name (ca|r slotds|
|000036c0| 29 29 29 0a 58 09 20 20 | 20 20 28 72 65 74 75 72 |))).X.  |  (retur|
|000036d0| 6e 20 70 6f 73 29 29 29 | 29 29 0a 58 0a 58 28 64 |n pos)))|)).X.X(d|
|000036e0| 65 66 6d 61 63 72 6f 20 | 73 6c 6f 74 64 2d 6d 65 |efmacro |slotd-me|
|000036f0| 6d 62 65 72 20 28 73 6c | 6f 74 64 2d 6e 61 6d 65 |mber (sl|otd-name|
|00003700| 20 73 6c 6f 74 64 73 29 | 09 20 20 20 20 20 20 20 | slotds)|.       |
|00003710| 20 20 20 20 20 20 20 3b | 49 20 77 6f 6e 64 65 72 |       ;|I wonder|
|00003720| 20 68 6f 77 0a 58 20 20 | 60 28 6d 65 6d 62 65 72 | how.X  |`(member|
|00003730| 20 2c 73 6c 6f 74 64 2d | 6e 61 6d 65 20 2c 73 6c | ,slotd-|name ,sl|
|00003740| 6f 74 64 73 20 3a 74 65 | 73 74 20 23 27 65 71 20 |otds :te|st #'eq |
|00003750| 3a 6b 65 79 20 23 27 73 | 6c 6f 74 64 2d 6e 61 6d |:key #'s|lotd-nam|
|00003760| 65 29 29 20 3b 6d 61 6e | 79 20 63 6f 6d 70 69 6c |e)) ;man|y compil|
|00003770| 65 72 73 0a 58 09 09 09 | 09 09 09 20 20 20 20 20 |ers.X...|...     |
|00003780| 20 20 20 20 20 20 20 20 | 20 3b 61 72 65 20 72 65 |        | ;are re|
|00003790| 61 6c 6c 79 0a 58 09 09 | 09 09 09 09 20 20 20 20 |ally.X..|....    |
|000037a0| 20 20 20 20 20 20 20 20 | 20 20 3b 73 6d 61 72 74 |        |  ;smart|
|000037b0| 20 65 6e 6f 75 67 68 2e | 0a 58 28 64 65 66 6d 61 | enough.|.X(defma|
|000037c0| 63 72 6f 20 73 6c 6f 74 | 64 2d 61 73 73 6f 63 20 |cro slot|d-assoc |
|000037d0| 28 73 6c 6f 74 64 2d 6e | 61 6d 65 20 73 6c 6f 74 |(slotd-n|ame slot|
|000037e0| 64 73 29 09 0a 58 20 20 | 60 28 61 73 73 71 20 2c |ds)..X  |`(assq ,|
|000037f0| 73 6c 6f 74 64 2d 6e 61 | 6d 65 20 2c 73 6c 6f 74 |slotd-na|me ,slot|
|00003800| 64 73 29 29 0a 58 0a 58 | 3b 3b 3b 0a 58 3b 3b 3b |ds)).X.X|;;;.X;;;|
|00003810| 20 4f 6e 63 65 20 64 65 | 66 73 74 72 75 63 74 2d | Once de|fstruct-|
|00003820| 6f 70 74 69 6f 6e 73 20 | 61 72 65 20 64 65 66 61 |options |are defa|
|00003830| 75 6c 74 65 64 20 61 6e | 64 20 70 61 72 73 65 64 |ulted an|d parsed|
|00003840| 2c 20 74 68 65 79 20 61 | 72 65 20 73 74 6f 72 65 |, they a|re store|
|00003850| 64 20 69 6e 20 61 0a 58 | 3b 3b 3b 20 64 73 2d 6f |d in a.X|;;; ds-o|
|00003860| 70 74 69 6f 6e 73 20 28 | 64 65 66 73 74 72 75 63 |ptions (|defstruc|
|00003870| 74 2d 6f 70 74 69 6f 6e | 73 29 20 73 74 72 75 63 |t-option|s) struc|
|00003880| 74 75 72 65 2e 20 20 54 | 68 69 73 20 6d 6f 64 75 |ture.  T|his modu|
|00003890| 6c 61 72 69 74 79 20 6d | 61 6b 65 73 20 69 74 0a |larity m|akes it.|
|000038a0| 58 3b 3b 3b 20 65 61 73 | 69 65 72 20 74 6f 20 62 |X;;; eas|ier to b|
|000038b0| 75 69 6c 64 20 74 68 65 | 20 6d 65 74 61 2d 62 72 |uild the| meta-br|
|000038c0| 61 69 64 20 77 68 69 63 | 68 20 68 61 73 20 74 6f |aid whic|h has to|
|000038d0| 20 64 6f 20 73 6f 6d 65 | 20 73 6c 6f 74 20 61 6e | do some| slot an|
|000038e0| 64 20 6f 70 74 69 6f 6e | 0a 58 3b 3b 3b 20 70 61 |d option|.X;;; pa|
|000038f0| 72 73 69 6e 67 20 6c 6f | 6e 67 20 62 65 66 6f 72 |rsing lo|ng befor|
|00003900| 65 20 74 68 65 20 72 65 | 61 6c 20 6e 65 77 20 64 |e the re|al new d|
|00003910| 65 66 73 74 72 75 63 74 | 20 65 78 69 73 74 73 2e |efstruct| exists.|
|00003920| 20 20 4d 6f 72 65 20 69 | 6d 70 6f 72 74 61 6e 74 |  More i|mportant|
|00003930| 6c 79 2c 0a 58 3b 3b 3b | 20 74 68 69 73 20 61 6c |ly,.X;;;| this al|
|00003940| 6c 6f 77 73 20 6e 65 77 | 20 6d 65 74 61 2d 63 6c |lows new| meta-cl|
|00003950| 61 73 73 65 73 20 74 6f | 20 69 6e 68 65 72 69 74 |asses to| inherit|
|00003960| 20 74 68 65 20 6f 70 74 | 69 6f 6e 20 70 61 72 73 | the opt|ion pars|
|00003970| 69 6e 67 20 63 6f 64 65 | 20 0a 58 3b 3b 3b 20 66 |ing code| .X;;; f|
|00003980| 72 6f 6d 20 6f 74 68 65 | 72 20 6d 65 74 61 63 6c |rom othe|r metacl|
|00003990| 61 73 73 65 73 2e 0a 58 | 3b 3b 3b 0a 58 28 64 65 |asses..X|;;;.X(de|
|000039a0| 66 73 74 72 75 63 74 20 | 28 64 73 2d 6f 70 74 69 |fstruct |(ds-opti|
|000039b0| 6f 6e 73 20 28 3a 63 6f | 6e 73 74 72 75 63 74 6f |ons (:co|nstructo|
|000039c0| 72 20 6d 61 6b 65 2d 64 | 73 2d 6f 70 74 69 6f 6e |r make-d|s-option|
|000039d0| 73 2d 2d 63 6c 61 73 73 | 29 29 0a 58 20 20 6e 61 |s--class|)).X  na|
|000039e0| 6d 65 0a 58 20 20 63 6f | 6e 73 74 72 75 63 74 6f |me.X  co|nstructo|
|000039f0| 72 73 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |rs      |       ;|
|00003a00| 54 68 65 20 63 6f 6e 73 | 74 72 75 63 74 6f 72 20 |The cons|tructor |
|00003a10| 61 72 67 75 6d 65 6e 74 | 2c 20 61 20 6c 69 73 74 |argument|, a list|
|00003a20| 20 77 68 6f 73 65 20 63 | 61 72 20 69 73 20 74 68 | whose c|ar is th|
|00003a30| 65 0a 58 09 09 09 20 20 | 20 3b 6e 61 6d 65 20 6f |e.X...  | ;name o|
|00003a40| 66 20 74 68 65 20 63 6f | 6e 73 74 72 75 63 74 6f |f the co|nstructo|
|00003a50| 72 20 61 6e 64 20 77 68 | 6f 73 65 20 63 61 64 72 |r and wh|ose cadr|
|00003a60| 20 69 66 20 70 72 65 73 | 65 6e 74 0a 58 20 20 20 | if pres|ent.X   |
|00003a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a80| 20 20 20 20 20 20 20 20 | 3b 69 73 20 74 68 65 20 |        |;is the |
|00003a90| 61 72 67 75 6d 65 6e 74 | 2d 6c 69 73 74 20 66 6f |argument|-list fo|
|00003aa0| 72 20 74 68 65 20 63 6f | 6e 73 74 72 75 63 74 6f |r the co|nstructo|
|00003ab0| 72 2e 0a 58 20 20 63 6f | 70 69 65 72 20 20 20 20 |r..X  co|pier    |
|00003ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00003ad0| 28 64 65 66 61 75 6c 74 | 65 64 29 20 76 61 6c 75 |(default|ed) valu|
|00003ae0| 65 20 6f 66 20 74 68 65 | 20 3a 63 6f 70 69 65 72 |e of the| :copier|
|00003af0| 20 6f 70 74 69 6f 6e 2e | 0a 58 20 20 70 72 65 64 | option.|.X  pred|
|00003b00| 69 63 61 74 65 20 20 20 | 20 20 20 20 20 20 20 20 |icate   |        |
|00003b10| 20 20 20 20 20 3b 64 69 | 74 74 6f 20 66 6f 72 20 |     ;di|tto for |
|00003b20| 3a 70 72 65 64 69 63 61 | 74 65 0a 58 20 20 70 72 |:predica|te.X  pr|
|00003b30| 69 6e 74 2d 66 75 6e 63 | 74 69 6f 6e 20 20 20 20 |int-func|tion    |
|00003b40| 20 20 20 20 20 20 20 3b | 64 69 74 74 6f 20 66 6f |       ;|ditto fo|
|00003b50| 72 20 3a 70 72 69 6e 74 | 2d 66 75 6e 63 74 69 6f |r :print|-functio|
|00003b60| 6e 0a 58 20 20 67 65 6e | 65 72 61 74 65 2d 61 63 |n.X  gen|erate-ac|
|00003b70| 63 65 73 73 6f 72 73 20 | 20 20 20 20 20 20 3b 64 |cessors |      ;d|
|00003b80| 69 74 74 6f 20 66 6f 72 | 20 3a 67 65 6e 65 72 61 |itto for| :genera|
|00003b90| 74 65 2d 61 63 63 65 73 | 73 6f 72 73 0a 58 20 20 |te-acces|sors.X  |
|00003ba0| 63 6f 6e 63 2d 6e 61 6d | 65 20 20 20 20 20 20 20 |conc-nam|e       |
|00003bb0| 20 20 20 20 20 20 20 20 | 20 3b 64 69 74 74 6f 20 |        | ;ditto |
|00003bc0| 66 6f 72 20 3a 63 6f 6e | 63 2d 6e 61 6d 65 20 0a |for :con|c-name .|
|00003bd0| 58 20 20 69 6e 63 6c 75 | 64 65 73 20 20 20 20 20 |X  inclu|des     |
|00003be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 54 68 65 |        |    ;The|
|00003bf0| 20 69 6e 63 6c 75 64 65 | 64 20 73 74 72 75 63 74 | include|d struct|
|00003c00| 75 72 65 73 20 28 63 61 | 72 20 6f 66 20 3a 69 6e |ures (ca|r of :in|
|00003c10| 63 6c 75 64 65 29 0a 58 | 20 20 73 6c 6f 74 2d 69 |clude).X|  slot-i|
|00003c20| 6e 63 6c 75 64 65 73 20 | 20 20 20 20 20 20 20 20 |ncludes |        |
|00003c30| 20 20 20 3b 54 68 65 20 | 69 6e 63 6c 75 64 65 64 |   ;The |included|
|00003c40| 20 73 6c 6f 74 20 6d 6f | 64 69 66 69 63 61 74 69 | slot mo|dificati|
|00003c50| 6f 6e 73 20 28 63 64 72 | 20 6f 66 20 3a 69 6e 63 |ons (cdr| of :inc|
|00003c60| 6c 75 64 65 29 0a 58 20 | 20 69 6e 69 74 69 61 6c |lude).X | initial|
|00003c70| 2d 6f 66 66 73 65 74 20 | 20 20 20 20 20 20 20 20 |-offset |        |
|00003c80| 20 20 3b 28 64 65 66 61 | 75 6c 74 65 64 29 20 76 |  ;(defa|ulted) v|
|00003c90| 61 6c 75 65 20 6f 66 20 | 74 68 65 20 3a 69 6e 69 |alue of |the :ini|
|00003ca0| 74 69 61 6c 2d 6f 66 66 | 73 65 74 20 6f 70 74 69 |tial-off|set opti|
|00003cb0| 6f 6e 2e 0a 58 20 20 29 | 0a 58 0a 58 20 20 0a 58 |on..X  )|.X.X  .X|
|00003cc0| 0c 0a 58 20 20 3b 3b 0a | 58 3b 3b 3b 3b 3b 3b 20 |..X  ;;.|X;;;;;; |
|00003cd0| 54 68 65 20 62 65 67 69 | 6e 6e 69 6e 67 73 20 6f |The begi|nnings o|
|00003ce0| 66 20 74 68 65 20 6d 65 | 74 61 2d 63 6c 61 73 73 |f the me|ta-class|
|00003cf0| 20 43 4c 41 53 53 20 28 | 70 61 72 73 69 6e 67 20 | CLASS (|parsing |
|00003d00| 74 68 65 20 64 65 66 73 | 74 72 75 63 74 29 0a 58 |the defs|truct).X|
|00003d10| 20 20 3b 3b 20 20 20 0a | 58 0a 58 28 64 65 66 6d |  ;;   .|X.X(defm|
|00003d20| 65 74 68 20 6d 61 6b 65 | 2d 64 73 2d 6f 70 74 69 |eth make|-ds-opti|
|00003d30| 6f 6e 73 20 28 28 63 6c | 61 73 73 20 62 61 73 69 |ons ((cl|ass basi|
|00003d40| 63 2d 63 6c 61 73 73 29 | 20 6e 61 6d 65 29 0a 58 |c-class)| name).X|
|00003d50| 20 20 28 69 67 6e 6f 72 | 65 20 63 6c 61 73 73 29 |  (ignor|e class)|
|00003d60| 0a 58 20 20 28 6d 61 6b | 65 2d 64 73 2d 6f 70 74 |.X  (mak|e-ds-opt|
|00003d70| 69 6f 6e 73 2d 2d 63 6c | 61 73 73 20 3a 6e 61 6d |ions--cl|ass :nam|
|00003d80| 65 20 6e 61 6d 65 29 29 | 0a 58 0a 58 28 64 65 66 |e name))|.X.X(def|
|00003d90| 6d 65 74 68 20 70 61 72 | 73 65 2d 64 65 66 73 74 |meth par|se-defst|
|00003da0| 72 75 63 74 2d 6f 70 74 | 69 6f 6e 73 20 28 28 63 |ruct-opt|ions ((c|
|00003db0| 6c 61 73 73 20 62 61 73 | 69 63 2d 63 6c 61 73 73 |lass bas|ic-class|
|00003dc0| 29 20 6e 61 6d 65 20 6f | 70 74 69 6f 6e 73 29 0a |) name o|ptions).|
|00003dd0| 58 20 20 28 70 61 72 73 | 65 2d 64 65 66 73 74 72 |X  (pars|e-defstr|
|00003de0| 75 63 74 2d 6f 70 74 69 | 6f 6e 73 2d 69 6e 74 65 |uct-opti|ons-inte|
|00003df0| 72 6e 61 6c 0a 58 20 20 | 20 20 63 6c 61 73 73 20 |rnal.X  |  class |
|00003e00| 6e 61 6d 65 20 6f 70 74 | 69 6f 6e 73 0a 58 20 20 |name opt|ions.X  |
|00003e10| 20 20 28 64 65 66 61 75 | 6c 74 2d 64 73 2d 6f 70 |  (defau|lt-ds-op|
|00003e20| 74 69 6f 6e 73 20 63 6c | 61 73 73 20 6e 61 6d 65 |tions cl|ass name|
|00003e30| 20 28 6d 61 6b 65 2d 64 | 73 2d 6f 70 74 69 6f 6e | (make-d|s-option|
|00003e40| 73 20 63 6c 61 73 73 20 | 6e 61 6d 65 29 29 29 29 |s class |name))))|
|00003e50| 0a 58 0a 58 28 64 65 66 | 6d 65 74 68 20 64 65 66 |.X.X(def|meth def|
|00003e60| 61 75 6c 74 2d 64 73 2d | 6f 70 74 69 6f 6e 73 20 |ault-ds-|options |
|00003e70| 28 28 63 6c 61 73 73 20 | 62 61 73 69 63 2d 63 6c |((class |basic-cl|
|00003e80| 61 73 73 29 20 6e 61 6d | 65 20 64 73 2d 6f 70 74 |ass) nam|e ds-opt|
|00003e90| 69 6f 6e 73 29 0a 58 20 | 20 28 69 67 6e 6f 72 65 |ions).X | (ignore|
|00003ea0| 20 63 6c 61 73 73 29 0a | 58 20 20 28 73 65 74 66 | class).|X  (setf|
|00003eb0| 0a 58 20 20 20 20 28 64 | 73 2d 6f 70 74 69 6f 6e |.X    (d|s-option|
|00003ec0| 73 2d 63 6f 6e 73 74 72 | 75 63 74 6f 72 73 20 64 |s-constr|uctors d|
|00003ed0| 73 2d 6f 70 74 69 6f 6e | 73 29 20 20 20 20 20 20 |s-option|s)      |
|00003ee0| 20 60 28 28 2c 28 73 79 | 6d 62 6f 6c 2d 61 70 70 | `((,(sy|mbol-app|
|00003ef0| 65 6e 64 20 22 4d 41 4b | 45 2d 22 0a 58 09 09 09 |end "MAK|E-".X...|
|00003f00| 09 09 09 09 09 20 20 6e | 61 6d 65 29 29 29 0a 58 |.....  n|ame))).X|
|00003f10| 20 20 20 20 28 64 73 2d | 6f 70 74 69 6f 6e 73 2d |    (ds-|options-|
|00003f20| 63 6f 70 69 65 72 20 64 | 73 2d 6f 70 74 69 6f 6e |copier d|s-option|
|00003f30| 73 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |s)      |       (|
|00003f40| 73 79 6d 62 6f 6c 2d 61 | 70 70 65 6e 64 20 22 43 |symbol-a|ppend "C|
|00003f50| 4f 50 59 2d 22 20 6e 61 | 6d 65 29 0a 58 20 20 20 |OPY-" na|me).X   |
|00003f60| 20 28 64 73 2d 6f 70 74 | 69 6f 6e 73 2d 70 72 65 | (ds-opt|ions-pre|
|00003f70| 64 69 63 61 74 65 20 64 | 73 2d 6f 70 74 69 6f 6e |dicate d|s-option|
|00003f80| 73 29 20 20 20 20 20 20 | 20 20 20 20 28 73 79 6d |s)      |    (sym|
|00003f90| 62 6f 6c 2d 61 70 70 65 | 6e 64 20 6e 61 6d 65 20 |bol-appe|nd name |
|00003fa0| 22 2d 50 22 29 0a 58 20 | 20 20 20 28 64 73 2d 6f |"-P").X |   (ds-o|
|00003fb0| 70 74 69 6f 6e 73 2d 70 | 72 69 6e 74 2d 66 75 6e |ptions-p|rint-fun|
|00003fc0| 63 74 69 6f 6e 20 64 73 | 2d 6f 70 74 69 6f 6e 73 |ction ds|-options|
|00003fd0| 29 20 20 20 20 20 6e 69 | 6c 0a 58 20 20 20 20 28 |)     ni|l.X    (|
|00003fe0| 64 73 2d 6f 70 74 69 6f | 6e 73 2d 67 65 6e 65 72 |ds-optio|ns-gener|
|00003ff0| 61 74 65 2d 61 63 63 65 | 73 73 6f 72 73 20 64 73 |ate-acce|ssors ds|
|00004000| 2d 6f 70 74 69 6f 6e 73 | 29 20 27 6d 65 74 68 6f |-options|) 'metho|
|00004010| 64 0a 58 20 20 20 20 28 | 64 73 2d 6f 70 74 69 6f |d.X    (|ds-optio|
|00004020| 6e 73 2d 63 6f 6e 63 2d | 6e 61 6d 65 20 64 73 2d |ns-conc-|name ds-|
|00004030| 6f 70 74 69 6f 6e 73 29 | 20 20 20 20 20 20 20 20 |options)|        |
|00004040| 20 20 28 73 79 6d 62 6f | 6c 2d 61 70 70 65 6e 64 |  (symbo|l-append|
|00004050| 20 6e 61 6d 65 20 22 2d | 22 29 0a 58 20 20 20 20 | name "-|").X    |
|00004060| 28 64 73 2d 6f 70 74 69 | 6f 6e 73 2d 69 6e 63 6c |(ds-opti|ons-incl|
|00004070| 75 64 65 73 20 64 73 2d | 6f 70 74 69 6f 6e 73 29 |udes ds-|options)|
|00004080| 20 20 20 20 20 20 20 20 | 20 20 20 28 29 0a 58 20 |        |   ().X |
|00004090| 20 20 20 28 64 73 2d 6f | 70 74 69 6f 6e 73 2d 73 |   (ds-o|ptions-s|
|000040a0| 6c 6f 74 2d 69 6e 63 6c | 75 64 65 73 20 64 73 2d |lot-incl|udes ds-|
|000040b0| 6f 70 74 69 6f 6e 73 29 | 20 20 20 20 20 20 28 29 |options)|      ()|
|000040c0| 0a 58 20 20 20 20 28 64 | 73 2d 6f 70 74 69 6f 6e |.X    (d|s-option|
|000040d0| 73 2d 69 6e 69 74 69 61 | 6c 2d 6f 66 66 73 65 74 |s-initia|l-offset|
|000040e0| 20 64 73 2d 6f 70 74 69 | 6f 6e 73 29 20 20 20 20 | ds-opti|ons)    |
|000040f0| 20 30 29 0a 58 20 20 64 | 73 2d 6f 70 74 69 6f 6e | 0).X  d|s-option|
|00004100| 73 29 0a 58 0a 58 28 64 | 65 66 6d 65 74 68 20 70 |s).X.X(d|efmeth p|
|00004110| 61 72 73 65 2d 64 65 66 | 73 74 72 75 63 74 2d 6f |arse-def|struct-o|
|00004120| 70 74 69 6f 6e 73 2d 69 | 6e 74 65 72 6e 61 6c 20 |ptions-i|nternal |
|00004130| 28 28 63 6c 61 73 73 20 | 62 61 73 69 63 2d 63 6c |((class |basic-cl|
|00004140| 61 73 73 29 0a 58 09 09 | 09 09 09 20 20 20 20 6e |ass).X..|...    n|
|00004150| 61 6d 65 20 6f 70 74 69 | 6f 6e 73 20 64 73 2d 6f |ame opti|ons ds-o|
|00004160| 70 74 69 6f 6e 73 29 0a | 58 20 20 28 69 67 6e 6f |ptions).|X  (igno|
|00004170| 72 65 20 63 6c 61 73 73 | 20 6e 61 6d 65 29 0a 58 |re class| name).X|
|00004180| 20 20 28 6b 65 79 77 6f | 72 64 2d 70 61 72 73 65 |  (keywo|rd-parse|
|00004190| 20 28 28 63 6f 6e 63 2d | 6e 61 6d 65 20 28 64 73 | ((conc-|name (ds|
|000041a0| 2d 6f 70 74 69 6f 6e 73 | 2d 63 6f 6e 63 2d 6e 61 |-options|-conc-na|
|000041b0| 6d 65 20 64 73 2d 6f 70 | 74 69 6f 6e 73 29 29 0a |me ds-op|tions)).|
|000041c0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X       |        |
|000041d0| 20 20 20 28 63 6f 6e 73 | 74 72 75 63 74 6f 72 20 |   (cons|tructor |
|000041e0| 28 29 20 63 6f 6e 73 74 | 72 75 63 74 6f 72 2d 70 |() const|ructor-p|
|000041f0| 20 3a 61 6c 6c 6f 77 65 | 64 20 3a 6d 75 6c 74 69 | :allowe|d :multi|
|00004200| 70 6c 65 0a 58 09 09 09 | 09 09 09 3a 72 65 74 75 |ple.X...|...:retu|
|00004210| 72 6e 2d 63 64 72 20 74 | 29 0a 58 20 20 20 20 20 |rn-cdr t|).X     |
|00004220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 63 6f |        |     (co|
|00004230| 70 69 65 72 20 28 64 73 | 2d 6f 70 74 69 6f 6e 73 |pier (ds|-options|
|00004240| 2d 63 6f 70 69 65 72 20 | 64 73 2d 6f 70 74 69 6f |-copier |ds-optio|
|00004250| 6e 73 29 29 0a 58 20 20 | 20 20 20 20 20 20 20 20 |ns)).X  |        |
|00004260| 20 20 20 20 20 20 20 20 | 28 70 72 65 64 69 63 61 |        |(predica|
|00004270| 74 65 20 28 64 73 2d 6f | 70 74 69 6f 6e 73 2d 70 |te (ds-o|ptions-p|
|00004280| 72 65 64 69 63 61 74 65 | 20 64 73 2d 6f 70 74 69 |redicate| ds-opti|
|00004290| 6f 6e 73 29 29 0a 58 20 | 20 20 20 20 20 20 20 20 |ons)).X |        |
|000042a0| 20 20 20 20 20 20 20 20 | 20 28 69 6e 63 6c 75 64 |        | (includ|
|000042b0| 65 20 28 29 20 69 6e 63 | 6c 75 64 65 2d 70 20 3a |e () inc|lude-p :|
|000042c0| 72 65 74 75 72 6e 2d 63 | 64 72 20 74 29 0a 58 20 |return-c|dr t).X |
|000042d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000042e0| 20 28 70 72 69 6e 74 2d | 66 75 6e 63 74 69 6f 6e | (print-|function|
|000042f0| 20 28 29 20 70 72 69 6e | 74 2d 66 75 6e 63 74 69 | () prin|t-functi|
|00004300| 6f 6e 2d 70 29 0a 58 20 | 20 20 20 20 20 20 20 20 |on-p).X |        |
|00004310| 20 20 20 20 20 20 20 20 | 20 28 69 6e 69 74 69 61 |        | (initia|
|00004320| 6c 2d 6f 66 66 73 65 74 | 20 28 64 73 2d 6f 70 74 |l-offset| (ds-opt|
|00004330| 69 6f 6e 73 2d 69 6e 69 | 74 69 61 6c 2d 6f 66 66 |ions-ini|tial-off|
|00004340| 73 65 74 20 64 73 2d 6f | 70 74 69 6f 6e 73 29 29 |set ds-o|ptions))|
|00004350| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00004360| 20 20 20 20 28 67 65 6e | 65 72 61 74 65 2d 61 63 |    (gen|erate-ac|
|00004370| 63 65 73 73 6f 72 73 20 | 28 64 73 2d 6f 70 74 69 |cessors |(ds-opti|
|00004380| 6f 6e 73 2d 67 65 6e 65 | 72 61 74 65 2d 61 63 63 |ons-gene|rate-acc|
|00004390| 65 73 73 6f 72 73 0a 58 | 09 09 09 09 09 64 73 2d |essors.X|.....ds-|
|000043a0| 6f 70 74 69 6f 6e 73 29 | 29 29 0a 58 20 20 20 20 |options)|)).X    |
|000043b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 70 74 |        |     opt|
|000043c0| 69 6f 6e 73 0a 58 20 20 | 20 20 28 73 65 74 66 20 |ions.X  |  (setf |
|000043d0| 28 64 73 2d 6f 70 74 69 | 6f 6e 73 2d 63 6f 6e 63 |(ds-opti|ons-conc|
|000043e0| 2d 6e 61 6d 65 20 64 73 | 2d 6f 70 74 69 6f 6e 73 |-name ds|-options|
|000043f0| 29 20 63 6f 6e 63 2d 6e | 61 6d 65 29 0a 58 20 20 |) conc-n|ame).X  |
|00004400| 20 20 28 77 68 65 6e 20 | 63 6f 6e 73 74 72 75 63 |  (when |construc|
|00004410| 74 6f 72 2d 70 0a 58 20 | 20 20 20 20 20 28 73 65 |tor-p.X |     (se|
|00004420| 74 66 20 28 64 73 2d 6f | 70 74 69 6f 6e 73 2d 63 |tf (ds-o|ptions-c|
|00004430| 6f 6e 73 74 72 75 63 74 | 6f 72 73 20 64 73 2d 6f |onstruct|ors ds-o|
|00004440| 70 74 69 6f 6e 73 29 20 | 63 6f 6e 73 74 72 75 63 |ptions) |construc|
|00004450| 74 6f 72 29 29 0a 58 20 | 20 20 20 28 73 65 74 66 |tor)).X |   (setf|
|00004460| 20 28 64 73 2d 6f 70 74 | 69 6f 6e 73 2d 63 6f 70 | (ds-opt|ions-cop|
|00004470| 69 65 72 20 64 73 2d 6f | 70 74 69 6f 6e 73 29 20 |ier ds-o|ptions) |
|00004480| 63 6f 70 69 65 72 29 0a | 58 20 20 20 20 28 73 65 |copier).|X    (se|
|00004490| 74 66 20 28 64 73 2d 6f | 70 74 69 6f 6e 73 2d 70 |tf (ds-o|ptions-p|
|000044a0| 72 65 64 69 63 61 74 65 | 20 64 73 2d 6f 70 74 69 |redicate| ds-opti|
|000044b0| 6f 6e 73 29 20 70 72 65 | 64 69 63 61 74 65 29 0a |ons) pre|dicate).|
|000044c0| 58 20 20 20 20 28 77 68 | 65 6e 20 69 6e 63 6c 75 |X    (wh|en inclu|
|000044d0| 64 65 2d 70 0a 58 20 20 | 20 20 20 20 28 64 65 73 |de-p.X  |    (des|
|000044e0| 74 72 75 63 74 75 72 69 | 6e 67 2d 62 69 6e 64 20 |tructuri|ng-bind |
|000044f0| 28 69 6e 63 6c 75 64 65 | 73 20 2e 20 73 6c 6f 74 |(include|s . slot|
|00004500| 2d 69 6e 63 6c 75 64 65 | 73 29 20 69 6e 63 6c 75 |-include|s) inclu|
|00004510| 64 65 0a 58 09 28 73 65 | 74 66 20 28 64 73 2d 6f |de.X.(se|tf (ds-o|
|00004520| 70 74 69 6f 6e 73 2d 69 | 6e 63 6c 75 64 65 73 20 |ptions-i|ncludes |
|00004530| 64 73 2d 6f 70 74 69 6f | 6e 73 29 20 28 69 66 20 |ds-optio|ns) (if |
|00004540| 28 6c 69 73 74 70 20 69 | 6e 63 6c 75 64 65 73 29 |(listp i|ncludes)|
|00004550| 0a 58 09 09 09 09 09 09 | 20 20 20 69 6e 63 6c 75 |.X......|   inclu|
|00004560| 64 65 73 0a 58 09 09 09 | 09 09 09 20 20 20 28 6c |des.X...|...   (l|
|00004570| 69 73 74 20 69 6e 63 6c | 75 64 65 73 29 29 0a 58 |ist incl|udes)).X|
|00004580| 09 20 20 20 20 20 20 28 | 64 73 2d 6f 70 74 69 6f |.      (|ds-optio|
|00004590| 6e 73 2d 73 6c 6f 74 2d | 69 6e 63 6c 75 64 65 73 |ns-slot-|includes|
|000045a0| 20 64 73 2d 6f 70 74 69 | 6f 6e 73 29 20 73 6c 6f | ds-opti|ons) slo|
|000045b0| 74 2d 69 6e 63 6c 75 64 | 65 73 29 29 29 0a 58 20 |t-includ|es))).X |
|000045c0| 20 20 20 28 77 68 65 6e | 20 70 72 69 6e 74 2d 66 |   (when| print-f|
|000045d0| 75 6e 63 74 69 6f 6e 2d | 70 0a 58 20 20 20 20 20 |unction-|p.X     |
|000045e0| 20 28 73 65 74 66 20 28 | 64 73 2d 6f 70 74 69 6f | (setf (|ds-optio|
|000045f0| 6e 73 2d 70 72 69 6e 74 | 2d 66 75 6e 63 74 69 6f |ns-print|-functio|
|00004600| 6e 20 64 73 2d 6f 70 74 | 69 6f 6e 73 29 0a 58 09 |n ds-opt|ions).X.|
|00004610| 20 20 20 20 28 63 6f 6e | 64 20 28 28 6e 75 6c 6c |    (con|d ((null|
|00004620| 20 70 72 69 6e 74 2d 66 | 75 6e 63 74 69 6f 6e 29 | print-f|unction)|
|00004630| 20 6e 69 6c 29 0a 58 09 | 09 20 20 28 28 73 79 6d | nil).X.|.  ((sym|
|00004640| 62 6f 6c 70 20 70 72 69 | 6e 74 2d 66 75 6e 63 74 |bolp pri|nt-funct|
|00004650| 69 6f 6e 29 20 70 72 69 | 6e 74 2d 66 75 6e 63 74 |ion) pri|nt-funct|
|00004660| 69 6f 6e 29 0a 58 09 09 | 20 20 28 28 61 6e 64 20 |ion).X..|  ((and |
|00004670| 28 6c 69 73 74 70 20 70 | 72 69 6e 74 2d 66 75 6e |(listp p|rint-fun|
|00004680| 63 74 69 6f 6e 29 0a 58 | 09 09 09 28 65 71 20 28 |ction).X|...(eq (|
|00004690| 63 61 72 20 70 72 69 6e | 74 2d 66 75 6e 63 74 69 |car prin|t-functi|
|000046a0| 6f 6e 29 20 27 6c 61 6d | 62 64 61 29 0a 58 09 09 |on) 'lam|bda).X..|
|000046b0| 09 28 6c 69 73 74 70 20 | 28 63 61 64 72 20 70 72 |.(listp |(cadr pr|
|000046c0| 69 6e 74 2d 66 75 6e 63 | 74 69 6f 6e 29 29 29 0a |int-func|tion))).|
|000046d0| 58 09 09 20 20 20 70 72 | 69 6e 74 2d 66 75 6e 63 |X..   pr|int-func|
|000046e0| 74 69 6f 6e 29 0a 58 09 | 09 20 20 28 74 0a 58 09 |tion).X.|.  (t.X.|
|000046f0| 09 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 65 20 |.   (err|or "The |
|00004700| 3a 50 52 49 4e 54 2d 46 | 55 4e 43 54 49 4f 4e 20 |:PRINT-F|UNCTION |
|00004710| 6f 70 74 69 6f 6e 2c 20 | 7e 53 7e 25 7e 0a 58 20 |option, |~S~%~.X |
|00004720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004730| 20 20 20 20 20 20 20 20 | 20 20 69 73 20 6e 6f 74 |        |  is not|
|00004740| 20 65 69 74 68 65 72 20 | 6e 69 6c 20 6f 72 20 61 | either |nil or a|
|00004750| 20 66 75 6e 63 74 69 6f | 6e 20 73 75 69 74 61 62 | functio|n suitab|
|00004760| 6c 65 20 66 6f 72 20 74 | 68 65 7e 0a 58 20 20 20 |le for t|he~.X   |
|00004770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004780| 20 20 20 20 20 20 20 20 | 66 75 6e 63 74 69 6f 6e |        |function|
|00004790| 20 73 70 65 63 69 61 6c | 20 66 6f 72 6d 2e 22 0a | special| form.".|
|000047a0| 58 09 09 09 20 20 20 70 | 72 69 6e 74 2d 66 75 6e |X...   p|rint-fun|
|000047b0| 63 74 69 6f 6e 29 29 29 | 29 29 0a 58 20 20 20 20 |ction)))|)).X    |
|000047c0| 28 73 65 74 66 20 28 64 | 73 2d 6f 70 74 69 6f 6e |(setf (d|s-option|
|000047d0| 73 2d 69 6e 69 74 69 61 | 6c 2d 6f 66 66 73 65 74 |s-initia|l-offset|
|000047e0| 20 64 73 2d 6f 70 74 69 | 6f 6e 73 29 20 69 6e 69 | ds-opti|ons) ini|
|000047f0| 74 69 61 6c 2d 6f 66 66 | 73 65 74 29 0a 58 20 20 |tial-off|set).X  |
|00004800| 20 20 28 73 65 74 66 20 | 28 64 73 2d 6f 70 74 69 |  (setf |(ds-opti|
|00004810| 6f 6e 73 2d 67 65 6e 65 | 72 61 74 65 2d 61 63 63 |ons-gene|rate-acc|
|00004820| 65 73 73 6f 72 73 20 64 | 73 2d 6f 70 74 69 6f 6e |essors d|s-option|
|00004830| 73 29 20 67 65 6e 65 72 | 61 74 65 2d 61 63 63 65 |s) gener|ate-acce|
|00004840| 73 73 6f 72 73 29 0a 58 | 20 20 20 20 64 73 2d 6f |ssors).X|    ds-o|
|00004850| 70 74 69 6f 6e 73 29 29 | 0a 58 0a 58 3b 3b 3b 0a |ptions))|.X.X;;;.|
|00004860| 58 3b 3b 3b 0a 58 0a 58 | 28 64 65 66 76 61 72 20 |X;;;.X.X|(defvar |
|00004870| 2a 73 6c 6f 74 64 2d 75 | 6e 73 75 70 70 6c 69 65 |*slotd-u|nsupplie|
|00004880| 64 2a 20 28 6c 69 73 74 | 20 6e 69 6c 29 29 0a 58 |d* (list| nil)).X|
|00004890| 0a 58 28 64 65 66 73 74 | 72 75 63 74 20 28 63 6c |.X(defst|ruct (cl|
|000048a0| 61 73 73 2d 73 6c 6f 74 | 64 20 28 3a 69 6e 63 6c |ass-slot|d (:incl|
|000048b0| 75 64 65 20 65 73 73 65 | 6e 74 69 61 6c 2d 73 6c |ude esse|ntial-sl|
|000048c0| 6f 74 64 29 0a 58 09 09 | 09 28 3a 74 79 70 65 20 |otd).X..|.(:type |
|000048d0| 6c 69 73 74 29 0a 58 09 | 09 09 28 3a 63 6f 6e 63 |list).X.|..(:conc|
|000048e0| 2d 6e 61 6d 65 20 73 6c | 6f 74 64 2d 29 0a 58 09 |-name sl|otd-).X.|
|000048f0| 09 09 28 3a 63 6f 6e 73 | 74 72 75 63 74 6f 72 20 |..(:cons|tructor |
|00004900| 6d 61 6b 65 2d 73 6c 6f | 74 64 2d 2d 63 6c 61 73 |make-slo|td--clas|
|00004910| 73 29 0a 58 09 09 09 28 | 3a 63 6f 70 69 65 72 20 |s).X...(|:copier |
|00004920| 63 6f 70 79 2d 73 6c 6f | 74 64 29 29 0a 58 20 20 |copy-slo|td)).X  |
|00004930| 6b 65 79 77 6f 72 64 0a | 58 20 20 28 64 65 66 61 |keyword.|X  (defa|
|00004940| 75 6c 74 20 2a 73 6c 6f | 74 64 2d 75 6e 73 75 70 |ult *slo|td-unsup|
|00004950| 70 6c 69 65 64 2a 29 0a | 58 20 20 28 74 79 70 65 |plied*).|X  (type|
|00004960| 20 2a 73 6c 6f 74 64 2d | 75 6e 73 75 70 70 6c 69 | *slotd-|unsuppli|
|00004970| 65 64 2a 29 0a 58 20 20 | 28 72 65 61 64 2d 6f 6e |ed*).X  |(read-on|
|00004980| 6c 79 20 2a 73 6c 6f 74 | 64 2d 75 6e 73 75 70 70 |ly *slot|d-unsupp|
|00004990| 6c 69 65 64 2a 29 0a 58 | 20 20 28 61 63 63 65 73 |lied*).X|  (acces|
|000049a0| 73 6f 72 20 2a 73 6c 6f | 74 64 2d 75 6e 73 75 70 |sor *slo|td-unsup|
|000049b0| 70 6c 69 65 64 2a 29 0a | 58 20 20 28 61 6c 6c 6f |plied*).|X  (allo|
|000049c0| 63 61 74 69 6f 6e 20 2a | 73 6c 6f 74 64 2d 75 6e |cation *|slotd-un|
|000049d0| 73 75 70 70 6c 69 65 64 | 2a 29 0a 58 20 20 67 65 |supplied|*).X  ge|
|000049e0| 74 2d 66 75 6e 63 74 69 | 6f 6e 20 20 20 3b 4e 49 |t-functi|on   ;NI|
|000049f0| 4c 20 69 66 20 6e 6f 20 | 3a 67 65 74 28 70 75 74 |L if no |:get(put|
|00004a00| 29 2d 66 75 6e 63 74 69 | 6f 6e 20 61 72 67 75 6d |)-functi|on argum|
|00004a10| 65 6e 74 20 77 61 73 20 | 73 75 70 70 6c 69 65 64 |ent was |supplied|
|00004a20| 2e 0a 58 20 20 70 75 74 | 2d 66 75 6e 63 74 69 6f |..X  put|-functio|
|00004a30| 6e 20 20 20 3b 4f 74 68 | 65 72 77 69 73 65 2c 20 |n   ;Oth|erwise, |
|00004a40| 61 20 66 75 6e 63 74 69 | 6f 6e 20 6f 66 20 74 77 |a functi|on of tw|
|00004a50| 6f 20 28 74 68 72 65 65 | 29 61 72 67 75 6d 65 6e |o (three|)argumen|
|00004a60| 74 73 2c 20 74 68 65 0a | 58 20 20 20 20 20 20 20 |ts, the.|X       |
|00004a70| 20 20 20 20 20 20 20 20 | 20 20 3b 6f 62 6a 65 63 |        |  ;objec|
|00004a80| 74 2c 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |t, the n|ame of t|
|00004a90| 68 65 20 73 6c 6f 74 20 | 28 61 6e 64 20 74 68 65 |he slot |(and the|
|00004aa0| 20 6e 65 77 2d 76 61 6c | 75 65 29 2e 0a 58 20 20 | new-val|ue)..X  |
|00004ab0| 29 0a 58 0a 58 28 64 65 | 66 6d 65 74 68 20 6d 61 |).X.X(de|fmeth ma|
|00004ac0| 6b 65 2d 73 6c 6f 74 64 | 20 28 28 63 6c 61 73 73 |ke-slotd| ((class|
|00004ad0| 20 62 61 73 69 63 2d 63 | 6c 61 73 73 29 20 26 72 | basic-c|lass) &r|
|00004ae0| 65 73 74 20 6b 65 79 77 | 6f 72 64 73 2d 61 6e 64 |est keyw|ords-and|
|00004af0| 2d 6f 70 74 69 6f 6e 73 | 29 0a 58 20 20 28 69 67 |-options|).X  (ig|
|00004b00| 6e 6f 72 65 20 63 6c 61 | 73 73 29 0a 58 20 20 28 |nore cla|ss).X  (|
|00004b10| 61 70 70 6c 79 20 23 27 | 6d 61 6b 65 2d 73 6c 6f |apply #'|make-slo|
|00004b20| 74 64 2d 2d 63 6c 61 73 | 73 20 6b 65 79 77 6f 72 |td--clas|s keywor|
|00004b30| 64 73 2d 61 6e 64 2d 6f | 70 74 69 6f 6e 73 29 29 |ds-and-o|ptions))|
|00004b40| 0a 58 0a 58 28 64 65 66 | 6d 65 74 68 20 70 61 72 |.X.X(def|meth par|
|00004b50| 73 65 2d 73 6c 6f 74 2d | 64 65 73 63 72 69 70 74 |se-slot-|descript|
|00004b60| 69 6f 6e 73 20 28 28 63 | 6c 61 73 73 20 62 61 73 |ions ((c|lass bas|
|00004b70| 69 63 2d 63 6c 61 73 73 | 29 20 64 73 2d 6f 70 74 |ic-class|) ds-opt|
|00004b80| 69 6f 6e 73 20 73 6c 6f | 74 2d 64 65 73 63 72 69 |ions slo|t-descri|
|00004b90| 70 74 69 6f 6e 73 29 0a | 58 20 20 28 69 74 65 72 |ptions).|X  (iter|
|00004ba0| 61 74 65 20 28 28 73 6c | 6f 74 2d 64 65 73 63 72 |ate ((sl|ot-descr|
|00004bb0| 69 70 74 69 6f 6e 20 69 | 6e 20 73 6c 6f 74 2d 64 |iption i|n slot-d|
|00004bc0| 65 73 63 72 69 70 74 69 | 6f 6e 73 29 29 0a 58 20 |escripti|ons)).X |
|00004bd0| 20 20 20 28 63 6f 6c 6c | 65 63 74 20 28 70 61 72 |   (coll|ect (par|
|00004be0| 73 65 2d 73 6c 6f 74 2d | 64 65 73 63 72 69 70 74 |se-slot-|descript|
|00004bf0| 69 6f 6e 20 63 6c 61 73 | 73 20 64 73 2d 6f 70 74 |ion clas|s ds-opt|
|00004c00| 69 6f 6e 73 20 73 6c 6f | 74 2d 64 65 73 63 72 69 |ions slo|t-descri|
|00004c10| 70 74 69 6f 6e 29 29 29 | 29 0a 58 0a 58 28 64 65 |ption)))|).X.X(de|
|00004c20| 66 6d 65 74 68 20 70 61 | 72 73 65 2d 73 6c 6f 74 |fmeth pa|rse-slot|
|00004c30| 2d 64 65 73 63 72 69 70 | 74 69 6f 6e 20 28 28 63 |-descrip|tion ((c|
|00004c40| 6c 61 73 73 20 62 61 73 | 69 63 2d 63 6c 61 73 73 |lass bas|ic-class|
|00004c50| 29 20 64 73 2d 6f 70 74 | 69 6f 6e 73 20 73 6c 6f |) ds-opt|ions slo|
|00004c60| 74 2d 64 65 73 63 72 69 | 70 74 69 6f 6e 29 0a 58 |t-descri|ption).X|
|00004c70| 20 20 28 70 61 72 73 65 | 2d 73 6c 6f 74 2d 64 65 |  (parse|-slot-de|
|00004c80| 73 63 72 69 70 74 69 6f | 6e 2d 69 6e 74 65 72 6e |scriptio|n-intern|
|00004c90| 61 6c 0a 58 20 20 20 20 | 63 6c 61 73 73 20 64 73 |al.X    |class ds|
|00004ca0| 2d 6f 70 74 69 6f 6e 73 | 20 73 6c 6f 74 2d 64 65 |-options| slot-de|
|00004cb0| 73 63 72 69 70 74 69 6f | 6e 20 28 6d 61 6b 65 2d |scriptio|n (make-|
|00004cc0| 73 6c 6f 74 64 20 63 6c | 61 73 73 29 29 29 0a 58 |slotd cl|ass))).X|
|00004cd0| 0a 58 28 64 65 66 6d 65 | 74 68 20 70 61 72 73 65 |.X(defme|th parse|
|00004ce0| 2d 73 6c 6f 74 2d 64 65 | 73 63 72 69 70 74 69 6f |-slot-de|scriptio|
|00004cf0| 6e 2d 69 6e 74 65 72 6e | 61 6c 20 28 28 63 6c 61 |n-intern|al ((cla|
|00004d00| 73 73 20 62 61 73 69 63 | 2d 63 6c 61 73 73 29 20 |ss basic|-class) |
|00004d10| 64 73 2d 6f 70 74 69 6f | 6e 73 20 73 6c 6f 74 2d |ds-optio|ns slot-|
|00004d20| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 73 6c 6f 74 |descript|ion slot|
|00004d30| 64 29 0a 58 20 20 28 69 | 67 6e 6f 72 65 20 63 6c |d).X  (i|gnore cl|
|00004d40| 61 73 73 29 0a 58 20 20 | 28 6c 65 74 20 28 28 63 |ass).X  |(let ((c|
|00004d50| 6f 6e 63 2d 6e 61 6d 65 | 20 28 64 73 2d 6f 70 74 |onc-name| (ds-opt|
|00004d60| 69 6f 6e 73 2d 63 6f 6e | 63 2d 6e 61 6d 65 20 64 |ions-con|c-name d|
|00004d70| 73 2d 6f 70 74 69 6f 6e | 73 29 29 0a 58 20 20 20 |s-option|s)).X   |
|00004d80| 20 20 20 20 20 28 67 65 | 6e 65 72 61 74 65 2d 61 |     (ge|nerate-a|
|00004d90| 63 63 65 73 73 6f 72 73 | 20 28 64 73 2d 6f 70 74 |ccessors| (ds-opt|
|00004da0| 69 6f 6e 73 2d 67 65 6e | 65 72 61 74 65 2d 61 63 |ions-gen|erate-ac|
|00004db0| 63 65 73 73 6f 72 73 20 | 64 73 2d 6f 70 74 69 6f |cessors |ds-optio|
|00004dc0| 6e 73 29 29 29 0a 58 20 | 20 20 20 23 2b 4c 75 63 |ns))).X |   #+Luc|
|00004dd0| 69 64 20 28 64 65 63 6c | 61 72 65 20 28 73 70 65 |id (decl|are (spe|
|00004de0| 63 69 61 6c 20 63 6f 6e | 63 2d 6e 61 6d 65 20 67 |cial con|c-name g|
|00004df0| 65 6e 65 72 61 74 65 2d | 61 63 63 65 73 73 6f 72 |enerate-|accessor|
|00004e00| 73 29 29 0a 58 20 20 20 | 20 28 64 65 73 74 72 75 |s)).X   | (destru|
|00004e10| 63 74 75 72 69 6e 67 2d | 62 69 6e 64 20 28 6e 61 |cturing-|bind (na|
|00004e20| 6d 65 20 64 65 66 61 75 | 6c 74 20 2e 20 61 72 67 |me defau|lt . arg|
|00004e30| 73 29 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |s).X    |        |
|00004e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 6c 6f 74 |        |    slot|
|00004e50| 2d 64 65 73 63 72 69 70 | 74 69 6f 6e 0a 58 20 20 |-descrip|tion.X  |
|00004e60| 20 20 20 20 28 6b 65 79 | 77 6f 72 64 2d 62 69 6e |    (key|word-bin|
|00004e70| 64 20 28 28 74 79 70 65 | 20 6e 69 6c 29 0a 58 20 |d ((type| nil).X |
|00004e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004e90| 20 20 20 20 28 72 65 61 | 64 2d 6f 6e 6c 79 20 6e |    (rea|d-only n|
|00004ea0| 69 6c 29 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |il).X   |        |
|00004eb0| 20 20 20 20 20 20 20 20 | 20 20 28 67 65 6e 65 72 |        |  (gener|
|00004ec0| 61 74 65 2d 61 63 63 65 | 73 73 6f 72 20 67 65 6e |ate-acce|ssor gen|
|00004ed0| 65 72 61 74 65 2d 61 63 | 63 65 73 73 6f 72 73 29 |erate-ac|cessors)|
|00004ee0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|00004ef0| 20 20 20 20 20 20 20 28 | 61 6c 6c 6f 63 61 74 69 |       (|allocati|
|00004f00| 6f 6e 20 3a 69 6e 73 74 | 61 6e 63 65 29 0a 58 20 |on :inst|ance).X |
|00004f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004f20| 20 20 20 20 28 67 65 74 | 2d 66 75 6e 63 74 69 6f |    (get|-functio|
|00004f30| 6e 20 6e 69 6c 29 0a 58 | 20 20 20 20 20 20 20 20 |n nil).X|        |
|00004f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 70 75 |        |     (pu|
|00004f50| 74 2d 66 75 6e 63 74 69 | 6f 6e 20 6e 69 6c 29 0a |t-functi|on nil).|
|00004f60| 58 0a 58 09 09 20 20 20 | 20 20 28 61 63 63 65 73 |X.X..   |  (acces|
|00004f70| 73 6f 72 20 6e 69 6c 20 | 61 63 63 65 73 73 6f 72 |sor nil |accessor|
|00004f80| 2d 70 29 0a 58 09 09 20 | 20 20 20 20 28 69 6e 69 |-p).X.. |    (ini|
|00004f90| 74 66 6f 72 6d 20 6e 69 | 6c 29 09 09 3b 69 67 6e |tform ni|l)..;ign|
|00004fa0| 6f 72 65 0a 58 09 09 20 | 20 20 20 20 29 0a 58 20 |ore.X.. |    ).X |
|00004fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004fc0| 20 20 20 61 72 67 73 0a | 58 20 20 20 20 20 20 20 |   args.|X       |
|00004fd0| 20 23 2b 4c 75 63 69 64 | 28 64 65 63 6c 61 72 65 | #+Lucid|(declare|
|00004fe0| 20 28 73 70 65 63 69 61 | 6c 20 74 79 70 65 20 72 | (specia|l type r|
|00004ff0| 65 61 64 2d 6f 6e 6c 79 | 20 67 65 6e 65 72 61 74 |ead-only| generat|
|00005000| 65 2d 61 63 63 65 73 73 | 6f 72 20 61 6c 6c 6f 63 |e-access|or alloc|
|00005010| 61 74 69 6f 6e 0a 58 20 | 20 20 20 20 20 20 20 20 |ation.X |        |
|00005020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005030| 20 20 20 20 20 20 20 20 | 67 65 74 2d 66 75 6e 63 |        |get-func|
|00005040| 74 69 6f 6e 20 70 75 74 | 2d 66 75 6e 63 74 69 6f |tion put|-functio|
|00005050| 6e 29 29 0a 58 20 20 20 | 20 20 20 20 20 28 63 68 |n)).X   |     (ch|
|00005060| 65 63 6b 2d 6d 65 6d 62 | 65 72 20 61 6c 6c 6f 63 |eck-memb|er alloc|
|00005070| 61 74 69 6f 6e 20 27 28 | 3a 63 6c 61 73 73 20 3a |ation '(|:class :|
|00005080| 69 6e 73 74 61 6e 63 65 | 20 3a 64 79 6e 61 6d 69 |instance| :dynami|
|00005090| 63 29 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |c).X    |        |
|000050a0| 20 20 20 20 20 20 20 20 | 20 20 3a 74 65 73 74 20 |        |  :test |
|000050b0| 23 27 65 71 0a 58 20 20 | 20 20 20 20 20 20 20 20 |#'eq.X  |        |
|000050c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 70 72 65 |        |    :pre|
|000050d0| 74 74 79 2d 6e 61 6d 65 | 20 22 74 68 65 20 3a 61 |tty-name| "the :a|
|000050e0| 6c 6c 6f 63 61 74 69 6f | 6e 20 6f 70 74 69 6f 6e |llocatio|n option|
|000050f0| 22 29 0a 58 20 20 20 20 | 20 20 20 20 28 73 65 74 |").X    |    (set|
|00005100| 66 20 28 73 6c 6f 74 64 | 2d 6e 61 6d 65 20 73 6c |f (slotd|-name sl|
|00005110| 6f 74 64 29 20 20 20 20 | 20 20 20 20 20 6e 61 6d |otd)    |     nam|
|00005120| 65 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e.X     |        |
|00005130| 20 28 73 6c 6f 74 64 2d | 6b 65 79 77 6f 72 64 20 | (slotd-|keyword |
|00005140| 73 6c 6f 74 64 29 20 20 | 20 20 20 20 28 6d 61 6b |slotd)  |    (mak|
|00005150| 65 2d 6b 65 79 77 6f 72 | 64 20 6e 61 6d 65 29 0a |e-keywor|d name).|
|00005160| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |X       |       (|
|00005170| 73 6c 6f 74 64 2d 64 65 | 66 61 75 6c 74 20 73 6c |slotd-de|fault sl|
|00005180| 6f 74 64 29 20 20 20 20 | 20 20 64 65 66 61 75 6c |otd)    |  defaul|
|00005190| 74 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t.X     |        |
|000051a0| 20 28 73 6c 6f 74 64 2d | 74 79 70 65 20 73 6c 6f | (slotd-|type slo|
|000051b0| 74 64 29 20 20 20 20 20 | 20 20 20 20 74 79 70 65 |td)     |    type|
|000051c0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.X      |        |
|000051d0| 28 73 6c 6f 74 64 2d 72 | 65 61 64 2d 6f 6e 6c 79 |(slotd-r|ead-only|
|000051e0| 20 73 6c 6f 74 64 29 20 | 20 20 20 72 65 61 64 2d | slotd) |   read-|
|000051f0| 6f 6e 6c 79 0a 58 20 20 | 20 20 20 20 20 20 20 20 |only.X  |        |
|00005200| 20 20 20 20 28 73 6c 6f | 74 64 2d 61 63 63 65 73 |    (slo|td-acces|
|00005210| 73 6f 72 20 73 6c 6f 74 | 64 29 20 20 20 20 20 28 |sor slot|d)     (|
|00005220| 69 66 20 61 63 63 65 73 | 73 6f 72 2d 70 0a 58 09 |if acces|sor-p.X.|
|00005230| 09 09 09 09 20 20 20 20 | 20 61 63 63 65 73 73 6f |....    | accesso|
|00005240| 72 0a 58 09 09 09 09 09 | 20 20 20 20 20 28 61 6e |r.X.....|     (an|
|00005250| 64 20 67 65 6e 65 72 61 | 74 65 2d 61 63 63 65 73 |d genera|te-acces|
|00005260| 73 6f 72 0a 58 09 09 09 | 09 09 09 20 20 28 69 66 |sor.X...|...  (if|
|00005270| 20 63 6f 6e 63 2d 6e 61 | 6d 65 0a 58 09 09 09 09 | conc-na|me.X....|
|00005280| 09 09 20 20 20 20 20 28 | 73 79 6d 62 6f 6c 2d 61 |..     (|symbol-a|
|00005290| 70 70 65 6e 64 20 63 6f | 6e 63 2d 6e 61 6d 65 0a |ppend co|nc-name.|
|000052a0| 58 09 09 09 09 09 09 09 | 09 20 20 20 20 6e 61 6d |X.......|.    nam|
|000052b0| 65 29 0a 58 09 09 09 09 | 09 09 20 20 20 20 20 6e |e).X....|..     n|
|000052c0| 61 6d 65 29 29 29 0a 58 | 20 20 20 20 20 20 20 20 |ame))).X|        |
|000052d0| 20 20 20 20 20 20 28 73 | 6c 6f 74 64 2d 61 6c 6c |      (s|lotd-all|
|000052e0| 6f 63 61 74 69 6f 6e 20 | 73 6c 6f 74 64 29 20 20 |ocation |slotd)  |
|000052f0| 20 61 6c 6c 6f 63 61 74 | 69 6f 6e 0a 58 20 20 20 | allocat|ion.X   |
|00005300| 20 20 20 20 20 20 20 20 | 20 20 20 28 73 6c 6f 74 |        |   (slot|
|00005310| 64 2d 67 65 74 2d 66 75 | 6e 63 74 69 6f 6e 20 73 |d-get-fu|nction s|
|00005320| 6c 6f 74 64 29 20 28 61 | 6e 64 20 67 65 74 2d 66 |lotd) (a|nd get-f|
|00005330| 75 6e 63 74 69 6f 6e 0a | 58 20 20 20 20 20 20 20 |unction.|X       |
|00005340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005360| 20 20 20 20 20 20 20 28 | 69 66 20 28 61 6e 64 20 |       (|if (and |
|00005370| 28 63 6f 6e 73 70 20 67 | 65 74 2d 66 75 6e 63 74 |(consp g|et-funct|
|00005380| 69 6f 6e 29 0a 58 20 20 | 20 20 20 20 20 20 20 20 |ion).X  |        |
|00005390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000053a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000053b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 65 71 |        |     (eq|
|000053c0| 20 28 63 61 72 20 67 65 | 74 2d 66 75 6e 63 74 69 | (car ge|t-functi|
|000053d0| 6f 6e 29 20 27 66 75 6e | 63 74 69 6f 6e 29 29 0a |on) 'fun|ction)).|
|000053e0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X       |        |
|000053f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005410| 20 20 20 67 65 74 2d 66 | 75 6e 63 74 69 6f 6e 0a |   get-f|unction.|
|00005420| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X       |        |
|00005430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005450| 20 20 20 28 6c 69 73 74 | 20 27 66 75 6e 63 74 69 |   (list| 'functi|
|00005460| 6f 6e 20 67 65 74 2d 66 | 75 6e 63 74 69 6f 6e 29 |on get-f|unction)|
|00005470| 29 29 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).X    |        |
|00005480| 20 20 28 73 6c 6f 74 64 | 2d 70 75 74 2d 66 75 6e |  (slotd|-put-fun|
|00005490| 63 74 69 6f 6e 20 73 6c | 6f 74 64 29 20 28 61 6e |ction sl|otd) (an|
|000054a0| 64 20 70 75 74 2d 66 75 | 6e 63 74 69 6f 6e 0a 58 |d put-fu|nction.X|
|000054b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000054c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000054d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 69 |        |      (i|
|000054e0| 66 20 28 61 6e 64 20 28 | 63 6f 6e 73 70 20 70 75 |f (and (|consp pu|
|000054f0| 74 2d 66 75 6e 63 74 69 | 6f 6e 29 0a 58 20 20 20 |t-functi|on).X   |
|00005500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005530| 20 20 20 20 28 65 71 20 | 28 63 61 72 20 70 75 74 |    (eq |(car put|
|00005540| 2d 66 75 6e 63 74 69 6f | 6e 29 20 27 66 75 6e 63 |-functio|n) 'func|
|00005550| 74 69 6f 6e 29 29 0a 58 | 20 20 20 20 20 20 20 20 |tion)).X|        |
|00005560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005580| 20 20 20 20 20 20 20 20 | 20 20 70 75 74 2d 66 75 |        |  put-fu|
|00005590| 6e 63 74 69 6f 6e 0a 58 | 20 20 20 20 20 20 20 20 |nction.X|        |
|000055a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000055b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000055c0| 20 20 20 20 20 20 20 20 | 20 20 28 6c 69 73 74 20 |        |  (list |
|000055d0| 27 66 75 6e 63 74 69 6f | 6e 20 70 75 74 2d 66 75 |'functio|n put-fu|
|000055e0| 6e 63 74 69 6f 6e 29 29 | 29 29 0a 58 20 20 20 20 |nction))|)).X    |
|000055f0| 20 20 20 20 73 6c 6f 74 | 64 29 29 29 29 0a 58 0a |    slot|d)))).X.|
|00005600| 58 3b 3b 3b 0a 58 3b 3b | 3b 20 54 61 6b 65 20 74 |X;;;.X;;|; Take t|
|00005610| 77 6f 20 6c 69 73 74 73 | 20 6f 66 20 73 6c 6f 74 |wo lists| of slot|
|00005620| 64 73 20 61 6e 64 20 72 | 65 74 75 72 6e 20 74 20 |ds and r|eturn t |
|00005630| 69 66 20 74 68 65 79 20 | 64 65 73 63 72 69 62 65 |if they |describe|
|00005640| 20 61 6e 20 73 65 74 20 | 6f 66 20 73 6c 6f 74 73 | an set |of slots|
|00005650| 20 6f 66 0a 58 3b 3b 3b | 20 74 68 65 20 73 61 6d | of.X;;;| the sam|
|00005660| 65 20 73 68 61 70 65 2e | 20 20 4f 74 68 65 72 77 |e shape.|  Otherw|
|00005670| 69 73 65 20 72 65 74 75 | 72 6e 20 6e 69 6c 2e 20 |ise retu|rn nil. |
|00005680| 20 53 65 74 73 20 6f 66 | 20 73 6c 6f 74 73 20 61 | Sets of| slots a|
|00005690| 72 65 20 68 61 76 65 20 | 74 68 65 20 73 61 6d 65 |re have |the same|
|000056a0| 0a 58 3b 3b 3b 20 73 61 | 6d 65 20 73 68 61 70 65 |.X;;; sa|me shape|
|000056b0| 20 69 66 20 74 68 65 79 | 20 68 61 76 65 20 74 68 | if they| have th|
|000056c0| 65 79 20 62 6f 74 68 20 | 68 61 76 65 20 74 68 65 |ey both |have the|
|000056d0| 20 73 61 6d 65 20 3a 61 | 6c 6c 6f 63 61 74 69 6f | same :a|llocatio|
|000056e0| 6e 20 3a 69 6e 73 74 61 | 6e 63 65 0a 58 3b 3b 3b |n :insta|nce.X;;;|
|000056f0| 20 73 6c 6f 74 73 20 61 | 6e 64 20 69 66 20 74 68 | slots a|nd if th|
|00005700| 6f 73 65 20 73 6c 6f 74 | 73 20 61 70 70 65 61 72 |ose slot|s appear|
|00005710| 20 69 6e 20 74 68 65 20 | 73 61 6d 65 20 6f 72 64 | in the |same ord|
|00005720| 65 72 2e 0a 58 3b 3b 3b | 20 0a 58 28 64 65 66 75 |er..X;;;| .X(defu|
|00005730| 6e 20 73 61 6d 65 2d 73 | 68 61 70 65 2d 73 6c 6f |n same-s|hape-slo|
|00005740| 74 73 2d 70 20 28 6f 6c | 64 2d 73 6c 6f 74 64 73 |ts-p (ol|d-slotds|
|00005750| 20 6e 65 77 2d 73 6c 6f | 74 64 73 29 0a 58 20 20 | new-slo|tds).X  |
|00005760| 28 64 6f 20 28 29 0a 58 | 20 20 20 20 20 20 28 28 |(do ().X|      ((|
|00005770| 61 6e 64 20 28 6e 75 6c | 6c 20 6f 6c 64 2d 73 6c |and (nul|l old-sl|
|00005780| 6f 74 64 73 29 20 28 6e | 75 6c 6c 20 6e 65 77 2d |otds) (n|ull new-|
|00005790| 73 6c 6f 74 64 73 29 29 | 20 74 29 0a 58 20 20 20 |slotds))| t).X   |
|000057a0| 20 28 6c 65 74 2a 20 28 | 28 6f 6c 64 20 28 70 6f | (let* (|(old (po|
|000057b0| 70 20 6f 6c 64 2d 73 6c | 6f 74 64 73 29 29 0a 58 |p old-sl|otds)).X|
|000057c0| 09 20 20 20 28 6e 65 77 | 20 28 70 6f 70 20 6e 65 |.   (new| (pop ne|
|000057d0| 77 2d 73 6c 6f 74 64 73 | 29 29 0a 58 09 20 20 20 |w-slotds|)).X.   |
|000057e0| 28 6f 6c 64 2d 61 6c 6c | 6f 63 61 74 69 6f 6e 20 |(old-all|ocation |
|000057f0| 28 61 6e 64 20 6f 6c 64 | 20 28 73 6c 6f 74 64 2d |(and old| (slotd-|
|00005800| 61 6c 6c 6f 63 61 74 69 | 6f 6e 20 6f 6c 64 29 29 |allocati|on old))|
|00005810| 29 0a 58 09 20 20 20 28 | 6e 65 77 2d 61 6c 6c 6f |).X.   (|new-allo|
|00005820| 63 61 74 69 6f 6e 20 28 | 61 6e 64 20 6e 65 77 20 |cation (|and new |
|00005830| 28 73 6c 6f 74 64 2d 61 | 6c 6c 6f 63 61 74 69 6f |(slotd-a|llocatio|
|00005840| 6e 20 6e 65 77 29 29 29 | 29 0a 58 20 20 20 20 20 |n new)))|).X     |
|00005850| 20 3b 3b 20 46 6f 72 20 | 74 68 65 20 6f 6c 64 20 | ;; For |the old |
|00005860| 61 6e 64 20 6e 65 77 20 | 73 6c 6f 74 64 20 63 68 |and new |slotd ch|
|00005870| 65 63 6b 20 61 6c 6c 20 | 74 68 65 20 70 6f 73 73 |eck all |the poss|
|00005880| 69 62 6c 65 20 72 65 61 | 73 6f 6e 73 0a 58 20 20 |ible rea|sons.X  |
|00005890| 20 20 20 20 3b 3b 20 77 | 68 79 20 74 68 65 79 20 |    ;; w|hy they |
|000058a0| 6d 69 67 68 74 20 6e 6f | 74 20 6d 61 74 63 68 2e |might no|t match.|
|000058b0| 0a 58 20 20 20 20 20 20 | 3b 3b 20 20 20 2d 20 4f |.X      |;;   - O|
|000058c0| 6e 65 20 6f 72 20 74 68 | 65 20 6f 74 68 65 72 20 |ne or th|e other |
|000058d0| 69 73 20 6e 75 6c 6c 20 | 6d 65 61 6e 73 20 74 68 |is null |means th|
|000058e0| 61 74 20 61 20 73 6c 6f | 74 20 65 69 74 68 65 72 |at a slo|t either|
|000058f0| 0a 58 20 20 20 20 20 20 | 3b 3b 20 20 20 20 20 64 |.X      |;;     d|
|00005900| 69 73 61 70 70 65 61 72 | 65 64 20 6f 72 20 67 6f |isappear|ed or go|
|00005910| 74 20 61 64 64 65 64 2e | 0a 58 20 20 20 20 20 20 |t added.|.X      |
|00005920| 3b 3b 20 20 20 2d 20 54 | 68 65 20 6e 61 6d 65 73 |;;   - T|he names|
|00005930| 20 61 72 65 20 64 69 66 | 66 65 72 65 6e 74 20 6d | are dif|ferent m|
|00005940| 65 61 6e 73 20 74 68 61 | 74 20 61 20 73 6c 6f 74 |eans tha|t a slot|
|00005950| 20 6d 6f 76 65 64 0a 58 | 20 20 20 20 20 20 3b 3b | moved.X|      ;;|
|00005960| 20 20 20 20 20 64 69 73 | 61 70 70 61 72 65 64 20 |     dis|appared |
|00005970| 6f 72 20 67 6f 20 61 64 | 64 65 64 2e 0a 58 20 20 |or go ad|ded..X  |
|00005980| 20 20 20 20 3b 3b 20 20 | 20 2d 20 49 66 20 74 68 |    ;;  | - If th|
|00005990| 65 20 61 6c 6c 6f 63 61 | 74 69 6f 6e 73 20 61 72 |e alloca|tions ar|
|000059a0| 65 20 64 69 66 66 65 72 | 65 6e 74 2c 20 61 6e 64 |e differ|ent, and|
|000059b0| 20 6f 6e 65 20 6f 66 20 | 74 68 65 6d 0a 58 20 20 | one of |them.X  |
|000059c0| 20 20 20 20 3b 3b 20 20 | 20 20 20 69 73 20 3a 69 |    ;;  |   is :i|
|000059d0| 6e 73 74 61 6e 63 65 20 | 74 68 65 6e 20 61 20 73 |nstance |then a s|
|000059e0| 6c 6f 74 20 65 69 74 68 | 65 72 20 62 65 63 61 6d |lot eith|er becam|
|000059f0| 65 20 6f 72 20 63 65 61 | 73 65 64 0a 58 20 20 20 |e or cea|sed.X   |
|00005a00| 20 20 20 3b 3b 20 20 20 | 20 20 74 6f 20 62 65 20 |   ;;   |  to be |
|00005a10| 3a 61 6c 6c 6f 63 61 74 | 69 6f 6e 20 3a 69 6e 73 |:allocat|ion :ins|
|00005a20| 74 61 6e 63 65 2e 0a 58 | 20 20 20 20 20 20 28 77 |tance..X|      (w|
|00005a30| 68 65 6e 20 28 6f 72 20 | 28 6e 75 6c 6c 20 6f 6c |hen (or |(null ol|
|00005a40| 64 29 0a 58 09 09 28 6e | 75 6c 6c 20 6e 65 77 29 |d).X..(n|ull new)|
|00005a50| 0a 58 09 09 28 6e 65 71 | 20 28 73 6c 6f 74 64 2d |.X..(neq| (slotd-|
|00005a60| 6e 61 6d 65 20 6f 6c 64 | 29 20 28 73 6c 6f 74 64 |name old|) (slotd|
|00005a70| 2d 6e 61 6d 65 20 6e 65 | 77 29 29 0a 58 09 09 28 |-name ne|w)).X..(|
|00005a80| 61 6e 64 20 28 6e 65 71 | 20 6f 6c 64 2d 61 6c 6c |and (neq| old-all|
|00005a90| 6f 63 61 74 69 6f 6e 20 | 6e 65 77 2d 61 6c 6c 6f |ocation |new-allo|
|00005aa0| 63 61 74 69 6f 6e 29 0a | 58 09 09 20 20 20 20 20 |cation).|X..     |
|00005ab0| 28 6f 72 20 28 65 71 20 | 6f 6c 64 2d 61 6c 6c 6f |(or (eq |old-allo|
|00005ac0| 63 61 74 69 6f 6e 20 3a | 69 6e 73 74 61 6e 63 65 |cation :|instance|
|00005ad0| 29 0a 58 09 09 09 20 28 | 65 71 20 6e 65 77 2d 61 |).X... (|eq new-a|
|00005ae0| 6c 6c 6f 63 61 74 69 6f | 6e 20 3a 69 6e 73 74 61 |llocatio|n :insta|
|00005af0| 6e 63 65 29 29 29 29 0a | 58 09 28 72 65 74 75 72 |nce)))).|X.(retur|
|00005b00| 6e 20 6e 69 6c 29 29 29 | 29 29 0a 58 0a 58 28 64 |n nil)))|)).X.X(d|
|00005b10| 65 66 6d 65 74 68 20 73 | 6c 6f 74 73 2d 77 69 74 |efmeth s|lots-wit|
|00005b20| 68 2d 61 6c 6c 6f 63 61 | 74 69 6f 6e 20 28 28 63 |h-alloca|tion ((c|
|00005b30| 6c 61 73 73 20 62 61 73 | 69 63 2d 63 6c 61 73 73 |lass bas|ic-class|
|00005b40| 29 20 73 6c 6f 74 64 73 | 20 61 6c 6c 6f 63 61 74 |) slotds| allocat|
|00005b50| 69 6f 6e 29 0a 58 20 20 | 28 69 67 6e 6f 72 65 20 |ion).X  |(ignore |
|00005b60| 63 6c 61 73 73 29 0a 58 | 20 20 28 69 74 65 72 61 |class).X|  (itera|
|00005b70| 74 65 20 28 28 73 6c 6f | 74 64 20 69 6e 20 73 6c |te ((slo|td in sl|
|00005b80| 6f 74 64 73 29 29 0a 58 | 20 20 20 20 28 77 68 65 |otds)).X|    (whe|
|00005b90| 6e 20 28 65 71 20 28 73 | 6c 6f 74 64 2d 61 6c 6c |n (eq (s|lotd-all|
|00005ba0| 6f 63 61 74 69 6f 6e 20 | 73 6c 6f 74 64 29 20 61 |ocation |slotd) a|
|00005bb0| 6c 6c 6f 63 61 74 69 6f | 6e 29 0a 58 20 20 20 20 |llocatio|n).X    |
|00005bc0| 20 20 28 63 6f 6c 6c 65 | 63 74 20 73 6c 6f 74 64 |  (colle|ct slotd|
|00005bd0| 29 29 29 29 0a 58 0a 58 | 28 64 65 66 6d 65 74 68 |)))).X.X|(defmeth|
|00005be0| 20 73 6c 6f 74 73 2d 77 | 69 74 68 2d 61 6c 6c 6f | slots-w|ith-allo|
|00005bf0| 63 61 74 69 6f 6e 2d 6e | 6f 74 20 28 28 63 6c 61 |cation-n|ot ((cla|
|00005c00| 73 73 20 62 61 73 69 63 | 2d 63 6c 61 73 73 29 20 |ss basic|-class) |
|00005c10| 73 6c 6f 74 64 73 20 61 | 6c 6c 6f 63 61 74 69 6f |slotds a|llocatio|
|00005c20| 6e 29 0a 58 20 20 28 69 | 67 6e 6f 72 65 20 63 6c |n).X  (i|gnore cl|
|00005c30| 61 73 73 29 0a 58 20 20 | 28 69 74 65 72 61 74 65 |ass).X  |(iterate|
|00005c40| 20 28 28 73 6c 6f 74 64 | 20 69 6e 20 73 6c 6f 74 | ((slotd| in slot|
|00005c50| 64 73 29 29 0a 58 20 20 | 20 20 28 75 6e 6c 65 73 |ds)).X  |  (unles|
|00005c60| 73 20 28 65 71 20 28 73 | 6c 6f 74 64 2d 61 6c 6c |s (eq (s|lotd-all|
|00005c70| 6f 63 61 74 69 6f 6e 20 | 73 6c 6f 74 64 29 20 61 |ocation |slotd) a|
|00005c80| 6c 6c 6f 63 61 74 69 6f | 6e 29 0a 58 20 20 20 20 |llocatio|n).X    |
|00005c90| 20 20 28 63 6f 6c 6c 65 | 63 74 20 73 6c 6f 74 64 |  (colle|ct slotd|
|00005ca0| 29 29 29 29 0a 58 0c 0a | 58 20 20 3b 3b 20 20 20 |)))).X..|X  ;;   |
|00005cb0| 0a 58 3b 3b 3b 3b 3b 3b | 20 47 45 54 2d 53 4c 4f |.X;;;;;;| GET-SLO|
|00005cc0| 54 20 61 6e 64 20 50 55 | 54 2d 53 4c 4f 54 0a 58 |T and PU|T-SLOT.X|
|00005cd0| 20 20 3b 3b 0a 58 3b 3b | 3b 20 49 74 73 20 73 74 |  ;;.X;;|; Its st|
|00005ce0| 69 6c 6c 20 74 6f 6f 20 | 65 61 72 6c 79 20 74 6f |ill too |early to|
|00005cf0| 20 66 75 6c 6c 79 20 64 | 65 66 69 6e 65 20 67 65 | fully d|efine ge|
|00005d00| 74 2d 73 6c 6f 74 20 61 | 6e 64 20 70 75 74 2d 73 |t-slot a|nd put-s|
|00005d10| 6c 6f 74 20 73 69 6e 63 | 65 20 74 68 65 79 20 6e |lot sinc|e they n|
|00005d20| 65 65 64 0a 58 3b 3b 3b | 20 74 68 65 20 6d 65 74 |eed.X;;;| the met|
|00005d30| 61 2d 62 72 61 69 64 20 | 74 6f 20 77 6f 72 6b 2e |a-braid |to work.|
|00005d40| 0a 58 3b 3b 3b 0a 58 3b | 3b 3b 20 42 75 74 20 69 |.X;;;.X;|;; But i|
|00005d50| 74 73 20 6e 69 63 65 20 | 69 66 20 61 73 20 70 61 |ts nice |if as pa|
|00005d60| 72 74 20 6f 66 20 64 65 | 66 69 6e 69 6e 67 20 74 |rt of de|fining t|
|00005d70| 68 65 20 6d 65 74 61 2d | 62 72 61 69 64 20 77 65 |he meta-|braid we|
|00005d80| 20 63 61 6e 20 64 65 66 | 69 6e 65 20 61 6e 64 20 | can def|ine and |
|00005d90| 63 6f 6d 70 69 6c 65 0a | 58 3b 3b 3b 20 63 6f 64 |compile.|X;;; cod|
|00005da0| 65 20 77 68 69 63 68 20 | 64 6f 65 73 20 67 65 74 |e which |does get|
|00005db0| 2d 73 6c 6f 74 73 20 61 | 6e 64 20 73 65 74 66 73 |-slots a|nd setfs|
|00005dc0| 20 6f 66 20 67 65 74 2d | 73 6c 6f 74 73 20 61 6e | of get-|slots an|
|00005dd0| 64 20 69 6e 20 6f 72 64 | 65 72 20 74 6f 20 64 6f |d in ord|er to do|
|00005de0| 20 74 68 69 73 20 77 65 | 0a 58 3b 3b 3b 20 6e 65 | this we|.X;;; ne|
|00005df0| 65 64 20 74 6f 20 68 61 | 76 65 20 67 65 74 2d 73 |ed to ha|ve get-s|
|00005e00| 6c 6f 74 20 61 72 6f 75 | 6e 64 2e 20 20 41 63 74 |lot arou|nd.  Act|
|00005e10| 75 61 6c 6c 79 20 77 65 | 20 63 6f 75 6c 64 20 64 |ually we| could d|
|00005e20| 6f 20 77 69 74 68 20 6a | 75 73 74 20 74 68 65 20 |o with j|ust the |
|00005e30| 64 65 66 73 65 74 66 20 | 6f 66 0a 58 3b 3b 3b 20 |defsetf |of.X;;; |
|00005e40| 67 65 74 2d 73 6c 6f 74 | 20 62 75 74 20 6d 69 67 |get-slot| but mig|
|00005e50| 68 74 20 61 73 20 77 65 | 6c 6c 20 70 75 74 20 61 |ht as we|ll put a|
|00005e60| 6c 6c 20 33 20 68 65 72 | 65 2e 0a 58 3b 3b 3b 0a |ll 3 her|e..X;;;.|
|00005e70| 58 3b 3b 3b 20 54 68 65 | 20 63 6f 64 65 20 62 6f |X;;; The| code bo|
|00005e80| 6f 74 73 74 72 61 70 20 | 6d 65 74 61 2d 62 72 61 |otstrap |meta-bra|
|00005e90| 69 64 20 64 65 66 69 6e | 65 73 20 77 69 74 68 20 |id defin|es with |
|00005ea0| 67 65 74 2d 73 6c 6f 74 | 20 69 6e 20 69 74 20 69 |get-slot| in it i|
|00005eb0| 73 20 61 6c 6c 20 64 6f | 6e 65 20 77 69 74 68 0a |s all do|ne with.|
|00005ec0| 58 3b 3b 3b 20 64 65 66 | 6d 65 74 68 2c 20 73 6f |X;;; def|meth, so|
|00005ed0| 20 74 68 65 73 65 20 67 | 65 74 2d 73 6c 6f 74 73 | these g|et-slots|
|00005ee0| 20 77 69 6c 6c 20 61 6c | 6c 20 67 65 74 20 72 65 | will al|l get re|
|00005ef0| 63 6f 6d 70 69 6c 65 64 | 20 6f 6e 63 65 20 74 68 |compiled| once th|
|00005f00| 65 20 6f 70 74 69 6d 69 | 7a 65 72 73 0a 58 3b 3b |e optimi|zers.X;;|
|00005f10| 3b 20 65 78 69 73 74 20 | 64 6f 6e 27 74 20 77 6f |; exist |don't wo|
|00005f20| 72 72 79 2e 0a 58 28 64 | 65 66 75 6e 20 67 65 74 |rry..X(d|efun get|
|00005f30| 2d 73 6c 6f 74 20 28 6f | 62 6a 65 63 74 20 73 6c |-slot (o|bject sl|
|00005f40| 6f 74 2d 6e 61 6d 65 29 | 0a 58 20 20 28 67 65 74 |ot-name)|.X  (get|
|00005f50| 2d 73 6c 6f 74 2d 75 73 | 69 6e 67 2d 63 6c 61 73 |-slot-us|ing-clas|
|00005f60| 73 20 28 63 6c 61 73 73 | 2d 6f 66 20 6f 62 6a 65 |s (class|-of obje|
|00005f70| 63 74 29 20 6f 62 6a 65 | 63 74 20 73 6c 6f 74 2d |ct) obje|ct slot-|
|00005f80| 6e 61 6d 65 29 29 0a 58 | 0a 58 28 64 65 66 75 6e |name)).X|.X(defun|
|00005f90| 20 70 75 74 2d 73 6c 6f | 74 20 28 6f 62 6a 65 63 | put-slo|t (objec|
|00005fa0| 74 20 73 6c 6f 74 2d 6e | 61 6d 65 20 6e 65 77 2d |t slot-n|ame new-|
|00005fb0| 76 61 6c 75 65 29 0a 58 | 20 20 28 70 75 74 2d 73 |value).X|  (put-s|
|00005fc0| 6c 6f 74 2d 75 73 69 6e | 67 2d 63 6c 61 73 73 20 |lot-usin|g-class |
|00005fd0| 28 63 6c 61 73 73 2d 6f | 66 20 6f 62 6a 65 63 74 |(class-o|f object|
|00005fe0| 29 20 6f 62 6a 65 63 74 | 20 73 6c 6f 74 2d 6e 61 |) object| slot-na|
|00005ff0| 6d 65 20 6e 65 77 2d 76 | 61 6c 75 65 29 29 0a 58 |me new-v|alue)).X|
|00006000| 0a 58 28 64 65 66 75 6e | 20 73 65 74 66 2d 6f 66 |.X(defun| setf-of|
|00006010| 2d 67 65 74 2d 73 6c 6f | 74 20 28 6e 65 77 2d 76 |-get-slo|t (new-v|
|00006020| 61 6c 75 65 20 6f 62 6a | 65 63 74 20 73 6c 6f 74 |alue obj|ect slot|
|00006030| 2d 6e 61 6d 65 29 0a 58 | 20 20 28 70 75 74 2d 73 |-name).X|  (put-s|
|00006040| 6c 6f 74 2d 75 73 69 6e | 67 2d 63 6c 61 73 73 20 |lot-usin|g-class |
|00006050| 28 63 6c 61 73 73 2d 6f | 66 20 6f 62 6a 65 63 74 |(class-o|f object|
|00006060| 29 20 6f 62 6a 65 63 74 | 20 73 6c 6f 74 2d 6e 61 |) object| slot-na|
|00006070| 6d 65 20 6e 65 77 2d 76 | 61 6c 75 65 29 29 0a 58 |me new-v|alue)).X|
|00006080| 0a 58 28 64 65 66 73 65 | 74 66 20 67 65 74 2d 73 |.X(defse|tf get-s|
|00006090| 6c 6f 74 20 28 6f 62 6a | 65 63 74 20 73 6c 6f 74 |lot (obj|ect slot|
|000060a0| 2d 6e 61 6d 65 20 26 72 | 65 73 74 20 65 78 74 72 |-name &r|est extr|
|000060b0| 61 2d 61 72 67 73 29 20 | 28 6e 65 77 2d 76 61 6c |a-args) |(new-val|
|000060c0| 75 65 29 0a 58 20 20 60 | 28 73 65 74 66 2d 6f 66 |ue).X  `|(setf-of|
|000060d0| 2d 67 65 74 2d 73 6c 6f | 74 20 2c 6e 65 77 2d 76 |-get-slo|t ,new-v|
|000060e0| 61 6c 75 65 20 2c 6f 62 | 6a 65 63 74 20 2c 73 6c |alue ,ob|ject ,sl|
|000060f0| 6f 74 2d 6e 61 6d 65 20 | 2e 20 2c 65 78 74 72 61 |ot-name |. ,extra|
|00006100| 2d 61 72 67 73 29 29 0a | 58 0a 58 28 64 65 66 75 |-args)).|X.X(defu|
|00006110| 6e 20 67 65 74 2d 73 6c | 6f 74 2d 61 6c 77 61 79 |n get-sl|ot-alway|
|00006120| 73 20 28 6f 62 6a 65 63 | 74 20 73 6c 6f 74 2d 6e |s (objec|t slot-n|
|00006130| 61 6d 65 20 26 6f 70 74 | 69 6f 6e 61 6c 20 64 65 |ame &opt|ional de|
|00006140| 66 61 75 6c 74 29 0a 58 | 20 20 28 67 65 74 2d 73 |fault).X|  (get-s|
|00006150| 6c 6f 74 2d 75 73 69 6e | 67 2d 63 6c 61 73 73 20 |lot-usin|g-class |
|00006160| 28 63 6c 61 73 73 2d 6f | 66 20 6f 62 6a 65 63 74 |(class-o|f object|
|00006170| 29 20 6f 62 6a 65 63 74 | 20 73 6c 6f 74 2d 6e 61 |) object| slot-na|
|00006180| 6d 65 20 74 20 64 65 66 | 61 75 6c 74 29 29 0a 58 |me t def|ault)).X|
|00006190| 0a 58 28 64 65 66 75 6e | 20 70 75 74 2d 73 6c 6f |.X(defun| put-slo|
|000061a0| 74 2d 61 6c 77 61 79 73 | 20 28 6f 62 6a 65 63 74 |t-always| (object|
|000061b0| 20 73 6c 6f 74 2d 6e 61 | 6d 65 20 6e 65 77 2d 76 | slot-na|me new-v|
|000061c0| 61 6c 75 65 29 0a 58 20 | 20 28 70 75 74 2d 73 6c |alue).X | (put-sl|
|000061d0| 6f 74 2d 75 73 69 6e 67 | 2d 63 6c 61 73 73 20 28 |ot-using|-class (|
|000061e0| 63 6c 61 73 73 2d 6f 66 | 20 6f 62 6a 65 63 74 29 |class-of| object)|
|000061f0| 20 6f 62 6a 65 63 74 20 | 73 6c 6f 74 2d 6e 61 6d | object |slot-nam|
|00006200| 65 20 6e 65 77 2d 76 61 | 6c 75 65 20 74 29 29 0a |e new-va|lue t)).|
|00006210| 58 0a 58 28 64 65 66 73 | 65 74 66 20 67 65 74 2d |X.X(defs|etf get-|
|00006220| 73 6c 6f 74 2d 61 6c 77 | 61 79 73 20 28 6f 62 6a |slot-alw|ays (obj|
|00006230| 65 63 74 20 73 6c 6f 74 | 2d 6e 61 6d 65 20 26 6f |ect slot|-name &o|
|00006240| 70 74 69 6f 6e 61 6c 20 | 64 65 66 61 75 6c 74 29 |ptional |default)|
|00006250| 20 28 6e 65 77 2d 76 61 | 6c 75 65 29 0a 58 20 20 | (new-va|lue).X  |
|00006260| 60 28 70 75 74 2d 73 6c | 6f 74 2d 61 6c 77 61 79 |`(put-sl|ot-alway|
|00006270| 73 20 2c 6f 62 6a 65 63 | 74 20 2c 73 6c 6f 74 2d |s ,objec|t ,slot-|
|00006280| 6e 61 6d 65 20 2c 6e 65 | 77 2d 76 61 6c 75 65 29 |name ,ne|w-value)|
|00006290| 29 0a 58 0a 58 28 64 65 | 66 75 6e 20 72 65 6d 6f |).X.X(de|fun remo|
|000062a0| 76 65 2d 64 79 6e 61 6d | 69 63 2d 73 6c 6f 74 20 |ve-dynam|ic-slot |
|000062b0| 28 6f 62 6a 65 63 74 20 | 73 6c 6f 74 2d 6e 61 6d |(object |slot-nam|
|000062c0| 65 29 0a 58 20 20 28 72 | 65 6d 6f 76 65 2d 64 79 |e).X  (r|emove-dy|
|000062d0| 6e 61 6d 69 63 2d 73 6c | 6f 74 2d 75 73 69 6e 67 |namic-sl|ot-using|
|000062e0| 2d 63 6c 61 73 73 20 28 | 63 6c 61 73 73 2d 6f 66 |-class (|class-of|
|000062f0| 20 6f 62 6a 65 63 74 29 | 20 6f 62 6a 65 63 74 20 | object)| object |
|00006300| 73 6c 6f 74 2d 6e 61 6d | 65 29 29 0a 58 0a 58 0a |slot-nam|e)).X.X.|
|00006310| 58 0a 58 0c 0a 58 20 20 | 3b 3b 20 20 20 0a 58 3b |X.X..X  |;;   .X;|
|00006320| 3b 3b 3b 3b 3b 20 41 63 | 74 75 61 6c 6c 79 20 62 |;;;;; Ac|tually b|
|00006330| 6f 6f 74 73 74 72 61 70 | 70 69 6e 67 20 74 68 65 |ootstrap|ping the|
|00006340| 20 6d 65 74 61 2d 62 72 | 61 69 64 0a 58 20 20 3b | meta-br|aid.X  ;|
|00006350| 3b 0a 58 3b 3b 3b 0a 58 | 3b 3b 3b 20 2a 6d 65 74 |;.X;;;.X|;;; *met|
|00006360| 61 2d 62 72 61 69 64 2a | 20 69 73 20 74 68 65 20 |a-braid*| is the |
|00006370| 6c 69 73 74 20 66 72 6f | 6d 20 77 68 69 63 68 20 |list fro|m which |
|00006380| 74 68 65 20 69 6e 69 74 | 69 61 6c 20 6d 65 74 61 |the init|ial meta|
|00006390| 2d 63 6c 61 73 73 65 73 | 20 61 72 65 20 63 72 65 |-classes| are cre|
|000063a0| 61 74 65 64 2e 0a 58 3b | 3b 3b 20 54 68 65 20 65 |ated..X;|;; The e|
|000063b0| 6c 65 6d 65 6e 74 73 20 | 6c 6f 6f 6b 20 73 6f 72 |lements |look sor|
|000063c0| 74 20 6f 66 20 6c 69 6b | 65 20 64 65 66 73 74 72 |t of lik|e defstr|
|000063d0| 75 63 74 73 2e 20 20 54 | 68 65 20 63 61 72 20 6f |ucts.  T|he car o|
|000063e0| 66 20 65 61 63 68 20 65 | 6c 65 6d 65 6e 74 20 69 |f each e|lement i|
|000063f0| 73 0a 58 3b 3b 3b 20 74 | 68 65 20 6e 61 6d 65 20 |s.X;;; t|he name |
+--------+-------------------------+-------------------------+--------+--------+