/ Liren Large Software Subsidy 9 / 09.iso / e / e070 / 6.ddi / EXPLORER / SLIDES / STRUCTUR.TF

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 0a 53 54 52 |SON...QU|OTE..STR|
|00000080| 55 43 54 55 52 45 53 04 | 10 02 04 10 02 0b 01 05 |UCTURES.|........|
|00000090| 51 55 4f 54 45 07 06 4c | 45 53 53 4f 4e 07 0a 53 |QUOTE..L|ESSON..S|
|000000a0| 54 52 55 43 54 55 52 45 | 53 0b 01 04 4e 41 4d 45 |TRUCTURE|S...NAME|
|000000b0| 07 0a 53 54 52 55 43 54 | 55 52 45 53 04 10 01 07 |..STRUCT|URES....|
|000000c0| 04 4e 45 58 54 07 02 49 | 4f 04 10 01 07 08 50 52 |.NEXT..I|O.....PR|
|000000d0| 45 56 49 4f 55 53 07 06 | 41 52 52 41 59 53 07 07 |EVIOUS..|ARRAYS..|
|000000e0| 41 2d 4c 49 53 54 53 04 | 10 02 04 10 01 07 0b 4c |A-LISTS.|.......L|
|000000f0| 45 53 53 4f 4e 2d 4e 41 | 4d 45 26 10 55 73 69 6e |ESSON-NA|ME&.Usin|
|00000100| 67 20 53 74 72 75 63 74 | 75 72 65 73 04 10 01 04 |g Struct|ures....|
|00000110| 10 08 07 05 53 4c 49 44 | 45 07 0a 45 58 50 4f 53 |....SLID|E..EXPOS|
|00000120| 49 54 49 4f 4e 23 01 00 | 00 00 04 07 0a 45 58 50 |ITION#..|.....EXP|
|00000130| 4f 53 49 54 49 4f 4e 25 | 7f 01 00 00 0a 47 6f 6f |OSITION%|.....Goo|
|00000140| 64 20 70 72 6f 67 72 61 | 6d 6d 69 6e 67 20 70 72 |d progra|mming pr|
|00000150| 61 63 74 69 63 65 20 64 | 69 63 74 61 74 65 73 20 |actice d|ictates |
|00000160| 74 68 61 74 20 70 72 6f | 67 72 61 6d 6d 65 72 73 |that pro|grammers|
|00000170| 20 69 6e 73 75 6c 61 74 | 65 0a 74 68 65 6d 73 65 | insulat|e.themse|
|00000180| 6c 76 65 73 20 66 72 6f | 6d 20 74 68 65 20 64 65 |lves fro|m the de|
|00000190| 74 61 69 6c 73 20 6f 66 | 20 68 6f 77 20 64 61 74 |tails of| how dat|
|000001a0| 61 20 69 73 20 73 74 6f | 72 65 64 20 62 79 20 75 |a is sto|red by u|
|000001b0| 73 69 6e 67 20 61 0a 73 | 6d 61 6c 6c 20 73 65 74 |sing a.s|mall set|
|000001c0| 20 6f 66 20 68 69 67 68 | 6c 79 20 6d 6e 65 6d 6f | of high|ly mnemo|
|000001d0| 6e 69 63 20 61 63 63 65 | 73 73 20 70 72 6f 63 65 |nic acce|ss proce|
|000001e0| 64 75 72 65 73 2e 00 02 | 54 68 65 72 65 20 61 72 |dures...|There ar|
|000001f0| 65 20 74 68 72 65 65 0a | 74 79 70 65 73 3a 0a 0a |e three.|types:..|
|00000200| 31 2e 20 50 72 6f 63 65 | 64 75 72 65 73 20 74 68 |1. Proce|dures th|
|00000210| 61 74 20 6d 61 6b 65 20 | 63 68 75 6e 6b 73 20 6f |at make |chunks o|
|00000220| 66 20 64 61 74 61 20 61 | 72 65 20 43 4f 4e 53 54 |f data a|re CONST|
|00000230| 52 55 43 54 4f 52 53 2e | 0a 0a 32 2e 20 50 72 6f |RUCTORS.|..2. Pro|
|00000240| 63 65 64 75 72 65 73 20 | 74 68 61 74 20 65 78 74 |cedures |that ext|
|00000250| 72 61 63 74 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |ract inf|ormation|
|00000260| 20 66 72 6f 6d 20 63 68 | 75 6e 6b 73 20 61 72 65 | from ch|unks are|
|00000270| 20 53 45 4c 45 43 54 4f | 52 53 2e 0a 0a 33 2e 20 | SELECTO|RS...3. |
|00000280| 50 72 6f 63 65 64 75 72 | 65 73 20 74 68 61 74 20 |Procedur|es that |
|00000290| 63 68 61 6e 67 65 20 69 | 6e 66 6f 72 6d 61 74 69 |change i|nformati|
|000002a0| 6f 6e 20 69 6e 20 63 68 | 75 6e 6b 73 20 61 72 65 |on in ch|unks are|
|000002b0| 20 4d 55 54 41 54 4f 52 | 53 2e 0a 23 0c 00 00 00 | MUTATOR|S..#....|
|000002c0| 10 01 04 27 03 00 00 00 | 2e 27 05 00 00 00 2e 07 |...'....|.'......|
|000002d0| 05 53 4c 49 44 45 07 0a | 45 58 50 4f 53 49 54 49 |.SLIDE..|EXPOSITI|
|000002e0| 4f 4e 23 02 00 00 00 04 | 07 0a 45 58 50 4f 53 49 |ON#.....|..EXPOSI|
|000002f0| 54 49 4f 4e 25 d5 02 00 | 00 0a 43 6f 6e 73 74 72 |TION%...|..Constr|
|00000300| 75 63 74 6f 72 73 2c 20 | 73 65 6c 65 63 74 6f 72 |uctors, |selector|
|00000310| 73 2c 20 61 6e 64 20 6d | 75 74 61 74 6f 72 73 20 |s, and m|utators |
|00000320| 63 61 6e 20 62 65 20 63 | 6f 6e 73 74 72 75 63 74 |can be c|onstruct|
|00000330| 65 64 20 62 79 20 68 61 | 6e 64 2c 0a 62 75 74 20 |ed by ha|nd,.but |
|00000340| 75 73 75 61 6c 6c 79 20 | 69 74 20 69 73 20 62 65 |usually |it is be|
|00000350| 74 74 65 72 20 74 6f 20 | 61 75 74 6f 6d 61 74 65 |tter to |automate|
|00000360| 20 74 68 65 69 72 20 63 | 6f 6e 73 74 72 75 63 74 | their c|onstruct|
|00000370| 69 6f 6e 20 62 79 20 75 | 73 69 6e 67 0a 74 68 65 |ion by u|sing.the|
|00000380| 20 62 75 69 6c 74 2d 69 | 6e 20 4c 49 53 50 20 70 | built-i|n LISP p|
|00000390| 72 69 6d 69 74 69 76 65 | 20 44 45 46 53 54 52 55 |rimitive| DEFSTRU|
|000003a0| 43 54 2c 20 66 6f 72 20 | 44 45 46 69 6e 65 20 53 |CT, for |DEFine S|
|000003b0| 54 52 55 43 54 75 72 65 | 2e 0a 0a 49 6e 20 61 20 |TRUCTure|...In a |
|000003c0| 66 6f 72 74 68 63 6f 6d | 69 6e 67 20 65 78 61 6d |forthcom|ing exam|
|000003d0| 70 6c 65 2c 20 44 45 46 | 53 54 52 55 43 54 20 69 |ple, DEF|STRUCT i|
|000003e0| 73 20 75 73 65 64 20 74 | 6f 20 63 72 65 61 74 65 |s used t|o create|
|000003f0| 20 6d 61 6e 79 0a 70 72 | 6f 63 65 64 75 72 65 73 | many.pr|ocedures|
|00000400| 20 66 6f 72 20 6d 61 6e | 69 70 75 6c 61 74 69 6e | for man|ipulatin|
|00000410| 67 20 6f 62 6a 65 63 74 | 73 20 6f 66 20 74 68 65 |g object|s of the|
|00000420| 20 50 45 52 53 4f 4e 20 | 74 79 70 65 3a 0a 0a 44 | PERSON |type:..D|
|00000430| 45 46 53 54 52 55 43 54 | 0a 00 04 b3 0a 00 04 c3 |EFSTRUCT|........|
|00000440| c4 c4 10 20 4d 41 4b 45 | 2d 50 45 52 53 4f 4e 2c |... MAKE|-PERSON,|
|00000450| 20 74 68 65 20 50 45 52 | 53 4f 4e 20 63 6f 6e 73 | the PER|SON cons|
|00000460| 74 72 75 63 74 6f 72 20 | 70 72 6f 63 65 64 75 72 |tructor |procedur|
|00000470| 65 2e 0a 00 04 b3 0a 00 | 04 c3 c4 c4 10 20 50 45 |e.......|..... PE|
|00000480| 52 53 4f 4e 2d 53 45 58 | 2c 20 6f 6e 65 20 6f 66 |RSON-SEX|, one of|
|00000490| 20 74 68 65 20 50 45 52 | 53 4f 4e 20 73 65 6c 65 | the PER|SON sele|
|000004a0| 63 74 6f 72 20 70 72 6f | 63 65 64 75 72 65 73 2e |ctor pro|cedures.|
|000004b0| 0a 00 04 b3 0a 00 04 c0 | c4 c4 10 20 47 65 6e 65 |........|... Gene|
|000004c0| 72 61 6c 69 7a 61 74 69 | 6f 6e 20 6f 66 20 53 45 |ralizati|on of SE|
|000004d0| 54 46 2c 20 74 6f 20 73 | 65 72 76 65 20 61 73 20 |TF, to s|erve as |
|000004e0| 74 68 65 20 50 45 52 53 | 4f 4e 20 6d 75 74 61 74 |the PERS|ON mutat|
|000004f0| 6f 72 2e 0a 0a 4e 6f 74 | 65 20 74 68 61 74 20 44 |or...Not|e that D|
|00000500| 45 46 53 54 52 55 43 54 | 20 64 6f 65 73 20 4e 4f |EFSTRUCT| does NO|
|00000510| 54 20 63 6f 6e 73 74 72 | 75 63 74 20 64 61 74 61 |T constr|uct data|
|00000520| 2e 00 02 49 6e 73 74 65 | 61 64 2c 20 44 45 46 53 |...Inste|ad, DEFS|
|00000530| 54 52 55 43 54 0a 61 75 | 74 6f 6d 61 74 65 73 20 |TRUCT.au|tomates |
|00000540| 74 68 65 20 63 72 65 61 | 74 69 6f 6e 20 6f 66 20 |the crea|tion of |
|00000550| 61 20 64 61 74 61 2d 63 | 6f 6e 73 74 72 75 63 74 |a data-c|onstruct|
|00000560| 6f 72 20 70 72 6f 63 65 | 64 75 72 65 20 61 6e 64 |or proce|dure and|
|00000570| 20 6d 61 6e 79 0a 64 61 | 74 61 2d 73 65 6c 65 63 | many.da|ta-selec|
|00000580| 74 6f 72 20 70 72 6f 63 | 65 64 75 72 65 73 2c 20 |tor proc|edures, |
|00000590| 61 73 20 77 65 6c 6c 20 | 61 73 20 67 65 6e 65 72 |as well |as gener|
|000005a0| 61 6c 69 7a 69 6e 67 20 | 53 45 54 46 20 74 6f 20 |alizing |SETF to |
|000005b0| 68 61 6e 64 6c 65 20 0a | 74 68 65 20 6e 65 77 20 |handle .|the new |
|000005c0| 74 79 70 65 20 6f 66 20 | 64 61 74 61 2e 0a 23 15 |type of |data..#.|
|000005d0| 00 00 00 10 01 04 27 03 | 00 00 00 2e 27 05 00 00 |......'.|....'...|
|000005e0| 00 2e 07 05 53 4c 49 44 | 45 07 0a 45 58 50 4f 53 |....SLID|E..EXPOS|
|000005f0| 49 54 49 4f 4e 23 03 00 | 00 00 04 07 0a 45 58 50 |ITION#..|.....EXP|
|00000600| 4f 53 49 54 49 4f 4e 25 | 2b 02 00 00 0a 48 65 72 |OSITION%|+....Her|
|00000610| 65 20 69 73 20 74 68 65 | 20 74 65 6d 70 6c 61 74 |e is the| templat|
|00000620| 65 20 66 6f 72 20 44 45 | 46 53 54 52 55 43 54 3a |e for DE|FSTRUCT:|
|00000630| 0a 0a 28 44 45 46 53 54 | 52 55 43 54 20 3c 73 74 |..(DEFST|RUCT <st|
|00000640| 72 75 63 74 75 72 65 20 | 6e 61 6d 65 3e 0a 00 02 |ructure |name>...|
|00000650| 28 3c 66 69 65 6c 64 20 | 6e 61 6d 65 20 31 3e 20 |(<field |name 1> |
|00000660| 3c 64 65 66 61 75 6c 74 | 20 76 61 6c 75 65 20 31 |<default| value 1|
|00000670| 3e 29 0a 00 02 28 3c 66 | 69 65 6c 64 20 6e 61 6d |>)...(<f|ield nam|
|00000680| 65 20 32 3e 20 3c 64 65 | 66 61 75 6c 74 20 76 61 |e 2> <de|fault va|
|00000690| 6c 75 65 20 32 3e 29 0a | 00 02 2e 2e 2e 0a 00 02 |lue 2>).|........|
|000006a0| 28 3c 66 69 65 6c 64 20 | 6e 61 6d 65 20 6e 3e 20 |(<field |name n> |
|000006b0| 3c 64 65 66 61 75 6c 74 | 20 76 61 6c 75 65 20 6e |<default| value n|
|000006c0| 3e 29 29 0a 0a 48 65 72 | 65 20 69 73 20 77 68 61 |>))..Her|e is wha|
|000006d0| 74 20 44 45 46 53 54 52 | 55 43 54 20 6c 6f 6f 6b |t DEFSTR|UCT look|
|000006e0| 73 20 6c 69 6b 65 2c 20 | 77 68 65 6e 20 75 73 65 |s like, |when use|
|000006f0| 64 20 74 6f 20 63 72 65 | 61 74 65 20 74 68 65 20 |d to cre|ate the |
|00000700| 64 61 74 61 0a 74 79 70 | 65 20 6e 61 6d 65 64 20 |data.typ|e named |
|00000710| 50 45 52 53 4f 4e 2c 20 | 77 69 74 68 20 46 49 45 |PERSON, |with FIE|
|00000720| 4c 44 53 20 66 6f 72 20 | 61 20 70 65 72 73 6f 6e |LDS for |a person|
|00000730| 27 73 20 73 75 72 6e 61 | 6d 65 2c 20 66 61 74 68 |'s surna|me, fath|
|00000740| 65 72 2c 0a 6d 6f 74 68 | 65 72 2c 20 73 65 78 2c |er,.moth|er, sex,|
|00000750| 20 61 6e 64 20 73 69 7a | 65 2e 0a 0a 28 44 45 46 | and siz|e...(DEF|
|00000760| 53 54 52 55 43 54 20 50 | 45 52 53 4f 4e 0a 00 02 |STRUCT P|ERSON...|
|00000770| 28 53 55 52 4e 41 4d 45 | 20 4e 49 4c 29 00 0d 3b |(SURNAME| NIL)..;|
|00000780| 44 65 66 61 75 6c 74 20 | 76 61 6c 75 65 20 69 73 |Default |value is|
|00000790| 20 4e 49 4c 2e 0a 00 02 | 28 46 41 54 48 45 52 20 | NIL....|(FATHER |
|000007a0| 4e 49 4c 29 00 0e 3b 44 | 65 66 61 75 6c 74 20 76 |NIL)..;D|efault v|
|000007b0| 61 6c 75 65 20 69 73 20 | 4e 49 4c 2e 0a 00 02 28 |alue is |NIL....(|
|000007c0| 4d 4f 54 48 45 52 20 4e | 49 4c 29 00 0e 3b 44 65 |MOTHER N|IL)..;De|
|000007d0| 66 61 75 6c 74 20 76 61 | 6c 75 65 20 69 73 20 4e |fault va|lue is N|
|000007e0| 49 4c 2e 0a 00 02 28 53 | 45 58 20 4e 49 4c 29 00 |IL....(S|EX NIL).|
|000007f0| 11 3b 44 65 66 61 75 6c | 74 20 76 61 6c 75 65 20 |.;Defaul|t value |
|00000800| 69 73 20 4e 49 4c 2e 0a | 00 02 28 53 49 5a 45 20 |is NIL..|..(SIZE |
|00000810| 27 41 56 45 52 41 47 45 | 29 29 00 0a 3b 44 65 66 |'AVERAGE|))..;Def|
|00000820| 61 75 6c 74 20 76 61 6c | 75 65 20 69 73 20 41 56 |ault val|ue is AV|
|00000830| 45 52 41 47 45 2e 0a 23 | 14 00 00 00 10 01 04 27 |ERAGE..#|.......'|
|00000840| 03 00 00 00 2e 27 05 00 | 00 00 2e 07 05 53 4c 49 |.....'..|.....SLI|
|00000850| 44 45 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 23 04 |DE..EXPO|SITION#.|
|00000860| 00 00 00 04 07 0a 45 58 | 50 4f 53 49 54 49 4f 4e |......EX|POSITION|
|00000870| 25 20 02 00 00 0a 54 68 | 65 20 66 69 72 73 74 20 |% ....Th|e first |
|00000880| 74 68 69 6e 67 20 44 45 | 46 53 54 52 55 43 54 20 |thing DE|FSTRUCT |
|00000890| 64 6f 65 73 20 69 73 20 | 63 72 65 61 74 65 20 61 |does is |create a|
|000008a0| 20 63 6f 6e 73 74 72 75 | 63 74 6f 72 20 70 72 6f | constru|ctor pro|
|000008b0| 63 65 64 75 72 65 2c 0a | 4d 41 4b 45 2d 50 45 52 |cedure,.|MAKE-PER|
|000008c0| 53 4f 4e 20 69 6e 20 74 | 68 69 73 20 65 78 61 6d |SON in t|his exam|
|000008d0| 70 6c 65 2e 0a 0a 48 65 | 72 65 20 69 73 20 61 6e |ple...He|re is an|
|000008e0| 20 65 78 61 6d 70 6c 65 | 20 6f 66 20 68 6f 77 20 | example| of how |
|000008f0| 74 68 65 20 4d 41 4b 45 | 2d 50 45 52 53 4f 4e 20 |the MAKE|-PERSON |
|00000900| 70 72 6f 63 65 64 75 72 | 65 20 69 73 20 75 73 65 |procedur|e is use|
|00000910| 64 2e 0a 0a 2a 20 28 53 | 45 54 46 20 48 41 43 4b |d...* (S|ETF HACK|
|00000920| 45 52 2d 31 20 28 4d 41 | 4b 45 2d 50 45 52 53 4f |ER-1 (MA|KE-PERSO|
|00000930| 4e 29 29 0a 0a 57 68 65 | 6e 20 4d 41 4b 45 2d 50 |N))..Whe|n MAKE-P|
|00000940| 45 52 53 4f 4e 20 69 73 | 20 65 76 61 6c 75 61 74 |ERSON is| evaluat|
|00000950| 65 64 2c 20 69 74 20 63 | 6f 6e 73 74 72 75 63 74 |ed, it c|onstruct|
|00000960| 73 20 61 20 63 6f 6d 70 | 6c 65 74 65 6c 79 20 6e |s a comp|letely n|
|00000970| 65 77 0a 73 74 72 75 63 | 74 75 72 65 20 77 68 6f |ew.struc|ture who|
|00000980| 73 65 20 66 69 65 6c 64 | 73 20 61 72 65 20 66 69 |se field|s are fi|
|00000990| 6c 6c 65 64 20 62 79 20 | 65 76 61 6c 75 61 74 69 |lled by |evaluati|
|000009a0| 6e 67 20 74 68 65 20 64 | 65 66 61 75 6c 74 0a 65 |ng the d|efault.e|
|000009b0| 78 70 72 65 73 73 69 6f | 6e 73 20 67 69 76 65 6e |xpressio|ns given|
|000009c0| 20 77 68 65 6e 20 44 45 | 46 53 54 52 55 43 54 20 | when DE|FSTRUCT |
|000009d0| 63 72 65 61 74 65 64 20 | 4d 41 4b 45 2d 50 45 52 |created |MAKE-PER|
|000009e0| 53 4f 4e 2e 0a 0a 20 44 | 45 46 53 54 52 55 43 54 |SON... D|EFSTRUCT|
|000009f0| 00 06 41 63 63 65 70 74 | 73 20 64 65 66 61 75 6c |..Accept|s defaul|
|00000a00| 74 20 65 78 70 72 65 73 | 73 69 6f 6e 73 2e 0a 00 |t expres|sions...|
|00000a10| 04 b3 0a 00 04 1f 0a 4d | 41 4b 45 2d 50 45 52 53 |.......M|AKE-PERS|
|00000a20| 4f 4e 00 05 45 76 61 6c | 75 61 74 65 73 20 64 65 |ON..Eval|uates de|
|00000a30| 66 61 75 6c 74 20 65 78 | 70 72 65 73 73 69 6f 6e |fault ex|pression|
|00000a40| 73 20 65 61 63 68 20 74 | 69 6d 65 20 75 73 65 64 |s each t|ime used|
|00000a50| 2e 0a 00 04 b3 0a 00 04 | 1f 0a 20 48 41 43 4b 45 |........|.. HACKE|
|00000a60| 52 2d 31 00 07 46 69 65 | 6c 64 73 20 66 69 6c 6c |R-1..Fie|lds fill|
|00000a70| 65 64 20 62 79 20 76 61 | 6c 75 65 73 20 6f 66 20 |ed by va|lues of |
|00000a80| 64 65 66 61 75 6c 74 20 | 65 78 70 72 65 73 73 69 |default |expressi|
|00000a90| 6f 6e 73 2e 0a 23 14 00 | 00 00 10 01 04 27 03 00 |ons..#..|.....'..|
|00000aa0| 00 00 2e 27 05 00 00 00 | 2e 07 05 53 4c 49 44 45 |...'....|...SLIDE|
|00000ab0| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 23 05 00 00 |..EXPOSI|TION#...|
|00000ac0| 00 04 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 25 3b |....EXPO|SITION%;|
|00000ad0| 02 00 00 0a 49 6e 20 74 | 68 65 20 65 78 61 6d 70 |....In t|he examp|
|00000ae0| 6c 65 2c 20 44 45 46 53 | 54 52 55 43 54 20 6c 6f |le, DEFS|TRUCT lo|
|00000af0| 6f 6b 65 64 20 6c 69 6b | 65 20 74 68 69 73 3a 0a |oked lik|e this:.|
|00000b00| 0a 28 44 45 46 53 54 52 | 55 43 54 20 50 45 52 53 |.(DEFSTR|UCT PERS|
|00000b10| 4f 4e 0a 00 02 28 53 55 | 52 4e 41 4d 45 20 4e 49 |ON...(SU|RNAME NI|
|00000b20| 4c 29 00 0d 3b 44 65 66 | 61 75 6c 74 20 76 61 6c |L)..;Def|ault val|
|00000b30| 75 65 20 69 73 20 4e 49 | 4c 2e 0a 00 02 28 46 41 |ue is NI|L....(FA|
|00000b40| 54 48 45 52 20 4e 49 4c | 29 00 0e 3b 44 65 66 61 |THER NIL|)..;Defa|
|00000b50| 75 6c 74 20 76 61 6c 75 | 65 20 69 73 20 4e 49 4c |ult valu|e is NIL|
|00000b60| 2e 0a 00 02 28 4d 4f 54 | 48 45 52 20 4e 49 4c 29 |....(MOT|HER NIL)|
|00000b70| 00 0e 3b 44 65 66 61 75 | 6c 74 20 76 61 6c 75 65 |..;Defau|lt value|
|00000b80| 20 69 73 20 4e 49 4c 2e | 0a 00 02 28 53 45 58 20 | is NIL.|...(SEX |
|00000b90| 4e 49 4c 29 00 11 3b 44 | 65 66 61 75 6c 74 20 76 |NIL)..;D|efault v|
|00000ba0| 61 6c 75 65 20 69 73 20 | 4e 49 4c 2e 0a 00 02 28 |alue is |NIL....(|
|00000bb0| 53 49 5a 45 20 27 41 56 | 45 52 41 47 45 29 29 00 |SIZE 'AV|ERAGE)).|
|00000bc0| 0a 3b 44 65 66 61 75 6c | 74 20 76 61 6c 75 65 20 |.;Defaul|t value |
|00000bd0| 69 73 20 41 56 45 52 41 | 47 45 2e 0a 0a 41 6e 64 |is AVERA|GE...And|
|00000be0| 20 74 68 65 20 61 70 70 | 6c 69 63 61 74 69 6f 6e | the app|lication|
|00000bf0| 20 6f 66 20 4d 41 4b 45 | 2d 50 45 52 53 4f 4e 20 | of MAKE|-PERSON |
|00000c00| 6c 6f 6f 6b 65 64 20 6c | 69 6b 65 20 74 68 69 73 |looked l|ike this|
|00000c10| 3a 0a 0a 2a 20 28 53 45 | 54 46 20 48 41 43 4b 45 |:..* (SE|TF HACKE|
|00000c20| 52 2d 31 20 28 4d 41 4b | 45 2d 50 45 52 53 4f 4e |R-1 (MAK|E-PERSON|
|00000c30| 29 29 0a 0a 54 68 75 73 | 20 74 68 65 20 53 49 5a |))..Thus| the SIZ|
|00000c40| 45 20 66 69 65 6c 64 20 | 68 6f 6c 64 73 20 41 56 |E field |holds AV|
|00000c50| 45 52 41 47 45 20 61 6e | 64 20 74 68 65 20 6f 74 |ERAGE an|d the ot|
|00000c60| 68 65 72 20 66 69 65 6c | 64 73 20 68 6f 6c 64 20 |her fiel|ds hold |
|00000c70| 4e 49 4c 2e 0a 0a 4e 6f | 74 65 20 74 68 65 73 65 |NIL...No|te these|
|00000c80| 20 70 75 72 70 6f 73 65 | 73 20 63 61 72 65 66 75 | purpose|s carefu|
|00000c90| 6c 6c 79 3a 0a 0a 6f 00 | 04 44 45 46 53 54 52 55 |lly:..o.|.DEFSTRU|
|00000ca0| 43 54 20 63 72 65 61 74 | 65 73 20 4d 41 4b 45 2d |CT creat|es MAKE-|
|00000cb0| 50 45 52 53 4f 4e 2c 20 | 61 20 73 74 72 75 63 74 |PERSON, |a struct|
|00000cc0| 75 72 65 20 63 6f 6e 73 | 74 72 75 63 74 6f 72 2e |ure cons|tructor.|
|00000cd0| 0a 0a 6f 00 04 4d 41 4b | 45 2d 50 45 52 53 4f 4e |..o..MAK|E-PERSON|
|00000ce0| 20 63 6f 6e 73 74 72 75 | 63 74 73 20 48 41 43 4b | constru|cts HACK|
|00000cf0| 45 52 2d 31 2c 20 61 20 | 70 61 72 74 69 63 75 6c |ER-1, a |particul|
|00000d00| 61 72 20 73 74 72 75 63 | 74 75 72 65 2e 0a 23 16 |ar struc|ture..#.|
|00000d10| 00 00 00 10 01 04 27 03 | 00 00 00 2e 27 05 00 00 |......'.|....'...|
|00000d20| 00 2e 07 05 53 4c 49 44 | 45 07 0a 45 58 50 4f 53 |....SLID|E..EXPOS|
|00000d30| 49 54 49 4f 4e 23 06 00 | 00 00 04 07 0a 45 58 50 |ITION#..|.....EXP|
|00000d40| 4f 53 49 54 49 4f 4e 25 | 7d 01 00 00 0a 49 6e 20 |OSITION%|}....In |
|00000d50| 70 72 69 6e 63 69 70 6c | 65 2c 20 79 6f 75 20 61 |principl|e, you a|
|00000d60| 72 65 20 6e 6f 74 20 73 | 75 70 70 6f 73 65 64 20 |re not s|upposed |
|00000d70| 74 6f 20 6b 6e 6f 77 20 | 68 6f 77 20 74 68 65 20 |to know |how the |
|00000d80| 64 61 74 61 20 69 6e 20 | 74 68 65 0a 76 61 72 69 |data in |the.vari|
|00000d90| 6f 75 73 20 66 69 65 6c | 64 73 20 6f 66 20 61 20 |ous fiel|ds of a |
|00000da0| 73 74 72 75 63 74 75 72 | 65 20 61 72 65 20 73 74 |structur|e are st|
|00000db0| 6f 72 65 64 2e 00 02 49 | 6e 20 70 61 72 74 69 63 |ored...I|n partic|
|00000dc0| 75 6c 61 72 2c 20 79 6f | 75 0a 64 6f 6e 27 74 20 |ular, yo|u.don't |
|00000dd0| 6e 65 65 64 20 74 6f 20 | 6b 6e 6f 77 20 68 6f 77 |need to |know how|
|00000de0| 20 74 68 65 20 64 61 74 | 61 20 69 73 20 73 74 6f | the dat|a is sto|
|00000df0| 72 65 64 20 74 6f 20 67 | 65 74 20 79 6f 75 72 20 |red to g|et your |
|00000e00| 64 61 74 61 20 62 61 63 | 6b 2e 20 0a 59 6f 75 20 |data bac|k. .You |
|00000e10| 73 69 6d 70 6c 79 20 75 | 73 65 20 74 68 65 20 73 |simply u|se the s|
|00000e20| 65 6c 65 63 74 6f 72 20 | 70 72 6f 63 65 64 75 72 |elector |procedur|
|00000e30| 65 73 20 74 68 61 74 20 | 44 45 46 53 54 52 55 43 |es that |DEFSTRUC|
|00000e40| 54 20 63 72 65 61 74 65 | 73 0a 61 75 74 6f 6d 61 |T create|s.automa|
|00000e50| 74 69 63 61 6c 6c 79 20 | 61 6c 6f 6e 67 20 77 69 |tically |along wi|
|00000e60| 74 68 20 74 68 65 20 61 | 75 74 6f 6d 61 74 69 63 |th the a|utomatic|
|00000e70| 61 6c 6c 79 20 63 72 65 | 61 74 65 64 20 63 6f 6e |ally cre|ated con|
|00000e80| 73 74 72 75 63 74 6f 72 | 3a 0a 0a 2a 20 28 50 45 |structor|:..* (PE|
|00000e90| 52 53 4f 4e 2d 53 45 58 | 20 48 41 43 4b 45 52 2d |RSON-SEX| HACKER-|
|00000ea0| 31 29 0a 4e 49 4c 0a 0a | 2a 20 28 50 45 52 53 4f |1).NIL..|* (PERSO|
|00000eb0| 4e 2d 53 49 5a 45 20 48 | 41 43 4b 45 52 2d 31 29 |N-SIZE H|ACKER-1)|
|00000ec0| 0a 41 56 45 52 41 47 45 | 0a 23 0d 00 00 00 10 01 |.AVERAGE|.#......|
|00000ed0| 04 27 03 00 00 00 2e 27 | 05 00 00 00 2e 07 05 53 |.'.....'|.......S|
|00000ee0| 4c 49 44 45 07 0a 45 58 | 50 4f 53 49 54 49 4f 4e |LIDE..EX|POSITION|
|00000ef0| 23 07 00 00 00 04 07 0a | 45 58 50 4f 53 49 54 49 |#.......|EXPOSITI|
|00000f00| 4f 4e 25 69 02 00 00 0a | 45 6e 65 72 67 65 74 69 |ON%i....|Energeti|
|00000f10| 63 61 6c 6c 79 2c 20 44 | 45 46 53 54 52 55 43 54 |cally, D|EFSTRUCT|
|00000f20| 20 64 6f 65 73 20 6f 6e | 65 20 6d 6f 72 65 20 74 | does on|e more t|
|00000f30| 68 69 6e 67 3a 20 69 74 | 20 69 6e 66 6f 72 6d 73 |hing: it| informs|
|00000f40| 20 53 45 54 46 0a 61 62 | 6f 75 74 20 74 68 65 20 | SETF.ab|out the |
|00000f50| 6e 65 77 20 73 74 72 75 | 63 74 75 72 65 20 74 79 |new stru|cture ty|
|00000f60| 70 65 2c 20 65 6e 61 62 | 6c 69 6e 67 20 53 45 54 |pe, enab|ling SET|
|00000f70| 46 20 74 6f 20 6d 6f 64 | 69 66 79 20 61 6e 79 0a |F to mod|ify any.|
|00000f80| 65 78 69 73 74 69 6e 67 | 20 73 74 72 75 63 74 75 |existing| structu|
|00000f90| 72 65 2e 00 02 53 75 70 | 70 6f 73 65 2c 20 66 6f |re...Sup|pose, fo|
|00000fa0| 72 20 65 78 61 6d 70 6c | 65 2c 20 74 68 61 74 20 |r exampl|e, that |
|00000fb0| 77 65 20 77 61 6e 74 20 | 74 6f 20 6d 61 6b 65 0a |we want |to make.|
|00000fc0| 74 68 65 20 53 45 58 20 | 66 69 65 6c 64 27 73 20 |the SEX |field's |
|00000fd0| 76 61 6c 75 65 20 62 65 | 20 46 45 4d 41 4c 45 2e |value be| FEMALE.|
|00000fe0| 00 02 54 68 69 73 20 69 | 73 20 74 68 65 20 74 68 |..This i|s the th|
|00000ff0| 69 6e 67 20 74 6f 20 64 | 6f 3a 0a 0a 2a 20 28 53 |ing to d|o:..* (S|
|00001000| 45 54 46 20 28 50 45 52 | 53 4f 4e 2d 53 45 58 20 |ETF (PER|SON-SEX |
|00001010| 48 41 43 4b 45 52 2d 31 | 29 20 27 46 45 4d 41 4c |HACKER-1|) 'FEMAL|
|00001020| 45 29 0a 0a 48 65 6e 63 | 65 20 74 68 65 72 65 20 |E)..Henc|e there |
|00001030| 61 72 65 20 6e 6f 20 6e | 65 77 20 6d 75 74 61 74 |are no n|ew mutat|
|00001040| 6f 72 20 70 72 6f 63 65 | 64 75 72 65 73 3b 20 44 |or proce|dures; D|
|00001050| 45 46 53 54 52 55 43 54 | 20 6a 75 73 74 0a 61 72 |EFSTRUCT| just.ar|
|00001060| 72 61 6e 67 65 73 20 66 | 6f 72 20 74 68 65 20 6f |ranges f|or the o|
|00001070| 6c 64 20 53 45 54 46 20 | 6d 75 74 61 74 6f 72 20 |ld SETF |mutator |
|00001080| 74 6f 20 62 65 20 73 75 | 69 74 61 62 6c 79 20 67 |to be su|itably g|
|00001090| 65 6e 65 72 61 6c 69 7a | 65 64 2e 20 0a 0a 54 68 |eneraliz|ed. ..Th|
|000010a0| 69 73 20 6c 65 61 76 65 | 73 20 48 41 43 4b 45 52 |is leave|s HACKER|
|000010b0| 2d 31 20 77 69 74 68 20 | 74 77 6f 20 6e 6f 6e 4e |-1 with |two nonN|
|000010c0| 49 4c 20 66 69 65 6c 64 | 20 76 61 6c 75 65 73 3a |IL field| values:|
|000010d0| 0a 0a 46 69 65 6c 64 00 | 09 56 61 6c 75 65 00 08 |..Field.|.Value..|
|000010e0| 48 6f 77 20 49 74 20 47 | 6f 74 20 54 68 65 72 65 |How It G|ot There|
|000010f0| 0a 0a 53 45 58 00 0b 46 | 45 4d 41 4c 45 00 07 46 |..SEX..F|EMALE..F|
|00001100| 45 4d 41 4c 45 20 61 70 | 70 65 61 72 65 64 20 77 |EMALE ap|peared w|
|00001110| 68 65 6e 20 53 45 46 54 | 20 77 61 73 20 75 73 65 |hen SEFT| was use|
|00001120| 64 2e 0a 53 49 5a 45 00 | 0a 41 56 45 52 41 47 45 |d..SIZE.|.AVERAGE|
|00001130| 00 06 41 56 45 52 41 47 | 45 20 77 61 73 20 73 75 |..AVERAG|E was su|
|00001140| 70 70 6c 69 65 64 20 77 | 68 65 6e 20 74 68 65 20 |pplied w|hen the |
|00001150| 50 45 52 53 4f 4e 0a 00 | 1b 73 74 72 75 63 74 75 |PERSON..|.structu|
|00001160| 72 65 20 77 61 73 20 64 | 65 66 69 6e 65 64 2e 0a |re was d|efined..|
|00001170| 23 13 00 00 00 10 01 04 | 27 03 00 00 00 2e 27 05 |#.......|'.....'.|
|00001180| 00 00 00 2e 07 05 53 4c | 49 44 45 07 0a 45 58 50 |......SL|IDE..EXP|
|00001190| 4f 53 49 54 49 4f 4e 23 | 08 00 00 00 04 07 0a 45 |OSITION#|.......E|
|000011a0| 58 50 4f 53 49 54 49 4f | 4e 25 7b 02 00 00 0a 59 |XPOSITIO|N%{....Y|
|000011b0| 6f 75 20 6e 6f 77 20 6b | 6e 6f 77 20 61 62 6f 75 |ou now k|now abou|
|000011c0| 74 20 74 77 6f 20 77 61 | 79 73 20 74 6f 20 65 73 |t two wa|ys to es|
|000011d0| 74 61 62 6c 69 73 68 20 | 61 20 66 69 65 6c 64 27 |tablish |a field'|
|000011e0| 73 20 76 61 6c 75 65 3a | 00 02 79 6f 75 20 63 61 |s value:|..you ca|
|000011f0| 6e 0a 75 73 65 20 74 68 | 65 20 64 65 66 61 75 6c |n.use th|e defaul|
|00001200| 74 20 61 73 73 6f 63 69 | 61 74 65 64 20 77 69 74 |t associ|ated wit|
|00001210| 68 20 61 20 73 74 72 75 | 63 74 75 72 65 27 73 20 |h a stru|cture's |
|00001220| 66 69 65 6c 64 20 77 68 | 65 6e 20 74 68 65 0a 73 |field wh|en the.s|
|00001230| 74 72 75 63 74 75 72 65 | 20 69 73 20 64 65 66 69 |tructure| is defi|
|00001240| 6e 65 64 20 62 79 20 44 | 45 46 53 54 52 55 43 54 |ned by D|EFSTRUCT|
|00001250| 3b 20 61 6e 64 20 79 6f | 75 20 63 61 6e 20 75 73 |; and yo|u can us|
|00001260| 65 20 53 45 54 46 20 6c | 61 74 65 72 20 6f 6e 2e |e SETF l|ater on.|
|00001270| 00 02 0a 0a 54 68 65 72 | 65 20 69 73 20 61 20 74 |....Ther|e is a t|
|00001280| 68 69 72 64 20 77 61 79 | 3a 00 02 79 6f 75 20 63 |hird way|:..you c|
|00001290| 61 6e 20 69 6e 64 69 63 | 61 74 65 20 61 20 66 69 |an indic|ate a fi|
|000012a0| 65 6c 64 20 76 61 6c 75 | 65 20 75 73 69 6e 67 20 |eld valu|e using |
|000012b0| 61 0a 63 6f 72 72 65 73 | 70 6f 6e 64 69 6e 67 20 |a.corres|ponding |
|000012c0| 6b 65 79 20 77 6f 72 64 | 20 77 68 65 6e 65 76 65 |key word| wheneve|
|000012d0| 72 20 61 20 6e 65 77 20 | 73 74 72 75 63 74 75 72 |r a new |structur|
|000012e0| 65 20 69 73 20 63 72 65 | 61 74 65 64 20 75 73 69 |e is cre|ated usi|
|000012f0| 6e 67 0a 4d 41 4b 45 2d | 3c 73 74 72 75 63 74 75 |ng.MAKE-|<structu|
|00001300| 72 65 20 6e 61 6d 65 3e | 2c 20 61 73 20 69 6e 20 |re name>|, as in |
|00001310| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 65 78 |the foll|owing ex|
|00001320| 61 6d 70 6c 65 3a 0a 0a | 2a 20 28 53 45 54 46 20 |ample:..|* (SETF |
|00001330| 48 41 43 4b 45 52 2d 32 | 20 28 4d 41 4b 45 2d 50 |HACKER-2| (MAKE-P|
|00001340| 45 52 53 4f 4e 20 3a 53 | 45 58 20 27 4d 41 4c 45 |ERSON :S|EX 'MALE|
|00001350| 29 29 0a 0a 54 68 69 73 | 20 6c 65 61 76 65 73 20 |))..This| leaves |
|00001360| 48 41 43 4b 45 52 2d 32 | 20 77 69 74 68 20 74 77 |HACKER-2| with tw|
|00001370| 6f 20 6e 6f 6e 4e 49 4c | 20 66 69 65 6c 64 20 76 |o nonNIL| field v|
|00001380| 61 6c 75 65 73 3a 0a 0a | 46 69 65 6c 64 00 09 56 |alues:..|Field..V|
|00001390| 61 6c 75 65 00 08 48 6f | 77 20 49 74 20 47 6f 74 |alue..Ho|w It Got|
|000013a0| 20 54 68 65 72 65 0a 0a | 53 45 58 00 0b 4d 41 4c | There..|SEX..MAL|
|000013b0| 45 00 09 4d 41 4c 45 20 | 61 70 70 65 61 72 65 64 |E..MALE |appeared|
|000013c0| 20 77 68 65 6e 20 4d 41 | 4b 45 2d 50 45 52 53 4f | when MA|KE-PERSO|
|000013d0| 4e 20 77 61 73 20 75 73 | 65 64 2e 0a 53 49 5a 45 |N was us|ed..SIZE|
|000013e0| 00 0a 41 56 45 52 41 47 | 45 00 06 41 56 45 52 41 |..AVERAG|E..AVERA|
|000013f0| 47 45 20 77 61 73 20 73 | 75 70 70 6c 69 65 64 20 |GE was s|upplied |
|00001400| 77 68 65 6e 20 74 68 65 | 20 50 45 52 53 4f 4e 0a |when the| PERSON.|
|00001410| 00 1b 73 74 72 75 63 74 | 75 72 65 20 77 61 73 20 |..struct|ure was |
|00001420| 64 65 66 69 6e 65 64 2e | 0a 23 13 00 00 00 10 01 |defined.|.#......|
|00001430| 04 27 03 00 00 00 2e 27 | 05 00 00 00 2e 07 05 53 |.'.....'|.......S|
|00001440| 4c 49 44 45 07 0a 45 58 | 50 4f 53 49 54 49 4f 4e |LIDE..EX|POSITION|
|00001450| 23 09 00 00 00 04 07 0a | 45 58 50 4f 53 49 54 49 |#.......|EXPOSITI|
|00001460| 4f 4e 26 f8 0a 59 6f 75 | 20 6d 75 73 74 20 61 6e |ON&..You| must an|
|00001470| 74 69 63 69 70 61 74 65 | 20 61 6c 6c 20 74 68 65 |ticipate| all the|
|00001480| 20 66 69 65 6c 64 73 20 | 79 6f 75 20 77 69 6c 6c | fields |you will|
|00001490| 20 77 61 6e 74 20 77 68 | 65 6e 20 79 6f 75 20 75 | want wh|en you u|
|000014a0| 73 65 0a 44 45 46 53 54 | 52 55 43 54 2e 00 02 59 |se.DEFST|RUCT...Y|
|000014b0| 6f 75 20 63 61 6e 6e 6f | 74 20 75 73 65 20 53 45 |ou canno|t use SE|
|000014c0| 54 46 20 74 6f 20 63 72 | 65 61 74 65 20 61 20 66 |TF to cr|eate a f|
|000014d0| 69 65 6c 64 20 74 68 61 | 74 20 77 61 73 6e 27 74 |ield tha|t wasn't|
|000014e0| 0a 6d 65 6e 74 69 6f 6e | 65 64 20 77 68 65 6e 20 |.mention|ed when |
|000014f0| 44 45 46 53 54 52 55 43 | 54 20 77 61 73 20 75 73 |DEFSTRUC|T was us|
|00001500| 65 64 2e 0a 0a 54 68 75 | 73 20 74 68 69 73 20 69 |ed...Thu|s this i|
|00001510| 73 20 61 6e 20 65 72 72 | 6f 72 20 66 6f 72 20 6f |s an err|or for o|
|00001520| 75 72 20 65 78 61 6d 70 | 6c 65 3a 0a 0a 2a 20 28 |ur examp|le:..* (|
|00001530| 53 45 54 46 20 28 50 45 | 52 53 4f 4e 2d 46 49 52 |SETF (PE|RSON-FIR|
|00001540| 53 54 2d 4e 41 4d 45 20 | 48 41 43 4b 45 52 2d 31 |ST-NAME |HACKER-1|
|00001550| 29 20 27 50 41 54 52 49 | 43 4b 29 0a 23 09 00 00 |) 'PATRI|CK).#...|
|00001560| 00 10 01 04 27 03 00 00 | 00 2e 27 05 00 00 00 2e |....'...|..'.....|
|00001570| 07 05 53 4c 49 44 45 07 | 0a 45 58 50 4f 53 49 54 |..SLIDE.|.EXPOSIT|
|00001580| 49 4f 4e 23 0a 00 00 00 | 04 07 0a 45 58 50 4f 53 |ION#....|...EXPOS|
|00001590| 49 54 49 4f 4e 25 71 02 | 00 00 0a 52 65 6d 65 6d |ITION%q.|...Remem|
|000015a0| 62 65 72 20 74 68 61 74 | 20 44 45 46 53 54 52 55 |ber that| DEFSTRU|
|000015b0| 43 54 20 64 65 66 69 6e | 65 73 20 63 6f 6e 73 74 |CT defin|es const|
|000015c0| 72 75 63 74 6f 72 73 2c | 20 73 65 6c 65 63 74 6f |ructors,| selecto|
|000015d0| 72 73 2c 20 61 6e 64 0a | 6d 75 74 61 74 6f 72 73 |rs, and.|mutators|
|000015e0| 20 66 6f 72 20 73 74 72 | 75 63 74 75 72 65 73 2e | for str|uctures.|
|000015f0| 00 03 54 68 65 20 64 65 | 66 69 6e 65 64 20 63 6f |..The de|fined co|
|00001600| 6e 73 74 72 75 63 74 6f | 72 73 2c 20 73 65 6c 65 |nstructo|rs, sele|
|00001610| 63 74 6f 72 73 2c 0a 61 | 6e 64 20 6d 75 74 75 74 |ctors,.a|nd mutut|
|00001620| 61 74 6f 72 73 20 6d 61 | 6b 65 20 70 61 72 74 69 |ators ma|ke parti|
|00001630| 63 75 6c 61 72 20 73 74 | 72 75 63 74 75 72 65 73 |cular st|ructures|
|00001640| 2c 20 65 78 74 72 61 63 | 74 20 69 6e 66 6f 72 6d |, extrac|t inform|
|00001650| 61 74 69 6f 6e 0a 66 72 | 6f 6d 20 74 68 65 6d 2c |ation.fr|om them,|
|00001660| 20 61 6e 64 20 63 68 61 | 6e 67 65 20 69 6e 66 6f | and cha|nge info|
|00001670| 72 6d 61 74 69 6f 6e 20 | 69 6e 20 74 68 65 6d 2e |rmation |in them.|
|00001680| 0a 0a 00 0a 44 45 46 53 | 54 52 55 43 54 20 63 72 |....DEFS|TRUCT cr|
|00001690| 65 61 74 65 73 20 4d 41 | 4b 45 2d 50 45 52 53 4f |eates MA|KE-PERSO|
|000016a0| 4e 2c 20 61 20 63 6f 6e | 73 74 72 75 63 74 6f 72 |N, a con|structor|
|000016b0| 2c 0a da c4 c4 c4 c4 c4 | c4 c4 c4 20 63 72 65 61 |,.......|... crea|
|000016c0| 74 65 73 20 50 45 52 53 | 4f 4e 2d 53 45 58 2c 20 |tes PERS|ON-SEX, |
|000016d0| 61 6e 64 20 6f 74 68 65 | 72 20 73 65 6c 65 63 74 |and othe|r select|
|000016e0| 6f 72 73 20 66 6f 72 20 | 61 6c 6c 20 66 69 65 6c |ors for |all fiel|
|000016f0| 64 73 2c 0a b3 00 09 61 | 6e 64 20 67 65 6e 65 72 |ds,....a|nd gener|
|00001700| 61 6c 69 7a 65 73 20 53 | 45 54 46 2c 20 74 68 65 |alizes S|ETF, the|
|00001710| 20 6d 75 74 61 74 6f 72 | 2c 20 66 6f 72 20 61 6c | mutator|, for al|
|00001720| 6c 20 66 69 65 6c 64 73 | 2e 0a b3 0a c3 c4 c4 10 |l fields|........|
|00001730| 20 4d 41 4b 45 2d 50 45 | 52 53 4f 4e 20 6d 61 6b | MAKE-PE|RSON mak|
|00001740| 65 73 20 61 20 70 61 72 | 74 69 63 75 6c 61 72 20 |es a par|ticular |
|00001750| 73 74 72 75 63 74 75 72 | 65 20 c4 c4 c4 c4 c4 bf |structur|e ......|
|00001760| 0a b3 00 32 1f 0a b3 00 | 28 da c4 c4 c4 c4 c4 c4 |...2....|(.......|
|00001770| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 bf 0a c3 |........|........|
|00001780| c4 c4 10 20 50 45 52 53 | 4f 4e 2d 53 45 58 20 65 |... PERS|ON-SEX e|
|00001790| 78 74 72 61 63 74 73 20 | 69 6e 66 6f 72 6d 61 74 |xtracts |informat|
|000017a0| 69 6f 6e 20 11 c4 c4 20 | b3 00 03 41 20 70 61 72 |ion ... |...A par|
|000017b0| 74 69 63 75 6c 61 72 00 | 04 b3 0a c0 c4 c4 10 20 |ticular.|....... |
|000017c0| 53 45 54 46 20 63 68 61 | 6e 67 65 73 20 69 6e 66 |SETF cha|nges inf|
|000017d0| 6f 72 6d 61 74 69 6f 6e | 00 08 c4 c4 10 20 b3 20 |ormation|..... . |
|000017e0| 50 45 52 53 4f 4e 20 73 | 74 72 75 63 74 75 72 65 |PERSON s|tructure|
|000017f0| 00 02 b3 0a 00 29 c0 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |.....)..|........|
|00001800| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 d9 23 10 00 00 00 |........|...#....|
|00001810| 10 01 04 27 03 00 00 00 | 2e 27 05 00 00 00 2e 07 |...'....|.'......|
|00001820| 05 53 4c 49 44 45 07 08 | 50 52 41 43 54 49 43 45 |.SLIDE..|PRACTICE|
|00001830| 23 0b 00 00 00 07 05 46 | 4f 52 4d 53 07 09 44 45 |#......F|ORMS..DE|
|00001840| 46 53 54 52 55 43 54 07 | 06 50 45 52 53 4f 4e 07 |FSTRUCT.|.PERSON.|
|00001850| 07 53 55 52 4e 41 4d 45 | 04 04 10 02 07 06 46 41 |.SURNAME|......FA|
|00001860| 54 48 45 52 04 04 10 02 | 07 06 4d 4f 54 48 45 52 |THER....|..MOTHER|
|00001870| 04 04 10 02 07 03 53 45 | 58 04 04 10 02 07 04 53 |......SE|X......S|
|00001880| 49 5a 45 0b 01 05 51 55 | 4f 54 45 07 07 41 56 45 |IZE...QU|OTE..AVE|
|00001890| 52 41 47 45 04 10 02 04 | 10 02 04 10 07 0b 01 04 |RAGE....|........|
|000018a0| 53 45 54 46 07 02 50 31 | 07 0b 4d 41 4b 45 2d 50 |SETF..P1|..MAKE-P|
|000018b0| 45 52 53 4f 4e 04 10 01 | 04 10 03 0b 01 04 53 45 |ERSON...|......SE|
|000018c0| 54 46 07 0e 50 45 52 53 | 4f 4e 2d 53 55 52 4e 41 |TF..PERS|ON-SURNA|
|000018d0| 4d 45 07 02 50 31 04 10 | 02 0b 01 05 51 55 4f 54 |ME..P1..|....QUOT|
|000018e0| 45 07 07 57 49 4e 53 54 | 4f 4e 04 10 02 04 10 03 |E..WINST|ON......|
|000018f0| 0b 01 04 53 45 54 46 07 | 0d 50 45 52 53 4f 4e 2d |...SETF.|.PERSON-|
|00001900| 46 41 54 48 45 52 07 02 | 50 31 04 10 02 0b 01 05 |FATHER..|P1......|
|00001910| 51 55 4f 54 45 07 06 52 | 4f 42 45 52 54 04 10 02 |QUOTE..R|OBERT...|
|00001920| 04 10 03 0b 01 04 53 45 | 54 46 07 0d 50 45 52 53 |......SE|TF..PERS|
|00001930| 4f 4e 2d 4d 4f 54 48 45 | 52 07 02 50 31 04 10 02 |ON-MOTHE|R..P1...|
|00001940| 0b 01 05 51 55 4f 54 45 | 07 07 44 4f 52 4f 54 48 |...QUOTE|..DOROTH|
|00001950| 59 04 10 02 04 10 03 0b | 01 04 53 45 54 46 07 0a |Y.......|..SETF..|
|00001960| 50 45 52 53 4f 4e 2d 53 | 45 58 07 02 50 31 04 10 |PERSON-S|EX..P1..|
|00001970| 02 0b 01 05 51 55 4f 54 | 45 07 04 4d 41 4c 45 04 |....QUOT|E..MALE.|
|00001980| 10 02 04 10 03 0b 01 04 | 53 45 54 46 07 0b 50 45 |........|SETF..PE|
|00001990| 52 53 4f 4e 2d 53 49 5a | 45 07 02 50 31 04 10 02 |RSON-SIZ|E..P1...|
|000019a0| 0b 01 05 51 55 4f 54 45 | 07 05 4c 41 52 47 45 04 |...QUOTE|..LARGE.|
|000019b0| 10 02 04 10 03 0b 01 04 | 53 45 54 46 07 02 50 32 |........|SETF..P2|
|000019c0| 07 0b 4d 41 4b 45 2d 50 | 45 52 53 4f 4e 04 10 01 |..MAKE-P|ERSON...|
|000019d0| 04 10 03 0b 01 04 53 45 | 54 46 07 0e 50 45 52 53 |......SE|TF..PERS|
|000019e0| 4f 4e 2d 53 55 52 4e 41 | 4d 45 07 02 50 32 04 10 |ON-SURNA|ME..P2..|
|000019f0| 02 0b 01 05 51 55 4f 54 | 45 07 07 57 49 4e 53 54 |....QUOT|E..WINST|
|00001a00| 4f 4e 04 10 02 04 10 03 | 0b 01 04 53 45 54 46 07 |ON......|...SETF.|
|00001a10| 0a 50 45 52 53 4f 4e 2d | 53 45 58 07 02 50 32 04 |.PERSON-|SEX..P2.|
|00001a20| 10 02 0b 01 05 51 55 4f | 54 45 07 06 46 45 4d 41 |.....QUO|TE..FEMA|
|00001a30| 4c 45 04 10 02 04 10 03 | 0b 01 04 53 45 54 46 07 |LE......|...SETF.|
|00001a40| 0b 50 45 52 53 4f 4e 2d | 53 49 5a 45 07 02 50 32 |.PERSON-|SIZE..P2|
|00001a50| 04 10 02 0b 01 05 51 55 | 4f 54 45 07 05 53 4d 41 |......QU|OTE..SMA|
|00001a60| 4c 4c 04 10 02 04 10 03 | 04 10 0b 04 10 02 25 37 |LL......|......%7|
|00001a70| 01 00 00 0a 45 78 70 65 | 72 69 6d 65 6e 74 20 77 |....Expe|riment w|
|00001a80| 69 74 68 20 73 74 72 75 | 63 74 75 72 65 73 2e 00 |ith stru|ctures..|
|00001a90| 02 59 6f 75 20 6d 61 79 | 20 61 73 73 75 6d 65 20 |.You may| assume |
|00001aa0| 79 6f 75 20 68 61 76 65 | 20 74 68 65 20 50 45 52 |you have| the PER|
|00001ab0| 53 4f 4e 0a 73 74 72 75 | 63 74 75 72 65 2e 00 02 |SON.stru|cture...|
|00001ac0| 59 6f 75 20 6d 61 79 20 | 61 6c 73 6f 20 61 73 73 |You may |also ass|
|00001ad0| 75 6d 65 20 74 68 61 74 | 20 61 20 63 6f 6d 62 69 |ume that| a combi|
|00001ae0| 6e 61 74 69 6f 6e 20 6f | 66 20 64 65 66 61 75 6c |nation o|f defaul|
|00001af0| 74 73 0a 61 6e 64 20 53 | 45 54 46 73 20 68 61 76 |ts.and S|ETFs hav|
|00001b00| 65 20 6c 65 66 74 20 79 | 6f 75 20 77 69 74 68 20 |e left y|ou with |
|00001b10| 74 77 6f 20 73 74 72 75 | 63 74 75 72 65 73 20 77 |two stru|ctures w|
|00001b20| 69 74 68 20 74 68 65 73 | 65 20 66 69 65 6c 64 0a |ith thes|e field.|
|00001b30| 76 61 6c 75 65 73 3a 0a | 0a 00 0a 50 31 00 07 50 |values:.|...P1..P|
|00001b40| 32 0a 53 55 52 4e 41 4d | 45 00 03 57 49 4e 53 54 |2.SURNAM|E..WINST|
|00001b50| 4f 4e 00 02 57 49 4e 53 | 54 4f 4e 0a 46 41 54 48 |ON..WINS|TON.FATH|
|00001b60| 45 52 00 04 52 4f 42 45 | 52 54 00 03 4e 49 4c 0a |ER..ROBE|RT..NIL.|
|00001b70| 4d 4f 54 48 45 52 00 04 | 44 4f 52 4f 54 48 59 00 |MOTHER..|DOROTHY.|
|00001b80| 02 4e 49 4c 0a 53 45 58 | 00 07 4d 41 4c 45 00 05 |.NIL.SEX|..MALE..|
|00001b90| 46 45 4d 41 4c 45 0a 53 | 49 5a 45 00 06 4c 41 52 |FEMALE.S|IZE..LAR|
|00001ba0| 47 45 00 04 53 4d 41 4c | 4c 0a 23 0d 00 00 00 10 |GE..SMAL|L.#.....|
|00001bb0| 01 27 05 00 00 00 2e 07 | 05 53 4c 49 44 45 07 0a |.'......|.SLIDE..|
|00001bc0| 45 58 50 4f 53 49 54 49 | 4f 4e 23 0c 00 00 00 04 |EXPOSITI|ON#.....|
|00001bd0| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 25 02 02 00 |..EXPOSI|TION%...|
|00001be0| 00 0a 52 65 6d 65 6d 62 | 65 72 20 2e 2e 2e 0a 0a |..Rememb|er .....|
|00001bf0| 6f 00 04 49 46 20 79 6f | 75 20 68 61 76 65 20 61 |o..IF yo|u have a|
|00001c00| 20 63 6f 6c 6c 65 63 74 | 69 6f 6e 20 6f 66 20 64 | collect|ion of d|
|00001c10| 61 74 61 20 69 74 65 6d | 73 2c 0a 00 05 41 4e 44 |ata item|s,...AND|
|00001c20| 20 74 68 6f 73 65 20 69 | 74 65 6d 73 20 61 72 65 | those i|tems are|
|00001c30| 20 6e 61 74 75 72 61 6c | 6c 79 20 74 68 6f 75 67 | natural|ly thoug|
|00001c40| 68 74 20 6f 66 20 61 73 | 20 46 49 45 4c 44 20 56 |ht of as| FIELD V|
|00001c50| 41 4c 55 45 53 2c 0a 00 | 05 41 4e 44 20 79 6f 75 |ALUES,..|.AND you|
|00001c60| 20 77 61 6e 74 20 6d 6e | 65 6d 6f 6e 69 63 20 73 | want mn|emonic s|
|00001c70| 65 6c 65 63 74 6f 72 2d | 70 72 6f 63 65 64 75 72 |elector-|procedur|
|00001c80| 65 20 6e 61 6d 65 73 2c | 0a 00 05 54 48 45 4e 20 |e names,|...THEN |
|00001c90| 63 72 65 61 74 65 20 61 | 20 73 74 72 75 63 74 75 |create a| structu|
|00001ca0| 72 65 20 63 6c 61 73 73 | 20 75 73 69 6e 67 20 44 |re class| using D|
|00001cb0| 45 46 53 54 52 55 43 54 | 2c 0a 00 05 41 4e 44 20 |EFSTRUCT|,...AND |
|00001cc0| 63 6f 6e 73 74 72 75 63 | 74 20 69 6e 64 69 76 69 |construc|t indivi|
|00001cd0| 64 75 61 6c 20 73 74 72 | 75 63 74 75 72 65 73 20 |dual str|uctures |
|00001ce0| 75 73 69 6e 67 20 4d 41 | 4b 45 2d 3c 73 74 72 75 |using MA|KE-<stru|
|00001cf0| 63 74 75 72 65 20 6e 61 | 6d 65 3e 3a 0a 0a 00 05 |cture na|me>:....|
|00001d00| 28 44 45 46 53 54 52 55 | 43 54 20 3c 73 74 72 75 |(DEFSTRU|CT <stru|
|00001d10| 63 74 75 72 65 20 6e 61 | 6d 65 3e 0a 00 07 28 3c |cture na|me>...(<|
|00001d20| 66 69 65 6c 64 20 6e 61 | 6d 65 20 31 3e 20 3c 64 |field na|me 1> <d|
|00001d30| 65 66 61 75 6c 74 20 76 | 61 6c 75 65 20 31 3e 29 |efault v|alue 1>)|
|00001d40| 0a 00 07 28 3c 66 69 65 | 6c 64 20 6e 61 6d 65 20 |...(<fie|ld name |
|00001d50| 32 3e 20 3c 64 65 66 61 | 75 6c 74 20 76 61 6c 75 |2> <defa|ult valu|
|00001d60| 65 20 32 3e 29 0a 00 07 | 2e 2e 2e 0a 00 07 28 3c |e 2>)...|......(<|
|00001d70| 66 69 65 6c 64 20 6e 61 | 6d 65 20 6e 3e 20 3c 64 |field na|me n> <d|
|00001d80| 65 66 61 75 6c 74 20 76 | 61 6c 75 65 20 6e 3e 29 |efault v|alue n>)|
|00001d90| 29 0a 0a 00 05 28 4d 41 | 4b 45 2d 3c 73 74 72 75 |)....(MA|KE-<stru|
|00001da0| 63 74 75 72 65 20 6e 61 | 6d 65 3e 0a 00 0b 3c 6b |cture na|me>...<k|
|00001db0| 65 79 20 77 6f 72 64 20 | 6c 3e 20 3c 66 69 65 6c |ey word |l> <fiel|
|00001dc0| 64 20 76 61 6c 75 65 20 | 6c 3e 0a 00 0b 2e 2e 2e |d value |l>......|
|00001dd0| 29 0a 0a 28 63 6f 6e 74 | 69 6e 75 65 64 20 2e 2e |)..(cont|inued ..|
|00001de0| 2e 29 0a 23 15 00 00 00 | 10 01 04 27 03 00 00 00 |.).#....|...'....|
|00001df0| 2e 27 05 00 00 00 2e 07 | 05 53 4c 49 44 45 07 0a |.'......|.SLIDE..|
|00001e00| 45 58 50 4f 53 49 54 49 | 4f 4e 23 0d 00 00 00 04 |EXPOSITI|ON#.....|
|00001e10| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 25 44 01 00 |..EXPOSI|TION%D..|
|00001e20| 00 0a 6f 00 04 49 46 20 | 79 6f 75 20 68 61 76 65 |..o..IF |you have|
|00001e30| 20 61 20 64 61 74 61 20 | 69 74 65 6d 20 73 74 6f | a data |item sto|
|00001e40| 72 65 64 20 69 6e 20 61 | 20 73 74 72 75 63 74 75 |red in a| structu|
|00001e50| 72 65 2c 0a 00 05 54 48 | 45 4e 20 73 65 6c 65 63 |re,...TH|EN selec|
|00001e60| 74 20 74 68 65 20 69 74 | 65 6d 20 75 73 69 6e 67 |t the it|em using|
|00001e70| 20 3c 73 74 72 75 63 74 | 75 72 65 20 6e 61 6d 65 | <struct|ure name|
|00001e80| 3e 2d 3c 66 69 65 6c 64 | 20 6e 61 6d 65 3e 3a 0a |>-<field| name>:.|
|00001e90| 0a 00 05 28 3c 73 74 72 | 75 63 74 75 72 65 20 6e |...(<str|ucture n|
|00001ea0| 61 6d 65 3e 2d 3c 66 69 | 65 6c 64 20 6e 61 6d 65 |ame>-<fi|eld name|
|00001eb0| 3e 20 3c 73 74 72 75 63 | 74 75 72 65 3e 29 0a 0a |> <struc|ture>)..|
|00001ec0| 6f 00 04 49 46 20 79 6f | 75 20 77 61 6e 74 20 74 |o..IF yo|u want t|
|00001ed0| 6f 20 63 68 61 6e 67 65 | 20 61 20 64 61 74 61 20 |o change| a data |
|00001ee0| 69 74 65 6d 20 73 74 6f | 72 65 64 20 69 6e 20 61 |item sto|red in a|
|00001ef0| 20 73 74 72 75 63 74 75 | 72 65 2c 0a 00 05 54 48 | structu|re,...TH|
|00001f00| 45 4e 20 6d 75 74 61 74 | 65 20 74 68 65 20 69 74 |EN mutat|e the it|
|00001f10| 65 6d 20 75 73 69 6e 67 | 20 53 45 54 46 3a 0a 0a |em using| SETF:..|
|00001f20| 00 05 28 53 45 54 46 20 | 28 3c 73 74 72 75 63 74 |..(SETF |(<struct|
|00001f30| 75 72 65 20 6e 61 6d 65 | 3e 2d 3c 66 69 65 6c 64 |ure name|>-<field|
|00001f40| 20 6e 61 6d 65 3e 20 3c | 73 74 72 75 63 74 75 72 | name> <|structur|
|00001f50| 65 3e 29 0a 00 0b 3c 66 | 69 65 6c 64 20 76 61 6c |e>)...<f|ield val|
|00001f60| 75 65 3e 29 0a 23 0c 00 | 00 00 10 01 04 27 03 00 |ue>).#..|.....'..|
|00001f70| 00 00 2e 27 05 00 00 00 | 2e 27 0d 00 00 00 04 27 |...'....|.'.....'|
|00001f80| 05 00 00 00 2e 04 10 02 | 04 10 03 36 0b 01 04 53 |........|...6...S|
|00001f90| 45 54 46 07 15 2a 4c 41 | 53 54 2d 4c 4f 41 44 45 |ETF..*LA|ST-LOADE|
|00001fa0| 44 2d 4c 45 53 53 4f 4e | 53 2a 0b 01 05 51 55 4f |D-LESSON|S*...QUO|
|00001fb0| 54 45 07 0a 53 54 52 55 | 43 54 55 52 45 53 04 10 |TE..STRU|CTURES..|
|00001fc0| 01 04 10 02 04 10 03 36 | 40                      |.......6|@       |
+--------+-------------------------+-------------------------+--------+--------+