Source Code 1994 March

home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / unix_c / languags / ops5 / ops5.tar < prev next >
Tape Archive | 1989-03-03 | 144.0 KB
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: Tape Archive (archive/tar).

You can browse this item here: ops5.tar
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	Tape Archive `(archive/tar)`	magic	Supported
`100%`	file	tar archive	default
`99%`	file	tar archive (V7), file ops5/, mode 755 , uid 243 , gid 12 , size 0 , seconds 4403614061	default
`98%`	file	data	default
`100%`	TrID	Sybase iAnywhere database files	default (weak)
`100%`	lsar	Tar	default
`100%`	gt2	TAR Archiv gefunden (Auflistung ist deaktiviert)	default
`100%`	disktype	Pre-POSIX tar archive	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 6f 70 73 35 2f 00 00 00 | 00 00 00 00 00 00 00 00 |ops5/...|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 20 20 20 37 | 35 35 20 00 20 20 20 32 |....   7|55 .   2|
|00000070| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00000080| 20 20 20 20 20 20 30 20 | 20 34 34 30 33 36 31 34 |      0 | 4403614|
|00000090| 30 36 31 20 20 20 34 37 | 30 30 00 20 00 00 00 00 |061   47|00. ....|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 6f 70 73 35 2f 6f 70 73 | 35 2e 31 00 00 00 00 00 |ops5/ops|5.1.....|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00000270| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00000280| 20 20 32 37 35 35 34 20 | 20 34 34 30 33 36 31 34 |  27554 | 4403614|
|00000290| 30 33 30 20 20 20 35 37 | 36 36 00 20 00 00 00 00 |030   57|66. ....|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 41 72 74 69 63 6c 65 20 | 31 30 30 33 20 6f 66 20 |Article |1003 of |
|00000410| 63 6f 6d 70 2e 73 6f 75 | 72 63 65 73 2e 75 6e 69 |comp.sou|rces.uni|
|00000420| 78 3a 0a 50 61 74 68 3a | 20 73 2e 63 63 2e 70 75 |x:.Path:| s.cc.pu|
|00000430| 72 64 75 65 2e 65 64 75 | 21 68 2e 63 63 2e 70 75 |rdue.edu|!h.cc.pu|
|00000440| 72 64 75 65 2e 65 64 75 | 21 6a 2e 63 63 2e 70 75 |rdue.edu|!j.cc.pu|
|00000450| 72 64 75 65 2e 65 64 75 | 21 70 75 72 2d 65 65 21 |rdue.edu|!pur-ee!|
|00000460| 69 75 76 61 78 21 69 6e | 75 78 63 21 69 68 6e 70 |iuvax!in|uxc!ihnp|
|00000470| 34 21 70 74 73 66 61 21 | 70 79 72 61 6d 69 64 21 |4!ptsfa!|pyramid!|
|00000480| 64 65 63 77 72 6c 21 73 | 75 6e 21 70 69 74 73 74 |decwrl!s|un!pitst|
|00000490| 6f 70 21 73 75 6e 64 63 | 21 73 65 69 73 6d 6f 21 |op!sundc|!seismo!|
|000004a0| 75 75 6e 65 74 21 72 73 | 61 6c 7a 0a 46 72 6f 6d |uunet!rs|alz.From|
|000004b0| 3a 20 72 73 61 6c 7a 40 | 75 75 6e 65 74 2e 55 55 |: rsalz@|uunet.UU|
|000004c0| 2e 4e 45 54 20 28 52 69 | 63 68 20 53 61 6c 7a 29 |.NET (Ri|ch Salz)|
|000004d0| 0a 4e 65 77 73 67 72 6f | 75 70 73 3a 20 63 6f 6d |.Newsgro|ups: com|
|000004e0| 70 2e 73 6f 75 72 63 65 | 73 2e 75 6e 69 78 0a 53 |p.source|s.unix.S|
|000004f0| 75 62 6a 65 63 74 3a 20 | 76 31 32 69 30 31 36 3a |ubject: |v12i016:|
|00000500| 20 20 4f 50 53 35 20 69 | 6e 20 43 6f 6d 6d 6f 6e |  OPS5 i|n Common|
|00000510| 20 4c 69 73 70 2c 20 50 | 61 72 74 30 31 2f 30 35 | Lisp, P|art01/05|
|00000520| 0a 4d 65 73 73 61 67 65 | 2d 49 44 3a 20 3c 32 32 |.Message|-ID: <22|
|00000530| 35 39 40 75 75 6e 65 74 | 2e 55 55 2e 4e 45 54 3e |59@uunet|.UU.NET>|
|00000540| 0a 44 61 74 65 3a 20 31 | 34 20 4f 63 74 20 38 37 |.Date: 1|4 Oct 87|
|00000550| 20 30 32 3a 31 38 3a 35 | 37 20 47 4d 54 0a 4f 72 | 02:18:5|7 GMT.Or|
|00000560| 67 61 6e 69 7a 61 74 69 | 6f 6e 3a 20 55 55 4e 45 |ganizati|on: UUNE|
|00000570| 54 20 43 6f 6d 6d 75 6e | 69 63 61 74 69 6f 6e 73 |T Commun|ications|
|00000580| 20 53 65 72 76 69 63 65 | 73 2c 20 41 72 6c 69 6e | Service|s, Arlin|
|00000590| 67 74 6f 6e 2c 20 56 41 | 0a 4c 69 6e 65 73 3a 20 |gton, VA|.Lines: |
|000005a0| 32 39 37 0a 41 70 70 72 | 6f 76 65 64 3a 20 72 73 |297.Appr|oved: rs|
|000005b0| 40 75 75 6e 65 74 2e 55 | 55 2e 4e 45 54 0a 0a 53 |@uunet.U|U.NET..S|
|000005c0| 75 62 6d 69 74 74 65 64 | 2d 62 79 3a 20 65 72 69 |ubmitted|-by: eri|
|000005d0| 63 40 64 6c 63 64 65 76 | 2e 55 55 43 50 20 28 65 |c@dlcdev|.UUCP (e|
|000005e0| 72 69 63 20 76 61 6e 20 | 74 61 73 73 65 6c 6c 29 |ric van |tassell)|
|000005f0| 0a 50 6f 73 74 69 6e 67 | 2d 6e 75 6d 62 65 72 3a |.Posting|-number:|
|00000600| 20 56 6f 6c 75 6d 65 20 | 31 32 2c 20 49 73 73 75 | Volume |12, Issu|
|00000610| 65 20 31 36 0a 41 72 63 | 68 69 76 65 2d 6e 61 6d |e 16.Arc|hive-nam|
|00000620| 65 3a 20 6f 70 73 35 2f | 70 61 72 74 30 31 0a 0a |e: ops5/|part01..|
|00000630| 5b 20 20 49 20 68 61 76 | 65 20 6e 6f 74 20 64 6f |[  I hav|e not do|
|00000640| 6e 65 20 61 6e 79 74 68 | 69 6e 67 20 77 69 74 68 |ne anyth|ing with|
|00000650| 20 74 68 69 73 20 63 6f | 64 65 2e 20 20 2d 2d 72 | this co|de.  --r|
|00000660| 24 20 20 5d 0a 0a 5b 20 | 20 41 6c 65 72 74 20 72 |$  ]..[ | Alert r|
|00000670| 65 61 64 65 72 73 20 77 | 69 6c 6c 20 6e 6f 74 65 |eaders w|ill note|
|00000680| 20 74 68 65 20 63 6f 6e | 66 6c 69 63 74 20 63 6f | the con|flict co|
|00000690| 70 79 72 69 67 68 74 2f | 70 2d 64 20 63 6c 61 69 |pyright/|p-d clai|
|000006a0| 6d 73 20 69 6e 20 74 68 | 65 0a 20 20 20 66 69 72 |ms in th|e.   fir|
|000006b0| 73 74 20 70 61 72 61 67 | 72 61 70 68 2e 20 20 54 |st parag|raph.  T|
|000006c0| 68 69 73 20 73 6f 75 72 | 63 65 20 68 61 73 20 62 |his sour|ce has b|
|000006d0| 65 65 6e 20 6f 6e 20 43 | 6f 6d 70 75 53 65 72 76 |een on C|ompuServ|
|000006e0| 65 2c 20 61 70 70 61 72 | 65 6e 74 6c 79 0a 20 20 |e, appar|ently.  |
|000006f0| 20 77 69 74 68 20 74 68 | 65 20 61 75 74 68 6f 72 | with th|e author|
|00000700| 27 73 20 70 65 72 6d 69 | 73 73 69 6f 6e 2e 20 20 |'s permi|ssion.  |
|00000710| 54 68 61 74 2c 20 63 6f | 75 70 6c 65 64 20 77 69 |That, co|upled wi|
|00000720| 74 68 20 74 68 65 20 6e | 6f 74 65 20 61 73 6b 69 |th the n|ote aski|
|00000730| 6e 67 0a 20 20 20 75 73 | 65 72 73 20 74 6f 20 6a |ng.   us|ers to j|
|00000740| 6f 69 6e 20 61 20 6d 61 | 69 6c 69 6e 67 20 6c 69 |oin a ma|iling li|
|00000750| 73 74 20 6c 65 61 64 73 | 20 6d 65 20 74 6f 20 62 |st leads| me to b|
|00000760| 65 6c 69 65 76 65 20 74 | 68 61 74 20 74 68 69 73 |elieve t|hat this|
|00000770| 20 69 73 20 50 44 0a 20 | 20 20 63 6f 64 65 2e 20 | is PD. |  code. |
|00000780| 20 49 20 63 61 6e 27 74 | 20 69 6d 61 67 69 6e 65 | I can't| imagine|
|00000790| 20 77 68 61 74 20 74 68 | 65 20 66 6f 72 69 65 67 | what th|e forieg|
|000007a0| 6e 20 72 65 73 74 72 69 | 63 74 69 6f 6e 73 20 6d |n restri|ctions m|
|000007b0| 69 67 68 74 20 62 65 2c | 0a 20 20 20 73 69 6e 63 |ight be,|.   sinc|
|000007c0| 65 20 6e 6f 74 68 69 6e | 67 20 69 6e 20 68 65 72 |e nothin|g in her|
|000007d0| 65 20 69 73 20 63 6f 76 | 65 72 65 64 20 62 79 20 |e is cov|ered by |
|000007e0| 65 78 70 6f 72 74 20 72 | 65 67 75 6c 61 74 69 6f |export r|egulatio|
|000007f0| 6e 73 2e 20 20 2d 2d 72 | 24 20 20 5d 0a 0a 4f 50 |ns.  --r|$  ]..OP|
|00000800| 53 35 20 69 73 20 68 61 | 73 20 62 65 65 6e 20 6d |S5 is ha|s been m|
|00000810| 61 64 65 20 70 75 62 6c | 69 63 20 64 6f 6d 61 69 |ade publ|ic domai|
|00000820| 6e 20 62 79 20 43 2e 20 | 4c 61 6e 6e 79 20 46 6f |n by C. |Lanny Fo|
|00000830| 72 67 79 2e 20 54 68 65 | 72 65 20 61 72 65 2c 20 |rgy. The|re are, |
|00000840| 49 0a 62 65 6c 69 65 76 | 65 2c 20 73 6f 6d 65 20 |I.believ|e, some |
|00000850| 72 65 73 74 72 69 63 74 | 69 6f 6e 73 20 6f 6e 20 |restrict|ions on |
|00000860| 74 72 61 6e 73 70 6f 72 | 74 69 6e 67 20 4f 50 53 |transpor|ting OPS|
|00000870| 35 20 74 6f 20 73 6f 6d | 65 20 66 6f 72 65 69 67 |5 to som|e foreig|
|00000880| 6e 0a 63 6f 75 6e 74 72 | 69 65 73 20 28 77 68 69 |n.countr|ies (whi|
|00000890| 63 68 20 63 6f 75 6e 74 | 72 69 65 73 20 69 73 20 |ch count|ries is |
|000008a0| 70 72 65 74 74 79 20 6f | 62 76 69 6f 75 73 29 2e |pretty o|bvious).|
|000008b0| 20 20 54 68 65 20 63 6f | 64 65 20 69 73 20 63 6f |  The co|de is co|
|000008c0| 70 79 72 69 67 68 74 65 | 64 0a 62 79 20 46 6f 72 |pyrighte|d.by For|
|000008d0| 67 79 2c 20 61 6e 64 20 | 61 6e 79 6f 6e 65 20 63 |gy, and |anyone c|
|000008e0| 6f 6e 73 69 64 65 72 69 | 6e 67 20 75 73 69 6e 67 |onsideri|ng using|
|000008f0| 20 69 74 20 66 6f 72 20 | 63 6f 6d 6d 65 72 63 69 | it for |commerci|
|00000900| 61 6c 20 70 75 72 70 6f | 73 65 73 0a 73 68 6f 75 |al purpo|ses.shou|
|00000910| 6c 64 20 70 72 6f 62 61 | 62 6c 79 20 63 6f 6e 74 |ld proba|bly cont|
|00000920| 61 63 74 20 68 69 6d 20 | 61 74 20 43 4d 55 20 66 |act him |at CMU f|
|00000930| 69 72 73 74 2e 0a 0a 54 | 68 65 20 56 61 78 20 43 |irst...T|he Vax C|
|00000940| 6f 6d 6d 6f 6e 20 4c 69 | 73 70 20 61 6e 64 20 54 |ommon Li|sp and T|
|00000950| 49 20 45 78 70 6c 6f 72 | 65 72 20 76 65 72 73 69 |I Explor|er versi|
|00000960| 6f 6e 73 20 77 65 72 65 | 20 70 6f 72 74 65 64 20 |ons were| ported |
|00000970| 62 79 20 44 61 6e 20 4e | 65 69 6d 61 6e 0a 6f 66 |by Dan N|eiman.of|
|00000980| 20 74 68 65 20 55 6e 69 | 76 65 72 73 69 74 79 20 | the Uni|versity |
|00000990| 6f 66 20 4d 61 73 73 61 | 63 68 75 73 65 74 74 73 |of Massa|chusetts|
|000009a0| 2c 20 43 4f 49 4e 53 20 | 44 65 70 74 2e 20 20 54 |, COINS |Dept.  T|
|000009b0| 68 65 79 20 61 72 65 20 | 2a 6e 6f 74 2a 0a 67 75 |hey are |*not*.gu|
|000009c0| 61 72 61 6e 74 65 65 64 | 20 74 6f 20 62 65 20 31 |aranteed| to be 1|
|000009d0| 30 30 25 20 62 75 67 20 | 66 72 65 65 2c 20 70 61 |00% bug |free, pa|
|000009e0| 72 74 69 63 75 6c 61 72 | 6c 79 20 69 6e 20 74 68 |rticular|ly in th|
|000009f0| 65 20 49 2f 4f 20 66 75 | 6e 63 74 69 6f 6e 73 2c |e I/O fu|nctions,|
|00000a00| 20 62 75 74 0a 61 6e 79 | 20 62 75 67 73 20 66 6f | but.any| bugs fo|
|00000a10| 75 6e 64 20 73 68 6f 75 | 6c 64 20 62 65 20 6d 6f |und shou|ld be mo|
|00000a20| 73 74 6c 79 20 73 79 6e | 74 61 63 74 69 63 20 69 |stly syn|tactic i|
|00000a30| 6e 20 6e 61 74 75 72 65 | 2e 20 20 54 68 65 20 54 |n nature|.  The T|
|00000a40| 49 20 45 78 70 6c 6f 72 | 65 72 0a 74 61 6b 65 73 |I Explor|er.takes|
|00000a50| 20 61 64 76 61 6e 74 61 | 67 65 20 6f 66 20 73 6f | advanta|ge of so|
|00000a60| 6d 65 20 6e 6f 6e 2d 73 | 74 61 6e 64 61 72 64 20 |me non-s|tandard |
|00000a70| 66 65 61 74 75 72 65 73 | 20 6e 6f 74 20 6e 6f 72 |features| not nor|
|00000a80| 6d 61 6c 6c 79 20 69 6e | 20 43 6f 6d 6d 6f 6e 0a |mally in| Common.|
|00000a90| 4c 69 73 70 20 28 73 75 | 63 68 20 61 73 20 74 68 |Lisp (su|ch as th|
|00000aa0| 65 20 26 71 75 6f 74 65 | 20 6b 65 79 77 6f 72 64 |e &quote| keyword|
|00000ab0| 29 20 61 6e 64 20 69 73 | 20 73 6f 6d 65 77 68 61 |) and is| somewha|
|00000ac0| 74 20 63 6c 65 61 6e 65 | 72 3b 20 74 68 65 20 56 |t cleane|r; the V|
|00000ad0| 61 78 20 4c 69 73 70 0a | 76 65 72 73 69 6f 6e 20 |ax Lisp.|version |
|00000ae0| 69 73 20 6d 6f 72 65 20 | 67 65 6e 65 72 69 63 20 |is more |generic |
|00000af0| 61 6e 64 20 77 69 6c 6c | 20 72 75 6e 20 6f 6e 20 |and will| run on |
|00000b00| 6d 6f 72 65 20 73 79 73 | 74 65 6d 73 2e 20 20 54 |more sys|tems.  T|
|00000b10| 68 65 20 43 6f 6d 6d 6f | 6e 20 4c 69 73 70 0a 76 |he Commo|n Lisp.v|
|00000b20| 65 72 73 69 6f 6e 73 20 | 61 72 65 20 66 61 72 20 |ersions |are far |
|00000b30| 66 72 6f 6d 20 6f 70 74 | 69 6d 69 7a 65 64 2c 20 |from opt|imized, |
|00000b40| 74 68 65 20 6d 61 6a 6f | 72 20 65 6d 70 68 61 73 |the majo|r emphas|
|00000b50| 69 73 20 77 61 73 20 6f | 6e 20 67 65 74 74 69 6e |is was o|n gettin|
|00000b60| 67 20 74 68 65 6d 0a 77 | 6f 72 6b 69 6e 67 20 61 |g them.w|orking a|
|00000b70| 6e 64 20 74 68 65 72 65 | 20 61 72 65 20 6d 61 6e |nd there| are man|
|00000b80| 79 20 69 64 69 6f 6d 73 | 20 77 68 69 63 68 20 63 |y idioms| which c|
|00000b90| 6f 75 6c 64 20 62 65 20 | 65 78 70 72 65 73 73 65 |ould be |expresse|
|00000ba0| 64 20 6d 6f 72 65 0a 63 | 6f 6d 70 61 63 74 6c 79 |d more.c|ompactly|
|00000bb0| 20 61 6e 64 20 65 66 66 | 69 63 69 65 6e 74 6c 79 | and eff|iciently|
|00000bc0| 2e 0a 0a 4d 6f 64 69 66 | 69 63 61 74 69 6f 6e 73 |...Modif|ications|
|00000bd0| 20 74 6f 20 4f 50 53 20 | 69 74 73 65 6c 66 2e 20 | to OPS |itself. |
|00000be0| 20 54 68 65 20 70 6f 72 | 74 65 64 20 76 65 72 73 | The por|ted vers|
|00000bf0| 69 6f 6e 73 20 6f 66 20 | 4f 50 53 20 61 72 65 20 |ions of |OPS are |
|00000c00| 66 61 69 74 68 66 75 6c | 0a 74 6f 20 74 68 65 20 |faithful|.to the |
|00000c10| 6d 61 6e 75 61 6c 20 77 | 69 74 68 20 74 68 65 20 |manual w|ith the |
|00000c20| 66 6f 6c 6c 6f 77 69 6e | 67 20 65 78 63 65 70 74 |followin|g except|
|00000c30| 69 6f 6e 73 2c 20 43 6f | 6d 6d 6f 6e 20 4c 69 73 |ions, Co|mmon Lis|
|00000c40| 70 20 61 6c 72 65 61 64 | 79 0a 70 6f 73 73 65 73 |p alread|y.posses|
|00000c50| 73 65 73 20 66 75 6e 63 | 74 69 6f 6e 73 20 72 65 |ses func|tions re|
|00000c60| 6d 6f 76 65 2c 20 77 72 | 69 74 65 2c 20 61 6e 64 |move, wr|ite, and|
|00000c70| 20 63 61 6c 6c 3b 20 74 | 68 65 20 4f 50 53 35 20 | call; t|he OPS5 |
|00000c80| 66 75 6e 63 74 69 6f 6e | 73 20 68 61 76 65 0a 62 |function|s have.b|
|00000c90| 65 65 6e 20 72 65 6e 61 | 6d 65 64 20 6f 72 65 6d |een rena|med orem|
|00000ca0| 6f 76 65 2c 20 6f 77 72 | 69 74 65 2c 20 61 6e 64 |ove, owr|ite, and|
|00000cb0| 20 6f 63 61 6c 6c 20 72 | 65 73 70 65 63 74 69 76 | ocall r|espectiv|
|00000cc0| 65 6c 79 2e 20 20 54 68 | 65 20 4f 50 53 35 0a 63 |ely.  Th|e OPS5.c|
|00000cd0| 6f 6d 70 69 6c 61 74 69 | 6f 6e 20 66 75 6e 63 74 |ompilati|on funct|
|00000ce0| 69 6f 6e 73 20 68 61 76 | 65 20 62 65 65 6e 20 6d |ions hav|e been m|
|00000cf0| 6f 64 69 66 69 65 64 20 | 74 6f 20 70 65 72 66 6f |odified |to perfo|
|00000d00| 72 6d 20 74 68 69 73 20 | 72 65 6e 61 6d 69 6e 67 |rm this |renaming|
|00000d10| 0a 61 75 74 6f 6d 61 67 | 69 63 61 6c 6c 79 20 66 |.automag|ically f|
|00000d20| 6f 72 20 52 48 53 20 66 | 75 6e 63 74 69 6f 6e 73 |or RHS f|unctions|
|00000d30| 2e 20 20 54 68 65 20 75 | 73 65 72 20 77 69 6c 6c |.  The u|ser will|
|00000d40| 20 68 61 76 65 20 74 6f | 20 72 65 6d 65 6d 62 65 | have to| remembe|
|00000d50| 72 20 74 6f 20 75 73 65 | 0a 6f 72 65 6d 6f 76 65 |r to use|.oremove|
|00000d60| 20 77 68 65 6e 20 72 65 | 6d 6f 76 69 6e 67 20 77 | when re|moving w|
|00000d70| 6f 72 6b 69 6e 67 20 6d | 65 6d 6f 72 79 20 66 72 |orking m|emory fr|
|00000d80| 6f 6d 20 74 68 65 20 74 | 6f 70 20 6c 65 76 65 6c |om the t|op level|
|00000d90| 2e 0a 0a 54 65 73 74 20 | 70 72 6f 67 72 61 6d 73 |...Test |programs|
|00000da0| 3a 20 20 54 68 65 72 65 | 20 61 72 65 20 6e 6f 74 |:  There| are not|
|00000db0| 20 61 20 6c 6f 74 20 6f | 66 20 4f 50 53 35 20 62 | a lot o|f OPS5 b|
|00000dc0| 65 6e 63 68 6d 61 72 6b | 20 70 72 6f 67 72 61 6d |enchmark| program|
|00000dd0| 73 0a 61 76 61 69 6c 61 | 62 6c 65 2e 20 20 54 68 |s.availa|ble.  Th|
|00000de0| 65 20 6d 6f 6e 6b 65 79 | 20 61 6e 64 20 62 61 6e |e monkey| and ban|
|00000df0| 61 6e 61 73 20 70 72 6f | 67 72 61 6d 20 77 61 73 |anas pro|gram was|
|00000e00| 20 69 6e 63 6c 75 64 65 | 64 20 69 6e 20 74 68 65 | include|d in the|
|00000e10| 20 6f 72 69 67 69 6e 61 | 6c 0a 64 69 73 74 72 69 | origina|l.distri|
|00000e20| 62 75 74 69 6f 6e 2e 20 | 20 54 68 65 20 73 6f 72 |bution. | The sor|
|00000e30| 74 20 61 6e 64 20 54 6f | 77 65 72 73 20 6f 66 20 |t and To|wers of |
|00000e40| 48 61 6e 6f 69 20 70 72 | 6f 62 6c 65 6d 73 20 64 |Hanoi pr|oblems d|
|00000e50| 65 6d 6f 6e 73 74 72 61 | 74 65 20 4f 50 53 35 2c |emonstra|te OPS5,|
|00000e60| 0a 62 75 74 20 61 72 65 | 20 6e 6f 74 20 70 61 72 |.but are| not par|
|00000e70| 74 69 63 75 6c 61 72 6c | 79 20 67 6f 6f 64 20 65 |ticularl|y good e|
|00000e80| 78 65 6d 70 6c 61 72 73 | 20 6f 66 20 74 68 65 20 |xemplars| of the |
|00000e90| 74 61 73 6b 73 20 74 68 | 61 74 20 79 6f 75 20 77 |tasks th|at you w|
|00000ea0| 61 6e 74 20 74 6f 0a 73 | 6f 6c 76 65 20 75 73 69 |ant to.s|olve usi|
|00000eb0| 6e 67 20 61 20 70 72 6f | 64 75 63 74 69 6f 6e 20 |ng a pro|duction |
|00000ec0| 73 79 73 74 65 6d 2e 0a | 0a 0a 51 75 65 73 74 69 |system..|..Questi|
|00000ed0| 6f 6e 73 20 61 62 6f 75 | 74 20 74 68 65 73 65 20 |ons abou|t these |
|00000ee0| 76 65 72 73 69 6f 6e 73 | 20 6f 66 20 4f 50 53 35 |versions| of OPS5|
|00000ef0| 20 63 61 6e 20 62 65 20 | 64 69 72 65 63 74 65 64 | can be |directed|
|00000f00| 20 74 6f 20 44 61 6e 20 | 4e 65 69 6d 61 6e 2c 0a | to Dan |Neiman,.|
|00000f10| 61 74 20 65 6c 65 63 74 | 72 6f 6e 69 63 20 6d 61 |at elect|ronic ma|
|00000f20| 69 6c 20 61 64 64 72 65 | 73 73 65 73 20 43 53 4e |il addre|sses CSN|
|00000f30| 45 54 3a 20 64 61 6e 6e | 40 63 73 2e 75 6d 61 73 |ET: dann|@cs.umas|
|00000f40| 73 2e 65 64 75 2c 0a 64 | 61 6e 6e 40 75 6d 61 73 |s.edu,.d|ann@umas|
|00000f50| 73 2d 63 73 2e 63 73 6e | 65 74 0a 20 20 20 20 20 |s-cs.csn|et.     |
|00000f60| 20 20 20 20 20 43 6f 6d | 70 75 53 65 72 76 65 3a |     Com|puServe:|
|00000f70| 20 37 32 32 37 37 2c 32 | 36 30 34 0a 20 20 20 20 | 72277,2|604.    |
|00000f80| 20 20 20 20 20 20 52 65 | 61 6c 20 4d 61 69 6c 3a |      Re|al Mail:|
|00000f90| 20 43 4f 49 4e 53 20 44 | 65 70 74 2e 0a 20 20 20 | COINS D|ept..   |
|00000fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fb0| 20 20 4c 65 64 65 72 6c | 65 20 47 72 61 64 75 61 |  Lederl|e Gradua|
|00000fc0| 74 65 20 52 65 73 65 61 | 72 63 68 20 43 65 6e 74 |te Resea|rch Cent|
|00000fd0| 65 72 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |er.     |        |
|00000fe0| 20 20 20 20 20 20 20 20 | 55 4d 61 73 73 0a 20 20 |        |UMass.  |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001000| 20 20 20 41 6d 68 65 72 | 73 74 2c 20 4d 41 20 30 |   Amher|st, MA 0|
|00001010| 31 30 30 33 20 20 0a 0a | 2d 2d 2d 2d 2d 2d 2d 2d |1003  ..|--------|
|00001020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0a 41 70 70 |--------|----.App|
|00001030| 65 61 72 69 6e 67 20 62 | 65 6c 6f 77 20 69 73 20 |earing b|elow is |
|00001040| 6f 75 74 70 75 74 20 66 | 72 6f 6d 20 74 68 65 20 |output f|rom the |
|00001050| 64 69 66 66 20 75 74 69 | 6c 69 74 79 20 28 55 4e |diff uti|lity (UN|
|00001060| 49 58 20 34 2e 33 20 62 | 73 64 2c 20 69 66 20 69 |IX 4.3 b|sd, if i|
|00001070| 74 0a 6d 61 74 74 65 72 | 73 29 20 69 6e 64 69 63 |t.matter|s) indic|
|00001080| 61 74 69 6e 67 20 74 68 | 65 20 63 68 61 6e 67 65 |ating th|e change|
|00001090| 73 20 6e 65 65 64 65 64 | 20 74 6f 20 6d 61 6b 65 |s needed| to make|
|000010a0| 20 74 68 65 20 22 43 6f | 6d 6d 6f 6e 20 4c 69 73 | the "Co|mmon Lis|
|000010b0| 70 22 20 4f 50 53 35 0a | 73 6f 75 72 63 65 20 70 |p" OPS5.|source p|
|000010c0| 6f 73 74 65 64 20 74 6f | 20 74 68 69 73 20 66 6f |osted to| this fo|
|000010d0| 72 75 6d 20 63 6f 6d 70 | 61 74 69 62 6c 65 20 77 |rum comp|atible w|
|000010e0| 69 74 68 20 47 6f 6c 64 | 20 48 69 6c 6c 20 22 47 |ith Gold| Hill "G|
|000010f0| 43 20 32 38 36 20 44 65 | 76 65 6c 6f 70 65 72 2e |C 286 De|veloper.|
|00001100| 22 0a 45 78 70 6c 61 6e | 61 74 6f 72 79 20 6d 61 |".Explan|atory ma|
|00001110| 74 65 72 69 61 6c 20 69 | 73 20 69 6e 74 65 72 73 |terial i|s inters|
|00001120| 70 65 72 73 65 64 2c 20 | 64 65 6e 6f 74 65 64 20 |persed, |denoted |
|00001130| 62 79 20 2a 2a 2a 2e 20 | 54 68 69 73 20 66 69 6c |by ***. |This fil|
|00001140| 65 20 61 6c 73 6f 0a 69 | 6e 63 6c 75 64 65 73 20 |e also.i|ncludes |
|00001150| 63 6f 6d 6d 65 6e 74 73 | 20 6f 6e 20 47 43 20 32 |comments| on GC 2|
|00001160| 38 36 20 76 65 72 73 75 | 73 20 45 78 70 65 72 4c |86 versu|s ExperL|
|00001170| 69 73 70 20 61 6e 64 20 | 45 78 70 65 72 43 6f 6d |isp and |ExperCom|
|00001180| 6d 6f 6e 20 4c 69 73 70 | 20 6f 6e 0a 74 68 65 20 |mon Lisp| on.the |
|00001190| 4d 61 63 69 6e 74 6f 73 | 68 2e 0a 0a 57 69 74 68 |Macintos|h...With|
|000011a0| 20 74 68 65 73 65 20 63 | 68 61 6e 67 65 73 2c 20 | these c|hanges, |
|000011b0| 4f 50 53 35 20 63 6f 6d | 70 69 6c 65 73 20 77 69 |OPS5 com|piles wi|
|000011c0| 74 68 6f 75 74 20 65 72 | 72 6f 72 73 2c 20 74 68 |thout er|rors, th|
|000011d0| 6f 75 67 68 20 49 20 68 | 61 76 65 6e 27 74 20 0a |ough I h|aven't .|
|000011e0| 76 65 72 69 66 69 65 64 | 20 61 6c 6c 20 6f 66 20 |verified| all of |
|000011f0| 69 74 73 20 62 65 68 61 | 76 69 6f 72 73 20 79 65 |its beha|viors ye|
|00001200| 74 3a 20 74 68 65 20 6d | 61 74 68 20 6f 70 65 72 |t: the m|ath oper|
|00001210| 61 74 6f 72 73 20 73 65 | 65 6d 20 74 6f 20 62 65 |ators se|em to be|
|00001220| 0a 61 20 6c 69 74 74 6c | 65 20 73 71 75 69 72 72 |.a littl|e squirr|
|00001230| 65 6c 79 2e 20 54 68 65 | 20 6d 6f 6e 6b 65 79 73 |ely. The| monkeys|
|00001240| 2d 61 6e 64 2d 62 61 6e | 61 6e 61 73 20 62 65 6e |-and-ban|anas ben|
|00001250| 63 68 6d 61 72 6b 20 4c | 4f 41 44 53 20 77 69 74 |chmark L|OADS wit|
|00001260| 68 6f 75 74 0a 65 72 72 | 6f 72 20 61 6e 64 20 52 |hout.err|or and R|
|00001270| 55 4e 73 20 69 6e 20 61 | 20 6c 69 74 74 6c 65 20 |UNs in a| little |
|00001280| 6f 76 65 72 20 35 20 73 | 65 63 6f 6e 64 73 20 28 |over 5 s|econds (|
|00001290| 43 4f 4d 50 41 51 20 44 | 65 73 6b 50 72 6f 20 32 |COMPAQ D|eskPro 2|
|000012a0| 38 36 2c 20 33 20 4d 42 | 0a 65 78 74 65 6e 64 65 |86, 3 MB|.extende|
|000012b0| 64 20 6d 65 6d 6f 72 79 | 2c 20 38 20 4d 48 7a 20 |d memory|, 8 MHz |
|000012c0| 63 6c 6f 63 6b 2f 36 20 | 4d 48 7a 20 62 75 73 29 |clock/6 |MHz bus)|
|000012d0| 3b 20 74 68 69 73 20 69 | 73 20 6f 6e 20 74 68 65 |; this i|s on the|
|000012e0| 20 6f 72 64 65 72 20 6f | 66 0a 74 68 72 65 65 20 | order o|f.three |
|000012f0| 74 69 6d 65 73 20 74 68 | 65 20 74 69 6d 65 20 72 |times th|e time r|
|00001300| 65 70 6f 72 74 65 64 20 | 62 79 20 50 72 6f 64 75 |eported |by Produ|
|00001310| 63 74 69 6f 6e 20 53 79 | 73 74 65 6d 73 20 66 6f |ction Sy|stems fo|
|00001320| 72 20 61 20 53 79 6d 62 | 6f 6c 69 63 73 0a 6d 61 |r a Symb|olics.ma|
|00001330| 63 68 69 6e 65 20 69 6e | 20 74 68 65 69 72 20 4f |chine in| their O|
|00001340| 50 53 38 33 20 61 64 76 | 65 72 74 69 73 69 6e 67 |PS83 adv|ertising|
|00001350| 2e 20 48 69 67 68 6c 79 | 20 63 6f 73 74 2d 65 66 |. Highly| cost-ef|
|00001360| 66 65 63 74 69 76 65 21 | 0a 0a 54 68 69 73 20 69 |fective!|..This i|
|00001370| 73 20 74 68 65 20 66 69 | 72 73 74 20 74 68 69 6e |s the fi|rst thin|
|00001380| 67 20 77 65 27 76 65 20 | 74 61 63 6b 6c 65 64 20 |g we've |tackled |
|00001390| 77 69 74 68 20 47 43 20 | 32 38 36 20 2d 2d 20 74 |with GC |286 -- t|
|000013a0| 68 65 20 43 4f 4d 50 41 | 51 20 77 61 73 20 6a 75 |he COMPA|Q was ju|
|000013b0| 73 74 0a 64 65 6c 69 76 | 65 72 65 64 20 61 20 77 |st.deliv|ered a w|
|000013c0| 65 65 6b 20 61 67 6f 2c | 20 61 6e 64 20 77 65 20 |eek ago,| and we |
|000013d0| 64 69 73 63 6f 76 65 72 | 65 64 20 61 6e 64 20 64 |discover|ed and d|
|000013e0| 6f 77 6e 6c 6f 61 64 65 | 64 20 74 68 65 20 4f 50 |ownloade|d the OP|
|000013f0| 53 35 20 73 6f 75 72 63 | 65 0a 6f 76 65 72 20 74 |S5 sourc|e.over t|
|00001400| 68 61 74 20 77 65 65 6b | 65 6e 64 2e 20 57 65 27 |hat week|end. We'|
|00001410| 72 65 20 73 75 72 65 6c | 79 20 6c 6f 6f 6b 69 6e |re surel|y lookin|
|00001420| 67 20 66 6f 72 77 61 72 | 64 20 74 6f 20 72 65 66 |g forwar|d to ref|
|00001430| 69 6e 69 6e 67 20 69 74 | 20 77 69 74 68 20 73 6f |ining it| with so|
|00001440| 6d 65 0a 6f 66 20 74 68 | 65 20 52 65 74 65 20 74 |me.of th|e Rete t|
|00001450| 6f 6f 6c 73 20 64 69 73 | 63 75 73 73 65 64 20 69 |ools dis|cussed i|
|00001460| 6e 20 74 68 65 20 4a 61 | 6e 75 61 72 79 20 41 49 |n the Ja|nuary AI|
|00001470| 45 2e 20 47 43 20 32 38 | 36 20 69 73 20 61 20 77 |E. GC 28|6 is a w|
|00001480| 6f 6e 64 65 72 3a 0a 6d | 79 20 63 6f 2d 77 6f 72 |onder:.m|y co-wor|
|00001490| 6b 65 72 73 2c 20 77 68 | 6f 20 74 68 69 6e 6b 20 |kers, wh|o think |
|000014a0| 61 20 53 79 6d 62 6f 6c | 69 63 73 20 69 73 20 61 |a Symbol|ics is a|
|000014b0| 20 70 65 72 73 6f 6e 61 | 6c 20 63 6f 6d 70 75 74 | persona|l comput|
|000014c0| 65 72 2c 20 77 65 72 65 | 20 76 69 73 69 62 6c 79 |er, were| visibly|
|000014d0| 0a 69 6d 70 72 65 73 73 | 65 64 20 62 79 20 74 68 |.impress|ed by th|
|000014e0| 65 20 65 78 63 65 6c 6c | 65 6e 74 20 69 6e 74 65 |e excell|ent inte|
|000014f0| 67 72 61 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 47 |gration |of the G|
|00001500| 4d 41 43 53 20 65 64 69 | 74 6f 72 20 69 6e 74 6f |MACS edi|tor into|
|00001510| 20 74 68 65 0a 47 43 20 | 32 38 36 20 65 6e 76 69 | the.GC |286 envi|
|00001520| 72 6f 6e 6d 65 6e 74 2c | 20 61 6e 64 20 62 79 20 |ronment,| and by |
|00001530| 74 68 65 20 61 62 69 6c | 69 74 79 20 74 6f 20 6a |the abil|ity to j|
|00001540| 75 6d 70 20 66 72 6f 6d | 20 4c 69 73 70 20 69 6e |ump from| Lisp in|
|00001550| 74 6f 20 44 4f 53 20 2d | 2d 20 66 6f 72 0a 65 78 |to DOS -|- for.ex|
|00001560| 61 6d 70 6c 65 2c 20 74 | 6f 20 72 75 6e 20 61 20 |ample, t|o run a |
|00001570| 74 65 72 6d 69 6e 61 6c | 20 65 6d 75 6c 61 74 6f |terminal| emulato|
|00001580| 72 20 61 6e 64 20 62 72 | 69 6e 67 20 4c 69 73 70 |r and br|ing Lisp|
|00001590| 20 66 69 6c 65 73 20 64 | 6f 77 6e 20 66 72 6f 6d | files d|own from|
|000015a0| 20 74 68 65 0a 56 41 58 | 20 28 77 68 69 63 68 20 | the.VAX| (which |
|000015b0| 69 73 20 45 74 68 65 72 | 6e 65 74 74 65 64 20 74 |is Ether|netted t|
|000015c0| 6f 20 74 68 65 20 53 79 | 6d 62 6f 6c 69 63 73 20 |o the Sy|mbolics |
|000015d0| 6d 61 63 68 69 6e 65 73 | 29 2e 20 54 68 65 79 27 |machines|). They'|
|000015e0| 72 65 20 61 6c 72 65 61 | 64 79 0a 73 74 61 72 74 |re alrea|dy.start|
|000015f0| 69 6e 67 20 74 6f 20 73 | 68 69 70 20 6d 65 20 53 |ing to s|hip me S|
|00001600| 79 6d 62 6f 6c 69 63 73 | 20 63 6f 64 65 20 77 69 |ymbolics| code wi|
|00001610| 74 68 20 72 65 71 75 65 | 73 74 73 20 74 6f 20 69 |th reque|sts to i|
|00001620| 6e 76 65 73 74 69 67 61 | 74 65 20 69 74 73 0a 70 |nvestiga|te its.p|
|00001630| 6f 72 74 61 62 69 6c 69 | 74 79 20 74 6f 20 47 43 |ortabili|ty to GC|
|00001640| 20 32 38 36 20 66 6f 72 | 20 64 65 6c 69 76 65 72 | 286 for| deliver|
|00001650| 79 2e 0a 0a 41 20 66 69 | 6e 61 6c 20 68 6f 6c 69 |y...A fi|nal holi|
|00001660| 64 61 79 20 6e 6f 74 65 | 3a 20 49 20 63 61 6c 6c |day note|: I call|
|00001670| 65 64 20 6d 79 20 63 6f | 6e 74 61 63 74 20 61 74 |ed my co|ntact at|
|00001680| 20 47 6f 6c 64 20 48 69 | 6c 6c 20 74 6f 20 70 61 | Gold Hi|ll to pa|
|00001690| 73 73 20 6f 6e 20 73 6f | 6d 65 20 6f 66 0a 74 68 |ss on so|me of.th|
|000016a0| 65 73 65 20 69 6d 70 72 | 65 73 73 69 6f 6e 73 2c |ese impr|essions,|
|000016b0| 20 74 68 65 20 64 61 79 | 20 62 65 66 6f 72 65 20 | the day| before |
|000016c0| 43 68 72 69 73 74 6d 61 | 73 20 61 74 20 34 3a 34 |Christma|s at 4:4|
|000016d0| 35 20 42 6f 73 74 6f 6e | 20 74 69 6d 65 2e 20 22 |5 Boston| time. "|
|000016e0| 48 65 27 73 20 6f 6e 0a | 76 61 63 61 74 69 6f 6e |He's on.|vacation|
|000016f0| 2c 22 20 49 20 77 61 73 | 20 74 6f 6c 64 2c 20 22 |," I was| told, "|
|00001700| 62 75 74 20 6d 61 79 62 | 65 20 49 20 63 61 6e 20 |but mayb|e I can |
|00001710| 68 65 6c 70 20 79 6f 75 | 2e 22 20 22 57 68 6f 27 |help you|." "Who'|
|00001720| 73 20 74 68 69 73 3f 2c | 22 20 49 20 61 73 6b 65 |s this?,|" I aske|
|00001730| 64 0a 69 6e 6e 6f 63 65 | 6e 74 6c 79 2e 20 54 75 |d.innoce|ntly. Tu|
|00001740| 72 6e 65 64 20 6f 75 74 | 20 74 6f 20 62 65 20 45 |rned out| to be E|
|00001750| 75 67 65 6e 65 20 57 61 | 6e 67 2c 20 70 72 65 73 |ugene Wa|ng, pres|
|00001760| 69 64 65 6e 74 20 6f 66 | 20 74 68 65 20 63 6f 6d |ident of| the com|
|00001770| 70 61 6e 79 2e 2e 2e 20 | 77 65 0a 68 61 64 20 61 |pany... |we.had a|
|00001780| 20 6d 6f 73 74 20 65 6e | 6a 6f 79 61 62 6c 65 20 | most en|joyable |
|00001790| 64 69 73 63 75 73 73 69 | 6f 6e 20 6f 66 20 6d 69 |discussi|on of mi|
|000017a0| 63 72 6f 20 4c 69 73 70 | 73 20 61 6e 64 20 74 68 |cro Lisp|s and th|
|000017b0| 65 20 41 4e 53 49 20 4c | 69 73 70 20 65 66 66 6f |e ANSI L|isp effo|
|000017c0| 72 74 2e 0a 53 6f 6d 65 | 20 70 65 6f 70 6c 65 20 |rt..Some| people |
|000017d0| 61 72 65 20 6a 75 73 74 | 20 61 20 70 6c 65 61 73 |are just| a pleas|
|000017e0| 75 72 65 20 74 6f 20 64 | 6f 20 62 75 73 69 6e 65 |ure to d|o busine|
|000017f0| 73 73 20 77 69 74 68 2e | 0a 0a 41 73 20 61 20 6c |ss with.|..As a l|
|00001800| 6f 6e 67 2d 74 69 6d 65 | 20 75 73 65 72 20 61 6e |ong-time| user an|
|00001810| 64 20 67 65 6e 65 72 61 | 6c 6c 79 20 61 20 66 61 |d genera|lly a fa|
|00001820| 6e 20 6f 66 20 45 78 70 | 65 72 4c 69 73 70 20 28 |n of Exp|erLisp (|
|00001830| 61 6e 64 20 6e 6f 77 20 | 45 78 70 65 72 43 6f 6d |and now |ExperCom|
|00001840| 6d 6f 6e 0a 4c 69 73 70 | 29 2c 20 49 20 63 61 6e |mon.Lisp|), I can|
|00001850| 27 74 20 68 65 6c 70 20 | 62 75 74 20 72 65 67 72 |'t help |but regr|
|00001860| 65 74 20 73 6f 6d 65 20 | 6f 66 20 74 68 65 20 64 |et some |of the d|
|00001870| 69 66 66 65 72 65 6e 63 | 65 73 20 62 65 74 77 65 |ifferenc|es betwe|
|00001880| 65 6e 20 45 78 70 65 72 | 20 61 6e 64 0a 47 43 2e |en Exper| and.GC.|
|00001890| 20 4e 65 69 74 68 65 72 | 20 69 73 20 75 6e 69 66 | Neither| is unif|
|000018a0| 6f 72 6d 6c 79 20 62 65 | 74 74 65 72 2e 20 45 78 |ormly be|tter. Ex|
|000018b0| 70 65 72 20 68 61 73 20 | 74 68 65 20 77 6f 6e 64 |per has |the wond|
|000018c0| 65 72 66 75 6c 20 4d 61 | 63 20 65 64 69 74 69 6e |erful Ma|c editin|
|000018d0| 67 20 0a 69 6e 74 65 72 | 66 61 63 65 2c 20 62 75 |g .inter|face, bu|
|000018e0| 74 20 47 4d 41 43 53 20 | 69 73 20 61 20 6d 6f 72 |t GMACS |is a mor|
|000018f0| 65 20 77 6f 72 6b 6d 61 | 6e 6c 69 6b 65 20 65 6e |e workma|nlike en|
|00001900| 76 69 72 6f 6e 6d 65 6e | 74 20 77 69 74 68 20 61 |vironmen|t with a|
|00001910| 20 6c 6f 74 20 6d 6f 72 | 65 0a 70 6f 77 65 72 20 | lot mor|e.power |
|00001920| 69 6e 20 73 65 61 72 63 | 68 65 73 2c 20 6d 6f 76 |in searc|hes, mov|
|00001930| 65 73 20 62 79 20 65 78 | 70 72 65 73 73 69 6f 6e |es by ex|pression|
|00001940| 2c 20 65 74 63 2e 20 45 | 78 70 65 72 43 6f 6d 6d |, etc. E|xperComm|
|00001950| 6f 6e 20 63 61 6e 20 6f | 6e 6c 79 20 65 64 69 74 |on can o|nly edit|
|00001960| 0a 66 69 6c 65 73 20 75 | 70 20 74 6f 20 33 32 4b |.files u|p to 32K|
|00001970| 2c 20 72 65 71 75 69 72 | 69 6e 67 20 61 67 67 72 |, requir|ing aggr|
|00001980| 61 76 61 74 69 6e 67 20 | 73 65 67 6d 65 6e 74 61 |avating |segmenta|
|00001990| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 31 30 30 2b |tion of |the 100+|
|000019a0| 4b 20 4f 50 53 35 0a 73 | 6f 75 72 63 65 2c 20 77 |K OPS5.s|ource, w|
|000019b0| 68 69 6c 65 20 47 4d 41 | 43 53 20 77 6f 72 6b 73 |hile GMA|CS works|
|000019c0| 20 71 75 69 74 65 20 68 | 61 70 70 69 6c 79 20 77 | quite h|appily w|
|000019d0| 69 74 68 20 74 68 65 20 | 77 68 6f 6c 65 20 74 68 |ith the |whole th|
|000019e0| 69 6e 67 20 61 74 20 6f | 6e 63 65 2e 0a 45 78 70 |ing at o|nce..Exp|
|000019f0| 65 72 43 6f 6d 6d 6f 6e | 20 63 68 6f 6b 65 73 20 |erCommon| chokes |
|00001a00| 6f 6e 20 74 68 65 20 4f | 50 53 35 20 64 65 66 69 |on the O|PS5 defi|
|00001a10| 6e 69 74 69 6f 6e 73 20 | 6f 66 20 7b 20 61 6e 64 |nitions |of { and|
|00001a20| 20 7d 2c 20 73 69 6e 63 | 65 20 69 74 20 75 73 65 | }, sinc|e it use|
|00001a30| 73 0a 74 68 6f 73 65 20 | 61 73 20 6d 75 6c 74 69 |s.those |as multi|
|00001a40| 2d 6c 69 6e 65 20 63 6f | 6d 6d 65 6e 74 20 64 65 |-line co|mment de|
|00001a50| 6c 69 6d 69 74 65 72 73 | 2c 20 61 6e 64 20 6f 6e |limiters|, and on|
|00001a60| 20 4f 50 53 35 20 66 75 | 6e 63 74 69 6f 6e 73 20 | OPS5 fu|nctions |
|00001a70| 77 68 6f 73 65 20 6e 61 | 6d 65 73 0a 62 65 67 69 |whose na|mes.begi|
|00001a80| 6e 20 77 69 74 68 20 24 | 20 73 69 6e 63 65 20 69 |n with $| since i|
|00001a90| 74 20 64 65 66 69 6e 65 | 73 20 74 68 61 74 20 61 |t define|s that a|
|00001aa0| 73 20 61 20 6d 61 63 72 | 6f 20 63 68 61 72 61 63 |s a macr|o charac|
|00001ab0| 74 65 72 20 66 6f 72 20 | 22 68 65 78 20 76 61 6c |ter for |"hex val|
|00001ac0| 75 65 20 74 6f 0a 66 6f | 6c 6c 6f 77 2e 22 0a 0a |ue to.fo|llow."..|
|00001ad0| 47 43 20 32 38 36 20 72 | 75 6e 73 20 65 6c 65 6d |GC 286 r|uns elem|
|00001ae0| 65 6e 74 61 72 79 20 62 | 65 6e 63 68 6d 61 72 6b |entary b|enchmark|
|00001af0| 73 20 6c 69 6b 65 20 46 | 49 42 4f 4e 41 43 43 49 |s like F|IBONACCI|
|00001b00| 20 61 62 6f 75 74 20 33 | 30 25 20 73 6c 6f 77 65 | about 3|0% slowe|
|00001b10| 72 20 69 6e 0a 69 74 73 | 20 69 6e 74 65 72 70 72 |r in.its| interpr|
|00001b20| 65 74 65 72 20 74 68 61 | 6e 20 45 78 70 65 72 4c |eter tha|n ExperL|
|00001b30| 69 73 70 20 31 2e 35 20 | 72 65 71 75 69 72 65 73 |isp 1.5 |requires|
|00001b40| 20 69 6e 20 69 74 73 20 | 69 6e 63 72 65 6d 65 6e | in its |incremen|
|00001b50| 74 61 6c 20 63 6f 6d 70 | 69 6c 65 72 3b 0a 47 43 |tal comp|iler;.GC|
|00001b60| 20 69 73 20 66 61 73 74 | 65 72 20 74 68 61 6e 20 | is fast|er than |
|00001b70| 45 78 70 65 72 20 31 2e | 35 20 62 79 20 61 20 66 |Exper 1.|5 by a f|
|00001b80| 61 63 74 6f 72 20 6f 66 | 20 31 30 20 77 68 65 6e |actor of| 10 when|
|00001b90| 20 63 6f 6d 70 69 6c 65 | 64 20 28 74 68 65 20 74 | compile|d (the t|
|00001ba0| 69 6d 65 73 0a 66 6f 72 | 20 45 78 70 65 72 20 61 |imes.for| Exper a|
|00001bb0| 72 65 20 6f 6e 20 61 20 | 31 20 4d 42 20 4d 61 63 |re on a |1 MB Mac|
|00001bc0| 20 77 69 74 68 20 45 78 | 70 65 72 4c 69 73 70 20 | with Ex|perLisp |
|00001bd0| 63 6f 6e 66 69 67 75 72 | 65 64 20 66 6f 72 20 32 |configur|ed for 2|
|00001be0| 34 2c 30 30 30 20 63 6f | 6e 73 0a 63 65 6c 6c 73 |4,000 co|ns.cells|
|00001bf0| 20 61 6e 64 20 34 38 30 | 30 20 73 79 6d 62 6f 6c | and 480|0 symbol|
|00001c00| 73 3b 20 47 43 20 74 69 | 6d 65 73 20 61 72 65 20 |s; GC ti|mes are |
|00001c10| 6f 6e 20 74 68 65 20 63 | 6f 6e 66 69 67 75 72 61 |on the c|onfigura|
|00001c20| 74 69 6f 6e 20 67 69 76 | 65 6e 20 61 62 6f 76 65 |tion giv|en above|
|00001c30| 29 2e 0a 0a 4f 6e 20 74 | 68 65 20 6f 74 68 65 72 |)...On t|he other|
|00001c40| 20 68 61 6e 64 2c 20 74 | 68 65 20 63 6f 6d 70 6c | hand, t|he compl|
|00001c50| 65 74 65 20 4d 61 63 20 | 74 6f 6f 6c 62 6f 78 20 |ete Mac |toolbox |
|00001c60| 69 6e 74 65 67 72 61 74 | 69 6f 6e 20 6f 66 20 45 |integrat|ion of E|
|00001c70| 78 70 65 72 43 6f 6d 6d | 6f 6e 0a 69 73 20 67 6f |xperComm|on.is go|
|00001c80| 69 6e 67 20 74 6f 20 6d | 61 6b 65 20 66 6f 72 20 |ing to m|ake for |
|00001c90| 73 6f 6d 65 20 72 65 61 | 6c 6c 79 20 73 65 6e 73 |some rea|lly sens|
|00001ca0| 61 74 69 6f 6e 61 6c 20 | 61 70 70 6c 69 63 61 74 |ational |applicat|
|00001cb0| 69 6f 6e 73 2e 20 49 6d | 61 67 69 6e 65 20 61 6e |ions. Im|agine an|
|00001cc0| 0a 69 6d 70 6c 65 6d 65 | 6e 74 61 74 69 6f 6e 20 |.impleme|ntation |
|00001cd0| 6f 66 20 4f 50 45 4e 20 | 74 68 61 74 20 6d 61 6b |of OPEN |that mak|
|00001ce0| 65 73 20 74 68 65 20 66 | 69 6c 65 6e 61 6d 65 20 |es the f|ilename |
|00001cf0| 26 6f 70 74 69 6f 6e 61 | 6c 2c 20 61 6e 64 20 69 |&optiona|l, and i|
|00001d00| 66 20 6e 75 6c 6c 0a 67 | 6f 65 73 20 69 6e 74 6f |f null.g|oes into|
|00001d10| 20 74 68 65 20 73 74 61 | 6e 64 61 72 64 20 66 69 | the sta|ndard fi|
|00001d20| 6c 65 20 64 69 61 6c 6f | 67 75 65 20 66 6f 72 20 |le dialo|gue for |
|00001d30| 6d 6f 75 73 65 2d 6d 65 | 6e 75 20 73 65 6c 65 63 |mouse-me|nu selec|
|00001d40| 74 69 6f 6e 20 6f 66 20 | 61 6e 79 0a 66 69 6c 65 |tion of |any.file|
|00001d50| 20 28 77 69 74 68 20 61 | 70 70 72 6f 70 72 69 61 | (with a|ppropria|
|00001d60| 74 65 20 72 65 73 74 72 | 69 63 74 69 6f 6e 73 20 |te restr|ictions |
|00001d70| 6f 6e 20 74 79 70 65 29 | 20 69 6e 20 74 68 65 20 |on type)| in the |
|00001d80| 65 6e 74 69 72 65 20 68 | 69 65 72 61 72 63 68 69 |entire h|ierarchi|
|00001d90| 63 61 6c 0a 66 69 6c 65 | 20 73 79 73 74 65 6d 2e |cal.file| system.|
|00001da0| 20 4e 69 63 65 2e 2e 2e | 0a 0a 49 66 20 74 68 69 | Nice...|..If thi|
|00001db0| 73 20 73 6f 75 6e 64 73 | 20 61 73 20 69 66 20 49 |s sounds| as if I|
|00001dc0| 27 6d 20 6e 6f 74 20 73 | 75 72 65 20 77 68 69 63 |'m not s|ure whic|
|00001dd0| 68 20 49 20 70 72 65 66 | 65 72 2c 20 74 68 61 74 |h I pref|er, that|
|00001de0| 27 73 20 70 72 65 74 74 | 79 20 61 63 63 75 72 61 |'s prett|y accura|
|00001df0| 74 65 2e 0a 4d 75 73 63 | 6c 65 20 6d 65 6d 6f 72 |te..Musc|le memor|
|00001e00| 79 20 66 6f 72 20 47 4d | 41 43 53 20 6b 65 79 63 |y for GM|ACS keyc|
|00001e10| 68 6f 72 64 73 20 69 73 | 20 64 65 76 65 6c 6f 70 |hords is| develop|
|00001e20| 69 6e 67 20 71 75 69 63 | 6b 6c 79 2c 20 61 6e 64 |ing quic|kly, and|
|00001e30| 20 69 74 27 73 20 65 61 | 73 79 20 74 6f 0a 67 65 | it's ea|sy to.ge|
|00001e40| 74 20 73 70 6f 69 6c 65 | 64 20 62 79 20 6f 6e 2d |t spoile|d by on-|
|00001e50| 6c 69 6e 65 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 |line doc|umentati|
|00001e60| 6f 6e 20 61 6e 64 20 61 | 6c 6c 20 74 68 65 20 6f |on and a|ll the o|
|00001e70| 74 68 65 72 20 47 43 20 | 67 6f 6f 64 69 65 73 2e |ther GC |goodies.|
|00001e80| 20 54 68 65 0a 4d 61 63 | 20 75 73 65 72 20 69 6e | The.Mac| user in|
|00001e90| 74 65 72 66 61 63 65 20 | 69 73 20 68 61 72 64 20 |terface |is hard |
|00001ea0| 74 6f 20 62 65 61 74 2c | 20 74 68 6f 75 67 68 2c |to beat,| though,|
|00001eb0| 20 61 6e 64 20 41 70 70 | 6c 65 27 73 20 66 75 74 | and App|le's fut|
|00001ec0| 75 72 65 20 43 50 55 0a | 75 70 67 72 61 64 65 20 |ure CPU.|upgrade |
|00001ed0| 70 61 74 68 20 6c 6f 6f | 6b 73 20 66 61 69 72 6c |path loo|ks fairl|
|00001ee0| 79 20 73 6d 6f 6f 74 68 | 20 28 63 6f 6d 70 61 72 |y smooth| (compar|
|00001ef0| 65 64 20 74 6f 20 74 68 | 65 20 63 68 61 6f 73 20 |ed to th|e chaos |
|00001f00| 6f 66 20 32 38 36 20 76 | 73 2e 20 33 38 36 0a 61 |of 286 v|s. 386.a|
|00001f10| 6e 64 20 49 42 4d 20 76 | 73 2e 20 4d 69 63 72 6f |nd IBM v|s. Micro|
|00001f20| 73 6f 66 74 20 6f 70 65 | 72 61 74 69 6e 67 20 73 |soft ope|rating s|
|00001f30| 79 73 74 65 6d 20 69 6e | 74 65 6e 74 69 6f 6e 73 |ystem in|tentions|
|00001f40| 29 2e 20 49 20 77 61 73 | 20 61 74 20 74 68 65 20 |). I was| at the |
|00001f50| 6d 65 65 74 69 6e 67 0a | 6f 66 20 74 68 65 20 50 |meeting.|of the P|
|00001f60| 65 72 73 6f 6e 61 6c 20 | 43 6f 6d 70 75 74 65 72 |ersonal |Computer|
|00001f70| 20 50 72 6f 66 65 73 73 | 69 6f 6e 61 6c 73 20 41 | Profess|ionals A|
|00001f80| 73 73 6f 63 69 61 74 69 | 6f 6e 20 74 68 61 74 20 |ssociati|on that |
|00001f90| 69 73 20 72 65 70 6f 72 | 74 65 64 20 69 6e 0a 50 |is repor|ted in.P|
|00001fa0| 43 20 57 65 65 6b 27 73 | 20 44 65 63 65 6d 62 65 |C Week's| Decembe|
|00001fb0| 72 20 32 33 72 64 20 69 | 73 73 75 65 2c 20 61 6e |r 23rd i|ssue, an|
|00001fc0| 64 20 74 68 65 20 74 77 | 6f 20 66 72 6f 6e 74 2d |d the tw|o front-|
|00001fd0| 70 61 67 65 20 61 72 74 | 69 63 6c 65 73 20 6f 6e |page art|icles on|
|00001fe0| 20 74 68 65 0a 6d 65 65 | 74 69 6e 67 20 61 63 63 | the.mee|ting acc|
|00001ff0| 75 72 61 74 65 6c 79 20 | 63 61 70 74 75 72 65 20 |urately |capture |
|00002000| 74 68 65 20 75 70 72 6f | 61 72 2e 20 31 39 38 37 |the upro|ar. 1987|
|00002010| 20 77 69 6c 6c 20 62 65 | 20 61 20 74 6f 75 67 68 | will be| a tough|
|00002020| 20 79 65 61 72 20 66 6f | 72 0a 73 74 61 6e 64 61 | year fo|r.standa|
|00002030| 72 64 73 2e 0a 0a 48 65 | 72 65 77 69 74 68 20 74 |rds...He|rewith t|
|00002040| 68 65 20 64 69 66 66 20 | 72 65 73 75 6c 74 73 3a |he diff |results:|
|00002050| 0a 20 0a 2a 2a 2a 20 54 | 68 65 20 3d 3d 20 66 75 |. .*** T|he == fu|
|00002060| 6e 63 74 69 6f 6e 20 69 | 73 20 69 6e 74 65 6e 64 |nction i|s intend|
|00002070| 65 64 20 66 6f 72 20 73 | 6d 61 6c 6c 2d 69 6e 74 |ed for s|mall-int|
|00002080| 65 67 65 72 20 63 6f 6d | 70 61 72 69 73 6f 6e 73 |eger com|parisons|
|00002090| 2e 20 47 43 20 32 38 36 | 0a 2a 2a 2a 20 61 70 70 |. GC 286|.*** app|
|000020a0| 65 61 72 73 20 74 6f 20 | 67 65 6e 65 72 61 74 65 |ears to |generate|
|000020b0| 20 22 65 71 22 20 69 6e | 74 65 67 65 72 73 20 2b | "eq" in|tegers +|
|000020c0| 2f 2d 20 33 32 37 36 37 | 2e 0a 0a 37 38 63 37 38 |/- 32767|...78c78|
|000020d0| 2c 38 30 0a 3c 20 28 64 | 65 66 75 6e 20 3d 3d 20 |,80.< (d|efun == |
|000020e0| 28 78 20 79 29 20 28 3d | 20 78 20 79 29 29 0a 2d |(x y) (=| x y)).-|
|000020f0| 2d 2d 0a 3e 20 3b 28 64 | 65 66 75 6e 20 3d 3d 20 |--.> ;(d|efun == |
|00002100| 28 78 20 79 29 20 28 3d | 20 78 20 79 29 29 0a 3e |(x y) (=| x y)).>|
|00002110| 0a 3e 20 28 64 65 66 75 | 6e 20 3d 3d 20 28 78 20 |.> (defu|n == (x |
|00002120| 79 29 20 28 65 71 20 78 | 20 79 29 29 0a 0a 2a 2a |y) (eq x| y))..**|
|00002130| 2a 20 43 48 41 52 41 43 | 54 45 52 20 69 73 20 76 |* CHARAC|TER is v|
|00002140| 61 6c 69 64 20 43 4c 20 | 62 75 74 20 6e 6f 74 20 |alid CL |but not |
|00002150| 69 6d 70 6c 65 6d 65 6e | 74 65 64 20 61 73 20 61 |implemen|ted as a|
|00002160| 20 47 43 20 70 72 69 6d | 69 74 69 76 65 2e 0a 0a | GC prim|itive...|
|00002170| 31 39 34 63 31 39 36 2c | 31 39 38 0a 3c 0a 2d 2d |194c196,|198.<.--|
|00002180| 2d 0a 3e 0a 3e 20 28 64 | 65 66 75 6e 20 63 68 61 |-.>.> (d|efun cha|
|00002190| 72 61 63 74 65 72 20 28 | 78 29 20 28 63 6f 65 72 |racter (|x) (coer|
|000021a0| 63 65 20 78 20 27 63 68 | 61 72 61 63 74 65 72 29 |ce x 'ch|aracter)|
|000021b0| 29 0a 3e 0a 0a 2a 2a 2a | 20 54 68 65 20 52 45 4d |).>..***| The REM|
|000021c0| 4f 56 45 2d 44 55 50 4c | 49 43 41 54 45 53 20 66 |OVE-DUPL|ICATES f|
|000021d0| 75 6e 63 74 69 6f 6e 20 | 69 73 20 63 6f 6d 6d 65 |unction |is comme|
|000021e0| 6e 74 65 64 20 6f 75 74 | 20 69 6e 20 74 68 65 20 |nted out| in the |
|000021f0| 70 6f 73 74 65 64 20 76 | 65 72 73 69 6f 6e 2c 0a |posted v|ersion,.|
|00002200| 2a 2a 2a 20 62 75 74 20 | 69 73 20 6e 6f 74 20 69 |*** but |is not i|
|00002210| 6d 70 6c 65 6d 65 6e 74 | 65 64 20 61 73 20 61 20 |mplement|ed as a |
|00002220| 47 43 20 70 72 69 6d 69 | 74 69 76 65 20 73 6f 20 |GC primi|tive so |
|00002230| 6e 65 65 64 73 20 74 6f | 20 62 65 20 65 6e 61 62 |needs to| be enab|
|00002240| 6c 65 64 2e 0a 0a 2a 2a | 2a 20 43 78 78 78 78 52 |led...**|* CxxxxR|
|00002250| 20 66 75 6e 63 74 69 6f | 6e 73 20 73 75 63 68 20 | functio|ns such |
|00002260| 61 73 20 43 41 44 44 44 | 52 20 61 72 65 20 76 61 |as CADDD|R are va|
|00002270| 6c 69 64 20 43 4c 20 62 | 75 74 20 6e 6f 74 20 47 |lid CL b|ut not G|
|00002280| 43 20 70 72 69 6d 69 74 | 69 76 65 73 2e 0a 2a 2a |C primit|ives..**|
|00002290| 2a 20 53 65 76 65 72 61 | 6c 20 63 68 61 6e 67 65 |* Severa|l change|
|000022a0| 73 20 61 72 65 20 6e 65 | 63 65 73 73 61 72 79 20 |s are ne|cessary |
|000022b0| 74 6f 20 61 63 63 6f 6d | 6d 6f 64 61 74 65 20 74 |to accom|modate t|
|000022c0| 68 69 73 2c 20 66 6f 72 | 20 65 78 61 6d 70 6c 65 |his, for| example|
|000022d0| 2e 2e 2e 0a 20 0a 39 34 | 34 63 39 34 39 0a 3c 20 |.... .94|4c949.< |
|000022e0| 28 64 65 66 75 6e 20 6d | 65 6d 6f 72 79 2d 70 61 |(defun m|emory-pa|
|000022f0| 72 74 20 28 6d 65 6d 2d | 6e 6f 64 65 29 20 28 63 |rt (mem-|node) (c|
|00002300| 61 72 20 28 63 61 64 64 | 64 72 20 6d 65 6d 2d 6e |ar (cadd|dr mem-n|
|00002310| 6f 64 65 29 29 29 0a 2d | 2d 2d 0a 3e 20 28 64 65 |ode))).-|--.> (de|
|00002320| 66 75 6e 20 6d 65 6d 6f | 72 79 2d 70 61 72 74 20 |fun memo|ry-part |
|00002330| 28 6d 65 6d 2d 6e 6f 64 | 65 29 20 28 63 61 72 20 |(mem-nod|e) (car |
|00002340| 28 63 61 72 20 28 63 64 | 64 64 72 20 6d 65 6d 2d |(car (cd|ddr mem-|
|00002350| 6e 6f 64 65 29 29 29 29 | 0a 20 0a 31 30 34 34 63 |node))))|. .1044c|
|00002360| 31 30 34 39 0a 3c 20 20 | 20 20 20 20 20 20 28 65 |1049.<  |      (e|
|00002370| 71 75 61 6c 20 28 63 64 | 64 64 64 72 20 61 29 20 |qual (cd|dddr a) |
|00002380| 28 63 64 64 64 64 72 20 | 62 29 29 0a 2d 2d 2d 0a |(cddddr |b)).---.|
|00002390| 3e 20 20 20 20 20 20 20 | 20 28 65 71 75 61 6c 20 |>       | (equal |
|000023a0| 28 63 64 72 20 28 63 64 | 64 64 72 20 61 29 29 20 |(cdr (cd|ddr a)) |
|000023b0| 28 63 64 72 20 28 63 64 | 64 64 72 20 62 29 29 29 |(cdr (cd|ddr b)))|
|000023c0| 0a 0a 2a 2a 2a 20 48 65 | 72 65 20 69 73 20 61 6e |..*** He|re is an|
|000023d0| 20 6f 6c 64 2d 66 6f 72 | 6d 20 44 4f 20 74 68 61 | old-for|m DO tha|
|000023e0| 74 20 74 6f 74 61 6c 6c | 79 20 63 6f 6e 66 75 73 |t totall|y confus|
|000023f0| 65 73 20 43 4c 2e 20 54 | 68 65 20 47 43 20 63 6f |es CL. T|he GC co|
|00002400| 6d 70 69 6c 65 72 20 74 | 6f 6c 64 0a 2a 2a 2a 20 |mpiler t|old.*** |
|00002410| 6d 65 20 74 68 61 74 20 | 69 74 20 77 61 73 20 61 |me that |it was a|
|00002420| 73 73 75 6d 69 6e 67 20 | 22 4b 22 20 61 6e 64 20 |ssuming |"K" and |
|00002430| 22 2d 22 20 74 6f 20 62 | 65 20 73 70 65 63 69 61 |"-" to b|e specia|
|00002440| 6c 20 76 61 72 69 61 62 | 6c 65 73 2e 2e 2e 21 0a |l variab|les...!.|
|00002450| 20 0a 32 32 32 35 2c 32 | 32 32 36 63 32 32 32 38 | .2225,2|226c2228|
|00002460| 2c 32 32 33 30 0a 3c 20 | 20 20 20 20 20 20 20 20 |,2230.< |        |
|00002470| 28 64 6f 20 6b 20 28 2d | 20 77 69 64 74 68 20 73 |(do k (-| width s|
|00002480| 69 7a 65 29 20 28 31 2d | 20 6b 29 20 28 6e 6f 74 |ize) (1-| k) (not|
|00002490| 20 28 3e 20 6b 20 30 29 | 29 20 28 70 72 69 6e 63 | (> k 0)|) (princ|
|000024a0| 20 27 7c 20 7c 20 70 6f | 72 74 29 29 0a 3c 20 20 | '| | po|rt)).<  |
|000024b0| 20 20 20 20 20 20 20 28 | 70 72 69 6e 63 20 76 61 |       (|princ va|
|000024c0| 6c 75 65 20 70 6f 72 74 | 29 29 29 0a 2d 2d 2d 0a |lue port|))).---.|
|000024d0| 3e 20 20 20 20 20 20 20 | 20 20 28 64 6f 20 28 28 |>       |  (do ((|
|000024e0| 6b 20 28 2d 20 77 69 64 | 74 68 20 73 69 7a 65 29 |k (- wid|th size)|
|000024f0| 20 28 31 2d 20 6b 29 29 | 29 0a 3e 20 20 20 20 20 | (1- k))|).>     |
|00002500| 20 20 20 20 20 20 28 28 | 6e 6f 74 20 28 3e 20 6b |      ((|not (> k|
|00002510| 20 30 29 29 20 28 70 72 | 69 6e 63 20 27 7c 20 7c | 0)) (pr|inc '| ||
|00002520| 20 70 6f 72 74 29 29 29 | 0a 3e 20 20 20 20 20 28 | port)))|.>     (|
|00002530| 70 72 69 6e 63 20 76 61 | 6c 75 65 20 70 6f 72 74 |princ va|lue port|
|00002540| 29 29 29 0a 0a 2a 2a 2a | 20 49 27 6d 20 6e 6f 74 |)))..***| I'm not|
|00002550| 20 73 75 72 65 20 77 68 | 61 74 20 74 68 65 20 22 | sure wh|at the "|
|00002560| 63 6f 72 72 65 63 74 22 | 20 62 65 68 61 76 69 6f |correct"| behavio|
|00002570| 72 20 69 73 2c 20 62 75 | 74 20 74 68 65 20 66 6f |r is, bu|t the fo|
|00002580| 6c 6c 6f 77 69 6e 67 20 | 63 68 61 6e 67 65 0a 2a |llowing |change.*|
|00002590| 2a 2a 20 6d 61 6b 65 73 | 20 47 43 20 32 38 36 20 |** makes| GC 286 |
|000025a0| 70 72 69 6e 74 20 5e 2c | 20 61 73 20 64 65 73 69 |print ^,| as desi|
|000025b0| 72 65 64 2c 20 69 6e 73 | 74 65 61 64 20 6f 66 20 |red, ins|tead of |
|000025c0| 69 74 73 20 41 53 43 49 | 49 20 76 61 6c 75 65 3a |its ASCI|I value:|
|000025d0| 0a 20 0a 32 35 39 36 63 | 32 36 30 31 0a 3c 20 20 |. .2596c|2601.<  |
|000025e0| 20 20 20 20 20 20 20 20 | 28 70 72 69 6e 63 20 27 |        |(princ '|
|000025f0| 5e 20 70 6f 72 74 29 0a | 2d 2d 2d 0a 3e 20 20 20 |^ port).|---.>   |
|00002600| 20 20 20 20 20 20 20 28 | 70 72 69 6e 63 20 27 7c |       (|princ '||
|00002610| 5e 7c 20 70 6f 72 74 29 | 0a 0a 2a 2a 2a 20 4d 6f |^| port)|..*** Mo|
|00002620| 72 65 20 43 78 78 78 78 | 52 20 72 65 76 69 73 69 |re Cxxxx|R revisi|
|00002630| 6f 6e 73 2e 2e 2e 0a 20 | 0a 32 39 30 34 63 32 39 |ons.... |.2904c29|
|00002640| 30 33 0a 3c 20 28 64 65 | 66 75 6e 20 66 69 6e 64 |03.< (de|fun find|
|00002650| 2d 72 69 67 68 74 2d 6d | 65 6d 20 28 6e 6f 64 65 |-right-m|em (node|
|00002660| 29 20 28 6d 65 6d 6f 72 | 79 2d 70 61 72 74 20 28 |) (memor|y-part (|
|00002670| 63 61 64 64 64 72 20 6e | 6f 64 65 29 29 29 0a 2d |cadddr n|ode))).-|
|00002680| 2d 2d 0a 3e 20 28 64 65 | 66 75 6e 20 66 69 6e 64 |--.> (de|fun find|
|00002690| 2d 72 69 67 68 74 2d 6d | 65 6d 20 28 6e 6f 64 65 |-right-m|em (node|
|000026a0| 29 20 28 6d 65 6d 6f 72 | 79 2d 70 61 72 74 20 28 |) (memor|y-part (|
|000026b0| 63 61 72 20 28 63 64 64 | 64 72 20 6e 6f 64 65 29 |car (cdd|dr node)|
|000026c0| 29 29 29 0a 20 0a 33 30 | 39 39 63 33 30 39 33 0a |))). .30|99c3093.|
|000026d0| 3c 20 20 20 28 63 68 65 | 63 6b 2d 6c 61 73 74 2d |<   (che|ck-last-|
|000026e0| 73 75 62 73 74 72 2d 69 | 6e 64 65 78 20 28 63 61 |substr-i|ndex (ca|
|000026f0| 64 64 64 72 20 78 29 29 | 29 0a 2d 2d 2d 0a 3e 20 |dddr x))|).---.> |
|00002700| 20 20 28 63 68 65 63 6b | 2d 6c 61 73 74 2d 73 75 |  (check|-last-su|
|00002710| 62 73 74 72 2d 69 6e 64 | 65 78 20 28 63 61 72 20 |bstr-ind|ex (car |
|00002720| 28 63 64 64 64 72 20 78 | 29 29 29 29 0a 0a 2a 2a |(cdddr x|))))..**|
|00002730| 2a 20 54 68 65 20 72 65 | 6d 61 69 6e 69 6e 67 20 |* The re|maining |
|00002740| 63 68 61 6e 67 65 73 20 | 61 72 65 20 69 6d 70 6c |changes |are impl|
|00002750| 65 6d 65 6e 74 61 74 69 | 6f 6e 73 20 61 6e 64 20 |ementati|ons and |
|00002760| 72 65 2d 62 69 6e 64 69 | 6e 67 73 20 74 68 61 74 |re-bindi|ngs that|
|00002770| 0a 2a 2a 2a 20 73 68 6f | 75 6c 64 20 62 65 20 73 |.*** sho|uld be s|
|00002780| 65 6c 66 2d 65 78 70 6c | 61 6e 61 74 6f 72 79 2c |elf-expl|anatory,|
|00002790| 20 65 78 63 65 70 74 20 | 66 6f 72 20 74 68 65 20 | except |for the |
|000027a0| 22 4d 41 54 48 22 20 66 | 69 6c 65 20 6c 6f 61 64 |"MATH" f|ile load|
|000027b0| 3a 20 74 68 69 73 0a 2a | 2a 2a 20 69 73 20 6e 65 |: this.*|** is ne|
|000027c0| 65 64 65 64 20 62 65 63 | 61 75 73 65 20 47 43 20 |eded bec|ause GC |
|000027d0| 64 6f 65 73 20 6e 6f 74 | 20 41 55 54 4f 4c 4f 41 |does not| AUTOLOA|
|000027e0| 44 20 6c 69 62 72 61 72 | 79 20 66 75 6e 63 74 69 |D librar|y functi|
|000027f0| 6f 6e 73 20 63 61 6c 6c | 65 64 0a 2a 2a 2a 20 66 |ons call|ed.*** f|
|00002800| 72 6f 6d 20 63 6f 6d 70 | 69 6c 65 64 20 63 6f 64 |rom comp|iled cod|
|00002810| 65 2c 20 67 65 6e 65 72 | 61 74 69 6e 67 20 61 6e |e, gener|ating an|
|00002820| 20 65 72 72 6f 72 20 6d | 65 73 73 61 67 65 20 74 | error m|essage t|
|00002830| 68 61 74 20 69 73 20 68 | 69 67 68 6c 79 0a 2a 2a |hat is h|ighly.**|
|00002840| 2a 20 63 72 79 70 74 69 | 63 20 62 75 74 20 2a 69 |* crypti|c but *i|
|00002850| 73 2a 20 65 78 70 6c 61 | 69 6e 65 64 20 69 6e 20 |s* expla|ined in |
|00002860| 61 20 52 45 41 44 2e 4d | 45 20 66 69 6c 65 20 64 |a READ.M|E file d|
|00002870| 69 73 74 72 69 62 75 74 | 65 64 20 77 69 74 68 20 |istribut|ed with |
|00002880| 74 68 65 0a 2a 2a 2a 20 | 63 6f 6d 70 69 6c 65 72 |the.*** |compiler|
|00002890| 2e 0a 20 0a 3e 20 3b 3b | 3b 20 43 61 6c 6c 73 20 |.. .> ;;|; Calls |
|000028a0| 61 6e 64 20 66 75 6e 63 | 74 69 6f 6e 20 64 65 66 |and func|tion def|
|000028b0| 69 6e 69 74 69 6f 6e 73 | 20 61 64 64 65 64 20 66 |initions| added f|
|000028c0| 6f 72 20 47 43 32 38 36 | 0a 3e 0a 3e 20 28 6c 6f |or GC286|.>.> (lo|
|000028d0| 61 64 20 28 73 74 72 69 | 6e 67 2d 61 70 70 65 6e |ad (stri|ng-appen|
|000028e0| 64 20 53 59 53 3a 3a 2a | 4c 49 53 50 2d 4c 49 42 |d SYS::*|LISP-LIB|
|000028f0| 52 41 52 59 2d 50 41 54 | 48 4e 41 4d 45 2a 20 22 |RARY-PAT|HNAME* "|
|00002900| 4d 41 54 48 22 29 29 0a | 3e 0a 3e 20 3b 3b 3b 20 |MATH")).|>.> ;;; |
|00002910| 49 4e 54 45 52 53 45 43 | 54 49 4f 4e 20 61 73 20 |INTERSEC|TION as |
|00002920| 64 65 66 69 6e 65 64 20 | 68 65 72 65 20 77 6f 72 |defined |here wor|
|00002930| 6b 73 20 77 68 65 6e 20 | 69 6e 74 65 72 70 72 65 |ks when |interpre|
|00002940| 74 65 64 2c 20 62 75 74 | 20 6e 6f 74 20 77 68 65 |ted, but| not whe|
|00002950| 6e 0a 3e 20 3b 3b 3b 20 | 63 6f 6d 70 69 6c 65 64 |n.> ;;; |compiled|
|00002960| 2e 20 46 6f 72 20 6e 6f | 77 2c 20 70 75 74 20 69 |. For no|w, put i|
|00002970| 74 20 69 6e 20 55 53 45 | 52 49 4e 49 54 20 61 6e |t in USE|RINIT an|
|00002980| 64 20 63 6f 6d 6d 65 6e | 74 20 69 74 20 6f 75 74 |d commen|t it out|
|00002990| 20 6f 66 20 74 68 69 73 | 0a 3e 20 3b 3b 3b 20 73 | of this|.> ;;; s|
|000029a0| 6f 75 72 63 65 2e 0a 3e | 0a 3e 20 3b 20 28 64 65 |ource..>|.> ; (de|
|000029b0| 66 75 6e 20 69 6e 74 65 | 72 73 65 63 74 69 6f 6e |fun inte|rsection|
|000029c0| 20 28 73 31 20 73 32 20 | 26 72 65 73 74 20 6b 65 | (s1 s2 |&rest ke|
|000029d0| 79 73 26 76 61 6c 75 65 | 73 29 0a 3e 20 3b 20 20 |ys&value|s).> ;  |
|000029e0| 20 28 6c 65 74 20 28 28 | 3a 74 65 73 74 20 28 6f | (let ((|:test (o|
|000029f0| 72 20 28 63 61 64 72 20 | 28 6d 65 6d 62 65 72 20 |r (cadr |(member |
|00002a00| 27 3a 74 65 73 74 20 6b | 65 79 73 26 76 61 6c 75 |':test k|eys&valu|
|00002a10| 65 73 29 29 20 23 27 65 | 71 6c 29 29 0a 3e 20 3b |es)) #'e|ql)).> ;|
|00002a20| 20 20 20 20 20 28 3a 74 | 65 73 74 2d 6e 6f 74 20 |     (:t|est-not |
|00002a30| 28 63 61 64 72 20 28 6d | 65 6d 62 65 72 20 27 3a |(cadr (m|ember ':|
|00002a40| 74 65 73 74 2d 6e 6f 74 | 20 6b 65 79 73 26 76 61 |test-not| keys&va|
|00002a50| 6c 75 65 73 29 29 29 0a | 3e 20 3b 20 20 20 20 20 |lues))).|> ;     |
|00002a60| 28 3a 6b 65 79 20 20 28 | 6f 72 20 28 63 61 64 72 |(:key  (|or (cadr|
|00002a70| 20 28 6d 65 6d 62 65 72 | 20 27 3a 6b 65 79 20 20 | (member| ':key  |
|00002a80| 6b 65 79 73 26 76 61 6c | 75 65 73 29 29 20 23 27 |keys&val|ues)) #'|
|00002a90| 69 64 65 6e 74 69 74 79 | 29 29 0a 3e 20 3b 20 20 |identity|)).> ;  |
|00002aa0| 20 20 20 28 72 65 73 75 | 6c 74 20 6e 69 6c 29 29 |   (resu|lt nil))|
|00002ab0| 0a 3e 20 3b 20 20 20 20 | 28 64 6f 20 28 28 70 61 |.> ;    |(do ((pa|
|00002ac0| 74 74 65 72 6e 73 20 73 | 31 20 28 63 64 72 20 70 |tterns s|1 (cdr p|
|00002ad0| 61 74 74 65 72 6e 73 29 | 29 29 0a 3e 20 3b 20 20 |atterns)|)).> ;  |
|00002ae0| 20 20 20 28 28 6e 75 6c | 6c 20 70 61 74 74 65 72 |   ((nul|l patter|
|00002af0| 6e 73 29 20 28 6e 72 65 | 76 65 72 73 65 20 72 65 |ns) (nre|verse re|
|00002b00| 73 75 6c 74 29 29 0a 3e | 20 3b 20 20 20 20 20 28 |sult)).>| ;     (|
|00002b10| 6c 65 74 20 28 28 70 61 | 74 74 65 72 6e 20 28 66 |let ((pa|ttern (f|
|00002b20| 75 6e 63 61 6c 6c 20 3a | 6b 65 79 20 28 63 61 72 |uncall :|key (car|
|00002b30| 20 70 61 74 74 65 72 6e | 73 29 29 29 29 0a 3e 20 | pattern|s)))).> |
|00002b40| 3b 20 20 20 20 20 28 64 | 6f 20 28 28 64 61 74 61 |;     (d|o ((data|
|00002b50| 20 73 32 20 28 63 64 72 | 20 64 61 74 61 29 29 29 | s2 (cdr| data)))|
|00002b60| 0a 3e 20 3b 20 20 20 20 | 20 20 20 20 20 28 28 6e |.> ;    |     ((n|
|00002b70| 75 6c 6c 20 64 61 74 61 | 29 29 0a 3e 20 3b 20 20 |ull data|)).> ;  |
|00002b80| 20 20 20 20 20 28 6c 65 | 74 20 28 28 64 61 74 75 |     (le|t ((datu|
|00002b90| 6d 20 28 66 75 6e 63 61 | 6c 6c 20 3a 6b 65 79 20 |m (funca|ll :key |
|00002ba0| 28 63 61 72 20 64 61 74 | 61 29 29 29 29 0a 3e 20 |(car dat|a)))).> |
|00002bb0| 3b 20 20 20 20 20 20 20 | 20 20 28 69 66 20 28 6f |;       |  (if (o|
|00002bc0| 72 20 28 66 75 6e 63 61 | 6c 6c 20 3a 74 65 73 74 |r (funca|ll :test|
|00002bd0| 20 70 61 74 74 65 72 6e | 20 64 61 74 75 6d 29 0a | pattern| datum).|
|00002be0| 3e 20 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |> ;     |        |
|00002bf0| 20 20 20 20 28 61 6e 64 | 20 3a 74 65 73 74 2d 6e |    (and| :test-n|
|00002c00| 6f 74 20 28 6e 6f 74 20 | 28 66 75 6e 63 61 6c 6c |ot (not |(funcall|
|00002c10| 20 3a 74 65 73 74 2d 6e | 6f 74 20 70 61 74 74 65 | :test-n|ot patte|
|00002c20| 72 6e 20 64 61 74 75 6d | 29 29 29 29 0a 3e 20 3b |rn datum|)))).> ;|
|00002c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 70 75 |        |     (pu|
|00002c40| 73 68 6e 65 77 20 64 61 | 74 75 6d 20 72 65 73 75 |shnew da|tum resu|
|00002c50| 6c 74 20 27 3a 74 65 73 | 74 20 3a 74 65 73 74 29 |lt ':tes|t :test)|
|00002c60| 29 29 29 29 29 29 29 0a | 3e 0a 0a 2a 2a 2a 20 54 |))))))).|>..*** T|
|00002c70| 68 65 20 75 73 65 20 6f | 66 20 28 53 45 54 46 20 |he use o|f (SETF |
|00002c80| 28 53 59 4d 42 4f 4c 2d | 46 55 4e 43 54 49 4f 4e |(SYMBOL-|FUNCTION|
|00002c90| 2e 2e 2e 29 20 2e 2e 2e | 29 20 69 6e 73 74 65 61 |...) ...|) instea|
|00002ca0| 64 20 6f 66 20 44 45 46 | 55 4e 20 67 65 6e 65 72 |d of DEF|UN gener|
|00002cb0| 61 74 65 73 20 61 0a 2a | 2a 2a 20 63 6f 6d 70 69 |ates a.*|** compi|
|00002cc0| 6c 65 72 20 77 61 72 6e | 69 6e 67 20 74 68 61 74 |ler warn|ing that|
|00002cd0| 20 28 66 6f 72 20 65 78 | 61 6d 70 6c 65 29 20 47 | (for ex|ample) G|
|00002ce0| 52 45 41 54 45 52 50 20 | 69 73 20 72 65 66 65 72 |REATERP |is refer|
|00002cf0| 65 6e 63 65 64 20 62 75 | 74 20 6e 6f 74 20 64 65 |enced bu|t not de|
|00002d00| 66 69 6e 65 64 2e 0a 2a | 2a 2a 20 4f 66 20 63 6f |fined..*|** Of co|
|00002d10| 75 72 73 65 2c 20 69 74 | 20 77 6f 72 6b 73 20 61 |urse, it| works a|
|00002d20| 6e 79 77 61 79 2e 0a 0a | 3e 20 28 73 65 74 66 20 |nyway...|> (setf |
|00002d30| 28 73 79 6d 62 6f 6c 2d | 66 75 6e 63 74 69 6f 6e |(symbol-|function|
|00002d40| 20 27 67 72 65 61 74 65 | 72 70 29 20 23 27 3e 29 | 'greate|rp) #'>)|
|00002d50| 0a 3e 0a 0a 2a 2a 2a 20 | 50 52 49 4e 43 2d 54 4f |.>..*** |PRINC-TO|
|00002d60| 2d 53 54 52 49 4e 47 20 | 69 73 20 76 61 6c 69 64 |-STRING |is valid|
|00002d70| 20 43 4c 20 62 75 74 20 | 6e 6f 74 20 61 20 47 43 | CL but |not a GC|
|00002d80| 20 70 72 69 6d 69 74 69 | 76 65 2e 0a 0a 3e 20 28 | primiti|ve...> (|
|00002d90| 64 65 66 75 6e 20 70 72 | 69 6e 63 2d 74 6f 2d 73 |defun pr|inc-to-s|
|00002da0| 74 72 69 6e 67 20 28 78 | 29 0a 3e 20 20 20 28 6c |tring (x|).>   (l|
|00002db0| 65 74 20 28 28 6f 75 74 | 73 74 72 65 61 6d 20 28 |et ((out|stream (|
|00002dc0| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 2d 6f 75 74 70 |make-str|ing-outp|
|00002dd0| 75 74 2d 73 74 72 65 61 | 6d 29 29 29 0a 3e 20 20 |ut-strea|m))).>  |
|00002de0| 20 20 20 28 70 72 69 6e | 63 20 78 20 6f 75 74 73 |   (prin|c x outs|
|00002df0| 74 72 65 61 6d 29 0a 3e | 20 20 20 20 20 28 67 65 |tream).>|     (ge|
|00002e00| 74 2d 6f 75 74 70 75 74 | 2d 73 74 72 65 61 6d 2d |t-output|-stream-|
|00002e10| 73 74 72 69 6e 67 20 6f | 75 74 73 74 72 65 61 6d |string o|utstream|
|00002e20| 29 29 29 0a 3e 0a 0a 2a | 2a 2a 20 54 59 49 50 45 |))).>..*|** TYIPE|
|00002e30| 45 4b 20 69 73 20 2a 6e | 6f 74 2a 20 43 4c 2c 20 |EK is *n|ot* CL, |
|00002e40| 62 75 74 20 49 20 74 68 | 69 6e 6b 20 74 68 65 20 |but I th|ink the |
|00002e50| 66 6f 6c 6c 6f 77 69 6e | 67 20 64 6f 65 73 20 77 |followin|g does w|
|00002e60| 68 61 74 27 73 20 69 6e | 74 65 6e 64 65 64 3a 0a |hat's in|tended:.|
|00002e70| 0a 3e 20 28 64 65 66 75 | 6e 20 74 79 69 70 65 65 |.> (defu|n tyipee|
|00002e80| 6b 20 28 26 6f 70 74 69 | 6f 6e 61 6c 20 69 6e 70 |k (&opti|onal inp|
|00002e90| 75 74 2d 73 74 72 65 61 | 6d 20 26 61 75 78 20 69 |ut-strea|m &aux i|
|00002ea0| 6e 63 68 61 72 29 0a 3e | 20 20 20 28 70 72 6f 67 |nchar).>|   (prog|
|00002eb0| 31 0a 3e 20 20 20 20 20 | 28 73 65 74 71 20 69 6e |1.>     |(setq in|
|00002ec0| 63 68 61 72 20 28 72 65 | 61 64 2d 63 68 61 72 20 |char (re|ad-char |
|00002ed0| 69 6e 70 75 74 2d 73 74 | 72 65 61 6d 29 29 0a 3e |input-st|ream)).>|
|00002ee0| 20 20 20 20 20 28 75 6e | 72 65 61 64 2d 63 68 61 |     (un|read-cha|
|00002ef0| 72 20 69 6e 63 68 61 72 | 20 69 6e 70 75 74 2d 73 |r inchar| input-s|
|00002f00| 74 72 65 61 6d 29 29 29 | 0a 3e 0a 3e 20 28 73 65 |tream)))|.>.> (se|
|00002f10| 74 66 20 28 73 79 6d 62 | 6f 6c 2d 66 75 6e 63 74 |tf (symb|ol-funct|
|00002f20| 69 6f 6e 20 27 64 69 66 | 66 65 72 65 6e 63 65 29 |ion 'dif|ference)|
|00002f30| 20 23 27 2d 0a 3e 20 20 | 20 20 20 20 20 28 73 79 | #'-.>  |     (sy|
|00002f40| 6d 62 6f 6c 2d 66 75 6e | 63 74 69 6f 6e 20 27 74 |mbol-fun|ction 't|
|00002f50| 69 6d 65 73 20 20 20 20 | 20 29 20 23 27 2a 29 0a |imes    | ) #'*).|
|00002f60| 3e 0a 0a 2a 2a 2a 20 45 | 51 55 41 4c 50 20 69 73 |>..*** E|QUALP is|
|00002f70| 20 76 61 6c 69 64 20 43 | 4c 2c 20 74 68 6f 75 67 | valid C|L, thoug|
|00002f80| 68 20 6e 6f 74 20 47 43 | 2c 20 61 6e 64 20 49 20 |h not GC|, and I |
|00002f90| 74 68 69 6e 6b 20 74 68 | 69 73 20 69 73 20 61 20 |think th|is is a |
|00002fa0| 63 6f 72 72 65 63 74 0a | 2a 2a 2a 20 69 6d 70 6c |correct.|*** impl|
|00002fb0| 65 6d 65 6e 74 61 74 69 | 6f 6e 3a 0a 0a 3e 20 28 |ementati|on:..> (|
|00002fc0| 64 65 66 75 6e 20 65 71 | 75 61 6c 70 20 28 78 20 |defun eq|ualp (x |
|00002fd0| 79 29 0a 3e 20 20 20 28 | 6f 72 20 28 65 71 75 61 |y).>   (|or (equa|
|00002fe0| 6c 20 78 20 79 29 0a 3e | 20 20 20 20 20 20 20 28 |l x y).>|       (|
|00002ff0| 61 6e 64 20 28 6e 75 6d | 62 65 72 70 20 78 29 20 |and (num|berp x) |
|00003000| 28 6e 75 6d 62 65 72 70 | 20 79 29 20 28 3d 20 78 |(numberp| y) (= x|
|00003010| 20 79 29 29 0a 3e 20 20 | 20 20 20 20 20 28 61 6e | y)).>  |     (an|
|00003020| 64 20 28 63 68 61 72 61 | 63 74 65 72 70 20 78 29 |d (chara|cterp x)|
|00003030| 20 28 63 68 61 72 61 63 | 74 65 72 70 20 79 29 20 | (charac|terp y) |
|00003040| 28 63 68 61 72 2d 65 71 | 75 61 6c 20 78 20 79 29 |(char-eq|ual x y)|
|00003050| 29 0a 3e 20 20 20 20 20 | 20 20 28 61 6e 64 20 28 |).>     |  (and (|
|00003060| 63 6f 6e 73 70 20 78 29 | 20 28 63 6f 6e 73 70 20 |consp x)| (consp |
|00003070| 79 29 20 28 65 71 75 61 | 6c 70 20 28 63 61 72 20 |y) (equa|lp (car |
|00003080| 78 29 20 28 63 61 72 20 | 79 29 29 0a 3e 20 20 20 |x) (car |y)).>   |
|00003090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000030a0| 20 20 20 20 20 20 20 20 | 20 20 20 28 65 71 75 61 |        |   (equa|
|000030b0| 6c 70 20 28 63 64 72 20 | 78 29 20 28 63 64 72 20 |lp (cdr |x) (cdr |
|000030c0| 79 29 29 29 29 29 0a 3e | 0a 0a 2d 2d 2d 2d 2d 2d |y))))).>|..------|
|000030d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0a 3b |--------|------.;|
|000030e0| 43 6f 6d 6d 6f 6e 20 4c | 69 73 70 20 53 75 70 70 |Common L|isp Supp|
|000030f0| 6f 72 74 20 46 75 6e 63 | 74 69 6f 6e 73 3a 20 0a |ort Func|tions: .|
|00003100| 3b 54 68 65 73 65 20 66 | 75 6e 63 74 69 6f 6e 73 |;These f|unctions|
|00003110| 20 61 72 65 20 6e 6f 74 | 20 64 65 66 69 6e 65 64 | are not| defined|
|00003120| 20 69 6e 20 76 61 6e 69 | 6c 6c 61 20 43 6f 6d 6d | in vani|lla Comm|
|00003130| 6f 6e 20 4c 69 73 70 2c | 20 62 75 74 20 61 72 65 |on Lisp,| but are|
|00003140| 20 75 73 65 64 0a 3b 69 | 6e 20 74 68 65 20 4f 50 | used.;i|n the OP|
|00003150| 53 4d 4f 44 53 2e 6c 20 | 63 6f 64 65 20 61 6e 64 |SMODS.l |code and|
|00003160| 20 69 6e 20 4f 50 53 35 | 2e 0a 0a 0a 28 64 65 66 | in OPS5|....(def|
|00003170| 75 6e 20 70 75 74 70 72 | 6f 70 28 6e 61 6d 65 20 |un putpr|op(name |
|00003180| 76 61 6c 20 61 74 74 29 | 0a 20 20 20 28 73 65 74 |val att)|.   (set|
|00003190| 66 20 28 67 65 74 20 6e | 61 6d 65 20 61 74 74 29 |f (get n|ame att)|
|000031a0| 20 76 61 6c 29 29 0a 0a | 28 64 65 66 75 6e 20 6d | val))..|(defun m|
|000031b0| 65 6d 71 28 6f 62 6a 20 | 6c 69 73 29 0a 20 20 20 |emq(obj |lis).   |
|000031c0| 20 28 6d 65 6d 62 65 72 | 20 6f 62 6a 20 6c 69 73 | (member| obj lis|
|000031d0| 20 3a 74 65 73 74 20 23 | 27 65 71 29 29 0a 0a 28 | :test #|'eq))..(|
|000031e0| 64 65 66 75 6e 20 66 69 | 78 28 6e 75 6d 29 0a 20 |defun fi|x(num). |
|000031f0| 20 20 20 28 72 6f 75 6e | 64 20 6e 75 6d 29 29 0a |   (roun|d num)).|
|00003200| 20 20 20 20 0a 0a 28 64 | 65 66 75 6e 20 61 73 73 |    ..(d|efun ass|
|00003210| 71 28 69 74 65 6d 20 61 | 6c 69 73 74 29 0a 20 20 |q(item a|list).  |
|00003220| 20 20 20 28 61 73 73 6f | 63 20 69 74 65 6d 20 61 |   (asso|c item a|
|00003230| 6c 69 73 74 20 3a 74 65 | 73 74 20 23 27 65 71 29 |list :te|st #'eq)|
|00003240| 29 0a 0a 28 64 65 66 75 | 6e 20 6e 63 6f 6e 73 28 |)..(defu|n ncons(|
|00003250| 78 29 20 28 63 6f 6e 73 | 20 78 20 6e 69 6c 29 29 |x) (cons| x nil))|
|00003260| 0a 0a 28 64 65 66 75 6e | 20 6e 65 71 28 78 20 79 |..(defun| neq(x y|
|00003270| 29 20 28 6e 6f 74 20 28 | 65 71 20 78 20 79 29 29 |) (not (|eq x y))|
|00003280| 29 0a 0a 28 64 65 66 75 | 6e 20 64 65 6c 71 28 6f |)..(defu|n delq(o|
|00003290| 62 6a 20 6c 69 73 74 29 | 0a 20 20 20 28 64 65 6c |bj list)|.   (del|
|000032a0| 65 74 65 20 6f 62 6a 20 | 6c 69 73 74 20 3a 74 65 |ete obj |list :te|
|000032b0| 73 74 20 23 27 65 71 29 | 29 0a 0a 28 64 65 66 6d |st #'eq)|)..(defm|
|000032c0| 61 63 72 6f 20 63 6f 6d | 6d 65 6e 74 28 26 6f 70 |acro com|ment(&op|
|000032d0| 74 69 6f 6e 61 6c 20 26 | 72 65 73 74 20 78 29 20 |tional &|rest x) |
|000032e0| 6e 69 6c 29 20 3b 63 6f | 6d 6d 65 6e 74 20 69 73 |nil) ;co|mment is|
|000032f0| 20 61 20 6e 6f 6f 70 0a | 0a 28 64 65 66 75 6e 20 | a noop.|.(defun |
|00003300| 70 6c 75 73 28 78 20 79 | 29 0a 20 20 20 28 2b 20 |plus(x y|).   (+ |
|00003310| 78 20 79 29 29 0a 0a 28 | 64 65 66 75 6e 20 71 75 |x y))..(|defun qu|
|00003320| 6f 74 69 65 6e 74 28 78 | 20 79 29 0a 20 20 20 28 |otient(x| y).   (|
|00003330| 2f 20 78 20 79 29 29 0a | 0a 28 64 65 66 75 6e 20 |/ x y)).|.(defun |
|00003340| 66 6c 61 74 63 28 78 29 | 0a 20 20 20 28 6c 65 6e |flatc(x)|.   (len|
|00003350| 67 74 68 20 28 70 72 69 | 6e 63 2d 74 6f 2d 73 74 |gth (pri|nc-to-st|
|00003360| 72 69 6e 67 20 78 29 29 | 29 0a 0a 0a 20 63 6f 6d |ring x))|)... com|
|00003370| 70 61 6e 79 2e 2e 2e 20 | 77 65 0a 68 61 64 20 61 |pany... |we.had a|
|00003380| 20 6d 6f 73 74 20 65 6e | 6a 6f 79 61 62 6c 65 20 | most en|joyable |
|00003390| 64 69 73 63 75 73 73 69 | 6f 6e 20 6f 66 20 6d 69 |discussi|on of mi|
|000033a0| 63 72 6f 20 4c 69 73 70 | 73 20 61 6e 64 20 74 68 |cro Lisp|s and th|
|000033b0| 65 20 41 4e 53 49 20 4c | 69 73 70 20 65 66 66 6f |e ANSI L|isp effo|
|000033c0| 72 74 2e 0a 53 6f 6d 65 | 20 70 65 6f 70 6c 65 20 |rt..Some| people |
|000033d0| 61 72 65 20 6a 75 73 74 | 20 61 20 70 6c 65 61 73 |are just| a pleas|
|000033e0| 75 72 65 20 74 6f 20 64 | 6f 20 62 75 73 69 6e 65 |ure to d|o busine|
|000033f0| 73 73 20 77 69 74 68 2e | 0a 0a 41 73 20 61 20 6c |ss with.|..As a l|
|00003400| 6f 70 73 35 2f 6f 70 73 | 35 2e 32 00 00 00 00 00 |ops5/ops|5.2.....|
|00003410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003460| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00003470| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00003480| 20 20 37 30 30 34 37 20 | 20 34 34 30 33 36 31 34 |  70047 | 4403614|
|00003490| 30 33 31 20 20 20 35 37 | 36 33 00 20 00 00 00 00 |031   57|63. ....|
|000034a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003600| 41 72 74 69 63 6c 65 20 | 31 30 30 30 20 6f 66 20 |Article |1000 of |
|00003610| 63 6f 6d 70 2e 73 6f 75 | 72 63 65 73 2e 75 6e 69 |comp.sou|rces.uni|
|00003620| 78 3a 0a 50 61 74 68 3a | 20 73 2e 63 63 2e 70 75 |x:.Path:| s.cc.pu|
|00003630| 72 64 75 65 2e 65 64 75 | 21 68 2e 63 63 2e 70 75 |rdue.edu|!h.cc.pu|
|00003640| 72 64 75 65 2e 65 64 75 | 21 6a 2e 63 63 2e 70 75 |rdue.edu|!j.cc.pu|
|00003650| 72 64 75 65 2e 65 64 75 | 21 70 75 72 2d 65 65 21 |rdue.edu|!pur-ee!|
|00003660| 69 75 76 61 78 21 69 6e | 75 78 63 21 69 68 6e 70 |iuvax!in|uxc!ihnp|
|00003670| 34 21 70 74 73 66 61 21 | 70 79 72 61 6d 69 64 21 |4!ptsfa!|pyramid!|
|00003680| 64 65 63 77 72 6c 21 73 | 75 6e 21 70 69 74 73 74 |decwrl!s|un!pitst|
|00003690| 6f 70 21 73 75 6e 64 63 | 21 73 65 69 73 6d 6f 21 |op!sundc|!seismo!|
|000036a0| 75 75 6e 65 74 21 72 73 | 61 6c 7a 0a 46 72 6f 6d |uunet!rs|alz.From|
|000036b0| 3a 20 72 73 61 6c 7a 40 | 75 75 6e 65 74 2e 55 55 |: rsalz@|uunet.UU|
|000036c0| 2e 4e 45 54 20 28 52 69 | 63 68 20 53 61 6c 7a 29 |.NET (Ri|ch Salz)|
|000036d0| 0a 4e 65 77 73 67 72 6f | 75 70 73 3a 20 63 6f 6d |.Newsgro|ups: com|
|000036e0| 70 2e 73 6f 75 72 63 65 | 73 2e 75 6e 69 78 0a 53 |p.source|s.unix.S|
|000036f0| 75 62 6a 65 63 74 3a 20 | 76 31 32 69 30 31 37 3a |ubject: |v12i017:|
|00003700| 20 20 4f 50 53 35 20 69 | 6e 20 43 6f 6d 6d 6f 6e |  OPS5 i|n Common|
|00003710| 20 4c 69 73 70 2c 20 50 | 61 72 74 30 32 2f 30 35 | Lisp, P|art02/05|
|00003720| 0a 4d 65 73 73 61 67 65 | 2d 49 44 3a 20 3c 32 32 |.Message|-ID: <22|
|00003730| 36 30 40 75 75 6e 65 74 | 2e 55 55 2e 4e 45 54 3e |60@uunet|.UU.NET>|
|00003740| 0a 44 61 74 65 3a 20 31 | 34 20 4f 63 74 20 38 37 |.Date: 1|4 Oct 87|
|00003750| 20 30 32 3a 32 30 3a 30 | 39 20 47 4d 54 0a 4f 72 | 02:20:0|9 GMT.Or|
|00003760| 67 61 6e 69 7a 61 74 69 | 6f 6e 3a 20 55 55 4e 45 |ganizati|on: UUNE|
|00003770| 54 20 43 6f 6d 6d 75 6e | 69 63 61 74 69 6f 6e 73 |T Commun|ications|
|00003780| 20 53 65 72 76 69 63 65 | 73 2c 20 41 72 6c 69 6e | Service|s, Arlin|
|00003790| 67 74 6f 6e 2c 20 56 41 | 0a 4c 69 6e 65 73 3a 20 |gton, VA|.Lines: |
|000037a0| 39 31 31 0a 41 70 70 72 | 6f 76 65 64 3a 20 72 73 |911.Appr|oved: rs|
|000037b0| 40 75 75 6e 65 74 2e 55 | 55 2e 4e 45 54 0a 0a 53 |@uunet.U|U.NET..S|
|000037c0| 75 62 6d 69 74 74 65 64 | 2d 62 79 3a 20 65 72 69 |ubmitted|-by: eri|
|000037d0| 63 40 64 6c 63 64 65 76 | 2e 55 55 43 50 20 28 65 |c@dlcdev|.UUCP (e|
|000037e0| 72 69 63 20 76 61 6e 20 | 74 61 73 73 65 6c 6c 29 |ric van |tassell)|
|000037f0| 0a 50 6f 73 74 69 6e 67 | 2d 6e 75 6d 62 65 72 3a |.Posting|-number:|
|00003800| 20 56 6f 6c 75 6d 65 20 | 31 32 2c 20 49 73 73 75 | Volume |12, Issu|
|00003810| 65 20 31 37 0a 41 72 63 | 68 69 76 65 2d 6e 61 6d |e 17.Arc|hive-nam|
|00003820| 65 3a 20 6f 70 73 35 2f | 70 61 72 74 30 32 0a 0a |e: ops5/|part02..|
|00003830| 0a 3b 20 46 69 6c 65 20 | 4f 50 53 35 2e 63 6f 6d |.; File |OPS5.com|
|00003840| 6d 6f 6e 2e 31 2e 6c 73 | 70 3a 20 70 61 72 74 20 |mon.1.ls|p: part |
|00003850| 31 20 6f 66 20 4f 50 53 | 35 20 69 6e 20 43 6f 6d |1 of OPS|5 in Com|
|00003860| 6d 6f 6e 20 4c 69 73 70 | 0a 3b 20 2d 2d 2d 2d 2d |mon Lisp|.; -----|
|00003870| 2d 2d 2d 2d 2d 0a 0a 0a | 3b 09 56 50 53 32 20 2d |-----...|;.VPS2 -|
|00003880| 2d 20 49 6e 74 65 72 70 | 72 65 74 65 72 20 66 6f |- Interp|reter fo|
|00003890| 72 20 4f 50 53 35 0a 3b | 0a 3b 09 43 6f 70 79 72 |r OPS5.;|.;.Copyr|
|000038a0| 69 67 68 74 20 28 43 29 | 20 31 39 37 39 2c 20 31 |ight (C)| 1979, 1|
|000038b0| 39 38 30 2c 20 31 39 38 | 31 0a 3b 09 43 68 61 72 |980, 198|1.;.Char|
|000038c0| 6c 65 73 20 4c 2e 20 46 | 6f 72 67 79 2c 20 20 50 |les L. F|orgy,  P|
|000038d0| 69 74 74 73 62 75 72 67 | 68 2c 20 50 65 6e 6e 73 |ittsburg|h, Penns|
|000038e0| 79 6c 76 61 6e 69 61 0a | 0a 0a 0a 3b 20 55 73 65 |ylvania.|...; Use|
|000038f0| 72 73 20 6f 66 20 74 68 | 69 73 20 69 6e 74 65 72 |rs of th|is inter|
|00003900| 70 72 65 74 65 72 20 61 | 72 65 20 72 65 71 75 65 |preter a|re reque|
|00003910| 73 74 65 64 20 74 6f 20 | 63 6f 6e 74 61 63 74 0a |sted to |contact.|
|00003920| 0a 3b 0a 3b 09 43 68 61 | 72 6c 65 73 20 46 6f 72 |.;.;.Cha|rles For|
|00003930| 67 79 0a 3b 09 43 6f 6d | 70 75 74 65 72 20 53 63 |gy.;.Com|puter Sc|
|00003940| 69 65 6e 63 65 20 44 65 | 70 61 72 74 6d 65 6e 74 |ience De|partment|
|00003950| 0a 3b 09 43 61 72 6e 65 | 67 69 65 2d 4d 65 6c 6c |.;.Carne|gie-Mell|
|00003960| 6f 6e 20 55 6e 69 76 65 | 72 73 69 74 79 0a 3b 09 |on Unive|rsity.;.|
|00003970| 50 69 74 74 73 62 75 72 | 67 68 2c 20 50 41 20 20 |Pittsbur|gh, PA  |
|00003980| 31 35 32 31 33 0a 3b 20 | 6f 72 0a 3b 09 46 6f 72 |15213.; |or.;.For|
|00003990| 67 79 40 43 4d 55 41 0a | 3b 20 0a 3b 20 73 6f 20 |gy@CMUA.|; .; so |
|000039a0| 74 68 61 74 20 74 68 65 | 79 20 63 61 6e 20 62 65 |that the|y can be|
|000039b0| 20 61 64 64 65 64 20 74 | 6f 20 74 68 65 20 6d 61 | added t|o the ma|
|000039c0| 69 6c 69 6e 67 20 6c 69 | 73 74 20 66 6f 72 20 4f |iling li|st for O|
|000039d0| 50 53 35 2e 20 20 54 68 | 65 20 6d 61 69 6c 69 6e |PS5.  Th|e mailin|
|000039e0| 67 20 6c 69 73 74 0a 3b | 20 69 73 20 6e 65 65 64 |g list.;| is need|
|000039f0| 65 64 20 77 68 65 6e 20 | 6e 65 77 20 76 65 72 73 |ed when |new vers|
|00003a00| 69 6f 6e 73 20 6f 66 20 | 74 68 65 20 69 6e 74 65 |ions of |the inte|
|00003a10| 72 70 72 65 74 65 72 20 | 6f 72 20 6d 61 6e 75 61 |rpreter |or manua|
|00003a20| 6c 20 61 72 65 20 72 65 | 6c 65 61 73 65 64 2e 0a |l are re|leased..|
|00003a30| 0a 0a 0a 3b 3b 3b 20 44 | 65 66 69 6e 69 74 69 6f |...;;; D|efinitio|
|00003a40| 6e 73 0a 0a 3b 23 2b 20 | 76 61 78 20 28 64 65 66 |ns..;#+ |vax (def|
|00003a50| 75 6e 20 70 75 74 70 72 | 6f 70 28 6e 61 6d 65 20 |un putpr|op(name |
|00003a60| 76 61 6c 20 61 74 74 29 | 0a 3b 20 20 20 28 73 65 |val att)|.;   (se|
|00003a70| 74 66 20 28 67 65 74 20 | 6e 61 6d 65 20 61 74 74 |tf (get |name att|
|00003a80| 29 20 76 61 6c 29 29 0a | 0a 0a 0a 28 70 72 6f 63 |) val)).|...(proc|
|00003a90| 6c 61 69 6d 20 27 28 73 | 70 65 63 69 61 6c 20 2a |laim '(s|pecial *|
|00003aa0| 6d 61 74 72 69 78 2a 20 | 2a 66 65 61 74 75 72 65 |matrix* |*feature|
|00003ab0| 2d 63 6f 75 6e 74 2a 20 | 2a 70 63 6f 75 6e 74 2a |-count* |*pcount*|
|00003ac0| 20 2a 76 61 72 73 2a 20 | 2a 63 75 72 2d 76 61 72 | *vars* |*cur-var|
|00003ad0| 73 2a 0a 20 20 20 20 20 | 20 20 20 20 20 2a 63 75 |s*.     |     *cu|
|00003ae0| 72 63 6f 6e 64 2a 20 2a | 73 75 62 6e 75 6d 2a 20 |rcond* *|subnum* |
|00003af0| 2a 6c 61 73 74 2d 6e 6f | 64 65 2a 20 2a 6c 61 73 |*last-no|de* *las|
|00003b00| 74 2d 62 72 61 6e 63 68 | 2a 20 2a 66 69 72 73 74 |t-branch|* *first|
|00003b10| 2d 6e 6f 64 65 2a 0a 20 | 20 20 20 20 20 20 20 20 |-node*. |        |
|00003b20| 20 2a 73 65 6e 64 74 6f | 63 61 6c 6c 2a 20 2a 66 | *sendto|call* *f|
|00003b30| 6c 61 67 2d 70 61 72 74 | 2a 20 2a 61 6c 70 68 61 |lag-part|* *alpha|
|00003b40| 2d 66 6c 61 67 2d 70 61 | 72 74 2a 20 2a 64 61 74 |-flag-pa|rt* *dat|
|00003b50| 61 2d 70 61 72 74 2a 0a | 20 20 20 20 20 20 20 20 |a-part*.|        |
|00003b60| 20 20 2a 61 6c 70 68 61 | 2d 64 61 74 61 2d 70 61 |  *alpha|-data-pa|
|00003b70| 72 74 2a 20 2a 63 65 2d | 76 61 72 73 2a 20 2a 76 |rt* *ce-|vars* *v|
|00003b80| 69 72 74 75 61 6c 2d 63 | 6e 74 2a 20 2a 72 65 61 |irtual-c|nt* *rea|
|00003b90| 6c 2d 63 6e 74 2a 0a 20 | 20 20 20 20 20 20 20 20 |l-cnt*. |        |
|00003ba0| 20 2a 63 75 72 72 65 6e | 74 2d 74 6f 6b 65 6e 2a | *curren|t-token*|
|00003bb0| 20 2a 63 31 2a 20 2a 63 | 32 2a 20 2a 63 33 2a 20 | *c1* *c|2* *c3* |
|00003bc0| 2a 63 34 2a 20 2a 63 35 | 2a 20 2a 63 36 2a 20 2a |*c4* *c5|* *c6* *|
|00003bd0| 63 37 2a 20 2a 63 38 2a | 20 2a 63 39 2a 0a 20 20 |c7* *c8*| *c9*.  |
|00003be0| 20 20 20 20 20 20 20 20 | 2a 63 31 30 2a 20 2a 63 |        |*c10* *c|
|00003bf0| 31 31 2a 20 2a 63 31 32 | 2a 20 2a 63 31 33 2a 20 |11* *c12|* *c13* |
|00003c00| 2a 63 31 34 2a 20 2a 63 | 31 35 2a 20 2a 63 31 36 |*c14* *c|15* *c16|
|00003c10| 2a 20 2a 63 31 37 2a 20 | 2a 63 31 38 2a 20 2a 63 |* *c17* |*c18* *c|
|00003c20| 31 39 2a 0a 20 20 20 20 | 20 20 20 20 20 20 2a 63 |19*.    |      *c|
|00003c30| 32 30 2a 20 2a 63 32 31 | 2a 20 2a 63 32 32 2a 20 |20* *c21|* *c22* |
|00003c40| 2a 63 32 33 2a 20 2a 63 | 32 34 2a 20 2a 63 32 35 |*c23* *c|24* *c25|
|00003c50| 2a 20 2a 63 32 36 2a 20 | 2a 63 32 37 2a 20 2a 63 |* *c26* |*c27* *c|
|00003c60| 32 38 2a 20 2a 63 32 39 | 2a 0a 20 20 20 20 20 20 |28* *c29|*.      |
|00003c70| 20 20 20 20 2a 63 33 30 | 2a 20 2a 63 33 31 2a 20 |    *c30|* *c31* |
|00003c80| 2a 63 33 32 2a 20 2a 63 | 33 33 2a 20 2a 63 33 34 |*c32* *c|33* *c34|
|00003c90| 2a 20 2a 63 33 35 2a 20 | 2a 63 33 36 2a 20 2a 63 |* *c35* |*c36* *c|
|00003ca0| 33 37 2a 20 2a 63 33 38 | 2a 20 2a 63 33 39 2a 0a |37* *c38|* *c39*.|
|00003cb0| 20 20 20 20 20 20 20 20 | 20 20 2a 63 34 30 2a 20 |        |  *c40* |
|00003cc0| 2a 63 34 31 2a 20 2a 63 | 34 32 2a 20 2a 63 34 33 |*c41* *c|42* *c43|
|00003cd0| 2a 20 2a 63 34 34 2a 20 | 2a 63 34 35 2a 20 2a 63 |* *c44* |*c45* *c|
|00003ce0| 34 36 2a 20 2a 63 34 37 | 2a 20 2a 63 34 38 2a 20 |46* *c47|* *c48* |
|00003cf0| 2a 63 34 39 2a 0a 20 20 | 20 20 20 20 20 20 20 20 |*c49*.  |        |
|00003d00| 2a 63 35 30 2a 20 2a 63 | 35 31 2a 20 2a 63 35 32 |*c50* *c|51* *c52|
|00003d10| 2a 20 2a 63 35 33 2a 20 | 2a 63 35 34 2a 20 2a 63 |* *c53* |*c54* *c|
|00003d20| 35 35 2a 20 2a 63 35 36 | 2a 20 2a 63 35 37 2a 20 |55* *c56|* *c57* |
|00003d30| 2a 63 35 38 2a 20 2a 63 | 35 39 2a 0a 20 20 20 20 |*c58* *c|59*.    |
|00003d40| 20 20 20 20 20 20 2a 63 | 36 30 2a 20 2a 63 36 31 |      *c|60* *c61|
|00003d50| 2a 20 2a 63 36 32 2a 20 | 2a 63 36 33 2a 20 2a 63 |* *c62* |*c63* *c|
|00003d60| 36 34 2a 20 2a 72 65 63 | 6f 72 64 2d 61 72 72 61 |64* *rec|ord-arra|
|00003d70| 79 2a 20 2a 72 65 73 75 | 6c 74 2d 61 72 72 61 79 |y* *resu|lt-array|
|00003d80| 2a 20 0a 20 20 20 20 20 | 20 20 20 20 20 2a 6d 61 |* .     |     *ma|
|00003d90| 78 2d 63 73 2a 20 2a 74 | 6f 74 61 6c 2d 63 73 2a |x-cs* *t|otal-cs*|
|00003da0| 20 2a 6c 69 6d 69 74 2d | 63 73 2a 20 2a 63 72 2d | *limit-|cs* *cr-|
|00003db0| 74 65 6d 70 2a 20 2a 73 | 69 64 65 2a 0a 20 20 20 |temp* *s|ide*.   |
|00003dc0| 20 20 20 20 20 20 20 2a | 63 6f 6e 66 6c 69 63 74 |       *|conflict|
|00003dd0| 2d 73 65 74 2a 20 2a 68 | 61 6c 74 2d 66 6c 61 67 |-set* *h|alt-flag|
|00003de0| 2a 20 2a 70 68 61 73 65 | 2a 20 2a 63 72 69 74 69 |* *phase|* *criti|
|00003df0| 63 61 6c 2a 0a 20 20 20 | 20 20 20 20 20 20 20 2a |cal*.   |       *|
|00003e00| 63 79 63 6c 65 2d 63 6f | 75 6e 74 2a 20 2a 74 6f |cycle-co|unt* *to|
|00003e10| 74 61 6c 2d 74 6f 6b 65 | 6e 2a 20 2a 6d 61 78 2d |tal-toke|n* *max-|
|00003e20| 74 6f 6b 65 6e 2a 20 2a | 72 65 66 72 61 63 74 73 |token* *|refracts|
|00003e30| 2a 20 0a 20 20 20 20 20 | 20 20 20 20 20 2a 6c 69 |* .     |     *li|
|00003e40| 6d 69 74 2d 74 6f 6b 65 | 6e 2a 20 2a 74 6f 74 61 |mit-toke|n* *tota|
|00003e50| 6c 2d 77 6d 2a 20 2a 63 | 75 72 72 65 6e 74 2d 77 |l-wm* *c|urrent-w|
|00003e60| 6d 2a 20 2a 6d 61 78 2d | 77 6d 2a 0a 20 20 20 20 |m* *max-|wm*.    |
|00003e70| 20 20 20 20 20 20 2a 61 | 63 74 69 6f 6e 2d 63 6f |      *a|ction-co|
|00003e80| 75 6e 74 2a 20 2a 77 6d | 70 61 72 74 2d 6c 69 73 |unt* *wm|part-lis|
|00003e90| 74 2a 20 2a 77 6d 2a 20 | 2a 64 61 74 61 2d 6d 61 |t* *wm* |*data-ma|
|00003ea0| 74 63 68 65 64 2a 20 2a | 70 2d 6e 61 6d 65 2a 0a |tched* *|p-name*.|
|00003eb0| 20 20 20 20 20 20 20 20 | 20 20 2a 76 61 72 69 61 |        |  *varia|
|00003ec0| 62 6c 65 2d 6d 65 6d 6f | 72 79 2a 20 2a 63 65 2d |ble-memo|ry* *ce-|
|00003ed0| 76 61 72 69 61 62 6c 65 | 2d 6d 65 6d 6f 72 79 2a |variable|-memory*|
|00003ee0| 20 0a 20 20 20 20 20 20 | 20 20 20 20 2a 6d 61 78 | .      |    *max|
|00003ef0| 2d 69 6e 64 65 78 2a 20 | 3b 20 6e 75 6d 62 65 72 |-index* |; number|
|00003f00| 20 6f 66 20 72 69 67 68 | 74 2d 6d 6f 73 74 20 66 | of righ|t-most f|
|00003f10| 69 65 6c 64 20 69 6e 20 | 77 6d 20 65 6c 65 6d 65 |ield in |wm eleme|
|00003f20| 6e 74 20 0a 20 20 20 20 | 20 20 20 20 20 20 2a 6e |nt .    |      *n|
|00003f30| 65 78 74 2d 69 6e 64 65 | 78 2a 20 2a 73 69 7a 65 |ext-inde|x* *size|
|00003f40| 2d 72 65 73 75 6c 74 2d | 61 72 72 61 79 2a 20 2a |-result-|array* *|
|00003f50| 72 65 73 74 2a 20 2a 62 | 75 69 6c 64 2d 74 72 61 |rest* *b|uild-tra|
|00003f60| 63 65 2a 20 2a 6c 61 73 | 74 2a 0a 20 20 20 20 20 |ce* *las|t*.     |
|00003f70| 20 20 20 20 20 2a 70 74 | 72 61 63 65 2a 20 2a 77 |     *pt|race* *w|
|00003f80| 74 72 61 63 65 2a 20 2a | 69 6e 2d 72 68 73 2a 20 |trace* *|in-rhs* |
|00003f90| 2a 72 65 63 6f 72 64 69 | 6e 67 2a 20 2a 61 63 63 |*recordi|ng* *acc|
|00003fa0| 65 70 74 2d 66 69 6c 65 | 2a 20 2a 74 72 61 63 65 |ept-file|* *trace|
|00003fb0| 2d 66 69 6c 65 2a 20 0a | 20 20 20 20 20 20 20 20 |-file* .|        |
|00003fc0| 20 20 2a 6d 74 72 61 63 | 65 2a 20 2a 6d 61 64 65 |  *mtrac|e* *made|
|00003fd0| 62 79 2a 20 3b 20 75 73 | 65 64 20 74 6f 20 74 72 |by* ; us|ed to tr|
|00003fe0| 61 63 65 20 61 6e 64 20 | 72 65 63 6f 72 64 20 6d |ace and |record m|
|00003ff0| 61 6b 65 72 73 20 6f 66 | 20 65 6c 65 6d 65 6e 74 |akers of| element|
|00004000| 73 0a 20 20 20 20 20 20 | 20 20 20 20 2a 77 72 69 |s.      |    *wri|
|00004010| 74 65 2d 66 69 6c 65 2a | 20 2a 72 65 63 6f 72 64 |te-file*| *record|
|00004020| 2d 69 6e 64 65 78 2a 20 | 2a 6d 61 78 2d 72 65 63 |-index* |*max-rec|
|00004030| 6f 72 64 2d 69 6e 64 65 | 78 2a 20 2a 6f 6c 64 2d |ord-inde|x* *old-|
|00004040| 77 6d 2a 0a 20 20 20 20 | 20 20 20 20 20 20 2a 72 |wm*.    |      *r|
|00004050| 65 63 6f 72 64 2a 20 2a | 66 69 6c 74 65 72 73 2a |ecord* *|filters*|
|00004060| 20 2a 62 72 65 61 6b 2d | 66 6c 61 67 2a 20 2a 73 | *break-|flag* *s|
|00004070| 74 72 61 74 65 67 79 2a | 20 2a 72 65 6d 61 69 6e |trategy*| *remain|
|00004080| 69 6e 67 2d 63 79 63 6c | 65 73 2a 0a 09 20 20 2a |ing-cycl|es*..  *|
|00004090| 77 6d 2d 66 69 6c 74 65 | 72 2a 20 2a 72 68 73 2d |wm-filte|r* *rhs-|
|000040a0| 62 6f 75 6e 64 2d 76 61 | 72 73 2a 20 2a 72 68 73 |bound-va|rs* *rhs|
|000040b0| 2d 62 6f 75 6e 64 2d 63 | 65 2d 76 61 72 73 2a 20 |-bound-c|e-vars* |
|000040c0| 2a 70 70 6c 69 6e 65 2a | 20 0a 09 20 20 2a 63 65 |*ppline*| ..  *ce|
|000040d0| 2d 63 6f 75 6e 74 2a 20 | 2a 62 72 6b 70 74 73 2a |-count* |*brkpts*|
|000040e0| 20 2a 63 6c 61 73 73 2d | 6c 69 73 74 2a 20 2a 62 | *class-|list* *b|
|000040f0| 75 63 6b 65 74 73 2a 20 | 2a 61 63 74 69 6f 6e 2d |uckets* |*action-|
|00004100| 74 79 70 65 2a 0a 20 20 | 20 20 20 20 20 20 20 20 |type*.  |        |
|00004110| 2a 6c 69 74 65 72 61 6c | 73 2a 20 20 20 3b 73 74 |*literal|s*   ;st|
|00004120| 6f 72 65 73 20 6c 69 74 | 65 72 61 6c 20 64 65 66 |ores lit|eral def|
|00004130| 69 6e 69 74 69 6f 6e 73 | 0a 20 20 20 20 20 20 20 |initions|.       |
|00004140| 20 20 20 2a 70 6e 61 6d | 65 73 2a 20 20 20 20 20 |   *pnam|es*     |
|00004150| 3b 73 74 6f 72 65 73 20 | 70 72 6f 64 75 63 74 69 |;stores |producti|
|00004160| 6f 6e 20 6e 61 6d 65 73 | 0a 09 20 20 2a 65 78 74 |on names|..  *ext|
|00004170| 65 72 6e 61 6c 73 2a 20 | 20 3b 74 72 61 63 6b 73 |ernals* | ;tracks|
|00004180| 20 65 78 74 65 72 6e 61 | 6c 20 64 65 63 6c 61 72 | externa|l declar|
|00004190| 61 74 69 6f 6e 73 20 0a | 20 20 20 20 20 20 20 20 |ations .|        |
|000041a0| 20 20 2a 76 65 63 74 6f | 72 2d 61 74 74 72 69 62 |  *vecto|r-attrib|
|000041b0| 75 74 65 73 2a 20 20 3b | 6c 69 73 74 20 6f 66 20 |utes*  ;|list of |
|000041c0| 76 65 63 74 6f 72 2d 61 | 74 74 72 69 62 75 74 65 |vector-a|ttribute|
|000041d0| 73 0a 09 20 20 29 29 0a | 0a 3b 28 64 65 63 6c 61 |s..  )).|.;(decla|
|000041e0| 72 65 20 28 6c 6f 63 61 | 6c 66 20 63 65 2d 67 65 |re (loca|lf ce-ge|
|000041f0| 6c 6d 20 67 65 6c 6d 20 | 70 65 65 6b 2d 73 75 62 |lm gelm |peek-sub|
|00004200| 6c 65 78 20 73 75 62 6c | 65 78 0a 3b 20 20 20 20 |lex subl|ex.;    |
|00004210| 20 20 20 20 20 20 65 76 | 61 6c 2d 6e 6f 64 65 6c |      ev|al-nodel|
|00004220| 69 73 74 20 73 65 6e 64 | 74 6f 20 61 6e 64 2d 6c |ist send|to and-l|
|00004230| 65 66 74 20 61 6e 64 2d | 72 69 67 68 74 20 6e 6f |eft and-|right no|
|00004240| 74 2d 6c 65 66 74 20 6e | 6f 74 2d 72 69 67 68 74 |t-left n|ot-right|
|00004250| 0a 3b 20 20 20 20 20 20 | 20 20 20 20 74 6f 70 2d |.;      |    top-|
|00004260| 6c 65 76 65 6c 73 2d 65 | 71 20 61 64 64 2d 74 6f |levels-e|q add-to|
|00004270| 6b 65 6e 20 72 65 61 6c | 2d 61 64 64 2d 74 6f 6b |ken real|-add-tok|
|00004280| 65 6e 20 72 65 6d 6f 76 | 65 2d 6f 6c 64 0a 3b 20 |en remov|e-old.; |
|00004290| 20 20 20 20 20 20 20 20 | 20 72 65 6d 6f 76 65 2d |        | remove-|
|000042a0| 6f 6c 64 2d 6e 75 6d 20 | 72 65 6d 6f 76 65 2d 6f |old-num |remove-o|
|000042b0| 6c 64 2d 6e 6f 2d 6e 75 | 6d 20 72 65 6d 6f 76 65 |ld-no-nu|m remove|
|000042c0| 63 73 20 69 6e 73 65 72 | 74 63 73 20 64 73 6f 72 |cs inser|tcs dsor|
|000042d0| 74 0a 3b 20 20 20 20 20 | 20 20 20 20 20 62 65 73 |t.;     |     bes|
|000042e0| 74 2d 6f 66 20 62 65 73 | 74 2d 6f 66 2a 20 63 6f |t-of bes|t-of* co|
|000042f0| 6e 66 6c 69 63 74 2d 73 | 65 74 2d 63 6f 6d 70 61 |nflict-s|et-compa|
|00004300| 72 65 20 3d 61 6c 67 20 | 29 29 0a 0a 0a 3b 3b 3b |re =alg |))...;;;|
|00004310| 20 46 75 6e 63 74 69 6f | 6e 73 20 74 68 61 74 20 | Functio|ns that |
|00004320| 77 65 72 65 20 72 65 76 | 69 73 65 64 20 73 6f 20 |were rev|ised so |
|00004330| 74 68 61 74 20 74 68 65 | 79 20 77 6f 75 6c 64 20 |that the|y would |
|00004340| 63 6f 6d 70 69 6c 65 20 | 65 66 66 69 63 69 65 6e |compile |efficien|
|00004350| 74 6c 79 0a 0a 0a 3b 2a | 20 54 68 65 20 66 75 6e |tly...;*| The fun|
|00004360| 63 74 69 6f 6e 20 3d 3d | 20 69 73 20 6d 61 63 68 |ction ==| is mach|
|00004370| 69 6e 65 20 64 65 70 65 | 6e 64 65 6e 74 5c 21 0a |ine depe|ndent\!.|
|00004380| 3b 2a 20 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |;* This |function|
|00004390| 20 63 6f 6d 70 61 72 65 | 73 20 73 6d 61 6c 6c 20 | compare|s small |
|000043a0| 69 6e 74 65 67 65 72 73 | 20 66 6f 72 20 65 71 75 |integers| for equ|
|000043b0| 61 6c 69 74 79 2e 20 20 | 49 74 20 75 73 65 73 20 |ality.  |It uses |
|000043c0| 45 51 0a 3b 2a 20 73 6f | 20 74 68 61 74 20 69 74 |EQ.;* so| that it|
|000043d0| 20 77 69 6c 6c 20 62 65 | 20 66 61 73 74 2c 20 61 | will be| fast, a|
|000043e0| 6e 64 20 69 74 20 77 69 | 6c 6c 20 63 6f 6e 73 65 |nd it wi|ll conse|
|000043f0| 71 75 65 6e 74 6c 79 20 | 6e 6f 74 20 77 6f 72 6b |quently |not work|
|00004400| 20 6f 6e 20 61 6c 6c 0a | 3b 2a 20 4c 69 73 70 73 | on all.|;* Lisps|
|00004410| 2e 20 20 49 74 20 77 6f | 72 6b 73 20 69 6e 20 46 |.  It wo|rks in F|
|00004420| 72 61 6e 7a 20 4c 69 73 | 70 20 66 6f 72 20 69 6e |ranz Lis|p for in|
|00004430| 74 65 67 65 72 73 20 69 | 6e 20 5b 2d 31 32 38 2c |tegers i|n [-128,|
|00004440| 20 31 32 37 5d 0a 0a 0a | 3b 28 64 65 66 75 6e 20 | 127]...|;(defun |
|00004450| 3d 3d 20 28 26 72 65 73 | 74 20 7a 29 20 28 3d 20 |== (&res|t z) (= |
|00004460| 28 63 61 64 72 20 7a 29 | 20 28 63 61 64 64 72 20 |(cadr z)| (caddr |
|00004470| 7a 29 29 29 0a 28 64 65 | 66 75 6e 20 3d 3d 20 28 |z))).(de|fun == (|
|00004480| 78 20 79 29 20 28 3d 20 | 78 20 79 29 29 0a 0a 3b |x y) (= |x y))..;|
|00004490| 20 3d 41 4c 47 20 72 65 | 74 75 72 6e 73 20 54 20 | =ALG re|turns T |
|000044a0| 69 66 20 41 20 61 6e 64 | 20 42 20 61 72 65 20 61 |if A and| B are a|
|000044b0| 6c 67 65 62 72 61 69 63 | 6c 79 20 65 71 75 61 6c |lgebraic|ly equal|
|000044c0| 2e 0a 0a 28 64 65 66 75 | 6e 20 3d 61 6c 67 20 28 |...(defu|n =alg (|
|000044d0| 61 20 62 29 20 28 3d 20 | 61 20 62 29 29 0a 0a 28 |a b) (= |a b))..(|
|000044e0| 64 65 66 6d 61 63 72 6f | 20 66 61 73 74 2d 73 79 |defmacro| fast-sy|
|000044f0| 6d 65 76 61 6c 20 28 26 | 72 65 73 74 20 7a 29 0a |meval (&|rest z).|
|00004500| 09 20 60 28 63 6f 6e 64 | 20 28 28 65 71 20 2c 28 |. `(cond| ((eq ,(|
|00004510| 63 61 72 20 7a 29 20 27 | 2a 63 31 2a 29 20 2a 63 |car z) '|*c1*) *c|
|00004520| 31 2a 29 0a 09 09 28 28 | 65 71 20 2c 28 63 61 72 |1*)...((|eq ,(car|
|00004530| 20 7a 29 20 27 2a 63 32 | 2a 29 20 2a 63 32 2a 29 | z) '*c2|*) *c2*)|
|00004540| 0a 09 09 28 28 65 71 20 | 2c 28 63 61 72 20 7a 29 |...((eq |,(car z)|
|00004550| 20 27 2a 63 33 2a 29 20 | 2a 63 33 2a 29 0a 09 09 | '*c3*) |*c3*)...|
|00004560| 28 28 65 71 20 2c 28 63 | 61 72 20 7a 29 20 27 2a |((eq ,(c|ar z) '*|
|00004570| 63 34 2a 29 20 2a 63 34 | 2a 29 0a 09 09 28 28 65 |c4*) *c4|*)...((e|
|00004580| 71 20 2c 28 63 61 72 20 | 7a 29 20 27 2a 63 35 2a |q ,(car |z) '*c5*|
|00004590| 29 20 2a 63 35 2a 29 0a | 09 09 28 28 65 71 20 2c |) *c5*).|..((eq ,|
|000045a0| 28 63 61 72 20 7a 29 20 | 27 2a 63 36 2a 29 20 2a |(car z) |'*c6*) *|
|000045b0| 63 36 2a 29 0a 09 09 28 | 28 65 71 20 2c 28 63 61 |c6*)...(|(eq ,(ca|
|000045c0| 72 20 7a 29 20 27 2a 63 | 37 2a 29 20 2a 63 37 2a |r z) '*c|7*) *c7*|
|000045d0| 29 0a 09 09 28 74 20 28 | 65 76 61 6c 20 2c 28 63 |)...(t (|eval ,(c|
|000045e0| 61 72 20 7a 29 29 29 20 | 20 29 29 0a 0a 3b 20 67 |ar z))) | ))..; g|
|000045f0| 65 74 76 65 63 74 6f 72 | 20 61 6e 64 20 70 75 74 |etvector| and put|
|00004600| 76 65 63 74 6f 72 20 61 | 72 65 20 66 61 73 74 20 |vector a|re fast |
|00004610| 72 6f 75 74 69 6e 65 73 | 20 66 6f 72 20 75 73 69 |routines| for usi|
|00004620| 6e 67 20 6f 6e 65 2d 64 | 69 6d 65 6e 73 69 6f 6e |ng one-d|imension|
|00004630| 61 6c 0a 3b 20 61 72 72 | 61 79 73 2e 20 20 74 68 |al.; arr|ays.  th|
|00004640| 65 73 65 20 72 6f 75 74 | 69 6e 65 73 20 64 6f 20 |ese rout|ines do |
|00004650| 6e 6f 20 63 68 65 63 6b | 69 6e 67 3b 20 74 68 65 |no check|ing; the|
|00004660| 79 20 61 73 73 75 6d 65 | 0a 3b 09 31 2e 20 74 68 |y assume|.;.1. th|
|00004670| 65 20 61 72 72 61 79 20 | 69 73 20 61 20 76 65 63 |e array |is a vec|
|00004680| 74 6f 72 20 77 69 74 68 | 20 30 20 62 65 69 6e 67 |tor with| 0 being|
|00004690| 20 74 68 65 20 69 6e 64 | 65 78 20 6f 66 20 74 68 | the ind|ex of th|
|000046a0| 65 20 66 69 72 73 74 0a | 3b 09 20 20 20 65 6c 65 |e first.|;.   ele|
|000046b0| 6d 65 6e 74 0a 3b 09 32 | 2e 20 74 68 65 20 76 65 |ment.;.2|. the ve|
|000046c0| 63 74 6f 72 20 68 6f 6c | 64 73 20 61 72 62 69 74 |ctor hol|ds arbit|
|000046d0| 72 61 72 79 20 6c 69 73 | 74 20 76 61 6c 75 65 73 |rary lis|t values|
|000046e0| 0a 3b 64 65 66 75 6e 20 | 76 65 72 73 69 6f 6e 73 |.;defun |versions|
|000046f0| 20 61 72 65 20 75 73 65 | 66 75 6c 20 66 6f 72 20 | are use|ful for |
|00004700| 74 72 61 63 69 6e 67 0a | 0a 3b 20 45 78 61 6d 70 |tracing.|.; Examp|
|00004710| 6c 65 20 63 61 6c 6c 3a | 20 28 70 75 74 76 65 63 |le call:| (putvec|
|00004720| 74 6f 72 20 61 72 72 61 | 79 20 69 6e 64 65 78 20 |tor arra|y index |
|00004730| 76 61 6c 75 65 29 0a 0a | 28 64 65 66 6d 61 63 72 |value)..|(defmacr|
|00004740| 6f 20 70 75 74 76 65 63 | 74 6f 72 20 28 61 72 72 |o putvec|tor (arr|
|00004750| 61 79 5f 72 65 66 20 69 | 6e 64 20 76 61 72 29 0a |ay_ref i|nd var).|
|00004760| 20 20 20 20 20 20 60 28 | 73 65 74 66 20 28 61 72 |      `(|setf (ar|
|00004770| 65 66 20 2c 61 72 72 61 | 79 5f 72 65 66 20 2c 69 |ef ,arra|y_ref ,i|
|00004780| 6e 64 29 20 2c 76 61 72 | 29 29 0a 0a 3b 28 64 65 |nd) ,var|))..;(de|
|00004790| 66 75 6e 20 70 75 74 76 | 65 63 74 6f 72 20 28 61 |fun putv|ector (a|
|000047a0| 72 72 61 79 5f 72 65 66 | 20 69 6e 64 20 76 61 72 |rray_ref| ind var|
|000047b0| 29 0a 3b 20 20 20 20 20 | 20 28 73 65 74 66 20 28 |).;     | (setf (|
|000047c0| 61 72 65 66 20 61 72 72 | 61 79 5f 72 65 66 20 69 |aref arr|ay_ref i|
|000047d0| 6e 64 29 20 76 61 72 29 | 29 0a 0a 3b 20 45 78 61 |nd) var)|)..; Exa|
|000047e0| 6d 70 6c 65 20 63 61 6c | 6c 3a 20 28 67 65 74 76 |mple cal|l: (getv|
|000047f0| 65 63 74 6f 72 20 6e 61 | 6d 65 20 69 6e 64 65 78 |ector na|me index|
|00004800| 29 0a 0a 3b 28 64 65 66 | 6d 61 63 72 6f 20 67 65 |)..;(def|macro ge|
|00004810| 74 76 65 63 74 6f 72 28 | 26 72 65 73 74 20 7a 29 |tvector(|&rest z)|
|00004820| 0a 3b 20 20 20 20 20 28 | 6c 69 73 74 20 27 63 78 |.;     (|list 'cx|
|00004830| 72 20 28 63 61 64 64 72 | 20 7a 29 20 28 63 61 64 |r (caddr| z) (cad|
|00004840| 72 20 7a 29 29 29 0a 0a | 28 64 65 66 6d 61 63 72 |r z)))..|(defmacr|
|00004850| 6f 20 67 65 74 76 65 63 | 74 6f 72 28 61 72 72 61 |o getvec|tor(arra|
|00004860| 79 5f 72 65 66 20 69 6e | 64 29 0a 20 20 20 20 20 |y_ref in|d).     |
|00004870| 20 60 28 61 72 65 66 20 | 2c 61 72 72 61 79 5f 72 | `(aref |,array_r|
|00004880| 65 66 20 2c 69 6e 64 29 | 29 0a 0a 3b 28 64 65 66 |ef ,ind)|)..;(def|
|00004890| 75 6e 20 67 65 74 76 65 | 63 74 6f 72 20 28 61 72 |un getve|ctor (ar|
|000048a0| 72 61 79 5f 72 65 66 20 | 69 6e 64 29 0a 20 3b 20 |ray_ref |ind). ; |
|000048b0| 20 20 20 20 20 20 28 61 | 72 65 66 20 61 72 72 61 |      (a|ref arra|
|000048c0| 79 5f 72 65 66 20 69 6e | 64 29 29 0a 0a 28 64 65 |y_ref in|d))..(de|
|000048d0| 66 75 6e 20 63 65 2d 67 | 65 6c 6d 20 28 78 20 6b |fun ce-g|elm (x k|
|000048e0| 29 0a 20 20 28 70 72 6f | 67 20 6e 69 6c 0a 20 20 |).  (pro|g nil.  |
|000048f0| 20 6c 6f 6f 70 20 28 61 | 6e 64 20 28 3d 3d 20 6b | loop (a|nd (== k|
|00004900| 20 31 2e 29 20 28 72 65 | 74 75 72 6e 20 28 63 61 | 1.) (re|turn (ca|
|00004910| 72 20 78 29 29 29 0a 20 | 20 20 20 20 20 20 20 28 |r x))). |       (|
|00004920| 73 65 74 71 20 6b 20 28 | 31 2d 20 6b 29 29 0a 20 |setq k (|1- k)). |
|00004930| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 78 20 28 |       (|setq x (|
|00004940| 63 64 72 20 78 29 29 0a | 20 20 20 20 20 20 20 20 |cdr x)).|        |
|00004950| 28 67 6f 20 6c 6f 6f 70 | 29 29 29 20 0a 0a 3b 20 |(go loop|))) ..; |
|00004960| 54 68 65 20 6c 6f 6f 70 | 73 20 69 6e 20 67 65 6c |The loop|s in gel|
|00004970| 6d 20 77 65 72 65 20 75 | 6e 77 6f 75 6e 64 20 73 |m were u|nwound s|
|00004980| 6f 20 74 68 61 74 20 66 | 65 77 65 72 20 63 61 6c |o that f|ewer cal|
|00004990| 6c 73 20 6f 6e 20 44 49 | 46 46 45 52 45 4e 43 45 |ls on DI|FFERENCE|
|000049a0| 0a 3b 20 77 6f 75 6c 64 | 20 62 65 20 6e 65 65 64 |.; would| be need|
|000049b0| 65 64 0a 0a 28 64 65 66 | 75 6e 20 67 65 6c 6d 20 |ed..(def|un gelm |
|000049c0| 28 78 20 6b 29 0a 20 20 | 28 70 72 6f 67 20 28 63 |(x k).  |(prog (c|
|000049d0| 65 20 73 75 62 29 0a 20 | 20 20 20 20 20 20 20 28 |e sub). |       (|
|000049e0| 73 65 74 71 20 63 65 20 | 20 28 66 6c 6f 6f 72 20 |setq ce | (floor |
|000049f0| 28 2f 20 6b 20 31 30 30 | 30 30 29 29 29 0a 20 20 |(/ k 100|00))).  |
|00004a00| 20 20 20 20 20 20 28 73 | 65 74 71 20 73 75 62 20 |      (s|etq sub |
|00004a10| 28 2d 20 6b 20 28 2a 20 | 63 65 20 31 30 30 30 30 |(- k (* |ce 10000|
|00004a20| 29 29 29 0a 20 63 65 6c | 6f 6f 70 20 28 61 6e 64 |))). cel|oop (and|
|00004a30| 20 28 3d 3d 20 63 65 20 | 30 29 20 28 67 6f 20 70 | (== ce |0) (go p|
|00004a40| 68 32 29 29 0a 20 20 20 | 20 20 20 20 20 28 73 65 |h2)).   |     (se|
|00004a50| 74 71 20 78 20 28 63 64 | 72 20 78 29 29 0a 20 20 |tq x (cd|r x)).  |
|00004a60| 20 20 20 20 20 20 28 61 | 6e 64 20 28 3d 3d 20 63 |      (a|nd (== c|
|00004a70| 65 20 31 29 20 28 67 6f | 20 70 68 32 29 29 0a 20 |e 1) (go| ph2)). |
|00004a80| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 78 20 28 |       (|setq x (|
|00004a90| 63 64 72 20 78 29 29 0a | 20 20 20 20 20 20 20 20 |cdr x)).|        |
|00004aa0| 28 61 6e 64 20 28 3d 3d | 20 63 65 20 32 29 20 28 |(and (==| ce 2) (|
|00004ab0| 67 6f 20 70 68 32 29 29 | 0a 20 20 20 20 20 20 20 |go ph2))|.       |
|00004ac0| 20 28 73 65 74 71 20 78 | 20 28 63 64 72 20 78 29 | (setq x| (cdr x)|
|00004ad0| 29 0a 20 20 20 20 20 20 | 20 20 28 61 6e 64 20 28 |).      |  (and (|
|00004ae0| 3d 3d 20 63 65 20 33 29 | 20 28 67 6f 20 70 68 32 |== ce 3)| (go ph2|
|00004af0| 29 29 0a 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |)).     |   (setq|
|00004b00| 20 78 20 28 63 64 72 20 | 78 29 29 0a 20 20 20 20 | x (cdr |x)).    |
|00004b10| 20 20 20 20 28 61 6e 64 | 20 28 3d 3d 20 63 65 20 |    (and| (== ce |
|00004b20| 34 29 20 28 67 6f 20 70 | 68 32 29 29 0a 20 20 20 |4) (go p|h2)).   |
|00004b30| 20 20 20 20 20 28 73 65 | 74 71 20 63 65 20 28 2d |     (se|tq ce (-|
|00004b40| 20 63 65 20 34 29 29 0a | 20 20 20 20 20 20 20 20 | ce 4)).|        |
|00004b50| 28 67 6f 20 63 65 6c 6f | 6f 70 29 0a 20 20 20 70 |(go celo|op).   p|
|00004b60| 68 32 20 20 28 73 65 74 | 71 20 78 20 28 63 61 72 |h2  (set|q x (car|
|00004b70| 20 78 29 29 0a 20 20 20 | 73 75 62 6c 6f 6f 70 20 | x)).   |subloop |
|00004b80| 28 61 6e 64 20 28 3d 3d | 20 73 75 62 20 30 29 20 |(and (==| sub 0) |
|00004b90| 28 67 6f 20 66 69 6e 69 | 73 29 29 0a 20 20 20 20 |(go fini|s)).    |
|00004ba0| 20 20 20 20 28 73 65 74 | 71 20 78 20 28 63 64 72 |    (set|q x (cdr|
|00004bb0| 20 78 29 29 0a 20 20 20 | 20 20 20 20 20 28 61 6e | x)).   |     (an|
|00004bc0| 64 20 28 3d 3d 20 73 75 | 62 20 31 29 20 28 67 6f |d (== su|b 1) (go|
|00004bd0| 20 66 69 6e 69 73 29 29 | 0a 20 20 20 20 20 20 20 | finis))|.       |
|00004be0| 20 28 73 65 74 71 20 78 | 20 28 63 64 72 20 78 29 | (setq x| (cdr x)|
|00004bf0| 29 0a 20 20 20 20 20 20 | 20 20 28 61 6e 64 20 28 |).      |  (and (|
|00004c00| 3d 3d 20 73 75 62 20 32 | 29 20 28 67 6f 20 66 69 |== sub 2|) (go fi|
|00004c10| 6e 69 73 29 29 0a 20 20 | 20 20 20 20 20 20 28 73 |nis)).  |      (s|
|00004c20| 65 74 71 20 78 20 28 63 | 64 72 20 78 29 29 0a 20 |etq x (c|dr x)). |
|00004c30| 20 20 20 20 20 20 20 28 | 61 6e 64 20 28 3d 3d 20 |       (|and (== |
|00004c40| 73 75 62 20 33 29 20 28 | 67 6f 20 66 69 6e 69 73 |sub 3) (|go finis|
|00004c50| 29 29 0a 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |)).     |   (setq|
|00004c60| 20 78 20 28 63 64 72 20 | 78 29 29 0a 20 20 20 20 | x (cdr |x)).    |
|00004c70| 20 20 20 20 28 61 6e 64 | 20 28 3d 3d 20 73 75 62 |    (and| (== sub|
|00004c80| 20 34 29 20 28 67 6f 20 | 66 69 6e 69 73 29 29 0a | 4) (go |finis)).|
|00004c90| 20 20 20 20 20 20 20 20 | 28 73 65 74 71 20 78 20 |        |(setq x |
|00004ca0| 28 63 64 72 20 78 29 29 | 0a 20 20 20 20 20 20 20 |(cdr x))|.       |
|00004cb0| 20 28 61 6e 64 20 28 3d | 3d 20 73 75 62 20 35 29 | (and (=|= sub 5)|
|00004cc0| 20 28 67 6f 20 66 69 6e | 69 73 29 29 0a 20 20 20 | (go fin|is)).   |
|00004cd0| 20 20 20 20 20 28 73 65 | 74 71 20 78 20 28 63 64 |     (se|tq x (cd|
|00004ce0| 72 20 78 29 29 0a 20 20 | 20 20 20 20 20 20 28 61 |r x)).  |      (a|
|00004cf0| 6e 64 20 28 3d 3d 20 73 | 75 62 20 36 29 20 28 67 |nd (== s|ub 6) (g|
|00004d00| 6f 20 66 69 6e 69 73 29 | 29 0a 20 20 20 20 20 20 |o finis)|).      |
|00004d10| 20 20 28 73 65 74 71 20 | 78 20 28 63 64 72 20 78 |  (setq |x (cdr x|
|00004d20| 29 29 0a 20 20 20 20 20 | 20 20 20 28 61 6e 64 20 |)).     |   (and |
|00004d30| 28 3d 3d 20 73 75 62 20 | 37 29 20 28 67 6f 20 66 |(== sub |7) (go f|
|00004d40| 69 6e 69 73 29 29 0a 20 | 20 20 20 20 20 20 20 28 |inis)). |       (|
|00004d50| 73 65 74 71 20 78 20 28 | 63 64 72 20 78 29 29 0a |setq x (|cdr x)).|
|00004d60| 20 20 20 20 20 20 20 20 | 28 61 6e 64 20 28 3d 3d |        |(and (==|
|00004d70| 20 73 75 62 20 38 29 20 | 28 67 6f 20 66 69 6e 69 | sub 8) |(go fini|
|00004d80| 73 29 29 0a 20 20 20 20 | 20 20 20 20 28 73 65 74 |s)).    |    (set|
|00004d90| 71 20 73 75 62 20 28 2d | 20 73 75 62 20 38 29 29 |q sub (-| sub 8))|
|00004da0| 0a 20 20 20 20 20 20 20 | 20 28 67 6f 20 73 75 62 |.       | (go sub|
|00004db0| 6c 6f 6f 70 29 0a 20 20 | 20 66 69 6e 69 73 20 28 |loop).  | finis (|
|00004dc0| 72 65 74 75 72 6e 20 28 | 63 61 72 20 78 29 29 29 |return (|car x)))|
|00004dd0| 29 20 0a 0a 0a 3b 3b 3b | 20 55 74 69 6c 69 74 79 |) ...;;;| Utility|
|00004de0| 20 66 75 6e 63 74 69 6f | 6e 73 0a 0a 0a 0a 28 64 | functio|ns....(d|
|00004df0| 65 66 75 6e 20 70 72 69 | 6e 74 6c 69 6e 65 20 28 |efun pri|ntline (|
|00004e00| 78 29 20 28 6d 61 70 63 | 20 28 66 75 6e 63 74 69 |x) (mapc| (functi|
|00004e10| 6f 6e 20 70 72 69 6e 74 | 6c 69 6e 65 2a 29 20 78 |on print|line*) x|
|00004e20| 29 29 20 0a 0a 28 64 65 | 66 75 6e 20 70 72 69 6e |)) ..(de|fun prin|
|00004e30| 74 6c 69 6e 65 2a 20 28 | 79 29 20 28 70 72 69 6e |tline* (|y) (prin|
|00004e40| 63 20 27 7c 20 7c 29 20 | 28 70 72 69 6e 74 20 79 |c '| |) |(print y|
|00004e50| 29 29 20 0a 0a 28 64 65 | 66 75 6e 20 70 72 69 6e |)) ..(de|fun prin|
|00004e60| 74 6c 69 6e 65 63 20 28 | 78 29 20 28 6d 61 70 63 |tlinec (|x) (mapc|
|00004e70| 20 28 66 75 6e 63 74 69 | 6f 6e 20 70 72 69 6e 74 | (functi|on print|
|00004e80| 6c 69 6e 65 63 2a 29 20 | 78 29 29 20 0a 0a 28 64 |linec*) |x)) ..(d|
|00004e90| 65 66 75 6e 20 70 72 69 | 6e 74 6c 69 6e 65 63 2a |efun pri|ntlinec*|
|00004ea0| 20 28 79 29 20 28 70 72 | 69 6e 63 20 27 7c 20 7c | (y) (pr|inc '| ||
|00004eb0| 29 20 28 70 72 69 6e 63 | 20 79 29 29 20 0a 0a 3b |) (princ| y)) ..;|
|00004ec0| 20 69 6e 74 65 72 73 65 | 63 74 20 74 77 6f 20 6c | interse|ct two l|
|00004ed0| 69 73 74 73 20 75 73 69 | 6e 67 20 65 71 20 66 6f |ists usi|ng eq fo|
|00004ee0| 72 20 74 68 65 20 65 71 | 75 61 6c 69 74 79 20 74 |r the eq|uality t|
|00004ef0| 65 73 74 0a 0a 28 64 65 | 66 75 6e 20 69 6e 74 65 |est..(de|fun inte|
|00004f00| 72 71 20 28 78 20 79 29 | 0a 20 20 28 69 6e 74 65 |rq (x y)|.  (inte|
|00004f10| 72 73 65 63 74 69 6f 6e | 20 78 20 79 20 3a 74 65 |rsection| x y :te|
|00004f20| 73 74 20 23 27 65 71 29 | 29 0a 0a 28 64 65 66 75 |st #'eq)|)..(defu|
|00004f30| 6e 20 65 6e 74 65 72 20 | 28 78 20 6c 6c 29 0a 20 |n enter |(x ll). |
|00004f40| 20 20 28 61 6e 64 20 28 | 6e 6f 74 20 28 6d 65 6d |  (and (|not (mem|
|00004f50| 62 65 72 20 78 20 6c 6c | 20 3a 74 65 73 74 20 23 |ber x ll| :test #|
|00004f60| 27 65 71 75 61 6c 29 29 | 0a 20 20 20 20 20 20 20 |'equal))|.       |
|00004f70| 28 70 75 73 68 20 78 20 | 6c 6c 29 29 29 0a 0a 0a |(push x |ll)))...|
|00004f80| 3b 48 61 63 6b 20 72 65 | 61 64 2d 6d 61 63 72 6f |;Hack re|ad-macro|
|00004f90| 20 74 61 62 6c 65 73 20 | 74 6f 20 61 63 63 65 70 | tables |to accep|
|00004fa0| 74 20 73 69 6e 67 6c 65 | 20 63 68 61 72 61 63 74 |t single| charact|
|00004fb0| 65 72 73 20 2d 2d 20 72 | 69 67 68 74 20 6f 75 74 |ers -- r|ight out|
|00004fc0| 20 6f 66 20 43 4c 20 62 | 6f 6f 6b 2e 0a 28 64 65 | of CL b|ook..(de|
|00004fd0| 66 75 6e 20 73 69 6e 67 | 6c 65 2d 6d 61 63 72 6f |fun sing|le-macro|
|00004fe0| 2d 63 68 61 72 61 63 74 | 65 72 20 28 73 74 72 65 |-charact|er (stre|
|00004ff0| 61 6d 20 63 68 61 72 29 | 0a 20 20 20 28 64 65 63 |am char)|.   (dec|
|00005000| 6c 61 72 65 20 28 69 67 | 6e 6f 72 65 20 73 74 72 |lare (ig|nore str|
|00005010| 65 61 6d 29 29 0a 20 20 | 20 28 63 68 61 72 61 63 |eam)).  | (charac|
|00005020| 74 65 72 20 63 68 61 72 | 29 29 0a 0a 28 64 65 66 |ter char|))..(def|
|00005030| 75 6e 20 69 2d 67 2d 76 | 20 6e 69 6c 0a 20 28 70 |un i-g-v| nil. (p|
|00005040| 72 6f 67 20 28 78 29 0a | 20 20 20 20 20 20 20 20 |rog (x).|        |
|00005050| 28 73 65 74 2d 6d 61 63 | 72 6f 2d 63 68 61 72 61 |(set-mac|ro-chara|
|00005060| 63 74 65 72 20 23 5c 7b | 20 23 27 73 69 6e 67 6c |cter #\{| #'singl|
|00005070| 65 2d 6d 61 63 72 6f 2d | 63 68 61 72 61 63 74 65 |e-macro-|characte|
|00005080| 72 20 29 0a 20 20 20 20 | 20 20 20 20 28 73 65 74 |r ).    |    (set|
|00005090| 2d 6d 61 63 72 6f 2d 63 | 68 61 72 61 63 74 65 72 |-macro-c|haracter|
|000050a0| 20 23 5c 7d 20 23 27 73 | 69 6e 67 6c 65 2d 6d 61 | #\} #'s|ingle-ma|
|000050b0| 63 72 6f 2d 63 68 61 72 | 61 63 74 65 72 20 29 0a |cro-char|acter ).|
|000050c0| 20 20 20 20 20 20 20 20 | 28 73 65 74 2d 6d 61 63 |        |(set-mac|
|000050d0| 72 6f 2d 63 68 61 72 61 | 63 74 65 72 20 23 5c 5e |ro-chara|cter #\^|
|000050e0| 20 23 27 73 69 6e 67 6c | 65 2d 6d 61 63 72 6f 2d | #'singl|e-macro-|
|000050f0| 63 68 61 72 61 63 74 65 | 72 20 29 0a 3b 09 28 73 |characte|r ).;.(s|
|00005100| 65 74 73 79 6e 74 61 78 | 20 27 5c 7b 20 36 36 2e |etsyntax| '\{ 66.|
|00005110| 29 20 3b 54 68 65 73 65 | 20 61 72 65 20 61 6c 72 |) ;These| are alr|
|00005120| 65 61 64 79 20 6e 6f 72 | 6d 61 6c 20 63 68 61 72 |eady nor|mal char|
|00005130| 61 63 74 65 72 73 20 69 | 6e 20 43 4c 0a 3b 09 28 |acters i|n CL.;.(|
|00005140| 73 65 74 73 79 6e 74 61 | 78 20 27 5c 7d 20 36 36 |setsynta|x '\} 66|
|00005150| 2e 29 0a 3b 09 28 73 65 | 74 73 79 6e 74 61 78 20 |.).;.(se|tsyntax |
|00005160| 27 5e 20 36 36 2e 29 0a | 09 28 73 65 74 71 20 2a |'^ 66.).|.(setq *|
|00005170| 62 75 63 6b 65 74 73 2a | 20 36 34 2e 29 09 09 3b |buckets*| 64.)..;|
|00005180| 20 4f 50 53 35 20 61 6c | 6c 6f 77 73 20 36 34 20 | OPS5 al|lows 64 |
|00005190| 6e 61 6d 65 64 20 73 6c | 6f 74 73 0a 09 28 73 65 |named sl|ots..(se|
|000051a0| 74 71 20 2a 61 63 63 65 | 70 74 2d 66 69 6c 65 2a |tq *acce|pt-file*|
|000051b0| 20 6e 69 6c 29 0a 09 28 | 73 65 74 71 20 2a 77 72 | nil)..(|setq *wr|
|000051c0| 69 74 65 2d 66 69 6c 65 | 2a 20 6e 69 6c 29 0a 09 |ite-file|* nil)..|
|000051d0| 28 73 65 74 71 20 2a 74 | 72 61 63 65 2d 66 69 6c |(setq *t|race-fil|
|000051e0| 65 2a 20 6e 69 6c 29 0a | 20 20 20 20 20 20 20 20 |e* nil).|        |
|000051f0| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 2a 63 |(and (bo|undp '*c|
|00005200| 6c 61 73 73 2d 6c 69 73 | 74 2a 29 0a 20 20 20 20 |lass-lis|t*).    |
|00005210| 20 20 20 20 20 20 28 6d | 61 70 63 20 23 27 28 6c |      (m|apc #'(l|
|00005220| 61 6d 62 64 61 28 63 6c | 61 73 73 29 20 28 70 75 |ambda(cl|ass) (pu|
|00005230| 74 70 72 6f 70 20 63 6c | 61 73 73 20 6e 69 6c 20 |tprop cl|ass nil |
|00005240| 27 61 74 74 2d 6c 69 73 | 74 29 29 20 2a 63 6c 61 |'att-lis|t)) *cla|
|00005250| 73 73 2d 6c 69 73 74 2a | 29 29 0a 09 28 73 65 74 |ss-list*|))..(set|
|00005260| 71 20 2a 63 6c 61 73 73 | 2d 6c 69 73 74 2a 20 6e |q *class|-list* n|
|00005270| 69 6c 29 0a 09 28 73 65 | 74 71 20 2a 62 72 6b 70 |il)..(se|tq *brkp|
|00005280| 74 73 2a 20 6e 69 6c 29 | 0a 09 28 73 65 74 71 20 |ts* nil)|..(setq |
|00005290| 2a 73 74 72 61 74 65 67 | 79 2a 20 27 6c 65 78 29 |*strateg|y* 'lex)|
|000052a0| 0a 20 20 09 28 73 65 74 | 71 20 2a 69 6e 2d 72 68 |.  .(set|q *in-rh|
|000052b0| 73 2a 20 6e 69 6c 29 0a | 20 20 09 28 73 65 74 71 |s* nil).|  .(setq|
|000052c0| 20 2a 70 74 72 61 63 65 | 2a 20 74 29 0a 20 20 09 | *ptrace|* t).  .|
|000052d0| 28 73 65 74 71 20 2a 77 | 74 72 61 63 65 2a 20 6e |(setq *w|trace* n|
|000052e0| 69 6c 29 0a 09 28 73 65 | 74 71 20 2a 6d 74 72 61 |il)..(se|tq *mtra|
|000052f0| 63 65 2a 20 74 29 20 20 | 20 20 20 20 20 20 20 20 |ce* t)  |        |
|00005300| 20 20 3b 20 74 75 72 6e | 20 6f 6e 20 6d 61 64 65 |  ; turn| on made|
|00005310| 2d 62 79 20 74 72 61 63 | 69 6e 67 0a 09 28 73 65 |-by trac|ing..(se|
|00005320| 74 71 20 2a 6d 61 64 65 | 62 79 2a 20 6e 69 6c 29 |tq *made|by* nil)|
|00005330| 20 20 20 20 20 20 20 20 | 20 20 3b 20 72 65 63 6f |        |  ; reco|
|00005340| 72 64 20 6d 61 6b 65 72 | 73 20 6f 66 20 77 6d 20 |rd maker|s of wm |
|00005350| 65 6c 65 6d 65 6e 74 73 | 0a 20 20 09 28 73 65 74 |elements|.  .(set|
|00005360| 71 20 2a 72 65 63 6f 72 | 64 69 6e 67 2a 20 6e 69 |q *recor|ding* ni|
|00005370| 6c 29 0a 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |l).     |   (setq|
|00005380| 20 2a 72 65 66 72 61 63 | 74 73 2a 20 6e 69 6c 29 | *refrac|ts* nil)|
|00005390| 0a 09 28 73 65 74 71 20 | 2a 72 65 61 6c 2d 63 6e |..(setq |*real-cn|
|000053a0| 74 2a 20 28 73 65 74 71 | 20 2a 76 69 72 74 75 61 |t* (setq| *virtua|
|000053b0| 6c 2d 63 6e 74 2a 20 30 | 2e 29 29 0a 09 28 73 65 |l-cnt* 0|.))..(se|
|000053c0| 74 71 20 2a 6d 61 78 2d | 63 73 2a 20 28 73 65 74 |tq *max-|cs* (set|
|000053d0| 71 20 2a 74 6f 74 61 6c | 2d 63 73 2a 20 30 2e 29 |q *total|-cs* 0.)|
|000053e0| 29 0a 20 20 09 28 73 65 | 74 71 20 2a 6c 69 6d 69 |).  .(se|tq *limi|
|000053f0| 74 2d 74 6f 6b 65 6e 2a | 20 31 30 30 30 30 30 30 |t-token*| 1000000|
|00005400| 2e 29 0a 09 28 73 65 74 | 71 20 2a 6c 69 6d 69 74 |.)..(set|q *limit|
|00005410| 2d 63 73 2a 20 31 30 30 | 30 30 30 30 2e 29 0a 09 |-cs* 100|0000.)..|
|00005420| 28 73 65 74 71 20 2a 63 | 72 69 74 69 63 61 6c 2a |(setq *c|ritical*|
|00005430| 20 6e 69 6c 29 0a 09 28 | 73 65 74 71 20 2a 62 75 | nil)..(|setq *bu|
|00005440| 69 6c 64 2d 74 72 61 63 | 65 2a 20 6e 69 6c 29 0a |ild-trac|e* nil).|
|00005450| 09 28 73 65 74 71 20 2a | 77 6d 70 61 72 74 2d 6c |.(setq *|wmpart-l|
|00005460| 69 73 74 2a 20 6e 69 6c | 29 0a 20 20 20 20 20 20 |ist* nil|).      |
|00005470| 20 20 28 73 65 74 71 20 | 2a 70 6e 61 6d 65 73 2a |  (setq |*pnames*|
|00005480| 20 6e 69 6c 29 0a 20 20 | 20 20 20 20 20 20 28 73 | nil).  |      (s|
|00005490| 65 74 71 20 2a 6c 69 74 | 65 72 61 6c 73 2a 20 6e |etq *lit|erals* n|
|000054a0| 69 6c 29 20 3b 20 72 65 | 63 6f 72 64 73 20 6c 69 |il) ; re|cords li|
|000054b0| 74 65 72 61 6c 20 64 65 | 66 69 6e 69 74 69 6f 6e |teral de|finition|
|000054c0| 73 0a 09 28 73 65 74 71 | 20 2a 65 78 74 65 72 6e |s..(setq| *extern|
|000054d0| 61 6c 73 2a 20 6e 69 6c | 29 20 3b 20 72 65 63 6f |als* nil|) ; reco|
|000054e0| 72 64 73 20 65 78 74 65 | 72 6e 61 6c 20 64 65 66 |rds exte|rnal def|
|000054f0| 69 6e 69 74 69 6f 6e 73 | 0a 09 28 73 65 74 71 20 |initions|..(setq |
|00005500| 2a 76 65 63 74 6f 72 2d | 61 74 74 72 69 62 75 74 |*vector-|attribut|
|00005510| 65 73 2a 20 6e 69 6c 29 | 20 3b 72 65 63 6f 72 64 |es* nil)| ;record|
|00005520| 73 20 76 65 63 74 6f 72 | 20 61 74 74 72 69 62 75 |s vector| attribu|
|00005530| 74 65 73 0a 09 28 73 65 | 74 71 20 2a 73 69 7a 65 |tes..(se|tq *size|
|00005540| 2d 72 65 73 75 6c 74 2d | 61 72 72 61 79 2a 20 31 |-result-|array* 1|
|00005550| 32 37 2e 29 0a 09 28 73 | 65 74 71 20 2a 72 65 73 |27.)..(s|etq *res|
|00005560| 75 6c 74 2d 61 72 72 61 | 79 2a 20 28 6d 61 6b 65 |ult-arra|y* (make|
|00005570| 2d 61 72 72 61 79 20 31 | 32 38 29 29 0a 09 28 73 |-array 1|28))..(s|
|00005580| 65 74 71 20 2a 72 65 63 | 6f 72 64 2d 61 72 72 61 |etq *rec|ord-arra|
|00005590| 79 2a 20 28 6d 61 6b 65 | 2d 61 72 72 61 79 20 31 |y* (make|-array 1|
|000055a0| 32 38 29 29 0a 09 28 73 | 65 74 71 20 78 20 30 29 |28))..(s|etq x 0)|
|000055b0| 0a 20 20 20 20 20 20 20 | 20 28 73 65 74 71 20 2a |.       | (setq *|
|000055c0| 70 6e 61 6d 65 73 2a 20 | 6e 69 6c 29 20 20 20 20 |pnames* |nil)    |
|000055d0| 20 3b 20 6c 69 73 74 20 | 6f 66 20 70 72 6f 64 75 | ; list |of produ|
|000055e0| 63 74 69 6f 6e 20 6e 61 | 6d 65 73 0a 20 20 6c 6f |ction na|mes.  lo|
|000055f0| 6f 70 09 28 70 75 74 76 | 65 63 74 6f 72 20 2a 72 |op.(putv|ector *r|
|00005600| 65 73 75 6c 74 2d 61 72 | 72 61 79 2a 20 78 20 6e |esult-ar|ray* x n|
|00005610| 69 6c 29 0a 09 28 73 65 | 74 71 20 78 20 28 31 2b |il)..(se|tq x (1+|
|00005620| 20 78 29 29 0a 09 28 61 | 6e 64 20 28 6e 6f 74 20 | x))..(a|nd (not |
|00005630| 28 3e 20 78 20 2a 73 69 | 7a 65 2d 72 65 73 75 6c |(> x *si|ze-resul|
|00005640| 74 2d 61 72 72 61 79 2a | 29 29 20 28 67 6f 20 6c |t-array*|)) (go l|
|00005650| 6f 6f 70 29 29 0a 09 28 | 6d 61 6b 65 2d 62 6f 74 |oop))..(|make-bot|
|00005660| 74 6f 6d 2d 6e 6f 64 65 | 29 0a 09 28 73 65 74 71 |tom-node|)..(setq|
|00005670| 20 2a 70 63 6f 75 6e 74 | 2a 20 30 2e 29 0a 09 28 | *pcount|* 0.)..(|
|00005680| 69 6e 69 74 69 61 6c 69 | 7a 65 2d 72 65 63 6f 72 |initiali|ze-recor|
|00005690| 64 29 0a 09 28 73 65 74 | 71 20 2a 63 79 63 6c 65 |d)..(set|q *cycle|
|000056a0| 2d 63 6f 75 6e 74 2a 20 | 28 73 65 74 71 20 2a 61 |-count* |(setq *a|
|000056b0| 63 74 69 6f 6e 2d 63 6f | 75 6e 74 2a 20 30 2e 29 |ction-co|unt* 0.)|
|000056c0| 29 0a 09 28 73 65 74 71 | 20 2a 74 6f 74 61 6c 2d |)..(setq| *total-|
|000056d0| 74 6f 6b 65 6e 2a 0a 09 | 20 20 20 20 20 20 20 28 |token*..|       (|
|000056e0| 73 65 74 71 20 2a 6d 61 | 78 2d 74 6f 6b 65 6e 2a |setq *ma|x-token*|
|000056f0| 20 28 73 65 74 71 20 2a | 63 75 72 72 65 6e 74 2d | (setq *|current-|
|00005700| 74 6f 6b 65 6e 2a 20 30 | 2e 29 29 29 0a 09 28 73 |token* 0|.)))..(s|
|00005710| 65 74 71 20 2a 74 6f 74 | 61 6c 2d 63 73 2a 20 28 |etq *tot|al-cs* (|
|00005720| 73 65 74 71 20 2a 6d 61 | 78 2d 63 73 2a 20 30 2e |setq *ma|x-cs* 0.|
|00005730| 29 29 0a 09 28 73 65 74 | 71 20 2a 74 6f 74 61 6c |))..(set|q *total|
|00005740| 2d 77 6d 2a 20 28 73 65 | 74 71 20 2a 6d 61 78 2d |-wm* (se|tq *max-|
|00005750| 77 6d 2a 20 28 73 65 74 | 71 20 2a 63 75 72 72 65 |wm* (set|q *curre|
|00005760| 6e 74 2d 77 6d 2a 20 30 | 2e 29 29 29 0a 09 28 73 |nt-wm* 0|.)))..(s|
|00005770| 65 74 71 20 2a 63 6f 6e | 66 6c 69 63 74 2d 73 65 |etq *con|flict-se|
|00005780| 74 2a 20 6e 69 6c 29 0a | 09 28 73 65 74 71 20 2a |t* nil).|.(setq *|
|00005790| 77 6d 70 61 72 74 2d 6c | 69 73 74 2a 20 6e 69 6c |wmpart-l|ist* nil|
|000057a0| 29 0a 09 28 73 65 74 71 | 20 2a 70 2d 6e 61 6d 65 |)..(setq| *p-name|
|000057b0| 2a 20 6e 69 6c 29 0a 09 | 28 73 65 74 71 20 2a 72 |* nil)..|(setq *r|
|000057c0| 65 6d 61 69 6e 69 6e 67 | 2d 63 79 63 6c 65 73 2a |emaining|-cycles*|
|000057d0| 20 31 30 30 30 30 30 30 | 29 0a 29 29 0a 0a 3b 20 | 1000000|).))..; |
|000057e0| 69 66 20 74 68 65 20 73 | 69 7a 65 20 6f 66 20 72 |if the s|ize of r|
|000057f0| 65 73 75 6c 74 2d 61 72 | 72 61 79 20 63 68 61 6e |esult-ar|ray chan|
|00005800| 67 65 73 2c 20 63 68 61 | 6e 67 65 20 74 68 65 20 |ges, cha|nge the |
|00005810| 6c 69 6e 65 20 69 6e 20 | 69 2d 67 2d 76 20 77 68 |line in |i-g-v wh|
|00005820| 69 63 68 0a 3b 20 73 65 | 74 73 20 74 68 65 20 76 |ich.; se|ts the v|
|00005830| 61 6c 75 65 20 6f 66 20 | 2a 73 69 7a 65 2d 72 65 |alue of |*size-re|
|00005840| 73 75 6c 74 2d 61 72 72 | 61 79 2a 0a 0a 28 64 65 |sult-arr|ay*..(de|
|00005850| 66 75 6e 20 25 77 61 72 | 6e 20 28 77 68 61 74 20 |fun %war|n (what |
|00005860| 77 68 65 72 65 29 0a 20 | 20 28 70 72 6f 67 20 6e |where). | (prog n|
|00005870| 69 6c 0a 20 20 20 20 28 | 74 65 72 70 72 69 29 0a |il.    (|terpri).|
|00005880| 20 20 20 20 28 70 72 69 | 6e 63 20 27 3f 29 0a 20 |    (pri|nc '?). |
|00005890| 20 20 20 28 61 6e 64 20 | 2a 70 2d 6e 61 6d 65 2a |   (and |*p-name*|
|000058a0| 20 28 70 72 69 6e 63 20 | 2a 70 2d 6e 61 6d 65 2a | (princ |*p-name*|
|000058b0| 29 29 0a 20 20 20 20 28 | 70 72 69 6e 63 20 27 7c |)).    (|princ '||
|000058c0| 2e 2e 7c 29 0a 20 20 20 | 20 28 70 72 69 6e 63 20 |..|).   | (princ |
|000058d0| 77 68 65 72 65 29 0a 20 | 20 20 20 28 70 72 69 6e |where). |   (prin|
|000058e0| 63 20 27 7c 2e 2e 7c 29 | 0a 20 20 20 20 28 70 72 |c '|..|)|.    (pr|
|000058f0| 69 6e 63 20 77 68 61 74 | 29 0a 20 20 20 20 28 72 |inc what|).    (r|
|00005900| 65 74 75 72 6e 20 77 68 | 65 72 65 29 29 29 20 0a |eturn wh|ere))) .|
|00005910| 0a 28 64 65 66 75 6e 20 | 25 65 72 72 6f 72 20 28 |.(defun |%error (|
|00005920| 77 68 61 74 20 77 68 65 | 72 65 29 0a 20 20 20 20 |what whe|re).    |
|00005930| 28 25 77 61 72 6e 20 77 | 68 61 74 20 77 68 65 72 |(%warn w|hat wher|
|00005940| 65 29 0a 20 20 20 20 28 | 74 68 72 6f 77 20 27 21 |e).    (|throw '!|
|00005950| 65 72 72 6f 72 21 20 6e | 69 6c 29 29 20 0a 0a 0a |error! n|il)) ...|
|00005960| 28 64 65 66 75 6e 20 74 | 6f 70 2d 6c 65 76 65 6c |(defun t|op-level|
|00005970| 73 2d 65 71 20 28 6c 61 | 20 6c 62 29 0a 20 20 28 |s-eq (la| lb).  (|
|00005980| 70 72 6f 67 20 6e 69 6c | 0a 20 20 20 6c 78 20 20 |prog nil|.   lx  |
|00005990| 20 28 63 6f 6e 64 20 28 | 28 65 71 20 6c 61 20 6c | (cond (|(eq la l|
|000059a0| 62 29 20 28 72 65 74 75 | 72 6e 20 74 29 29 0a 20 |b) (retu|rn t)). |
|000059b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 28 6e |        |     ((n|
|000059c0| 75 6c 6c 20 6c 61 29 20 | 28 72 65 74 75 72 6e 20 |ull la) |(return |
|000059d0| 6e 69 6c 29 29 0a 20 20 | 20 20 20 20 20 20 20 20 |nil)).  |        |
|000059e0| 20 20 20 20 28 28 6e 75 | 6c 6c 20 6c 62 29 20 28 |    ((nu|ll lb) (|
|000059f0| 72 65 74 75 72 6e 20 6e | 69 6c 29 29 0a 20 20 20 |return n|il)).   |
|00005a00| 20 20 20 20 20 20 20 20 | 20 20 20 28 28 6e 6f 74 |        |   ((not|
|00005a10| 20 28 65 71 20 28 63 61 | 72 20 6c 61 29 20 28 63 | (eq (ca|r la) (c|
|00005a20| 61 72 20 6c 62 29 29 29 | 20 28 72 65 74 75 72 6e |ar lb)))| (return|
|00005a30| 20 6e 69 6c 29 29 29 0a | 20 20 20 20 20 20 20 20 | nil))).|        |
|00005a40| 28 73 65 74 71 20 6c 61 | 20 28 63 64 72 20 6c 61 |(setq la| (cdr la|
|00005a50| 29 29 0a 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |)).     |   (setq|
|00005a60| 20 6c 62 20 28 63 64 72 | 20 6c 62 29 29 0a 20 20 | lb (cdr| lb)).  |
|00005a70| 20 20 20 20 20 20 28 67 | 6f 20 6c 78 29 29 29 20 |      (g|o lx))) |
|00005a80| 0a 0a 0a 3b 3b 3b 20 4c | 49 54 45 52 41 4c 20 61 |...;;; L|ITERAL a|
|00005a90| 6e 64 20 4c 49 54 45 52 | 41 4c 49 5a 45 0a 0a 28 |nd LITER|ALIZE..(|
|00005aa0| 64 65 66 6d 61 63 72 6f | 20 6c 69 74 65 72 61 6c |defmacro| literal|
|00005ab0| 20 28 26 72 65 73 74 20 | 7a 29 0a 20 20 60 28 70 | (&rest |z).  `(p|
|00005ac0| 72 6f 67 20 28 61 74 6d | 20 76 61 6c 20 6f 6c 64 |rog (atm| val old|
|00005ad0| 20 61 72 67 73 29 0a 20 | 20 20 20 20 20 20 20 28 | args). |       (|
|00005ae0| 73 65 74 71 20 61 72 67 | 73 20 27 2c 7a 29 0a 20 |setq arg|s ',z). |
|00005af0| 20 20 74 6f 70 20 20 28 | 61 6e 64 20 28 61 74 6f |  top  (|and (ato|
|00005b00| 6d 20 61 72 67 73 29 20 | 28 72 65 74 75 72 6e 20 |m args) |(return |
|00005b10| 27 62 6f 75 6e 64 29 29 | 0a 20 20 20 20 20 20 20 |'bound))|.       |
|00005b20| 20 28 6f 72 20 28 65 71 | 20 28 63 61 64 72 20 61 | (or (eq| (cadr a|
|00005b30| 72 67 73 29 20 27 3d 29 | 20 28 72 65 74 75 72 6e |rgs) '=)| (return|
|00005b40| 20 28 25 77 61 72 6e 20 | 27 7c 77 72 6f 6e 67 20 | (%warn |'|wrong |
|00005b50| 66 6f 72 6d 61 74 7c 20 | 61 72 67 73 29 29 29 0a |format| |args))).|
|00005b60| 20 20 20 20 20 20 20 20 | 28 73 65 74 71 20 61 74 |        |(setq at|
|00005b70| 6d 20 28 63 61 72 20 61 | 72 67 73 29 29 0a 20 20 |m (car a|rgs)).  |
|00005b80| 20 20 20 20 20 20 28 73 | 65 74 71 20 76 61 6c 20 |      (s|etq val |
|00005b90| 28 63 61 64 64 72 20 61 | 72 67 73 29 29 0a 20 20 |(caddr a|rgs)).  |
|00005ba0| 20 20 20 20 20 20 28 73 | 65 74 71 20 61 72 67 73 |      (s|etq args|
|00005bb0| 20 28 63 64 64 64 72 20 | 61 72 67 73 29 29 0a 20 | (cdddr |args)). |
|00005bc0| 20 20 20 20 20 20 20 28 | 63 6f 6e 64 20 28 28 6e |       (|cond ((n|
|00005bd0| 6f 74 20 28 6e 75 6d 62 | 65 72 70 20 76 61 6c 29 |ot (numb|erp val)|
|00005be0| 29 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00005bf0| 20 28 25 77 61 72 6e 20 | 27 7c 63 61 6e 20 62 69 | (%warn |'|can bi|
|00005c00| 6e 64 20 6f 6e 6c 79 20 | 74 6f 20 6e 75 6d 62 65 |nd only |to numbe|
|00005c10| 72 73 7c 20 76 61 6c 29 | 29 0a 20 20 20 20 20 20 |rs| val)|).      |
|00005c20| 20 20 20 20 20 20 20 20 | 28 28 6f 72 20 28 6e 6f |        |((or (no|
|00005c30| 74 20 28 73 79 6d 62 6f | 6c 70 20 61 74 6d 29 29 |t (symbo|lp atm))|
|00005c40| 20 28 76 61 72 69 61 62 | 6c 65 70 20 61 74 6d 29 | (variab|lep atm)|
|00005c50| 29 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00005c60| 20 20 28 25 77 61 72 6e | 20 27 7c 63 61 6e 20 62 |  (%warn| '|can b|
|00005c70| 69 6e 64 20 6f 6e 6c 79 | 20 63 6f 6e 73 74 61 6e |ind only| constan|
|00005c80| 74 20 61 74 6f 6d 73 7c | 20 61 74 6d 29 29 0a 20 |t atoms|| atm)). |
|00005c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 28 61 |        |     ((a|
|00005ca0| 6e 64 20 28 73 65 74 71 | 20 6f 6c 64 20 28 6c 69 |nd (setq| old (li|
|00005cb0| 74 65 72 61 6c 2d 62 69 | 6e 64 69 6e 67 2d 6f 66 |teral-bi|nding-of|
|00005cc0| 20 61 74 6d 29 29 20 28 | 6e 6f 74 20 28 65 71 75 | atm)) (|not (equ|
|00005cd0| 61 6c 20 6f 6c 64 20 76 | 61 6c 29 29 29 0a 20 20 |al old v|al))).  |
|00005ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 25 77 |        |     (%w|
|00005cf0| 61 72 6e 20 27 7c 61 74 | 74 65 6d 70 74 20 74 6f |arn '|at|tempt to|
|00005d00| 20 72 65 62 69 6e 64 20 | 61 74 74 72 69 62 75 74 | rebind |attribut|
|00005d10| 65 7c 20 61 74 6d 29 29 | 0a 20 20 20 20 20 20 20 |e| atm))|.       |
|00005d20| 20 20 20 20 20 20 20 28 | 74 20 28 70 75 74 70 72 |       (|t (putpr|
|00005d30| 6f 70 20 61 74 6d 20 76 | 61 6c 20 27 6f 70 73 2d |op atm v|al 'ops-|
|00005d40| 62 69 6e 64 20 29 29 29 | 0a 20 20 20 20 20 20 20 |bind )))|.       |
|00005d50| 20 28 67 6f 20 74 6f 70 | 29 29 29 20 0a 0a 28 64 | (go top|))) ..(d|
|00005d60| 65 66 6d 61 63 72 6f 20 | 6c 69 74 65 72 61 6c 69 |efmacro |literali|
|00005d70| 7a 65 20 28 26 72 65 73 | 74 20 6c 29 0a 20 20 60 |ze (&res|t l).  `|
|00005d80| 28 70 72 6f 67 20 28 63 | 6c 61 73 73 2d 6e 61 6d |(prog (c|lass-nam|
|00005d90| 65 20 61 74 74 73 29 0a | 20 20 20 20 28 73 65 74 |e atts).|    (set|
|00005da0| 71 20 63 6c 61 73 73 2d | 6e 61 6d 65 20 28 63 61 |q class-|name (ca|
|00005db0| 72 20 27 2c 6c 29 29 0a | 20 20 20 20 28 63 6f 6e |r ',l)).|    (con|
|00005dc0| 64 20 28 28 68 61 76 65 | 2d 63 6f 6d 70 69 6c 65 |d ((have|-compile|
|00005dd0| 64 2d 70 72 6f 64 75 63 | 74 69 6f 6e 29 0a 20 20 |d-produc|tion).  |
|00005de0| 20 20 20 20 20 20 20 20 | 20 28 25 77 61 72 6e 20 |        | (%warn |
|00005df0| 27 7c 6c 69 74 65 72 61 | 6c 69 7a 65 20 63 61 6c |'|litera|lize cal|
|00005e00| 6c 65 64 20 61 66 74 65 | 72 20 70 7c 20 63 6c 61 |led afte|r p| cla|
|00005e10| 73 73 2d 6e 61 6d 65 29 | 0a 20 20 20 20 20 20 20 |ss-name)|.       |
|00005e20| 20 20 20 20 28 72 65 74 | 75 72 6e 20 6e 69 6c 29 |    (ret|urn nil)|
|00005e30| 29 0a 20 20 20 20 20 20 | 20 20 20 20 28 28 67 65 |).      |    ((ge|
|00005e40| 74 20 63 6c 61 73 73 2d | 6e 61 6d 65 20 27 61 74 |t class-|name 'at|
|00005e50| 74 2d 6c 69 73 74 29 0a | 20 20 20 20 20 20 20 20 |t-list).|        |
|00005e60| 20 20 20 28 25 77 61 72 | 6e 20 27 7c 61 74 74 65 |   (%war|n '|atte|
|00005e70| 6d 70 74 20 74 6f 20 72 | 65 64 65 66 69 6e 65 20 |mpt to r|edefine |
|00005e80| 63 6c 61 73 73 7c 20 63 | 6c 61 73 73 2d 6e 61 6d |class| c|lass-nam|
|00005e90| 65 29 0a 09 20 20 20 28 | 72 65 74 75 72 6e 20 6e |e)..   (|return n|
|00005ea0| 69 6c 29 29 29 0a 20 20 | 20 20 28 73 65 74 71 20 |il))).  |  (setq |
|00005eb0| 2a 63 6c 61 73 73 2d 6c | 69 73 74 2a 20 28 63 6f |*class-l|ist* (co|
|00005ec0| 6e 73 20 63 6c 61 73 73 | 2d 6e 61 6d 65 20 2a 63 |ns class|-name *c|
|00005ed0| 6c 61 73 73 2d 6c 69 73 | 74 2a 29 29 0a 20 20 20 |lass-lis|t*)).   |
|00005ee0| 20 28 73 65 74 71 20 61 | 74 74 73 20 28 72 65 6d | (setq a|tts (rem|
|00005ef0| 6f 76 65 2d 64 75 70 6c | 69 63 61 74 65 73 20 28 |ove-dupl|icates (|
|00005f00| 63 64 72 20 27 2c 6c 29 | 29 29 0a 20 20 20 20 28 |cdr ',l)|)).    (|
|00005f10| 74 65 73 74 2d 61 74 74 | 72 69 62 75 74 65 2d 6e |test-att|ribute-n|
|00005f20| 61 6d 65 73 20 61 74 74 | 73 29 0a 20 20 20 20 28 |ames att|s).    (|
|00005f30| 6d 61 72 6b 2d 63 6f 6e | 66 6c 69 63 74 73 20 61 |mark-con|flicts a|
|00005f40| 74 74 73 20 61 74 74 73 | 29 0a 20 20 20 20 28 70 |tts atts|).    (p|
|00005f50| 75 74 70 72 6f 70 20 63 | 6c 61 73 73 2d 6e 61 6d |utprop c|lass-nam|
|00005f60| 65 20 20 61 74 74 73 20 | 27 61 74 74 2d 6c 69 73 |e  atts |'att-lis|
|00005f70| 74 29 29 29 20 0a 0a 28 | 64 65 66 6d 61 63 72 6f |t))) ..(|defmacro|
|00005f80| 20 76 65 63 74 6f 72 2d | 61 74 74 72 69 62 75 74 | vector-|attribut|
|00005f90| 65 20 20 28 26 72 65 73 | 74 20 6c 29 0a 20 20 60 |e  (&res|t l).  `|
|00005fa0| 28 63 6f 6e 64 20 28 28 | 68 61 76 65 2d 63 6f 6d |(cond ((|have-com|
|00005fb0| 70 69 6c 65 64 2d 70 72 | 6f 64 75 63 74 69 6f 6e |piled-pr|oduction|
|00005fc0| 29 0a 20 20 20 20 20 20 | 20 20 20 28 25 77 61 72 |).      |   (%war|
|00005fd0| 6e 20 27 7c 76 65 63 74 | 6f 72 2d 61 74 74 72 69 |n '|vect|or-attri|
|00005fe0| 62 75 74 65 20 63 61 6c | 6c 65 64 20 61 66 74 65 |bute cal|led afte|
|00005ff0| 72 20 70 7c 20 27 2c 6c | 29 29 0a 20 20 20 20 20 |r p| ',l|)).     |
|00006000| 20 20 20 28 74 20 0a 20 | 20 20 20 20 20 20 20 20 |   (t . |        |
|00006010| 28 74 65 73 74 2d 61 74 | 74 72 69 62 75 74 65 2d |(test-at|tribute-|
|00006020| 6e 61 6d 65 73 20 27 2c | 6c 29 0a 09 20 28 6d 61 |names ',|l).. (ma|
|00006030| 70 63 20 28 66 75 6e 63 | 74 69 6f 6e 20 76 65 63 |pc (func|tion vec|
|00006040| 74 6f 72 2d 61 74 74 72 | 69 62 75 74 65 32 29 20 |tor-attr|ibute2) |
|00006050| 27 2c 6c 29 29 29 29 20 | 0a 0a 28 64 65 66 75 6e |',l)))) |..(defun|
|00006060| 20 76 65 63 74 6f 72 2d | 61 74 74 72 69 62 75 74 | vector-|attribut|
|00006070| 65 32 20 28 61 74 74 29 | 20 28 70 75 74 70 72 6f |e2 (att)| (putpro|
|00006080| 70 20 61 74 74 20 74 20 | 27 76 65 63 74 6f 72 2d |p att t |'vector-|
|00006090| 61 74 74 72 69 62 75 74 | 65 29 0a 09 09 09 20 20 |attribut|e)....  |
|000060a0| 20 20 20 20 20 28 73 65 | 74 71 20 20 2a 76 65 63 |     (se|tq  *vec|
|000060b0| 74 6f 72 2d 61 74 74 72 | 69 62 75 74 65 73 2a 20 |tor-attr|ibutes* |
|000060c0| 0a 09 09 09 09 20 20 20 | 28 65 6e 74 65 72 20 61 |.....   |(enter a|
|000060d0| 74 74 20 2a 76 65 63 74 | 6f 72 2d 61 74 74 72 69 |tt *vect|or-attri|
|000060e0| 62 75 74 65 73 2a 29 29 | 29 0a 0a 28 64 65 66 75 |butes*))|)..(defu|
|000060f0| 6e 20 69 73 2d 76 65 63 | 74 6f 72 2d 61 74 74 72 |n is-vec|tor-attr|
|00006100| 69 62 75 74 65 20 28 61 | 74 74 29 20 28 67 65 74 |ibute (a|tt) (get|
|00006110| 20 61 74 74 20 27 76 65 | 63 74 6f 72 2d 61 74 74 | att 've|ctor-att|
|00006120| 72 69 62 75 74 65 29 29 | 0a 0a 28 64 65 66 75 6e |ribute))|..(defun|
|00006130| 20 74 65 73 74 2d 61 74 | 74 72 69 62 75 74 65 2d | test-at|tribute-|
|00006140| 6e 61 6d 65 73 20 28 6c | 29 0a 20 20 28 6d 61 70 |names (l|).  (map|
|00006150| 63 20 28 66 75 6e 63 74 | 69 6f 6e 20 74 65 73 74 |c (funct|ion test|
|00006160| 2d 61 74 74 72 69 62 75 | 74 65 2d 6e 61 6d 65 73 |-attribu|te-names|
|00006170| 32 29 20 6c 29 29 20 0a | 0a 28 64 65 66 75 6e 20 |2) l)) .|.(defun |
|00006180| 74 65 73 74 2d 61 74 74 | 72 69 62 75 74 65 2d 6e |test-att|ribute-n|
|00006190| 61 6d 65 73 32 20 28 61 | 74 6d 29 0a 20 20 28 63 |ames2 (a|tm).  (c|
|000061a0| 6f 6e 64 20 28 28 6f 72 | 20 28 6e 6f 74 20 28 73 |ond ((or| (not (s|
|000061b0| 79 6d 62 6f 6c 70 20 61 | 74 6d 29 29 20 28 76 61 |ymbolp a|tm)) (va|
|000061c0| 72 69 61 62 6c 65 70 20 | 61 74 6d 29 29 0a 20 20 |riablep |atm)).  |
|000061d0| 20 20 20 20 20 20 20 28 | 25 77 61 72 6e 20 27 7c |       (|%warn '||
|000061e0| 63 61 6e 20 62 69 6e 64 | 20 6f 6e 6c 79 20 63 6f |can bind| only co|
|000061f0| 6e 73 74 61 6e 74 20 61 | 74 6f 6d 73 7c 20 61 74 |nstant a|toms| at|
|00006200| 6d 29 29 29 29 20 0a 0a | 28 64 65 66 75 6e 20 66 |m)))) ..|(defun f|
|00006210| 69 6e 69 73 68 2d 6c 69 | 74 65 72 61 6c 69 7a 65 |inish-li|teralize|
|00006220| 20 6e 69 6c 0a 20 20 28 | 63 6f 6e 64 20 28 28 6e | nil.  (|cond ((n|
|00006230| 6f 74 20 28 6e 75 6c 6c | 20 2a 63 6c 61 73 73 2d |ot (null| *class-|
|00006240| 6c 69 73 74 2a 29 29 0a | 20 20 20 20 20 20 20 20 |list*)).|        |
|00006250| 20 28 6d 61 70 63 20 28 | 66 75 6e 63 74 69 6f 6e | (mapc (|function|
|00006260| 20 6e 6f 74 65 2d 75 73 | 65 72 2d 61 73 73 69 67 | note-us|er-assig|
|00006270| 6e 73 29 20 2a 63 6c 61 | 73 73 2d 6c 69 73 74 2a |ns) *cla|ss-list*|
|00006280| 29 0a 20 20 20 20 20 20 | 20 20 20 28 6d 61 70 63 |).      |   (mapc|
|00006290| 20 28 66 75 6e 63 74 69 | 6f 6e 20 61 73 73 69 67 | (functi|on assig|
|000062a0| 6e 2d 73 63 61 6c 61 72 | 73 29 20 2a 63 6c 61 73 |n-scalar|s) *clas|
|000062b0| 73 2d 6c 69 73 74 2a 29 | 0a 20 20 20 20 20 20 20 |s-list*)|.       |
|000062c0| 20 20 28 6d 61 70 63 20 | 28 66 75 6e 63 74 69 6f |  (mapc |(functio|
|000062d0| 6e 20 61 73 73 69 67 6e | 2d 76 65 63 74 6f 72 73 |n assign|-vectors|
|000062e0| 29 20 2a 63 6c 61 73 73 | 2d 6c 69 73 74 2a 29 0a |) *class|-list*).|
|000062f0| 20 20 20 20 20 20 20 20 | 20 28 6d 61 70 63 20 28 |        | (mapc (|
|00006300| 66 75 6e 63 74 69 6f 6e | 20 70 75 74 2d 70 70 64 |function| put-ppd|
|00006310| 61 74 29 20 2a 63 6c 61 | 73 73 2d 6c 69 73 74 2a |at) *cla|ss-list*|
|00006320| 29 0a 20 20 20 20 20 20 | 20 20 20 28 6d 61 70 63 |).      |   (mapc|
|00006330| 20 28 66 75 6e 63 74 69 | 6f 6e 20 65 72 61 73 65 | (functi|on erase|
|00006340| 2d 6c 69 74 65 72 61 6c | 2d 69 6e 66 6f 29 20 2a |-literal|-info) *|
|00006350| 63 6c 61 73 73 2d 6c 69 | 73 74 2a 29 0a 20 20 20 |class-li|st*).   |
|00006360| 20 20 20 20 20 20 28 73 | 65 74 71 20 2a 63 6c 61 |      (s|etq *cla|
|00006370| 73 73 2d 6c 69 73 74 2a | 20 6e 69 6c 29 0a 20 20 |ss-list*| nil).  |
|00006380| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 2a 62 75 |       (|setq *bu|
|00006390| 63 6b 65 74 73 2a 20 6e | 69 6c 29 29 29 29 20 0a |ckets* n|il)))) .|
|000063a0| 0a 28 64 65 66 75 6e 20 | 68 61 76 65 2d 63 6f 6d |.(defun |have-com|
|000063b0| 70 69 6c 65 64 2d 70 72 | 6f 64 75 63 74 69 6f 6e |piled-pr|oduction|
|000063c0| 20 6e 69 6c 20 28 6e 6f | 74 20 28 7a 65 72 6f 70 | nil (no|t (zerop|
|000063d0| 20 2a 70 63 6f 75 6e 74 | 2a 29 29 29 20 0a 0a 28 | *pcount|*))) ..(|
|000063e0| 64 65 66 75 6e 20 70 75 | 74 2d 70 70 64 61 74 20 |defun pu|t-ppdat |
|000063f0| 28 63 6c 61 73 73 29 0a | 20 20 28 70 72 6f 67 20 |(class).|  (prog |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.