/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / programming / mlisp.sfx / mlisp.demo

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| c9 2f fe 2f 64 00 5e 20 | 53 4f 55 52 43 45 20 46 |././d.^ |SOURCE F|
|00000010| 4f 52 20 53 41 4d 50 4c | 45 53 20 55 53 45 44 20 |OR SAMPL|ES USED |
|00000020| 49 4e 20 4d 49 43 52 4f | 2d 4c 49 53 50 20 41 52 |IN MICRO|-LISP AR|
|00000030| 54 49 43 4c 45 5e 00 05 | 30 6e 00 5e 5e 00 27 30 |TICLE^..|0n.^^.'0|
|00000040| 78 00 28 53 45 54 20 28 | 51 55 4f 54 45 20 46 41 |x.(SET (|QUOTE FA|
|00000050| 4d 49 4c 59 2d 54 52 45 | 45 29 20 4e 49 4c 29 00 |MILY-TRE|E) NIL).|
|00000060| 2e 30 82 00 5e 5e 00 50 | 30 c8 00 28 44 45 46 49 |.0..^^.P|0..(DEFI|
|00000070| 4e 45 20 27 41 44 44 2d | 50 45 52 53 4f 4e 20 27 |NE 'ADD-|PERSON '|
|00000080| 28 50 45 52 53 4f 4e 29 | 00 5c 30 d2 00 27 28 50 |(PERSON)|.\0..'(P|
|00000090| 52 4f 47 4e 00 72 30 dc | 00 28 53 45 54 51 20 46 |ROGN.r0.|.(SETQ F|
|000000a0| 41 4d 49 4c 59 2d 54 52 | 45 45 00 91 30 e6 00 28 |AMILY-TR|EE..0..(|
|000000b0| 43 4f 4e 53 20 50 45 52 | 53 4f 4e 20 46 41 4d 49 |CONS PER|SON FAMI|
|000000c0| 4c 59 2d 54 52 45 45 29 | 29 00 9e 30 f0 00 50 45 |LY-TREE)|)..0..PE|
|000000d0| 52 53 4f 4e 29 29 00 a5 | 30 2c 01 5e 5e 00 cd 30 |RSON))..|0,.^^..0|
|000000e0| 36 01 28 41 44 44 2d 50 | 45 52 53 4f 4e 20 27 28 |6.(ADD-P|ERSON '(|
|000000f0| 4e 49 43 4b 20 4d 20 28 | 4a 49 4d 20 4d 41 52 49 |NICK M (|JIM MARI|
|00000100| 4f 4e 29 29 29 00 fc 30 | 40 01 28 41 44 44 2d 50 |ON)))..0|@.(ADD-P|
|00000110| 45 52 53 4f 4e 20 27 28 | 4d 41 52 59 45 4c 4e 41 |ERSON '(|MARYELNA|
|00000120| 20 46 20 28 46 52 41 4e | 4b 20 44 4f 52 4f 54 48 | F (FRAN|K DOROTH|
|00000130| 59 29 29 29 00 28 31 4a | 01 28 41 44 44 2d 50 45 |Y))).(1J|.(ADD-PE|
|00000140| 52 53 4f 4e 20 27 28 4e | 49 4b 4b 49 20 46 20 28 |RSON '(N|IKKI F (|
|00000150| 4e 49 43 4b 20 4d 41 52 | 59 45 4c 4e 41 29 29 29 |NICK MAR|YELNA)))|
|00000160| 00 50 31 54 01 28 41 44 | 44 2d 50 45 52 53 4f 4e |.P1T.(AD|D-PERSON|
|00000170| 20 27 28 4d 49 4b 45 20 | 4d 20 28 4a 49 4d 20 4d | '(MIKE |M (JIM M|
|00000180| 41 52 49 4f 4e 29 29 29 | 00 7b 31 5e 01 28 41 44 |ARION)))|.{1^.(AD|
|00000190| 44 2d 50 45 52 53 4f 4e | 20 27 28 4d 41 54 54 20 |D-PERSON| '(MATT |
|000001a0| 4d 20 28 4e 49 43 4b 20 | 4d 41 52 59 45 4c 4e 41 |M (NICK |MARYELNA|
|000001b0| 29 29 29 00 82 31 90 01 | 5e 5e 00 9e 31 9a 01 28 |)))..1..|^^..1..(|
|000001c0| 44 45 46 55 4e 20 46 49 | 4e 44 2d 4e 41 4d 45 20 |DEFUN FI|ND-NAME |
|000001d0| 28 4e 41 4d 45 29 00 ba | 31 a4 01 28 53 45 54 51 |(NAME)..|1..(SETQ|
|000001e0| 20 54 45 4d 50 20 46 41 | 4d 49 4c 59 2d 54 52 45 | TEMP FA|MILY-TRE|
|000001f0| 45 29 00 d9 31 ae 01 28 | 44 4f 55 4e 54 49 4c 20 |E)..1..(|DOUNTIL |
|00000200| 28 4f 52 20 28 45 51 20 | 54 45 4d 50 20 4e 49 4c |(OR (EQ |TEMP NIL|
|00000210| 29 00 f8 31 b8 01 28 45 | 51 20 4e 41 4d 45 20 28 |)..1..(E|Q NAME (|
|00000220| 43 41 52 28 43 41 52 20 | 54 45 4d 50 29 29 29 29 |CAR(CAR |TEMP))))|
|00000230| 00 14 32 c2 01 28 53 45 | 54 51 20 54 45 4d 50 20 |..2..(SE|TQ TEMP |
|00000240| 28 43 44 52 20 54 45 4d | 50 29 29 29 00 32 32 cc |(CDR TEM|P))).22.|
|00000250| 01 28 53 45 54 51 20 50 | 45 52 53 4f 4e 20 28 43 |.(SETQ P|ERSON (C|
|00000260| 41 52 20 54 45 4d 50 29 | 29 29 00 39 32 f4 01 5e |AR TEMP)|)).92..^|
|00000270| 5e 00 56 32 fe 01 28 44 | 45 46 55 4e 20 50 41 52 |^.V2..(D|EFUN PAR|
|00000280| 45 4e 54 53 2d 4f 46 20 | 28 4e 41 4d 45 29 00 60 |ENTS-OF |(NAME).`|
|00000290| 32 08 02 28 43 4f 4e 44 | 00 95 32 12 02 28 28 46 |2..(COND|..2..((F|
|000002a0| 49 4e 44 2d 4e 41 4d 45 | 20 4e 41 4d 45 29 20 28 |IND-NAME| NAME) (|
|000002b0| 53 45 54 51 20 50 41 52 | 45 4e 54 53 20 28 4e 54 |SETQ PAR|ENTS (NT|
|000002c0| 48 20 33 20 50 45 52 53 | 4f 4e 29 29 29 00 b2 32 |H 3 PERS|ON)))..2|
|000002d0| 1c 02 28 54 20 28 53 45 | 54 51 20 50 41 52 45 4e |..(T (SE|TQ PAREN|
|000002e0| 54 53 20 4e 49 4c 29 29 | 29 29 00 b9 32 58 02 5e |TS NIL))|))..2X.^|
|000002f0| 5e 00 dc 32 62 02 28 44 | 45 46 55 4e 20 47 52 41 |^..2b.(D|EFUN GRA|
|00000300| 4e 44 2d 50 41 52 45 4e | 54 53 2d 4f 46 20 28 4e |ND-PAREN|TS-OF (N|
|00000310| 41 4d 45 29 00 f4 32 6c | 02 28 53 45 54 51 20 47 |AME)..2l|.(SETQ G|
|00000320| 52 41 4e 44 2d 50 41 52 | 45 4e 54 53 00 fe 32 76 |RAND-PAR|ENTS..2v|
|00000330| 02 28 4c 49 53 54 00 27 | 33 80 02 28 50 41 52 45 |.(LIST.'|3..(PARE|
|00000340| 4e 54 53 2d 4f 46 20 28 | 43 41 52 20 28 50 41 52 |NTS-OF (|CAR (PAR|
|00000350| 45 4e 54 53 2d 4f 46 20 | 4e 41 4d 45 29 29 29 00 |ENTS-OF |NAME))).|
|00000360| 59 33 8a 02 28 50 41 52 | 45 4e 54 53 2d 4f 46 20 |Y3..(PAR|ENTS-OF |
|00000370| 28 43 41 52 20 28 43 44 | 52 20 28 50 41 52 45 4e |(CAR (CD|R (PAREN|
|00000380| 54 53 2d 4f 46 20 4e 41 | 4d 45 29 29 29 29 29 29 |TS-OF NA|ME))))))|
|00000390| 29 00 00 00 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |).......|........|
|000003a0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000003b0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000003c0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000003d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000003e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000003f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+