/ Liren Large Software Subsidy 9 / 09.iso / e / e070 / 6.ddi / EXPLORER / SLIDES / OPTIONAL.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 08 4f 50 54 |SON...QU|OTE..OPT|
|00000080| 49 4f 4e 41 4c 04 10 02 | 04 10 02 0b 01 05 51 55 |IONAL...|......QU|
|00000090| 4f 54 45 07 06 4c 45 53 | 53 4f 4e 07 08 4f 50 54 |OTE..LES|SON..OPT|
|000000a0| 49 4f 4e 41 4c 0b 01 04 | 4e 41 4d 45 07 08 4f 50 |IONAL...|NAME..OP|
|000000b0| 54 49 4f 4e 41 4c 04 10 | 01 07 04 4e 45 58 54 07 |TIONAL..|...NEXT.|
|000000c0| 06 4f 4e 57 41 52 44 04 | 10 01 07 08 50 52 45 56 |.ONWARD.|....PREV|
|000000d0| 49 4f 55 53 07 0c 54 4f | 2d 54 52 41 4e 53 4c 41 |IOUS..TO|-TRANSLA|
|000000e0| 54 45 07 09 54 45 4d 50 | 4c 41 54 45 53 04 10 02 |TE..TEMP|LATES...|
|000000f0| 04 10 01 07 0b 4c 45 53 | 53 4f 4e 2d 4e 41 4d 45 |.....LES|SON-NAME|
|00000100| 26 12 4f 70 74 69 6f 6e | 61 6c 20 41 72 67 75 6d |&.Option|al Argum|
|00000110| 65 6e 74 73 04 10 01 04 | 10 08 07 05 53 4c 49 44 |ents....|....SLID|
|00000120| 45 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 23 01 00 |E..EXPOS|ITION#..|
|00000130| 00 00 04 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 25 |.....EXP|OSITION%|
|00000140| 8e 01 00 00 0a 46 72 6f | 6d 20 74 69 6d 65 20 74 |.....Fro|m time t|
|00000150| 6f 20 74 69 6d 65 20 79 | 6f 75 20 77 69 6c 6c 20 |o time y|ou will |
|00000160| 77 61 6e 74 20 74 6f 20 | 63 72 65 61 74 65 20 6f |want to |create o|
|00000170| 72 64 69 6e 61 72 79 20 | 70 72 6f 63 65 64 75 72 |rdinary |procedur|
|00000180| 65 73 20 61 6e 64 20 0a | 6d 61 63 72 6f 73 20 74 |es and .|macros t|
|00000190| 68 61 74 20 74 61 6b 65 | 20 61 20 76 61 72 69 61 |hat take| a varia|
|000001a0| 62 6c 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 61 72 |ble numb|er of ar|
|000001b0| 67 75 6d 65 6e 74 73 2e | 00 02 59 6f 75 20 64 6f |guments.|..You do|
|000001c0| 20 74 68 69 73 20 62 79 | 0a 73 70 65 63 69 61 6c | this by|.special|
|000001d0| 6c 79 20 6d 61 72 6b 69 | 6e 67 20 73 6f 6d 65 20 |ly marki|ng some |
|000001e0| 6f 66 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |of the p|arameter|
|000001f0| 73 2e 0a 0a 4d 61 72 6b | 00 0b 50 75 72 70 6f 73 |s...Mark|..Purpos|
|00000200| 65 0a 0a 26 4f 50 54 49 | 4f 4e 41 4c 00 06 54 6f |e..&OPTI|ONAL..To|
|00000210| 20 73 69 67 6e 61 6c 20 | 74 68 61 74 20 74 68 65 | signal |that the|
|00000220| 20 76 61 6c 75 65 73 20 | 6f 66 20 63 65 72 74 61 | values |of certa|
|00000230| 69 6e 20 70 61 72 61 6d | 65 74 65 72 73 0a 00 0f |in param|eters...|
|00000240| 77 69 6c 6c 20 62 65 20 | 4e 49 4c 20 69 66 20 74 |will be |NIL if t|
|00000250| 68 65 72 65 20 69 73 20 | 61 20 73 68 6f 72 74 61 |here is |a shorta|
|00000260| 67 65 20 6f 66 20 61 72 | 67 75 6d 65 6e 74 73 2e |ge of ar|guments.|
|00000270| 0a 0a 26 52 45 53 54 00 | 0a 54 6f 20 73 69 67 6e |..&REST.|.To sign|
|00000280| 61 6c 20 74 68 61 74 20 | 74 68 65 20 76 61 6c 75 |al that |the valu|
|00000290| 65 20 6f 66 20 6f 6e 65 | 20 63 65 72 74 61 69 6e |e of one| certain|
|000002a0| 0a 00 0f 70 61 72 61 6d | 65 74 65 72 20 77 69 6c |...param|eter wil|
|000002b0| 6c 20 62 65 20 61 20 6c | 69 73 74 20 6f 66 20 73 |l be a l|ist of s|
|000002c0| 75 72 70 6c 75 73 20 61 | 72 67 75 6d 65 6e 74 73 |urplus a|rguments|
|000002d0| 2e 0a 23 0d 00 00 00 10 | 01 04 27 03 00 00 00 2e |..#.....|..'.....|
|000002e0| 27 05 00 00 00 2e 07 05 | 53 4c 49 44 45 07 0a 45 |'.......|SLIDE..E|
|000002f0| 58 50 4f 53 49 54 49 4f | 4e 23 02 00 00 00 04 07 |XPOSITIO|N#......|
|00000300| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 26 e2 0a 41 73 |.EXPOSIT|ION&..As|
|00000310| 73 75 6d 65 20 79 6f 75 | 20 68 61 76 65 20 61 20 |sume you| have a |
|00000320| 6c 69 73 74 20 6f 66 20 | 77 6f 72 64 73 20 74 68 |list of |words th|
|00000330| 61 74 20 6c 6f 6f 6b 73 | 20 6c 69 6b 65 20 61 20 |at looks| like a |
|00000340| 73 65 6e 74 65 6e 63 65 | 2e 00 02 59 6f 75 0a 64 |sentence|...You.d|
|00000350| 65 73 69 72 65 20 74 6f | 20 61 64 64 20 74 68 65 |esire to| add the|
|00000360| 20 73 79 6d 62 6f 6c 20 | 50 45 52 49 4f 44 20 74 | symbol |PERIOD t|
|00000370| 6f 20 74 68 65 20 65 6e | 64 2e 0a 0a 28 44 45 46 |o the en|d...(DEF|
|00000380| 55 4e 20 50 55 4e 43 54 | 55 41 54 45 20 28 4c 29 |UN PUNCT|UATE (L)|
|00000390| 0a 00 02 28 41 50 50 45 | 4e 44 20 4c 20 27 28 50 |...(APPE|ND L '(P|
|000003a0| 45 52 49 4f 44 29 29 29 | 0a 0a 54 68 75 73 3a 0a |ERIOD)))|..Thus:.|
|000003b0| 0a 2a 20 28 50 55 4e 43 | 54 55 41 54 45 20 27 28 |.* (PUNC|TUATE '(|
|000003c0| 4e 4f 54 45 20 54 48 49 | 53 20 45 58 41 4d 50 4c |NOTE THI|S EXAMPL|
|000003d0| 45 29 29 0a 28 4e 4f 54 | 45 20 54 48 49 53 20 45 |E)).(NOT|E THIS E|
|000003e0| 58 41 4d 50 4c 45 20 50 | 45 52 49 4f 44 29 0a 23 |XAMPLE P|ERIOD).#|
|000003f0| 0c 00 00 00 10 01 04 27 | 03 00 00 00 2e 27 05 00 |.......'|.....'..|
|00000400| 00 00 2e 07 05 53 4c 49 | 44 45 07 0a 45 58 50 4f |.....SLI|DE..EXPO|
|00000410| 53 49 54 49 4f 4e 23 03 | 00 00 00 04 07 0a 45 58 |SITION#.|......EX|
|00000420| 50 4f 53 49 54 49 4f 4e | 25 1e 02 00 00 0a 4e 6f |POSITION|%.....No|
|00000430| 77 20 61 73 73 75 6d 65 | 20 74 68 61 74 20 79 6f |w assume| that yo|
|00000440| 75 20 77 61 6e 74 20 74 | 6f 20 61 64 64 20 73 6f |u want t|o add so|
|00000450| 6d 65 74 68 69 6e 67 20 | 6f 74 68 65 72 20 74 68 |mething |other th|
|00000460| 61 6e 20 61 20 70 65 72 | 69 6f 64 2c 0a 62 75 74 |an a per|iod,.but|
|00000470| 20 6f 6e 6c 79 20 6f 6e | 20 72 61 72 65 20 6f 63 | only on| rare oc|
|00000480| 63 61 73 69 6f 6e 73 2e | 00 02 54 68 65 20 77 61 |casions.|..The wa|
|00000490| 79 20 74 6f 20 64 6f 20 | 74 68 69 73 20 69 73 20 |y to do |this is |
|000004a0| 74 6f 20 61 64 64 20 61 | 6e 6f 74 68 65 72 0a 70 |to add a|nother.p|
|000004b0| 61 72 61 6d 65 74 65 72 | 2c 20 70 72 65 63 65 64 |arameter|, preced|
|000004c0| 65 64 20 62 79 20 74 68 | 65 20 6f 70 74 69 6f 6e |ed by th|e option|
|000004d0| 61 6c 2d 70 61 72 61 6d | 65 74 65 72 20 73 65 70 |al-param|eter sep|
|000004e0| 61 72 61 74 6f 72 2c 20 | 26 4f 50 54 49 4f 4e 41 |arator, |&OPTIONA|
|000004f0| 4c 3a 0a 0a 28 44 45 46 | 55 4e 20 50 55 4e 43 54 |L:..(DEF|UN PUNCT|
|00000500| 55 41 54 45 20 28 4c 20 | 26 4f 50 54 49 4f 4e 41 |UATE (L |&OPTIONA|
|00000510| 4c 20 4d 41 52 4b 29 0a | 00 02 28 41 50 50 45 4e |L MARK).|..(APPEN|
|00000520| 44 20 4c 20 28 4c 49 53 | 54 20 28 49 46 20 4d 41 |D L (LIS|T (IF MA|
|00000530| 52 4b 20 4d 41 52 4b 20 | 27 50 45 52 49 4f 44 29 |RK MARK |'PERIOD)|
|00000540| 29 29 29 0a 0a 4e 6f 77 | 20 74 68 65 72 65 20 61 |)))..Now| there a|
|00000550| 72 65 20 74 77 6f 20 61 | 6c 74 65 72 6e 61 74 69 |re two a|lternati|
|00000560| 76 65 73 20 77 68 65 6e | 20 50 55 4e 43 54 55 41 |ves when| PUNCTUA|
|00000570| 54 45 20 69 73 20 75 73 | 65 64 2c 20 62 65 63 61 |TE is us|ed, beca|
|00000580| 75 73 65 0a 74 68 65 72 | 65 20 6d 61 79 20 6f 72 |use.ther|e may or|
|00000590| 20 6d 61 79 20 6e 6f 74 | 20 62 65 20 61 6e 20 61 | may not| be an a|
|000005a0| 72 67 75 6d 65 6e 74 20 | 63 6f 72 72 65 73 70 6f |rgument |correspo|
|000005b0| 6e 64 69 6e 67 20 74 6f | 20 74 68 65 20 6f 70 74 |nding to| the opt|
|000005c0| 69 6f 6e 61 6c 0a 70 61 | 72 61 6d 65 74 65 72 2e |ional.pa|rameter.|
|000005d0| 0a 0a 2a 20 28 50 55 4e | 43 54 55 41 54 45 20 27 |..* (PUN|CTUATE '|
|000005e0| 28 4c 4f 4f 4b 20 41 54 | 20 54 48 49 53 29 20 27 |(LOOK AT| THIS) '|
|000005f0| 51 55 45 53 54 49 4f 4e | 2d 4d 41 52 4b 29 00 04 |QUESTION|-MARK)..|
|00000600| 3b 4d 61 74 63 68 69 6e | 67 20 61 72 67 75 6d 65 |;Matchin|g argume|
|00000610| 6e 74 2e 0a 0a 2a 20 28 | 50 55 4e 43 54 55 41 54 |nt...* (|PUNCTUAT|
|00000620| 45 20 27 28 4c 4f 4f 4b | 20 41 54 20 54 48 49 53 |E '(LOOK| AT THIS|
|00000630| 29 29 00 13 3b 4e 6f 20 | 6d 61 74 63 68 69 6e 67 |))..;No |matching|
|00000640| 20 61 72 67 75 6d 65 6e | 74 2e 0a 23 10 00 00 00 | argumen|t..#....|
|00000650| 10 01 04 27 03 00 00 00 | 2e 27 05 00 00 00 2e 07 |...'....|.'......|
|00000660| 05 53 4c 49 44 45 07 0a | 45 58 50 4f 53 49 54 49 |.SLIDE..|EXPOSITI|
|00000670| 4f 4e 23 04 00 00 00 04 | 07 0a 45 58 50 4f 53 49 |ON#.....|..EXPOSI|
|00000680| 54 49 4f 4e 25 cd 01 00 | 00 0a 52 65 63 61 6c 6c |TION%...|..Recall|
|00000690| 20 6f 75 72 20 64 65 66 | 69 6e 69 74 69 6f 6e 3a | our def|inition:|
|000006a0| 0a 0a 28 44 45 46 55 4e | 20 50 55 4e 43 54 55 41 |..(DEFUN| PUNCTUA|
|000006b0| 54 45 20 28 4c 20 26 4f | 50 54 49 4f 4e 41 4c 20 |TE (L &O|PTIONAL |
|000006c0| 4d 41 52 4b 29 0a 00 02 | 28 41 50 50 45 4e 44 20 |MARK)...|(APPEND |
|000006d0| 4c 20 28 4c 49 53 54 20 | 28 49 46 20 4d 41 52 4b |L (LIST |(IF MARK|
|000006e0| 20 4d 41 52 4b 20 27 50 | 45 52 49 4f 44 29 29 29 | MARK 'P|ERIOD)))|
|000006f0| 29 0a 0a 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |)..The f|ollowing|
|00000700| 20 69 6c 6c 75 73 74 72 | 61 74 65 73 20 77 69 74 | illustr|ates wit|
|00000710| 68 20 6f 6e 65 20 61 72 | 67 75 6d 65 6e 74 3a 0a |h one ar|gument:.|
|00000720| 0a 2a 20 28 50 55 4e 43 | 54 55 41 54 45 20 27 28 |.* (PUNC|TUATE '(|
|00000730| 4c 4f 4f 4b 20 41 54 20 | 54 48 49 53 29 29 00 02 |LOOK AT |THIS))..|
|00000740| 3b 4d 41 52 4b 27 73 20 | 76 61 6c 75 65 20 69 73 |;MARK's |value is|
|00000750| 20 4e 49 4c 2e 0a 28 4c | 4f 4f 4b 20 41 54 20 54 | NIL..(L|OOK AT T|
|00000760| 48 49 53 20 50 45 52 49 | 4f 44 29 00 0a 3b 28 49 |HIS PERI|OD)..;(I|
|00000770| 46 20 4d 41 52 4b 20 4d | 41 52 4b 20 27 50 45 52 |F MARK M|ARK 'PER|
|00000780| 49 4f 44 29 20 69 73 20 | 50 45 52 49 4f 44 2e 0a |IOD) is |PERIOD..|
|00000790| 0a 57 69 74 68 20 74 77 | 6f 20 61 72 67 75 6d 65 |.With tw|o argume|
|000007a0| 6e 74 73 2c 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |nts, the| followi|
|000007b0| 6e 67 20 69 6c 6c 75 73 | 74 72 61 74 65 73 3a 0a |ng illus|trates:.|
|000007c0| 0a 2a 20 28 50 55 4e 43 | 54 55 41 54 45 20 27 28 |.* (PUNC|TUATE '(|
|000007d0| 4c 4f 4f 4b 20 41 54 20 | 54 48 49 53 29 0a 00 0d |LOOK AT |THIS)...|
|000007e0| 27 51 55 45 53 54 49 4f | 4e 2d 4d 41 52 4b 29 00 |'QUESTIO|N-MARK).|
|000007f0| 03 3b 4d 41 52 4b 27 73 | 20 76 61 6c 75 65 20 69 |.;MARK's| value i|
|00000800| 73 20 51 55 45 53 54 49 | 4f 4e 2d 4d 41 52 4b 2c |s QUESTI|ON-MARK,|
|00000810| 20 61 73 0a 28 4c 4f 4f | 4b 20 41 54 20 54 48 49 | as.(LOO|K AT THI|
|00000820| 53 20 51 55 45 53 54 49 | 4f 4e 2d 4d 41 52 4b 29 |S QUESTI|ON-MARK)|
|00000830| 00 03 3b 69 73 20 28 49 | 46 20 4d 41 52 4b 20 4d |..;is (I|F MARK M|
|00000840| 41 52 4b 20 27 50 45 52 | 49 4f 44 29 27 73 20 76 |ARK 'PER|IOD)'s v|
|00000850| 61 6c 75 65 2e 0a 23 11 | 00 00 00 10 01 04 27 03 |alue..#.|......'.|
|00000860| 00 00 00 2e 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|00000870| 45 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 23 05 00 |E..EXPOS|ITION#..|
|00000880| 00 00 04 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 25 |.....EXP|OSITION%|
|00000890| 9b 01 00 00 0a 4c 65 74 | 27 73 20 63 6f 6e 73 69 |.....Let|'s consi|
|000008a0| 64 65 72 20 61 20 73 69 | 74 75 61 74 69 6f 6e 20 |der a si|tuation |
|000008b0| 69 6e 20 77 68 69 63 68 | 20 79 6f 75 20 6d 61 79 |in which| you may|
|000008c0| 20 77 61 6e 74 20 74 6f | 20 75 73 65 20 61 6e 0a | want to| use an.|
|000008d0| 6f 70 74 69 6f 6e 61 6c | 20 70 61 72 61 6d 65 74 |optional| paramet|
|000008e0| 65 72 20 66 6f 72 20 77 | 68 69 63 68 20 61 20 77 |er for w|hich a w|
|000008f0| 68 6f 6c 65 20 73 65 72 | 69 65 73 20 6f 66 20 61 |hole ser|ies of a|
|00000900| 72 67 75 6d 65 6e 74 73 | 20 6d 61 79 20 6f 72 0a |rguments| may or.|
|00000910| 6d 61 79 20 6e 6f 74 20 | 62 65 20 73 75 70 70 6c |may not |be suppl|
|00000920| 69 65 64 2e 0a 0a 41 73 | 73 75 6d 65 20 79 6f 75 |ied...As|sume you|
|00000930| 20 77 61 6e 74 20 74 6f | 20 73 75 70 70 6c 79 20 | want to| supply |
|00000940| 61 20 77 68 6f 6c 65 20 | 73 65 72 69 65 73 20 6f |a whole |series o|
|00000950| 66 20 66 69 6e 61 6c 20 | 77 6f 72 64 73 20 61 73 |f final |words as|
|00000960| 20 77 65 6c 6c 0a 61 73 | 20 74 68 65 20 74 65 72 | well.as| the ter|
|00000970| 6d 69 6e 61 74 69 6e 67 | 20 70 75 6e 63 74 75 61 |minating| punctua|
|00000980| 74 69 6f 6e 20 74 6f 20 | 61 20 6c 69 73 74 20 6f |tion to |a list o|
|00000990| 66 20 77 6f 72 64 73 2e | 00 02 54 6f 20 64 6f 20 |f words.|..To do |
|000009a0| 74 68 69 73 2c 0a 79 6f | 75 20 75 73 65 20 26 52 |this,.yo|u use &R|
|000009b0| 45 53 54 20 69 6e 20 74 | 68 65 20 70 61 72 61 6d |EST in t|he param|
|000009c0| 65 74 65 72 20 6c 69 73 | 74 2e 00 02 54 68 65 6e |eter lis|t...Then|
|000009d0| 20 61 6c 6c 20 65 78 63 | 65 73 73 20 61 72 67 75 | all exc|ess argu|
|000009e0| 6d 65 6e 74 73 0a 61 72 | 65 20 61 73 73 65 6d 62 |ments.ar|e assemb|
|000009f0| 6c 65 64 20 69 6e 74 6f | 20 61 20 6c 69 73 74 20 |led into| a list |
|00000a00| 74 68 61 74 20 62 65 63 | 6f 6d 65 73 20 74 68 65 |that bec|omes the|
|00000a10| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 26 52 | value o|f the &R|
|00000a20| 45 53 54 0a 70 61 72 61 | 6d 65 74 65 72 2e 0a 23 |EST.para|meter..#|
|00000a30| 0b 00 00 00 10 01 04 27 | 03 00 00 00 2e 27 05 00 |.......'|.....'..|
|00000a40| 00 00 2e 07 05 53 4c 49 | 44 45 07 0a 45 58 50 4f |.....SLI|DE..EXPO|
|00000a50| 53 49 54 49 4f 4e 23 06 | 00 00 00 04 07 0a 45 58 |SITION#.|......EX|
|00000a60| 50 4f 53 49 54 49 4f 4e | 25 0b 01 00 00 0a 43 6f |POSITION|%.....Co|
|00000a70| 6e 73 69 64 65 72 20 74 | 68 69 73 20 76 65 72 73 |nsider t|his vers|
|00000a80| 69 6f 6e 20 6f 66 20 50 | 55 4e 43 54 55 41 54 45 |ion of P|UNCTUATE|
|00000a90| 2c 20 66 6f 72 20 65 78 | 61 6d 70 6c 65 3a 0a 0a |, for ex|ample:..|
|00000aa0| 28 44 45 46 55 4e 20 50 | 55 4e 43 54 55 41 54 45 |(DEFUN P|UNCTUATE|
|00000ab0| 20 28 4c 20 26 52 45 53 | 54 20 4d 41 52 4b 53 29 | (L &RES|T MARKS)|
|00000ac0| 0a 00 02 28 41 50 50 45 | 4e 44 20 4c 20 28 49 46 |...(APPE|ND L (IF|
|00000ad0| 20 4d 41 52 4b 53 20 4d | 41 52 4b 53 20 27 28 50 | MARKS M|ARKS '(P|
|00000ae0| 45 52 49 4f 44 29 29 29 | 29 0a 0a 49 6e 20 74 68 |ERIOD)))|)..In th|
|00000af0| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 75 73 65 2c |e follow|ing use,|
|00000b00| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 4d 41 | the val|ue of MA|
|00000b10| 52 4b 53 20 62 65 63 6f | 6d 65 73 20 28 50 4c 45 |RKS beco|mes (PLE|
|00000b20| 41 53 45 20 50 45 52 49 | 4f 44 29 0a 0a 2a 20 28 |ASE PERI|OD)..* (|
|00000b30| 50 55 4e 43 54 55 41 54 | 45 20 27 28 4c 4f 4f 4b |PUNCTUAT|E '(LOOK|
|00000b40| 20 41 54 20 54 48 49 53 | 29 20 27 50 4c 45 41 53 | AT THIS|) 'PLEAS|
|00000b50| 45 20 27 50 45 52 49 4f | 44 29 0a 28 4c 4f 4f 4b |E 'PERIO|D).(LOOK|
|00000b60| 20 41 54 20 54 48 49 53 | 20 50 4c 45 41 53 45 20 | AT THIS| PLEASE |
|00000b70| 50 45 52 49 4f 44 29 0a | 23 0b 00 00 00 10 01 04 |PERIOD).|#.......|
|00000b80| 27 03 00 00 00 2e 27 05 | 00 00 00 2e 07 05 53 4c |'.....'.|......SL|
|00000b90| 49 44 45 07 08 45 58 41 | 4d 50 4c 45 53 23 07 00 |IDE..EXA|MPLES#..|
|00000ba0| 00 00 04 07 0d 45 58 41 | 4d 50 4c 45 2d 47 52 4f |.....EXA|MPLE-GRO|
|00000bb0| 55 50 26 b6 0a 53 75 70 | 70 6f 73 65 20 46 41 4e |UP&..Sup|pose FAN|
|00000bc0| 43 59 2d 50 52 49 4e 54 | 20 69 73 20 64 65 66 69 |CY-PRINT| is defi|
|00000bd0| 6e 65 64 20 74 68 69 73 | 20 77 61 79 3a 0a 28 44 |ned this| way:.(D|
|00000be0| 45 46 55 4e 20 46 41 4e | 43 59 2d 50 52 49 4e 54 |EFUN FAN|CY-PRINT|
|00000bf0| 20 28 4d 20 26 4f 50 54 | 49 4f 4e 41 4c 20 50 52 | (M &OPT|IONAL PR|
|00000c00| 4f 4d 50 54 20 26 52 45 | 53 54 20 52 45 53 54 29 |OMPT &RE|ST REST)|
|00000c10| 0a 00 02 28 49 46 20 50 | 52 4f 4d 50 54 0a 00 06 |...(IF P|ROMPT...|
|00000c20| 28 50 52 4f 47 32 20 28 | 50 52 49 4e 54 20 50 52 |(PROG2 (|PRINT PR|
|00000c30| 4f 4d 50 54 29 20 28 50 | 52 49 4e 31 20 28 41 50 |OMPT) (P|RIN1 (AP|
|00000c40| 50 45 4e 44 20 4d 20 52 | 45 53 54 29 29 29 0a 00 |PEND M R|EST)))..|
|00000c50| 06 28 50 52 49 4e 54 20 | 28 41 50 50 45 4e 44 20 |.(PRINT |(APPEND |
|00000c60| 4d 20 52 45 53 54 29 29 | 29 29 23 06 00 00 00 10 |M REST))|))#.....|
|00000c70| 01 26 23 2a 20 28 46 41 | 4e 43 59 2d 50 52 49 4e |.&#* (FA|NCY-PRIN|
|00000c80| 54 20 27 28 48 45 4c 4c | 4f 20 54 48 45 52 45 29 |T '(HELL|O THERE)|
|00000c90| 20 27 2a 2a 2a 29 23 01 | 00 00 00 10 01 26 11 2a | '***)#.|.....&.*|
|00000ca0| 2a 2a 20 28 48 45 4c 4c | 4f 20 54 48 45 52 45 29 |** (HELL|O THERE)|
|00000cb0| 23 01 00 00 00 10 01 27 | 04 00 00 00 2e 07 0d 45 |#......'|.......E|
|00000cc0| 58 41 4d 50 4c 45 2d 47 | 52 4f 55 50 04 26 1e 2a |XAMPLE-G|ROUP.&.*|
|00000cd0| 20 28 46 41 4e 43 59 2d | 50 52 49 4e 54 20 27 28 | (FANCY-|PRINT '(|
|00000ce0| 48 45 4c 4c 4f 20 54 48 | 45 52 45 29 29 23 01 00 |HELLO TH|ERE))#..|
|00000cf0| 00 00 10 01 26 0d 28 48 | 45 4c 4c 4f 20 54 48 45 |....&.(H|ELLO THE|
|00000d00| 52 45 29 23 01 00 00 00 | 10 01 27 04 00 00 00 2e |RE)#....|..'.....|
|00000d10| 07 0d 45 58 41 4d 50 4c | 45 2d 47 52 4f 55 50 04 |..EXAMPL|E-GROUP.|
|00000d20| 26 2c 2a 20 28 46 41 4e | 43 59 2d 50 52 49 4e 54 |&,* (FAN|CY-PRINT|
|00000d30| 20 27 28 48 45 4c 4c 4f | 20 54 48 45 52 45 29 20 | '(HELLO| THERE) |
|00000d40| 4e 49 4c 20 27 45 56 45 | 52 59 4f 4e 45 29 23 01 |NIL 'EVE|RYONE)#.|
|00000d50| 00 00 00 10 01 26 5d 28 | 48 45 4c 4c 4f 20 54 48 |.....&](|HELLO TH|
|00000d60| 45 52 45 20 45 56 45 52 | 59 4f 4e 45 29 00 05 3b |ERE EVER|YONE)..;|
|00000d70| 54 68 65 20 6f 70 74 69 | 6f 6e 61 6c 20 50 52 4f |The opti|onal PRO|
|00000d80| 4d 50 54 20 67 65 74 73 | 20 4e 49 4c 2c 0a 00 1b |MPT gets| NIL,...|
|00000d90| 3b 74 68 65 20 6f 70 74 | 69 6f 6e 61 6c 20 52 45 |;the opt|ional RE|
|00000da0| 53 54 20 67 65 74 73 20 | 28 45 56 45 52 59 4f 4e |ST gets |(EVERYON|
|00000db0| 45 29 2e 0a 23 03 00 00 | 00 10 01 27 04 00 00 00 |E)..#...|...'....|
|00000dc0| 2e 04 10 03 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|00000dd0| 45 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 23 08 00 |E..EXPOS|ITION#..|
|00000de0| 00 00 04 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 25 |.....EXP|OSITION%|
|00000df0| 0c 01 00 00 0a 52 65 6d | 65 6d 62 65 72 20 2e 2e |.....Rem|ember ..|
|00000e00| 2e 0a 0a 6f 00 04 49 46 | 20 79 6f 75 20 77 61 6e |...o..IF| you wan|
|00000e10| 74 20 70 61 72 61 6d 65 | 74 65 72 73 20 74 6f 20 |t parame|ters to |
|00000e20| 62 65 20 6f 70 74 69 6f | 6e 61 6c 2c 0a 00 05 54 |be optio|nal,...T|
|00000e30| 48 45 4e 20 70 75 74 20 | 26 4f 50 54 49 4f 4e 41 |HEN put |&OPTIONA|
|00000e40| 4c 20 69 6e 20 66 72 6f | 6e 74 20 6f 66 20 74 68 |L in fro|nt of th|
|00000e50| 6f 73 65 20 70 61 72 61 | 6d 65 74 65 72 73 2e 0a |ose para|meters..|
|00000e60| 0a 6f 00 04 49 46 20 79 | 6f 75 20 77 61 6e 74 20 |.o..IF y|ou want |
|00000e70| 74 6f 20 67 61 74 68 65 | 72 20 75 70 20 61 6c 6c |to gathe|r up all|
|00000e80| 20 65 78 63 65 73 73 20 | 61 72 67 75 6d 65 6e 74 | excess |argument|
|00000e90| 73 2c 0a 00 05 54 48 45 | 4e 20 70 75 74 20 26 52 |s,...THE|N put &R|
|00000ea0| 45 53 54 20 69 6e 20 66 | 72 6f 6e 74 20 6f 66 20 |EST in f|ront of |
|00000eb0| 61 20 66 69 6e 61 6c 20 | 70 61 72 61 6d 65 74 65 |a final |paramete|
|00000ec0| 72 2e 0a 0a 6f 00 04 55 | 6e 6d 61 74 63 68 65 64 |r...o..U|nmatched|
|00000ed0| 20 26 4f 50 54 49 4f 4e | 41 4c 20 61 6e 64 20 26 | &OPTION|AL and &|
|00000ee0| 52 45 53 54 20 70 61 72 | 61 6d 65 74 65 72 20 76 |REST par|ameter v|
|00000ef0| 61 6c 75 65 73 20 61 72 | 65 20 4e 49 4c 2e 0a 0a |alues ar|e NIL...|
|00000f00| 23 0c 00 00 00 10 01 04 | 27 03 00 00 00 2e 27 05 |#.......|'.....'.|
|00000f10| 00 00 00 2e 27 08 00 00 | 00 04 27 05 00 00 00 2e |....'...|..'.....|
|00000f20| 04 10 02 04 10 03 36 0b | 01 04 53 45 54 46 07 15 |......6.|..SETF..|
|00000f30| 2a 4c 41 53 54 2d 4c 4f | 41 44 45 44 2d 4c 45 53 |*LAST-LO|ADED-LES|
|00000f40| 53 4f 4e 53 2a 0b 01 05 | 51 55 4f 54 45 07 08 4f |SONS*...|QUOTE..O|
|00000f50| 50 54 49 4f 4e 41 4c 04 | 10 01 04 10 02 04 10 03 |PTIONAL.|........|
|00000f60| 36 40                   |                         |6@      |        |
+--------+-------------------------+-------------------------+--------+--------+