home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1984-10-21 | 9.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| Follin Player Module (music/follinPlayer)
| ext
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: 'FASL FILE
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 41 53 4c 20 46 49 4c | 45 0d 0a 43 6f 70 79 72 |FASL FIL|E..Copyr|
|00000010| 69 67 68 74 20 28 63 29 | 20 31 39 38 34 20 53 61 |ight (c)| 1984 Sa|
|00000020| 6e 20 4d 61 72 63 6f 20 | 41 73 73 6f 63 69 61 74 |n Marco |Associat|
|00000030| 65 73 0d 0a 09 41 6c 6c | 20 72 69 67 68 74 73 20 |es...All| rights |
|00000040| 72 65 73 65 72 76 65 64 | 2e 0d 0a 1a ff 07 04 55 |reserved|.......U|
|00000050| 53 45 52 0e 0d 00 00 00 | 00 07 04 4c 49 53 50 0e |SER.....|...LISP.|
|00000060| 0b 01 04 53 45 54 46 07 | 0a 47 45 54 2d 4c 45 53 |...SETF.|.GET-LES|
|00000070| 53 4f 4e 0b 01 05 51 55 | 4f 54 45 07 07 41 2d 4c |SON...QU|OTE..A-L|
|00000080| 49 53 54 53 04 10 02 04 | 10 02 0b 01 05 51 55 4f |ISTS....|.....QUO|
|00000090| 54 45 07 06 4c 45 53 53 | 4f 4e 07 07 41 2d 4c 49 |TE..LESS|ON..A-LI|
|000000a0| 53 54 53 0b 01 04 4e 41 | 4d 45 07 07 41 2d 4c 49 |STS...NA|ME..A-LI|
|000000b0| 53 54 53 04 10 01 07 04 | 4e 45 58 54 07 0a 50 52 |STS.....|NEXT..PR|
|000000c0| 4f 50 45 52 54 49 45 53 | 04 10 01 07 08 50 52 45 |OPERTIES|.....PRE|
|000000d0| 56 49 4f 55 53 0b 01 06 | 4c 41 4d 42 44 41 04 10 |VIOUS...|LAMBDA..|
|000000e0| 01 07 0b 4c 45 53 53 4f | 4e 2d 4e 41 4d 45 26 17 |...LESSO|N-NAME&.|
|000000f0| 55 73 69 6e 67 20 41 73 | 73 6f 63 69 61 74 69 6f |Using As|sociatio|
|00000100| 6e 20 4c 69 73 74 73 04 | 10 01 04 10 08 07 05 53 |n Lists.|.......S|
|00000110| 4c 49 44 45 07 0a 45 58 | 50 4f 53 49 54 49 4f 4e |LIDE..EX|POSITION|
|00000120| 23 01 00 00 00 04 07 0a | 45 58 50 4f 53 49 54 49 |#.......|EXPOSITI|
|00000130| 4f 4e 26 d2 0a 53 6f 20 | 66 61 72 2c 20 79 6f 75 |ON&..So |far, you|
|00000140| 20 68 61 76 65 20 63 6f | 6e 63 65 6e 74 72 61 74 | have co|ncentrat|
|00000150| 65 64 20 6f 6e 20 4c 49 | 53 50 27 73 20 70 72 69 |ed on LI|SP's pri|
|00000160| 6d 69 74 69 76 65 20 70 | 72 6f 63 65 64 75 72 65 |mitive p|rocedure|
|00000170| 73 20 61 6e 64 0a 6f 6e | 20 70 72 6f 63 65 64 75 |s and.on| procedu|
|00000180| 72 65 20 61 62 73 74 72 | 61 63 74 69 6f 6e 2e 0a |re abstr|action..|
|00000190| 0a 4e 6f 77 20 69 74 20 | 69 73 20 74 69 6d 65 20 |.Now it |is time |
|000001a0| 74 6f 20 63 6f 6e 63 65 | 6e 74 72 61 74 65 20 6f |to conce|ntrate o|
|000001b0| 6e 20 4c 49 53 50 27 73 | 20 70 72 69 6d 69 74 69 |n LISP's| primiti|
|000001c0| 76 65 20 64 61 74 61 20 | 6f 62 6a 65 63 74 73 2c |ve data |objects,|
|000001d0| 0a 6f 74 68 65 72 20 74 | 68 61 6e 20 61 74 6f 6d |.other t|han atom|
|000001e0| 73 20 61 6e 64 20 6c 69 | 73 74 73 2c 20 61 6e 64 |s and li|sts, and|
|000001f0| 20 6f 6e 20 64 61 74 61 | 20 61 62 73 74 72 61 63 | on data| abstrac|
|00000200| 74 69 6f 6e 2e 0a 23 07 | 00 00 00 10 01 04 27 03 |tion..#.|......'.|
|00000210| 00 00 00 2e 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|00000220| 45 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 23 02 00 |E..EXPOS|ITION#..|
|00000230| 00 00 04 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 26 |.....EXP|OSITION&|
|00000240| af 0a 4c 49 53 50 20 6f | 66 66 65 72 73 20 6d 61 |..LISP o|ffers ma|
|00000250| 6e 79 20 77 61 79 73 20 | 74 6f 20 61 73 73 6f 63 |ny ways |to assoc|
|00000260| 69 61 74 65 20 61 20 73 | 79 6d 62 6f 6c 20 77 69 |iate a s|ymbol wi|
|00000270| 74 68 20 61 6e 20 65 78 | 70 72 65 73 73 69 6f 6e |th an ex|pression|
|00000280| 3b 0a 68 65 72 65 20 61 | 72 65 20 74 68 65 20 77 |;.here a|re the w|
|00000290| 61 79 73 20 79 6f 75 20 | 77 69 6c 6c 20 62 65 20 |ays you |will be |
|000002a0| 61 62 6c 65 20 74 6f 20 | 75 73 65 3a 0a 0a 31 2e |able to |use:..1.|
|000002b0| 20 41 73 73 6f 63 69 61 | 74 69 6f 6e 20 6c 69 73 | Associa|tion lis|
|000002c0| 74 73 0a 0a 32 2e 20 50 | 72 6f 70 65 72 74 79 20 |ts..2. P|roperty |
|000002d0| 6c 69 73 74 73 0a 0a 33 | 2e 20 41 72 72 61 79 73 |lists..3|. Arrays|
|000002e0| 0a 0a 34 2e 20 53 74 72 | 75 63 74 75 72 65 73 0a |..4. Str|uctures.|
|000002f0| 23 0c 00 00 00 10 01 04 | 27 03 00 00 00 2e 27 05 |#.......|'.....'.|
|00000300| 00 00 00 2e 07 05 53 4c | 49 44 45 07 0a 45 58 50 |......SL|IDE..EXP|
|00000310| 4f 53 49 54 49 4f 4e 23 | 03 00 00 00 04 07 0a 45 |OSITION#|.......E|
|00000320| 58 50 4f 53 49 54 49 4f | 4e 25 a4 01 00 00 0a 41 |XPOSITIO|N%.....A|
|00000330| 6e 20 61 73 73 6f 63 69 | 61 74 69 6f 6e 20 6c 69 |n associ|ation li|
|00000340| 73 74 20 69 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |st is a |list of |
|00000350| 6c 69 73 74 73 2e 00 02 | 54 68 65 20 66 69 72 73 |lists...|The firs|
|00000360| 74 20 65 6c 65 6d 65 6e | 74 20 6f 66 0a 65 61 63 |t elemen|t of.eac|
|00000370| 68 20 73 75 62 6c 69 73 | 74 20 69 73 20 63 61 6c |h sublis|t is cal|
|00000380| 6c 65 64 20 61 20 6b 65 | 79 2e 0a 0a 48 65 72 65 |led a ke|y...Here|
|00000390| 20 69 73 20 61 6e 20 65 | 78 61 6d 70 6c 65 20 6f | is an e|xample o|
|000003a0| 66 20 61 6e 20 61 73 73 | 6f 63 69 61 74 69 6f 6e |f an ass|ociation|
|000003b0| 20 6c 69 73 74 20 75 73 | 65 64 20 74 6f 20 72 65 | list us|ed to re|
|000003c0| 63 6f 72 64 20 74 68 65 | 0a 70 61 72 65 6e 74 73 |cord the|.parents|
|000003d0| 20 6f 66 20 50 41 54 52 | 49 43 4b 20 61 6e 64 20 | of PATR|ICK and |
|000003e0| 4b 41 52 45 4e 3a 0a 0a | 00 08 46 69 72 73 74 20 |KAREN:..|..First |
|000003f0| 65 6e 74 72 79 00 0d 53 | 65 63 6f 6e 64 20 65 6e |entry..S|econd en|
|00000400| 74 72 79 0a 20 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |try. ...|........|
|00000410| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 00 |........|........|
|00000420| 02 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000430| c4 c4 0a 28 28 50 41 54 | 52 49 43 4b 20 28 52 4f |...((PAT|RICK (RO|
|00000440| 42 45 52 54 20 44 4f 52 | 4f 54 48 59 29 29 00 02 |BERT DOR|OTHY))..|
|00000450| 28 4b 41 52 45 4e 20 28 | 4a 49 4d 20 45 56 45 29 |(KAREN (|JIM EVE)|
|00000460| 29 29 0a 00 05 b3 00 1a | b3 0a 00 05 1f 00 1a 1f |))......|........|
|00000470| 0a 00 03 4b 65 79 20 31 | 00 16 4b 65 79 20 32 0a |...Key 1|..Key 2.|
|00000480| 0a 0a 54 68 65 20 6b 65 | 79 20 66 6f 72 20 74 68 |..The ke|y for th|
|00000490| 65 20 66 69 72 73 74 20 | 65 6e 74 72 79 20 69 73 |e first |entry is|
|000004a0| 20 50 41 54 52 49 43 4b | 2e 00 02 54 68 65 20 6b | PATRICK|...The k|
|000004b0| 65 79 20 66 6f 72 20 74 | 68 65 20 73 65 63 6f 6e |ey for t|he secon|
|000004c0| 64 0a 65 6e 74 72 79 20 | 69 73 20 4b 41 52 45 4e |d.entry |is KAREN|
|000004d0| 2e 0a 23 12 00 00 00 10 | 01 04 27 03 00 00 00 2e |..#.....|..'.....|
|000004e0| 27 05 00 00 00 2e 07 05 | 53 4c 49 44 45 07 0a 45 |'.......|SLIDE..E|
|000004f0| 58 50 4f 53 49 54 49 4f | 4e 23 04 00 00 00 04 07 |XPOSITIO|N#......|
|00000500| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 25 e3 01 00 00 |.EXPOSIT|ION%....|
|00000510| 0a 54 68 65 20 70 72 69 | 6d 69 74 69 76 65 20 41 |.The pri|mitive A|
|00000520| 53 53 4f 43 20 6c 6f 6f | 6b 73 20 66 6f 72 20 61 |SSOC loo|ks for a|
|00000530| 20 73 75 62 6c 69 73 74 | 20 74 68 61 74 20 73 74 | sublist| that st|
|00000540| 61 72 74 73 20 77 69 74 | 68 20 61 0a 70 61 72 74 |arts wit|h a.part|
|00000550| 69 63 75 6c 61 72 20 6b | 65 79 3a 0a 0a 28 41 53 |icular k|ey:..(AS|
|00000560| 53 4f 43 20 3c 6b 65 79 | 3e 20 3c 61 73 73 6f 63 |SOC <key|> <assoc|
|00000570| 69 61 74 69 6f 6e 20 6c | 69 73 74 3e 29 0a 0a 43 |iation l|ist>)..C|
|00000580| 6f 6e 73 69 64 65 72 20 | 74 68 65 73 65 20 65 78 |onsider |these ex|
|00000590| 61 6d 6c 65 73 2c 20 61 | 73 73 75 6d 69 6e 67 20 |amles, a|ssuming |
|000005a0| 74 68 61 74 20 50 41 52 | 45 4e 54 53 27 20 76 61 |that PAR|ENTS' va|
|000005b0| 6c 75 65 20 69 73 20 0a | 28 28 50 41 54 52 49 43 |lue is .|((PATRIC|
|000005c0| 4b 20 28 52 4f 42 45 52 | 54 20 44 4f 52 4f 54 48 |K (ROBER|T DOROTH|
|000005d0| 59 29 29 20 28 4b 41 52 | 45 4e 20 28 4a 49 4d 20 |Y)) (KAR|EN (JIM |
|000005e0| 45 56 45 29 29 29 3a 0a | 0a 2a 20 28 41 53 53 4f |EVE))):.|.* (ASSO|
|000005f0| 43 20 27 50 41 54 52 49 | 43 4b 20 50 41 52 45 4e |C 'PATRI|CK PAREN|
|00000600| 54 53 29 0a 28 50 41 54 | 52 49 43 4b 20 28 52 4f |TS).(PAT|RICK (RO|
|00000610| 42 45 52 54 20 44 4f 52 | 4f 54 48 59 29 29 0a 0a |BERT DOR|OTHY))..|
|00000620| 2a 20 28 41 53 53 4f 43 | 20 27 4b 41 52 45 4e 20 |* (ASSOC| 'KAREN |
|00000630| 50 41 52 45 4e 54 53 29 | 0a 28 4b 41 52 45 4e 20 |PARENTS)|.(KAREN |
|00000640| 28 4a 49 4d 20 45 56 45 | 29 29 0a 0a 4e 6f 74 65 |(JIM EVE|))..Note|
|00000650| 20 74 68 61 74 20 74 68 | 65 20 65 6e 74 69 72 65 | that th|e entire|
|00000660| 20 73 75 62 6c 69 73 74 | 20 69 73 20 72 65 74 75 | sublist| is retu|
|00000670| 72 6e 65 64 2c 20 77 69 | 74 68 20 74 68 65 20 6b |rned, wi|th the k|
|00000680| 65 79 2e 00 02 4e 6f 74 | 65 0a 61 6c 73 6f 20 74 |ey...Not|e.also t|
|00000690| 68 61 74 20 74 68 65 20 | 66 69 72 73 74 20 6d 61 |hat the |first ma|
|000006a0| 74 63 68 69 6e 67 20 73 | 75 62 6c 69 73 74 20 69 |tching s|ublist i|
|000006b0| 73 20 72 65 74 75 72 6e | 65 64 2c 20 69 66 20 6d |s return|ed, if m|
|000006c0| 6f 72 65 20 74 68 61 6e | 0a 6f 6e 65 20 6d 61 74 |ore than|.one mat|
|000006d0| 63 68 c4 c4 c4 6f 6e 65 | 20 65 6e 74 72 79 20 63 |ch...one| entry c|
|000006e0| 61 6e 20 73 68 61 64 6f | 77 20 61 6e 6f 74 68 65 |an shado|w anothe|
|000006f0| 72 2e 0a 23 13 00 00 00 | 10 01 04 27 03 00 00 00 |r..#....|...'....|
|00000700| 2e 27 05 00 00 00 2e 07 | 05 53 4c 49 44 45 07 08 |.'......|.SLIDE..|
|00000710| 45 58 41 4d 50 4c 45 53 | 23 05 00 00 00 04 07 0d |EXAMPLES|#.......|
|00000720| 45 58 41 4d 50 4c 45 2d | 47 52 4f 55 50 26 b1 41 |EXAMPLE-|GROUP&.A|
|00000730| 73 73 75 6d 65 20 50 41 | 52 45 4e 54 53 27 20 76 |ssume PA|RENTS' v|
|00000740| 61 6c 75 65 20 69 73 0a | 28 28 50 41 54 52 49 43 |alue is.|((PATRIC|
|00000750| 4b 20 28 52 4f 42 45 52 | 54 20 44 4f 52 4f 54 48 |K (ROBER|T DOROTH|
|00000760| 59 29 29 20 28 4b 41 52 | 45 4e 20 28 4a 49 4d 20 |Y)) (KAR|EN (JIM |
|00000770| 45 56 45 29 29 0a 20 28 | 50 41 54 52 49 43 4b 20 |EVE)). (|PATRICK |
|00000780| 28 4a 4f 48 4e 20 53 41 | 52 41 48 29 29 20 28 53 |(JOHN SA|RAH)) (S|
|00000790| 41 52 41 48 20 28 49 53 | 41 41 43 20 4d 41 52 59 |ARAH (IS|AAC MARY|
|000007a0| 29 29 29 0a 4e 6f 74 65 | 20 74 68 61 74 20 74 68 |))).Note| that th|
|000007b0| 65 20 73 65 63 6f 6e 64 | 20 73 65 74 20 6f 66 20 |e second| set of |
|000007c0| 70 61 72 65 6e 74 73 20 | 66 6f 72 20 50 41 54 52 |parents |for PATR|
|000007d0| 49 43 4b 20 69 73 20 73 | 68 61 64 6f 77 65 64 2e |ICK is s|hadowed.|
|000007e0| 23 04 00 00 00 10 01 26 | 1a 2a 20 28 41 53 53 4f |#......&|.* (ASSO|
|000007f0| 43 20 27 50 41 54 52 49 | 43 4b 20 50 41 52 45 4e |C 'PATRI|CK PAREN|
|00000800| 54 53 29 23 01 00 00 00 | 10 01 26 19 28 50 41 54 |TS)#....|..&.(PAT|
|00000810| 52 49 43 4b 20 28 52 4f | 42 45 52 54 20 44 4f 52 |RICK (RO|BERT DOR|
|00000820| 4f 54 48 59 29 23 01 00 | 00 00 10 01 27 04 00 00 |OTHY)#..|....'...|
|00000830| 00 2e 07 0d 45 58 41 4d | 50 4c 45 2d 47 52 4f 55 |....EXAM|PLE-GROU|
|00000840| 50 04 26 21 2a 20 28 41 | 53 53 4f 43 20 27 50 41 |P.&!* (A|SSOC 'PA|
|00000850| 54 52 49 43 4b 20 28 52 | 45 53 54 20 50 41 52 45 |TRICK (R|EST PARE|
|00000860| 4e 54 53 29 29 23 01 00 | 00 00 10 01 26 16 28 50 |NTS))#..|....&.(P|
|00000870| 41 54 52 49 43 4b 20 28 | 4a 4f 48 4e 20 53 41 52 |ATRICK (|JOHN SAR|
|00000880| 41 48 29 29 23 01 00 00 | 00 10 01 27 04 00 00 00 |AH))#...|...'....|
|00000890| 2e 07 0d 45 58 41 4d 50 | 4c 45 2d 47 52 4f 55 50 |...EXAMP|LE-GROUP|
|000008a0| 04 26 17 2a 20 28 41 53 | 53 4f 43 20 27 4a 4f 48 |.&.* (AS|SOC 'JOH|
|000008b0| 4e 20 50 41 52 45 4e 54 | 53 29 23 01 00 00 00 10 |N PARENT|S)#.....|
|000008c0| 01 26 04 4e 49 4c 0a 23 | 02 00 00 00 10 01 27 04 |.&.NIL.#|......'.|
|000008d0| 00 00 00 2e 04 10 03 27 | 05 00 00 00 2e 07 05 53 |.......'|.......S|
|000008e0| 4c 49 44 45 07 08 50 52 | 41 43 54 49 43 45 23 06 |LIDE..PR|ACTICE#.|
|000008f0| 00 00 00 07 05 46 4f 52 | 4d 53 0b 01 04 53 45 54 |.....FOR|MS...SET|
|00000900| 46 07 05 41 4c 49 53 54 | 0b 01 05 51 55 4f 54 45 |F..ALIST|...QUOTE|
|00000910| 07 06 42 4f 53 54 4f 4e | 07 02 4d 41 04 10 02 07 |..BOSTON|..MA....|
|00000920| 07 43 48 49 43 41 47 4f | 07 02 49 4c 04 10 02 07 |.CHICAGO|..IL....|
|00000930| 08 4d 4f 4e 54 45 52 45 | 59 07 02 43 41 04 10 02 |.MONTERE|Y..CA...|
|00000940| 07 06 44 45 4e 56 45 52 | 07 02 43 4f 04 10 02 07 |..DENVER|..CO....|
|00000950| 0a 4d 41 4e 43 48 45 53 | 54 45 52 07 02 4e 48 04 |.MANCHES|TER..NH.|
|00000960| 10 02 07 0a 4d 41 4e 43 | 48 45 53 54 45 52 07 02 |....MANC|HESTER..|
|00000970| 4d 41 04 10 02 07 0a 4d | 41 4e 43 48 45 53 54 45 |MA.....M|ANCHESTE|
|00000980| 52 07 02 4d 45 04 10 02 | 07 0a 4d 41 4e 43 48 45 |R..ME...|..MANCHE|
|00000990| 53 54 45 52 07 02 56 54 | 04 10 02 04 10 08 04 10 |STER..VT|........|
|000009a0| 02 04 10 03 04 10 01 04 | 10 02 26 c5 50 72 61 63 |........|..&.Prac|
|000009b0| 74 69 63 65 20 77 69 74 | 68 20 61 73 73 6f 63 69 |tice wit|h associ|
|000009c0| 61 74 69 6f 6e 20 6c 69 | 73 74 73 20 75 73 69 6e |ation li|sts usin|
|000009d0| 67 20 41 53 53 4f 43 2e | 0a 59 6f 75 20 6d 61 79 |g ASSOC.|.You may|
|000009e0| 20 61 73 73 75 6d 65 20 | 41 4c 49 53 54 27 73 20 | assume |ALIST's |
|000009f0| 76 61 6c 75 65 20 69 73 | 0a 28 28 42 4f 53 54 4f |value is|.((BOSTO|
|00000a00| 4e 20 4d 41 29 20 28 43 | 48 49 43 41 47 4f 20 49 |N MA) (C|HICAGO I|
|00000a10| 4c 29 0a 20 28 4d 4f 4e | 54 45 52 45 59 20 43 41 |L). (MON|TEREY CA|
|00000a20| 29 20 28 44 45 4e 56 45 | 52 20 43 4f 29 0a 20 28 |) (DENVE|R CO). (|
|00000a30| 4d 41 4e 43 48 45 53 54 | 45 52 20 4e 48 29 20 28 |MANCHEST|ER NH) (|
|00000a40| 4d 41 4e 43 48 45 53 54 | 45 52 20 4d 41 29 0a 20 |MANCHEST|ER MA). |
|00000a50| 28 4d 41 4e 43 48 45 53 | 54 45 52 20 4d 45 29 20 |(MANCHES|TER ME) |
|00000a60| 28 4d 41 4e 43 48 45 53 | 54 45 52 20 56 54 29 29 |(MANCHES|TER VT))|
|00000a70| 0a 23 07 00 00 00 10 01 | 27 05 00 00 00 2e 07 05 |.#......|'.......|
|00000a80| 53 4c 49 44 45 07 0a 45 | 58 50 4f 53 49 54 49 4f |SLIDE..E|XPOSITIO|
|00000a90| 4e 23 07 00 00 00 04 07 | 0a 45 58 50 4f 53 49 54 |N#......|.EXPOSIT|
|00000aa0| 49 4f 4e 25 2f 01 00 00 | 0a 52 65 6d 65 6d 62 65 |ION%/...|.Remembe|
|00000ab0| 72 20 2e 2e 2e 0a 0a 6f | 00 04 49 46 20 79 6f 75 |r .....o|..IF you|
|00000ac0| 20 68 61 76 65 20 61 20 | 63 6f 6c 6c 65 63 74 69 | have a |collecti|
|00000ad0| 6f 6e 20 6f 66 20 64 61 | 74 61 20 69 74 65 6d 73 |on of da|ta items|
|00000ae0| 2c 0a 00 05 41 4e 44 20 | 74 68 6f 73 65 20 69 74 |,...AND |those it|
|00000af0| 65 6d 73 20 61 72 65 20 | 6e 61 74 75 72 61 6c 6c |ems are |naturall|
|00000b00| 79 20 61 73 73 6f 63 69 | 61 74 65 64 20 77 69 74 |y associ|ated wit|
|00000b10| 68 20 4b 45 59 53 2c 0a | 00 05 54 48 45 4e 20 63 |h KEYS,.|..THEN c|
|00000b20| 72 65 61 74 65 20 61 6e | 20 61 73 73 6f 63 69 61 |reate an| associa|
|00000b30| 74 69 6f 6e 20 6c 69 73 | 74 2c 20 75 73 69 6e 67 |tion lis|t, using|
|00000b40| 20 6c 69 73 74 20 63 6f | 6e 73 74 72 75 63 74 6f | list co|nstructo|
|00000b50| 72 73 2c 0a 0a 6f 00 04 | 49 46 20 79 6f 75 20 68 |rs,..o..|IF you h|
|00000b60| 61 76 65 20 61 20 64 61 | 74 61 20 69 74 65 6d 20 |ave a da|ta item |
|00000b70| 73 74 6f 72 65 64 20 69 | 6e 20 61 6e 20 61 73 73 |stored i|n an ass|
|00000b80| 6f 63 69 61 74 69 6f 6e | 20 6c 69 73 74 2c 0a 00 |ociation| list,..|
|00000b90| 05 54 48 45 4e 20 73 65 | 6c 65 63 74 20 74 68 65 |.THEN se|lect the|
|00000ba0| 20 69 74 65 6d 20 75 73 | 69 6e 67 20 41 53 53 4f | item us|ing ASSO|
|00000bb0| 43 3a 0a 0a 00 05 28 41 | 53 53 4f 43 20 3c 6b 65 |C:....(A|SSOC <ke|
|00000bc0| 79 3e 20 3c 61 73 73 6f | 63 69 61 74 69 6f 6e 20 |y> <asso|ciation |
|00000bd0| 6c 69 73 74 3e 29 0a 23 | 0c 00 00 00 10 01 04 27 |list>).#|.......'|
|00000be0| 03 00 00 00 2e 27 05 00 | 00 00 2e 27 07 00 00 00 |.....'..|...'....|
|00000bf0| 04 27 05 00 00 00 2e 04 | 10 02 04 10 03 36 0b 01 |.'......|.....6..|
|00000c00| 04 53 45 54 46 07 0a 47 | 45 54 2d 4c 45 53 53 4f |.SETF..G|ET-LESSO|
|00000c10| 4e 0b 01 05 51 55 4f 54 | 45 07 0a 50 52 4f 50 45 |N...QUOT|E..PROPE|
|00000c20| 52 54 49 45 53 04 10 02 | 04 10 02 0b 01 05 51 55 |RTIES...|......QU|
|00000c30| 4f 54 45 07 06 4c 45 53 | 53 4f 4e 07 0a 50 52 4f |OTE..LES|SON..PRO|
|00000c40| 50 45 52 54 49 45 53 0b | 01 04 4e 41 4d 45 07 0a |PERTIES.|..NAME..|
|00000c50| 50 52 4f 50 45 52 54 49 | 45 53 04 10 01 07 08 50 |PROPERTI|ES.....P|
|00000c60| 52 45 56 49 4f 55 53 07 | 07 41 2d 4c 49 53 54 53 |REVIOUS.|.A-LISTS|
|00000c70| 04 10 01 07 04 4e 45 58 | 54 07 06 41 52 52 41 59 |.....NEX|T..ARRAY|
|00000c80| 53 04 10 01 07 0b 4c 45 | 53 53 4f 4e 2d 4e 41 4d |S.....LE|SSON-NAM|
|00000c90| 45 26 10 55 73 69 6e 67 | 20 50 72 6f 70 65 72 74 |E&.Using| Propert|
|00000ca0| 69 65 73 04 10 01 04 10 | 08 07 05 53 4c 49 44 45 |ies.....|...SLIDE|
|00000cb0| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 23 01 00 00 |..EXPOSI|TION#...|
|00000cc0| 00 04 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 25 87 |....EXPO|SITION%.|
|00000cd0| 01 00 00 0a 4f 6e 65 20 | 6e 69 63 65 20 74 68 69 |....One |nice thi|
|00000ce0| 6e 67 20 61 62 6f 75 74 | 20 73 79 6d 62 6f 6c 73 |ng about| symbols|
|00000cf0| 20 69 73 20 74 68 61 74 | 20 74 68 65 79 20 63 61 | is that| they ca|
|00000d00| 6e 20 68 61 76 65 20 70 | 72 6f 70 65 72 74 69 65 |n have p|ropertie|
|00000d10| 73 20 61 73 0a 77 65 6c | 6c 20 61 73 20 76 61 6c |s as.wel|l as val|
|00000d20| 75 65 73 2e 00 02 53 6f | 6f 6e 20 79 6f 75 20 77 |ues...So|on you w|
|00000d30| 69 6c 6c 20 75 6e 64 65 | 72 73 74 61 6e 64 20 68 |ill unde|rstand h|
|00000d40| 6f 77 20 74 6f 20 61 73 | 73 69 67 6e 20 61 0a 70 |ow to as|sign a.p|
|00000d50| 72 6f 70 65 72 74 79 20 | 76 61 6c 75 65 20 74 6f |roperty |value to|
|00000d60| 20 61 20 73 79 6d 62 6f | 6c 2e 00 02 52 69 67 68 | a symbo|l...Righ|
|00000d70| 74 20 6e 6f 77 2c 20 6e | 6f 74 65 20 74 68 61 74 |t now, n|ote that|
|00000d80| 20 79 6f 75 20 75 73 65 | 20 74 68 65 0a 70 72 69 | you use| the.pri|
|00000d90| 6d 69 74 69 76 65 20 47 | 45 54 20 74 6f 20 67 65 |mitive G|ET to ge|
|00000da0| 74 20 61 20 70 72 6f 70 | 65 72 74 79 20 76 61 6c |t a prop|erty val|
|00000db0| 75 65 20 66 72 6f 6d 20 | 61 20 73 79 6d 62 6f 6c |ue from |a symbol|
|00000dc0| 3a 0a 0a 28 47 45 54 20 | 3c 73 79 6d 62 6f 6c 3e |:..(GET |<symbol>|
|00000dd0| 20 3c 70 72 6f 70 65 72 | 74 79 3e 29 0a 0a 46 6f | <proper|ty>)..Fo|
|00000de0| 72 20 65 78 61 6d 70 6c | 65 2c 20 6f 6e 63 65 20 |r exampl|e, once |
|00000df0| 77 65 20 68 61 76 65 20 | 6d 61 64 65 20 52 4f 42 |we have |made ROB|
|00000e00| 45 52 54 20 74 68 65 20 | 46 41 54 48 45 52 20 70 |ERT the |FATHER p|
|00000e10| 72 6f 70 65 72 74 79 20 | 6f 66 0a 50 41 54 52 49 |roperty |of.PATRI|
|00000e20| 43 4b 2c 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |CK, the |followin|
|00000e30| 67 20 77 6f 72 6b 73 3a | 0a 0a 2a 20 28 47 45 54 |g works:|..* (GET|
|00000e40| 20 27 50 41 54 52 49 43 | 4b 20 27 46 41 54 48 45 | 'PATRIC|K 'FATHE|
|00000e50| 52 29 0a 52 4f 42 45 52 | 54 0a 23 0e 00 00 00 10 |R).ROBER|T.#.....|
|00000e60| 01 04 27 03 00 00 00 2e | 27 05 00 00 00 2e 07 05 |..'.....|'.......|
|00000e70| 53 4c 49 44 45 07 0a 45 | 58 50 4f 53 49 54 49 4f |SLIDE..E|XPOSITIO|
|00000e80| 4e 23 02 00 00 00 04 07 | 0a 45 58 50 4f 53 49 54 |N#......|.EXPOSIT|
|00000e90| 49 4f 4e 25 38 02 00 00 | 0a 54 6f 20 61 73 73 69 |ION%8...|.To assi|
|00000ea0| 67 6e 20 61 20 70 72 6f | 70 65 72 74 79 20 76 61 |gn a pro|perty va|
|00000eb0| 6c 75 65 20 74 6f 20 61 | 20 73 79 6d 62 6f 6c 2c |lue to a| symbol,|
|00000ec0| 20 77 65 20 75 73 65 20 | 53 45 54 46 0a 0a 28 53 | we use |SETF..(S|
|00000ed0| 45 54 46 20 28 47 45 54 | 20 3c 73 79 6d 62 6f 6c |ETF (GET| <symbol|
|00000ee0| 3e 20 3c 70 72 6f 70 65 | 72 74 79 20 6e 61 6d 65 |> <prope|rty name|
|00000ef0| 3e 29 20 3c 70 72 6f 70 | 65 72 74 79 20 76 61 6c |>) <prop|erty val|
|00000f00| 75 65 3e 29 0a 0a 48 65 | 72 65 20 69 73 20 61 6e |ue>)..He|re is an|
|00000f10| 20 65 78 61 6d 70 6c 65 | 3a 0a 0a 2a 20 28 53 45 | example|:..* (SE|
|00000f20| 54 46 20 28 47 45 54 20 | 27 50 41 54 52 49 43 4b |TF (GET |'PATRICK|
|00000f30| 20 27 4d 4f 54 48 45 52 | 29 20 27 44 4f 52 4f 54 | 'MOTHER|) 'DOROT|
|00000f40| 48 59 29 0a 44 4f 52 4f | 54 48 59 0a 0a 54 68 65 |HY).DORO|THY..The|
|00000f50| 20 66 69 72 73 74 20 61 | 72 67 75 6d 65 6e 74 20 | first a|rgument |
|00000f60| 74 6f 20 53 45 54 46 20 | 69 73 20 74 68 65 20 66 |to SETF |is the f|
|00000f70| 6f 72 6d 20 77 65 20 75 | 73 65 20 74 6f 20 72 65 |orm we u|se to re|
|00000f80| 74 72 69 65 76 65 20 74 | 68 65 0a 70 72 6f 70 65 |trieve t|he.prope|
|00000f90| 72 74 79 20 76 61 6c 75 | 65 20 6f 6e 63 65 20 69 |rty valu|e once i|
|00000fa0| 74 20 69 73 20 74 68 65 | 72 65 2e 00 02 54 68 65 |t is the|re...The|
|00000fb0| 20 73 65 63 6f 6e 64 20 | 61 72 67 75 6d 65 6e 74 | second |argument|
|00000fc0| 20 69 73 20 74 68 65 0a | 74 68 69 6e 67 20 77 65 | is the.|thing we|
|00000fd0| 20 77 61 6e 74 20 74 68 | 65 20 70 72 6f 70 65 72 | want th|e proper|
|00000fe0| 74 79 20 76 61 6c 75 65 | 20 74 6f 20 62 65 2e 0a |ty value| to be..|
|00000ff0| 0a 4e 6f 74 65 20 74 68 | 61 74 20 53 45 54 46 20 |.Note th|at SETF |
|00001000| 69 73 20 74 68 65 20 73 | 61 6d 65 20 70 72 69 6d |is the s|ame prim|
|00001010| 69 74 69 76 65 20 75 73 | 65 64 20 74 6f 20 61 73 |itive us|ed to as|
|00001020| 73 69 67 6e 20 61 20 76 | 61 6c 75 65 20 74 6f 20 |sign a v|alue to |
|00001030| 61 0a 73 79 6d 62 6f 6c | 2e 00 02 4f 6e 65 20 77 |a.symbol|...One w|
|00001040| 61 79 20 74 6f 20 74 68 | 69 6e 6b 20 61 62 6f 75 |ay to th|ink abou|
|00001050| 74 20 61 20 73 79 6d 62 | 6f 6c 27 73 20 76 61 6c |t a symb|ol's val|
|00001060| 75 65 20 69 73 20 74 6f | 20 74 68 69 6e 6b 20 6f |ue is to| think o|
|00001070| 66 0a 69 74 20 61 73 20 | 61 20 70 72 69 76 69 6c |f.it as |a privil|
|00001080| 65 67 65 64 20 70 72 6f | 70 65 72 74 79 c4 c4 c4 |eged pro|perty...|
|00001090| 6f 6e 65 20 74 68 61 74 | 20 79 6f 75 20 67 65 74 |one that| you get|
|000010a0| 20 61 74 20 62 79 20 65 | 76 61 6c 75 61 74 69 6e | at by e|valuatin|
|000010b0| 67 0a 69 74 2c 20 72 61 | 74 68 65 72 20 74 68 61 |g.it, ra|ther tha|
|000010c0| 6e 20 62 79 20 75 73 69 | 6e 67 20 47 45 54 2e 0a |n by usi|ng GET..|
|000010d0| 23 13 00 00 00 10 01 04 | 27 03 00 00 00 2e 27 05 |#.......|'.....'.|
|000010e0| 00 00 00 2e 07 05 53 4c | 49 44 45 07 0a 45 58 50 |......SL|IDE..EXP|
|000010f0| 4f 53 49 54 49 4f 4e 23 | 03 00 00 00 04 07 0a 45 |OSITION#|.......E|
|00001100| 58 50 4f 53 49 54 49 4f | 4e 25 2c 01 00 00 0a 4e |XPOSITIO|N%,....N|
|00001110| 6f 74 65 20 74 68 65 20 | 63 6f 6e 74 72 61 73 74 |ote the |contrast|
|00001120| 20 62 65 74 77 65 65 6e | 20 75 73 69 6e 67 20 53 | between| using S|
|00001130| 45 54 46 20 74 6f 20 69 | 6e 73 74 61 6c 6c 20 77 |ETF to i|nstall w|
|00001140| 69 74 68 20 6f 72 64 69 | 6e 61 72 79 0a 76 61 6c |ith ordi|nary.val|
|00001150| 75 65 73 20 61 6e 64 20 | 75 73 69 6e 67 20 53 45 |ues and |using SE|
|00001160| 54 46 20 74 6f 20 64 65 | 61 6c 20 77 69 74 68 20 |TF to de|al with |
|00001170| 70 72 6f 70 65 72 74 69 | 65 73 3a 0a 0a 2a 20 28 |properti|es:..* (|
|00001180| 53 45 54 46 20 50 41 54 | 52 49 43 4b 20 27 28 52 |SETF PAT|RICK '(R|
|00001190| 4f 42 45 52 54 20 44 4f | 52 4f 54 48 59 29 29 00 |OBERT DO|ROTHY)).|
|000011a0| 12 3b 56 61 6c 75 65 2e | 0a 0a 2a 20 28 53 45 54 |.;Value.|..* (SET|
|000011b0| 46 20 28 47 45 54 20 27 | 50 41 54 52 49 43 4b 20 |F (GET '|PATRICK |
|000011c0| 27 50 41 52 45 4e 54 53 | 29 20 27 28 52 4f 42 45 |'PARENTS|) '(ROBE|
|000011d0| 52 54 20 44 4f 52 4f 54 | 48 59 29 29 00 02 3b 50 |RT DOROT|HY))..;P|
|000011e0| 72 6f 70 65 72 74 79 2e | 0a 0a 4e 6f 74 65 20 61 |roperty.|..Note a|
|000011f0| 6c 73 6f 20 74 68 61 74 | 20 70 72 6f 70 65 72 74 |lso that| propert|
|00001200| 79 20 76 61 6c 75 65 73 | 20 63 61 6e 20 62 65 20 |y values| can be |
|00001210| 61 6e 79 20 73 6f 72 74 | 20 6f 66 20 65 78 70 72 |any sort| of expr|
|00001220| 65 73 73 69 6f 6e 2c 0a | 6e 6f 74 20 6a 75 73 74 |ession,.|not just|
|00001230| 20 73 79 6d 62 6f 6c 73 | 2e 0a 23 0b 00 00 00 10 | symbols|..#.....|
|00001240| 01 04 27 03 00 00 00 2e | 27 05 00 00 00 2e 07 05 |..'.....|'.......|
|00001250| 53 4c 49 44 45 07 08 45 | 58 41 4d 50 4c 45 53 23 |SLIDE..E|XAMPLES#|
|00001260| 04 00 00 00 04 07 0d 45 | 58 41 4d 50 4c 45 2d 47 |.......E|XAMPLE-G|
|00001270| 52 4f 55 50 26 1f 45 76 | 61 6c 75 61 74 65 20 74 |ROUP&.Ev|aluate t|
|00001280| 68 65 20 67 69 76 65 6e | 20 65 78 70 72 65 73 73 |he given| express|
|00001290| 69 6f 6e 73 2e 23 01 00 | 00 00 10 01 26 32 2a 20 |ions.#..|....&2* |
|000012a0| 28 53 45 54 46 20 28 47 | 45 54 20 27 50 41 54 52 |(SETF (G|ET 'PATR|
|000012b0| 49 43 4b 20 27 50 41 52 | 45 4e 54 53 29 20 27 28 |ICK 'PAR|ENTS) '(|
|000012c0| 52 4f 42 45 52 54 20 44 | 4f 52 4f 54 48 59 29 29 |ROBERT D|OROTHY))|
|000012d0| 23 01 00 00 00 10 01 26 | 10 28 52 4f 42 45 52 54 |#......&|.(ROBERT|
|000012e0| 20 44 4f 52 4f 54 48 59 | 29 23 01 00 00 00 10 01 | DOROTHY|)#......|
|000012f0| 27 04 00 00 00 2e 07 0d | 45 58 41 4d 50 4c 45 2d |'.......|EXAMPLE-|
|00001300| 47 52 4f 55 50 04 26 19 | 2a 20 28 47 45 54 20 27 |GROUP.&.|* (GET '|
|00001310| 50 41 54 52 49 43 4b 20 | 27 50 41 52 45 4e 54 53 |PATRICK |'PARENTS|
|00001320| 29 23 01 00 00 00 10 01 | 26 10 28 52 4f 42 45 52 |)#......|&.(ROBER|
|00001330| 54 20 44 4f 52 4f 54 48 | 59 29 23 01 00 00 00 10 |T DOROTH|Y)#.....|
|00001340| 01 27 04 00 00 00 2e 07 | 0d 45 58 41 4d 50 4c 45 |.'......|.EXAMPLE|
|00001350| 2d 47 52 4f 55 50 04 26 | 3f 2a 20 28 53 45 54 46 |-GROUP.&|?* (SETF|
|00001360| 20 28 47 45 54 20 27 50 | 41 54 52 49 43 4b 20 27 | (GET 'P|ATRICK '|
|00001370| 46 41 54 48 45 52 29 20 | 28 46 49 52 53 54 20 28 |FATHER) |(FIRST (|
|00001380| 47 45 54 20 27 50 41 54 | 52 49 43 4b 20 27 50 41 |GET 'PAT|RICK 'PA|
|00001390| 52 45 4e 54 53 29 29 29 | 23 01 00 00 00 10 01 26 |RENTS)))|#......&|
|000013a0| 06 52 4f 42 45 52 54 23 | 01 00 00 00 10 01 27 04 |.ROBERT#|......'.|
|000013b0| 00 00 00 2e 07 0d 45 58 | 41 4d 50 4c 45 2d 47 52 |......EX|AMPLE-GR|
|000013c0| 4f 55 50 04 26 25 2a 20 | 28 53 45 54 46 20 28 47 |OUP.&%* |(SETF (G|
|000013d0| 45 54 20 27 52 4f 42 45 | 52 54 20 27 46 41 54 48 |ET 'ROBE|RT 'FATH|
|000013e0| 45 52 29 20 27 4a 41 4d | 45 53 29 23 01 00 00 00 |ER) 'JAM|ES)#....|
|000013f0| 10 01 26 05 4a 41 4d 45 | 53 23 01 00 00 00 10 01 |..&.JAME|S#......|
|00001400| 27 04 00 00 00 2e 07 0d | 45 58 41 4d 50 4c 45 2d |'.......|EXAMPLE-|
|00001410| 47 52 4f 55 50 04 26 26 | 2a 20 28 47 45 54 20 28 |GROUP.&&|* (GET (|
|00001420| 47 45 54 20 27 50 41 54 | 52 49 43 4b 20 27 46 41 |GET 'PAT|RICK 'FA|
|00001430| 54 48 45 52 29 20 27 46 | 41 54 48 45 52 29 23 01 |THER) 'F|ATHER)#.|
|00001440| 00 00 00 10 01 26 06 4a | 41 4d 45 53 0a 23 02 00 |.....&.J|AMES.#..|
|00001450| 00 00 10 01 27 04 00 00 | 00 2e 04 10 05 27 05 00 |....'...|.....'..|
|00001460| 00 00 2e 07 05 53 4c 49 | 44 45 07 08 45 58 41 4d |.....SLI|DE..EXAM|
|00001470| 50 4c 45 53 23 05 00 00 | 00 04 07 0d 45 58 41 4d |PLES#...|....EXAM|
|00001480| 50 4c 45 2d 47 52 4f 55 | 50 26 1f 45 76 61 6c 75 |PLE-GROU|P&.Evalu|
|00001490| 61 74 65 20 74 68 65 20 | 67 69 76 65 6e 20 65 78 |ate the |given ex|
|000014a0| 70 72 65 73 73 69 6f 6e | 73 2e 23 01 00 00 00 10 |pression|s.#.....|
|000014b0| 01 26 26 2a 20 28 53 45 | 54 46 20 28 47 45 54 20 |.&&* (SE|TF (GET |
|000014c0| 27 4a 49 4d 20 27 43 48 | 49 4c 44 52 45 4e 29 20 |'JIM 'CH|ILDREN) |
|000014d0| 27 28 4b 41 52 45 4e 29 | 29 23 01 00 00 00 10 01 |'(KAREN)|)#......|
|000014e0| 26 07 28 4b 41 52 45 4e | 29 23 01 00 00 00 10 01 |&.(KAREN|)#......|
|000014f0| 27 04 00 00 00 2e 07 0d | 45 58 41 4d 50 4c 45 2d |'.......|EXAMPLE-|
|00001500| 47 52 4f 55 50 04 26 16 | 2a 20 28 47 45 54 20 27 |GROUP.&.|* (GET '|
|00001510| 4a 49 4d 20 27 43 48 49 | 4c 44 52 45 4e 29 23 01 |JIM 'CHI|LDREN)#.|
|00001520| 00 00 00 10 01 26 07 28 | 4b 41 52 45 4e 29 23 01 |.....&.(|KAREN)#.|
|00001530| 00 00 00 10 01 27 04 00 | 00 00 2e 07 0d 45 58 41 |.....'..|.....EXA|
|00001540| 4d 50 4c 45 2d 47 52 4f | 55 50 04 26 74 2a 20 28 |MPLE-GRO|UP.&t* (|
|00001550| 53 45 54 46 20 28 47 45 | 54 20 27 4a 49 4d 20 27 |SETF (GE|T 'JIM '|
|00001560| 43 48 49 4c 44 52 45 4e | 29 00 10 3b 50 72 6f 70 |CHILDREN|)..;Prop|
|00001570| 65 72 74 79 20 74 6f 20 | 62 65 20 63 68 61 6e 67 |erty to |be chang|
|00001580| 65 64 2e 0a 00 08 28 43 | 4f 4e 53 20 27 53 55 53 |ed....(C|ONS 'SUS|
|00001590| 41 4e 20 28 47 45 54 20 | 27 4a 49 4d 20 27 43 48 |AN (GET |'JIM 'CH|
|000015a0| 49 4c 44 52 45 4e 29 29 | 29 20 3b 4e 65 77 20 76 |ILDREN))|) ;New v|
|000015b0| 61 6c 75 65 2c 20 77 69 | 74 68 20 53 55 53 41 4e |alue, wi|th SUSAN|
|000015c0| 2e 23 02 00 00 00 10 01 | 26 0d 28 53 55 53 41 4e |.#......|&.(SUSAN|
|000015d0| 20 4b 41 52 45 4e 29 23 | 01 00 00 00 10 01 27 04 | KAREN)#|......'.|
|000015e0| 00 00 00 2e 07 0d 45 58 | 41 4d 50 4c 45 2d 47 52 |......EX|AMPLE-GR|
|000015f0| 4f 55 50 04 26 16 2a 20 | 28 47 45 54 20 27 4a 49 |OUP.&.* |(GET 'JI|
|00001600| 4d 20 27 43 48 49 4c 44 | 52 45 4e 29 23 01 00 00 |M 'CHILD|REN)#...|
|00001610| 00 10 01 26 50 28 53 55 | 53 41 4e 20 4b 41 52 45 |...&P(SU|SAN KARE|
|00001620| 4e 29 00 13 3b 52 65 63 | 61 6c 6c 20 74 68 61 74 |N)..;Rec|all that|
|00001630| 20 6e 65 77 20 70 72 6f | 70 65 72 74 79 20 76 61 | new pro|perty va|
|00001640| 6c 75 65 0a 00 20 3b 77 | 61 73 20 70 6c 61 63 65 |lue.. ;w|as place|
|00001650| 64 20 62 79 20 74 68 65 | 20 53 45 54 46 20 61 62 |d by the| SETF ab|
|00001660| 6f 76 65 2e 0a 23 03 00 | 00 00 10 01 27 04 00 00 |ove..#..|....'...|
|00001670| 00 2e 04 10 04 27 05 00 | 00 00 2e 07 05 53 4c 49 |.....'..|.....SLI|
|00001680| 44 45 07 08 50 52 41 43 | 54 49 43 45 23 06 00 00 |DE..PRAC|TICE#...|
|00001690| 00 07 05 46 4f 52 4d 53 | 0b 01 01 54 04 10 02 26 |...FORMS|...T...&|
|000016a0| 30 0a 45 78 70 65 72 69 | 6d 65 6e 74 20 77 69 74 |0.Experi|ment wit|
|000016b0| 68 20 70 72 6f 70 65 72 | 74 69 65 73 20 75 73 69 |h proper|ties usi|
|000016c0| 6e 67 20 53 45 54 46 20 | 61 6e 64 20 47 45 54 2e |ng SETF |and GET.|
|000016d0| 0a 23 03 00 00 00 10 01 | 27 05 00 00 00 2e 07 05 |.#......|'.......|
|000016e0| 53 4c 49 44 45 07 0a 45 | 58 50 4f 53 49 54 49 4f |SLIDE..E|XPOSITIO|
|000016f0| 4e 23 07 00 00 00 04 07 | 0a 45 58 50 4f 53 49 54 |N#......|.EXPOSIT|
|00001700| 49 4f 4e 25 65 01 00 00 | 0a 52 65 6d 65 6d 62 65 |ION%e...|.Remembe|
|00001710| 72 20 2e 2e 2e 0a 0a 6f | 00 04 49 46 20 79 6f 75 |r .....o|..IF you|
|00001720| 20 68 61 76 65 20 61 20 | 63 6f 6c 6c 65 63 74 69 | have a |collecti|
|00001730| 6f 6e 20 6f 66 20 64 61 | 74 61 20 69 74 65 6d 73 |on of da|ta items|
|00001740| 2c 0a 00 05 41 4e 44 20 | 74 68 6f 73 65 20 69 74 |,...AND |those it|
|00001750| 65 6d 73 20 61 72 65 20 | 6e 61 74 75 72 61 6c 6c |ems are |naturall|
|00001760| 79 20 74 68 6f 75 67 68 | 74 20 6f 66 20 61 73 20 |y though|t of as |
|00001770| 50 52 4f 50 45 52 54 59 | 20 56 41 4c 55 45 53 2c |PROPERTY| VALUES,|
|00001780| 0a 00 05 54 48 45 4e 20 | 61 74 74 61 63 68 20 74 |...THEN |attach t|
|00001790| 68 65 20 69 74 65 6d 73 | 20 74 6f 20 53 59 4d 42 |he items| to SYMB|
|000017a0| 4f 4c 53 20 75 73 69 6e | 67 20 53 45 54 46 20 61 |OLS usin|g SETF a|
|000017b0| 6e 64 20 47 45 54 2c 0a | 0a 00 05 28 53 45 54 46 |nd GET,.|...(SETF|
|000017c0| 20 28 47 45 54 20 3c 73 | 79 6d 62 6f 6c 3e 20 3c | (GET <s|ymbol> <|
|000017d0| 70 72 6f 70 65 72 74 79 | 20 6e 61 6d 65 3e 29 20 |property| name>) |
|000017e0| 3c 70 72 6f 70 65 72 74 | 79 20 76 61 6c 75 65 3e |<propert|y value>|
|000017f0| 0a 0a 6f 00 04 49 46 20 | 79 6f 75 20 68 61 76 65 |..o..IF |you have|
|00001800| 20 61 20 64 61 74 61 20 | 69 74 65 6d 20 73 74 6f | a data |item sto|
|00001810| 72 65 64 20 61 73 20 61 | 20 70 72 6f 70 65 72 74 |red as a| propert|
|00001820| 79 20 76 61 6c 75 65 2c | 0a 00 05 54 48 45 4e 20 |y value,|...THEN |
|00001830| 73 65 6c 65 63 74 20 74 | 68 65 20 69 74 65 6d 20 |select t|he item |
|00001840| 75 73 69 6e 67 20 47 45 | 54 3a 0a 0a 00 05 28 47 |using GE|T:....(G|
|00001850| 45 54 20 3c 73 79 6d 62 | 6f 6c 3e 20 3c 70 72 6f |ET <symb|ol> <pro|
|00001860| 70 65 72 74 79 20 6e 61 | 6d 65 3e 29 0a 23 0e 00 |perty na|me>).#..|
|00001870| 00 00 10 01 04 27 03 00 | 00 00 2e 27 05 00 00 00 |.....'..|...'....|
|00001880| 2e 27 07 00 00 00 04 27 | 05 00 00 00 2e 04 10 02 |.'.....'|........|
|00001890| 04 10 03 36 0b 01 04 53 | 45 54 46 07 0a 47 45 54 |...6...S|ETF..GET|
|000018a0| 2d 4c 45 53 53 4f 4e 0b | 01 05 51 55 4f 54 45 07 |-LESSON.|..QUOTE.|
|000018b0| 06 41 52 52 41 59 53 04 | 10 02 04 10 02 0b 01 05 |.ARRAYS.|........|
|000018c0| 51 55 4f 54 45 07 06 4c | 45 53 53 4f 4e 07 06 41 |QUOTE..L|ESSON..A|
|000018d0| 52 52 41 59 53 0b 01 04 | 4e 41 4d 45 07 06 41 52 |RRAYS...|NAME..AR|
|000018e0| 52 41 59 53 04 10 01 07 | 08 50 52 45 56 49 4f 55 |RAYS....|.PREVIOU|
|000018f0| 53 07 0a 50 52 4f 50 45 | 52 54 49 45 53 04 10 01 |S..PROPE|RTIES...|
|00001900| 07 04 4e 45 58 54 07 0a | 53 54 52 55 43 54 55 52 |..NEXT..|STRUCTUR|
|00001910| 45 53 04 10 01 07 0b 4c | 45 53 53 4f 4e 2d 4e 41 |ES.....L|ESSON-NA|
|00001920| 4d 45 26 0c 55 73 69 6e | 67 20 41 72 72 61 79 73 |ME&.Usin|g Arrays|
|00001930| 04 10 01 04 10 08 07 05 | 53 4c 49 44 45 07 0a 45 |........|SLIDE..E|
|00001940| 58 50 4f 53 49 54 49 4f | 4e 23 01 00 00 00 04 07 |XPOSITIO|N#......|
|00001950| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 25 4b 02 00 00 |.EXPOSIT|ION%K...|
|00001960| 0a 41 6e 20 61 72 72 61 | 79 20 69 73 20 61 20 63 |.An arra|y is a c|
|00001970| 6f 6c 6c 65 63 74 69 6f | 6e 20 6f 66 20 64 61 74 |ollectio|n of dat|
|00001980| 61 20 69 74 65 6d 73 20 | 74 68 61 74 20 61 72 65 |a items |that are|
|00001990| 20 73 74 6f 72 65 64 20 | 61 6e 64 0a 72 65 74 72 | stored |and.retr|
|000019a0| 69 65 76 65 64 20 69 6e | 20 70 6c 61 63 65 73 20 |ieved in| places |
|000019b0| 69 64 65 6e 74 69 66 69 | 65 64 20 62 79 20 69 6e |identifi|ed by in|
|000019c0| 74 65 67 65 72 20 69 6e | 64 65 78 65 73 2e 00 02 |teger in|dexes...|
|000019d0| 48 65 72 65 2c 20 66 6f | 72 0a 65 78 61 6d 70 6c |Here, fo|r.exampl|
|000019e0| 65 2c 20 69 73 20 61 20 | 74 77 6f 2d 64 69 6d 65 |e, is a |two-dime|
|000019f0| 6e 73 69 6f 6e 61 6c 20 | 61 72 72 61 79 20 77 69 |nsional |array wi|
|00001a00| 74 68 20 32 30 20 70 6c | 61 63 65 73 20 66 6f 72 |th 20 pl|aces for|
|00001a10| 20 64 61 74 61 3a 0a 0a | 00 05 30 00 05 31 00 05 | data:..|..0..1..|
|00001a20| 32 00 05 33 00 05 34 0a | 00 02 da c4 c4 c4 c4 c4 |2..3..4.|........|
|00001a30| c2 c4 c4 c4 c4 c4 c2 c4 | c4 c4 c4 c4 c2 c4 c4 c4 |........|........|
|00001a40| c4 c4 c2 c4 c4 c4 c4 c4 | bf 0a 30 20 b3 00 02 54 |........|..0 ...T|
|00001a50| 00 02 b3 00 05 b3 00 05 | b3 00 02 38 00 02 b3 00 |........|...8....|
|00001a60| 05 b3 0a 00 02 c3 c4 c4 | c4 c4 c4 c5 c4 c4 c4 c4 |........|........|
|00001a70| c4 c5 c4 c4 c4 c4 c4 c5 | c4 c4 c4 c4 c4 c5 c4 c4 |........|........|
|00001a80| c4 c4 c4 b4 0a 31 20 b3 | 00 05 b3 00 05 b3 00 05 |.....1 .|........|
|00001a90| b3 00 05 b3 00 05 b3 0a | 00 02 c3 c4 c4 c4 c4 c4 |........|........|
|00001aa0| c5 c4 c4 c4 c4 c4 c5 c4 | c4 c4 c4 c4 c5 c4 c4 c4 |........|........|
|00001ab0| c4 c4 c5 c4 c4 c4 c4 c4 | b4 0a 32 20 b3 00 05 b3 |........|..2 ....|
|00001ac0| 28 41 20 42 29 b3 00 05 | b3 00 05 b3 00 05 b3 0a |(A B)...|........|
|00001ad0| 00 02 c3 c4 c4 c4 c4 c4 | c5 c4 c4 c4 c4 c4 c5 c4 |........|........|
|00001ae0| c4 c4 c4 c4 c5 c4 c4 c4 | c4 c4 c5 c4 c4 c4 c4 c4 |........|........|
|00001af0| b4 0a 33 20 b3 00 05 b3 | 00 05 b3 00 05 b3 00 05 |..3 ....|........|
|00001b00| b3 00 05 b3 0a 00 02 c0 | c4 c4 c4 c4 c4 c1 c4 c4 |........|........|
|00001b10| c4 c4 c4 c1 c4 c4 c4 c4 | c4 c1 c4 c4 c4 c4 c4 c1 |........|........|
|00001b20| c4 c4 c4 c4 c4 d9 0a 0a | 49 6e 20 74 68 69 73 20 |........|In this |
|00001b30| 61 72 72 61 79 2c 20 54 | 20 69 73 20 69 6e 20 70 |array, T| is in p|
|00001b40| 6c 61 63 65 20 30 2c 30 | 3b 20 38 20 69 73 20 69 |lace 0,0|; 8 is i|
|00001b50| 6e 20 70 6c 61 63 65 20 | 30 2c 33 3b 20 61 6e 64 |n place |0,3; and|
|00001b60| 20 28 41 20 42 29 20 69 | 73 0a 69 6e 20 70 6c 61 | (A B) i|s.in pla|
|00001b70| 63 65 20 32 2c 31 2e 00 | 02 4e 6f 74 65 20 74 68 |ce 2,1..|.Note th|
|00001b80| 61 74 20 74 68 65 20 64 | 61 74 61 20 74 79 70 65 |at the d|ata type|
|00001b90| 20 69 6e 20 61 72 72 61 | 79 20 70 6c 61 63 65 73 | in arra|y places|
|00001ba0| 20 6d 61 79 20 76 61 72 | 79 2e 0a 23 13 00 00 00 | may var|y..#....|
|00001bb0| 10 01 04 27 03 00 00 00 | 2e 27 05 00 00 00 2e 07 |...'....|.'......|
|00001bc0| 05 53 4c 49 44 45 07 0a | 45 58 50 4f 53 49 54 49 |.SLIDE..|EXPOSITI|
|00001bd0| 4f 4e 23 02 00 00 00 04 | 07 0a 45 58 50 4f 53 49 |ON#.....|..EXPOSI|
|00001be0| 54 49 4f 4e 25 46 01 00 | 00 0a 54 6f 20 67 65 74 |TION%F..|..To get|
|00001bf0| 20 61 74 20 74 68 65 20 | 64 61 74 61 20 69 6e 20 | at the |data in |
|00001c00| 61 6e 20 61 72 72 61 79 | 2c 20 79 6f 75 20 73 69 |an array|, you si|
|00001c10| 6d 70 6c 79 20 75 73 65 | 20 41 52 45 46 2c 20 66 |mply use| AREF, f|
|00001c20| 6f 72 20 41 72 72 61 79 | 0a 52 45 46 65 72 65 6e |or Array|.REFeren|
|00001c30| 63 65 2c 20 74 6f 67 65 | 74 68 65 72 20 77 69 74 |ce, toge|ther wit|
|00001c40| 68 20 61 73 20 6d 61 6e | 79 20 69 6e 74 65 67 65 |h as man|y intege|
|00001c50| 72 73 20 61 73 20 74 68 | 65 72 65 20 61 72 65 20 |rs as th|ere are |
|00001c60| 64 69 6d 65 6e 73 69 6f | 6e 73 0a 69 6e 20 74 68 |dimensio|ns.in th|
|00001c70| 65 20 61 72 72 61 79 2e | 0a 0a 46 6f 72 20 6f 75 |e array.|..For ou|
|00001c80| 72 20 65 78 61 6d 70 6c | 65 2c 20 74 68 65 20 66 |r exampl|e, the f|
|00001c90| 6f 6c 6c 6f 77 69 6e 67 | 20 77 6f 72 6b 2c 20 67 |ollowing| work, g|
|00001ca0| 69 76 65 6e 20 74 68 61 | 74 20 45 58 41 4d 50 4c |iven tha|t EXAMPL|
|00001cb0| 45 31 27 73 20 76 61 6c | 75 65 0a 77 61 73 20 74 |E1's val|ue.was t|
|00001cc0| 68 65 20 61 72 72 61 79 | 20 69 6e 20 74 68 65 20 |he array| in the |
|00001cd0| 70 72 65 76 69 6f 75 73 | 20 73 6c 69 64 65 3a 0a |previous| slide:.|
|00001ce0| 0a 2a 20 28 41 52 45 46 | 20 45 58 41 4d 50 4c 45 |.* (AREF| EXAMPLE|
|00001cf0| 31 20 30 20 30 29 0a 54 | 0a 0a 2a 20 28 41 52 45 |1 0 0).T|..* (ARE|
|00001d00| 46 20 45 58 41 4d 50 4c | 45 31 20 30 20 33 29 0a |F EXAMPL|E1 0 3).|
|00001d10| 38 0a 0a 2a 20 28 41 52 | 45 46 20 45 58 41 4d 50 |8..* (AR|EF EXAMP|
|00001d20| 4c 45 31 20 32 20 31 29 | 0a 28 41 20 42 29 0a 23 |LE1 2 1)|.(A B).#|
|00001d30| 11 00 00 00 10 01 04 27 | 03 00 00 00 2e 27 05 00 |.......'|.....'..|
|00001d40| 00 00 2e 07 05 53 4c 49 | 44 45 07 0a 45 58 50 4f |.....SLI|DE..EXPO|
|00001d50| 53 49 54 49 4f 4e 23 03 | 00 00 00 04 07 0a 45 58 |SITION#.|......EX|
|00001d60| 50 4f 53 49 54 49 4f 4e | 25 a1 01 00 00 0a 54 6f |POSITION|%.....To|
|00001d70| 20 63 72 65 61 74 65 20 | 61 6e 20 61 72 72 61 79 | create |an array|
|00001d80| 20 69 6e 20 74 68 65 20 | 66 69 72 73 74 20 70 6c | in the |first pl|
|00001d90| 61 63 65 2c 20 77 65 20 | 6e 65 65 64 20 74 6f 20 |ace, we |need to |
|00001da0| 74 65 6c 6c 20 4c 49 53 | 50 20 68 6f 77 0a 6d 61 |tell LIS|P how.ma|
|00001db0| 6e 79 20 64 69 6d 65 6e | 73 69 6f 6e 73 20 69 74 |ny dimen|sions it|
|00001dc0| 20 68 61 73 20 41 4e 44 | 20 68 6f 77 20 6c 61 72 | has AND| how lar|
|00001dd0| 67 65 20 65 61 63 68 20 | 64 69 6d 65 6e 73 69 6f |ge each |dimensio|
|00001de0| 6e 20 69 73 2e 00 02 54 | 68 69 73 20 69 73 0a 64 |n is...T|his is.d|
|00001df0| 6f 6e 65 20 75 73 69 6e | 67 20 4d 41 4b 45 2d 41 |one usin|g MAKE-A|
|00001e00| 52 52 41 59 3b 20 74 68 | 65 20 61 72 67 75 6d 65 |RRAY; th|e argume|
|00001e10| 6e 74 20 69 73 20 61 20 | 6c 69 73 74 20 77 68 6f |nt is a |list who|
|00001e20| 73 65 20 6c 65 6e 67 74 | 68 20 69 73 20 74 68 65 |se lengt|h is the|
|00001e30| 0a 6e 75 6d 62 65 72 20 | 6f 66 20 64 69 6d 65 6e |.number |of dimen|
|00001e40| 73 69 6f 6e 73 20 61 6e | 64 20 77 68 6f 73 65 20 |sions an|d whose |
|00001e50| 65 6c 65 6d 65 6e 74 73 | 20 73 70 65 63 69 66 79 |elements| specify|
|00001e60| 20 74 68 65 20 73 69 7a | 65 20 6f 66 20 74 68 65 | the siz|e of the|
|00001e70| 0a 63 6f 72 72 65 73 70 | 6f 6e 64 69 6e 67 20 64 |.corresp|onding d|
|00001e80| 69 6d 65 6e 73 69 6f 6e | 3a 0a 0a 00 12 46 69 72 |imension|:....Fir|
|00001e90| 73 74 20 64 69 6d 65 6e | 73 69 6f 6e 20 72 61 6e |st dimen|sion ran|
|00001ea0| 67 65 73 20 66 72 6f 6d | 20 30 20 74 6f 20 34 2e |ges from| 0 to 4.|
|00001eb0| 0a 00 1f b3 0a 00 1f 1f | 0a 2a 20 28 53 45 54 46 |........|.* (SETF|
|00001ec0| 20 45 58 41 4d 50 4c 45 | 31 20 28 4d 41 4b 45 2d | EXAMPLE|1 (MAKE-|
|00001ed0| 41 52 52 41 59 20 27 28 | 34 20 33 29 29 29 0a 00 |ARRAY '(|4 3)))..|
|00001ee0| 21 1e 0a 00 21 b3 0a 00 | 12 53 65 63 6f 6e 64 20 |!...!...|.Second |
|00001ef0| 64 69 6d 65 6e 73 69 6f | 6e 20 72 61 6e 67 65 73 |dimensio|n ranges|
|00001f00| 20 66 72 6f 6d 20 30 20 | 74 6f 20 33 2e 0a 23 0f | from 0 |to 3..#.|
|00001f10| 00 00 00 10 01 04 27 03 | 00 00 00 2e 27 05 00 00 |......'.|....'...|
|00001f20| 00 2e 07 05 53 4c 49 44 | 45 07 0a 45 58 50 4f 53 |....SLID|E..EXPOS|
|00001f30| 49 54 49 4f 4e 23 04 00 | 00 00 04 07 0a 45 58 50 |ITION#..|.....EXP|
|00001f40| 4f 53 49 54 49 4f 4e 25 | 4b 01 00 00 0a 57 68 65 |OSITION%|K....Whe|
|00001f50| 6e 20 61 6e 20 61 72 72 | 61 79 20 68 61 73 20 62 |n an arr|ay has b|
|00001f60| 75 74 20 6f 6e 65 20 64 | 69 6d 65 6e 73 69 6f 6e |ut one d|imension|
|00001f70| 2c 20 4d 41 4b 45 2d 41 | 52 52 41 59 20 74 61 6b |, MAKE-A|RRAY tak|
|00001f80| 65 73 20 61 20 6e 75 6d | 62 65 72 0a 74 68 61 74 |es a num|ber.that|
|00001f90| 20 73 70 65 63 69 66 69 | 65 73 20 74 68 65 20 73 | specifi|es the s|
|00001fa0| 69 7a 65 20 6f 66 20 74 | 68 61 74 20 64 69 6d 65 |ize of t|hat dime|
|00001fb0| 6e 73 69 6f 6e 2c 20 72 | 61 74 68 65 72 20 74 68 |nsion, r|ather th|
|00001fc0| 61 6e 20 61 20 6c 69 73 | 74 20 6f 66 0a 6e 75 6d |an a lis|t of.num|
|00001fd0| 62 65 72 73 3a 0a 0a 00 | 12 4f 6e 6c 79 20 64 69 |bers:...|.Only di|
|00001fe0| 6d 65 6e 73 69 6f 6e 20 | 72 61 6e 67 65 73 20 66 |mension |ranges f|
|00001ff0| 72 6f 6d 20 30 20 74 6f | 20 33 2e 0a 00 1d b3 0a |rom 0 to| 3......|
|00002000| 00 1d 1f 0a 2a 20 28 53 | 45 54 46 20 45 58 41 4d |....* (S|ETF EXAM|
|00002010| 50 4c 45 32 20 28 4d 41 | 4b 45 2d 41 52 52 41 59 |PLE2 (MA|KE-ARRAY|
|00002020| 20 34 29 29 0a 0a 47 6f | 6c 64 65 6e 20 43 6f 6d | 4))..Go|lden Com|
|00002030| 6d 6f 6e 20 4c 49 53 50 | 20 70 65 72 6d 69 74 73 |mon LISP| permits|
|00002040| 20 6f 6e 6c 79 20 6f 6e | 65 2d 64 69 6d 65 6e 73 | only on|e-dimens|
|00002050| 69 6f 6e 61 6c 20 61 72 | 72 61 79 73 2c 20 61 6e |ional ar|rays, an|
|00002060| 64 20 79 6f 75 0a 6d 75 | 73 74 20 75 73 65 20 74 |d you.mu|st use t|
|00002070| 68 65 20 73 79 6e 74 61 | 78 20 69 6c 6c 75 73 74 |he synta|x illust|
|00002080| 72 61 74 65 64 20 69 6e | 20 74 68 69 73 20 65 78 |rated in| this ex|
|00002090| 61 6d 70 6c 65 2e 0a 23 | 0d 00 00 00 10 01 04 27 |ample..#|.......'|
|000020a0| 03 00 00 00 2e 27 05 00 | 00 00 2e 07 05 53 4c 49 |.....'..|.....SLI|
|000020b0| 44 45 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 23 05 |DE..EXPO|SITION#.|
|000020c0| 00 00 00 04 07 0a 45 58 | 50 4f 53 49 54 49 4f 4e |......EX|POSITION|
|000020d0| 25 34 01 00 00 0a 54 6f | 20 70 75 74 20 74 68 69 |%4....To| put thi|
|000020e0| 6e 67 73 20 69 6e 74 6f | 20 61 6e 20 61 72 72 61 |ngs into| an arra|
|000020f0| 79 2c 20 6f 6e 63 65 20 | 61 67 61 69 6e 20 53 45 |y, once |again SE|
|00002100| 54 46 2c 20 74 68 65 20 | 67 65 6e 65 72 61 6c 69 |TF, the |generali|
|00002110| 7a 65 64 0a 73 65 74 74 | 69 6e 67 20 70 72 69 6d |zed.sett|ing prim|
|00002120| 69 74 69 76 65 2c 20 64 | 6f 65 73 20 74 68 65 20 |itive, d|oes the |
|00002130| 6a 6f 62 2e 00 02 48 65 | 72 65 20 69 73 20 68 6f |job...He|re is ho|
|00002140| 77 20 74 68 72 65 65 20 | 6f 66 20 45 58 41 4d 50 |w three |of EXAMP|
|00002150| 4c 45 32 27 73 0a 76 61 | 6c 75 65 73 20 63 61 6e |LE2's.va|lues can|
|00002160| 20 62 65 20 65 73 74 61 | 62 6c 69 73 68 65 64 3a | be esta|blished:|
|00002170| 0a 0a 2a 20 28 53 45 54 | 46 20 28 41 52 45 46 20 |..* (SET|F (AREF |
|00002180| 45 58 41 4d 50 4c 45 32 | 20 30 29 20 54 29 0a 0a |EXAMPLE2| 0) T)..|
|00002190| 2a 20 28 53 45 54 46 20 | 28 41 52 45 46 20 45 58 |* (SETF |(AREF EX|
|000021a0| 41 4d 50 4c 45 32 20 31 | 29 20 27 28 41 20 42 29 |AMPLE2 1|) '(A B)|
|000021b0| 29 0a 0a 2a 20 28 53 45 | 54 46 20 28 41 52 45 46 |)..* (SE|TF (AREF|
|000021c0| 20 45 58 41 4d 50 4c 45 | 32 20 33 29 20 38 29 0a | EXAMPLE|2 3) 8).|
|000021d0| 0a 41 6c 6c 20 70 6c 61 | 63 65 73 20 63 6f 6e 74 |.All pla|ces cont|
|000021e0| 61 69 6e 20 7a 65 72 6f | 73 20 75 6e 74 69 6c 20 |ain zero|s until |
|000021f0| 74 68 65 79 20 61 72 65 | 20 73 65 74 20 75 73 69 |they are| set usi|
|00002200| 6e 67 20 53 45 54 46 2e | 0a 23 0d 00 00 00 10 01 |ng SETF.|.#......|
|00002210| 04 27 03 00 00 00 2e 27 | 05 00 00 00 2e 07 05 53 |.'.....'|.......S|
|00002220| 4c 49 44 45 07 08 50 52 | 41 43 54 49 43 45 23 06 |LIDE..PR|ACTICE#.|
|00002230| 00 00 00 07 05 46 4f 52 | 4d 53 0b 01 04 53 45 54 |.....FOR|MS...SET|
|00002240| 46 07 08 45 58 41 4d 50 | 4c 45 32 0b 01 0a 4d 41 |F..EXAMP|LE2...MA|
|00002250| 4b 45 2d 41 52 52 41 59 | 23 04 00 00 00 04 10 02 |KE-ARRAY|#.......|
|00002260| 04 10 03 0b 01 04 53 45 | 54 46 0b 01 04 41 52 45 |......SE|TF...ARE|
|00002270| 46 07 08 45 58 41 4d 50 | 4c 45 32 23 00 00 00 00 |F..EXAMP|LE2#....|
|00002280| 04 10 03 0b 01 01 54 04 | 10 03 0b 01 04 53 45 54 |......T.|.....SET|
|00002290| 46 0b 01 04 41 52 45 46 | 07 08 45 58 41 4d 50 4c |F...AREF|..EXAMPL|
|000022a0| 45 32 23 01 00 00 00 04 | 10 03 0b 01 05 51 55 4f |E2#.....|.....QUO|
|000022b0| 54 45 07 01 41 07 01 42 | 04 10 02 04 10 02 04 10 |TE..A..B|........|
|000022c0| 03 0b 01 04 53 45 54 46 | 0b 01 04 41 52 45 46 07 |....SETF|...AREF.|
|000022d0| 08 45 58 41 4d 50 4c 45 | 32 23 03 00 00 00 04 10 |.EXAMPLE|2#......|
|000022e0| 03 23 08 00 00 00 04 10 | 03 04 10 04 04 10 02 26 |.#......|.......&|
|000022f0| f8 50 72 61 63 74 69 63 | 65 20 75 73 69 6e 67 20 |.Practic|e using |
|00002300| 61 72 72 61 79 73 2e 00 | 02 59 6f 75 20 6d 61 79 |arrays..|.You may|
|00002310| 20 61 73 73 75 6d 65 20 | 45 58 41 4d 50 4c 45 32 | assume |EXAMPLE2|
|00002320| 20 69 73 20 61 6e 20 61 | 72 72 61 79 20 74 68 61 | is an a|rray tha|
|00002330| 74 0a 6c 6f 6f 6b 73 20 | 6c 69 6b 65 20 74 68 69 |t.looks |like thi|
|00002340| 73 3a 0a 0a 00 05 30 00 | 05 31 00 05 32 00 05 33 |s:....0.|.1..2..3|
|00002350| 0a 00 02 da c4 c4 c4 c4 | c4 c2 c4 c4 c4 c4 c4 c2 |........|........|
|00002360| c4 c4 c4 c4 c4 c2 c4 c4 | c4 c4 c4 bf 0a 30 20 b3 |........|.....0 .|
|00002370| 00 02 54 00 02 b3 28 41 | 20 42 29 b3 00 05 b3 00 |..T...(A| B).....|
|00002380| 02 38 00 02 b3 0a 00 02 | c0 c4 c4 c4 c4 c4 c1 c4 |.8......|........|
|00002390| c4 c4 c4 c4 c1 c4 c4 c4 | c4 c4 c1 c4 c4 c4 c4 c4 |........|........|
|000023a0| d9 0a 0a 52 65 6d 65 6d | 62 65 72 20 74 68 61 74 |...Remem|ber that|
|000023b0| 20 47 6f 6c 64 65 6e 20 | 43 6f 6d 6d 6f 6e 20 4c | Golden |Common L|
|000023c0| 49 53 50 20 70 65 72 6d | 69 74 73 20 6f 6e 6c 79 |ISP perm|its only|
|000023d0| 20 6f 6e 65 2d 64 69 6d | 65 6e 73 69 6f 6e 61 6c | one-dim|ensional|
|000023e0| 0a 61 72 72 61 79 73 2e | 0a 23 0b 00 00 00 10 01 |.arrays.|.#......|
|000023f0| 27 05 00 00 00 2e 07 05 | 53 4c 49 44 45 07 0a 45 |'.......|SLIDE..E|
|00002400| 58 50 4f 53 49 54 49 4f | 4e 23 07 00 00 00 04 07 |XPOSITIO|N#......|
|00002410| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 25 46 02 00 00 |.EXPOSIT|ION%F...|
|00002420| 0a 52 65 6d 65 6d 62 65 | 72 20 2e 2e 2e 0a 0a 6f |.Remembe|r .....o|
|00002430| 00 04 49 46 20 79 6f 75 | 20 68 61 76 65 20 61 20 |..IF you| have a |
|00002440| 63 6f 6c 6c 65 63 74 69 | 6f 6e 20 6f 66 20 64 61 |collecti|on of da|
|00002450| 74 61 20 69 74 65 6d 73 | 2c 0a 00 05 41 4e 44 20 |ta items|,...AND |
|00002460| 74 68 6f 73 65 20 69 74 | 65 6d 73 20 61 72 65 20 |those it|ems are |
|00002470| 6e 61 74 75 72 61 6c 6c | 79 20 61 73 73 6f 63 69 |naturall|y associ|
|00002480| 61 74 65 64 20 77 69 74 | 68 20 50 4c 41 43 45 53 |ated wit|h PLACES|
|00002490| 2c 0a 00 05 54 48 45 4e | 20 63 72 65 61 74 65 20 |,...THEN| create |
|000024a0| 61 6e 20 61 72 72 61 79 | 20 75 73 69 6e 67 20 4d |an array| using M|
|000024b0| 41 4b 45 2d 41 52 52 41 | 59 2c 0a 00 05 41 4e 44 |AKE-ARRA|Y,...AND|
|000024c0| 20 70 6c 61 63 65 20 74 | 68 65 20 69 74 65 6d 73 | place t|he items|
|000024d0| 20 75 73 69 6e 67 20 53 | 45 54 46 2c 20 41 52 45 | using S|ETF, ARE|
|000024e0| 46 2c 20 61 6e 64 20 74 | 68 65 20 61 72 72 61 79 |F, and t|he array|
|000024f0| 20 6e 61 6d 65 2e 0a 0a | 00 05 28 53 45 54 46 20 | name...|..(SETF |
|00002500| 3c 61 72 72 61 79 20 6e | 61 6d 65 3e 20 28 4d 41 |<array n|ame> (MA|
|00002510| 4b 45 2d 41 52 52 41 59 | 20 27 28 3c 73 69 7a 65 |KE-ARRAY| '(<size|
|00002520| 20 31 3e 20 3c 73 69 7a | 65 20 32 3e 20 2e 2e 2e | 1> <siz|e 2> ...|
|00002530| 20 3c 73 69 7a 65 20 6e | 3e 29 29 29 0a 0a 00 05 | <size n|>)))....|
|00002540| 28 53 45 54 46 20 28 41 | 52 45 46 20 3c 61 72 72 |(SETF (A|REF <arr|
|00002550| 61 79 20 6e 61 6d 65 3e | 20 3c 69 6e 64 65 78 20 |ay name>| <index |
|00002560| 31 3e 20 3c 69 6e 64 65 | 78 20 32 3e 20 2e 2e 2e |1> <inde|x 2> ...|
|00002570| 20 3c 69 6e 64 65 78 20 | 6e 3e 29 0a 00 0b 3c 64 | <index |n>)...<d|
|00002580| 61 74 61 20 69 74 65 6d | 3e 29 0a 0a 6f 00 04 49 |ata item|>)..o..I|
|00002590| 46 20 79 6f 75 20 68 61 | 76 65 20 61 20 64 61 74 |F you ha|ve a dat|
|000025a0| 61 20 69 74 65 6d 20 73 | 74 6f 72 65 64 20 69 6e |a item s|tored in|
|000025b0| 20 61 6e 20 61 72 72 61 | 79 2c 0a 00 05 54 48 45 | an arra|y,...THE|
|000025c0| 4e 20 73 65 6c 65 63 74 | 20 74 68 65 20 69 74 65 |N select| the ite|
|000025d0| 6d 20 75 73 69 6e 67 20 | 41 52 45 46 20 61 6e 64 |m using |AREF and|
|000025e0| 20 74 68 65 20 61 72 72 | 61 79 20 6e 61 6d 65 3a | the arr|ay name:|
|000025f0| 0a 0a 00 05 28 41 52 45 | 46 20 3c 61 72 72 61 79 |....(ARE|F <array|
|00002600| 20 6e 61 6d 65 3e 20 3c | 69 6e 64 65 78 20 31 3e | name> <|index 1>|
|00002610| 20 3c 69 6e 64 65 78 20 | 32 3e 20 2e 2e 2e 20 3c | <index |2> ... <|
|00002620| 69 6e 64 65 78 20 6e 3e | 29 0a 0a 6f 00 04 47 6f |index n>|)..o..Go|
|00002630| 6c 64 65 6e 20 43 6f 6d | 6d 6f 6e 20 4c 49 53 50 |lden Com|mon LISP|
|00002640| 20 70 65 72 6d 69 74 73 | 20 6f 6e 6c 79 20 6f 6e | permits| only on|
|00002650| 65 2d 64 69 6d 65 6e 73 | 69 6f 6e 61 6c 20 61 72 |e-dimens|ional ar|
|00002660| 72 61 79 73 2e 0a 23 14 | 00 00 00 10 01 04 27 03 |rays..#.|......'.|
|00002670| 00 00 00 2e 27 05 00 00 | 00 2e 27 07 00 00 00 04 |....'...|..'.....|
|00002680| 27 05 00 00 00 2e 04 10 | 02 04 10 03 36 0b 01 04 |'.......|....6...|
|00002690| 53 45 54 46 07 15 2a 4c | 41 53 54 2d 4c 4f 41 44 |SETF..*L|AST-LOAD|
|000026a0| 45 44 2d 4c 45 53 53 4f | 4e 53 2a 0b 01 05 51 55 |ED-LESSO|NS*...QU|
|000026b0| 4f 54 45 07 07 41 2d 4c | 49 53 54 53 07 0a 50 52 |OTE..A-L|ISTS..PR|
|000026c0| 4f 50 45 52 54 49 45 53 | 07 06 41 52 52 41 59 53 |OPERTIES|..ARRAYS|
|000026d0| 04 10 03 04 10 02 04 10 | 03 36 40 |........|.6@ |
+--------+-------------------------+-------------------------+--------+--------+
