home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1984-10-20 | 13.8 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 09 41 4e 41 |SON...QU|OTE..ANA|
|00000080| 4c 4f 47 49 45 53 04 10 | 02 04 10 02 0b 01 05 51 |LOGIES..|.......Q|
|00000090| 55 4f 54 45 07 06 4c 45 | 53 53 4f 4e 07 09 41 4e |UOTE..LE|SSON..AN|
|000000a0| 41 4c 4f 47 49 45 53 0b | 01 04 4e 41 4d 45 07 09 |ALOGIES.|..NAME..|
|000000b0| 41 4e 41 4c 4f 47 49 45 | 53 04 10 01 07 08 50 52 |ANALOGIE|S.....PR|
|000000c0| 45 56 49 4f 55 53 07 08 | 44 45 46 55 4e 2d 49 49 |EVIOUS..|DEFUN-II|
|000000d0| 04 10 01 07 04 4e 45 58 | 54 07 07 54 4f 2d 54 45 |.....NEX|T..TO-TE|
|000000e0| 53 54 04 10 01 07 0b 4c | 45 53 53 4f 4e 2d 4e 41 |ST.....L|ESSON-NA|
|000000f0| 4d 45 26 14 45 78 70 6c | 6f 69 74 69 6e 67 20 41 |ME&.Expl|oiting A|
|00000100| 6e 61 6c 6f 67 69 65 73 | 04 10 01 04 10 08 07 05 |nalogies|........|
|00000110| 53 4c 49 44 45 07 0a 45 | 58 50 4f 53 49 54 49 4f |SLIDE..E|XPOSITIO|
|00000120| 4e 23 01 00 00 00 04 07 | 0a 45 58 50 4f 53 49 54 |N#......|.EXPOSIT|
|00000130| 49 4f 4e 25 35 01 00 00 | 0a 53 6f 6f 6e 20 79 6f |ION%5...|.Soon yo|
|00000140| 75 20 77 69 6c 6c 20 64 | 65 66 69 6e 65 20 79 6f |u will d|efine yo|
|00000150| 75 72 20 6f 77 6e 20 4c | 49 53 50 20 70 72 6f 63 |ur own L|ISP proc|
|00000160| 65 64 75 72 65 73 2e 00 | 02 54 68 65 72 65 20 61 |edures..|.There a|
|00000170| 72 65 20 74 77 6f 0a 77 | 61 79 73 20 74 6f 20 68 |re two.w|ays to h|
|00000180| 65 6c 70 20 64 65 76 65 | 6c 6f 70 20 79 6f 75 72 |elp deve|lop your|
|00000190| 20 70 72 6f 63 65 64 75 | 72 65 2d 64 65 66 69 6e | procedu|re-defin|
|000001a0| 69 74 69 6f 6e 20 73 6b | 69 6c 6c 73 2e 0a 0a 6f |ition sk|ills...o|
|000001b0| 00 04 59 6f 75 20 63 61 | 6e 20 64 65 66 69 6e 65 |..You ca|n define|
|000001c0| 20 61 20 6e 65 77 20 70 | 72 6f 63 65 64 75 72 65 | a new p|rocedure|
|000001d0| 20 62 79 20 65 78 70 6c | 6f 69 74 69 6e 67 20 61 | by expl|oiting a|
|000001e0| 6e 61 6c 6f 67 69 65 73 | 20 77 69 74 68 0a 00 05 |nalogies| with...|
|000001f0| 6f 6c 64 20 6f 6e 65 73 | 2e 0a 0a 6f 00 04 59 6f |old ones|...o..Yo|
|00000200| 75 20 63 61 6e 20 77 6f | 72 6b 20 6f 75 74 20 61 |u can wo|rk out a|
|00000210| 20 6e 65 77 20 70 72 6f | 63 65 64 75 72 65 27 73 | new pro|cedure's|
|00000220| 20 62 6f 64 79 20 62 79 | 20 77 61 6c 6b 69 6e 67 | body by| walking|
|00000230| 20 74 68 72 6f 75 67 68 | 0a 00 05 77 68 61 74 20 | through|...what |
|00000240| 6e 65 65 64 73 20 74 6f | 20 62 65 20 64 6f 6e 65 |needs to| be done|
|00000250| 2e 0a 0a 4c 65 74 27 73 | 20 73 74 61 72 74 20 77 |...Let's| start w|
|00000260| 69 74 68 20 61 6e 61 6c | 6f 67 79 2e 0a 23 0c 00 |ith anal|ogy..#..|
|00000270| 00 00 10 01 04 27 03 00 | 00 00 2e 27 05 00 00 00 |.....'..|...'....|
|00000280| 2e 07 05 53 4c 49 44 45 | 07 0a 45 58 50 4f 53 49 |...SLIDE|..EXPOSI|
|00000290| 54 49 4f 4e 23 02 00 00 | 00 04 07 0a 45 58 50 4f |TION#...|....EXPO|
|000002a0| 53 49 54 49 4f 4e 25 9b | 01 00 00 0a 53 75 70 70 |SITION%.|....Supp|
|000002b0| 6f 73 65 20 79 6f 75 20 | 77 61 6e 74 20 74 6f 20 |ose you |want to |
|000002c0| 64 65 66 69 6e 65 20 61 | 20 70 72 6f 63 65 64 75 |define a| procedu|
|000002d0| 72 65 20 74 6f 20 70 69 | 63 6b 20 74 68 65 20 74 |re to pi|ck the t|
|000002e0| 68 69 72 64 20 65 6c 65 | 6d 65 6e 74 0a 6f 75 74 |hird ele|ment.out|
|000002f0| 20 6f 66 20 61 20 6c 69 | 73 74 2e 00 02 59 6f 75 | of a li|st...You|
|00000300| 20 61 6c 72 65 61 64 79 | 20 68 61 76 65 20 4f 55 | already| have OU|
|00000310| 52 2d 53 45 43 4f 4e 44 | 2e 00 02 59 6f 75 20 63 |R-SECOND|...You c|
|00000320| 61 6e 20 6d 61 6b 65 20 | 61 0a 64 69 72 65 63 74 |an make |a.direct|
|00000330| 20 61 6e 61 6c 6f 67 79 | 20 62 65 74 77 65 65 6e | analogy| between|
|00000340| 20 4f 55 52 2d 53 45 43 | 4f 4e 44 2c 20 74 68 65 | OUR-SEC|OND, the|
|00000350| 20 65 78 61 6d 70 6c 65 | 2c 20 61 6e 64 20 4f 55 | example|, and OU|
|00000360| 52 2d 54 48 49 52 44 2c | 0a 74 68 65 20 70 72 6f |R-THIRD,|.the pro|
|00000370| 62 6c 65 6d 3a 0a 0a 09 | 09 00 03 45 78 61 6d 70 |blem:...|...Examp|
|00000380| 6c 65 00 02 c4 c4 c4 c4 | c4 c4 c4 c4 00 02 50 72 |le......|......Pr|
|00000390| 6f 62 6c 65 6d 0a 09 09 | 00 07 5c 00 10 2f 0a 09 |oblem...|..\../..|
|000003a0| 09 00 07 44 65 66 69 6e | 69 74 69 6f 6e 20 54 65 |...Defin|ition Te|
|000003b0| 6d 70 6c 61 74 65 0a 0a | 41 6c 74 65 72 6e 61 74 |mplate..|Alternat|
|000003c0| 69 76 65 6c 79 2c 20 79 | 6f 75 20 63 61 6e 20 6d |ively, y|ou can m|
|000003d0| 61 6b 65 20 61 6e 20 69 | 6e 64 69 72 65 63 74 20 |ake an i|ndirect |
|000003e0| 61 6e 61 6c 6f 67 79 2c | 20 62 72 69 64 67 69 6e |analogy,| bridgin|
|000003f0| 67 20 62 65 74 77 65 65 | 6e 0a 4f 55 52 2d 53 45 |g betwee|n.OUR-SE|
|00000400| 43 4f 4e 44 20 61 6e 64 | 20 4f 55 52 2d 54 48 49 |COND and| OUR-THI|
|00000410| 52 44 20 76 69 61 20 74 | 68 65 20 67 65 6e 65 72 |RD via t|he gener|
|00000420| 61 6c 20 70 61 74 74 65 | 72 6e 20 66 6f 72 20 70 |al patte|rn for p|
|00000430| 72 6f 63 65 64 75 72 65 | 0a 64 65 66 69 6e 69 74 |rocedure|.definit|
|00000440| 69 6f 6e 73 2e 0a 23 0e | 00 00 00 10 01 04 27 03 |ions..#.|......'.|
|00000450| 00 00 00 2e 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|00000460| 45 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 23 03 00 |E..EXPOS|ITION#..|
|00000470| 00 00 04 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 25 |.....EXP|OSITION%|
|00000480| cd 01 00 00 0a 4c 65 74 | 27 73 20 73 65 65 20 68 |.....Let|'s see h|
|00000490| 6f 77 20 77 65 20 63 61 | 6e 20 64 65 66 69 6e 65 |ow we ca|n define|
|000004a0| 20 4f 55 52 2d 54 48 49 | 52 44 20 75 73 69 6e 67 | OUR-THI|RD using|
|000004b0| 20 61 6e 20 69 6e 64 69 | 72 65 63 74 20 61 6e 61 | an indi|rect ana|
|000004c0| 6c 6f 67 79 2e 20 0a 48 | 65 72 65 20 69 73 20 61 |logy. .H|ere is a|
|000004d0| 20 73 63 65 6e 61 72 69 | 6f 20 6f 66 20 68 6f 77 | scenari|o of how|
|000004e0| 20 74 6f 20 74 68 69 6e | 6b 20 74 68 69 6e 67 73 | to thin|k things|
|000004f0| 20 74 68 72 6f 75 67 68 | 3a 0a 0a 31 2e 00 02 49 | through|:..1...I|
|00000500| 20 6b 6e 6f 77 20 74 68 | 65 20 67 65 6e 65 72 61 | know th|e genera|
|00000510| 6c 20 66 6f 72 6d 20 66 | 6f 72 20 70 72 6f 63 65 |l form f|or proce|
|00000520| 64 75 72 65 20 64 65 66 | 69 6e 69 74 69 6f 6e 3a |dure def|inition:|
|00000530| 0a 0a 28 44 45 46 55 4e | 20 3c 70 72 6f 63 65 64 |..(DEFUN| <proced|
|00000540| 75 72 65 20 6e 61 6d 65 | 3e 0a 00 07 28 3c 70 61 |ure name|>...(<pa|
|00000550| 72 61 6d 65 74 65 72 20 | 31 3e 20 3c 70 61 72 61 |rameter |1> <para|
|00000560| 6d 65 74 65 72 20 32 3e | 20 2e 2e 2e 20 3c 70 61 |meter 2>| ... <pa|
|00000570| 72 61 6d 65 74 65 72 20 | 6e 3e 29 0a 00 07 3c 66 |rameter |n>)...<f|
|00000580| 6f 72 6d 20 31 3e 20 3c | 66 6f 72 6d 20 32 3e 20 |orm 1> <|form 2> |
|00000590| 2e 2e 2e 20 3c 66 6f 72 | 6d 20 6e 3e 29 0a 0a 32 |... <for|m n>)..2|
|000005a0| 2e 00 02 49 20 63 61 6e | 20 74 68 65 72 65 66 6f |...I can| therefo|
|000005b0| 72 65 20 66 69 6c 6c 20 | 69 6e 20 70 61 72 74 20 |re fill |in part |
|000005c0| 6f 66 20 74 68 65 20 64 | 65 66 69 6e 69 74 69 6f |of the d|efinitio|
|000005d0| 6e 20 65 61 73 69 6c 79 | 3a 0a 0a 28 44 45 46 55 |n easily|:..(DEFU|
|000005e0| 4e 20 4f 55 52 2d 54 48 | 49 52 44 0a 00 07 28 3c |N OUR-TH|IRD...(<|
|000005f0| 70 61 72 61 6d 65 74 65 | 72 20 31 3e 20 3c 70 61 |paramete|r 1> <pa|
|00000600| 72 61 6d 65 74 65 72 20 | 32 3e 20 2e 2e 2e 20 3c |rameter |2> ... <|
|00000610| 70 61 72 61 6d 65 74 65 | 72 20 6e 3e 29 0a 00 07 |paramete|r n>)...|
|00000620| 3c 66 6f 72 6d 20 31 3e | 20 3c 66 6f 72 6d 20 32 |<form 1>| <form 2|
|00000630| 3e 20 2e 2e 2e 20 3c 66 | 6f 72 6d 20 6e 3e 29 0a |> ... <f|orm n>).|
|00000640| 0a 28 63 6f 6e 74 69 6e | 75 65 64 20 2e 2e 2e 29 |.(contin|ued ...)|
|00000650| 0a 23 12 00 00 00 10 01 | 04 27 03 00 00 00 2e 27 |.#......|.'.....'|
|00000660| 05 00 00 00 2e 07 05 53 | 4c 49 44 45 07 0a 45 58 |.......S|LIDE..EX|
|00000670| 50 4f 53 49 54 49 4f 4e | 23 04 00 00 00 04 07 0a |POSITION|#.......|
|00000680| 45 58 50 4f 53 49 54 49 | 4f 4e 25 19 02 00 00 0a |EXPOSITI|ON%.....|
|00000690| 33 2e 00 02 49 20 6b 6e | 6f 77 20 4f 55 52 2d 54 |3...I kn|ow OUR-T|
|000006a0| 48 49 52 44 20 6d 61 79 | 20 62 65 20 6d 75 63 68 |HIRD may| be much|
|000006b0| 20 6c 69 6b 65 20 4f 55 | 52 2d 53 45 43 4f 4e 44 | like OU|R-SECOND|
|000006c0| 3a 0a 0a 28 44 45 46 55 | 4e 20 4f 55 52 2d 53 45 |:..(DEFU|N OUR-SE|
|000006d0| 43 4f 4e 44 20 28 4c 29 | 0a 00 02 28 46 49 52 53 |COND (L)|...(FIRS|
|000006e0| 54 20 28 52 45 53 54 20 | 4c 29 29 29 0a 0a 34 2e |T (REST |L)))..4.|
|000006f0| 00 02 49 20 73 65 65 20 | 68 6f 77 20 4f 55 52 2d |..I see |how OUR-|
|00000700| 53 45 43 4f 4e 44 20 61 | 6e 64 20 74 68 65 20 70 |SECOND a|nd the p|
|00000710| 61 72 61 6d 65 74 65 72 | 20 6c 69 73 74 20 69 6e |arameter| list in|
|00000720| 20 74 68 65 20 67 65 6e | 65 72 61 6c 0a 00 04 70 | the gen|eral...p|
|00000730| 61 74 74 65 72 6e 20 6d | 75 73 74 20 62 65 20 72 |attern m|ust be r|
|00000740| 65 6c 61 74 65 64 3a 0a | 0a 28 4c 29 00 02 6d 61 |elated:.|.(L)..ma|
|00000750| 74 63 68 65 73 00 02 28 | 3c 70 61 72 61 6d 65 74 |tches..(|<paramet|
|00000760| 65 72 20 31 3e 20 3c 70 | 61 72 61 6d 65 74 65 72 |er 1> <p|arameter|
|00000770| 20 32 3e 20 2e 2e 2e 20 | 3c 70 61 72 61 6d 65 74 | 2> ... |<paramet|
|00000780| 65 72 20 6e 3e 29 0a 0a | 45 76 69 64 65 6e 74 6c |er n>)..|Evidentl|
|00000790| 79 2c 20 4c 20 69 73 20 | 61 6e 61 6c 6f 67 6f 75 |y, L is |analogou|
|000007a0| 73 20 74 6f 20 3c 70 61 | 72 61 6d 65 74 65 72 20 |s to <pa|rameter |
|000007b0| 31 3e 2e 00 02 4e 6f 20 | 6f 74 68 65 72 20 70 61 |1>...No |other pa|
|000007c0| 72 61 6d 65 74 65 72 73 | 0a 61 72 65 20 6e 65 65 |rameters|.are nee|
|000007d0| 64 65 64 2e 00 02 49 6e | 20 4f 55 52 2d 54 48 49 |ded...In| OUR-THI|
|000007e0| 52 44 2c 20 49 20 63 61 | 6e 20 6a 75 73 74 20 75 |RD, I ca|n just u|
|000007f0| 73 65 20 4c 20 61 67 61 | 69 6e 2c 20 73 6f 20 74 |se L aga|in, so t|
|00000800| 68 65 20 6c 69 73 74 20 | 6f 66 0a 70 61 72 61 6d |he list |of.param|
|00000810| 65 74 65 72 73 20 77 69 | 6c 6c 20 6c 6f 6f 6b 20 |eters wi|ll look |
|00000820| 6c 69 6b 65 20 28 4c 29 | 2c 20 6a 75 73 74 20 61 |like (L)|, just a|
|00000830| 73 20 69 74 20 61 70 70 | 65 61 72 65 64 20 69 6e |s it app|eared in|
|00000840| 20 4f 55 52 2d 53 45 43 | 4f 4e 44 2e 20 0a 4e 6f | OUR-SEC|OND. .No|
|00000850| 77 20 49 20 68 61 76 65 | 20 74 68 69 73 3a 0a 0a |w I have| this:..|
|00000860| 28 44 45 46 55 4e 20 4f | 55 52 2d 54 48 49 52 44 |(DEFUN O|UR-THIRD|
|00000870| 20 28 4c 29 0a 00 07 3c | 66 6f 72 6d 20 31 3e 20 | (L)...<|form 1> |
|00000880| 3c 66 6f 72 6d 20 32 3e | 20 2e 2e 2e 20 3c 66 6f |<form 2>| ... <fo|
|00000890| 72 6d 20 6e 3e 29 0a 0a | 28 63 6f 6e 74 69 6e 75 |rm n>)..|(continu|
|000008a0| 65 64 20 2e 2e 2e 29 0a | 23 15 00 00 00 10 01 04 |ed ...).|#.......|
|000008b0| 27 03 00 00 00 2e 27 05 | 00 00 00 2e 07 05 53 4c |'.....'.|......SL|
|000008c0| 49 44 45 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 23 |IDE..EXP|OSITION#|
|000008d0| 05 00 00 00 04 07 0a 45 | 58 50 4f 53 49 54 49 4f |.......E|XPOSITIO|
|000008e0| 4e 25 2b 02 00 00 0a 35 | 2e 00 02 49 20 73 65 65 |N%+....5|...I see|
|000008f0| 20 68 6f 77 20 4f 55 52 | 2d 53 45 43 4f 4e 44 20 | how OUR|-SECOND |
|00000900| 61 6e 64 20 74 68 65 20 | 66 6f 72 6d 73 20 69 6e |and the |forms in|
|00000910| 20 74 68 65 20 67 65 6e | 65 72 61 6c 20 70 61 74 | the gen|eral pat|
|00000920| 74 65 72 6e 0a 00 04 6d | 75 73 74 20 62 65 20 72 |tern...m|ust be r|
|00000930| 65 6c 61 74 65 64 3a 0a | 0a 28 46 49 52 53 54 20 |elated:.|.(FIRST |
|00000940| 28 52 45 53 54 20 4c 29 | 29 00 02 6d 61 74 63 68 |(REST L)|)..match|
|00000950| 65 73 00 02 3c 66 6f 72 | 6d 20 31 3e 20 3c 66 6f |es..<for|m 1> <fo|
|00000960| 72 6d 20 32 3e 20 2e 2e | 2e 20 3c 66 6f 72 6d 20 |rm 2> ..|. <form |
|00000970| 6e 3e 0a 0a 45 76 69 64 | 65 6e 74 6c 79 2c 20 28 |n>..Evid|ently, (|
|00000980| 46 49 52 53 54 20 28 52 | 45 53 54 20 4c 29 29 20 |FIRST (R|EST L)) |
|00000990| 69 73 20 61 6e 61 6c 6f | 67 6f 75 73 20 74 6f 20 |is analo|gous to |
|000009a0| 3c 66 6f 72 6d 20 31 3e | 20 61 6e 64 20 6e 6f 20 |<form 1>| and no |
|000009b0| 6f 74 68 65 72 0a 66 6f | 72 6d 73 20 61 72 65 20 |other.fo|rms are |
|000009c0| 6e 65 65 64 65 64 2e 00 | 02 42 75 74 20 28 46 49 |needed..|.But (FI|
|000009d0| 52 53 54 20 28 52 45 53 | 54 20 4c 29 29 20 64 6f |RST (RES|T L)) do|
|000009e0| 65 73 20 6e 6f 74 20 71 | 75 69 74 65 20 64 6f 20 |es not q|uite do |
|000009f0| 74 68 65 0a 72 69 67 68 | 74 20 74 68 69 6e 67 3a |the.righ|t thing:|
|00000a00| 00 02 49 20 73 68 6f 75 | 6c 64 20 61 64 64 20 61 |..I shou|ld add a|
|00000a10| 20 52 45 53 54 20 74 6f | 20 67 6f 20 70 61 73 74 | REST to| go past|
|00000a20| 20 74 68 65 20 73 65 63 | 6f 6e 64 20 65 6c 65 6d | the sec|ond elem|
|00000a30| 65 6e 74 2e 0a 0a 28 46 | 49 52 53 54 20 28 52 45 |ent...(F|IRST (RE|
|00000a40| 53 54 20 4c 29 29 00 02 | 62 65 63 6f 6d 65 73 00 |ST L))..|becomes.|
|00000a50| 02 28 46 49 52 53 54 20 | 28 52 45 53 54 20 28 52 |.(FIRST |(REST (R|
|00000a60| 45 53 54 20 4c 29 29 29 | 0a 0a 61 6e 64 20 74 68 |EST L)))|..and th|
|00000a70| 65 72 65 66 6f 72 65 0a | 0a 28 46 49 52 53 54 20 |erefore.|.(FIRST |
|00000a80| 28 52 45 53 54 20 28 52 | 45 53 54 20 4c 29 29 29 |(REST (R|EST L)))|
|00000a90| 00 02 72 65 70 6c 61 63 | 65 73 00 02 3c 66 6f 72 |..replac|es..<for|
|00000aa0| 6d 20 31 3e 20 3c 66 6f | 72 6d 20 32 3e 20 2e 2e |m 1> <fo|rm 2> ..|
|00000ab0| 2e 20 3c 66 6f 72 6d 20 | 6e 3e 0a 0a 74 6f 20 66 |. <form |n>..to f|
|00000ac0| 69 6e 69 73 68 20 4f 55 | 52 2d 54 48 49 52 44 3a |inish OU|R-THIRD:|
|00000ad0| 0a 0a 28 44 45 46 55 4e | 20 4f 55 52 2d 54 48 49 |..(DEFUN| OUR-THI|
|00000ae0| 52 44 20 28 4c 29 20 28 | 46 49 52 53 54 20 28 52 |RD (L) (|FIRST (R|
|00000af0| 45 53 54 20 28 52 45 53 | 54 20 4c 29 29 29 29 0a |EST (RES|T L)))).|
|00000b00| 0a 28 63 6f 6e 74 69 6e | 75 65 64 20 2e 2e 2e 29 |.(contin|ued ...)|
|00000b10| 0a 23 16 00 00 00 10 01 | 04 27 03 00 00 00 2e 27 |.#......|.'.....'|
|00000b20| 05 00 00 00 2e 07 05 53 | 4c 49 44 45 07 0a 45 58 |.......S|LIDE..EX|
|00000b30| 50 4f 53 49 54 49 4f 4e | 23 06 00 00 00 04 07 0a |POSITION|#.......|
|00000b40| 45 58 50 4f 53 49 54 49 | 4f 4e 25 0c 01 00 00 0a |EXPOSITI|ON%.....|
|00000b50| 36 2e 00 02 50 75 74 74 | 69 6e 67 20 69 74 20 61 |6...Putt|ing it a|
|00000b60| 6c 6c 20 74 6f 67 65 74 | 68 65 72 2c 20 49 20 68 |ll toget|her, I h|
|00000b70| 61 76 65 20 74 68 65 73 | 65 20 63 6f 72 72 65 73 |ave thes|e corres|
|00000b80| 70 6f 6e 64 65 6e 63 65 | 73 3a 0a 0a 28 44 45 46 |pondence|s:..(DEF|
|00000b90| 55 4e 20 4f 55 52 2d 53 | 45 43 4f 4e 44 0a 00 02 |UN OUR-S|ECOND...|
|00000ba0| 28 4c 29 0a 00 02 28 46 | 49 52 53 54 20 28 52 45 |(L)...(F|IRST (RE|
|00000bb0| 53 54 20 4c 29 29 29 0a | 00 07 b3 0a 00 07 b3 0a |ST L))).|........|
|00000bc0| 00 07 c0 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000bd0| c4 10 00 02 28 44 45 46 | 55 4e 20 3c 70 72 6f 63 |....(DEF|UN <proc|
|00000be0| 65 64 75 72 65 20 6e 61 | 6d 65 3e 0a 00 1b 28 3c |edure na|me>...(<|
|00000bf0| 70 61 72 61 6d 65 74 65 | 72 20 31 3e 20 2e 2e 2e |paramete|r 1> ...|
|00000c00| 29 0a 00 1b 3c 66 6f 72 | 6d 20 31 3e 20 2e 2e 2e |)...<for|m 1> ...|
|00000c10| 29 0a 00 20 b3 0a 00 20 | b3 0a 28 44 45 46 55 4e |).. ... |..(DEFUN|
|00000c20| 20 4f 55 52 2d 54 48 49 | 52 44 00 04 11 c4 c4 c4 | OUR-THI|RD......|
|00000c30| c4 c4 c4 c4 c4 c4 c4 c4 | d9 0a 00 02 28 4c 29 0a |........|....(L).|
|00000c40| 00 02 28 46 49 52 53 54 | 20 28 52 45 53 54 20 28 |..(FIRST| (REST (|
|00000c50| 52 45 53 54 20 4c 29 29 | 29 29 0a 23 11 00 00 00 |REST L))|)).#....|
|00000c60| 10 01 04 27 03 00 00 00 | 2e 27 05 00 00 00 2e 07 |...'....|.'......|
|00000c70| 05 53 4c 49 44 45 07 0a | 45 58 50 4f 53 49 54 49 |.SLIDE..|EXPOSITI|
|00000c80| 4f 4e 23 07 00 00 00 04 | 07 0a 45 58 50 4f 53 49 |ON#.....|..EXPOSI|
|00000c90| 54 49 4f 4e 25 a9 02 00 | 00 0a 41 66 74 65 72 20 |TION%...|..After |
|00000ca0| 73 6f 6d 65 20 70 72 61 | 63 74 69 63 65 20 79 6f |some pra|ctice yo|
|00000cb0| 75 20 77 69 6c 6c 20 66 | 69 6e 64 20 79 6f 75 72 |u will f|ind your|
|00000cc0| 73 65 6c 66 20 75 73 69 | 6e 67 20 64 69 72 65 63 |self usi|ng direc|
|00000cd0| 74 20 61 6e 61 6c 6f 67 | 69 65 73 0a 6d 6f 72 65 |t analog|ies.more|
|00000ce0| 20 74 68 61 6e 20 69 6e | 64 69 72 65 63 74 20 6f | than in|direct o|
|00000cf0| 6e 65 73 2e 00 02 48 65 | 72 65 20 69 73 20 61 20 |nes...He|re is a |
|00000d00| 73 63 65 6e 61 72 69 6f | 3a 0a 0a 31 2e 00 02 49 |scenario|:..1...I|
|00000d10| 20 77 61 6e 74 20 74 6f | 20 64 65 66 69 6e 65 20 | want to| define |
|00000d20| 4f 55 52 2d 54 48 49 52 | 44 3b 00 02 69 74 20 6d |OUR-THIR|D;..it m|
|00000d30| 75 73 74 20 62 65 20 6c | 69 6b 65 20 4f 55 52 2d |ust be l|ike OUR-|
|00000d40| 53 45 43 4f 4e 44 3a 0a | 0a 00 04 28 44 45 46 55 |SECOND:.|...(DEFU|
|00000d50| 4e 20 4f 55 52 2d 53 45 | 43 4f 4e 44 20 28 4c 29 |N OUR-SE|COND (L)|
|00000d60| 20 28 46 49 52 53 54 20 | 28 52 45 53 54 20 4c 29 | (FIRST |(REST L)|
|00000d70| 29 29 0a 0a 32 2e 00 02 | 54 68 65 20 67 65 6e 65 |))..2...|The gene|
|00000d80| 72 61 6c 20 73 74 72 75 | 63 74 75 72 65 20 6d 75 |ral stru|cture mu|
|00000d90| 73 74 20 62 65 20 74 68 | 65 20 73 61 6d 65 3a 0a |st be th|e same:.|
|00000da0| 0a 00 04 28 44 45 46 55 | 4e 20 4f 55 52 2d 53 45 |...(DEFU|N OUR-SE|
|00000db0| 43 4f 4e 44 20 28 4c 29 | 00 02 11 c4 c4 10 00 03 |COND (L)|........|
|00000dc0| 28 44 45 46 55 4e 20 4f | 55 52 2d 54 48 49 52 44 |(DEFUN O|UR-THIRD|
|00000dd0| 20 28 4c 29 0a 00 06 28 | 46 49 52 53 54 20 28 52 | (L)...(|FIRST (R|
|00000de0| 45 53 54 20 4c 29 29 29 | 00 0d 3c 6e 65 77 20 66 |EST L)))|..<new f|
|00000df0| 6f 72 6d 3e 29 0a 0a 33 | 2e 00 02 54 6f 20 67 65 |orm>)..3|...To ge|
|00000e00| 74 20 74 68 65 20 73 65 | 63 6f 6e 64 20 65 6c 65 |t the se|cond ele|
|00000e10| 6d 65 6e 74 2c 20 61 6c | 6c 20 49 20 6e 65 65 64 |ment, al|l I need|
|00000e20| 65 64 20 77 61 73 20 28 | 46 49 52 53 54 20 28 52 |ed was (|FIRST (R|
|00000e30| 45 53 54 20 4c 29 29 3b | 0a 00 04 74 6f 20 67 65 |EST L));|...to ge|
|00000e40| 74 20 74 68 65 20 74 68 | 69 72 64 2c 20 49 20 6e |t the th|ird, I n|
|00000e50| 65 65 64 20 74 6f 20 6d | 6f 76 65 20 64 6f 77 6e |eed to m|ove down|
|00000e60| 20 74 68 65 20 6c 69 73 | 74 20 66 75 72 74 68 65 | the lis|t furthe|
|00000e70| 72 20 75 73 69 6e 67 0a | 00 04 61 6e 6f 74 68 65 |r using.|..anothe|
|00000e80| 72 20 52 45 53 54 3a 20 | 28 46 49 52 53 54 20 28 |r REST: |(FIRST (|
|00000e90| 52 45 53 54 20 28 52 45 | 53 54 20 4c 29 29 29 2e |REST (RE|ST L))).|
|00000ea0| 0a 0a 34 2e 00 02 45 76 | 69 64 65 6e 74 6c 79 2c |..4...Ev|idently,|
|00000eb0| 20 4f 55 52 2d 54 48 49 | 52 44 20 63 61 6e 20 62 | OUR-THI|RD can b|
|00000ec0| 65 20 71 75 69 74 65 20 | 73 69 6d 69 6c 61 72 20 |e quite |similar |
|00000ed0| 74 6f 20 4f 55 52 2d 53 | 45 43 4f 4e 44 3a 0a 0a |to OUR-S|ECOND:..|
|00000ee0| 00 04 28 44 45 46 55 4e | 20 4f 55 52 2d 53 45 43 |..(DEFUN| OUR-SEC|
|00000ef0| 4f 4e 44 20 28 4c 29 00 | 02 11 c4 c4 10 00 03 28 |OND (L).|.......(|
|00000f00| 44 45 46 55 4e 20 4f 55 | 52 2d 54 48 49 52 44 20 |DEFUN OU|R-THIRD |
|00000f10| 28 4c 29 0a 00 06 28 46 | 49 52 53 54 20 28 52 45 |(L)...(F|IRST (RE|
|00000f20| 53 54 20 4c 29 29 29 00 | 0d 28 46 49 52 53 54 20 |ST L))).|.(FIRST |
|00000f30| 28 52 45 53 54 20 28 52 | 45 53 54 20 4c 29 29 29 |(REST (R|EST L)))|
|00000f40| 29 0a 23 16 00 00 00 10 | 01 04 27 03 00 00 00 2e |).#.....|..'.....|
|00000f50| 27 05 00 00 00 2e 07 05 | 53 4c 49 44 45 07 08 45 |'.......|SLIDE..E|
|00000f60| 58 41 4d 50 4c 45 53 23 | 08 00 00 00 04 07 0d 45 |XAMPLES#|.......E|
|00000f70| 58 41 4d 50 4c 45 2d 47 | 52 4f 55 50 26 85 0a 4e |XAMPLE-G|ROUP&..N|
|00000f80| 6f 77 20 6c 65 74 27 73 | 20 74 72 79 20 74 6f 20 |ow let's| try to |
|00000f90| 63 72 65 61 74 65 20 61 | 20 70 72 6f 63 65 64 75 |create a| procedu|
|00000fa0| 72 65 20 6e 61 6d 65 64 | 20 4c 41 53 54 2d 45 4c |re named| LAST-EL|
|00000fb0| 45 4d 45 4e 54 20 66 6f | 72 0a 65 78 74 72 61 63 |EMENT fo|r.extrac|
|00000fc0| 74 69 6e 67 20 74 68 65 | 20 6c 61 73 74 20 65 6c |ting the| last el|
|00000fd0| 65 6d 65 6e 74 20 6f 66 | 20 61 20 6c 69 73 74 20 |ement of| a list |
|00000fe0| 75 73 69 6e 67 20 74 68 | 65 20 64 69 72 65 63 74 |using th|e direct|
|00000ff0| 20 61 6e 61 6c 6f 67 79 | 0a 74 65 63 68 6e 69 71 | analogy|.techniq|
|00001000| 75 65 2e 23 04 00 00 00 | 10 01 26 26 49 73 20 4f |ue.#....|..&&Is O|
|00001010| 55 52 2d 53 45 43 4f 4e | 44 20 73 69 6d 69 6c 61 |UR-SECON|D simila|
|00001020| 72 20 74 6f 20 77 68 61 | 74 20 77 65 20 6e 65 65 |r to wha|t we nee|
|00001030| 64 3f 23 01 00 00 00 10 | 01 26 45 0a 59 65 73 2e |d?#.....|.&E.Yes.|
|00001040| 00 02 49 74 20 6c 6f 6f | 6b 73 20 6c 69 6b 65 20 |..It loo|ks like |
|00001050| 74 68 69 73 3a 0a 0a 28 | 44 45 46 55 4e 20 4f 55 |this:..(|DEFUN OU|
|00001060| 52 2d 53 45 43 4f 4e 44 | 20 28 4c 29 0a 00 02 28 |R-SECOND| (L)...(|
|00001070| 46 49 52 53 54 20 28 52 | 45 53 54 20 4c 29 29 29 |FIRST (R|EST L)))|
|00001080| 23 05 00 00 00 10 01 27 | 04 00 00 00 2e 07 0d 45 |#......'|.......E|
|00001090| 58 41 4d 50 4c 45 2d 47 | 52 4f 55 50 04 26 3b 0a |XAMPLE-G|ROUP.&;.|
|000010a0| 57 68 61 74 20 74 68 65 | 6e 20 73 68 6f 75 6c 64 |What the|n should|
|000010b0| 20 4c 41 53 54 2d 45 4c | 45 4d 45 4e 54 20 6c 6f | LAST-EL|EMENT lo|
|000010c0| 6f 6b 20 6c 69 6b 65 2c | 20 77 69 74 68 6f 75 74 |ok like,| without|
|000010d0| 20 74 68 65 20 62 6f 64 | 79 3f 23 02 00 00 00 10 | the bod|y?#.....|
|000010e0| 01 26 1c 0a 28 44 45 46 | 55 4e 20 4c 41 53 54 2d |.&..(DEF|UN LAST-|
|000010f0| 45 4c 45 4d 45 4e 54 20 | 28 4c 29 0a 00 02 29 23 |ELEMENT |(L)...)#|
|00001100| 03 00 00 00 10 01 27 04 | 00 00 00 2e 04 10 02 27 |......'.|.......'|
|00001110| 05 00 00 00 2e 07 05 53 | 4c 49 44 45 07 08 45 58 |.......S|LIDE..EX|
|00001120| 41 4d 50 4c 45 53 23 09 | 00 00 00 04 07 0d 45 58 |AMPLES#.|......EX|
|00001130| 41 4d 50 4c 45 2d 47 52 | 4f 55 50 26 3f 52 65 63 |AMPLE-GR|OUP&?Rec|
|00001140| 61 6c 6c 20 74 68 61 74 | 20 4c 41 53 54 20 63 68 |all that| LAST ch|
|00001150| 75 63 6b 73 20 6f 75 74 | 20 61 6c 6c 20 62 75 74 |ucks out| all but|
|00001160| 20 74 68 65 20 6c 61 73 | 74 20 65 6c 65 6d 65 6e | the las|t elemen|
|00001170| 74 20 6f 66 20 61 20 6c | 69 73 74 2e 23 01 00 00 |t of a l|ist.#...|
|00001180| 00 10 01 26 3a 0a 57 68 | 61 74 20 66 6f 72 6d 20 |...&:.Wh|at form |
|00001190| 69 73 20 67 6f 6f 64 20 | 66 6f 72 20 67 65 74 74 |is good |for gett|
|000011a0| 69 6e 67 20 74 68 65 20 | 6c 61 73 74 20 65 6c 65 |ing the |last ele|
|000011b0| 6d 65 6e 74 20 6f 66 20 | 61 20 6c 69 73 74 3f 23 |ment of |a list?#|
|000011c0| 02 00 00 00 10 01 26 1a | 0a 28 46 49 52 53 54 20 |......&.|.(FIRST |
|000011d0| 28 4c 41 53 54 20 3c 74 | 68 65 20 6c 69 73 74 3e |(LAST <t|he list>|
|000011e0| 29 29 23 02 00 00 00 10 | 01 27 04 00 00 00 2e 07 |))#.....|.'......|
|000011f0| 0d 45 58 41 4d 50 4c 45 | 2d 47 52 4f 55 50 26 3d |.EXAMPLE|-GROUP&=|
|00001200| 52 65 63 61 6c 6c 20 74 | 68 61 74 20 77 65 20 68 |Recall t|hat we h|
|00001210| 61 76 65 20 74 68 69 73 | 20 73 6f 20 66 61 72 3a |ave this| so far:|
|00001220| 0a 0a 28 44 45 46 55 4e | 20 4c 41 53 54 2d 45 4c |..(DEFUN| LAST-EL|
|00001230| 45 4d 45 4e 54 20 28 4c | 29 0a 00 02 29 23 04 00 |EMENT (L|)...)#..|
|00001240| 00 00 10 01 26 36 0a 57 | 68 61 74 20 73 68 6f 75 |....&6.W|hat shou|
|00001250| 6c 64 20 4c 41 53 54 2d | 45 4c 45 4d 45 4e 54 27 |ld LAST-|ELEMENT'|
|00001260| 73 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 6c 6f 6f |s defini|tion loo|
|00001270| 6b 20 6c 69 6b 65 20 74 | 68 65 6e 3f 23 02 00 00 |k like t|hen?#...|
|00001280| 00 10 01 26 2d 0a 28 44 | 45 46 55 4e 20 4c 41 53 |...&-.(D|EFUN LAS|
|00001290| 54 2d 45 4c 45 4d 45 4e | 54 20 28 4c 29 0a 00 02 |T-ELEMEN|T (L)...|
|000012a0| 28 46 49 52 53 54 20 28 | 4c 41 53 54 20 4c 29 29 |(FIRST (|LAST L))|
|000012b0| 29 0a 23 04 00 00 00 10 | 01 27 04 00 00 00 2e 04 |).#.....|.'......|
|000012c0| 10 02 27 05 00 00 00 2e | 07 05 53 4c 49 44 45 07 |..'.....|..SLIDE.|
|000012d0| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 23 0a 00 00 00 |.EXPOSIT|ION#....|
|000012e0| 04 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 26 b4 0a |...EXPOS|ITION&..|
|000012f0| 4e 6f 77 20 6c 65 74 27 | 73 20 75 73 65 20 74 68 |Now let'|s use th|
|00001300| 65 20 53 61 6e 20 4d 61 | 72 63 6f 20 49 6e 73 70 |e San Ma|rco Insp|
|00001310| 65 63 74 6f 72 20 74 6f | 20 6c 6f 6f 6b 20 61 74 |ector to| look at|
|00001320| 20 4f 55 52 2d 54 48 49 | 52 44 20 61 6e 64 0a 4c | OUR-THI|RD and.L|
|00001330| 41 53 54 2d 45 4c 45 4d | 45 4e 54 20 69 6e 20 61 |AST-ELEM|ENT in a|
|00001340| 63 74 69 6f 6e 2e 00 02 | 4c 65 74 27 73 20 73 74 |ction...|Let's st|
|00001350| 61 72 74 20 77 69 74 68 | 20 61 6e 20 65 78 61 6d |art with| an exam|
|00001360| 70 6c 65 20 75 73 69 6e | 67 0a 4f 55 52 2d 54 48 |ple usin|g.OUR-TH|
|00001370| 49 52 44 2e 00 02 54 68 | 65 6e 20 77 65 27 6c 6c |IRD...Th|en we'll|
|00001380| 20 74 72 79 20 61 6e 20 | 65 78 61 6d 70 6c 65 20 | try an |example |
|00001390| 77 69 74 68 20 4c 41 53 | 54 2d 45 4c 45 4d 45 4e |with LAS|T-ELEMEN|
|000013a0| 54 2e 0a 23 05 00 00 00 | 10 01 04 27 03 00 00 00 |T..#....|...'....|
|000013b0| 2e 27 05 00 00 00 2e 07 | 05 53 4c 49 44 45 07 06 |.'......|.SLIDE..|
|000013c0| 4d 54 52 41 43 45 23 0b | 00 00 00 07 05 46 4f 52 |MTRACE#.|.....FOR|
|000013d0| 4d 53 0b 01 05 44 45 46 | 55 4e 07 09 4f 55 52 2d |MS...DEF|UN..OUR-|
|000013e0| 54 48 49 52 44 07 01 4c | 04 10 01 07 07 49 2d 46 |THIRD..L|.....I-F|
|000013f0| 49 52 53 54 07 06 49 2d | 52 45 53 54 07 06 49 2d |IRST..I-|REST..I-|
|00001400| 52 45 53 54 07 01 4c 04 | 10 02 04 10 02 04 10 02 |REST..L.|........|
|00001410| 04 10 04 0b 01 05 44 45 | 46 55 4e 07 07 49 2d 46 |......DE|FUN..I-F|
|00001420| 49 52 53 54 07 08 41 52 | 47 55 4d 45 4e 54 04 10 |IRST..AR|GUMENT..|
|00001430| 01 0b 01 05 46 49 52 53 | 54 07 08 41 52 47 55 4d |....FIRS|T..ARGUM|
|00001440| 45 4e 54 04 10 02 04 10 | 04 0b 01 05 44 45 46 55 |ENT.....|....DEFU|
|00001450| 4e 07 06 49 2d 52 45 53 | 54 07 08 41 52 47 55 4d |N..I-RES|T..ARGUM|
|00001460| 45 4e 54 04 10 01 0b 01 | 04 52 45 53 54 07 08 41 |ENT.....|.REST..A|
|00001470| 52 47 55 4d 45 4e 54 04 | 10 02 04 10 04 04 10 03 |RGUMENT.|........|
|00001480| 07 09 46 55 4e 43 54 49 | 4f 4e 53 07 09 4f 55 52 |..FUNCTI|ONS..OUR|
|00001490| 2d 54 48 49 52 44 07 06 | 49 2d 52 45 53 54 0b 01 |-THIRD..|I-REST..|
|000014a0| 04 52 45 53 54 04 10 02 | 07 07 49 2d 46 49 52 53 |.REST...|..I-FIRS|
|000014b0| 54 0b 01 05 46 49 52 53 | 54 04 10 02 04 10 03 07 |T...FIRS|T.......|
|000014c0| 05 53 54 41 52 54 07 09 | 4f 55 52 2d 54 48 49 52 |.START..|OUR-THIR|
|000014d0| 44 0b 01 05 51 55 4f 54 | 45 07 03 4f 4e 45 07 03 |D...QUOT|E..ONE..|
|000014e0| 54 57 4f 07 05 54 48 52 | 45 45 04 10 03 04 10 02 |TWO..THR|EE......|
|000014f0| 04 10 02 04 10 01 04 10 | 06 07 04 54 45 58 54 23 |........|...TEXT#|
|00001500| 00 00 00 00 07 04 43 4e | 55 4d 23 00 00 00 00 04 |......CN|UM#.....|
|00001510| 10 01 04 10 02 26 5f 52 | 65 63 61 6c 6c 20 74 68 |.....&_R|ecall th|
|00001520| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 6f 66 20 |e defini|tion of |
|00001530| 4f 55 52 2d 54 48 49 52 | 44 20 69 73 20 61 73 20 |OUR-THIR|D is as |
|00001540| 66 6f 6c 6c 6f 77 73 3a | 0a 28 44 45 46 55 4e 20 |follows:|.(DEFUN |
|00001550| 4f 55 52 2d 54 48 49 52 | 44 20 28 4c 29 20 28 46 |OUR-THIR|D (L) (F|
|00001560| 49 52 53 54 20 28 52 45 | 53 54 20 28 52 45 53 54 |IRST (RE|ST (REST|
|00001570| 20 4c 29 29 29 29 23 02 | 00 00 00 10 01 27 04 00 | L))))#.|.....'..|
|00001580| 00 00 2e 07 04 54 45 58 | 54 23 01 00 00 00 07 04 |.....TEX|T#......|
|00001590| 43 4e 55 4d 23 01 00 00 | 00 04 10 01 04 10 02 26 |CNUM#...|.......&|
|000015a0| 27 4c 65 74 27 73 20 74 | 72 79 20 4f 55 52 2d 54 |'Let's t|ry OUR-T|
|000015b0| 48 49 52 44 20 6f 6e 20 | 28 4f 4e 45 20 54 57 4f |HIRD on |(ONE TWO|
|000015c0| 20 54 48 52 45 45 29 2e | 23 01 00 00 00 10 01 27 | THREE).|#......'|
|000015d0| 04 00 00 00 2e 07 04 54 | 45 58 54 23 02 00 00 00 |.......T|EXT#....|
|000015e0| 07 04 43 4e 55 4d 23 02 | 00 00 00 04 10 01 04 10 |..CNUM#.|........|
|000015f0| 02 26 a5 4e 6f 77 20 4f | 55 52 2d 54 48 49 52 44 |.&.Now O|UR-THIRD|
|00001600| 20 68 61 73 20 63 61 6c | 6c 65 64 20 75 70 6f 6e | has cal|led upon|
|00001610| 20 52 45 53 54 20 62 65 | 63 61 75 73 65 20 69 74 | REST be|cause it|
|00001620| 20 69 73 20 77 6f 72 6b | 69 6e 67 20 6f 6e 20 74 | is work|ing on t|
|00001630| 68 65 0a 65 76 61 6c 75 | 61 74 69 6f 6e 20 6f 66 |he.evalu|ation of|
|00001640| 20 74 68 65 20 61 72 67 | 75 6d 65 6e 74 20 6f 66 | the arg|ument of|
|00001650| 20 28 46 49 52 53 54 20 | 28 52 45 53 54 20 28 52 | (FIRST |(REST (R|
|00001660| 45 53 54 20 4c 29 29 29 | 2e 00 02 4e 6f 74 65 20 |EST L)))|...Note |
|00001670| 74 68 61 74 0a 52 45 53 | 54 27 73 20 61 72 67 75 |that.RES|T's argu|
|00001680| 6d 65 6e 74 20 69 73 20 | 28 4f 4e 45 20 54 57 4f |ment is |(ONE TWO|
|00001690| 20 54 48 52 45 45 29 2e | 23 03 00 00 00 10 01 27 | THREE).|#......'|
|000016a0| 04 00 00 00 2e 07 04 54 | 45 58 54 23 fe ff 00 00 |.......T|EXT#....|
|000016b0| 07 04 43 4e 55 4d 23 fe | ff 00 00 04 10 01 04 10 |..CNUM#.|........|
|000016c0| 02 26 44 52 45 53 54 20 | 64 6f 65 73 20 69 74 73 |.&DREST |does its|
|000016d0| 20 63 6f 6d 70 75 74 61 | 74 69 6f 6e 20 61 6e 64 | computa|tion and|
|000016e0| 20 72 65 74 75 72 6e 73 | 20 61 20 76 61 6c 75 65 | returns| a value|
|000016f0| 2c 20 77 68 69 63 68 20 | 69 73 20 28 54 57 4f 20 |, which |is (TWO |
|00001700| 54 48 52 45 45 29 2e 23 | 01 00 00 00 10 01 27 04 |THREE).#|......'.|
|00001710| 00 00 00 2e 07 04 54 45 | 58 54 23 03 00 00 00 07 |......TE|XT#.....|
|00001720| 04 43 4e 55 4d 23 03 00 | 00 00 04 10 01 04 10 02 |.CNUM#..|........|
|00001730| 26 7b 4e 6f 77 20 4f 55 | 52 2d 54 48 49 52 44 20 |&{Now OU|R-THIRD |
|00001740| 68 61 73 20 63 61 6c 6c | 65 64 20 75 70 6f 6e 20 |has call|ed upon |
|00001750| 52 45 53 54 20 61 67 61 | 69 6e 20 62 65 63 61 75 |REST aga|in becau|
|00001760| 73 65 20 74 68 65 20 28 | 52 45 53 54 20 4c 29 20 |se the (|REST L) |
|00001770| 68 61 73 0a 62 65 65 6e | 20 65 76 61 6c 75 61 74 |has.been| evaluat|
|00001780| 65 64 2e 00 02 4e 6f 77 | 20 74 68 69 73 20 52 45 |ed...Now| this RE|
|00001790| 53 54 27 73 20 61 72 67 | 75 6d 65 6e 74 20 69 73 |ST's arg|ument is|
|000017a0| 20 28 54 57 4f 20 54 48 | 52 45 45 29 2e 23 02 00 | (TWO TH|REE).#..|
|000017b0| 00 00 10 01 27 04 00 00 | 00 2e 07 04 54 45 58 54 |....'...|....TEXT|
|000017c0| 23 fd ff 00 00 07 04 43 | 4e 55 4d 23 fd ff 00 00 |#......C|NUM#....|
|000017d0| 04 10 01 04 10 02 26 40 | 52 45 53 54 20 64 6f 65 |......&@|REST doe|
|000017e0| 73 20 69 74 73 20 63 6f | 6d 70 75 74 61 74 69 6f |s its co|mputatio|
|000017f0| 6e 20 61 6e 64 20 72 65 | 74 75 72 6e 73 20 61 20 |n and re|turns a |
|00001800| 76 61 6c 75 65 2c 20 77 | 68 69 63 68 20 69 73 20 |value, w|hich is |
|00001810| 28 54 48 52 45 45 29 2e | 23 01 00 00 00 10 01 27 |(THREE).|#......'|
|00001820| 04 00 00 00 2e 07 04 54 | 45 58 54 23 04 00 00 00 |.......T|EXT#....|
|00001830| 07 04 43 4e 55 4d 23 04 | 00 00 00 04 10 01 04 10 |..CNUM#.|........|
|00001840| 02 26 8f 4e 6f 77 20 4f | 55 52 2d 54 48 49 52 44 |.&.Now O|UR-THIRD|
|00001850| 20 68 61 73 20 63 61 6c | 6c 65 64 20 75 70 6f 6e | has cal|led upon|
|00001860| 20 46 49 52 53 54 20 62 | 65 63 61 75 73 65 20 74 | FIRST b|ecause t|
|00001870| 68 65 20 61 72 67 75 6d | 65 6e 74 20 6f 66 0a 28 |he argum|ent of.(|
|00001880| 46 49 52 53 54 20 28 52 | 45 53 54 20 28 52 45 53 |FIRST (R|EST (RES|
|00001890| 54 20 4c 29 29 29 20 68 | 61 73 20 62 65 65 6e 20 |T L))) h|as been |
|000018a0| 65 76 61 6c 75 61 74 65 | 64 2e 00 02 4e 6f 74 65 |evaluate|d...Note|
|000018b0| 20 74 68 61 74 20 46 49 | 52 53 54 27 73 0a 61 72 | that FI|RST's.ar|
|000018c0| 67 75 6d 65 6e 74 20 69 | 73 20 28 54 48 52 45 45 |gument i|s (THREE|
|000018d0| 29 2e 23 03 00 00 00 10 | 01 27 04 00 00 00 2e 07 |).#.....|.'......|
|000018e0| 04 54 45 58 54 23 fc ff | 00 00 07 04 43 4e 55 4d |.TEXT#..|....CNUM|
|000018f0| 23 fc ff 00 00 04 10 01 | 04 10 02 26 4a 46 49 52 |#.......|...&JFIR|
|00001900| 53 54 20 64 6f 65 73 20 | 69 74 73 20 63 6f 6d 70 |ST does |its comp|
|00001910| 75 74 61 74 69 6f 6e 20 | 61 6e 64 20 72 65 74 75 |utation |and retu|
|00001920| 72 6e 73 20 61 20 76 61 | 6c 75 65 2c 20 77 68 69 |rns a va|lue, whi|
|00001930| 63 68 20 6f 66 20 63 6f | 75 72 73 65 20 69 73 20 |ch of co|urse is |
|00001940| 0a 54 48 52 45 45 2e 23 | 02 00 00 00 10 01 27 04 |.THREE.#|......'.|
|00001950| 00 00 00 2e 07 04 54 45 | 58 54 23 ff ff 00 00 07 |......TE|XT#.....|
|00001960| 04 43 4e 55 4d 23 ff ff | 00 00 04 10 01 04 10 02 |.CNUM#..|........|
|00001970| 26 3a 4e 6f 77 20 4f 55 | 52 2d 54 48 49 52 44 20 |&:Now OU|R-THIRD |
|00001980| 69 73 20 66 69 6e 69 73 | 68 65 64 20 61 6e 64 20 |is finis|hed and |
|00001990| 72 65 74 75 72 6e 73 20 | 74 68 65 20 64 65 73 69 |returns |the desi|
|000019a0| 72 65 64 20 61 6e 73 77 | 65 72 2e 0a 23 02 00 00 |red answ|er..#...|
|000019b0| 00 10 01 27 04 00 00 00 | 2e 04 10 09 27 05 00 00 |...'....|....'...|
|000019c0| 00 2e 07 05 53 4c 49 44 | 45 07 06 4d 54 52 41 43 |....SLID|E..MTRAC|
|000019d0| 45 23 0c 00 00 00 07 05 | 46 4f 52 4d 53 0b 01 05 |E#......|FORMS...|
|000019e0| 44 45 46 55 4e 07 0c 4c | 41 53 54 2d 45 4c 45 4d |DEFUN..L|AST-ELEM|
|000019f0| 45 4e 54 07 01 4c 04 10 | 01 07 07 49 2d 46 49 52 |ENT..L..|...I-FIR|
|00001a00| 53 54 07 06 49 2d 4c 41 | 53 54 07 01 4c 04 10 02 |ST..I-LA|ST..L...|
|00001a10| 04 10 02 04 10 04 0b 01 | 05 44 45 46 55 4e 07 07 |........|.DEFUN..|
|00001a20| 49 2d 46 49 52 53 54 07 | 08 41 52 47 55 4d 45 4e |I-FIRST.|.ARGUMEN|
|00001a30| 54 04 10 01 0b 01 05 46 | 49 52 53 54 07 08 41 52 |T......F|IRST..AR|
|00001a40| 47 55 4d 45 4e 54 04 10 | 02 04 10 04 0b 01 05 44 |GUMENT..|.......D|
|00001a50| 45 46 55 4e 07 06 49 2d | 4c 41 53 54 07 08 41 52 |EFUN..I-|LAST..AR|
|00001a60| 47 55 4d 45 4e 54 04 10 | 01 0b 01 04 4c 41 53 54 |GUMENT..|....LAST|
|00001a70| 07 08 41 52 47 55 4d 45 | 4e 54 04 10 02 04 10 04 |..ARGUME|NT......|
|00001a80| 04 10 03 07 09 46 55 4e | 43 54 49 4f 4e 53 07 0c |.....FUN|CTIONS..|
|00001a90| 4c 41 53 54 2d 45 4c 45 | 4d 45 4e 54 07 06 49 2d |LAST-ELE|MENT..I-|
|00001aa0| 4c 41 53 54 0b 01 04 4c | 41 53 54 04 10 02 07 07 |LAST...L|AST.....|
|00001ab0| 49 2d 46 49 52 53 54 0b | 01 05 46 49 52 53 54 04 |I-FIRST.|..FIRST.|
|00001ac0| 10 02 04 10 03 07 05 53 | 54 41 52 54 07 0c 4c 41 |.......S|TART..LA|
|00001ad0| 53 54 2d 45 4c 45 4d 45 | 4e 54 0b 01 05 51 55 4f |ST-ELEME|NT...QUO|
|00001ae0| 54 45 07 03 4f 4e 45 07 | 03 54 57 4f 07 05 54 48 |TE..ONE.|.TWO..TH|
|00001af0| 52 45 45 04 10 03 04 10 | 02 04 10 02 04 10 01 04 |REE.....|........|
|00001b00| 10 06 07 04 54 45 58 54 | 23 00 00 00 00 07 04 43 |....TEXT|#......C|
|00001b10| 4e 55 4d 23 00 00 00 00 | 04 10 01 04 10 02 26 5e |NUM#....|......&^|
|00001b20| 52 65 63 61 6c 6c 20 74 | 68 65 20 64 65 66 69 6e |Recall t|he defin|
|00001b30| 69 74 69 6f 6e 20 6f 66 | 20 4c 41 53 54 2d 45 4c |ition of| LAST-EL|
|00001b40| 45 4d 45 4e 54 20 69 73 | 20 61 73 20 66 6f 6c 6c |EMENT is| as foll|
|00001b50| 6f 77 73 3a 0a 28 44 45 | 46 55 4e 20 4c 41 53 54 |ows:.(DE|FUN LAST|
|00001b60| 2d 45 4c 45 4d 45 4e 54 | 20 28 4c 29 20 28 46 49 |-ELEMENT| (L) (FI|
|00001b70| 52 53 54 20 28 4c 41 53 | 54 20 4c 29 29 29 23 02 |RST (LAS|T L)))#.|
|00001b80| 00 00 00 10 01 27 04 00 | 00 00 2e 07 04 54 45 58 |.....'..|.....TEX|
|00001b90| 54 23 01 00 00 00 07 04 | 43 4e 55 4d 23 01 00 00 |T#......|CNUM#...|
|00001ba0| 00 04 10 01 04 10 02 26 | 2a 4c 65 74 27 73 20 74 |.......&|*Let's t|
|00001bb0| 72 79 20 4c 41 53 54 2d | 45 4c 45 4d 45 4e 54 20 |ry LAST-|ELEMENT |
|00001bc0| 6f 6e 20 28 4f 4e 45 20 | 54 57 4f 20 54 48 52 45 |on (ONE |TWO THRE|
|00001bd0| 45 29 2e 23 01 00 00 00 | 10 01 27 04 00 00 00 2e |E).#....|..'.....|
|00001be0| 07 04 54 45 58 54 23 02 | 00 00 00 07 04 43 4e 55 |..TEXT#.|.....CNU|
|00001bf0| 4d 23 02 00 00 00 04 10 | 01 04 10 02 26 a1 4e 6f |M#......|....&.No|
|00001c00| 77 20 4c 41 53 54 2d 45 | 4c 45 4d 45 4e 54 20 68 |w LAST-E|LEMENT h|
|00001c10| 61 73 20 63 61 6c 6c 65 | 64 20 75 70 6f 6e 20 4c |as calle|d upon L|
|00001c20| 41 53 54 20 62 65 63 61 | 75 73 65 20 69 74 20 69 |AST beca|use it i|
|00001c30| 73 20 77 6f 72 6b 69 6e | 67 20 6f 6e 20 74 68 65 |s workin|g on the|
|00001c40| 0a 65 76 61 6c 75 61 74 | 69 6f 6e 20 6f 66 20 74 |.evaluat|ion of t|
|00001c50| 68 65 20 61 72 67 75 6d | 65 6e 74 20 6f 66 20 28 |he argum|ent of (|
|00001c60| 46 49 52 53 54 20 28 4c | 41 53 54 20 4c 29 29 2e |FIRST (L|AST L)).|
|00001c70| 00 02 4e 6f 74 65 20 74 | 68 61 74 20 4c 41 53 54 |..Note t|hat LAST|
|00001c80| 27 73 0a 61 72 67 75 6d | 65 6e 74 20 69 73 20 28 |'s.argum|ent is (|
|00001c90| 4f 4e 45 20 54 57 4f 20 | 54 48 52 45 45 29 2e 23 |ONE TWO |THREE).#|
|00001ca0| 03 00 00 00 10 01 27 04 | 00 00 00 2e 07 04 54 45 |......'.|......TE|
|00001cb0| 58 54 23 fe ff 00 00 07 | 04 43 4e 55 4d 23 fe ff |XT#.....|.CNUM#..|
|00001cc0| 00 00 04 10 01 04 10 02 | 26 40 4c 41 53 54 20 64 |........|&@LAST d|
|00001cd0| 6f 65 73 20 69 74 73 20 | 63 6f 6d 70 75 74 61 74 |oes its |computat|
|00001ce0| 69 6f 6e 20 61 6e 64 20 | 72 65 74 75 72 6e 73 20 |ion and |returns |
|00001cf0| 61 20 76 61 6c 75 65 2c | 20 77 68 69 63 68 20 69 |a value,| which i|
|00001d00| 73 20 28 54 48 52 45 45 | 29 2e 23 01 00 00 00 10 |s (THREE|).#.....|
|00001d10| 01 27 04 00 00 00 2e 07 | 04 54 45 58 54 23 03 00 |.'......|.TEXT#..|
|00001d20| 00 00 07 04 43 4e 55 4d | 23 03 00 00 00 04 10 01 |....CNUM|#.......|
|00001d30| 04 10 02 26 8b 4e 6f 77 | 20 4c 41 53 54 2d 45 4c |...&.Now| LAST-EL|
|00001d40| 45 4d 45 4e 54 20 68 61 | 73 20 63 61 6c 6c 65 64 |EMENT ha|s called|
|00001d50| 20 75 70 6f 6e 20 46 49 | 52 53 54 20 62 65 63 61 | upon FI|RST beca|
|00001d60| 75 73 65 20 74 68 65 20 | 61 72 67 75 6d 65 6e 74 |use the |argument|
|00001d70| 20 6f 66 0a 28 46 49 52 | 53 54 20 28 4c 41 53 54 | of.(FIR|ST (LAST|
|00001d80| 20 4c 29 29 20 68 61 73 | 20 62 65 65 6e 20 65 76 | L)) has| been ev|
|00001d90| 61 6c 75 61 74 65 64 2e | 00 02 4e 6f 74 65 20 74 |aluated.|..Note t|
|00001da0| 68 61 74 20 46 49 52 53 | 54 27 73 20 61 72 67 75 |hat FIRS|T's argu|
|00001db0| 6d 65 6e 74 0a 69 73 20 | 28 54 48 52 45 45 29 2e |ment.is |(THREE).|
|00001dc0| 23 03 00 00 00 10 01 27 | 04 00 00 00 2e 07 04 54 |#......'|.......T|
|00001dd0| 45 58 54 23 fd ff 00 00 | 07 04 43 4e 55 4d 23 fd |EXT#....|..CNUM#.|
|00001de0| ff 00 00 04 10 01 04 10 | 02 26 4a 46 49 52 53 54 |........|.&JFIRST|
|00001df0| 20 64 6f 65 73 20 69 74 | 73 20 63 6f 6d 70 75 74 | does it|s comput|
|00001e00| 61 74 69 6f 6e 20 61 6e | 64 20 72 65 74 75 72 6e |ation an|d return|
|00001e10| 73 20 61 20 76 61 6c 75 | 65 2c 20 77 68 69 63 68 |s a valu|e, which|
|00001e20| 20 6f 66 20 63 6f 75 72 | 73 65 20 69 73 20 0a 54 | of cour|se is .T|
|00001e30| 48 52 45 45 2e 23 02 00 | 00 00 10 01 27 04 00 00 |HREE.#..|....'...|
|00001e40| 00 2e 07 04 54 45 58 54 | 23 ff ff 00 00 07 04 43 |....TEXT|#......C|
|00001e50| 4e 55 4d 23 ff ff 00 00 | 04 10 01 04 10 02 26 3d |NUM#....|......&=|
|00001e60| 4e 6f 77 20 4c 41 53 54 | 2d 45 4c 45 4d 45 4e 54 |Now LAST|-ELEMENT|
|00001e70| 20 69 73 20 66 69 6e 69 | 73 68 65 64 20 61 6e 64 | is fini|shed and|
|00001e80| 20 72 65 74 75 72 6e 73 | 20 74 68 65 20 64 65 73 | returns| the des|
|00001e90| 69 72 65 64 20 61 6e 73 | 77 65 72 2e 0a 23 02 00 |ired ans|wer..#..|
|00001ea0| 00 00 10 01 27 04 00 00 | 00 2e 04 10 07 27 05 00 |....'...|.....'..|
|00001eb0| 00 00 2e 07 05 53 4c 49 | 44 45 07 0a 45 58 50 4f |.....SLI|DE..EXPO|
|00001ec0| 53 49 54 49 4f 4e 23 0d | 00 00 00 04 07 0a 45 58 |SITION#.|......EX|
|00001ed0| 50 4f 53 49 54 49 4f 4e | 25 87 02 00 00 0a 4e 6f |POSITION|%.....No|
|00001ee0| 72 6d 61 6c 6c 79 2c 20 | 70 65 6f 70 6c 65 20 64 |rmally, |people d|
|00001ef0| 6f 20 6e 6f 74 20 63 72 | 65 61 74 65 20 74 68 65 |o not cr|eate the|
|00001f00| 69 72 20 6f 77 6e 20 4c | 49 53 50 20 70 72 6f 63 |ir own L|ISP proc|
|00001f10| 65 64 75 72 65 73 20 62 | 79 20 74 79 70 69 6e 67 |edures b|y typing|
|00001f20| 0a 44 45 46 55 4e 20 66 | 6f 72 6d 73 20 64 69 72 |.DEFUN f|orms dir|
|00001f30| 65 63 74 6c 79 20 69 6e | 74 6f 20 4c 49 53 50 2e |ectly in|to LISP.|
|00001f40| 00 02 54 68 65 72 65 20 | 61 72 65 20 74 77 6f 20 |..There |are two |
|00001f50| 72 65 61 73 6f 6e 73 3a | 0a 0a 6f 00 04 54 68 65 |reasons:|..o..The|
|00001f60| 20 70 72 6f 63 65 64 75 | 72 65 20 64 65 66 69 6e | procedu|re defin|
|00001f70| 69 74 69 6f 6e 73 20 77 | 6f 75 6c 64 20 62 65 20 |itions w|ould be |
|00001f80| 6c 6f 73 74 20 77 68 65 | 6e 20 79 6f 75 20 6c 65 |lost whe|n you le|
|00001f90| 61 76 65 20 4c 49 53 50 | 2e 0a 0a 6f 00 04 49 74 |ave LISP|...o..It|
|00001fa0| 20 69 73 20 74 6f 6f 20 | 68 61 72 64 20 74 6f 20 | is too |hard to |
|00001fb0| 66 69 78 20 61 20 6d 69 | 73 74 61 6b 65 2e 0a 0a |fix a mi|stake...|
|00001fc0| 43 6f 6e 73 65 71 75 65 | 6e 74 6c 79 2c 20 74 68 |Conseque|ntly, th|
|00001fd0| 65 20 73 74 61 6e 64 61 | 72 64 20 70 72 61 63 74 |e standa|rd pract|
|00001fe0| 69 63 65 20 69 73 20 74 | 6f 20 75 73 65 20 61 20 |ice is t|o use a |
|00001ff0| 74 65 78 74 20 65 64 69 | 74 6f 72 20 74 6f 0a 70 |text edi|tor to.p|
|00002000| 72 65 70 61 72 65 20 66 | 69 6c 65 73 20 63 6f 6e |repare f|iles con|
|00002010| 74 61 69 6e 69 6e 67 20 | 44 45 46 55 4e 20 66 6f |taining |DEFUN fo|
|00002020| 72 6d 73 2c 20 77 68 69 | 63 68 20 61 72 65 20 6c |rms, whi|ch are l|
|00002030| 61 74 65 72 20 72 65 61 | 64 20 62 79 0a 4c 49 53 |ater rea|d by.LIS|
|00002040| 50 20 61 73 20 69 66 20 | 74 68 65 79 20 77 65 72 |P as if |they wer|
|00002050| 65 20 74 79 70 65 64 20 | 69 6e 20 62 79 20 61 6e |e typed |in by an|
|00002060| 20 75 6e 62 65 6c 69 65 | 76 61 62 6c 79 20 66 61 | unbelie|vably fa|
|00002070| 73 74 2c 0a 75 6e 62 65 | 6c 69 65 76 61 62 6c 79 |st,.unbe|lievably|
|00002080| 20 61 63 63 75 72 61 74 | 65 20 74 79 70 69 73 74 | accurat|e typist|
|00002090| 2e 00 02 47 4d 41 43 53 | 2c 20 74 68 65 20 65 64 |...GMACS|, the ed|
|000020a0| 69 74 6f 72 20 74 68 61 | 74 20 63 6f 6d 65 73 20 |itor tha|t comes |
|000020b0| 77 69 74 68 0a 47 6f 6c | 64 65 6e 20 43 6f 6d 6d |with.Gol|den Comm|
|000020c0| 6f 6e 20 4c 49 53 50 20 | 69 73 20 64 65 73 63 72 |on LISP |is descr|
|000020d0| 69 62 65 64 20 6c 61 74 | 65 72 20 69 6e 20 61 6e |ibed lat|er in an|
|000020e0| 6f 74 68 65 72 20 74 72 | 61 79 2e 0a 0a 4d 65 61 |other tr|ay...Mea|
|000020f0| 6e 77 68 69 6c 65 2c 20 | 79 6f 75 20 77 69 6c 6c |nwhile, |you will|
|00002100| 20 62 65 20 61 62 6c 65 | 20 74 6f 20 70 72 61 63 | be able| to prac|
|00002110| 74 69 63 65 20 64 65 66 | 69 6e 69 6e 67 20 73 6d |tice def|ining sm|
|00002120| 61 6c 6c 20 66 75 6e 63 | 74 69 6f 6e 73 0a 62 79 |all func|tions.by|
|00002130| 20 74 79 70 69 6e 67 20 | 74 68 65 6d 20 64 69 72 | typing |them dir|
|00002140| 65 63 74 6c 79 20 69 6e | 74 6f 20 4c 49 53 50 20 |ectly in|to LISP |
|00002150| 69 66 20 79 6f 75 20 61 | 72 65 20 63 61 72 65 66 |if you a|re caref|
|00002160| 75 6c 2e 0a 23 11 00 00 | 00 10 01 04 27 03 00 00 |ul..#...|....'...|
|00002170| 00 2e 27 05 00 00 00 2e | 07 05 53 4c 49 44 45 07 |..'.....|..SLIDE.|
|00002180| 08 50 52 41 43 54 49 43 | 45 23 0e 00 00 00 07 05 |.PRACTIC|E#......|
|00002190| 46 4f 52 4d 53 0b 01 01 | 54 04 10 02 25 79 01 00 |FORMS...|T...%y..|
|000021a0| 00 0a 55 73 69 6e 67 20 | 74 68 65 20 64 69 72 65 |..Using |the dire|
|000021b0| 63 74 2d 61 6e 61 6c 6f | 67 79 20 74 65 63 68 6e |ct-analo|gy techn|
|000021c0| 69 71 75 65 2c 20 64 65 | 66 69 6e 65 20 61 20 70 |ique, de|fine a p|
|000021d0| 72 6f 63 65 64 75 72 65 | 20 6e 61 6d 65 64 0a 42 |rocedure| named.B|
|000021e0| 55 52 4e 2d 43 41 4e 44 | 4c 45 2c 20 77 68 69 63 |URN-CAND|LE, whic|
|000021f0| 68 20 74 61 6b 65 73 20 | 6f 6e 65 20 61 72 67 75 |h takes |one argu|
|00002200| 6d 65 6e 74 2c 20 61 20 | 6c 69 73 74 2c 20 61 6e |ment, a |list, an|
|00002210| 64 20 70 72 6f 64 75 63 | 65 73 20 61 0a 6c 69 73 |d produc|es a.lis|
|00002220| 74 20 77 69 74 68 6f 75 | 74 20 74 68 65 20 66 69 |t withou|t the fi|
|00002230| 72 73 74 20 61 6e 64 20 | 6c 61 73 74 20 65 6c 65 |rst and |last ele|
|00002240| 6d 65 6e 74 73 2e 00 02 | 41 73 73 75 6d 65 20 42 |ments...|Assume B|
|00002250| 55 52 4e 2d 43 41 4e 44 | 4c 45 20 69 73 0a 73 69 |URN-CAND|LE is.si|
|00002260| 6d 69 6c 61 72 2c 20 69 | 6e 20 70 61 72 74 2c 20 |milar, i|n part, |
|00002270| 74 6f 20 42 4f 54 48 2d | 45 4e 44 53 2c 20 64 65 |to BOTH-|ENDS, de|
|00002280| 66 69 6e 65 64 20 62 65 | 6c 6f 77 2e 00 02 59 6f |fined be|low...Yo|
|00002290| 75 20 77 69 6c 6c 20 6e | 65 65 64 20 74 6f 0a 75 |u will n|eed to.u|
|000022a0| 73 65 20 52 45 56 45 52 | 53 45 20 74 77 69 63 65 |se REVER|SE twice|
|000022b0| 20 69 6e 20 79 6f 75 72 | 20 64 65 66 69 6e 69 74 | in your| definit|
|000022c0| 69 6f 6e 2e 0a 0a 28 44 | 45 46 55 4e 20 42 4f 54 |ion...(D|EFUN BOT|
|000022d0| 48 2d 45 4e 44 53 20 28 | 4c 29 00 0c 3b 54 68 65 |H-ENDS (|L)..;The|
|000022e0| 20 70 61 72 61 6d 65 74 | 65 72 20 69 73 20 4c 2e | paramet|er is L.|
|000022f0| 0a 00 02 28 43 4f 4e 53 | 20 28 46 49 52 53 54 20 |...(CONS| (FIRST |
|00002300| 4c 29 20 28 52 45 53 54 | 20 4c 29 29 29 00 04 3b |L) (REST| L)))..;|
|00002310| 54 68 65 20 66 6f 72 6d | 2e 0a 23 0a 00 00 00 10 |The form|..#.....|
|00002320| 01 27 05 00 00 00 2e 07 | 05 53 4c 49 44 45 07 0a |.'......|.SLIDE..|
|00002330| 45 58 50 4f 53 49 54 49 | 4f 4e 23 0f 00 00 00 04 |EXPOSITI|ON#.....|
|00002340| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 25 53 01 00 |..EXPOSI|TION%S..|
|00002350| 00 0a 59 6f 75 72 20 72 | 65 70 65 72 74 6f 69 72 |..Your r|epertoir|
|00002360| 65 20 6f 66 20 67 65 6e | 65 72 61 6c 20 70 61 74 |e of gen|eral pat|
|00002370| 74 65 72 6e 73 20 61 6e | 64 20 73 70 65 63 69 66 |terns an|d specif|
|00002380| 69 63 20 65 78 61 6d 70 | 6c 65 73 20 62 65 63 6f |ic examp|les beco|
|00002390| 6d 65 73 0a 79 6f 75 72 | 20 6d 65 6e 74 61 6c 20 |mes.your| mental |
|000023a0| 54 45 4d 50 4c 41 54 45 | 20 4b 49 54 20 66 6f 72 |TEMPLATE| KIT for|
|000023b0| 20 66 75 74 75 72 65 20 | 70 72 6f 67 72 61 6d 6d | future |programm|
|000023c0| 69 6e 67 2e 0a 0a 41 73 | 20 79 6f 75 20 62 65 63 |ing...As| you bec|
|000023d0| 6f 6d 65 20 65 78 70 65 | 72 69 65 6e 63 65 64 2c |ome expe|rienced,|
|000023e0| 20 79 6f 75 20 55 4e 43 | 4f 4e 53 43 49 4f 55 53 | you UNC|ONSCIOUS|
|000023f0| 4c 59 20 61 63 63 75 6d | 75 6c 61 74 65 20 6d 6f |LY accum|ulate mo|
|00002400| 72 65 20 61 6e 64 0a 6d | 6f 72 65 20 70 61 74 74 |re and.m|ore patt|
|00002410| 65 72 6e 73 20 61 6e 64 | 20 65 78 61 6d 70 6c 65 |erns and| example|
|00002420| 73 20 66 6f 72 20 79 6f | 75 72 20 74 65 6d 70 6c |s for yo|ur templ|
|00002430| 61 74 65 20 6b 69 74 2e | 0a 0a 4d 75 63 68 20 6f |ate kit.|..Much o|
|00002440| 66 20 74 68 65 20 41 52 | 54 20 4f 46 20 50 52 4f |f the AR|T OF PRO|
|00002450| 47 52 41 4d 4d 49 4e 47 | 20 6c 69 65 73 20 69 6e |GRAMMING| lies in|
|00002460| 20 68 61 76 69 6e 67 20 | 61 20 67 6f 6f 64 20 74 | having |a good t|
|00002470| 65 6d 70 6c 61 74 65 20 | 6b 69 74 0a 6f 66 20 68 |emplate |kit.of h|
|00002480| 69 67 68 2d 71 75 61 6c | 69 74 79 20 74 65 6d 70 |igh-qual|ity temp|
|00002490| 6c 61 74 65 73 20 74 6f | 20 77 6f 72 6b 20 66 72 |lates to| work fr|
|000024a0| 6f 6d 2e 0a 23 0a 00 00 | 00 10 01 04 27 03 00 00 |om..#...|....'...|
|000024b0| 00 2e 27 05 00 00 00 2e | 07 05 53 4c 49 44 45 07 |..'.....|..SLIDE.|
|000024c0| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 23 10 00 00 00 |.EXPOSIT|ION#....|
|000024d0| 04 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 25 30 01 |...EXPOS|ITION%0.|
|000024e0| 00 00 0a 54 68 65 72 65 | 20 61 72 65 20 74 77 6f |...There| are two|
|000024f0| 20 77 61 79 73 20 74 6f | 20 68 65 6c 70 20 64 65 | ways to| help de|
|00002500| 76 65 6c 6f 70 20 79 6f | 75 72 20 70 72 6f 63 65 |velop yo|ur proce|
|00002510| 64 75 72 65 2d 64 65 66 | 69 6e 69 74 69 6f 6e 0a |dure-def|inition.|
|00002520| 73 6b 69 6c 6c 73 2e 00 | 02 59 6f 75 20 6e 6f 77 |skills..|.You now|
|00002530| 20 6b 6e 6f 77 20 61 62 | 6f 75 74 20 74 68 65 20 | know ab|out the |
|00002540| 66 69 72 73 74 3a 0a 0a | 6f 00 04 59 6f 75 20 63 |first:..|o..You c|
|00002550| 61 6e 20 64 65 66 69 6e | 65 20 61 20 6e 65 77 20 |an defin|e a new |
|00002560| 70 72 6f 63 65 64 75 72 | 65 20 62 79 20 65 78 70 |procedur|e by exp|
|00002570| 6c 6f 69 74 69 6e 67 20 | 61 6e 61 6c 6f 67 69 65 |loiting |analogie|
|00002580| 73 20 77 69 74 68 0a 00 | 05 6f 6c 64 20 6f 6e 65 |s with..|.old one|
|00002590| 73 2e 0a 0a 4e 6f 77 20 | 69 74 20 69 73 20 74 69 |s...Now |it is ti|
|000025a0| 6d 65 20 74 6f 20 6c 6f | 6f 6b 20 61 74 20 74 68 |me to lo|ok at th|
|000025b0| 65 20 73 65 63 6f 6e 64 | 3a 0a 0a 6f 00 04 59 6f |e second|:..o..Yo|
|000025c0| 75 20 63 61 6e 20 77 6f | 72 6b 20 6f 75 74 20 61 |u can wo|rk out a|
|000025d0| 20 6e 65 77 20 70 72 6f | 63 65 64 75 72 65 27 73 | new pro|cedure's|
|000025e0| 20 62 6f 64 79 20 62 79 | 20 77 61 6c 6b 69 6e 67 | body by| walking|
|000025f0| 20 74 68 72 6f 75 67 68 | 0a 00 05 77 68 61 74 20 | through|...what |
|00002600| 6e 65 65 64 73 20 74 6f | 20 62 65 20 64 6f 6e 65 |needs to| be done|
|00002610| 2e 0a 23 0c 00 00 00 10 | 01 04 27 03 00 00 00 2e |..#.....|..'.....|
|00002620| 27 05 00 00 00 2e 07 05 | 53 4c 49 44 45 07 0a 45 |'.......|SLIDE..E|
|00002630| 58 50 4f 53 49 54 49 4f | 4e 23 11 00 00 00 04 07 |XPOSITIO|N#......|
|00002640| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 25 56 02 00 00 |.EXPOSIT|ION%V...|
|00002650| 0a 4c 65 74 27 73 20 6c | 6f 6f 6b 20 61 74 20 74 |.Let's l|ook at t|
|00002660| 68 65 20 4f 55 52 2d 54 | 48 49 52 44 20 65 78 61 |he OUR-T|HIRD exa|
|00002670| 6d 70 6c 65 20 66 72 6f | 6d 20 74 68 65 20 77 61 |mple fro|m the wa|
|00002680| 6c 6b 2d 74 68 72 6f 75 | 67 68 0a 70 65 72 73 70 |lk-throu|gh.persp|
|00002690| 65 63 74 69 76 65 2e 00 | 02 48 65 72 65 20 69 73 |ective..|.Here is|
|000026a0| 20 61 20 73 61 6d 70 6c | 65 20 73 63 65 6e 61 72 | a sampl|e scenar|
|000026b0| 69 6f 3a 0a 0a 31 2e 00 | 02 49 20 6e 65 65 64 20 |io:..1..|.I need |
|000026c0| 61 20 70 72 6f 63 65 64 | 75 72 65 20 74 6f 20 66 |a proced|ure to f|
|000026d0| 69 6e 64 20 74 68 65 20 | 74 68 69 72 64 20 65 6c |ind the |third el|
|000026e0| 65 6d 65 6e 74 20 6f 66 | 20 61 20 6c 69 73 74 2e |ement of| a list.|
|000026f0| 00 02 42 79 0a 00 04 6e | 6f 77 2c 20 61 6c 6d 6f |..By...n|ow, almo|
|00002700| 73 74 20 61 73 20 69 66 | 20 69 74 20 77 65 72 65 |st as if| it were|
|00002710| 20 61 20 63 6f 6e 64 69 | 74 69 6f 6e 65 64 20 72 | a condi|tioned r|
|00002720| 65 66 6c 65 78 2c 20 49 | 20 73 74 61 72 74 20 62 |eflex, I| start b|
|00002730| 79 0a 00 04 73 65 74 74 | 69 6e 67 20 75 70 20 61 |y...sett|ing up a|
|00002740| 20 70 72 6f 63 65 64 75 | 72 65 20 64 65 66 69 6e | procedu|re defin|
|00002750| 69 74 69 6f 6e 20 66 6f | 72 20 61 20 70 72 6f 63 |ition fo|r a proc|
|00002760| 65 64 75 72 65 2c 20 6e | 61 6d 65 64 0a 00 04 4f |edure, n|amed...O|
|00002770| 55 52 2d 54 48 49 52 44 | 2c 20 77 69 74 68 20 6f |UR-THIRD|, with o|
|00002780| 6e 65 20 70 61 72 61 6d | 65 74 65 72 2c 20 4c 3a |ne param|eter, L:|
|00002790| 0a 0a 28 44 45 46 55 4e | 20 4f 55 52 2d 54 48 49 |..(DEFUN| OUR-THI|
|000027a0| 52 44 20 28 4c 29 0a 00 | 02 2e 2e 2e 29 0a 0a 32 |RD (L)..|....)..2|
|000027b0| 2e 00 02 54 68 65 20 71 | 75 65 73 74 69 6f 6e 20 |...The q|uestion |
|000027c0| 69 73 2c 20 57 68 61 74 | 20 73 68 6f 75 6c 64 20 |is, What| should |
|000027d0| 62 65 20 69 6e 20 74 68 | 65 20 62 6f 64 79 2e 00 |be in th|e body..|
|000027e0| 02 4c 65 74 20 6d 65 20 | 66 6f 72 67 65 74 0a 00 |.Let me |forget..|
|000027f0| 04 61 62 6f 75 74 20 4f | 55 52 2d 54 48 49 52 44 |.about O|UR-THIRD|
|00002800| 20 66 6f 72 20 61 20 77 | 68 69 6c 65 20 61 6e 64 | for a w|hile and|
|00002810| 20 66 6f 6f 6c 20 77 69 | 74 68 20 73 6f 6d 65 20 | fool wi|th some |
|00002820| 70 72 69 6d 69 74 69 76 | 65 73 0a 00 04 75 73 69 |primitiv|es...usi|
|00002830| 6e 67 20 61 20 73 61 6d | 70 6c 65 20 6c 69 73 74 |ng a sam|ple list|
|00002840| 2e 0a 0a 33 2e 00 02 49 | 6e 20 66 61 63 74 2c 20 |...3...I|n fact, |
|00002850| 6c 65 74 20 6d 65 20 75 | 73 65 20 53 45 54 46 20 |let me u|se SETF |
|00002860| 74 6f 20 68 61 6e 67 20 | 6f 6e 20 74 6f 20 6d 79 |to hang |on to my|
|00002870| 20 73 61 6d 70 6c 65 20 | 6c 69 73 74 3a 0a 0a 2a | sample |list:..*|
|00002880| 20 28 53 45 54 46 20 4c | 20 27 28 41 20 42 20 43 | (SETF L| '(A B C|
|00002890| 20 44 29 29 0a 0a 28 63 | 6f 6e 74 69 6e 75 65 64 | D))..(c|ontinued|
|000028a0| 20 2e 2e 2e 29 0a 23 16 | 00 00 00 10 01 04 27 03 | ...).#.|......'.|
|000028b0| 00 00 00 2e 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|000028c0| 45 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 23 12 00 |E..EXPOS|ITION#..|
|000028d0| 00 00 04 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 25 |.....EXP|OSITION%|
|000028e0| 97 01 00 00 0a 34 2e 00 | 02 4e 6f 77 20 4c 27 73 |.....4..|.Now L's|
|000028f0| 20 76 61 6c 75 65 20 69 | 73 20 28 41 20 42 20 43 | value i|s (A B C|
|00002900| 20 44 29 3b 20 69 66 20 | 49 20 75 73 65 20 52 45 | D); if |I use RE|
|00002910| 53 54 20 6f 6e 20 74 68 | 65 20 73 61 6d 70 6c 65 |ST on th|e sample|
|00002920| 20 6c 69 73 74 2c 0a 00 | 04 49 20 63 61 6e 20 67 | list,..|.I can g|
|00002930| 65 74 20 72 69 64 20 6f | 66 20 74 68 65 20 66 69 |et rid o|f the fi|
|00002940| 72 73 74 20 65 6c 65 6d | 65 6e 74 3a 0a 0a 2a 20 |rst elem|ent:..* |
|00002950| 28 52 45 53 54 20 4c 29 | 0a 28 42 20 43 20 44 29 |(REST L)|.(B C D)|
|00002960| 0a 0a 35 2e 00 02 48 6d | 6d 6d 2e 00 02 49 27 6d |..5...Hm|mm...I'm|
|00002970| 20 67 65 74 74 69 6e 67 | 20 63 6c 6f 73 65 20 74 | getting| close t|
|00002980| 6f 20 77 68 65 72 65 20 | 49 20 63 61 6e 20 6a 75 |o where |I can ju|
|00002990| 73 74 20 75 73 65 20 46 | 49 52 53 54 2c 20 62 75 |st use F|IRST, bu|
|000029a0| 74 0a 00 04 49 20 73 68 | 6f 75 6c 64 20 67 65 74 |t...I sh|ould get|
|000029b0| 20 72 69 64 20 6f 66 20 | 74 68 65 20 42 20 69 6e | rid of |the B in|
|000029c0| 20 28 42 20 43 20 44 29 | 20 77 69 74 68 20 61 6e | (B C D)| with an|
|000029d0| 6f 74 68 65 72 20 52 45 | 53 54 3a 0a 0a 2a 20 28 |other RE|ST:..* (|
|000029e0| 52 45 53 54 20 28 52 45 | 53 54 20 4c 29 29 0a 28 |REST (RE|ST L)).(|
|000029f0| 43 20 44 29 0a 0a 36 2e | 00 02 47 6f 74 20 69 74 |C D)..6.|..Got it|
|00002a00| 21 00 02 4e 6f 77 20 49 | 27 6c 6c 20 61 64 64 20 |!..Now I|'ll add |
|00002a10| 46 49 52 53 54 20 74 6f | 20 77 68 61 74 20 49 20 |FIRST to| what I |
|00002a20| 68 61 76 65 2c 20 61 6e | 64 20 49 20 77 69 6c 6c |have, an|d I will|
|00002a30| 20 67 65 74 20 43 2c 0a | 00 04 74 68 65 20 74 68 | get C,.|..the th|
|00002a40| 69 72 64 20 65 6c 65 6d | 65 6e 74 2e 0a 0a 2a 20 |ird elem|ent...* |
|00002a50| 28 46 49 52 53 54 20 28 | 52 45 53 54 20 28 52 45 |(FIRST (|REST (RE|
|00002a60| 53 54 20 4c 29 29 29 0a | 43 0a 0a 28 63 6f 6e 74 |ST L))).|C..(cont|
|00002a70| 69 6e 75 65 64 20 2e 2e | 2e 29 0a 23 15 00 00 00 |inued ..|.).#....|
|00002a80| 10 01 04 27 03 00 00 00 | 2e 27 05 00 00 00 2e 07 |...'....|.'......|
|00002a90| 05 53 4c 49 44 45 07 0a | 45 58 50 4f 53 49 54 49 |.SLIDE..|EXPOSITI|
|00002aa0| 4f 4e 23 13 00 00 00 04 | 07 0a 45 58 50 4f 53 49 |ON#.....|..EXPOSI|
|00002ab0| 54 49 4f 4e 25 f4 01 00 | 00 0a 49 20 68 61 76 65 |TION%...|..I have|
|00002ac0| 20 65 73 74 61 62 6c 69 | 73 68 65 64 20 74 68 61 | establi|shed tha|
|00002ad0| 74 20 28 46 49 52 53 54 | 20 28 52 45 53 54 20 28 |t (FIRST| (REST (|
|00002ae0| 52 45 53 54 20 4c 29 29 | 29 20 70 72 6f 64 75 63 |REST L))|) produc|
|00002af0| 65 73 20 74 68 65 0a 74 | 68 69 72 64 20 65 6c 65 |es the.t|hird ele|
|00002b00| 6d 65 6e 74 20 69 6e 20 | 74 68 65 20 73 61 6d 70 |ment in |the samp|
|00002b10| 6c 65 20 6c 69 73 74 2c | 20 4c 2e 0a 0a 37 2e 00 |le list,| L...7..|
|00002b20| 02 4e 6f 77 2c 20 66 6f | 72 20 74 68 65 20 65 78 |.Now, fo|r the ex|
|00002b30| 63 69 74 69 6e 67 20 63 | 6f 6e 63 6c 75 73 69 6f |citing c|onclusio|
|00002b40| 6e 2c 20 49 20 72 65 63 | 61 6c 6c 20 68 6f 77 20 |n, I rec|all how |
|00002b50| 49 20 68 61 76 65 20 77 | 6f 72 6b 65 64 0a 00 04 |I have w|orked...|
|00002b60| 6f 75 74 20 74 68 65 20 | 70 72 6f 62 6c 65 6d 20 |out the |problem |
|00002b70| 6f 6e 20 73 6f 6d 65 20 | 73 61 6d 70 6c 65 20 64 |on some |sample d|
|00002b80| 61 74 61 2e 0a 0a 00 04 | 49 20 73 68 72 65 77 64 |ata.....|I shrewd|
|00002b90| 6c 79 20 68 75 6e 67 20 | 6f 6e 20 74 6f 20 74 68 |ly hung |on to th|
|00002ba0| 65 20 73 61 6d 70 6c 65 | 20 64 61 74 61 20 75 73 |e sample| data us|
|00002bb0| 69 6e 67 20 61 20 76 61 | 72 69 61 62 6c 65 20 77 |ing a va|riable w|
|00002bc0| 68 6f 73 65 0a 00 04 6e | 61 6d 65 20 69 73 20 74 |hose...n|ame is t|
|00002bd0| 68 65 20 73 61 6d 65 20 | 61 73 20 74 68 65 20 6e |he same |as the n|
|00002be0| 61 6d 65 20 6f 66 20 70 | 61 72 61 6d 65 74 65 72 |ame of p|arameter|
|00002bf0| 20 49 20 69 6e 74 65 6e | 64 20 74 6f 20 75 73 65 | I inten|d to use|
|00002c00| 2e 0a 0a 00 04 4e 6f 77 | 20 49 20 6a 75 73 74 20 |.....Now| I just |
|00002c10| 73 74 69 63 6b 20 69 6e | 74 6f 20 74 68 65 20 70 |stick in|to the p|
|00002c20| 72 6f 63 65 64 75 72 65 | 20 74 68 65 20 73 74 65 |rocedure| the ste|
|00002c30| 70 73 20 74 68 61 74 20 | 49 20 75 73 65 64 0a 00 |ps that |I used..|
|00002c40| 04 77 68 69 6c 65 20 66 | 6f 6f 6c 69 6e 67 20 61 |.while f|ooling a|
|00002c50| 72 6f 75 6e 64 3a 0a 0a | 28 44 45 46 55 4e 20 4f |round:..|(DEFUN O|
|00002c60| 55 52 2d 54 48 49 52 44 | 20 28 4c 29 0a 00 02 28 |UR-THIRD| (L)...(|
|00002c70| 46 49 52 53 54 20 28 52 | 45 53 54 20 28 52 45 53 |FIRST (R|EST (RES|
|00002c80| 54 20 4c 29 29 29 29 20 | 3b 46 6f 6f 6c 69 6e 67 |T L)))) |;Fooling|
|00002c90| 2d 61 72 6f 75 6e 64 2c | 20 77 61 6c 6b 2d 74 68 |-around,| walk-th|
|00002ca0| 72 6f 75 67 68 20 73 74 | 65 70 73 2e 0a 23 10 00 |rough st|eps..#..|
|00002cb0| 00 00 10 01 04 27 03 00 | 00 00 2e 27 05 00 00 00 |.....'..|...'....|
|00002cc0| 2e 07 05 53 4c 49 44 45 | 07 08 45 58 41 4d 50 4c |...SLIDE|..EXAMPL|
|00002cd0| 45 53 23 14 00 00 00 04 | 07 0d 45 58 41 4d 50 4c |ES#.....|..EXAMPL|
|00002ce0| 45 2d 47 52 4f 55 50 26 | e9 0a 4e 6f 77 20 6c 65 |E-GROUP&|..Now le|
|00002cf0| 74 27 73 20 74 72 79 20 | 74 6f 20 63 72 65 61 74 |t's try |to creat|
|00002d00| 65 20 61 20 70 72 6f 63 | 65 64 75 72 65 20 66 6f |e a proc|edure fo|
|00002d10| 72 20 61 64 64 69 6e 67 | 20 61 20 73 79 6d 62 6f |r adding| a symbo|
|00002d20| 6c 20 74 6f 20 74 68 65 | 0a 65 6e 64 20 6f 66 20 |l to the|.end of |
|00002d30| 61 20 6c 69 73 74 20 75 | 73 69 6e 67 20 74 68 65 |a list u|sing the|
|00002d40| 20 77 61 6c 6b 2d 74 68 | 72 6f 75 67 68 20 74 65 | walk-th|rough te|
|00002d50| 63 68 6e 69 71 75 65 2e | 00 02 4e 6f 74 65 20 74 |chnique.|..Note t|
|00002d60| 68 69 73 3a 0a 0a 28 44 | 45 46 55 4e 20 41 44 44 |his:..(D|EFUN ADD|
|00002d70| 2d 54 4f 2d 46 52 4f 4e | 54 20 28 41 31 20 41 32 |-TO-FRON|T (A1 A2|
|00002d80| 29 00 03 3b 41 31 20 61 | 6e 64 20 41 32 20 61 72 |)..;A1 a|nd A2 ar|
|00002d90| 65 20 74 68 65 20 70 61 | 72 61 6d 65 74 65 72 73 |e the pa|rameters|
|00002da0| 2e 0a 00 02 28 43 4f 4e | 53 20 41 31 20 41 32 29 |....(CON|S A1 A2)|
|00002db0| 29 00 0f 3b 54 68 65 72 | 65 20 69 73 20 6f 6e 65 |)..;Ther|e is one|
|00002dc0| 20 66 6f 72 6d 20 69 6e | 20 74 68 65 20 62 6f 64 | form in| the bod|
|00002dd0| 79 2e 23 06 00 00 00 10 | 01 26 34 57 68 61 74 20 |y.#.....|.&4What |
|00002de0| 73 68 6f 75 6c 64 20 41 | 44 44 2d 54 4f 2d 42 41 |should A|DD-TO-BA|
|00002df0| 43 4b 20 6c 6f 6f 6b 20 | 6c 69 6b 65 2c 20 77 69 |CK look |like, wi|
|00002e00| 74 68 6f 75 74 20 74 68 | 65 20 62 6f 64 79 3f 23 |thout th|e body?#|
|00002e10| 01 00 00 00 10 01 26 42 | 0a 28 44 45 46 55 4e 20 |......&B|.(DEFUN |
|00002e20| 41 44 44 2d 54 4f 2d 42 | 41 43 4b 20 28 41 31 20 |ADD-TO-B|ACK (A1 |
|00002e30| 41 32 29 00 04 3b 41 31 | 20 61 6e 64 20 41 32 20 |A2)..;A1| and A2 |
|00002e40| 61 72 65 20 74 68 65 20 | 70 61 72 61 6d 65 74 65 |are the |paramete|
|00002e50| 72 73 2e 0a 00 02 2e 2e | 2e 29 23 03 00 00 00 10 |rs......|.)#.....|
|00002e60| 01 27 04 00 00 00 2e 04 | 10 01 27 05 00 00 00 2e |.'......|..'.....|
|00002e70| 07 05 53 4c 49 44 45 07 | 08 45 58 41 4d 50 4c 45 |..SLIDE.|.EXAMPLE|
|00002e80| 53 23 15 00 00 00 04 07 | 0d 45 58 41 4d 50 4c 45 |S#......|.EXAMPLE|
|00002e90| 2d 47 52 4f 55 50 26 4a | 41 73 73 75 6d 65 20 6e |-GROUP&J|Assume n|
|00002ea0| 6f 77 20 74 68 61 74 20 | 41 31 27 73 20 76 61 6c |ow that |A1's val|
|00002eb0| 75 65 20 69 73 20 4b 49 | 4e 47 3b 0a 61 6e 64 20 |ue is KI|NG;.and |
|00002ec0| 61 73 73 75 6d 65 20 41 | 32 27 73 20 76 61 6c 75 |assume A|2's valu|
|00002ed0| 65 20 69 73 20 28 4a 41 | 43 4b 20 51 55 45 45 4e |e is (JA|CK QUEEN|
|00002ee0| 29 20 23 02 00 00 00 10 | 01 26 22 0a 57 68 61 74 |) #.....|.&".What|
|00002ef0| 20 69 73 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 | is the |value of|
|00002f00| 20 28 4c 49 53 54 20 41 | 32 20 41 31 29 23 02 00 | (LIST A|2 A1)#..|
|00002f10| 00 00 10 01 26 14 0a 28 | 28 4a 41 43 4b 20 51 55 |....&..(|(JACK QU|
|00002f20| 45 45 4e 29 20 4b 49 4e | 47 29 23 02 00 00 00 10 |EEN) KIN|G)#.....|
|00002f30| 01 27 04 00 00 00 2e 07 | 0d 45 58 41 4d 50 4c 45 |.'......|.EXAMPLE|
|00002f40| 2d 47 52 4f 55 50 26 34 | 4f 6f 6f 70 73 2c 20 6e |-GROUP&4|Ooops, n|
|00002f50| 6f 74 20 77 68 61 74 20 | 77 65 20 77 61 6e 74 2e |ot what |we want.|
|00002f60| 00 02 57 65 20 77 61 6e | 74 20 28 4a 41 43 4b 20 |..We wan|t (JACK |
|00002f70| 51 55 45 45 4e 20 4b 49 | 4e 47 29 2e 23 01 00 00 |QUEEN KI|NG).#...|
|00002f80| 00 10 01 26 19 0a 48 6f | 77 20 61 62 6f 75 74 20 |...&..Ho|w about |
|00002f90| 28 41 50 50 45 4e 44 20 | 41 32 20 41 31 29 23 02 |(APPEND |A2 A1)#.|
|00002fa0| 00 00 00 10 01 26 1a 0a | 45 72 72 6f 72 3a 00 02 |.....&..|Error:..|
|00002fb0| 41 31 20 69 73 20 6e 6f | 74 20 61 20 6c 69 73 74 |A1 is no|t a list|
|00002fc0| 2e 23 02 00 00 00 10 01 | 27 04 00 00 00 2e 04 10 |.#......|'.......|
|00002fd0| 02 27 05 00 00 00 2e 07 | 05 53 4c 49 44 45 07 08 |.'......|.SLIDE..|
|00002fe0| 45 58 41 4d 50 4c 45 53 | 23 16 00 00 00 04 07 0d |EXAMPLES|#.......|
|00002ff0| 45 58 41 4d 50 4c 45 2d | 47 52 4f 55 50 26 3f 52 |EXAMPLE-|GROUP&?R|
|00003000| 65 63 61 6c 6c 20 74 68 | 61 74 20 41 31 27 73 20 |ecall th|at A1's |
|00003010| 76 61 6c 75 65 20 69 73 | 20 4b 49 4e 47 3b 0a 61 |value is| KING;.a|
|00003020| 6e 64 20 41 32 27 73 20 | 76 61 6c 75 65 20 69 73 |nd A2's |value is|
|00003030| 20 28 4a 41 43 4b 20 51 | 55 45 45 4e 29 20 23 02 | (JACK Q|UEEN) #.|
|00003040| 00 00 00 10 01 26 20 0a | 48 6f 77 20 63 61 6e 20 |.....& .|How can |
|00003050| 77 65 20 6d 61 6b 65 20 | 41 31 20 69 6e 74 6f 20 |we make |A1 into |
|00003060| 61 20 6c 69 73 74 3f 23 | 02 00 00 00 10 01 26 0a |a list?#|......&.|
|00003070| 0a 28 4c 49 53 54 20 41 | 31 29 23 02 00 00 00 10 |.(LIST A|1)#.....|
|00003080| 01 27 04 00 00 00 2e 07 | 0d 45 58 41 4d 50 4c 45 |.'......|.EXAMPLE|
|00003090| 2d 47 52 4f 55 50 04 26 | 1f 0a 57 68 61 74 27 73 |-GROUP.&|..What's|
|000030a0| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 28 4c | the val|ue of (L|
|000030b0| 49 53 54 20 41 31 29 3f | 23 02 00 00 00 10 01 26 |IST A1)?|#......&|
|000030c0| 07 0a 28 4b 49 4e 47 29 | 23 02 00 00 00 10 01 27 |..(KING)|#......'|
|000030d0| 04 00 00 00 2e 04 10 02 | 27 05 00 00 00 2e 07 05 |........|'.......|
|000030e0| 53 4c 49 44 45 07 08 45 | 58 41 4d 50 4c 45 53 23 |SLIDE..E|XAMPLES#|
|000030f0| 17 00 00 00 04 07 0d 45 | 58 41 4d 50 4c 45 2d 47 |.......E|XAMPLE-G|
|00003100| 52 4f 55 50 26 3f 52 65 | 63 61 6c 6c 20 74 68 61 |ROUP&?Re|call tha|
|00003110| 74 20 41 31 27 73 20 76 | 61 6c 75 65 20 69 73 20 |t A1's v|alue is |
|00003120| 4b 49 4e 47 3b 0a 61 6e | 64 20 41 32 27 73 20 76 |KING;.an|d A2's v|
|00003130| 61 6c 75 65 20 69 73 20 | 28 4a 41 43 4b 20 51 55 |alue is |(JACK QU|
|00003140| 45 45 4e 29 20 23 02 00 | 00 00 10 01 26 22 0a 4f |EEN) #..|....&".O|
|00003150| 6b 2c 20 77 68 61 74 20 | 69 73 20 28 41 50 50 45 |k, what |is (APPE|
|00003160| 4e 44 20 41 32 20 28 4c | 49 53 54 20 41 31 29 29 |ND A2 (L|IST A1))|
|00003170| 23 02 00 00 00 10 01 26 | 12 0a 28 4a 41 43 4b 20 |#......&|..(JACK |
|00003180| 51 55 45 45 4e 20 4b 49 | 4e 47 29 23 02 00 00 00 |QUEEN KI|NG)#....|
|00003190| 10 01 27 04 00 00 00 2e | 07 0d 45 58 41 4d 50 4c |..'.....|..EXAMPL|
|000031a0| 45 2d 47 52 4f 55 50 04 | 26 39 0a 43 6f 6d 70 6c |E-GROUP.|&9.Compl|
|000031b0| 65 74 65 20 74 68 65 20 | 64 65 66 69 6e 69 74 69 |ete the |definiti|
|000031c0| 6f 6e 2c 20 28 44 45 46 | 55 4e 20 41 44 44 2d 54 |on, (DEF|UN ADD-T|
|000031d0| 4f 2d 42 41 43 4b 20 28 | 41 31 20 41 32 29 20 2e |O-BACK (|A1 A2) .|
|000031e0| 2e 2e 29 23 02 00 00 00 | 10 01 26 33 0a 28 44 45 |..)#....|..&3.(DE|
|000031f0| 46 55 4e 20 41 44 44 2d | 54 4f 2d 42 41 43 4b 20 |FUN ADD-|TO-BACK |
|00003200| 28 41 31 20 41 32 29 20 | 28 41 50 50 45 4e 44 20 |(A1 A2) |(APPEND |
|00003210| 41 32 20 28 4c 49 53 54 | 20 41 31 29 29 29 0a 23 |A2 (LIST| A1))).#|
|00003220| 03 00 00 00 10 01 27 04 | 00 00 00 2e 04 10 02 27 |......'.|.......'|
|00003230| 05 00 00 00 2e 07 05 53 | 4c 49 44 45 07 08 50 52 |.......S|LIDE..PR|
|00003240| 41 43 54 49 43 45 23 18 | 00 00 00 07 05 46 4f 52 |ACTICE#.|.....FOR|
|00003250| 4d 53 0b 01 01 54 04 10 | 02 26 f1 0a 55 73 69 6e |MS...T..|.&..Usin|
|00003260| 67 20 74 68 65 20 77 61 | 6c 6b 2d 74 68 72 6f 75 |g the wa|lk-throu|
|00003270| 67 68 20 74 65 63 68 6e | 69 71 75 65 2c 20 64 65 |gh techn|ique, de|
|00003280| 66 69 6e 65 20 61 20 70 | 72 6f 63 65 64 75 72 65 |fine a p|rocedure|
|00003290| 2c 0a 52 45 56 45 52 53 | 45 2d 50 41 49 52 2c 20 |,.REVERS|E-PAIR, |
|000032a0| 74 68 61 74 20 74 61 6b | 65 73 20 6f 6e 65 20 61 |that tak|es one a|
|000032b0| 72 67 75 6d 65 6e 74 2c | 20 61 20 6c 69 73 74 20 |rgument,| a list |
|000032c0| 6f 66 20 74 77 6f 20 65 | 6c 65 6d 65 6e 74 73 2c |of two e|lements,|
|000032d0| 0a 61 6e 64 20 70 72 6f | 64 75 63 65 73 20 61 20 |.and pro|duces a |
|000032e0| 6e 65 77 20 6c 69 73 74 | 20 6f 66 20 74 68 65 20 |new list| of the |
|000032f0| 73 61 6d 65 20 74 77 6f | 20 65 6c 65 6d 65 6e 74 |same two| element|
|00003300| 73 20 69 6e 20 72 65 76 | 65 72 73 65 0a 6f 72 64 |s in rev|erse.ord|
|00003310| 65 72 2e 0a 0a 44 6f 20 | 69 74 20 6f 6e 63 65 20 |er...Do |it once |
|00003320| 77 69 74 68 20 52 45 56 | 45 52 53 45 2e 0a 0a 44 |with REV|ERSE...D|
|00003330| 6f 20 69 74 20 61 67 61 | 69 6e 20 77 69 74 68 6f |o it aga|in witho|
|00003340| 75 74 20 52 45 56 45 52 | 53 45 2e 0a 23 0a 00 00 |ut REVER|SE..#...|
|00003350| 00 10 01 27 05 00 00 00 | 2e 07 05 53 4c 49 44 45 |...'....|...SLIDE|
|00003360| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 23 19 00 00 |..EXPOSI|TION#...|
|00003370| 00 04 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 25 0a |....EXPO|SITION%.|
|00003380| 01 00 00 0a 52 65 6d 65 | 6d 62 65 72 20 2e 2e 2e |....Reme|mber ...|
|00003390| 0a 0a 6f 00 04 49 46 20 | 79 6f 75 20 77 61 6e 74 |..o..IF |you want|
|000033a0| 20 74 6f 20 64 65 66 69 | 6e 65 20 61 20 6e 65 77 | to defi|ne a new|
|000033b0| 20 70 72 6f 63 65 64 75 | 72 65 2c 0a 00 05 54 48 | procedu|re,...TH|
|000033c0| 45 4e 20 73 74 61 72 74 | 20 77 69 74 68 20 61 6e |EN start| with an|
|000033d0| 20 65 6d 70 74 79 20 73 | 68 65 6c 6c 3a 0a 0a 00 | empty s|hell:...|
|000033e0| 05 28 44 45 46 55 4e 20 | 3c 70 72 6f 63 65 64 75 |.(DEFUN |<procedu|
|000033f0| 72 65 20 6e 61 6d 65 3e | 20 28 3c 70 61 72 61 6d |re name>| (<param|
|00003400| 65 74 65 72 73 3e 29 0a | 00 07 3c 66 6f 72 6d 20 |eters>).|..<form |
|00003410| 31 3e 0a 00 07 3c 66 6f | 72 6d 20 32 3e 0a 00 07 |1>...<fo|rm 2>...|
|00003420| 2e 2e 2e 0a 00 07 3c 66 | 6f 72 6d 20 6e 3e 29 0a |......<f|orm n>).|
|00003430| 0a 00 05 41 4e 44 20 54 | 48 45 4e 20 66 69 6c 6c |...AND T|HEN fill|
|00003440| 20 69 6e 20 74 68 65 20 | 70 61 72 61 6d 65 74 65 | in the |paramete|
|00003450| 72 20 6e 61 6d 65 73 2c | 0a 00 05 41 4e 44 20 54 |r names,|...AND T|
|00003460| 48 45 4e 20 66 69 6c 6c | 20 69 6e 20 74 68 65 20 |HEN fill| in the |
|00003470| 62 6f 64 79 20 66 6f 72 | 6d 73 2e 0a 0a 28 63 6f |body for|ms...(co|
|00003480| 6e 74 69 6e 75 65 64 20 | 2e 2e 2e 29 0a 23 11 00 |ntinued |...).#..|
|00003490| 00 00 10 01 04 27 03 00 | 00 00 2e 27 05 00 00 00 |.....'..|...'....|
|000034a0| 2e 07 05 53 4c 49 44 45 | 07 0a 45 58 50 4f 53 49 |...SLIDE|..EXPOSI|
|000034b0| 54 49 4f 4e 23 1a 00 00 | 00 04 07 0a 45 58 50 4f |TION#...|....EXPO|
|000034c0| 53 49 54 49 4f 4e 25 13 | 02 00 00 0a 52 65 6d 65 |SITION%.|....Reme|
|000034d0| 6d 62 65 72 20 2e 2e 2e | 0a 0a 6f 00 04 49 46 20 |mber ...|..o..IF |
|000034e0| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 66 69 6c 6c |you want| to fill|
|000034f0| 20 69 6e 20 70 61 72 61 | 6d 65 74 65 72 20 6e 61 | in para|meter na|
|00003500| 6d 65 73 20 61 6e 64 20 | 62 6f 64 79 20 66 6f 72 |mes and |body for|
|00003510| 6d 73 2c 0a 00 05 54 48 | 45 4e 20 79 6f 75 20 6d |ms,...TH|EN you m|
|00003520| 61 79 20 77 61 6e 74 20 | 74 6f 20 74 72 79 20 61 |ay want |to try a|
|00003530| 6e 20 69 6e 64 69 72 65 | 63 74 20 61 6e 61 6c 6f |n indire|ct analo|
|00003540| 67 79 2c 0a 00 05 55 53 | 49 4e 47 20 74 68 65 20 |gy,...US|ING the |
|00003550| 67 65 6e 65 72 61 6c 20 | 70 72 6f 63 65 64 75 72 |general |procedur|
|00003560| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 70 61 74 |e defini|tion pat|
|00003570| 74 65 72 6e 20 61 6e 64 | 20 61 6e 20 65 78 61 6d |tern and| an exam|
|00003580| 70 6c 65 2e 0a 0a 6f 00 | 04 49 46 20 79 6f 75 20 |ple...o.|.IF you |
|00003590| 77 61 6e 74 20 74 6f 20 | 66 69 6c 6c 20 69 6e 20 |want to |fill in |
|000035a0| 70 61 72 61 6d 65 74 65 | 72 20 6e 61 6d 65 73 20 |paramete|r names |
|000035b0| 61 6e 64 20 62 6f 64 79 | 20 66 6f 72 6d 73 2c 0a |and body| forms,.|
|000035c0| 00 05 54 48 45 4e 20 79 | 6f 75 20 6d 61 79 20 77 |..THEN y|ou may w|
|000035d0| 61 6e 74 20 74 6f 20 74 | 72 79 20 61 20 64 69 72 |ant to t|ry a dir|
|000035e0| 65 63 74 20 61 6e 61 6c | 6f 67 79 2c 0a 00 05 55 |ect anal|ogy,...U|
|000035f0| 53 49 4e 47 20 61 6e 20 | 65 78 61 6d 70 6c 65 20 |SING an |example |
|00003600| 6f 6e 6c 79 2e 0a 0a 6f | 00 04 49 46 20 79 6f 75 |only...o|..IF you|
|00003610| 20 77 61 6e 74 20 74 6f | 20 66 69 6c 6c 20 69 6e | want to| fill in|
|00003620| 20 62 6f 64 79 20 66 6f | 72 6d 73 2c 0a 00 05 54 | body fo|rms,...T|
|00003630| 48 45 4e 20 79 6f 75 20 | 6d 61 79 20 77 61 6e 74 |HEN you |may want|
|00003640| 20 75 73 65 20 53 45 54 | 46 20 74 6f 20 63 72 65 | use SET|F to cre|
|00003650| 61 74 65 20 73 61 6d 70 | 6c 65 20 73 79 6d 62 6f |ate samp|le symbo|
|00003660| 6c 20 76 61 6c 75 65 73 | 2c 0a 00 05 41 4e 44 20 |l values|,...AND |
|00003670| 54 48 45 4e 20 77 61 6c | 6b 20 74 68 72 6f 75 67 |THEN wal|k throug|
|00003680| 68 20 77 68 61 74 20 79 | 6f 75 20 77 61 6e 74 20 |h what y|ou want |
|00003690| 74 6f 20 64 6f 20 6f 6e | 20 74 68 6f 73 65 20 73 |to do on| those s|
|000036a0| 79 6d 62 6f 6c 73 2c 0a | 00 05 41 4e 44 20 54 48 |ymbols,.|..AND TH|
|000036b0| 45 4e 20 72 65 63 6f 72 | 64 20 77 68 61 74 20 79 |EN recor|d what y|
|000036c0| 6f 75 20 64 69 64 20 69 | 6e 20 74 68 65 20 70 72 |ou did i|n the pr|
|000036d0| 6f 63 65 64 75 72 65 20 | 62 6f 64 79 2e 0a 23 10 |ocedure |body..#.|
|000036e0| 00 00 00 10 01 04 27 03 | 00 00 00 2e 27 05 00 00 |......'.|....'...|
|000036f0| 00 2e 27 1a 00 00 00 04 | 27 05 00 00 00 2e 04 10 |..'.....|'.......|
|00003700| 02 04 10 03 36 0b 01 04 | 53 45 54 46 07 15 2a 4c |....6...|SETF..*L|
|00003710| 41 53 54 2d 4c 4f 41 44 | 45 44 2d 4c 45 53 53 4f |AST-LOAD|ED-LESSO|
|00003720| 4e 53 2a 0b 01 05 51 55 | 4f 54 45 07 09 41 4e 41 |NS*...QU|OTE..ANA|
|00003730| 4c 4f 47 49 45 53 04 10 | 01 04 10 02 04 10 03 36 |LOGIES..|.......6|
|00003740| 40 | |@ | |
+--------+-------------------------+-------------------------+--------+--------+
