home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news text
| default
| |
| 99%
| file
| JavaScript source, ASCII text
| default (weak)
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| dexmagic
| PrintFox/Pagefox WEAK
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| message/news
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 75 75 | 6e 65 74 21 72 73 0a 46 |Path: uu|net!rs.F|
|00000010| 72 6f 6d 3a 20 72 73 40 | 75 75 6e 65 74 2e 55 55 |rom: rs@|uunet.UU|
|00000020| 2e 4e 45 54 20 28 52 69 | 63 68 20 53 61 6c 7a 29 |.NET (Ri|ch Salz)|
|00000030| 0a 4e 65 77 73 67 72 6f | 75 70 73 3a 20 63 6f 6d |.Newsgro|ups: com|
|00000040| 70 2e 73 6f 75 72 63 65 | 73 2e 75 6e 69 78 0a 53 |p.source|s.unix.S|
|00000050| 75 62 6a 65 63 74 3a 20 | 76 31 30 69 30 37 36 3a |ubject: |v10i076:|
|00000060| 20 20 43 6f 6d 6d 6f 6e | 20 4f 62 6a 65 63 74 73 | Common| Objects|
|00000070| 2c 20 43 6f 6d 6d 6f 6e | 20 4c 6f 6f 70 73 2c 20 |, Common| Loops, |
|00000080| 43 6f 6d 6d 6f 6e 20 4c | 69 73 70 2c 20 50 61 72 |Common L|isp, Par|
|00000090| 74 30 32 2f 31 33 0a 4d | 65 73 73 61 67 65 2d 49 |t02/13.M|essage-I|
|000000a0| 44 3a 20 3c 37 34 33 40 | 75 75 6e 65 74 2e 55 55 |D: <743@|uunet.UU|
|000000b0| 2e 4e 45 54 3e 0a 44 61 | 74 65 3a 20 33 31 20 4a |.NET>.Da|te: 31 J|
|000000c0| 75 6c 20 38 37 20 31 39 | 3a 35 38 3a 31 33 20 47 |ul 87 19|:58:13 G|
|000000d0| 4d 54 0a 4f 72 67 61 6e | 69 7a 61 74 69 6f 6e 3a |MT.Organ|ization:|
|000000e0| 20 55 55 4e 45 54 20 43 | 6f 6d 6d 75 6e 69 63 61 | UUNET C|ommunica|
|000000f0| 74 69 6f 6e 73 20 53 65 | 72 76 69 63 65 73 2c 20 |tions Se|rvices, |
|00000100| 41 72 6c 69 6e 67 74 6f | 6e 2c 20 56 41 0a 4c 69 |Arlingto|n, VA.Li|
|00000110| 6e 65 73 3a 20 31 39 31 | 30 0a 41 70 70 72 6f 76 |nes: 191|0.Approv|
|00000120| 65 64 3a 20 72 73 40 75 | 75 6e 65 74 2e 55 55 2e |ed: rs@u|unet.UU.|
|00000130| 4e 45 54 0a 0a 53 75 62 | 6d 69 74 74 65 64 2d 62 |NET..Sub|mitted-b|
|00000140| 79 3a 20 52 6f 79 20 44 | 27 53 6f 75 7a 61 20 3c |y: Roy D|'Souza <|
|00000150| 64 73 6f 75 7a 61 25 68 | 70 6c 61 62 73 63 40 68 |dsouza%h|plabsc@h|
|00000160| 70 6c 61 62 73 2e 48 50 | 2e 43 4f 4d 3e 0a 50 6f |plabs.HP|.COM>.Po|
|00000170| 73 74 69 6e 67 2d 6e 75 | 6d 62 65 72 3a 20 56 6f |sting-nu|mber: Vo|
|00000180| 6c 75 6d 65 20 31 30 2c | 20 49 73 73 75 65 20 37 |lume 10,| Issue 7|
|00000190| 36 0a 41 72 63 68 69 76 | 65 2d 6e 61 6d 65 3a 20 |6.Archiv|e-name: |
|000001a0| 63 6f 6d 6f 62 6a 2e 6c | 69 73 70 2f 50 61 72 74 |comobj.l|isp/Part|
|000001b0| 30 32 0a 0a 23 21 20 2f | 62 69 6e 2f 73 68 0a 23 |02..#! /|bin/sh.#|
|000001c0| 20 54 68 69 73 20 69 73 | 20 61 20 73 68 65 6c 6c | This is| a shell|
|000001d0| 20 61 72 63 68 69 76 65 | 2e 20 20 52 65 6d 6f 76 | archive|. Remov|
|000001e0| 65 20 61 6e 79 74 68 69 | 6e 67 20 62 65 66 6f 72 |e anythi|ng befor|
|000001f0| 65 20 74 68 69 73 20 6c | 69 6e 65 2c 20 74 68 65 |e this l|ine, the|
|00000200| 6e 20 75 6e 70 61 63 6b | 0a 23 20 69 74 20 62 79 |n unpack|.# it by|
|00000210| 20 73 61 76 69 6e 67 20 | 69 74 20 69 6e 74 6f 20 | saving |it into |
|00000220| 61 20 66 69 6c 65 20 61 | 6e 64 20 74 79 70 69 6e |a file a|nd typin|
|00000230| 67 20 22 73 68 20 66 69 | 6c 65 22 2e 20 20 54 6f |g "sh fi|le". To|
|00000240| 20 6f 76 65 72 77 72 69 | 74 65 20 65 78 69 73 74 | overwri|te exist|
|00000250| 69 6e 67 0a 23 20 66 69 | 6c 65 73 2c 20 74 79 70 |ing.# fi|les, typ|
|00000260| 65 20 22 73 68 20 66 69 | 6c 65 20 2d 63 22 2e 20 |e "sh fi|le -c". |
|00000270| 20 59 6f 75 20 63 61 6e | 20 61 6c 73 6f 20 66 65 | You can| also fe|
|00000280| 65 64 20 74 68 69 73 20 | 61 73 20 73 74 61 6e 64 |ed this |as stand|
|00000290| 61 72 64 20 69 6e 70 75 | 74 20 76 69 61 0a 23 20 |ard inpu|t via.# |
|000002a0| 75 6e 73 68 61 72 2c 20 | 6f 72 20 62 79 20 74 79 |unshar, |or by ty|
|000002b0| 70 69 6e 67 20 22 73 68 | 20 3c 66 69 6c 65 22 2c |ping "sh| <file",|
|000002c0| 20 65 2e 67 2e 2e 20 20 | 49 66 20 74 68 69 73 20 | e.g.. |If this |
|000002d0| 61 72 63 68 69 76 65 20 | 69 73 20 63 6f 6d 70 6c |archive |is compl|
|000002e0| 65 74 65 2c 20 79 6f 75 | 0a 23 20 77 69 6c 6c 20 |ete, you|.# will |
|000002f0| 73 65 65 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |see the |followin|
|00000300| 67 20 6d 65 73 73 61 67 | 65 20 61 74 20 74 68 65 |g messag|e at the|
|00000310| 20 65 6e 64 3a 0a 23 09 | 09 22 45 6e 64 20 6f 66 | end:.#.|."End of|
|00000320| 20 61 72 63 68 69 76 65 | 20 32 20 28 6f 66 20 31 | archive| 2 (of 1|
|00000330| 33 29 2e 22 0a 23 20 43 | 6f 6e 74 65 6e 74 73 3a |3).".# C|ontents:|
|00000340| 20 20 33 36 30 30 2d 6c | 6f 77 2e 6c 20 63 6f 2d | 3600-l|ow.l co-|
|00000350| 6d 61 63 72 6f 73 2e 6c | 20 63 6f 2d 70 72 6f 66 |macros.l| co-prof|
|00000360| 2e 6c 20 63 6f 2d 73 66 | 75 6e 2e 6c 20 63 6f 2d |.l co-sf|un.l co-|
|00000370| 74 65 73 74 2e 6c 0a 23 | 20 20 20 64 66 75 6e 2d |test.l.#| dfun-|
|00000380| 74 65 6d 70 6c 2e 6c 20 | 70 63 6c 2d 70 61 74 63 |templ.l |pcl-patc|
|00000390| 68 65 73 2e 6c 20 78 65 | 72 6f 78 2d 6c 6f 77 2e |hes.l xe|rox-low.|
|000003a0| 6c 0a 50 41 54 48 3d 2f | 62 69 6e 3a 2f 75 73 72 |l.PATH=/|bin:/usr|
|000003b0| 2f 62 69 6e 3a 2f 75 73 | 72 2f 75 63 62 20 3b 20 |/bin:/us|r/ucb ; |
|000003c0| 65 78 70 6f 72 74 20 50 | 41 54 48 0a 69 66 20 74 |export P|ATH.if t|
|000003d0| 65 73 74 20 2d 66 20 27 | 33 36 30 30 2d 6c 6f 77 |est -f '|3600-low|
|000003e0| 2e 6c 27 20 2d 61 20 22 | 24 7b 31 7d 22 20 21 3d |.l' -a "|${1}" !=|
|000003f0| 20 22 2d 63 22 20 3b 20 | 74 68 65 6e 20 0a 20 20 | "-c" ; |then . |
|00000400| 65 63 68 6f 20 73 68 61 | 72 3a 20 57 69 6c 6c 20 |echo sha|r: Will |
|00000410| 6e 6f 74 20 63 6c 6f 62 | 62 65 72 20 65 78 69 73 |not clob|ber exis|
|00000420| 74 69 6e 67 20 66 69 6c | 65 20 5c 22 27 33 36 30 |ting fil|e \"'360|
|00000430| 30 2d 6c 6f 77 2e 6c 27 | 5c 22 0a 65 6c 73 65 0a |0-low.l'|\".else.|
|00000440| 65 63 68 6f 20 73 68 61 | 72 3a 20 45 78 74 72 61 |echo sha|r: Extra|
|00000450| 63 74 69 6e 67 20 5c 22 | 27 33 36 30 30 2d 6c 6f |cting \"|'3600-lo|
|00000460| 77 2e 6c 27 5c 22 20 5c | 28 38 37 34 30 20 63 68 |w.l'\" \|(8740 ch|
|00000470| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00000480| 73 2f 5e 58 2f 2f 22 20 | 3e 27 33 36 30 30 2d 6c |s/^X//" |>'3600-l|
|00000490| 6f 77 2e 6c 27 20 3c 3c | 27 45 4e 44 5f 4f 46 5f |ow.l' <<|'END_OF_|
|000004a0| 46 49 4c 45 27 0a 58 3b | 3b 3b 20 2d 2a 2d 20 4d |FILE'.X;|;; -*- M|
|000004b0| 6f 64 65 3a 4c 49 53 50 | 3b 20 50 61 63 6b 61 67 |ode:LISP|; Packag|
|000004c0| 65 3a 28 50 43 4c 20 4c | 69 73 70 20 31 30 30 30 |e:(PCL L|isp 1000|
|000004d0| 29 3b 20 42 61 73 65 3a | 31 30 2e 3b 20 53 79 6e |); Base:|10.; Syn|
|000004e0| 74 61 78 3a 43 6f 6d 6d | 6f 6e 2d 6c 69 73 70 3b |tax:Comm|on-lisp;|
|000004f0| 20 50 61 74 63 68 2d 46 | 69 6c 65 3a 20 59 65 73 | Patch-F|ile: Yes|
|00000500| 20 2d 2a 2d 0a 58 3b 3b | 3b 0a 58 3b 3b 3b 20 2a | -*-.X;;|;.X;;; *|
|00000510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000540| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000550| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 58 3b 3b 3b 20 43 6f |********|.X;;; Co|
|00000560| 70 79 72 69 67 68 74 20 | 28 63 29 20 31 39 38 35 |pyright |(c) 1985|
|00000570| 20 58 65 72 6f 78 20 43 | 6f 72 70 6f 72 61 74 69 | Xerox C|orporati|
|00000580| 6f 6e 2e 20 20 41 6c 6c | 20 72 69 67 68 74 73 20 |on. All| rights |
|00000590| 72 65 73 65 72 76 65 64 | 2e 0a 58 3b 3b 3b 0a 58 |reserved|..X;;;.X|
|000005a0| 3b 3b 3b 20 55 73 65 20 | 61 6e 64 20 63 6f 70 79 |;;; Use |and copy|
|000005b0| 69 6e 67 20 6f 66 20 74 | 68 69 73 20 73 6f 66 74 |ing of t|his soft|
|000005c0| 77 61 72 65 20 61 6e 64 | 20 70 72 65 70 61 72 61 |ware and| prepara|
|000005d0| 74 69 6f 6e 20 6f 66 20 | 64 65 72 69 76 61 74 69 |tion of |derivati|
|000005e0| 76 65 20 77 6f 72 6b 73 | 0a 58 3b 3b 3b 20 62 61 |ve works|.X;;; ba|
|000005f0| 73 65 64 20 75 70 6f 6e | 20 74 68 69 73 20 73 6f |sed upon| this so|
|00000600| 66 74 77 61 72 65 20 61 | 72 65 20 70 65 72 6d 69 |ftware a|re permi|
|00000610| 74 74 65 64 2e 20 20 41 | 6e 79 20 64 69 73 74 72 |tted. A|ny distr|
|00000620| 69 62 75 74 69 6f 6e 20 | 6f 66 20 74 68 69 73 0a |ibution |of this.|
|00000630| 58 3b 3b 3b 20 73 6f 66 | 74 77 61 72 65 20 6f 72 |X;;; sof|tware or|
|00000640| 20 64 65 72 69 76 61 74 | 69 76 65 20 77 6f 72 6b | derivat|ive work|
|00000650| 73 20 6d 75 73 74 20 63 | 6f 6d 70 6c 79 20 77 69 |s must c|omply wi|
|00000660| 74 68 20 61 6c 6c 20 61 | 70 70 6c 69 63 61 62 6c |th all a|pplicabl|
|00000670| 65 20 55 6e 69 74 65 64 | 0a 58 3b 3b 3b 20 53 74 |e United|.X;;; St|
|00000680| 61 74 65 73 20 65 78 70 | 6f 72 74 20 63 6f 6e 74 |ates exp|ort cont|
|00000690| 72 6f 6c 20 6c 61 77 73 | 2e 0a 58 3b 3b 3b 20 0a |rol laws|..X;;; .|
|000006a0| 58 3b 3b 3b 20 54 68 69 | 73 20 73 6f 66 74 77 61 |X;;; Thi|s softwa|
|000006b0| 72 65 20 69 73 20 6d 61 | 64 65 20 61 76 61 69 6c |re is ma|de avail|
|000006c0| 61 62 6c 65 20 41 53 20 | 49 53 2c 20 61 6e 64 20 |able AS |IS, and |
|000006d0| 58 65 72 6f 78 20 43 6f | 72 70 6f 72 61 74 69 6f |Xerox Co|rporatio|
|000006e0| 6e 20 6d 61 6b 65 73 20 | 6e 6f 0a 58 3b 3b 3b 20 |n makes |no.X;;; |
|000006f0| 77 61 72 72 61 6e 74 79 | 20 61 62 6f 75 74 20 74 |warranty| about t|
|00000700| 68 65 20 73 6f 66 74 77 | 61 72 65 2c 20 69 74 73 |he softw|are, its|
|00000710| 20 70 65 72 66 6f 72 6d | 61 6e 63 65 20 6f 72 20 | perform|ance or |
|00000720| 69 74 73 20 63 6f 6e 66 | 6f 72 6d 69 74 79 20 74 |its conf|ormity t|
|00000730| 6f 20 61 6e 79 0a 58 3b | 3b 3b 20 73 70 65 63 69 |o any.X;|;; speci|
|00000740| 66 69 63 61 74 69 6f 6e | 2e 0a 58 3b 3b 3b 20 0a |fication|..X;;; .|
|00000750| 58 3b 3b 3b 20 41 6e 79 | 20 70 65 72 73 6f 6e 20 |X;;; Any| person |
|00000760| 6f 62 74 61 69 6e 69 6e | 67 20 61 20 63 6f 70 79 |obtainin|g a copy|
|00000770| 20 6f 66 20 74 68 69 73 | 20 73 6f 66 74 77 61 72 | of this| softwar|
|00000780| 65 20 69 73 20 72 65 71 | 75 65 73 74 65 64 20 74 |e is req|uested t|
|00000790| 6f 20 73 65 6e 64 20 74 | 68 65 69 72 0a 58 3b 3b |o send t|heir.X;;|
|000007a0| 3b 20 6e 61 6d 65 20 61 | 6e 64 20 70 6f 73 74 20 |; name a|nd post |
|000007b0| 6f 66 66 69 63 65 20 6f | 72 20 65 6c 65 63 74 72 |office o|r electr|
|000007c0| 6f 6e 69 63 20 6d 61 69 | 6c 20 61 64 64 72 65 73 |onic mai|l addres|
|000007d0| 73 20 74 6f 3a 0a 58 3b | 3b 3b 20 20 20 43 6f 6d |s to:.X;|;; Com|
|000007e0| 6d 6f 6e 4c 6f 6f 70 73 | 20 43 6f 6f 72 64 69 6e |monLoops| Coordin|
|000007f0| 61 74 6f 72 0a 58 3b 3b | 3b 20 20 20 58 65 72 6f |ator.X;;|; Xero|
|00000800| 78 20 41 72 74 69 66 69 | 63 61 6c 20 49 6e 74 65 |x Artifi|cal Inte|
|00000810| 6c 6c 69 67 65 6e 63 65 | 20 53 79 73 74 65 6d 73 |lligence| Systems|
|00000820| 0a 58 3b 3b 3b 20 20 20 | 32 34 30 30 20 48 61 6e |.X;;; |2400 Han|
|00000830| 6f 76 65 72 20 53 74 2e | 0a 58 3b 3b 3b 20 20 20 |over St.|.X;;; |
|00000840| 50 61 6c 6f 20 41 6c 74 | 6f 2c 20 43 41 20 39 34 |Palo Alt|o, CA 94|
|00000850| 33 30 33 0a 58 3b 3b 3b | 20 28 6f 72 20 73 65 6e |303.X;;;| (or sen|
|00000860| 64 20 41 72 70 61 6e 65 | 74 20 6d 61 69 6c 20 74 |d Arpane|t mail t|
|00000870| 6f 20 43 6f 6d 6d 6f 6e | 4c 6f 6f 70 73 2d 43 6f |o Common|Loops-Co|
|00000880| 6f 72 64 69 6e 61 74 6f | 72 2e 70 61 40 58 65 72 |ordinato|r.pa@Xer|
|00000890| 6f 78 2e 61 72 70 61 29 | 0a 58 3b 3b 3b 0a 58 3b |ox.arpa)|.X;;;.X;|
|000008a0| 3b 3b 20 53 75 67 67 65 | 73 74 69 6f 6e 73 2c 20 |;; Sugge|stions, |
|000008b0| 63 6f 6d 6d 65 6e 74 73 | 20 61 6e 64 20 72 65 71 |comments| and req|
|000008c0| 75 65 73 74 73 20 66 6f | 72 20 69 6d 70 72 6f 76 |uests fo|r improv|
|000008d0| 65 6d 65 6e 74 73 20 61 | 72 65 20 61 6c 73 6f 20 |ements a|re also |
|000008e0| 77 65 6c 63 6f 6d 65 2e | 0a 58 3b 3b 3b 20 2a 2a |welcome.|.X;;; **|
|000008f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000900| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000910| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000930| 2a 2a 2a 2a 2a 2a 2a 0a | 58 3b 3b 3b 0a 58 3b 3b |*******.|X;;;.X;;|
|00000940| 3b 20 54 68 69 73 20 69 | 73 20 74 68 65 20 33 36 |; This i|s the 36|
|00000950| 30 30 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 74 68 |00 versi|on of th|
|00000960| 65 20 66 69 6c 65 20 70 | 6f 72 74 61 62 6c 65 2d |e file p|ortable-|
|00000970| 6c 6f 77 2e 0a 58 3b 3b | 3b 0a 58 0a 58 28 69 6e |low..X;;|;.X.X(in|
|00000980| 2d 70 61 63 6b 61 67 65 | 20 27 70 63 6c 29 0a 58 |-package| 'pcl).X|
|00000990| 0a 58 28 64 65 66 6d 61 | 63 72 6f 20 77 69 74 68 |.X(defma|cro with|
|000009a0| 6f 75 74 2d 69 6e 74 65 | 72 72 75 70 74 73 20 28 |out-inte|rrupts (|
|000009b0| 26 62 6f 64 79 20 62 6f | 64 79 29 0a 58 20 20 60 |&body bo|dy).X `|
|000009c0| 28 7a 6c 3a 77 69 74 68 | 6f 75 74 2d 69 6e 74 65 |(zl:with|out-inte|
|000009d0| 72 72 75 70 74 73 20 2c | 2e 62 6f 64 79 29 29 0a |rrupts ,|.body)).|
|000009e0| 58 0a 58 20 20 3b 3b 20 | 20 20 0a 58 3b 3b 3b 3b |X.X ;; | .X;;;;|
|000009f0| 3b 3b 20 4c 6f 61 64 20 | 54 69 6d 65 20 43 6f 6e |;; Load |Time Con|
|00000a00| 73 74 61 6e 74 73 0a 58 | 20 20 3b 3b 0a 58 3b 3b |stants.X| ;;.X;;|
|00000a10| 3b 0a 58 3b 3b 3b 20 54 | 68 69 73 20 69 6d 70 6c |;.X;;; T|his impl|
|00000a20| 65 6d 65 6e 74 61 74 69 | 6f 6e 20 6f 66 20 6c 6f |ementati|on of lo|
|00000a30| 61 64 2d 74 69 6d 65 2d | 65 76 61 6c 20 65 78 70 |ad-time-|eval exp|
|00000a40| 6c 6f 69 74 73 20 74 68 | 65 20 70 65 72 68 61 70 |loits th|e perhap|
|00000a50| 73 20 71 75 65 73 74 69 | 6f 6e 61 62 6c 65 0a 58 |s questi|onable.X|
|00000a60| 3b 3b 3b 20 66 65 61 74 | 75 72 65 20 74 68 61 74 |;;; feat|ure that|
|00000a70| 20 69 74 20 69 73 20 70 | 6f 73 73 69 62 6c 65 20 | it is p|ossible |
|00000a80| 74 6f 20 64 65 66 69 6e | 65 20 6f 70 74 69 6d 69 |to defin|e optimi|
|00000a90| 7a 65 72 73 20 6f 6e 20 | 6d 61 63 72 6f 73 2e 0a |zers on |macros..|
|00000aa0| 58 3b 3b 3b 20 0a 58 3b | 3b 3b 20 20 20 57 48 45 |X;;; .X;|;; WHE|
|00000ab0| 4e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N | |
|00000ac0| 20 20 20 20 20 20 20 20 | 45 58 50 41 4e 44 53 2d | |EXPANDS-|
|00000ad0| 54 4f 0a 58 3b 3b 3b 20 | 20 20 63 6f 6d 70 69 6c |TO.X;;; | compil|
|00000ae0| 65 20 74 6f 20 61 20 66 | 69 6c 65 20 20 20 20 20 |e to a f|ile |
|00000af0| 20 20 20 20 20 28 23 3a | 45 56 41 4c 2d 41 54 2d | (#:|EVAL-AT-|
|00000b00| 4c 4f 41 44 2d 54 49 4d | 45 2d 4d 41 52 4b 45 52 |LOAD-TIM|E-MARKER|
|00000b10| 20 2e 20 3c 66 6f 72 6d | 3e 29 0a 58 3b 3b 3b 20 | . <form|>).X;;; |
|00000b20| 20 20 63 6f 6d 70 69 6c | 65 20 74 6f 20 63 6f 72 | compil|e to cor|
|00000b30| 65 20 20 20 20 20 20 20 | 20 20 20 20 20 27 3c 72 |e | '<r|
|00000b40| 65 73 75 6c 74 20 6f 66 | 20 65 76 61 6c 75 61 74 |esult of| evaluat|
|00000b50| 69 6e 67 20 66 6f 72 6d | 3e 0a 58 3b 3b 3b 20 20 |ing form|>.X;;; |
|00000b60| 20 6e 6f 74 20 69 6e 20 | 63 6f 6d 70 69 6c 65 72 | not in |compiler|
|00000b70| 20 61 74 20 61 6c 6c 20 | 20 20 20 20 28 70 72 6f | at all | (pro|
|00000b80| 67 6e 20 3c 66 6f 72 6d | 3e 29 0a 58 3b 3b 3b 0a |gn <form|>).X;;;.|
|00000b90| 58 28 64 65 66 6d 61 63 | 72 6f 20 6c 6f 61 64 2d |X(defmac|ro load-|
|00000ba0| 74 69 6d 65 2d 65 76 61 | 6c 20 28 66 6f 72 6d 29 |time-eva|l (form)|
|00000bb0| 0a 58 20 20 3b 3b 20 54 | 68 65 20 69 6e 74 65 72 |.X ;; T|he inter|
|00000bc0| 70 72 65 74 65 64 20 64 | 65 66 69 6e 69 74 69 6f |preted d|efinitio|
|00000bd0| 6e 20 6f 66 20 6c 6f 61 | 64 2d 74 69 6d 65 2d 65 |n of loa|d-time-e|
|00000be0| 76 61 6c 2e 20 20 54 68 | 69 73 20 64 65 66 69 6e |val. Th|is defin|
|00000bf0| 69 74 69 6f 6e 0a 58 20 | 20 3b 3b 20 6e 65 76 65 |ition.X | ;; neve|
|00000c00| 72 20 67 65 74 73 20 63 | 6f 6d 70 69 6c 65 64 2e |r gets c|ompiled.|
|00000c10| 0a 58 20 20 28 6c 65 74 | 20 28 28 76 61 6c 75 65 |.X (let| ((value|
|00000c20| 20 28 67 65 6e 73 79 6d | 29 29 29 0a 58 20 20 20 | (gensym|))).X |
|00000c30| 20 60 28 6d 75 6c 74 69 | 70 6c 65 2d 76 61 6c 75 | `(multi|ple-valu|
|00000c40| 65 2d 62 69 6e 64 20 28 | 2c 76 61 6c 75 65 29 0a |e-bind (|,value).|
|00000c50| 58 09 20 28 70 72 6f 67 | 6e 20 2c 66 6f 72 6d 29 |X. (prog|n ,form)|
|00000c60| 0a 58 20 20 20 20 20 20 | 20 2c 76 61 6c 75 65 29 |.X | ,value)|
|00000c70| 29 29 0a 58 0a 58 28 63 | 6f 6d 70 69 6c 65 72 3a |)).X.X(c|ompiler:|
|00000c80| 64 65 66 74 72 61 6e 73 | 66 6f 72 6d 65 72 20 28 |deftrans|former (|
|00000c90| 6c 6f 61 64 2d 74 69 6d | 65 2d 65 76 61 6c 20 63 |load-tim|e-eval c|
|00000ca0| 6f 6d 70 69 6c 65 2d 6c | 6f 61 64 2d 74 69 6d 65 |ompile-l|oad-time|
|00000cb0| 2d 65 76 61 6c 29 0a 58 | 09 09 09 20 28 66 6f 72 |-eval).X|... (for|
|00000cc0| 6d 20 26 6f 70 74 69 6f | 6e 61 6c 20 69 6e 74 65 |m &optio|nal inte|
|00000cd0| 72 70 72 65 74 65 64 2d | 66 6f 72 6d 29 0a 58 20 |rpreted-|form).X |
|00000ce0| 20 28 69 67 6e 6f 72 65 | 20 69 6e 74 65 72 70 72 | (ignore| interpr|
|00000cf0| 65 74 65 64 2d 66 6f 72 | 6d 29 0a 58 20 20 3b 3b |eted-for|m).X ;;|
|00000d00| 20 57 68 65 6e 20 63 6f | 6d 70 69 6c 69 6e 67 20 | When co|mpiling |
|00000d10| 61 20 63 61 6c 6c 20 74 | 6f 20 6c 6f 61 64 2d 74 |a call t|o load-t|
|00000d20| 69 6d 65 2d 65 76 61 6c | 20 74 68 65 20 63 6f 6d |ime-eval| the com|
|00000d30| 70 69 6c 65 72 20 77 69 | 6c 6c 20 63 61 6c 6c 0a |piler wi|ll call.|
|00000d40| 58 20 20 3b 3b 20 74 68 | 69 73 20 6f 70 74 69 6d |X ;; th|is optim|
|00000d50| 69 7a 65 72 20 62 65 66 | 6f 72 65 20 74 68 65 20 |izer bef|ore the |
|00000d60| 6d 61 63 72 6f 20 65 78 | 70 61 6e 73 69 6f 6e 2e |macro ex|pansion.|
|00000d70| 0a 58 20 20 28 69 66 20 | 7a 6c 3a 63 6f 6d 70 69 |.X (if |zl:compi|
|00000d80| 6c 65 72 3a 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |ler:(and| (boundp|
|00000d90| 20 27 2a 63 6f 6d 70 69 | 6c 65 2d 66 75 6e 63 74 | '*compi|le-funct|
|00000da0| 69 6f 6e 2a 29 20 3b 50 | 72 6f 62 61 62 6c 79 20 |ion*) ;P|robably |
|00000db0| 64 6f 6e 27 74 20 6e 65 | 65 64 0a 58 09 09 09 09 |don't ne|ed.X....|
|00000dc0| 09 09 20 20 20 20 3b 74 | 68 69 73 20 62 6f 75 6e |.. ;t|his boun|
|00000dd0| 64 70 20 63 68 65 63 6b | 0a 58 09 09 09 09 09 09 |dp check|.X......|
|00000de0| 20 20 20 20 3b 62 75 74 | 20 69 74 20 63 61 6e 27 | ;but| it can'|
|00000df0| 74 20 68 75 72 74 2e 0a | 58 09 09 20 20 20 20 20 |t hurt..|X.. |
|00000e00| 20 20 28 66 75 6e 63 61 | 6c 6c 20 2a 63 6f 6d 70 | (funca|ll *comp|
|00000e10| 69 6c 65 2d 66 75 6e 63 | 74 69 6f 6e 2a 20 3a 74 |ile-func|tion* :t|
|00000e20| 6f 2d 63 6f 72 65 2d 70 | 29 29 0a 58 20 20 20 20 |o-core-p|)).X |
|00000e30| 20 20 3b 3b 20 43 6f 6d | 70 69 6c 69 6e 67 20 74 | ;; Com|piling t|
|00000e40| 6f 20 63 6f 72 65 2e 0a | 58 20 20 20 20 20 20 3b |o core..|X ;|
|00000e50| 3b 20 45 76 61 6c 75 61 | 74 65 20 74 68 65 20 66 |; Evalua|te the f|
|00000e60| 6f 72 6d 20 6e 6f 77 2c | 20 61 6e 64 20 65 78 70 |orm now,| and exp|
|00000e70| 61 6e 64 20 69 6e 74 6f | 20 61 20 63 6f 6e 73 74 |and into| a const|
|00000e80| 61 6e 74 0a 58 20 20 20 | 20 20 20 3b 3b 20 28 74 |ant.X | ;; (t|
|00000e90| 68 65 20 72 65 73 75 6c | 74 20 6f 66 20 65 76 61 |he resul|t of eva|
|00000ea0| 6c 75 61 74 69 6e 67 20 | 74 68 65 20 66 6f 72 6d |luating |the form|
|00000eb0| 29 2e 0a 58 20 20 20 20 | 20 20 60 27 2c 28 65 76 |)..X | `',(ev|
|00000ec0| 61 6c 20 28 63 61 64 72 | 20 66 6f 72 6d 29 29 0a |al (cadr| form)).|
|00000ed0| 58 20 20 20 20 20 20 3b | 3b 20 43 6f 6d 70 69 6c |X ;|; Compil|
|00000ee0| 69 6e 67 20 74 6f 20 61 | 20 66 69 6c 65 2e 0a 58 |ing to a| file..X|
|00000ef0| 20 20 20 20 20 20 3b 3b | 20 47 65 6e 65 72 61 74 | ;;| Generat|
|00000f00| 65 20 74 68 65 20 6d 61 | 67 69 63 20 77 68 69 63 |e the ma|gic whic|
|00000f10| 68 20 63 61 75 73 65 73 | 20 74 68 65 20 64 75 6d |h causes| the dum|
|00000f20| 70 65 72 20 63 6f 6d 70 | 69 6c 65 72 20 61 6e 64 |per comp|iler and|
|00000f30| 20 6c 6f 61 64 65 72 0a | 58 20 20 20 20 20 20 3b | loader.|X ;|
|00000f40| 3b 20 74 6f 20 64 6f 20 | 6d 61 67 69 63 20 61 6e |; to do |magic an|
|00000f50| 64 20 65 76 61 6c 75 61 | 74 65 20 74 68 65 20 66 |d evalua|te the f|
|00000f60| 6f 72 6d 20 61 74 20 6c | 6f 61 64 20 74 69 6d 65 |orm at l|oad time|
|00000f70| 2e 0a 58 20 20 20 20 20 | 20 60 27 2c 28 63 6f 6e |..X | `',(con|
|00000f80| 73 20 63 6f 6d 70 69 6c | 65 72 3a 65 76 61 6c 2d |s compil|er:eval-|
|00000f90| 61 74 2d 6c 6f 61 64 2d | 74 69 6d 65 2d 6d 61 72 |at-load-|time-mar|
|00000fa0| 6b 65 72 20 28 63 61 64 | 72 20 66 6f 72 6d 29 29 |ker (cad|r form))|
|00000fb0| 29 29 0a 58 0a 58 20 20 | 3b 3b 20 20 20 0a 58 3b |)).X.X |;; .X;|
|00000fc0| 3b 3b 3b 3b 3b 20 4d 65 | 6d 6f 72 79 20 42 6c 6f |;;;;; Me|mory Blo|
|00000fd0| 63 6b 20 70 72 69 6d 69 | 74 69 76 65 73 2e 0a 58 |ck primi|tives..X|
|00000fe0| 20 20 3b 3b 20 20 20 0a | 58 0a 58 0a 58 28 64 65 | ;; .|X.X.X(de|
|00000ff0| 66 6d 61 63 72 6f 20 6d | 61 6b 65 2d 6d 65 6d 6f |fmacro m|ake-memo|
|00001000| 72 79 2d 62 6c 6f 63 6b | 20 28 73 69 7a 65 20 26 |ry-block| (size &|
|00001010| 6f 70 74 69 6f 6e 61 6c | 20 61 72 65 61 29 0a 58 |optional| area).X|
|00001020| 20 20 60 28 6d 61 6b 65 | 2d 61 72 72 61 79 20 2c | `(make|-array ,|
|00001030| 73 69 7a 65 20 3a 61 72 | 65 61 20 2c 61 72 65 61 |size :ar|ea ,area|
|00001040| 29 29 0a 58 0a 58 28 64 | 65 66 6d 61 63 72 6f 20 |)).X.X(d|efmacro |
|00001050| 6d 65 6d 6f 72 79 2d 62 | 6c 6f 63 6b 2d 72 65 66 |memory-b|lock-ref|
|00001060| 20 28 62 6c 6f 63 6b 20 | 6f 66 66 73 65 74 29 09 | (block |offset).|
|00001070| 3b 44 6f 6e 27 74 20 77 | 61 6e 74 20 74 6f 20 67 |;Don't w|ant to g|
|00001080| 6f 20 66 61 73 74 65 72 | 20 79 65 74 2e 0a 58 20 |o faster| yet..X |
|00001090| 20 60 28 61 72 65 66 20 | 2c 62 6c 6f 63 6b 20 2c | `(aref |,block ,|
|000010a0| 6f 66 66 73 65 74 29 29 | 0a 58 0a 58 28 64 65 66 |offset))|.X.X(def|
|000010b0| 76 61 72 20 63 6c 61 73 | 73 2d 77 72 61 70 70 65 |var clas|s-wrappe|
|000010c0| 72 2d 61 72 65 61 29 0a | 58 28 65 76 61 6c 2d 77 |r-area).|X(eval-w|
|000010d0| 68 65 6e 20 28 6c 6f 61 | 64 20 65 76 61 6c 29 0a |hen (loa|d eval).|
|000010e0| 58 20 20 28 73 69 3a 6d | 61 6b 65 2d 61 72 65 61 |X (si:m|ake-area|
|000010f0| 20 3a 6e 61 6d 65 20 27 | 63 6c 61 73 73 2d 77 72 | :name '|class-wr|
|00001100| 61 70 70 65 72 2d 61 72 | 65 61 0a 58 09 09 3a 72 |apper-ar|ea.X..:r|
|00001110| 6f 6f 6d 20 74 0a 58 09 | 09 3a 67 63 20 3a 73 74 |oom t.X.|.:gc :st|
|00001120| 61 74 69 63 29 29 0a 58 | 0a 58 0a 58 3b 3b 3b 0a |atic)).X|.X.X;;;.|
|00001130| 58 3b 3b 3b 20 52 65 69 | 6d 70 6c 65 6d 65 6e 74 |X;;; Rei|mplement|
|00001140| 61 74 69 6f 6e 20 4f 46 | 20 25 49 4e 53 54 41 4e |ation OF| %INSTAN|
|00001150| 43 45 0a 58 3b 3b 3b 0a | 58 3b 3b 3b 20 57 65 20 |CE.X;;;.|X;;; We |
|00001160| 74 61 6b 65 20 61 64 76 | 61 6e 74 61 67 65 20 6f |take adv|antage o|
|00001170| 66 20 74 68 65 20 66 61 | 63 74 20 74 68 61 74 20 |f the fa|ct that |
|00001180| 53 79 6d 62 6f 6c 69 63 | 73 20 64 65 66 73 74 72 |Symbolic|s defstr|
|00001190| 75 63 74 20 64 6f 65 73 | 6e 27 74 20 64 65 70 65 |uct does|n't depe|
|000011a0| 6e 64 20 6f 6e 0a 58 3b | 3b 3b 20 74 68 65 20 66 |nd on.X;|;; the f|
|000011b0| 61 63 74 20 74 68 61 74 | 20 43 6f 6d 6d 6f 6e 20 |act that| Common |
|000011c0| 4c 69 73 70 20 64 65 66 | 73 74 72 75 63 74 73 20 |Lisp def|structs |
|000011d0| 61 72 65 20 66 69 78 65 | 64 20 6c 65 6e 67 74 68 |are fixe|d length|
|000011e0| 2e 20 20 54 68 69 73 20 | 61 6c 6c 6f 77 73 20 75 |. This |allows u|
|000011f0| 73 20 74 6f 0a 58 3b 3b | 3b 20 75 73 65 20 64 65 |s to.X;;|; use de|
|00001200| 66 73 74 72 75 63 74 20 | 74 6f 20 64 65 66 69 6e |fstruct |to defin|
|00001210| 65 20 61 20 6e 65 77 20 | 74 79 70 65 2c 20 62 75 |e a new |type, bu|
|00001220| 74 20 75 73 65 20 69 6e | 74 65 72 6e 61 6c 20 73 |t use in|ternal s|
|00001230| 74 72 75 63 74 75 72 65 | 20 61 6c 6c 6f 63 61 74 |tructure| allocat|
|00001240| 69 6f 6e 0a 58 3b 3b 3b | 20 63 6f 64 65 20 74 6f |ion.X;;;| code to|
|00001250| 20 6d 61 6b 65 20 73 74 | 72 75 63 74 75 72 65 20 | make st|ructure |
|00001260| 6f 66 20 74 68 61 74 20 | 74 79 70 65 20 6f 66 20 |of that |type of |
|00001270| 61 6e 79 20 6c 65 6e 67 | 74 68 20 77 65 20 6c 69 |any leng|th we li|
|00001280| 6b 65 2e 0a 58 3b 3b 3b | 0a 58 3b 3b 3b 20 49 6e |ke..X;;;|.X;;; In|
|00001290| 20 53 79 6d 62 6f 6c 69 | 63 73 20 43 6f 6d 6d 6f | Symboli|cs Commo|
|000012a0| 6e 20 4c 69 73 70 2c 20 | 73 74 72 75 63 74 75 72 |n Lisp, |structur|
|000012b0| 65 73 20 61 72 65 20 72 | 65 61 6c 6c 79 20 6a 75 |es are r|eally ju|
|000012c0| 73 74 20 61 72 72 61 79 | 73 20 77 69 74 68 20 61 |st array|s with a|
|000012d0| 20 6d 61 67 69 63 0a 58 | 3b 3b 3b 20 62 69 74 20 | magic.X|;;; bit |
|000012e0| 73 65 74 2e 20 20 54 68 | 65 20 66 69 72 73 74 20 |set. Th|e first |
|000012f0| 65 6c 65 6d 65 6e 74 20 | 6f 66 20 74 68 65 20 61 |element |of the a|
|00001300| 72 72 61 79 20 70 6f 69 | 6e 74 73 20 74 6f 20 74 |rray poi|nts to t|
|00001310| 68 65 20 73 79 6d 62 6f | 6c 20 77 68 69 63 68 20 |he symbo|l which |
|00001320| 69 73 0a 58 3b 3b 3b 20 | 74 68 65 20 6e 61 6d 65 |is.X;;; |the name|
|00001330| 20 6f 66 20 74 68 69 73 | 20 73 74 72 75 63 74 75 | of this| structu|
|00001340| 72 65 2e 20 20 54 68 65 | 20 72 65 6d 61 69 6e 69 |re. The| remaini|
|00001350| 6e 67 20 65 6c 65 6d 65 | 6e 74 73 20 61 72 65 20 |ng eleme|nts are |
|00001360| 75 73 65 64 20 66 6f 72 | 20 74 68 65 0a 58 3b 3b |used for| the.X;;|
|00001370| 3b 20 73 6c 6f 74 73 20 | 6f 66 20 74 68 65 20 73 |; slots |of the s|
|00001380| 74 72 75 63 74 75 72 65 | 2e 0a 58 3b 3b 3b 0a 58 |tructure|..X;;;.X|
|00001390| 3b 3b 3b 20 49 6e 20 6f | 75 72 20 25 69 6e 73 74 |;;; In o|ur %inst|
|000013a0| 61 6e 63 65 20 64 61 74 | 61 74 79 70 65 2c 20 74 |ance dat|atype, t|
|000013b0| 68 65 20 61 72 72 61 79 | 20 6c 6f 6f 6b 20 6c 69 |he array| look li|
|000013c0| 6b 65 0a 58 3b 3b 3b 0a | 58 3b 3b 3b 20 20 65 6c |ke.X;;;.|X;;; el|
|000013d0| 65 6d 65 6e 74 20 30 3a | 20 20 54 68 65 20 73 79 |ement 0:| The sy|
|000013e0| 6d 62 6f 6c 20 25 49 4e | 53 54 41 4e 43 45 2c 20 |mbol %IN|STANCE, |
|000013f0| 74 68 69 73 20 74 65 6c | 6c 73 20 74 68 65 20 73 |this tel|ls the s|
|00001400| 79 73 74 65 6d 20 77 68 | 61 74 20 6b 69 6e 64 20 |ystem wh|at kind |
|00001410| 6f 66 0a 58 3b 3b 3b 20 | 20 20 20 20 20 20 20 20 |of.X;;; | |
|00001420| 20 20 20 20 20 73 74 72 | 75 63 74 75 72 65 20 74 | str|ucture t|
|00001430| 68 69 73 20 69 73 2e 0a | 58 3b 3b 3b 20 20 65 6c |his is..|X;;; el|
|00001440| 65 6d 65 6e 74 20 31 3a | 20 20 54 68 65 20 6d 65 |ement 1:| The me|
|00001450| 74 61 2d 63 6c 61 73 73 | 20 6f 66 20 74 68 69 73 |ta-class| of this|
|00001460| 20 25 49 4e 53 54 41 4e | 43 45 0a 58 3b 3b 3b 20 | %INSTAN|CE.X;;; |
|00001470| 20 65 6c 65 6d 65 6e 74 | 20 32 3a 20 20 54 68 69 | element| 2: Thi|
|00001480| 73 20 69 73 20 75 73 65 | 64 20 74 6f 20 73 74 6f |s is use|d to sto|
|00001490| 72 65 20 74 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |re the v|alue of |
|000014a0| 25 69 6e 73 74 61 6e 63 | 65 2d 72 65 66 20 73 6c |%instanc|e-ref sl|
|000014b0| 6f 74 20 30 2e 0a 58 3b | 3b 3b 20 20 65 6c 65 6d |ot 0..X;|;; elem|
|000014c0| 65 6e 74 20 33 3a 20 20 | 54 68 69 73 20 69 73 20 |ent 3: |This is |
|000014d0| 75 73 65 64 20 74 6f 20 | 73 74 6f 72 65 20 74 68 |used to |store th|
|000014e0| 65 20 76 61 6c 75 65 20 | 6f 66 20 25 69 6e 73 74 |e value |of %inst|
|000014f0| 61 6e 63 65 2d 72 65 66 | 20 73 6c 6f 74 20 31 2e |ance-ref| slot 1.|
|00001500| 0a 58 3b 3b 3b 20 20 20 | 20 20 2e 20 20 20 20 20 |.X;;; | . |
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001520| 20 20 20 20 20 20 20 20 | 20 20 20 2e 0a 58 3b 3b | | ..X;;|
|00001530| 3b 20 20 20 20 20 2e 20 | 20 20 20 20 20 20 20 20 |; . | |
|00001540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001550| 20 20 20 20 20 20 20 2e | 0a 58 3b 3b 3b 0a 58 28 | .|.X;;;.X(|
|00001560| 64 65 66 73 74 72 75 63 | 74 20 28 25 69 6e 73 74 |defstruc|t (%inst|
|00001570| 61 6e 63 65 20 28 3a 70 | 72 69 6e 74 2d 66 75 6e |ance (:p|rint-fun|
|00001580| 63 74 69 6f 6e 20 70 72 | 69 6e 74 2d 69 6e 73 74 |ction pr|int-inst|
|00001590| 61 6e 63 65 29 0a 58 09 | 09 20 20 20 20 20 20 28 |ance).X.|. (|
|000015a0| 3a 63 6f 6e 73 74 72 75 | 63 74 6f 72 20 6e 69 6c |:constru|ctor nil|
|000015b0| 29 0a 58 09 09 20 20 20 | 20 20 20 28 3a 70 72 65 |).X.. | (:pre|
|000015c0| 64 69 63 61 74 65 20 25 | 69 6e 73 74 61 6e 63 65 |dicate %|instance|
|000015d0| 70 29 29 0a 58 20 20 6d | 65 74 61 2d 63 6c 61 73 |p)).X m|eta-clas|
|000015e0| 73 29 0a 58 0a 58 28 7a | 6c 3a 64 65 66 73 65 6c |s).X.X(z|l:defsel|
|000015f0| 65 63 74 20 28 28 3a 70 | 72 6f 70 65 72 74 79 20 |ect ((:p|roperty |
|00001600| 25 69 6e 73 74 61 6e 63 | 65 20 7a 6c 3a 6e 61 6d |%instanc|e zl:nam|
|00001610| 65 64 2d 73 74 72 75 63 | 74 75 72 65 2d 69 6e 76 |ed-struc|ture-inv|
|00001620| 6f 6b 65 29 29 0a 58 20 | 20 28 3a 70 72 69 6e 74 |oke)).X | (:print|
|00001630| 2d 73 65 6c 66 20 28 69 | 77 6d 63 2d 63 6c 61 73 |-self (i|wmc-clas|
|00001640| 73 20 73 74 72 65 61 6d | 20 70 72 69 6e 74 2d 64 |s stream| print-d|
|00001650| 65 70 74 68 20 2a 70 72 | 69 6e 74 2d 65 73 63 61 |epth *pr|int-esca|
|00001660| 70 65 2a 29 0a 58 09 20 | 20 20 20 20 20 20 28 70 |pe*).X. | (p|
|00001670| 72 69 6e 74 2d 69 6e 73 | 74 61 6e 63 65 20 69 77 |rint-ins|tance iw|
|00001680| 6d 63 2d 63 6c 61 73 73 | 20 73 74 72 65 61 6d 20 |mc-class| stream |
|00001690| 70 72 69 6e 74 2d 64 65 | 70 74 68 29 29 0a 58 20 |print-de|pth)).X |
|000016a0| 20 28 3a 64 65 73 63 72 | 69 62 65 20 20 20 28 69 | (:descr|ibe (i|
|000016b0| 77 6d 63 2d 63 6c 61 73 | 73 20 26 6f 70 74 69 6f |wmc-clas|s &optio|
|000016c0| 6e 61 6c 20 6e 6f 2d 63 | 6f 6d 70 6c 61 69 6e 74 |nal no-c|omplaint|
|000016d0| 73 29 0a 58 09 20 20 20 | 20 20 20 20 28 69 67 6e |s).X. | (ign|
|000016e0| 6f 72 65 20 6e 6f 2d 63 | 6f 6d 70 6c 61 69 6e 74 |ore no-c|omplaint|
|000016f0| 73 29 0a 58 09 20 20 20 | 20 20 20 20 28 64 65 73 |s).X. | (des|
|00001700| 63 72 69 62 65 2d 69 6e | 73 74 61 6e 63 65 20 69 |cribe-in|stance i|
|00001710| 77 6d 63 2d 63 6c 61 73 | 73 29 29 29 0a 58 0a 58 |wmc-clas|s))).X.X|
|00001720| 28 64 65 66 6d 61 63 72 | 6f 20 25 6d 61 6b 65 2d |(defmacr|o %make-|
|00001730| 69 6e 73 74 61 6e 63 65 | 20 28 6d 65 74 61 2d 63 |instance| (meta-c|
|00001740| 6c 61 73 73 20 73 69 7a | 65 29 0a 58 20 20 28 6c |lass siz|e).X (l|
|00001750| 65 74 20 28 28 69 6e 73 | 74 61 6e 63 65 2d 76 61 |et ((ins|tance-va|
|00001760| 72 20 28 67 65 6e 73 79 | 6d 29 29 29 0a 58 20 20 |r (gensy|m))).X |
|00001770| 20 20 60 28 6c 65 74 20 | 28 28 2c 69 6e 73 74 61 | `(let |((,insta|
|00001780| 6e 63 65 2d 76 61 72 20 | 28 6d 61 6b 65 2d 61 72 |nce-var |(make-ar|
|00001790| 72 61 79 20 28 2b 20 32 | 20 2c 73 69 7a 65 29 29 |ray (+ 2| ,size))|
|000017a0| 29 29 0a 58 20 20 20 20 | 20 20 20 28 73 65 74 66 |)).X | (setf|
|000017b0| 20 28 53 49 3a 41 52 52 | 41 59 2d 4e 41 4d 45 44 | (SI:ARR|AY-NAMED|
|000017c0| 2d 53 54 52 55 43 54 55 | 52 45 2d 42 49 54 20 2c |-STRUCTU|RE-BIT ,|
|000017d0| 69 6e 73 74 61 6e 63 65 | 2d 76 61 72 29 20 31 0a |instance|-var) 1.|
|000017e0| 58 09 20 20 20 20 20 28 | 61 72 65 66 20 2c 69 6e |X. (|aref ,in|
|000017f0| 73 74 61 6e 63 65 2d 76 | 61 72 20 30 29 20 27 25 |stance-v|ar 0) '%|
|00001800| 69 6e 73 74 61 6e 63 65 | 0a 58 09 20 20 20 20 20 |instance|.X. |
|00001810| 28 61 72 65 66 20 2c 69 | 6e 73 74 61 6e 63 65 2d |(aref ,i|nstance-|
|00001820| 76 61 72 20 31 29 20 2c | 6d 65 74 61 2d 63 6c 61 |var 1) ,|meta-cla|
|00001830| 73 73 29 0a 58 20 20 20 | 20 20 20 20 2c 69 6e 73 |ss).X | ,ins|
|00001840| 74 61 6e 63 65 2d 76 61 | 72 29 29 29 0a 58 0a 58 |tance-va|r))).X.X|
|00001850| 28 64 65 66 6d 61 63 72 | 6f 20 25 69 6e 73 74 61 |(defmacr|o %insta|
|00001860| 6e 63 65 2d 72 65 66 20 | 28 69 6e 73 74 61 6e 63 |nce-ref |(instanc|
|00001870| 65 20 69 6e 64 65 78 29 | 0a 58 20 20 60 28 61 72 |e index)|.X `(ar|
|00001880| 65 66 20 2c 69 6e 73 74 | 61 6e 63 65 20 28 2b 20 |ef ,inst|ance (+ |
|00001890| 2c 69 6e 64 65 78 20 32 | 29 29 29 0a 58 0a 58 20 |,index 2|))).X.X |
|000018a0| 20 3b 3b 20 20 20 0a 58 | 3b 3b 3b 3b 3b 3b 20 43 | ;; .X|;;;;;; C|
|000018b0| 61 63 68 65 20 4e 6f 27 | 73 0a 58 20 20 3b 3b 20 |ache No'|s.X ;; |
|000018c0| 20 0a 58 0a 58 28 7a 6c | 3a 64 65 66 73 75 62 73 | .X.X(zl|:defsubs|
|000018d0| 74 20 73 79 6d 62 6f 6c | 2d 63 61 63 68 65 2d 6e |t symbol|-cache-n|
|000018e0| 6f 20 28 73 79 6d 62 6f | 6c 20 6d 61 73 6b 29 0a |o (symbo|l mask).|
|000018f0| 58 20 20 28 6c 6f 67 61 | 6e 64 20 28 73 69 3a 25 |X (loga|nd (si:%|
|00001900| 70 6f 69 6e 74 65 72 20 | 73 79 6d 62 6f 6c 29 20 |pointer |symbol) |
|00001910| 6d 61 73 6b 29 29 09 09 | 20 20 20 20 0a 58 0a 58 |mask))..| .X.X|
|00001920| 28 63 6f 6d 70 69 6c 65 | 72 3a 64 65 66 6f 70 74 |(compile|r:defopt|
|00001930| 69 6d 69 7a 65 72 20 28 | 73 79 6d 62 6f 6c 2d 63 |imizer (|symbol-c|
|00001940| 61 63 68 65 2d 6e 6f 20 | 66 6f 6c 64 2d 73 79 6d |ache-no |fold-sym|
|00001950| 62 6f 6c 2d 63 61 63 68 | 65 2d 6e 6f 29 20 28 66 |bol-cach|e-no) (f|
|00001960| 6f 72 6d 29 0a 58 20 20 | 28 69 66 20 28 61 6e 64 |orm).X |(if (and|
|00001970| 20 28 63 6f 6e 73 74 61 | 6e 74 70 20 28 63 61 64 | (consta|ntp (cad|
|00001980| 72 20 66 6f 72 6d 29 29 | 09 09 20 20 20 20 20 20 |r form))|.. |
|00001990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0a 58 | | .X|
|000019a0| 09 20 20 20 28 63 6f 6e | 73 74 61 6e 74 70 20 28 |. (con|stantp (|
|000019b0| 63 61 64 64 72 20 66 6f | 72 6d 29 29 29 0a 58 20 |caddr fo|rm))).X |
|000019c0| 20 20 20 20 20 60 28 6c | 6f 61 64 2d 74 69 6d 65 | `(l|oad-time|
|000019d0| 2d 65 76 61 6c 20 28 6c | 6f 67 61 6e 64 20 28 73 |-eval (l|ogand (s|
|000019e0| 69 3a 25 70 6f 69 6e 74 | 65 72 20 2c 28 63 61 64 |i:%point|er ,(cad|
|000019f0| 72 20 66 6f 72 6d 29 29 | 20 2c 28 63 61 64 64 72 |r form))| ,(caddr|
|00001a00| 20 66 6f 72 6d 29 29 29 | 0a 58 20 20 20 20 20 20 | form)))|.X |
|00001a10| 66 6f 72 6d 29 29 0a 58 | 0a 58 28 64 65 66 6d 61 |form)).X|.X(defma|
|00001a20| 63 72 6f 20 6f 62 6a 65 | 63 74 2d 63 61 63 68 65 |cro obje|ct-cache|
|00001a30| 2d 6e 6f 20 28 6f 62 6a | 65 63 74 20 6d 61 73 6b |-no (obj|ect mask|
|00001a40| 29 0a 58 20 20 60 28 6c | 6f 67 61 6e 64 20 28 73 |).X `(l|ogand (s|
|00001a50| 69 3a 25 70 6f 69 6e 74 | 65 72 20 2c 6f 62 6a 65 |i:%point|er ,obje|
|00001a60| 63 74 29 20 2c 6d 61 73 | 6b 29 29 0a 58 0a 58 20 |ct) ,mas|k)).X.X |
|00001a70| 20 3b 3b 20 20 20 0a 58 | 3b 3b 3b 3b 3b 3b 20 70 | ;; .X|;;;;;; p|
|00001a80| 72 69 6e 74 69 6e 67 2d | 72 61 6e 64 6f 6d 2d 74 |rinting-|random-t|
|00001a90| 68 69 6e 67 2d 69 6e 74 | 65 72 6e 61 6c 0a 58 20 |hing-int|ernal.X |
|00001aa0| 20 3b 3b 0a 58 28 64 65 | 66 75 6e 20 70 72 69 6e | ;;.X(de|fun prin|
|00001ab0| 74 69 6e 67 2d 72 61 6e | 64 6f 6d 2d 74 68 69 6e |ting-ran|dom-thin|
|00001ac0| 67 2d 69 6e 74 65 72 6e | 61 6c 20 28 74 68 69 6e |g-intern|al (thin|
|00001ad0| 67 20 73 74 72 65 61 6d | 29 0a 58 20 20 28 66 6f |g stream|).X (fo|
|00001ae0| 72 6d 61 74 20 73 74 72 | 65 61 6d 20 22 7e 4f 22 |rmat str|eam "~O"|
|00001af0| 20 28 73 69 3a 25 70 6f | 69 6e 74 65 72 20 74 68 | (si:%po|inter th|
|00001b00| 69 6e 67 29 29 29 0a 58 | 0a 58 20 20 3b 3b 20 20 |ing))).X|.X ;; |
|00001b10| 20 0a 58 3b 3b 3b 3b 3b | 3b 20 66 75 6e 63 74 69 | .X;;;;;|; functi|
|00001b20| 6f 6e 2d 61 72 67 6c 69 | 73 74 0a 58 20 20 3b 3b |on-argli|st.X ;;|
|00001b30| 0a 58 3b 3b 3b 0a 58 3b | 3b 3b 20 54 68 69 73 20 |.X;;;.X;|;; This |
|00001b40| 69 73 20 68 61 72 64 2c | 20 49 20 61 6d 20 73 77 |is hard,| I am sw|
|00001b50| 65 61 74 69 6e 67 2e 0a | 58 3b 3b 3b 20 0a 58 28 |eating..|X;;; .X(|
|00001b60| 64 65 66 75 6e 20 66 75 | 6e 63 74 69 6f 6e 2d 61 |defun fu|nction-a|
|00001b70| 72 67 6c 69 73 74 20 28 | 66 75 6e 63 74 69 6f 6e |rglist (|function|
|00001b80| 29 20 28 7a 6c 3a 61 72 | 67 6c 69 73 74 20 66 75 |) (zl:ar|glist fu|
|00001b90| 6e 63 74 69 6f 6e 20 74 | 29 29 0a 58 0a 58 28 64 |nction t|)).X.X(d|
|00001ba0| 65 66 75 6e 20 66 75 6e | 63 74 69 6f 6e 2d 70 72 |efun fun|ction-pr|
|00001bb0| 65 74 74 79 2d 61 72 67 | 6c 69 73 74 20 28 66 75 |etty-arg|list (fu|
|00001bc0| 6e 63 74 69 6f 6e 29 20 | 28 7a 6c 3a 61 72 67 6c |nction) |(zl:argl|
|00001bd0| 69 73 74 20 66 75 6e 63 | 74 69 6f 6e 29 29 0a 58 |ist func|tion)).X|
|00001be0| 0a 58 3b 3b 20 55 6e 66 | 6f 72 74 75 6e 61 74 65 |.X;; Unf|ortunate|
|00001bf0| 6c 79 2c 20 74 68 69 73 | 20 64 6f 65 73 6e 27 74 |ly, this| doesn't|
|00001c00| 20 72 65 61 6c 6c 79 20 | 77 6f 72 6b 2e 2e 2e 0a | really |work....|
|00001c10| 58 28 64 65 66 75 6e 20 | 73 65 74 2d 66 75 6e 63 |X(defun |set-func|
|00001c20| 74 69 6f 6e 2d 70 72 65 | 74 74 79 2d 61 72 67 6c |tion-pre|tty-argl|
|00001c30| 69 73 74 20 28 66 75 6e | 63 74 69 6f 6e 20 6e 65 |ist (fun|ction ne|
|00001c40| 77 2d 76 61 6c 75 65 29 | 0a 58 20 20 28 69 67 6e |w-value)|.X (ign|
|00001c50| 6f 72 65 20 66 75 6e 63 | 74 69 6f 6e 20 6e 65 77 |ore func|tion new|
|00001c60| 2d 76 61 6c 75 65 29 29 | 0a 58 0a 58 3b 3b 20 42 |-value))|.X.X;; B|
|00001c70| 75 74 20 74 68 69 73 20 | 64 6f 65 73 2e 2e 2e 0a |ut this |does....|
|00001c80| 58 28 7a 6c 3a 61 64 76 | 69 73 65 20 7a 6c 3a 61 |X(zl:adv|ise zl:a|
|00001c90| 72 67 6c 69 73 74 0a 58 | 09 20 20 20 3a 61 66 74 |rglist.X|. :aft|
|00001ca0| 65 72 0a 58 09 20 20 20 | 70 63 6c 2d 70 61 74 63 |er.X. |pcl-patc|
|00001cb0| 68 2d 74 6f 2d 61 72 67 | 6c 69 73 74 0a 58 09 20 |h-to-arg|list.X. |
|00001cc0| 20 20 28 29 0a 58 20 20 | 28 6c 65 74 20 28 28 66 | ().X |(let ((f|
|00001cd0| 75 6e 63 74 69 6f 6e 20 | 28 63 61 72 20 7a 6c 3a |unction |(car zl:|
|00001ce0| 61 72 67 6c 69 73 74 29 | 29 0a 58 09 28 64 69 73 |arglist)|).X.(dis|
|00001cf0| 63 72 69 6d 69 6e 61 74 | 6f 72 20 6e 69 6c 29 29 |criminat|or nil))|
|00001d00| 0a 58 20 20 20 20 20 20 | 28 77 68 65 6e 20 28 61 |.X |(when (a|
|00001d10| 6e 64 20 28 73 79 6d 62 | 6f 6c 70 20 66 75 6e 63 |nd (symb|olp func|
|00001d20| 74 69 6f 6e 29 0a 58 09 | 09 20 28 73 65 74 71 20 |tion).X.|. (setq |
|00001d30| 64 69 73 63 72 69 6d 69 | 6e 61 74 6f 72 20 28 64 |discrimi|nator (d|
|00001d40| 69 73 63 72 69 6d 69 6e | 61 74 6f 72 2d 6e 61 6d |iscrimin|ator-nam|
|00001d50| 65 64 20 66 75 6e 63 74 | 69 6f 6e 29 29 29 0a 58 |ed funct|ion))).X|
|00001d60| 09 28 73 65 74 71 20 76 | 61 6c 75 65 73 20 28 6c |.(setq v|alues (l|
|00001d70| 69 73 74 20 28 64 69 73 | 63 72 69 6d 69 6e 61 74 |ist (dis|criminat|
|00001d80| 6f 72 2d 70 72 65 74 74 | 79 2d 61 72 67 6c 69 73 |or-prett|y-arglis|
|00001d90| 74 20 64 69 73 63 72 69 | 6d 69 6e 61 74 6f 72 29 |t discri|minator)|
|00001da0| 29 29 29 29 29 0a 58 0a | 58 0a 58 20 20 3b 3b 20 |))))).X.|X.X ;; |
|00001db0| 20 20 0a 58 3b 3b 3b 3b | 3b 3b 20 0a 58 20 20 3b | .X;;;;|;; .X ;|
|00001dc0| 3b 20 20 20 0a 58 0a 58 | 28 64 65 66 75 6e 20 72 |; .X.X|(defun r|
|00001dd0| 65 63 6f 72 64 2d 64 65 | 66 69 6e 69 74 69 6f 6e |ecord-de|finition|
|00001de0| 20 28 6e 61 6d 65 20 74 | 79 70 65 20 26 72 65 73 | (name t|ype &res|
|00001df0| 74 20 61 72 67 73 29 0a | 58 20 20 28 63 61 73 65 |t args).|X (case|
|00001e00| 20 74 79 70 65 0a 58 20 | 20 20 20 28 6d 65 74 68 | type.X | (meth|
|00001e10| 6f 64 20 28 73 69 3a 72 | 65 63 6f 72 64 2d 73 6f |od (si:r|ecord-so|
|00001e20| 75 72 63 65 2d 66 69 6c | 65 2d 6e 61 6d 65 20 6e |urce-fil|e-name n|
|00001e30| 61 6d 65 20 27 7a 6c 3a | 64 65 66 75 6e 20 74 29 |ame 'zl:|defun t)|
|00001e40| 29 0a 58 20 20 20 20 28 | 63 6c 61 73 73 20 28 29 |).X (|class ()|
|00001e50| 29 29 29 0a 58 0a 58 28 | 64 65 66 75 6e 20 63 6f |))).X.X(|defun co|
|00001e60| 6d 70 69 6c 65 2d 74 69 | 6d 65 2d 64 65 66 69 6e |mpile-ti|me-defin|
|00001e70| 65 20 28 74 79 70 65 20 | 6e 61 6d 65 20 26 72 65 |e (type |name &re|
|00001e80| 73 74 20 69 67 6e 6f 72 | 65 29 0a 58 20 20 28 63 |st ignor|e).X (c|
|00001e90| 61 73 65 20 74 79 70 65 | 0a 58 20 20 20 20 28 64 |ase type|.X (d|
|00001ea0| 65 66 75 6e 20 28 63 6f | 6d 70 69 6c 65 72 3a 66 |efun (co|mpiler:f|
|00001eb0| 69 6c 65 2d 64 65 63 6c | 61 72 65 20 6e 61 6d 65 |ile-decl|are name|
|00001ec0| 20 27 7a 6c 3a 64 65 66 | 20 27 7a 6c 3a 69 67 6e | 'zl:def| 'zl:ign|
|00001ed0| 6f 72 65 29 29 29 29 0a | 58 0a 58 20 20 3b 3b 20 |ore)))).|X.X ;; |
|00001ee0| 20 20 0a 58 3b 3b 3b 3b | 3b 3b 20 45 6e 76 69 72 | .X;;;;|;; Envir|
|00001ef0| 6f 6e 6d 65 6e 74 20 73 | 75 70 70 6f 72 74 20 61 |onment s|upport a|
|00001f00| 6e 64 20 42 75 67 2d 46 | 69 78 65 73 0a 58 20 20 |nd Bug-F|ixes.X |
|00001f10| 3b 3b 0a 58 3b 3b 3b 20 | 53 6f 6d 65 20 56 45 52 |;;.X;;; |Some VER|
|00001f20| 59 20 62 61 73 69 63 20 | 65 6e 76 69 72 6f 6e 6d |Y basic |environm|
|00001f30| 65 6e 74 20 73 75 70 70 | 6f 72 74 20 66 6f 72 20 |ent supp|ort for |
|00001f40| 74 68 65 20 33 36 30 30 | 2c 20 61 6e 64 20 73 6f |the 3600|, and so|
|00001f50| 6d 65 20 62 75 67 20 66 | 69 78 65 73 20 61 6e 64 |me bug f|ixes and|
|00001f60| 0a 58 3b 3b 3b 20 69 6d | 70 72 6f 76 65 6d 65 6e |.X;;; im|provemen|
|00001f70| 74 73 20 74 6f 20 33 36 | 30 30 20 73 79 73 74 65 |ts to 36|00 syste|
|00001f80| 6d 20 75 74 69 6c 69 74 | 69 65 73 2e 20 20 54 68 |m utilit|ies. Th|
|00001f90| 65 73 65 20 6d 61 79 20 | 6e 65 65 64 20 73 6f 6d |ese may |need som|
|00001fa0| 65 20 77 6f 72 6b 20 62 | 65 66 6f 72 65 0a 58 3b |e work b|efore.X;|
|00001fb0| 3b 3b 20 74 68 65 79 20 | 77 69 6c 6c 20 77 6f 72 |;; they |will wor|
|00001fc0| 6b 20 69 6e 20 72 65 6c | 65 61 73 65 20 37 2e 0a |k in rel|ease 7..|
|00001fd0| 58 3b 3b 3b 20 0a 58 28 | 65 76 61 6c 2d 77 68 65 |X;;; .X(|eval-whe|
|00001fe0| 6e 20 28 6c 6f 61 64 20 | 65 76 61 6c 29 0a 58 20 |n (load |eval).X |
|00001ff0| 20 28 73 65 74 66 0a 58 | 20 20 20 20 28 67 65 74 | (setf.X| (get|
|00002000| 20 27 64 65 66 6d 65 74 | 68 20 27 7a 77 65 69 3a | 'defmet|h 'zwei:|
|00002010| 64 65 66 69 6e 69 74 69 | 6f 6e 2d 66 75 6e 63 74 |definiti|on-funct|
|00002020| 69 6f 6e 2d 73 70 65 63 | 2d 74 79 70 65 29 20 27 |ion-spec|-type) '|
|00002030| 64 65 66 75 6e 0a 58 20 | 20 20 3b 28 67 65 74 20 |defun.X | ;(get |
|00002040| 27 64 65 66 6d 65 74 68 | 20 27 7a 77 65 69 3a 64 |'defmeth| 'zwei:d|
|00002050| 65 66 69 6e 69 74 69 6f | 6e 2d 66 75 6e 63 74 69 |efinitio|n-functi|
|00002060| 6f 6e 2d 73 70 65 63 2d | 66 69 6e 64 65 72 2d 74 |on-spec-|finder-t|
|00002070| 65 6d 70 6c 61 74 65 29 | 20 27 28 30 20 31 29 0a |emplate)| '(0 1).|
|00002080| 58 20 20 20 20 28 67 65 | 74 20 27 6e 64 65 66 73 |X (ge|t 'ndefs|
|00002090| 74 72 75 63 74 20 27 7a | 77 65 69 3a 64 65 66 69 |truct 'z|wei:defi|
|000020a0| 6e 69 74 69 6f 6e 2d 74 | 79 70 65 2d 6e 61 6d 65 |nition-t|ype-name|
|000020b0| 29 20 22 43 6c 61 73 73 | 22 0a 58 20 20 20 20 28 |) "Class|".X (|
|000020c0| 67 65 74 20 27 6e 64 65 | 66 73 74 72 75 63 74 20 |get 'nde|fstruct |
|000020d0| 27 7a 77 65 69 3a 64 65 | 66 69 6e 69 74 69 6f 6e |'zwei:de|finition|
|000020e0| 2d 66 75 6e 63 74 69 6f | 6e 2d 73 70 65 63 2d 66 |-functio|n-spec-f|
|000020f0| 69 6e 64 65 72 2d 74 65 | 6d 70 6c 61 74 65 29 20 |inder-te|mplate) |
|00002100| 27 28 30 20 31 29 29 0a | 58 20 20 29 0a 58 0a 58 |'(0 1)).|X ).X.X|
|00002110| 3b 3b 3b 20 54 68 65 73 | 65 20 63 68 61 6e 67 65 |;;; Thes|e change|
|00002120| 73 20 6c 65 74 20 6d 65 | 20 64 75 6d 70 20 69 6e |s let me| dump in|
|00002130| 73 74 61 6e 63 65 73 20 | 6f 66 20 50 43 4c 20 6d |stances |of PCL m|
|00002140| 65 74 61 63 6c 61 73 73 | 65 73 20 69 6e 20 66 69 |etaclass|es in fi|
|00002150| 6c 65 73 2c 20 61 6e 64 | 20 61 6c 73 6f 20 61 72 |les, and| also ar|
|00002160| 72 61 6e 67 65 0a 58 3b | 3b 3b 20 66 6f 72 20 74 |range.X;|;; for t|
|00002170| 68 65 20 23 53 20 73 79 | 6e 74 61 78 20 74 6f 20 |he #S sy|ntax to |
|00002180| 77 6f 72 6b 20 66 6f 72 | 20 50 43 4c 20 69 6e 73 |work for| PCL ins|
|00002190| 74 61 6e 63 65 73 2e 0a | 58 3b 3b 3b 20 73 69 3a |tances..|X;;; si:|
|000021a0| 64 75 6d 70 2d 6f 62 6a | 65 63 74 20 61 6e 64 20 |dump-obj|ect and |
|000021b0| 73 69 3a 67 65 74 2d 64 | 65 66 73 74 72 75 63 74 |si:get-d|efstruct|
|000021c0| 2d 63 6f 6e 73 74 72 75 | 63 74 6f 72 2d 6d 61 63 |-constru|ctor-mac|
|000021d0| 72 6f 2d 6e 61 6d 65 20 | 67 65 74 20 22 61 64 76 |ro-name |get "adv|
|000021e0| 69 73 65 64 22 2e 0a 58 | 3b 3b 3b 20 41 63 74 75 |ised"..X|;;; Actu|
|000021f0| 61 6c 6c 79 20 74 68 65 | 20 61 64 76 69 63 65 20 |ally the| advice |
|00002200| 69 73 20 64 6f 6e 65 20 | 62 79 20 68 61 6e 64 20 |is done |by hand |
|00002210| 73 69 6e 63 65 20 69 74 | 20 64 6f 65 73 6e 27 74 |since it| doesn't|
|00002220| 20 67 65 74 20 63 6f 6d | 70 69 6c 65 64 20 6f 74 | get com|piled ot|
|00002230| 68 65 72 77 69 73 65 2e | 0a 58 0a 58 28 64 65 66 |herwise.|.X.X(def|
|00002240| 76 61 72 20 2a 6f 6c 64 | 2d 64 75 6d 70 2d 6f 62 |var *old|-dump-ob|
|00002250| 6a 65 63 74 2a 29 0a 58 | 28 64 65 66 75 6e 20 70 |ject*).X|(defun p|
|00002260| 61 74 63 68 65 64 2d 64 | 75 6d 70 2d 6f 62 6a 65 |atched-d|ump-obje|
|00002270| 63 74 20 28 6f 62 6a 65 | 63 74 20 73 74 72 65 61 |ct (obje|ct strea|
|00002280| 6d 29 0a 58 20 20 28 69 | 66 20 28 6f 72 20 28 73 |m).X (i|f (or (s|
|00002290| 69 3a 73 65 6e 64 20 73 | 69 3a 2a 62 69 6e 2d 64 |i:send s|i:*bin-d|
|000022a0| 75 6d 70 2d 74 61 62 6c | 65 2a 20 3a 67 65 74 2d |ump-tabl|e* :get-|
|000022b0| 68 61 73 68 20 6f 62 6a | 65 63 74 29 0a 58 09 20 |hash obj|ect).X. |
|000022c0| 20 28 6e 6f 74 20 28 61 | 6e 64 20 28 25 69 6e 73 | (not (a|nd (%ins|
|000022d0| 74 61 6e 63 65 70 20 6f | 62 6a 65 63 74 29 0a 58 |tancep o|bject).X|
|000022e0| 09 09 20 20 20 20 28 63 | 6c 61 73 73 2d 73 74 61 |.. (c|lass-sta|
|000022f0| 6e 64 61 72 64 2d 63 6f | 6e 73 74 72 75 63 74 6f |ndard-co|nstructo|
|00002300| 72 20 28 63 6c 61 73 73 | 2d 6f 66 20 6f 62 6a 65 |r (class|-of obje|
|00002310| 63 74 29 29 29 29 29 0a | 58 20 20 20 20 20 20 28 |ct))))).|X (|
|00002320| 66 75 6e 63 61 6c 6c 20 | 2a 6f 6c 64 2d 64 75 6d |funcall |*old-dum|
|00002330| 70 2d 6f 62 6a 65 63 74 | 2a 20 6f 62 6a 65 63 74 |p-object|* object|
|00002340| 20 73 74 72 65 61 6d 29 | 0a 58 20 20 20 20 20 20 | stream)|.X |
|00002350| 3b 3b 20 43 6f 64 65 20 | 70 72 61 74 69 63 61 6c |;; Code |pratical|
|00002360| 6c 79 20 63 6f 70 69 65 | 64 20 66 72 6f 6d 20 64 |ly copie|d from d|
|00002370| 75 6d 70 2d 69 6e 73 74 | 61 6e 63 65 2e 0a 58 20 |ump-inst|ance..X |
|00002380| 20 20 20 20 20 28 6c 65 | 74 20 28 28 69 6e 64 65 | (le|t ((inde|
|00002390| 78 20 28 73 69 3a 65 6e | 74 65 72 2d 74 61 62 6c |x (si:en|ter-tabl|
|000023a0| 65 20 6f 62 6a 65 63 74 | 20 73 74 72 65 61 6d 20 |e object| stream |
|000023b0| 74 20 74 29 29 29 0a 58 | 09 28 73 69 3a 64 75 6d |t t))).X|.(si:dum|
|000023c0| 70 2d 66 6f 72 6d 2d 74 | 6f 2d 65 76 61 6c 0a 58 |p-form-t|o-eval.X|
|000023d0| 09 20 20 28 63 6f 6e 73 | 20 28 63 6c 61 73 73 2d |. (cons| (class-|
|000023e0| 73 74 61 6e 64 61 72 64 | 2d 63 6f 6e 73 74 72 75 |standard|-constru|
|000023f0| 63 74 6f 72 20 28 63 6c | 61 73 73 2d 6f 66 20 6f |ctor (cl|ass-of o|
|00002400| 62 6a 65 63 74 29 29 0a | 58 09 09 28 69 74 65 72 |bject)).|X..(iter|
|00002410| 61 74 65 0a 58 09 09 20 | 20 28 28 73 6c 6f 74 20 |ate.X.. | ((slot |
|00002420| 69 6e 20 28 61 6c 6c 2d | 73 6c 6f 74 73 20 6f 62 |in (all-|slots ob|
|00002430| 6a 65 63 74 29 20 62 79 | 20 63 64 64 72 29 0a 58 |ject) by| cddr).X|
|00002440| 09 09 20 20 20 28 76 61 | 6c 20 69 6e 20 28 63 64 |.. (va|l in (cd|
|00002450| 72 20 28 61 6c 6c 2d 73 | 6c 6f 74 73 20 6f 62 6a |r (all-s|lots obj|
|00002460| 65 63 74 29 29 20 62 79 | 20 63 64 64 72 29 29 0a |ect)) by| cddr)).|
|00002470| 58 09 09 20 20 28 63 6f | 6c 6c 65 63 74 20 28 6d |X.. (co|llect (m|
|00002480| 61 6b 65 2d 6b 65 79 77 | 6f 72 64 20 73 6c 6f 74 |ake-keyw|ord slot|
|00002490| 29 29 0a 58 09 09 20 20 | 28 63 6f 6c 6c 65 63 74 |)).X.. |(collect|
|000024a0| 20 60 27 2c 76 61 6c 29 | 29 29 0a 58 09 20 20 73 | `',val)|)).X. s|
|000024b0| 74 72 65 61 6d 29 0a 58 | 09 28 73 69 3a 66 69 6e |tream).X|.(si:fin|
|000024c0| 69 73 68 2d 65 6e 74 65 | 72 2d 74 61 62 6c 65 20 |ish-ente|r-table |
|000024d0| 6f 62 6a 65 63 74 20 69 | 6e 64 65 78 29 29 29 29 |object i|ndex))))|
|000024e0| 0a 58 0a 58 28 75 6e 6c | 65 73 73 20 28 62 6f 75 |.X.X(unl|ess (bou|
|000024f0| 6e 64 70 20 27 2a 6f 6c | 64 2d 64 75 6d 70 2d 6f |ndp '*ol|d-dump-o|
|00002500| 62 6a 65 63 74 2a 29 0a | 58 20 20 28 73 65 74 66 |bject*).|X (setf|
|00002510| 20 2a 6f 6c 64 2d 64 75 | 6d 70 2d 6f 62 6a 65 63 | *old-du|mp-objec|
|00002520| 74 2a 20 28 73 79 6d 62 | 6f 6c 2d 66 75 6e 63 74 |t* (symb|ol-funct|
|00002530| 69 6f 6e 20 27 73 69 3a | 64 75 6d 70 2d 6f 62 6a |ion 'si:|dump-obj|
|00002540| 65 63 74 29 0a 58 09 28 | 73 79 6d 62 6f 6c 2d 66 |ect).X.(|symbol-f|
|00002550| 75 6e 63 74 69 6f 6e 20 | 27 73 69 3a 64 75 6d 70 |unction |'si:dump|
|00002560| 2d 6f 62 6a 65 63 74 29 | 20 27 70 61 74 63 68 65 |-object)| 'patche|
|00002570| 64 2d 64 75 6d 70 2d 6f | 62 6a 65 63 74 29 29 0a |d-dump-o|bject)).|
|00002580| 58 0a 58 28 64 65 66 76 | 61 72 20 2a 6f 6c 64 2d |X.X(defv|ar *old-|
|00002590| 67 65 74 2d 64 65 66 73 | 74 72 75 63 74 2d 63 6f |get-defs|truct-co|
|000025a0| 6e 73 74 72 75 63 74 6f | 72 2d 6d 61 63 72 6f 2d |nstructo|r-macro-|
|000025b0| 6e 61 6d 65 2a 29 0a 58 | 28 64 65 66 75 6e 20 70 |name*).X|(defun p|
|000025c0| 61 74 63 68 65 64 2d 67 | 65 74 2d 64 65 66 73 74 |atched-g|et-defst|
|000025d0| 72 75 63 74 2d 63 6f 6e | 73 74 72 75 63 74 6f 72 |ruct-con|structor|
|000025e0| 2d 6d 61 63 72 6f 2d 6e | 61 6d 65 20 28 73 74 72 |-macro-n|ame (str|
|000025f0| 75 63 74 75 72 65 29 0a | 58 20 20 28 6c 65 74 20 |ucture).|X (let |
|00002600| 28 28 63 6c 61 73 73 20 | 28 63 6c 61 73 73 2d 6e |((class |(class-n|
|00002610| 61 6d 65 64 20 73 74 72 | 75 63 74 75 72 65 20 74 |amed str|ucture t|
|00002620| 29 29 29 0a 58 20 20 20 | 20 28 69 66 20 63 6c 61 |))).X | (if cla|
|00002630| 73 73 0a 58 09 28 63 6c | 61 73 73 2d 73 74 61 6e |ss.X.(cl|ass-stan|
|00002640| 64 61 72 64 2d 63 6f 6e | 73 74 72 75 63 74 6f 72 |dard-con|structor|
|00002650| 20 63 6c 61 73 73 29 0a | 58 09 28 66 75 6e 63 61 | class).|X.(funca|
|00002660| 6c 6c 20 2a 6f 6c 64 2d | 67 65 74 2d 64 65 66 73 |ll *old-|get-defs|
|00002670| 74 72 75 63 74 2d 63 6f | 6e 73 74 72 75 63 74 6f |truct-co|nstructo|
|00002680| 72 2d 6d 61 63 72 6f 2d | 6e 61 6d 65 2a 20 73 74 |r-macro-|name* st|
|00002690| 72 75 63 74 75 72 65 29 | 29 29 29 0a 58 0a 58 0a |ructure)|))).X.X.|
|000026a0| 58 28 75 6e 6c 65 73 73 | 20 28 62 6f 75 6e 64 70 |X(unless| (boundp|
|000026b0| 20 27 2a 6f 6c 64 2d 67 | 65 74 2d 64 65 66 73 74 | '*old-g|et-defst|
|000026c0| 72 75 63 74 2d 63 6f 6e | 73 74 72 75 63 74 6f 72 |ruct-con|structor|
|000026d0| 2d 6d 61 63 72 6f 2d 6e | 61 6d 65 2a 29 0a 58 20 |-macro-n|ame*).X |
|000026e0| 20 28 73 65 74 66 20 2a | 6f 6c 64 2d 67 65 74 2d | (setf *|old-get-|
|000026f0| 64 65 66 73 74 72 75 63 | 74 2d 63 6f 6e 73 74 72 |defstruc|t-constr|
|00002700| 75 63 74 6f 72 2d 6d 61 | 63 72 6f 2d 6e 61 6d 65 |uctor-ma|cro-name|
|00002710| 2a 0a 58 09 20 20 20 28 | 73 79 6d 62 6f 6c 2d 66 |*.X. (|symbol-f|
|00002720| 75 6e 63 74 69 6f 6e 20 | 27 73 69 3a 67 65 74 2d |unction |'si:get-|
|00002730| 64 65 66 73 74 72 75 63 | 74 2d 63 6f 6e 73 74 72 |defstruc|t-constr|
|00002740| 75 63 74 6f 72 2d 6d 61 | 63 72 6f 2d 6e 61 6d 65 |uctor-ma|cro-name|
|00002750| 29 0a 58 09 28 73 79 6d | 62 6f 6c 2d 66 75 6e 63 |).X.(sym|bol-func|
|00002760| 74 69 6f 6e 20 27 73 69 | 3a 67 65 74 2d 64 65 66 |tion 'si|:get-def|
|00002770| 73 74 72 75 63 74 2d 63 | 6f 6e 73 74 72 75 63 74 |struct-c|onstruct|
|00002780| 6f 72 2d 6d 61 63 72 6f | 2d 6e 61 6d 65 29 0a 58 |or-macro|-name).X|
|00002790| 09 20 20 20 27 70 61 74 | 63 68 65 64 2d 67 65 74 |. 'pat|ched-get|
|000027a0| 2d 64 65 66 73 74 72 75 | 63 74 2d 63 6f 6e 73 74 |-defstru|ct-const|
|000027b0| 72 75 63 74 6f 72 2d 6d | 61 63 72 6f 2d 6e 61 6d |ructor-m|acro-nam|
|000027c0| 65 29 29 0a 58 0a 45 4e | 44 5f 4f 46 5f 46 49 4c |e)).X.EN|D_OF_FIL|
|000027d0| 45 0a 69 66 20 74 65 73 | 74 20 38 37 34 30 20 2d |E.if tes|t 8740 -|
|000027e0| 6e 65 20 60 77 63 20 2d | 63 20 3c 27 33 36 30 30 |ne `wc -|c <'3600|
|000027f0| 2d 6c 6f 77 2e 6c 27 60 | 3b 20 74 68 65 6e 0a 20 |-low.l'`|; then. |
|00002800| 20 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 5c 22 | echo |shar: \"|
|00002810| 27 33 36 30 30 2d 6c 6f | 77 2e 6c 27 5c 22 20 75 |'3600-lo|w.l'\" u|
|00002820| 6e 70 61 63 6b 65 64 20 | 77 69 74 68 20 77 72 6f |npacked |with wro|
|00002830| 6e 67 20 73 69 7a 65 21 | 0a 66 69 0a 23 20 65 6e |ng size!|.fi.# en|
|00002840| 64 20 6f 66 20 27 33 36 | 30 30 2d 6c 6f 77 2e 6c |d of '36|00-low.l|
|00002850| 27 0a 66 69 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |'.fi.if |test -f |
|00002860| 27 63 6f 2d 6d 61 63 72 | 6f 73 2e 6c 27 20 2d 61 |'co-macr|os.l' -a|
|00002870| 20 22 24 7b 31 7d 22 20 | 21 3d 20 22 2d 63 22 20 | "${1}" |!= "-c" |
|00002880| 3b 20 74 68 65 6e 20 0a | 20 20 65 63 68 6f 20 73 |; then .| echo s|
|00002890| 68 61 72 3a 20 57 69 6c | 6c 20 6e 6f 74 20 63 6c |har: Wil|l not cl|
|000028a0| 6f 62 62 65 72 20 65 78 | 69 73 74 69 6e 67 20 66 |obber ex|isting f|
|000028b0| 69 6c 65 20 5c 22 27 63 | 6f 2d 6d 61 63 72 6f 73 |ile \"'c|o-macros|
|000028c0| 2e 6c 27 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |.l'\".el|se.echo |
|000028d0| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|000028e0| 20 5c 22 27 63 6f 2d 6d | 61 63 72 6f 73 2e 6c 27 | \"'co-m|acros.l'|
|000028f0| 5c 22 20 5c 28 37 31 30 | 33 20 63 68 61 72 61 63 |\" \(710|3 charac|
|00002900| 74 65 72 73 5c 29 0a 73 | 65 64 20 22 73 2f 5e 58 |ters\).s|ed "s/^X|
|00002910| 2f 2f 22 20 3e 27 63 6f | 2d 6d 61 63 72 6f 73 2e |//" >'co|-macros.|
|00002920| 6c 27 20 3c 3c 27 45 4e | 44 5f 4f 46 5f 46 49 4c |l' <<'EN|D_OF_FIL|
|00002930| 45 27 0a 58 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |E'.X;;;;|;;;;;;;;|
|00002940| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002950| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002960| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002970| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002980| 3b 3b 3b 3b 0a 58 3b 0a | 58 3b 20 46 69 6c 65 3a |;;;;.X;.|X; File:|
|00002990| 20 20 20 20 20 20 20 20 | 20 63 6f 2d 6d 61 63 72 | | co-macr|
|000029a0| 6f 73 2e 6c 0a 58 3b 20 | 52 43 53 3a 20 20 20 20 |os.l.X; |RCS: |
|000029b0| 20 20 20 20 20 20 24 52 | 65 76 69 73 69 6f 6e 3a | $R|evision:|
|000029c0| 20 31 2e 31 20 24 0a 58 | 3b 20 53 43 43 53 3a 20 | 1.1 $.X|; SCCS: |
|000029d0| 20 20 20 20 20 20 20 20 | 25 41 25 20 25 47 25 20 | |%A% %G% |
|000029e0| 25 55 25 0a 58 3b 20 44 | 65 73 63 72 69 70 74 69 |%U%.X; D|escripti|
|000029f0| 6f 6e 3a 20 20 4d 61 63 | 72 6f 73 20 75 73 65 64 |on: Mac|ros used|
|00002a00| 20 62 79 20 49 6e 74 65 | 72 66 61 63 65 20 46 6f | by Inte|rface Fo|
|00002a10| 72 20 43 6f 6d 6d 6f 6e | 4f 62 6a 65 63 74 73 0a |r Common|Objects.|
|00002a20| 58 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X; | |
|00002a30| 20 77 69 74 68 20 63 6f | 20 70 61 72 73 65 72 20 | with co| parser |
|00002a40| 69 6e 20 43 4c 2e 0a 58 | 3b 20 41 75 74 68 6f 72 |in CL..X|; Author|
|00002a50| 3a 20 20 20 20 20 20 20 | 4a 61 6d 65 73 20 4b 65 |: |James Ke|
|00002a60| 6d 70 66 2c 20 48 50 2f | 44 43 43 0a 58 3b 20 43 |mpf, HP/|DCC.X; C|
|00002a70| 72 65 61 74 65 64 3a 20 | 20 20 20 20 20 33 31 2d |reated: | 31-|
|00002a80| 4a 75 6c 2d 38 36 0a 58 | 3b 20 4d 6f 64 69 66 69 |Jul-86.X|; Modifi|
|00002a90| 65 64 3a 20 20 20 20 20 | 31 31 2d 4d 61 72 2d 38 |ed: |11-Mar-8|
|00002aa0| 37 20 32 32 3a 32 32 3a | 34 34 20 28 4a 61 6d 65 |7 22:22:|44 (Jame|
|00002ab0| 73 20 4b 65 6d 70 66 29 | 0a 58 3b 20 4c 61 6e 67 |s Kempf)|.X; Lang|
|00002ac0| 75 61 67 65 3a 20 20 20 | 20 20 4c 69 73 70 0a 58 |uage: | Lisp.X|
|00002ad0| 3b 20 50 61 63 6b 61 67 | 65 3a 20 20 20 20 20 20 |; Packag|e: |
|00002ae0| 43 4f 4d 4d 4f 4e 2d 4f | 42 4a 45 43 54 53 0a 58 |COMMON-O|BJECTS.X|
|00002af0| 3b 20 53 74 61 74 75 73 | 3a 20 20 20 20 20 20 20 |; Status|: |
|00002b00| 44 69 73 74 72 69 62 75 | 74 69 6f 6e 0a 58 3b 0a |Distribu|tion.X;.|
|00002b10| 58 3b 20 28 63 29 20 43 | 6f 70 79 72 69 67 68 74 |X; (c) C|opyright|
|00002b20| 20 31 39 38 37 2c 20 48 | 50 20 4c 61 62 73 2c 20 | 1987, H|P Labs, |
|00002b30| 61 6c 6c 20 72 69 67 68 | 74 73 20 72 65 73 65 72 |all righ|ts reser|
|00002b40| 76 65 64 2e 0a 58 3b 0a | 58 3b 3b 3b 3b 3b 3b 3b |ved..X;.|X;;;;;;;|
|00002b50| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002b60| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002b70| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002b80| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002b90| 3b 3b 3b 3b 3b 3b 3b 3b | 0a 58 3b 0a 58 3b 20 43 |;;;;;;;;|.X;.X; C|
|00002ba0| 6f 70 79 72 69 67 68 74 | 20 28 63 29 20 31 39 38 |opyright| (c) 198|
|00002bb0| 37 20 48 65 77 6c 65 74 | 74 2d 50 61 63 6b 61 72 |7 Hewlet|t-Packar|
|00002bc0| 64 20 43 6f 72 70 6f 72 | 61 74 69 6f 6e 2e 20 41 |d Corpor|ation. A|
|00002bd0| 6c 6c 20 72 69 67 68 74 | 73 20 72 65 73 65 72 76 |ll right|s reserv|
|00002be0| 65 64 2e 0a 58 3b 0a 58 | 3b 20 55 73 65 20 61 6e |ed..X;.X|; Use an|
|00002bf0| 64 20 63 6f 70 79 69 6e | 67 20 6f 66 20 74 68 69 |d copyin|g of thi|
|00002c00| 73 20 73 6f 66 74 77 61 | 72 65 20 61 6e 64 20 70 |s softwa|re and p|
|00002c10| 72 65 70 61 72 61 74 69 | 6f 6e 20 6f 66 20 64 65 |reparati|on of de|
|00002c20| 72 69 76 61 74 69 76 65 | 20 77 6f 72 6b 73 20 62 |rivative| works b|
|00002c30| 61 73 65 64 0a 58 3b 20 | 75 70 6f 6e 20 74 68 69 |ased.X; |upon thi|
|00002c40| 73 20 73 6f 66 74 77 61 | 72 65 20 61 72 65 20 70 |s softwa|re are p|
|00002c50| 65 72 6d 69 74 74 65 64 | 2e 20 20 41 6e 79 20 64 |ermitted|. Any d|
|00002c60| 69 73 74 72 69 62 75 74 | 69 6f 6e 20 6f 66 20 74 |istribut|ion of t|
|00002c70| 68 69 73 20 73 6f 66 74 | 77 61 72 65 20 6f 72 0a |his soft|ware or.|
|00002c80| 58 3b 20 64 65 72 69 76 | 61 74 69 76 65 20 77 6f |X; deriv|ative wo|
|00002c90| 72 6b 73 20 6d 75 73 74 | 20 63 6f 6d 70 6c 79 20 |rks must| comply |
|00002ca0| 77 69 74 68 20 61 6c 6c | 20 61 70 70 6c 69 63 61 |with all| applica|
|00002cb0| 62 6c 65 20 55 6e 69 74 | 65 64 20 53 74 61 74 65 |ble Unit|ed State|
|00002cc0| 73 20 65 78 70 6f 72 74 | 0a 58 3b 20 63 6f 6e 74 |s export|.X; cont|
|00002cd0| 72 6f 6c 20 6c 61 77 73 | 2e 0a 58 3b 20 0a 58 3b |rol laws|..X; .X;|
|00002ce0| 20 54 68 69 73 20 73 6f | 66 74 77 61 72 65 20 69 | This so|ftware i|
|00002cf0| 73 20 6d 61 64 65 20 61 | 76 61 69 6c 61 62 6c 65 |s made a|vailable|
|00002d00| 20 41 53 20 49 53 2c 20 | 61 6e 64 20 48 65 77 6c | AS IS, |and Hewl|
|00002d10| 65 74 74 2d 50 61 63 6b | 61 72 64 20 43 6f 72 70 |ett-Pack|ard Corp|
|00002d20| 6f 72 61 74 69 6f 6e 20 | 6d 61 6b 65 73 0a 58 3b |oration |makes.X;|
|00002d30| 20 6e 6f 20 77 61 72 72 | 61 6e 74 79 20 61 62 6f | no warr|anty abo|
|00002d40| 75 74 20 74 68 65 20 73 | 6f 66 74 77 61 72 65 2c |ut the s|oftware,|
|00002d50| 20 69 74 73 20 70 65 72 | 66 6f 72 6d 61 6e 63 65 | its per|formance|
|00002d60| 20 6f 72 20 69 74 73 20 | 63 6f 6e 66 6f 72 6d 69 | or its |conformi|
|00002d70| 74 79 20 74 6f 20 61 6e | 79 0a 58 3b 20 73 70 65 |ty to an|y.X; spe|
|00002d80| 63 69 66 69 63 61 74 69 | 6f 6e 2e 0a 58 3b 0a 58 |cificati|on..X;.X|
|00002d90| 3b 20 53 75 67 67 65 73 | 74 69 6f 6e 73 2c 20 63 |; Sugges|tions, c|
|00002da0| 6f 6d 6d 65 6e 74 73 20 | 61 6e 64 20 72 65 71 75 |omments |and requ|
|00002db0| 65 73 74 73 20 66 6f 72 | 20 69 6d 70 72 6f 76 65 |ests for| improve|
|00002dc0| 6d 65 6e 74 20 6d 61 79 | 20 62 65 20 6d 61 69 6c |ment may| be mail|
|00002dd0| 65 64 20 74 6f 0a 58 3b | 20 61 69 77 73 40 68 70 |ed to.X;| aiws@hp|
|00002de0| 6c 61 62 73 2e 48 50 2e | 43 4f 4d 0a 58 0a 58 3b |labs.HP.|COM.X.X;|
|00002df0| 3b 3b 2d 2a 2d 4d 6f 64 | 65 3a 4c 49 53 50 3b 20 |;;-*-Mod|e:LISP; |
|00002e00| 50 61 63 6b 61 67 65 3a | 28 43 4f 20 28 50 43 4c |Package:|(CO (PCL|
|00002e10| 20 4c 49 53 50 29 29 3b | 20 42 61 73 65 3a 31 30 | LISP));| Base:10|
|00002e20| 3b 20 53 79 6e 74 61 78 | 3a 20 43 6f 6d 6d 6f 6e |; Syntax|: Common|
|00002e30| 2d 6c 69 73 70 2d 2a 2d | 0a 58 3b 3b 3b 0a 58 3b |-lisp-*-|.X;;;.X;|
|00002e40| 3b 3b 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;; *****|********|
|00002e50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 58 3b 3b |********|****.X;;|
|00002e90| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00002ea0| 31 39 38 35 20 58 65 72 | 6f 78 20 43 6f 72 70 6f |1985 Xer|ox Corpo|
|00002eb0| 72 61 74 69 6f 6e 2e 20 | 20 41 6c 6c 20 72 69 67 |ration. | All rig|
|00002ec0| 68 74 73 20 72 65 73 65 | 72 76 65 64 2e 0a 58 3b |hts rese|rved..X;|
|00002ed0| 3b 3b 0a 58 3b 3b 3b 20 | 55 73 65 20 61 6e 64 20 |;;.X;;; |Use and |
|00002ee0| 63 6f 70 79 69 6e 67 20 | 6f 66 20 74 68 69 73 20 |copying |of this |
|00002ef0| 73 6f 66 74 77 61 72 65 | 20 61 6e 64 20 70 72 65 |software| and pre|
|00002f00| 70 61 72 61 74 69 6f 6e | 20 6f 66 20 64 65 72 69 |paration| of deri|
|00002f10| 76 61 74 69 76 65 20 77 | 6f 72 6b 73 0a 58 3b 3b |vative w|orks.X;;|
|00002f20| 3b 20 62 61 73 65 64 20 | 75 70 6f 6e 20 74 68 69 |; based |upon thi|
|00002f30| 73 20 73 6f 66 74 77 61 | 72 65 20 61 72 65 20 70 |s softwa|re are p|
|00002f40| 65 72 6d 69 74 74 65 64 | 2e 20 20 41 6e 79 20 64 |ermitted|. Any d|
|00002f50| 69 73 74 72 69 62 75 74 | 69 6f 6e 20 6f 66 20 74 |istribut|ion of t|
|00002f60| 68 69 73 0a 58 3b 3b 3b | 20 73 6f 66 74 77 61 72 |his.X;;;| softwar|
|00002f70| 65 20 6f 72 20 64 65 72 | 69 76 61 74 69 76 65 20 |e or der|ivative |
|00002f80| 77 6f 72 6b 73 20 6d 75 | 73 74 20 63 6f 6d 70 6c |works mu|st compl|
|00002f90| 79 20 77 69 74 68 20 61 | 6c 6c 20 61 70 70 6c 69 |y with a|ll appli|
|00002fa0| 63 61 62 6c 65 20 55 6e | 69 74 65 64 0a 58 3b 3b |cable Un|ited.X;;|
|00002fb0| 3b 20 53 74 61 74 65 73 | 20 65 78 70 6f 72 74 20 |; States| export |
|00002fc0| 63 6f 6e 74 72 6f 6c 20 | 6c 61 77 73 2e 0a 58 3b |control |laws..X;|
|00002fd0| 3b 3b 20 0a 58 3b 3b 3b | 20 54 68 69 73 20 73 6f |;; .X;;;| This so|
|00002fe0| 66 74 77 61 72 65 20 69 | 73 20 6d 61 64 65 20 61 |ftware i|s made a|
|00002ff0| 76 61 69 6c 61 62 6c 65 | 20 41 53 20 49 53 2c 20 |vailable| AS IS, |
|00003000| 61 6e 64 20 58 65 72 6f | 78 20 43 6f 72 70 6f 72 |and Xero|x Corpor|
|00003010| 61 74 69 6f 6e 20 6d 61 | 6b 65 73 20 6e 6f 0a 58 |ation ma|kes no.X|
|00003020| 3b 3b 3b 20 77 61 72 72 | 61 6e 74 79 20 61 62 6f |;;; warr|anty abo|
|00003030| 75 74 20 74 68 65 20 73 | 6f 66 74 77 61 72 65 2c |ut the s|oftware,|
|00003040| 20 69 74 73 20 70 65 72 | 66 6f 72 6d 61 6e 63 65 | its per|formance|
|00003050| 20 6f 72 20 69 74 73 20 | 63 6f 6e 66 6f 72 6d 69 | or its |conformi|
|00003060| 74 79 20 74 6f 20 61 6e | 79 0a 58 3b 3b 3b 20 73 |ty to an|y.X;;; s|
|00003070| 70 65 63 69 66 69 63 61 | 74 69 6f 6e 2e 0a 58 3b |pecifica|tion..X;|
|00003080| 3b 3b 20 0a 58 3b 3b 3b | 20 41 6e 79 20 70 65 72 |;; .X;;;| Any per|
|00003090| 73 6f 6e 20 6f 62 74 61 | 69 6e 69 6e 67 20 61 20 |son obta|ining a |
|000030a0| 63 6f 70 79 20 6f 66 20 | 74 68 69 73 20 73 6f 66 |copy of |this sof|
|000030b0| 74 77 61 72 65 20 69 73 | 20 72 65 71 75 65 73 74 |tware is| request|
|000030c0| 65 64 20 74 6f 20 73 65 | 6e 64 20 74 68 65 69 72 |ed to se|nd their|
|000030d0| 0a 58 3b 3b 3b 20 6e 61 | 6d 65 20 61 6e 64 20 70 |.X;;; na|me and p|
|000030e0| 6f 73 74 20 6f 66 66 69 | 63 65 20 6f 72 20 65 6c |ost offi|ce or el|
|000030f0| 65 63 74 72 6f 6e 69 63 | 20 6d 61 69 6c 20 61 64 |ectronic| mail ad|
|00003100| 64 72 65 73 73 20 74 6f | 3a 0a 58 3b 3b 3b 20 20 |dress to|:.X;;; |
|00003110| 20 43 6f 6d 6d 6f 6e 4c | 6f 6f 70 73 20 43 6f 6f | CommonL|oops Coo|
|00003120| 72 64 69 6e 61 74 6f 72 | 0a 58 3b 3b 3b 20 20 20 |rdinator|.X;;; |
|00003130| 58 65 72 6f 78 20 41 72 | 74 69 66 69 63 61 6c 20 |Xerox Ar|tifical |
|00003140| 49 6e 74 65 6c 6c 69 67 | 65 6e 63 65 20 53 79 73 |Intellig|ence Sys|
|00003150| 74 65 6d 73 0a 58 3b 3b | 3b 20 20 20 32 34 30 30 |tems.X;;|; 2400|
|00003160| 20 48 61 6e 6f 76 65 72 | 20 53 74 2e 0a 58 3b 3b | Hanover| St..X;;|
|00003170| 3b 20 20 20 50 61 6c 6f | 20 41 6c 74 6f 2c 20 43 |; Palo| Alto, C|
|00003180| 41 20 39 34 33 30 33 0a | 58 3b 3b 3b 20 28 6f 72 |A 94303.|X;;; (or|
|00003190| 20 73 65 6e 64 20 41 72 | 70 61 6e 65 74 20 6d 61 | send Ar|panet ma|
|000031a0| 69 6c 20 74 6f 20 43 6f | 6d 6d 6f 6e 4c 6f 6f 70 |il to Co|mmonLoop|
|000031b0| 73 2d 43 6f 6f 72 64 69 | 6e 61 74 6f 72 2e 70 61 |s-Coordi|nator.pa|
|000031c0| 40 58 65 72 6f 78 2e 61 | 72 70 61 29 0a 58 3b 3b |@Xerox.a|rpa).X;;|
|000031d0| 3b 0a 58 3b 3b 3b 20 53 | 75 67 67 65 73 74 69 6f |;.X;;; S|uggestio|
|000031e0| 6e 73 2c 20 63 6f 6d 6d | 65 6e 74 73 20 61 6e 64 |ns, comm|ents and|
|000031f0| 20 72 65 71 75 65 73 74 | 73 20 66 6f 72 20 69 6d | request|s for im|
|00003200| 70 72 6f 76 65 6d 65 6e | 74 73 20 61 72 65 20 61 |provemen|ts are a|
|00003210| 6c 73 6f 20 77 65 6c 63 | 6f 6d 65 2e 0a 58 3b 3b |lso welc|ome..X;;|
|00003220| 3b 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |; ******|********|
|00003230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 58 0a 58 3b |********|***.X.X;|
|00003270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000032a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000032b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 0a |;;;;;;;;|;;;;;;;.|
|000032c0| 58 3b 20 20 50 72 65 6c | 69 6d 69 6e 61 72 69 65 |X; Prel|iminarie|
|000032d0| 73 0a 58 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |s.X;;;;;|;;;;;;;;|
|000032e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000032f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003300| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003310| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003320| 3b 3b 3b 0a 58 0a 58 3b | 3b 3b 54 68 65 20 43 6f |;;;.X.X;|;;The Co|
|00003330| 6d 6d 6f 6e 4f 62 6a 65 | 63 74 73 20 69 6e 74 65 |mmonObje|cts inte|
|00003340| 72 66 61 63 65 20 69 73 | 20 69 6e 20 74 68 65 20 |rface is| in the |
|00003350| 43 4f 4d 4d 4f 4e 2d 4f | 42 4a 45 43 54 53 20 70 |COMMON-O|BJECTS p|
|00003360| 61 63 6b 61 67 65 2e 20 | 57 65 20 6e 65 65 64 0a |ackage. |We need.|
|00003370| 58 3b 3b 3b 20 20 62 6f | 74 68 20 50 43 4c 20 61 |X;;; bo|th PCL a|
|00003380| 6e 64 20 74 68 65 20 43 | 6f 6d 6d 6f 6e 4f 62 6a |nd the C|ommonObj|
|00003390| 65 63 74 73 20 70 61 72 | 73 65 72 2c 20 77 68 69 |ects par|ser, whi|
|000033a0| 63 68 20 69 73 20 69 6e | 20 74 68 65 20 0a 58 3b |ch is in| the .X;|
|000033b0| 3b 20 20 20 43 4f 4d 4d | 4f 4e 2d 4f 42 4a 45 43 |; COMM|ON-OBJEC|
|000033c0| 54 53 2d 50 41 52 53 45 | 52 20 70 61 63 6b 61 67 |TS-PARSE|R packag|
|000033d0| 65 2e 20 4e 6f 74 65 20 | 74 68 61 74 20 50 43 4c |e. Note |that PCL|
|000033e0| 20 69 73 20 61 73 73 75 | 6d 65 64 20 74 6f 20 62 | is assu|med to b|
|000033f0| 65 0a 58 3b 3b 20 20 20 | 6c 6f 61 64 65 64 2e 0a |e.X;; |loaded..|
|00003400| 58 0a 58 28 70 72 6f 76 | 69 64 65 20 22 63 6f 2d |X.X(prov|ide "co-|
|00003410| 6d 61 63 72 6f 73 22 29 | 0a 58 0a 58 28 69 6e 2d |macros")|.X.X(in-|
|00003420| 70 61 63 6b 61 67 65 20 | 27 63 6f 6d 6d 6f 6e 2d |package |'common-|
|00003430| 6f 62 6a 65 63 74 73 20 | 3a 6e 69 63 6b 6e 61 6d |objects |:nicknam|
|00003440| 65 73 20 27 28 63 6f 29 | 20 3a 75 73 65 20 27 28 |es '(co)| :use '(|
|00003450| 6c 69 73 70 20 70 63 6c | 20 77 61 6c 6b 65 72 29 |lisp pcl| walker)|
|00003460| 29 0a 58 0a 58 3b 3b 45 | 78 70 6f 72 74 20 74 68 |).X.X;;E|xport th|
|00003470| 65 73 65 20 73 79 6d 62 | 6f 6c 73 2e 20 54 68 65 |ese symb|ols. The|
|00003480| 79 20 61 72 65 20 74 68 | 65 20 6f 6e 6c 79 20 6f |y are th|e only o|
|00003490| 6e 65 73 20 77 68 69 63 | 68 20 63 6c 69 65 6e 74 |nes whic|h client|
|000034a0| 73 20 73 68 6f 75 6c 64 | 20 73 65 65 2e 0a 58 0a |s should| see..X.|
|000034b0| 58 28 65 78 70 6f 72 74 | 0a 58 20 20 27 28 0a 58 |X(export|.X '(.X|
|000034c0| 20 20 20 20 6d 61 6b 65 | 2d 69 6e 73 74 61 6e 63 | make|-instanc|
|000034d0| 65 0a 58 20 20 20 20 64 | 65 66 69 6e 65 2d 74 79 |e.X d|efine-ty|
|000034e0| 70 65 0a 58 20 20 20 20 | 64 65 66 69 6e 65 2d 6d |pe.X |define-m|
|000034f0| 65 74 68 6f 64 0a 58 20 | 20 20 20 63 61 6c 6c 2d |ethod.X | call-|
|00003500| 6d 65 74 68 6f 64 0a 58 | 20 20 20 20 61 70 70 6c |method.X| appl|
|00003510| 79 2d 6d 65 74 68 6f 64 | 0a 58 20 20 20 20 61 73 |y-method|.X as|
|00003520| 73 69 67 6e 65 64 70 0a | 58 20 20 20 20 75 6e 64 |signedp.|X und|
|00003530| 65 66 69 6e 65 2d 74 79 | 70 65 0a 58 20 20 20 20 |efine-ty|pe.X |
|00003540| 72 65 6e 61 6d 65 2d 74 | 79 70 65 0a 58 20 20 20 |rename-t|ype.X |
|00003550| 20 75 6e 64 65 66 20 41 | 72 74 69 66 69 63 61 6c | undef A|rtifical|
|00003560| 20 49 6e 74 65 6c 6c 69 | 67 65 6e 63 65 20 53 79 | Intelli|gence Sy|
|00003570| 73 74 65 6d 73 0a 58 3b | 3b 3b 20 20 20 32 34 30 |stems.X;|;; 240|
|00003580| 30 20 48 61 6e 6f 76 72 | 61 74 69 6f 6e 2d 70 0a |0 Hanovr|ation-p.|
|00003590| 58 20 20 20 20 73 65 6e | 64 3f 0a 58 20 20 20 20 |X sen|d?.X |
|000035a0| 69 6e 73 74 61 6e 63 65 | 0a 58 20 20 20 20 69 6d |instance|.X im|
|000035b0| 70 6f 72 74 2d 73 70 65 | 63 69 61 6c 69 7a 65 64 |port-spe|cialized|
|000035c0| 2d 66 75 6e 63 74 69 6f | 6e 73 0a 58 20 20 29 0a |-functio|ns.X ).|
|000035d0| 58 29 0a 58 0a 58 3b 3b | 4e 65 65 64 20 50 43 4c |X).X.X;;|Need PCL|
|000035e0| 20 61 6e 64 20 70 61 74 | 63 68 65 73 0a 58 0a 58 | and pat|ches.X.X|
|000035f0| 28 72 65 71 75 69 72 65 | 20 22 70 63 6c 22 29 0a |(require| "pcl").|
|00003600| 58 28 72 65 71 75 69 72 | 65 20 22 70 63 6c 2d 70 |X(requir|e "pcl-p|
|00003610| 61 74 63 68 65 73 22 29 | 0a 58 0a 58 3b 3b 4e 65 |atches")|.X.X;;Ne|
|00003620| 65 64 20 74 68 65 20 70 | 61 72 73 65 72 0a 58 0a |ed the p|arser.X.|
|00003630| 58 28 72 65 71 75 69 72 | 65 20 22 63 6f 2d 70 61 |X(requir|e "co-pa|
|00003640| 72 73 65 22 29 0a 58 0a | 58 3b 3b 55 73 65 20 74 |rse").X.|X;;Use t|
|00003650| 68 65 20 70 61 72 73 65 | 72 27 73 20 70 61 63 6b |he parse|r's pack|
|00003660| 61 67 65 0a 58 0a 58 28 | 75 73 65 2d 70 61 63 6b |age.X.X(|use-pack|
|00003670| 61 67 65 20 27 63 6f 2d | 70 61 72 73 65 72 29 0a |age 'co-|parser).|
|00003680| 58 0a 58 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |X.X;;;;;|;;;;;;;;|
|00003690| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000036a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000036b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000036c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000036d0| 3b 3b 3b 0a 58 3b 20 20 | 43 6f 6e 73 74 61 6e 74 |;;;.X; |Constant|
|000036e0| 20 44 65 66 69 6e 69 74 | 69 6f 6e 0a 58 3b 3b 3b | Definit|ion.X;;;|
|000036f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003700| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003710| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003720| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003730| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 0a 58 0a |;;;;;;;;|;;;;;.X.|
|00003740| 58 3b 3b 3b 4e 65 65 64 | 20 74 68 69 73 20 66 6c |X;;;Need| this fl|
|00003750| 61 67 20 74 6f 20 69 6e | 64 69 63 61 74 65 20 74 |ag to in|dicate t|
|00003760| 68 61 74 20 61 6e 20 69 | 6e 73 74 61 6e 63 65 20 |hat an i|nstance |
|00003770| 76 61 72 69 61 62 6c 65 | 20 69 73 20 75 6e 69 6e |variable| is unin|
|00003780| 69 74 69 61 6c 69 7a 65 | 64 2e 0a 58 0a 58 28 64 |itialize|d..X.X(d|
|00003790| 65 66 63 6f 6e 73 74 61 | 6e 74 20 24 55 4e 49 4e |efconsta|nt $UNIN|
|000037a0| 49 54 49 41 4c 49 5a 45 | 44 2d 56 41 52 49 41 42 |ITIALIZE|D-VARIAB|
|000037b0| 4c 45 2d 46 4c 41 47 20 | 27 4c 49 53 50 3a 3a 2a |LE-FLAG |'LISP::*|
|000037c0| 55 4e 44 45 46 49 4e 45 | 44 2a 29 0a 58 0a 58 3b |UNDEFINE|D*).X.X;|
|000037d0| 3b 4f 66 66 73 65 74 73 | 20 6f 66 20 69 6d 70 6f |;Offsets| of impo|
|000037e0| 72 74 61 6e 74 20 74 68 | 69 6e 67 73 20 69 6e 20 |rtant th|ings in |
|000037f0| 69 6e 73 74 61 6e 63 65 | 73 2e 0a 58 3b 3b 4c 6f |instance|s..X;;Lo|
|00003800| 63 61 74 69 6f 6e 20 6f | 66 20 63 6c 61 73 73 20 |cation o|f class |
|00003810| 6f 62 6a 65 63 74 2e 0a | 58 0a 58 28 64 65 66 63 |object..|X.X(defc|
|00003820| 6f 6e 73 74 61 6e 74 20 | 24 43 4c 41 53 53 2d 4f |onstant |$CLASS-O|
|00003830| 42 4a 45 43 54 2d 49 4e | 44 45 58 20 30 29 0a 58 |BJECT-IN|DEX 0).X|
|00003840| 0a 58 3b 3b 4c 6f 63 61 | 74 69 6f 6e 20 6f 66 20 |.X;;Loca|tion of |
|00003850| 70 6f 69 6e 74 65 72 20 | 74 6f 20 73 65 6c 66 2e |pointer |to self.|
|00003860| 0a 58 0a 58 28 64 65 66 | 63 6f 6e 73 74 61 6e 74 |.X.X(def|constant|
|00003870| 20 24 53 45 4c 46 2d 49 | 4e 44 45 58 20 31 29 0a | $SELF-I|NDEX 1).|
|00003880| 58 0a 58 3b 3b 53 74 61 | 72 74 69 6e 67 20 69 6e |X.X;;Sta|rting in|
|00003890| 64 65 78 20 6f 66 20 70 | 61 72 65 6e 74 73 2e 0a |dex of p|arents..|
|000038a0| 58 0a 58 28 64 65 66 63 | 6f 6e 73 74 61 6e 74 20 |X.X(defc|onstant |
|000038b0| 24 53 54 41 52 54 2d 4f | 46 2d 50 41 52 45 4e 54 |$START-O|F-PARENT|
|000038c0| 53 20 32 29 0a 58 0a 58 | 3b 3b 3b 3b 3b 3b 3b 3b |S 2).X.X|;;;;;;;;|
|000038d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000038e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000038f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003900| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003910| 3b 3b 3b 3b 3b 3b 3b 3b | 0a 58 3b 20 20 53 70 65 |;;;;;;;;|.X; Spe|
|00003920| 63 69 61 6c 20 56 61 72 | 69 61 62 6c 65 20 44 65 |cial Var|iable De|
|00003930| 66 69 6e 69 74 69 6f 6e | 0a 58 3b 3b 3b 3b 3b 3b |finition|.X;;;;;;|
|00003940| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003950| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003960| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003970| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003980| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 0a 58 0a 58 3b 3b |;;;;;;;;|;;.X.X;;|
|00003990| 2a 73 70 65 63 69 61 6c | 2d 66 75 6e 63 74 69 6f |*special|-functio|
|000039a0| 6e 73 2d 6c 69 73 74 2a | 2d 48 6f 6c 64 73 20 61 |ns-list*|-Holds a|
|000039b0| 20 6c 69 73 74 20 6f 66 | 20 75 6e 69 6e 74 65 72 | list of| uninter|
|000039c0| 6e 65 64 20 73 79 6d 62 | 6f 6c 73 20 66 6f 72 20 |ned symb|ols for |
|000039d0| 54 59 50 45 2d 4f 46 2c | 0a 58 3b 3b 20 20 54 59 |TYPE-OF,|.X;; TY|
|000039e0| 50 45 50 2c 20 45 51 4c | 2c 20 45 51 55 41 4c 2c |PEP, EQL|, EQUAL,|
|000039f0| 20 61 6e 64 20 45 51 55 | 41 4c 50 2e 20 54 68 65 | and EQU|ALP. The|
|00003a00| 73 65 20 73 79 6d 62 6f | 6c 73 20 68 61 76 65 20 |se symbo|ls have |
|00003a10| 74 68 65 69 72 20 66 75 | 6e 63 74 69 6f 6e 20 63 |their fu|nction c|
|00003a20| 65 6c 6c 73 0a 58 3b 3b | 20 20 62 6f 75 6e 64 20 |ells.X;;| bound |
|00003a30| 74 6f 20 73 70 65 63 69 | 61 6c 20 66 75 6e 63 74 |to speci|al funct|
|00003a40| 69 6f 6e 73 20 77 68 69 | 63 68 20 75 73 65 20 43 |ions whi|ch use C|
|00003a50| 6f 6d 6d 6f 6e 4f 62 6a | 65 63 74 73 20 6d 65 73 |ommonObj|ects mes|
|00003a60| 73 61 67 69 6e 67 20 69 | 66 20 74 68 65 0a 58 3b |saging i|f the.X;|
|00003a70| 3b 20 20 61 72 67 75 6d | 65 6e 74 20 69 73 20 61 |; argum|ent is a|
|00003a80| 20 43 6f 6d 6d 6f 6e 4f | 62 6a 65 63 74 73 20 6f | CommonO|bjects o|
|00003a90| 62 6a 65 63 74 2e 0a 58 | 0a 58 28 64 65 66 76 61 |bject..X|.X(defva|
|00003aa0| 72 20 2a 73 70 65 63 69 | 61 6c 2d 66 75 6e 63 74 |r *speci|al-funct|
|00003ab0| 69 6f 6e 73 2d 6c 69 73 | 74 2a 0a 58 20 20 28 6c |ions-lis|t*.X (l|
|00003ac0| 69 73 74 0a 58 20 20 20 | 20 28 63 6f 6e 73 20 27 |ist.X | (cons '|
|00003ad0| 3a 74 79 70 65 2d 6f 66 | 20 28 6d 61 6b 65 2d 73 |:type-of| (make-s|
|00003ae0| 79 6d 62 6f 6c 20 22 54 | 59 50 45 2d 4f 46 22 29 |ymbol "T|YPE-OF")|
|00003af0| 29 0a 58 20 20 20 20 28 | 63 6f 6e 73 20 27 3a 74 |).X (|cons ':t|
|00003b00| 79 70 65 70 20 28 6d 61 | 6b 65 2d 73 79 6d 62 6f |ypep (ma|ke-symbo|
|00003b10| 6c 20 22 54 59 50 45 50 | 22 29 29 0a 58 20 20 20 |l "TYPEP|")).X |
|00003b20| 20 28 63 6f 6e 73 20 27 | 3a 65 71 6c 20 28 6d 61 | (cons '|:eql (ma|
|00003b30| 6b 65 2d 73 79 6d 62 6f | 6c 20 22 45 51 4c 22 29 |ke-symbo|l "EQL")|
|00003b40| 29 0a 58 20 20 20 20 28 | 63 6f 6e 73 20 27 3a 65 |).X (|cons ':e|
|00003b50| 71 75 61 6c 20 28 6d 61 | 6b 65 2d 73 79 6d 62 6f |qual (ma|ke-symbo|
|00003b60| 6c 20 22 45 51 55 41 4c | 22 29 29 0a 58 20 20 20 |l "EQUAL|")).X |
|00003b70| 20 28 63 6f 6e 73 20 27 | 3a 65 71 75 61 6c 70 20 | (cons '|:equalp |
|00003b80| 28 6d 61 6b 65 2d 73 79 | 6d 62 6f 6c 20 22 45 51 |(make-sy|mbol "EQ|
|00003b90| 55 41 4c 50 22 29 29 0a | 58 20 20 29 0a 58 29 0a |UALP")).|X ).X).|
|00003ba0| 58 0a 58 3b 3b 2a 75 6e | 69 76 65 72 73 61 6c 2d |X.X;;*un|iversal-|
|00003bb0| 6d 65 74 68 6f 64 73 2a | 2d 4c 69 73 74 20 6f 66 |methods*|-List of|
|00003bc0| 20 75 6e 69 76 65 72 73 | 61 6c 20 6d 65 74 68 6f | univers|al metho|
|00003bd0| 64 73 0a 58 0a 58 28 64 | 65 66 76 61 72 20 2a 75 |ds.X.X(d|efvar *u|
|00003be0| 6e 69 76 65 72 73 61 6c | 2d 6d 65 74 68 6f 64 73 |niversal|-methods|
|00003bf0| 2a 0a 58 20 20 27 28 0a | 58 20 20 20 20 3a 69 6e |*.X '(.|X :in|
|00003c00| 69 74 0a 58 20 20 20 20 | 3a 69 6e 69 74 69 61 6c |it.X |:initial|
|00003c10| 69 7a 65 0a 58 20 20 20 | 20 3a 70 72 69 6e 74 0a |ize.X | :print.|
|00003c20| 58 20 20 20 20 3a 64 65 | 73 63 72 69 62 65 0a 58 |X :de|scribe.X|
|00003c30| 20 20 20 20 3a 65 71 6c | 0a 58 20 20 20 20 3a 65 | :eql|.X :e|
|00003c40| 71 75 61 6c 0a 58 20 20 | 20 20 3a 65 71 75 61 6c |qual.X | :equal|
|00003c50| 70 0a 58 20 20 20 20 3a | 74 79 70 65 70 0a 58 20 |p.X :|typep.X |
|00003c60| 20 20 20 3a 63 6f 70 79 | 0a 58 20 20 20 20 3a 63 | :copy|.X :c|
|00003c70| 6f 70 79 2d 69 6e 73 74 | 61 6e 63 65 0a 58 20 20 |opy-inst|ance.X |
|00003c80| 20 20 3a 63 6f 70 79 2d | 73 74 61 74 65 20 0a 58 | :copy-|state .X|
|00003c90| 20 20 29 0a 58 29 0a 58 | 0a 58 3b 3b 2a 75 6e 69 | ).X).X|.X;;*uni|
|00003ca0| 76 65 72 73 61 6c 2d 6d | 65 74 68 6f 64 2d 73 65 |versal-m|ethod-se|
|00003cb0| 6c 65 63 74 6f 72 73 2a | 2d 4c 69 73 74 20 6f 66 |lectors*|-List of|
|00003cc0| 20 73 65 6c 65 63 74 6f | 72 73 20 66 6f 72 20 75 | selecto|rs for u|
|00003cd0| 6e 69 76 65 72 73 61 6c | 0a 58 3b 3b 20 20 6d 65 |niversal|.X;; me|
|00003ce0| 74 68 6f 64 73 0a 58 0a | 58 28 64 65 66 76 61 72 |thods.X.|X(defvar|
|00003cf0| 20 2a 75 6e 69 76 65 72 | 73 61 6c 2d 6d 65 74 68 | *univer|sal-meth|
|00003d00| 6f 64 2d 73 65 6c 65 63 | 74 6f 72 73 2a 20 4e 49 |od-selec|tors* NI|
|00003d10| 4c 29 0a 58 0a 58 3b 3b | 2a 6b 65 79 77 6f 72 64 |L).X.X;;|*keyword|
|00003d20| 2d 73 74 61 6e 64 69 6e | 2d 70 61 63 6b 61 67 65 |-standin|-package|
|00003d30| 2a 2d 50 61 63 6b 61 67 | 65 20 66 6f 72 20 69 6e |*-Packag|e for in|
|00003d40| 74 65 72 6e 69 6e 67 20 | 6d 65 74 68 6f 64 73 20 |terning |methods |
|00003d50| 61 73 20 66 75 6e 63 74 | 69 6f 6e 73 2e 0a 58 3b |as funct|ions..X;|
|00003d60| 3b 20 20 43 6f 6d 6d 6f | 6e 4f 62 6a 65 63 74 73 |; Commo|nObjects|
|00003d70| 20 22 65 6e 63 6f 75 72 | 61 67 65 73 22 20 74 68 | "encour|ages" th|
|00003d80| 65 20 75 73 65 20 6f 66 | 20 6b 65 79 77 6f 72 64 |e use of| keyword|
|00003d90| 73 20 61 73 20 6d 65 74 | 68 6f 64 20 6e 61 6d 65 |s as met|hod name|
|00003da0| 73 2c 0a 58 3b 3b 20 20 | 62 75 74 20 6e 6f 74 20 |s,.X;; |but not |
|00003db0| 61 6c 6c 20 43 4c 27 73 | 20 61 6c 6c 6f 77 20 6b |all CL's| allow k|
|00003dc0| 65 79 77 6f 72 64 20 73 | 79 6d 62 6f 6c 20 66 75 |eyword s|ymbol fu|
|00003dd0| 6e 63 74 69 6f 6e 20 63 | 65 6c 6c 73 20 74 6f 20 |nction c|ells to |
|00003de0| 62 65 0a 58 3b 3b 20 20 | 6f 63 63 75 70 69 65 64 |be.X;; |occupied|
|00003df0| 2e 0a 58 0a 58 28 65 76 | 61 6c 2d 77 68 65 6e 20 |..X.X(ev|al-when |
|00003e00| 28 63 6f 6d 70 69 6c 65 | 20 6c 6f 61 64 20 65 76 |(compile| load ev|
|00003e10| 61 6c 29 0a 58 20 20 28 | 64 65 66 76 61 72 20 2a |al).X (|defvar *|
|00003e20| 6b 65 79 77 6f 72 64 2d | 73 74 61 6e 64 69 6e 2d |keyword-|standin-|
|00003e30| 70 61 63 6b 61 67 65 2a | 20 0a 58 20 20 20 20 28 |package*| .X (|
|00003e40| 6f 72 20 28 66 69 6e 64 | 2d 70 61 63 6b 61 67 65 |or (find|-package|
|00003e50| 20 27 6b 65 79 77 6f 72 | 64 2d 73 74 61 6e 64 69 | 'keywor|d-standi|
|00003e60| 6e 29 20 28 6d 61 6b 65 | 2d 70 61 63 6b 61 67 65 |n) (make|-package|
|00003e70| 20 27 6b 65 79 77 6f 72 | 64 2d 73 74 61 6e 64 69 | 'keywor|d-standi|
|00003e80| 6e 29 29 0a 58 20 20 29 | 0a 58 29 0a 58 0a 58 3b |n)).X )|.X).X.X;|
|00003e90| 3b 3b 55 6e 75 73 65 20 | 74 68 65 20 6c 69 73 70 |;;Unuse |the lisp|
|00003ea0| 20 70 61 63 6b 61 67 65 | 20 69 6e 20 74 68 65 20 | package| in the |
|00003eb0| 6b 65 79 77 6f 72 64 2d | 73 74 61 6e 64 69 6e 20 |keyword-|standin |
|00003ec0| 70 61 63 6b 61 67 65 2c | 20 74 6f 0a 58 3b 3b 3b |package,| to.X;;;|
|00003ed0| 20 20 61 76 6f 69 64 20 | 63 6f 6e 66 6c 69 63 74 | avoid |conflict|
|00003ee0| 73 20 77 69 74 68 20 6e | 61 6d 65 64 20 66 75 6e |s with n|amed fun|
|00003ef0| 63 74 69 6f 6e 73 2e 0a | 58 0a 58 28 75 6e 75 73 |ctions..|X.X(unus|
|00003f00| 65 2d 70 61 63 6b 61 67 | 65 20 27 6c 69 73 70 20 |e-packag|e 'lisp |
|00003f10| 2a 6b 65 79 77 6f 72 64 | 2d 73 74 61 6e 64 69 6e |*keyword|-standin|
|00003f20| 2d 70 61 63 6b 61 67 65 | 2a 29 0a 58 0a 58 3b 3b |-package|*).X.X;;|
|00003f30| 2a 73 70 65 63 69 61 6c | 2d 6d 65 74 68 6f 64 2d |*special|-method-|
|00003f40| 73 79 6d 62 6f 6c 73 2a | 2d 4c 69 73 74 20 6f 66 |symbols*|-List of|
|00003f50| 20 73 70 65 63 69 61 6c | 20 6d 65 74 68 6f 64 20 | special| method |
|00003f60| 73 79 6d 62 6f 6c 73 20 | 77 68 69 63 68 20 0a 58 |symbols |which .X|
|00003f70| 3b 3b 20 20 73 68 6f 75 | 6c 64 6e 27 74 20 67 6f |;; shou|ldn't go|
|00003f80| 20 69 6e 74 6f 20 74 68 | 65 20 6b 65 79 77 6f 72 | into th|e keywor|
|00003f90| 64 2d 73 74 61 6e 64 69 | 6e 20 70 61 63 6b 61 67 |d-standi|n packag|
|00003fa0| 65 2c 20 70 61 69 72 65 | 64 20 77 69 74 68 0a 58 |e, paire|d with.X|
|00003fb0| 3b 3b 20 20 74 68 65 69 | 72 20 6d 65 74 68 6f 64 |;; thei|r method|
|00003fc0| 20 6e 61 6d 65 73 2e 0a | 58 0a 58 28 64 65 66 76 | names..|X.X(defv|
|00003fd0| 61 72 20 2a 73 70 65 63 | 69 61 6c 2d 6d 65 74 68 |ar *spec|ial-meth|
|00003fe0| 6f 64 2d 73 79 6d 62 6f | 6c 73 2a 20 0a 58 20 20 |od-symbo|ls* .X |
|00003ff0| 28 6c 69 73 74 0a 58 20 | 20 20 20 20 20 28 63 6f |(list.X | (co|
|00004000| 6e 73 20 27 3a 70 72 69 | 6e 74 20 27 70 72 69 6e |ns ':pri|nt 'prin|
|00004010| 74 2d 69 6e 73 74 61 6e | 63 65 29 0a 58 20 20 29 |t-instan|ce).X )|
|00004020| 0a 58 29 0a 58 0a 58 3b | 3b 3b 3b 3b 3b 3b 3b 3b |.X).X.X;|;;;;;;;;|
|00004030| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004040| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004050| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004060| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004070| 3b 3b 3b 3b 3b 3b 3b 0a | 58 3b 20 0a 58 3b 09 53 |;;;;;;;.|X; .X;.S|
|00004080| 75 70 70 6f 72 74 20 66 | 6f 72 20 55 73 69 6e 67 |upport f|or Using|
|00004090| 20 4b 65 79 77 6f 72 64 | 73 20 61 73 20 4d 65 74 | Keyword|s as Met|
|000040a0| 68 6f 64 20 4e 61 6d 65 | 73 0a 58 3b 0a 58 3b 20 |hod Name|s.X;.X; |
|000040b0| 20 54 68 65 73 65 20 6d | 61 63 72 6f 73 20 61 6e | These m|acros an|
|000040c0| 64 20 66 75 6e 63 74 69 | 6f 6e 73 20 74 72 61 6e |d functi|ons tran|
|000040d0| 73 6c 61 74 65 20 6b 65 | 79 77 6f 72 64 20 6d 65 |slate ke|yword me|
|000040e0| 74 68 6f 64 20 6e 61 6d | 65 73 20 69 6e 74 6f 0a |thod nam|es into.|
|000040f0| 58 3b 20 20 6e 61 6d 65 | 73 20 69 6e 20 61 20 70 |X; name|s in a p|
|00004100| 61 63 6b 61 67 65 2e 20 | 53 6f 6d 65 20 43 6f 6d |ackage. |Some Com|
|00004110| 6d 6f 6e 20 4c 69 73 70 | 73 20 64 6f 20 61 6c 6c |mon Lisp|s do all|
|00004120| 6f 77 20 6b 65 79 77 6f | 72 64 20 73 79 6d 62 6f |ow keywo|rd symbo|
|00004130| 6c 73 0a 58 3b 20 20 74 | 6f 20 68 61 76 65 20 61 |ls.X; t|o have a|
|00004140| 6e 20 61 73 73 6f 63 69 | 61 74 65 64 20 66 75 6e |n associ|ated fun|
|00004150| 63 74 69 6f 6e 2c 20 6f | 74 68 65 72 73 20 64 6f |ction, o|thers do|
|00004160| 6e 27 74 2e 20 52 61 74 | 68 65 72 20 74 68 61 6e |n't. Rat|her than|
|00004170| 0a 58 3b 20 20 64 69 66 | 66 65 72 65 6e 74 69 61 |.X; dif|ferentia|
|00004180| 74 69 6e 67 2c 20 61 20 | 73 69 6e 67 6c 65 20 70 |ting, a |single p|
|00004190| 61 63 6b 61 67 65 2c 20 | 4b 45 59 57 4f 52 44 2d |ackage, |KEYWORD-|
|000041a0| 53 54 41 4e 44 49 4e 2c | 20 69 73 20 75 73 65 64 |STANDIN,| is used|
|000041b0| 0a 58 3b 20 20 66 6f 72 | 20 6d 65 74 68 6f 64 20 |.X; for| method |
|000041c0| 73 79 6d 62 6f 6c 73 20 | 77 68 69 63 68 20 61 72 |symbols |which ar|
|000041d0| 65 20 6b 65 79 77 6f 72 | 64 73 2e 0a 58 3b 0a 58 |e keywor|ds..X;.X|
|000041e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000041f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004200| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004210| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004220| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004230| 0a 58 0a 58 3b 3b 73 70 | 65 63 69 61 6c 2d 6b 65 |.X.X;;sp|ecial-ke|
|00004240| 79 77 6f 72 64 2d 70 2d | 52 65 74 75 72 6e 20 54 |yword-p-|Return T|
|00004250| 20 69 66 20 74 68 65 20 | 6b 65 79 77 6f 72 64 20 | if the |keyword |
|00004260| 69 73 20 61 20 73 70 65 | 63 69 61 6c 20 6d 65 74 |is a spe|cial met|
|00004270| 68 6f 64 0a 58 3b 3b 20 | 20 73 79 6d 62 6f 6c 2e |hod.X;; | symbol.|
|00004280| 0a 58 0a 58 28 64 65 66 | 6d 61 63 72 6f 20 73 70 |.X.X(def|macro sp|
|00004290| 65 63 69 61 6c 2d 6b 65 | 79 77 6f 72 64 2d 70 20 |ecial-ke|yword-p |
|000042a0| 28 6b 65 79 77 6f 72 64 | 29 0a 58 20 20 60 28 61 |(keyword|).X `(a|
|000042b0| 73 73 6f 63 20 2c 6b 65 | 79 77 6f 72 64 20 2a 73 |ssoc ,ke|yword *s|
|000042c0| 70 65 63 69 61 6c 2d 6d | 65 74 68 6f 64 2d 73 79 |pecial-m|ethod-sy|
|000042d0| 6d 62 6f 6c 73 2a 20 3a | 74 65 73 74 20 23 27 65 |mbols* :|test #'e|
|000042e0| 71 29 0a 58 0a 58 29 20 | 3b 65 6e 64 20 73 70 65 |q).X.X) |;end spe|
|000042f0| 63 69 61 6c 2d 6b 65 79 | 77 6f 72 64 2d 70 0a 58 |cial-key|word-p.X|
|00004300| 0a 58 3b 3b 6b 65 79 77 | 6f 72 64 2d 73 74 61 6e |.X;;keyw|ord-stan|
|00004310| 64 69 6e 2d 73 70 65 63 | 69 61 6c 2d 52 65 74 75 |din-spec|ial-Retu|
|00004320| 72 6e 20 74 68 65 20 73 | 70 65 63 69 61 6c 20 73 |rn the s|pecial s|
|00004330| 79 6d 62 6f 6c 20 66 6f | 72 20 74 68 69 73 0a 58 |ymbol fo|r this.X|
|00004340| 3b 3b 20 20 6b 65 79 77 | 6f 72 64 2e 0a 58 0a 58 |;; keyw|ord..X.X|
|00004350| 28 64 65 66 6d 61 63 72 | 6f 20 6b 65 79 77 6f 72 |(defmacr|o keywor|
|00004360| 64 2d 73 74 61 6e 64 69 | 6e 2d 73 70 65 63 69 61 |d-standi|n-specia|
|00004370| 6c 20 28 6b 65 79 77 6f | 72 64 29 0a 58 20 20 60 |l (keywo|rd).X `|
|00004380| 28 63 64 72 20 28 61 73 | 73 6f 63 20 2c 6b 65 79 |(cdr (as|soc ,key|
|00004390| 77 6f 72 64 20 2a 73 70 | 65 63 69 61 6c 2d 6d 65 |word *sp|ecial-me|
|000043a0| 74 68 6f 64 2d 73 79 6d | 62 6f 6c 73 2a 20 3a 74 |thod-sym|bols* :t|
|000043b0| 65 73 74 20 23 27 65 71 | 29 29 0a 58 0a 58 29 20 |est #'eq|)).X.X) |
|000043c0| 3b 65 6e 64 20 6b 65 79 | 77 6f 72 64 2d 73 74 61 |;end key|word-sta|
|000043d0| 6e 64 69 6e 2d 73 70 65 | 63 69 61 6c 0a 58 0a 58 |ndin-spe|cial.X.X|
|000043e0| 3b 3b 73 70 65 63 69 61 | 6c 2d 6d 65 74 68 6f 64 |;;specia|l-method|
|000043f0| 2d 70 2d 52 65 74 75 72 | 6e 20 54 20 69 66 20 74 |-p-Retur|n T if t|
|00004400| 68 65 20 73 79 6d 62 6f | 6c 20 69 73 20 61 20 73 |he symbo|l is a s|
|00004410| 70 65 63 69 61 6c 20 6d | 65 74 68 6f 64 0a 58 3b |pecial m|ethod.X;|
|00004420| 3b 20 20 73 79 6d 62 6f | 6c 2e 0a 58 0a 58 28 64 |; symbo|l..X.X(d|
|00004430| 65 66 6d 61 63 72 6f 20 | 73 70 65 63 69 61 6c 2d |efmacro |special-|
|00004440| 6d 65 74 68 6f 64 2d 70 | 20 28 73 79 6d 62 6f 6c |method-p| (symbol|
|00004450| 29 0a 58 20 20 60 28 72 | 61 73 73 6f 63 20 2c 73 |).X `(r|assoc ,s|
|00004460| 79 6d 62 6f 6c 20 2a 73 | 70 65 63 69 61 6c 2d 6d |ymbol *s|pecial-m|
|00004470| 65 74 68 6f 64 2d 73 79 | 6d 62 6f 6c 73 2a 20 3a |ethod-sy|mbols* :|
|00004480| 74 65 73 74 20 23 27 65 | 71 29 0a 58 0a 58 29 20 |test #'e|q).X.X) |
|00004490| 3b 65 6e 64 20 73 70 65 | 63 69 61 6c 2d 6d 65 74 |;end spe|cial-met|
|000044a0| 68 6f 64 2d 70 0a 58 0a | 58 3b 3b 75 6e 6b 65 79 |hod-p.X.|X;;unkey|
|000044b0| 77 6f 72 64 2d 73 74 61 | 6e 64 69 6e 2d 73 70 65 |word-sta|ndin-spe|
|000044c0| 63 69 61 6c 2d 52 65 74 | 75 72 6e 20 74 68 65 20 |cial-Ret|urn the |
|000044d0| 6b 65 79 77 6f 72 64 20 | 66 6f 72 20 74 68 69 73 |keyword |for this|
|000044e0| 0a 58 3b 3b 20 20 73 70 | 65 63 69 61 6c 20 6d 65 |.X;; sp|ecial me|
|000044f0| 74 68 6f 64 0a 58 0a 58 | 28 64 65 66 6d 61 63 72 |thod.X.X|(defmacr|
|00004500| 6f 20 75 6e 6b 65 79 77 | 6f 72 64 2d 73 74 61 6e |o unkeyw|ord-stan|
|00004510| 64 69 6e 2d 73 70 65 63 | 69 61 6c 20 28 73 79 6d |din-spec|ial (sym|
|00004520| 62 6f 6c 29 0a 58 20 20 | 60 28 63 61 72 20 28 72 |bol).X |`(car (r|
|00004530| 61 73 73 6f 63 20 2c 73 | 79 6d 62 6f 6c 20 2a 73 |assoc ,s|ymbol *s|
|00004540| 70 65 63 69 61 6c 2d 6d | 65 74 68 6f 64 2d 73 79 |pecial-m|ethod-sy|
|00004550| 6d 62 6f 6c 73 2a 20 3a | 74 65 73 74 20 23 27 65 |mbols* :|test #'e|
|00004560| 71 29 29 0a 58 0a 58 29 | 20 3b 65 6e 64 20 75 6e |q)).X.X)| ;end un|
|00004570| 6b 65 79 77 6f 72 64 2d | 73 74 61 6e 64 69 6e 2d |keyword-|standin-|
|00004580| 73 70 65 63 69 61 6c 0a | 58 0a 58 3b 3b 6b 65 79 |special.|X.X;;key|
|00004590| 77 6f 72 64 2d 73 74 61 | 6e 64 69 6e 2d 47 65 74 |word-sta|ndin-Get|
|000045a0| 20 61 20 73 74 61 6e 64 | 69 6e 20 73 79 6d 62 6f | a stand|in symbo|
|000045b0| 6c 20 66 6f 72 20 61 20 | 6b 65 79 77 6f 72 64 0a |l for a |keyword.|
|000045c0| 58 0a 58 3b 3b 3b 20 65 | 6e 64 20 6f 66 20 63 6f |X.X;;; e|nd of co|
|000045d0| 2d 6d 61 63 72 6f 73 2e | 6c 20 3b 3b 3b 3b 3b 0a |-macros.|l ;;;;;.|
|000045e0| 58 0a 45 4e 44 5f 4f 46 | 5f 46 49 4c 45 0a 69 66 |X.END_OF|_FILE.if|
|000045f0| 20 74 65 73 74 20 37 31 | 30 33 20 2d 6e 65 20 60 | test 71|03 -ne `|
|00004600| 77 63 20 2d 63 20 3c 27 | 63 6f 2d 6d 61 63 72 6f |wc -c <'|co-macro|
|00004610| 73 2e 6c 27 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |s.l'`; t|hen. |
|00004620| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 27 63 6f |echo sha|r: \"'co|
|00004630| 2d 6d 61 63 72 6f 73 2e | 6c 27 5c 22 20 75 6e 70 |-macros.|l'\" unp|
|00004640| 61 63 6b 65 64 20 77 69 | 74 68 20 77 72 6f 6e 67 |acked wi|th wrong|
|00004650| 20 73 69 7a 65 21 0a 66 | 69 0a 23 20 65 6e 64 20 | size!.f|i.# end |
|00004660| 6f 66 20 27 63 6f 2d 6d | 61 63 72 6f 73 2e 6c 27 |of 'co-m|acros.l'|
|00004670| 0a 66 69 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |.fi.if t|est -f '|
|00004680| 63 6f 2d 70 72 6f 66 2e | 6c 27 20 2d 61 20 22 24 |co-prof.|l' -a "$|
|00004690| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|000046a0| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen . e|cho shar|
|000046b0| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 63 6c 6f 62 62 |: Will n|ot clobb|
|000046c0| 65 72 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |er exist|ing file|
|000046d0| 20 5c 22 27 63 6f 2d 70 | 72 6f 66 2e 6c 27 5c 22 | \"'co-p|rof.l'\"|
|000046e0| 0a 65 6c 73 65 0a 65 63 | 68 6f 20 73 68 61 72 3a |.else.ec|ho shar:|
|000046f0| 20 45 78 74 72 61 63 74 | 69 6e 67 20 5c 22 27 63 | Extract|ing \"'c|
|00004700| 6f 2d 70 72 6f 66 2e 6c | 27 5c 22 20 5c 28 35 34 |o-prof.l|'\" \(54|
|00004710| 31 32 20 63 68 61 72 61 | 63 74 65 72 73 5c 29 0a |12 chara|cters\).|
|00004720| 73 65 64 20 22 73 2f 5e | 58 2f 2f 22 20 3e 27 63 |sed "s/^|X//" >'c|
|00004730| 6f 2d 70 72 6f 66 2e 6c | 27 20 3c 3c 27 45 4e 44 |o-prof.l|' <<'END|
|00004740| 5f 4f 46 5f 46 49 4c 45 | 27 0a 58 0a 58 3b 3b 3b |_OF_FILE|'.X.X;;;|
|00004750| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004760| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004770| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004780| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00004790| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 0a 58 3b |;;;;;;;;|;;;;;.X;|
|000047a0| 0a 58 3b 20 46 69 6c 65 | 3a 20 20 20 20 20 20 20 |.X; File|: |
|000047b0| 20 20 63 6f 2d 70 72 6f | 66 2e 6c 0a 58 3b 20 53 | co-pro|f.l.X; S|
|000047c0| 43 43 53 3a 20 20 20 20 | 20 20 20 20 20 25 41 25 |CCS: | %A%|
|000047d0| 20 25 47 25 20 25 55 25 | 0a 58 3b 20 44 65 73 63 | %G% %U%|.X; Desc|
|000047e0| 72 69 70 74 69 6f 6e 3a | 20 20 50 72 6f 66 69 6c |ription:| Profil|
|000047f0| 69 6e 67 20 46 6f 72 20 | 43 4f 4f 4c 0a 58 3b 20 |ing For |COOL.X; |
|00004800| 41 75 74 68 6f 72 3a 20 | 20 20 20 20 20 20 4a 61 |Author: | Ja|
|00004810| 6d 65 73 20 4b 65 6d 70 | 66 2c 20 48 50 2f 44 43 |mes Kemp|f, HP/DC|
|00004820| 43 0a 58 3b 20 43 72 65 | 61 74 65 64 3a 20 20 20 |C.X; Cre|ated: |
|00004830| 20 20 20 31 30 2d 46 65 | 62 2d 38 37 0a 58 3b 20 | 10-Fe|b-87.X; |
|00004840| 4d 6f 64 69 66 69 65 64 | 3a 20 20 20 20 20 32 35 |Modified|: 25|
|00004850| 2d 46 65 62 2d 38 37 20 | 31 30 3a 35 31 3a 33 31 |-Feb-87 |10:51:31|
|00004860| 20 28 4a 61 6d 65 73 20 | 4b 65 6d 70 66 29 0a 58 | (James |Kempf).X|
|00004870| 3b 20 4c 61 6e 67 75 61 | 67 65 3a 20 20 20 20 20 |; Langua|ge: |
|00004880| 4c 69 73 70 0a 58 3b 20 | 50 61 63 6b 61 67 65 3a |Lisp.X; |Package:|
|00004890| 20 20 20 20 20 20 54 45 | 53 54 0a 58 3b 0a 58 3b | TE|ST.X;.X;|
|000048a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000048b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000048c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000048d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000048e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 0a |;;;;;;;;|;;;;;;;.|
|000048f0| 58 0a 58 28 69 6e 2d 70 | 61 63 6b 61 67 65 20 27 |X.X(in-p|ackage '|
|00004900| 74 65 73 74 29 0a 58 0a | 58 28 72 65 71 75 69 72 |test).X.|X(requir|
|00004910| 65 20 22 63 6f 22 29 0a | 58 0a 58 28 75 73 65 2d |e "co").|X.X(use-|
|00004920| 70 61 63 6b 61 67 65 20 | 27 63 6f 29 0a 58 0a 58 |package |'co).X.X|
|00004930| 28 72 65 71 75 69 72 65 | 20 22 63 6f 2d 70 72 6f |(require| "co-pro|
|00004940| 66 6d 61 63 73 22 29 0a | 58 0a 58 3b 3b 43 6f 6c |fmacs").|X.X;;Col|
|00004950| 6c 65 63 74 69 6f 6e 20 | 56 61 72 69 61 62 6c 65 |lection |Variable|
|00004960| 20 66 6f 72 20 54 65 73 | 74 20 46 75 6e 63 74 69 | for Tes|t Functi|
|00004970| 6f 6e 73 0a 58 0a 58 28 | 64 65 66 76 61 72 20 2a |ons.X.X(|defvar *|
|00004980| 66 75 6e 63 74 69 6f 6e | 2d 73 79 6d 62 6f 6c 73 |function|-symbols|
|00004990| 2a 20 4e 49 4c 29 0a 58 | 0a 58 3b 3b 44 65 66 61 |* NIL).X|.X;;Defa|
|000049a0| 75 6c 74 20 6e 61 6d 65 | 73 20 66 6f 72 20 6f 75 |ult name|s for ou|
|000049b0| 74 70 75 74 20 66 69 6c | 65 20 61 6e 64 20 6f 75 |tput fil|e and ou|
|000049c0| 74 70 75 74 20 6d 65 73 | 73 61 67 65 73 2e 0a 58 |tput mes|sages..X|
|000049d0| 3b 3b 20 20 43 61 6e 20 | 62 65 20 6f 76 65 72 72 |;; Can |be overr|
|000049e0| 69 64 64 65 6e 20 62 65 | 66 6f 72 65 20 74 68 69 |idden be|fore thi|
|000049f0| 73 20 66 69 6c 65 20 69 | 73 20 6c 6f 61 64 65 64 |s file i|s loaded|
|00004a00| 2e 0a 58 0a 58 28 64 65 | 66 76 61 72 20 2a 6f 75 |..X.X(de|fvar *ou|
|00004a10| 74 70 75 74 2d 66 69 6c | 65 2d 6e 61 6d 65 2a 20 |tput-fil|e-name* |
|00004a20| 22 72 75 6e 70 72 6f 66 | 2e 6f 75 74 22 29 0a 58 |"runprof|.out").X|
|00004a30| 28 64 65 66 76 61 72 20 | 2a 64 65 66 69 6e 69 74 |(defvar |*definit|
|00004a40| 69 6f 6e 2d 6d 65 73 73 | 61 67 65 2a 20 22 43 4f |ion-mess|age* "CO|
|00004a50| 4f 4c 20 44 65 66 69 6e | 69 74 69 6f 6e 20 52 65 |OL Defin|ition Re|
|00004a60| 73 75 6c 74 73 22 29 0a | 58 28 64 65 66 76 61 72 |sults").|X(defvar|
|00004a70| 20 2a 72 65 64 65 66 69 | 6e 69 74 69 6f 6e 2d 6d | *redefi|nition-m|
|00004a80| 65 73 73 61 67 65 2a 20 | 22 43 4f 4f 4c 20 52 65 |essage* |"COOL Re|
|00004a90| 64 65 66 69 6e 69 74 69 | 6f 6e 20 52 65 73 75 6c |definiti|on Resul|
|00004aa0| 74 73 22 29 0a 58 0a 58 | 3b 3b 52 75 6e 20 65 76 |ts").X.X|;;Run ev|
|00004ab0| 65 72 79 74 68 69 6e 67 | 20 63 6f 6d 70 69 6c 65 |erything| compile|
|00004ac0| 64 20 73 6f 20 74 68 61 | 74 20 62 65 73 74 0a 58 |d so tha|t best.X|
|00004ad0| 3b 3b 20 20 74 69 6d 65 | 73 20 61 72 65 20 6f 62 |;; time|s are ob|
|00004ae0| 74 61 69 6e 65 64 2e 0a | 58 0a 58 3b 3b 4d 65 61 |tained..|X.X;;Mea|
|00004af0| 73 75 72 65 6d 65 6e 74 | 20 6f 66 20 54 79 70 65 |surement| of Type|
|00004b00| 20 44 65 66 69 6e 69 74 | 69 6f 6e 0a 58 0a 58 3b | Definit|ion.X.X;|
|00004b10| 3b 57 61 72 6d 75 70 0a | 58 0a 58 28 64 6f 2d 74 |;Warmup.|X.X(do-t|
|00004b20| 79 70 65 2d 64 65 66 69 | 6e 69 74 69 6f 6e 20 4e |ype-defi|nition N|
|00004b30| 49 4c 20 30 20 30 29 0a | 58 28 63 6f 6d 70 69 6c |IL 0 0).|X(compil|
|00004b40| 65 20 28 66 69 72 73 74 | 20 2a 66 75 6e 63 74 69 |e (first| *functi|
|00004b50| 6f 6e 2d 73 79 6d 62 6f | 6c 73 2a 29 29 0a 58 28 |on-symbo|ls*)).X(|
|00004b60| 66 75 6e 63 61 6c 6c 20 | 28 66 69 72 73 74 20 2a |funcall |(first *|
|00004b70| 66 75 6e 63 74 69 6f 6e | 2d 73 79 6d 62 6f 6c 73 |function|-symbols|
|00004b80| 2a 29 29 0a 58 0a 58 3b | 3b 4e 6f 20 69 6e 73 74 |*)).X.X;|;No inst|
|00004b90| 61 6e 63 65 20 76 61 72 | 69 61 62 6c 65 73 20 61 |ance var|iables a|
|00004ba0| 6e 64 20 6e 6f 20 70 61 | 72 65 6e 74 73 0a 58 0a |nd no pa|rents.X.|
|00004bb0| 58 28 64 6f 2d 74 79 70 | 65 2d 64 65 66 69 6e 69 |X(do-typ|e-defini|
|00004bc0| 74 69 6f 6e 20 54 20 30 | 20 30 29 0a 58 28 63 6f |tion T 0| 0).X(co|
|00004bd0| 6d 70 69 6c 65 20 28 66 | 69 72 73 74 20 2a 66 75 |mpile (f|irst *fu|
|00004be0| 6e 63 74 69 6f 6e 2d 73 | 79 6d 62 6f 6c 73 2a 29 |nction-s|ymbols*)|
|00004bf0| 29 0a 58 28 66 75 6e 63 | 61 6c 6c 20 28 66 69 72 |).X(func|all (fir|
|00004c00| 73 74 20 2a 66 75 6e 63 | 74 69 6f 6e 2d 73 79 6d |st *func|tion-sym|
|00004c10| 62 6f 6c 73 2a 29 29 0a | 58 0a 58 3b 3b 4f 6e 65 |bols*)).|X.X;;One|
|00004c20| 20 69 6e 73 74 61 6e 63 | 65 20 76 61 72 69 61 62 | instanc|e variab|
|00004c30| 6c 65 20 61 6e 64 20 6e | 6f 20 70 61 72 65 6e 74 |le and n|o parent|
|00004c40| 73 0a 58 0a 58 28 64 6f | 2d 74 79 70 65 2d 64 65 |s.X.X(do|-type-de|
|00004c50| 66 69 6e 69 74 69 6f 6e | 20 54 20 31 20 30 29 0a |finition| T 1 0).|
|00004c60| 58 28 63 6f 6d 70 69 6c | 65 20 28 66 69 72 73 74 |X(compil|e (first|
|00004c70| 20 2a 66 75 6e 63 74 69 | 6f 6e 2d 73 79 6d 62 6f | *functi|on-symbo|
|00004c80| 6c 73 2a 29 29 0a 58 28 | 66 75 6e 63 61 6c 6c 20 |ls*)).X(|funcall |
|00004c90| 28 66 69 72 73 74 20 2a | 66 75 6e 63 74 69 6f 6e |(first *|function|
|00004ca0| 2d 73 79 6d 62 6f 6c 73 | 2a 29 29 0a 58 0a 58 3b |-symbols|*)).X.X;|
|00004cb0| 3b 54 77 6f 20 69 6e 73 | 74 61 6e 63 65 20 76 61 |;Two ins|tance va|
|00004cc0| 72 69 61 62 6c 65 73 20 | 61 6e 64 20 6e 6f 20 70 |riables |and no p|
|00004cd0| 61 72 65 6e 74 73 0a 58 | 0a 58 28 64 6f 2d 74 79 |arents.X|.X(do-ty|
|00004ce0| 70 65 2d 64 65 66 69 6e | 69 74 69 6f 6e 20 54 20 |pe-defin|ition T |
|00004cf0| 32 20 30 29 0a 58 28 63 | 6f 6d 70 69 6c 65 20 28 |2 0).X(c|ompile (|
|00004d00| 66 69 72 73 74 20 2a 66 | 75 6e 63 74 69 6f 6e 2d |first *f|unction-|
|00004d10| 73 79 6d 62 6f 6c 73 2a | 29 29 0a 58 28 66 75 6e |symbols*|)).X(fun|
|00004d20| 63 61 6c 6c 20 28 66 69 | 72 73 74 20 2a 66 75 6e |call (fi|rst *fun|
|00004d30| 63 74 69 6f 6e 2d 73 79 | 6d 62 6f 6c 73 2a 29 29 |ction-sy|mbols*))|
|00004d40| 0a 58 0a 58 3b 3b 54 68 | 72 65 65 20 69 6e 73 74 |.X.X;;Th|ree inst|
|00004d50| 61 6e 63 65 20 76 61 72 | 69 61 62 6c 65 73 20 61 |ance var|iables a|
|00004d60| 6e 64 20 6e 6f 20 70 61 | 72 65 6e 74 73 0a 58 0a |nd no pa|rents.X.|
|00004d70| 58 28 64 6f 2d 74 79 70 | 65 2d 64 65 66 69 6e 69 |X(do-typ|e-defini|
|00004d80| 74 69 6f 6e 20 54 20 33 | 20 30 29 0a 58 28 63 6f |tion T 3| 0).X(co|
|00004d90| 6d 70 69 6c 65 20 28 66 | 69 72 73 74 20 2a 66 75 |mpile (f|irst *fu|
|00004da0| 6e 63 74 69 6f 6e 2d 73 | 79 6d 62 6f 6c 73 2a 29 |nction-s|ymbols*)|
|00004db0| 29 0a 58 28 66 75 6e 63 | 61 6c 6c 20 28 66 69 72 |).X(func|all (fir|
|00004dc0| 73 74 20 2a 66 75 6e 63 | 74 69 6f 6e 2d 73 79 6d |st *func|tion-sym|
|00004dd0| 62 6f 6c 73 2a 29 29 0a | 58 0a 58 3b 3b 4e 6f 20 |bols*)).|X.X;;No |
|00004de0| 76 61 72 69 61 62 6c 65 | 73 20 61 6e 64 20 6f 6e |variable|s and on|
|00004df0| 65 20 70 61 72 65 6e 74 | 0a 58 0a 58 28 64 6f 2d |e parent|.X.X(do-|
|00004e00| 74 79 70 65 2d 64 65 66 | 69 6e 69 74 69 6f 6e 20 |type-def|inition |
|00004e10| 54 20 30 20 31 29 0a 58 | 28 63 6f 6d 70 69 6c 65 |T 0 1).X|(compile|
|00004e20| 20 28 66 69 72 73 74 20 | 2a 66 75 6e 63 74 69 6f | (first |*functio|
|00004e30| 6e 2d 73 79 6d 62 6f 6c | 73 2a 29 29 0a 58 28 66 |n-symbol|s*)).X(f|
|00004e40| 75 6e 63 61 6c 6c 20 28 | 66 69 72 73 74 20 2a 66 |uncall (|first *f|
|00004e50| 75 6e 63 74 69 6f 6e 2d | 73 79 6d 62 6f 6c 73 2a |unction-|symbols*|
|00004e60| 29 29 0a 58 0a 58 3b 3b | 4e 6f 20 76 61 72 69 61 |)).X.X;;|No varia|
|00004e70| 62 6c 65 73 20 61 6e 64 | 20 74 77 6f 20 70 61 72 |bles and| two par|
|00004e80| 65 6e 74 73 0a 58 0a 58 | 28 64 6f 2d 74 79 70 65 |ents.X.X|(do-type|
|00004e90| 2d 64 65 66 69 6e 69 74 | 69 6f 6e 20 54 20 30 20 |-definit|ion T 0 |
|00004ea0| 32 29 0a 58 28 63 6f 6d | 70 69 6c 65 20 28 66 69 |2).X(com|pile (fi|
|00004eb0| 72 73 74 20 2a 66 75 6e | 63 74 69 6f 6e 2d 73 79 |rst *fun|ction-sy|
|00004ec0| 6d 62 6f 6c 73 2a 29 29 | 0a 58 28 66 75 6e 63 61 |mbols*))|.X(funca|
|00004ed0| 6c 6c 20 28 66 69 72 73 | 74 20 2a 66 75 6e 63 74 |ll (firs|t *funct|
|00004ee0| 69 6f 6e 2d 73 79 6d 62 | 6f 6c 73 2a 29 29 0a 58 |ion-symb|ols*)).X|
|00004ef0| 0a 58 3b 3b 4e 6f 20 76 | 61 72 69 61 62 6c 65 73 |.X;;No v|ariables|
|00004f00| 20 61 6e 64 20 74 68 72 | 65 65 20 70 61 72 65 6e | and thr|ee paren|
|00004f10| 74 73 0a 58 0a 58 28 64 | 6f 2d 74 79 70 65 2d 64 |ts.X.X(d|o-type-d|
|00004f20| 65 66 69 6e 69 74 69 6f | 6e 20 54 20 30 20 33 29 |efinitio|n T 0 3)|
|00004f30| 0a 58 28 63 6f 6d 70 69 | 6c 65 20 28 66 69 72 73 |.X(compi|le (firs|
|00004f40| 74 20 2a 66 75 6e 63 74 | 69 6f 6e 2d 73 79 6d 62 |t *funct|ion-symb|
|00004f50| 6f 6c 73 2a 29 29 0a 58 | 28 66 75 6e 63 61 6c 6c |ols*)).X|(funcall|
|00004f60| 20 28 66 69 72 73 74 20 | 2a 66 75 6e 63 74 69 6f | (first |*functio|
|00004f70| 6e 2d 73 79 6d 62 6f 6c | 73 2a 29 29 0a 58 0a 58 |n-symbol|s*)).X.X|
|00004f80| 3b 3b 4d 65 61 73 75 72 | 65 20 49 6e 73 74 61 6e |;;Measur|e Instan|
|00004f90| 63 65 20 43 72 65 61 74 | 69 6f 6e 0a 58 0a 58 3b |ce Creat|ion.X.X;|
|00004fa0| 3b 57 61 72 6d 75 70 0a | 58 0a 58 28 64 6f 2d 69 |;Warmup.|X.X(do-i|
|00004fb0| 6e 73 74 61 6e 63 65 2d | 63 72 65 61 74 69 6f 6e |nstance-|creation|
|00004fc0| 20 4e 49 4c 20 30 20 30 | 29 0a 58 28 63 6f 6d 70 | NIL 0 0|).X(comp|
|00004fd0| 69 6c 65 20 28 66 69 72 | 73 74 20 2a 66 75 6e 63 |ile (fir|st *func|
|00004fe0| 74 69 6f 6e 2d 73 79 6d | 62 6f 6c 73 2a 29 29 0a |tion-sym|bols*)).|
|00004ff0| 58 28 66 75 6e 63 61 6c | 6c 20 28 66 69 72 73 74 |X(funcal|l (first|
|00005000| 20 2a 66 75 6e 63 74 69 | 6f 6e 2d 73 79 6d 62 6f | *functi|on-symbo|
|00005010| 6c 73 2a 29 29 0a 58 0a | 58 3b 3b 4e 6f 20 69 6e |ls*)).X.|X;;No in|
|00005020| 73 74 61 6e 63 65 20 76 | 61 72 69 61 62 6c 65 73 |stance v|ariables|
|00005030| 20 61 6e 64 20 6e 6f 20 | 70 61 72 65 6e 74 73 0a | and no |parents.|
|00005040| 58 0a 58 28 64 6f 2d 69 | 6e 73 74 61 6e 63 65 2d |X.X(do-i|nstance-|
|00005050| 63 72 65 61 74 69 6f 6e | 20 54 20 30 20 30 29 0a |creation| T 0 0).|
|00005060| 58 28 63 6f 6d 70 69 6c | 65 20 28 66 69 72 73 74 |X(compil|e (first|
|00005070| 20 2a 66 75 6e 63 74 69 | 6f 6e 2d 73 79 6d 62 6f | *functi|on-symbo|
|00005080| 6c 73 2a 29 29 0a 58 28 | 66 75 6e 63 61 6c 6c 20 |ls*)).X(|funcall |
|00005090| 28 66 69 72 73 74 20 2a | 66 75 6e 63 74 69 6f 6e |(first *|function|
|000050a0| 2d 73 79 6d 62 6f 6c 73 | 2a 29 29 0a 58 0a 58 3b |-symbols|*)).X.X;|
|000050b0| 3b 4f 6e 65 20 69 6e 73 | 74 61 6e 63 65 20 76 61 |;One ins|tance va|
|000050c0| 72 69 61 62 6c 65 20 61 | 6e 64 20 6e 6f 20 70 61 |riable a|nd no pa|
|000050d0| 72 65 6e 74 73 0a 58 0a | 58 28 64 6f 2d 69 6e 73 |rents.X.|X(do-ins|
|000050e0| 74 61 6e 63 65 2d 63 72 | 65 61 74 69 6f 6e 20 54 |tance-cr|eation T|
|000050f0| 20 31 20 30 29 0a 58 28 | 66 75 6e 63 61 6c 6c 20 | 1 0).X(|funcall |
|00005100| 28 66 69 72 73 74 20 2a | 66 75 6e 63 74 69 6f 6e |(first *|function|
|00005110| 2d 73 79 6d 62 6f 6c 73 | 2a 29 29 0a 58 0a 58 3b |-symbols|*)).X.X;|
|00005120| 3b 54 77 6f 20 69 6e 73 | 74 61 6e 63 65 20 76 61 |;Two ins|tance va|
|00005130| 72 69 61 62 6c 65 73 20 | 61 6e 64 20 6e 6f 20 70 |riables |and no p|
|00005140| 61 72 65 6e 74 73 0a 58 | 0a 58 28 64 6f 2d 69 6e |arents.X|.X(do-in|
|00005150| 73 74 61 6e 63 65 2d 63 | 72 65 61 74 69 6f 6e 20 |stance-c|reation |
|00005160| 54 20 32 20 30 29 0a 58 | 28 63 6f 6d 70 69 6c 65 |T 2 0).X|(compile|
|00005170| 20 28 66 69 72 73 74 20 | 2a 66 75 6e 63 74 69 6f | (first |*functio|
|00005180| 6e 2d 73 79 6d 62 6f 6c | 73 2a 29 29 0a 58 28 66 |n-symbol|s*)).X(f|
|00005190| 75 6e 63 61 6c 6c 20 28 | 66 69 72 73 74 20 2a 66 |uncall (|first *f|
|000051a0| 75 6e 63 74 69 6f 6e 2d | 73 79 6d 62 6f 6c 73 2a |unction-|symbols*|
|000051b0| 29 29 0a 58 0a 58 3b 3b | 54 68 72 65 65 20 69 6e |)).X.X;;|Three in|
|000051c0| 73 74 61 6e 63 65 20 76 | 61 72 69 61 62 6c 65 73 |stance v|ariables|
|000051d0| 20 61 6e 64 20 6e 6f 20 | 70 61 72 65 6e 74 73 0a | and no |parents.|
|000051e0| 58 0a 58 28 64 6f 2d 69 | 6e 73 74 61 6e 63 65 2d |X.X(do-i|nstance-|
|000051f0| 63 72 65 61 74 69 6f 6e | 20 54 20 33 20 30 29 0a |creation| T 3 0).|
|00005200| 58 28 63 6f 6d 70 69 6c | 65 20 28 66 69 72 73 74 |X(compil|e (first|
|00005210| 20 2a 66 75 6e 63 74 69 | 6f 6e 2d 73 79 6d 62 6f | *functi|on-symbo|
|00005220| 6c 73 2a 29 29 0a 58 28 | 66 75 6e 63 61 6c 6c 20 |ls*)).X(|funcall |
|00005230| 28 66 69 72 73 74 20 2a | 66 75 6e 63 74 69 6f 6e |(first *|function|
|00005240| 2d 73 79 6d 62 6f 6c 73 | 2a 29 29 0a 58 0a 58 3b |-symbols|*)).X.X;|
|00005250| 3b 4e 6f 20 76 61 72 69 | 61 62 6c 65 73 20 61 6e |;No vari|ables an|
|00005260| 64 20 6f 6e 65 20 70 61 | 72 65 6e 74 0a 58 0a 58 |d one pa|rent.X.X|
|00005270| 28 64 6f 2d 69 6e 73 74 | 61 6e 63 65 2d 63 72 65 |(do-inst|ance-cre|
|00005280| 61 74 69 6f 6e 20 54 20 | 30 20 31 29 0a 58 28 63 |ation T |0 1).X(c|
|00005290| 6f 6d 70 69 6c 65 20 28 | 66 69 72 73 74 20 2a 66 |ompile (|first *f|
|000052a0| 75 6e 63 74 69 6f 6e 2d | 73 79 6d 62 6f 6c 73 2a |unction-|symbols*|
|000052b0| 29 29 0a 58 28 66 75 6e | 63 61 6c 6c 20 28 66 69 |)).X(fun|call (fi|
|000052c0| 72 73 74 20 2a 66 75 6e | 63 74 69 6f 6e 2d 73 79 |rst *fun|ction-sy|
|000052d0| 6d 62 6f 6c 73 2a 29 29 | 0a 58 0a 58 3b 3b 4e 6f |mbols*))|.X.X;;No|
|000052e0| 20 76 61 72 69 61 62 6c | 65 73 20 61 6e 64 20 74 | variabl|es and t|
|000052f0| 77 6f 20 70 61 72 65 6e | 74 73 0a 58 0a 58 28 64 |wo paren|ts.X.X(d|
|00005300| 6f 2d 69 6e 73 74 61 6e | 63 65 2d 63 72 65 61 74 |o-instan|ce-creat|
|00005310| 69 6f 6e 20 54 20 30 20 | 32 29 0a 58 28 63 6f 6d |ion T 0 |2).X(com|
|00005320| 70 69 6c 65 20 28 66 69 | 72 73 74 20 2a 66 75 6e |pile (fi|rst *fun|
|00005330| 63 74 69 6f 6e 2d 73 79 | 6d 62 6f 6c 73 2a 29 29 |ction-sy|mbols*))|
|00005340| 0a 58 28 66 75 6e 63 61 | 6c 6c 20 28 66 69 72 73 |.X(funca|ll (firs|
|00005350| 74 20 2a 66 75 6e 63 74 | 69 6f 6e 2d 73 79 6d 62 |t *funct|ion-symb|
|00005360| 6f 6c 73 2a 29 29 0a 58 | 0a 58 3b 3b 4e 6f 20 76 |ols*)).X|.X;;No v|
|00005370| 61 72 69 61 62 6c 65 73 | 20 61 6e 64 20 74 68 72 |ariables| and thr|
|00005380| 65 65 20 70 61 72 65 6e | 74 73 0a 58 0a 58 28 64 |ee paren|ts.X.X(d|
|00005390| 6f 2d 69 6e 73 74 61 6e | 63 65 2d 63 72 65 61 74 |o-instan|ce-creat|
|000053a0| 69 6f 6e 20 54 20 30 20 | 33 29 0a 58 28 63 6f 6d |ion T 0 |3).X(com|
|000053b0| 70 69 6c 65 20 28 66 69 | 72 73 74 20 2a 66 75 6e |pile (fi|rst *fun|
|000053c0| 63 74 69 6f 6e 2d 73 79 | 6d 62 6f 6c 73 2a 29 29 |ction-sy|mbols*))|
|000053d0| 0a 58 28 66 75 6e 63 61 | 6c 6c 20 28 66 69 72 73 |.X(funca|ll (firs|
|000053e0| 74 20 2a 66 75 6e 63 74 | 69 6f 6e 2d 73 79 6d 62 |t *funct|ion-symb|
|000053f0| 6f 6c 73 2a 29 29 0a 58 | 0a 58 3b 3b 4d 65 61 73 |ols*)).X|.X;;Meas|
|00005400| 75 72 65 6d 65 6e 74 20 | 6f 66 20 4d 65 74 68 6f |urement |of Metho|
|00005410| 64 20 44 65 66 69 6e 69 | 74 69 6f 6e 0a 58 0a 58 |d Defini|tion.X.X|
|00005420| 28 64 6f 2d 6d 65 74 68 | 6f 64 2d 64 65 66 69 6e |(do-meth|od-defin|
|00005430| 69 74 69 6f 6e 20 4e 49 | 4c 20 30 20 74 65 6d 70 |ition NI|L 0 temp|
|00005440| 31 29 0a 58 28 63 6f 6d | 70 69 6c 65 20 28 66 69 |1).X(com|pile (fi|
|00005450| 72 73 74 20 2a 66 75 6e | 63 74 69 6f 6e 2d 73 79 |rst *fun|ction-sy|
|00005460| 6d 62 6f 6c 73 2a 29 29 | 0a 58 28 66 75 6e 63 61 |mbols*))|.X(funca|
|00005470| 6c 6c 20 28 66 69 72 73 | 74 20 2a 66 75 6e 63 74 |ll (firs|t *funct|
|00005480| 69 6f 6e 2d 73 79 6d 62 | 6f 6c 73 2a 29 29 0a 58 |ion-symb|ols*)).X|
|00005490| 0a 58 3b 3b 53 6f 20 74 | 68 61 74 20 6e 65 77 20 |.X;;So t|hat new |
|000054a0| 73 79 6d 62 6f 6c 73 20 | 77 69 6c 6c 20 62 65 20 |symbols |will be |
|000054b0| 67 65 6e 65 72 61 74 65 | 64 0a 58 0a 58 28 73 65 |generate|d.X.X(se|
|000054c0| 74 66 20 2a 6c 69 73 74 | 2d 6f 66 2d 6d 65 74 68 |tf *list|-of-meth|
|000054d0| 6f 64 2d 73 79 6d 62 6f | 6c 73 2a 20 4e 49 4c 29 |od-symbo|ls* NIL)|
|000054e0| 0a 58 0a 58 3b 3b 4e 6f | 20 70 72 65 64 65 66 69 |.X.X;;No| predefi|
|000054f0| 6e 65 64 20 6d 65 74 68 | 6f 64 0a 58 0a 58 28 64 |ned meth|od.X.X(d|
|00005500| 6f 2d 6d 65 74 68 6f 64 | 2d 64 65 66 69 6e 69 74 |o-method|-definit|
|00005510| 69 6f 6e 20 54 20 30 20 | 74 65 6d 70 31 29 0a 58 |ion T 0 |temp1).X|
|00005520| 28 63 6f 6d 70 69 6c 65 | 20 28 66 69 72 73 74 20 |(compile| (first |
|00005530| 2a 66 75 6e 63 74 69 6f | 6e 2d 73 79 6d 62 6f 6c |*functio|n-symbol|
|00005540| 73 2a 29 29 0a 58 28 66 | 75 6e 63 61 6c 6c 20 28 |s*)).X(f|uncall (|
|00005550| 66 69 72 73 74 20 2a 66 | 75 6e 63 74 69 6f 6e 2d |first *f|unction-|
|00005560| 73 79 6d 62 6f 6c 73 2a | 29 29 0a 58 0a 58 3b 3b |symbols*|)).X.X;;|
|00005570| 4d 65 61 73 75 72 65 20 | 6d 65 74 68 6f 64 20 69 |Measure |method i|
|00005580| 6e 76 6f 63 61 74 69 6f | 6e 0a 58 0a 58 28 64 6f |nvocatio|n.X.X(do|
|00005590| 2d 6d 65 73 73 61 67 69 | 6e 67 20 54 20 31 20 74 |-messagi|ng T 1 t|
|000055a0| 65 6d 70 31 29 0a 58 28 | 63 6f 6d 70 69 6c 65 20 |emp1).X(|compile |
|000055b0| 28 66 69 72 73 74 20 2a | 66 75 6e 63 74 69 6f 6e |(first *|function|
|000055c0| 2d 73 79 6d 62 6f 6c 73 | 2a 29 29 0a 58 28 66 75 |-symbols|*)).X(fu|
|000055d0| 6e 63 61 6c 6c 20 28 66 | 69 72 73 74 20 2a 66 75 |ncall (f|irst *fu|
|000055e0| 6e 63 74 69 6f 6e 2d 73 | 79 6d 62 6f 6c 73 2a 29 |nction-s|ymbols*)|
|000055f0| 29 0a 58 0a 58 3b 3b 4f | 6e 65 20 70 72 65 64 65 |).X.X;;O|ne prede|
|00005600| 66 69 6e 65 64 20 6d 65 | 74 68 6f 64 0a 58 0a 58 |fined me|thod.X.X|
|00005610| 28 64 6f 2d 6d 65 74 68 | 6f 64 2d 64 65 66 69 6e |(do-meth|od-defin|
|00005620| 69 74 69 6f 6e 20 54 20 | 31 20 74 65 6d 70 32 29 |ition T |1 temp2)|
|00005630| 0a 58 28 63 6f 6d 70 69 | 6c 65 20 28 66 69 72 73 |.X(compi|le (firs|
|00005640| 74 20 2a 66 75 6e 63 74 | 69 6f 6e 2d 73 79 6d 62 |t *funct|ion-symb|
|00005650| 6f 6c 73 2a 29 29 0a 58 | 28 66 75 6e 63 61 6c 6c |ols*)).X|(funcall|
|00005660| 20 28 66 69 72 73 74 20 | 2a 66 75 6e 63 74 69 6f | (first |*functio|
|00005670| 6e 2d 73 79 6d 62 6f 6c | 73 2a 29 29 0a 58 0a 58 |n-symbol|s*)).X.X|
|00005680| 3b 3b 4d 65 61 73 75 72 | 65 20 6d 65 74 68 6f 64 |;;Measur|e method|
|00005690| 20 69 6e 76 6f 63 61 74 | 69 6f 6e 0a 58 0a 58 28 | invocat|ion.X.X(|
|000056a0| 64 6f 2d 6d 65 73 73 61 | 67 69 6e 67 20 54 20 32 |do-messa|ging T 2|
|000056b0| 20 74 65 6d 70 31 20 74 | 65 6d 70 32 29 0a 58 28 | temp1 t|emp2).X(|
|000056c0| 63 6f 6d 70 69 6c 65 20 | 28 66 69 72 73 74 20 2a |compile |(first *|
|000056d0| 66 75 6e 63 74 69 6f 6e | 2d 73 79 6d 62 6f 6c 73 |function|-symbols|
|000056e0| 2a 29 29 0a 58 28 66 75 | 6e 63 61 6c 6c 20 28 66 |*)).X(fu|ncall (f|
|000056f0| 69 72 73 74 20 2a 66 75 | 6e 63 74 69 6f 6e 2d 73 |irst *fu|nction-s|
|00005700| 79 6d 62 6f 6c 73 2a 29 | 29 0a 58 0a 58 3b 3b 54 |ymbols*)|).X.X;;T|
|00005710| 77 6f 20 70 72 65 64 65 | 66 69 6e 65 64 20 6d 65 |wo prede|fined me|
|00005720| 74 68 6f 64 73 0a 58 0a | 58 28 64 6f 2d 6d 65 74 |thods.X.|X(do-met|
|00005730| 68 6f 64 2d 64 65 66 69 | 6e 69 74 69 6f 6e 20 54 |hod-defi|nition T|
|00005740| 20 32 20 74 65 6d 70 33 | 29 0a 58 28 63 6f 6d 70 | 2 temp3|).X(comp|
|00005750| 69 6c 65 20 28 66 69 72 | 73 74 20 2a 66 75 6e 63 |ile (fir|st *func|
|00005760| 74 69 6f 6e 2d 73 79 6d | 62 6f 6c 73 2a 29 29 0a |tion-sym|bols*)).|
|00005770| 58 28 66 75 6e 63 61 6c | 6c 20 28 66 69 72 73 74 |X(funcal|l (first|
|00005780| 20 2a 66 75 6e 63 74 69 | 6f 6e 2d 73 79 6d 62 6f | *functi|on-symbo|
|00005790| 6c 73 2a 29 29 0a 58 0a | 58 3b 3b 4d 65 61 73 75 |ls*)).X.|X;;Measu|
|000057a0| 72 65 20 6d 65 74 68 6f | 64 20 69 6e 76 6f 63 61 |re metho|d invoca|
|000057b0| 74 69 6f 6e 0a 58 0a 58 | 28 64 6f 2d 6d 65 73 73 |tion.X.X|(do-mess|
|000057c0| 61 67 69 6e 67 20 54 20 | 33 20 74 65 6d 70 31 20 |aging T |3 temp1 |
|000057d0| 74 65 6d 70 32 20 74 65 | 6d 70 33 29 0a 58 28 63 |temp2 te|mp3).X(c|
|000057e0| 6f 6d 70 69 6c 65 20 28 | 66 69 72 73 74 20 2a 66 |ompile (|first *f|
|000057f0| 75 6e 63 74 69 6f 6e 2d | 73 79 6d 62 6f 6c 73 2a |unction-|symbols*|
|00005800| 29 29 0a 58 28 66 75 6e | 63 61 6c 6c 20 28 66 69 |)).X(fun|call (fi|
|00005810| 72 73 74 20 2a 66 75 6e | 63 74 69 6f 6e 2d 73 79 |rst *fun|ction-sy|
|00005820| 6d 62 6f 6c 73 2a 29 29 | 0a 58 0a 58 3b 3b 54 68 |mbols*))|.X.X;;Th|
|00005830| 72 65 65 20 70 72 65 64 | 65 66 69 6e 65 64 20 6d |ree pred|efined m|
|00005840| 65 74 68 6f 64 73 0a 58 | 0a 58 28 64 6f 2d 6d 65 |ethods.X|.X(do-me|
|00005850| 74 68 6f 64 2d 64 65 66 | 69 6e 69 74 69 6f 6e 20 |thod-def|inition |
|00005860| 54 20 33 20 74 65 6d 70 | 34 29 0a 58 28 63 6f 6d |T 3 temp|4).X(com|
|00005870| 70 69 6c 65 20 28 66 69 | 72 73 74 20 2a 66 75 6e |pile (fi|rst *fun|
|00005880| 63 74 69 6f 6e 2d 73 79 | 6d 62 6f 6c 73 2a 29 29 |ction-sy|mbols*))|
|00005890| 0a 58 28 66 75 6e 63 61 | 6c 6c 20 28 66 69 72 73 |.X(funca|ll (firs|
|000058a0| 74 20 2a 66 75 6e 63 74 | 69 6f 6e 2d 73 79 6d 62 |t *funct|ion-symb|
|000058b0| 6f 6c 73 2a 29 29 0a 58 | 0a 58 3b 3b 4d 65 61 73 |ols*)).X|.X;;Meas|
|000058c0| 75 72 65 20 6d 65 74 68 | 6f 64 20 69 6e 76 6f 63 |ure meth|od invoc|
|000058d0| 61 74 69 6f 6e 0a 58 0a | 58 28 64 6f 2d 6d 65 73 |ation.X.|X(do-mes|
|000058e0| 73 61 67 69 6e 67 20 54 | 20 34 20 74 65 6d 70 31 |saging T| 4 temp1|
|000058f0| 20 74 65 6d 70 32 20 74 | 65 6d 70 33 20 74 65 6d | temp2 t|emp3 tem|
|00005900| 70 34 29 0a 58 28 63 6f | 6d 70 69 6c 65 20 28 66 |p4).X(co|mpile (f|
|00005910| 69 72 73 74 20 2a 66 75 | 6e 63 74 69 6f 6e 2d 73 |irst *fu|nction-s|
|00005920| 79 6d 62 6f 6c 73 2a 29 | 29 0a 58 28 66 75 6e 63 |ymbols*)|).X(func|
|00005930| 61 6c 6c 20 28 66 69 72 | 73 74 20 2a 66 75 6e 63 |all (fir|st *func|
|00005940| 74 69 6f 6e 2d 73 79 6d | 62 6f 6c 73 2a 29 29 0a |tion-sym|bols*)).|
|00005950| 58 0a 58 3b 3b 4d 65 74 | 68 6f 64 20 49 6e 76 6f |X.X;;Met|hod Invo|
|00005960| 63 61 74 69 6f 6e 20 61 | 6e 64 20 49 6e 68 65 72 |cation a|nd Inher|
|00005970| 69 74 65 6e 63 65 0a 58 | 0a 58 28 64 6f 2d 69 6e |itence.X|.X(do-in|
|00005980| 68 65 72 69 74 65 64 2d | 6d 65 73 73 61 67 69 6e |herited-|messagin|
|00005990| 67 20 4e 49 4c 20 30 20 | 67 30 66 29 0a 58 28 63 |g NIL 0 |g0f).X(c|
|000059a0| 6f 6d 70 69 6c 65 20 28 | 66 69 72 73 74 20 2a 66 |ompile (|first *f|
|000059b0| 75 6e 63 74 69 6f 6e 2d | 73 79 6d 62 6f 6c 73 2a |unction-|symbols*|
|000059c0| 29 29 0a 58 28 66 75 6e | 63 61 6c 6c 20 28 66 69 |)).X(fun|call (fi|
|000059d0| 72 73 74 20 2a 66 75 6e | 63 74 69 6f 6e 2d 73 79 |rst *fun|ction-sy|
|000059e0| 6d 62 6f 6c 73 2a 29 29 | 0a 58 0a 58 3b 3b 4e 6f |mbols*))|.X.X;;No|
|000059f0| 20 69 6e 68 65 72 69 74 | 65 6e 63 65 0a 58 0a 58 | inherit|ence.X.X|
|00005a00| 28 64 6f 2d 69 6e 68 65 | 72 69 74 65 64 2d 6d 65 |(do-inhe|rited-me|
|00005a10| 73 73 61 67 69 6e 67 20 | 54 20 30 20 67 30 66 29 |ssaging |T 0 g0f)|
|00005a20| 0a 58 28 63 6f 6d 70 69 | 6c 65 20 28 66 69 72 73 |.X(compi|le (firs|
|00005a30| 74 20 2a 66 75 6e 63 74 | 69 6f 6e 2d 73 79 6d 62 |t *funct|ion-symb|
|00005a40| 6f 6c 73 2a 29 29 0a 58 | 28 66 75 6e 63 61 6c 6c |ols*)).X|(funcall|
|00005a50| 20 28 66 69 72 73 74 20 | 2a 66 75 6e 63 74 69 6f | (first |*functio|
|00005a60| 6e 2d 73 79 6d 62 6f 6c | 73 2a 29 29 0a 58 0a 58 |n-symbol|s*)).X.X|
|00005a70| 0a 58 3b 3b 4f 6e 65 20 | 6c 65 76 65 6c 0a 58 0a |.X;;One |level.X.|
|00005a80| 58 28 64 6f 2d 69 6e 68 | 65 72 69 74 65 64 2d 6d |X(do-inh|erited-m|
|00005a90| 65 73 73 61 67 69 6e 67 | 20 54 20 31 20 67 31 66 |essaging| T 1 g1f|
|00005aa0| 29 0a 58 28 63 6f 6d 70 | 69 6c 65 20 28 66 69 72 |).X(comp|ile (fir|
|00005ab0| 73 74 20 2a 66 75 6e 63 | 74 69 6f 6e 2d 73 79 6d |st *func|tion-sym|
|00005ac0| 62 6f 6c 73 2a 29 29 0a | 58 28 66 75 6e 63 61 6c |bols*)).|X(funcal|
|00005ad0| 6c 20 28 66 69 72 73 74 | 20 2a 66 75 6e 63 74 69 |l (first| *functi|
|00005ae0| 6f 6e 2d 73 79 6d 62 6f | 6c 73 2a 29 29 0a 58 0a |on-symbo|ls*)).X.|
|00005af0| 58 0a 58 3b 3b 54 77 6f | 20 6c 65 76 65 6c 73 0a |X.X;;Two| levels.|
|00005b00| 58 0a 58 28 64 6f 2d 69 | 6e 68 65 72 69 74 65 64 |X.X(do-i|nherited|
|00005b10| 2d 6d 65 73 73 61 67 69 | 6e 67 20 54 20 32 20 67 |-messagi|ng T 2 g|
|00005b20| 32 66 29 0a 58 28 63 6f | 6d 70 69 6c 65 20 28 66 |2f).X(co|mpile (f|
|00005b30| 69 72 73 74 20 2a 66 75 | 6e 63 74 69 6f 6e 2d 73 |irst *fu|nction-s|
|00005b40| 79 6d 62 6f 6c 73 2a 29 | 29 0a 58 28 66 75 6e 63 |ymbols*)|).X(func|
|00005b50| 61 6c 6c 20 28 66 69 72 | 73 74 20 2a 66 75 6e 63 |all (fir|st *func|
|00005b60| 74 69 6f 6e 2d 73 79 6d | 62 6f 6c 73 2a 29 29 0a |tion-sym|bols*)).|
|00005b70| 58 0a 58 0a 58 3b 3b 54 | 68 72 65 65 20 6c 65 76 |X.X.X;;T|hree lev|
|00005b80| 65 6c 73 0a 58 0a 58 28 | 64 6f 2d 69 6e 68 65 72 |els.X.X(|do-inher|
|00005b90| 69 74 65 64 2d 6d 65 73 | 73 61 67 69 6e 67 20 54 |ited-mes|saging T|
|00005ba0| 20 33 20 67 33 66 29 0a | 58 28 63 6f 6d 70 69 6c | 3 g3f).|X(compil|
|00005bb0| 65 20 28 66 69 72 73 74 | 20 2a 66 75 6e 63 74 69 |e (first| *functi|
|00005bc0| 6f 6e 2d 73 79 6d 62 6f | 6c 73 2a 29 29 0a 58 28 |on-symbo|ls*)).X(|
|00005bd0| 66 75 6e 63 61 6c 6c 20 | 28 66 69 72 73 74 20 2a |funcall |(first *|
|00005be0| 66 75 6e 63 74 69 6f 6e | 2d 73 79 6d 62 6f 6c 73 |function|-symbols|
|00005bf0| 2a 29 29 0a 58 0a 58 0a | 58 3b 3b 44 75 6d 70 20 |*)).X.X.|X;;Dump |
|00005c00| 6f 75 74 20 74 68 65 20 | 72 65 73 75 6c 74 73 0a |out the |results.|
|00005c10| 58 0a 58 28 70 72 69 6e | 74 2d 72 65 73 75 6c 74 |X.X(prin|t-result|
|00005c20| 73 20 2a 6f 75 74 70 75 | 74 2d 66 69 6c 65 2d 6e |s *outpu|t-file-n|
|00005c30| 61 6d 65 2a 20 2a 64 65 | 66 69 6e 69 74 69 6f 6e |ame* *de|finition|
|00005c40| 2d 6d 65 73 73 61 67 65 | 2a 29 0a 58 0a 58 3b 3b |-message|*).X.X;;|
|00005c50| 52 75 6e 20 45 76 65 72 | 79 74 68 69 6e 67 20 41 |Run Ever|ything A|
|00005c60| 67 61 69 6e 0a 58 0a 58 | 28 64 6f 6c 69 73 74 20 |gain.X.X|(dolist |
|00005c70| 28 6c 20 28 72 65 76 65 | 72 73 65 20 2a 66 75 6e |(l (reve|rse *fun|
|00005c80| 63 74 69 6f 6e 2d 73 79 | 6d 62 6f 6c 73 2a 29 29 |ction-sy|mbols*))|
|00005c90| 0a 58 20 20 28 66 75 6e | 63 61 6c 6c 20 6c 29 0a |.X (fun|call l).|
|00005ca0| 58 29 0a 58 0a 58 3b 3b | 41 6e 64 20 64 75 6d 70 |X).X.X;;|And dump|
|00005cb0| 20 72 65 73 75 6c 74 73 | 0a 58 0a 58 28 70 72 69 | results|.X.X(pri|
|00005cc0| 6e 74 2d 72 65 73 75 6c | 74 73 20 2a 6f 75 74 70 |nt-resul|ts *outp|
|00005cd0| 75 74 2d 66 69 6c 65 2d | 6e 61 6d 65 2a 20 2a 72 |ut-file-|name* *r|
|00005ce0| 65 64 65 66 69 6e 69 74 | 69 6f 6e 2d 6d 65 73 73 |edefinit|ion-mess|
|00005cf0| 61 67 65 2a 29 0a 58 0a | 58 3b 3b 3b 3b 3b 3b 3b |age*).X.|X;;;;;;;|
|00005d00| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00005d10| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00005d20| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00005d30| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00005d40| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 0a 58 0a 58 28 70 72 |;;;;;;;;|;.X.X(pr|
|00005d50| 6f 76 69 64 65 20 22 63 | 6f 2d 70 72 6f 66 22 29 |ovide "c|o-prof")|
|00005d60| 0a 58 0a 45 4e 44 5f 4f | 46 5f 46 49 4c 45 0a 69 |.X.END_O|F_FILE.i|
|00005d70| 66 20 74 65 73 74 20 35 | 34 31 32 20 2d 6e 65 20 |f test 5|412 -ne |
|00005d80| 60 77 63 20 2d 63 20 3c | 27 63 6f 2d 70 72 6f 66 |`wc -c <|'co-prof|
|00005d90| 2e 6c 27 60 3b 20 74 68 | 65 6e 0a 20 20 20 20 65 |.l'`; th|en. e|
|00005da0| 63 68 6f 20 73 68 61 72 | 3a 20 5c 22 27 63 6f 2d |cho shar|: \"'co-|
|00005db0| 70 72 6f 66 2e 6c 27 5c | 22 20 75 6e 70 61 63 6b |prof.l'\|" unpack|
|00005dc0| 65 64 20 77 69 74 68 20 | 77 72 6f 6e 67 20 73 69 |ed with |wrong si|
|00005dd0| 7a 65 21 0a 66 69 0a 23 | 20 65 6e 64 20 6f 66 20 |ze!.fi.#| end of |
|00005de0| 27 63 6f 2d 70 72 6f 66 | 2e 6c 27 0a 66 69 0a 69 |'co-prof|.l'.fi.i|
|00005df0| 66 20 74 65 73 74 20 2d | 66 20 27 63 6f 2d 73 66 |f test -|f 'co-sf|
|00005e00| 75 6e 2e 6c 27 20 2d 61 | 20 22 24 7b 31 7d 22 20 |un.l' -a| "${1}" |
|00005e10| 21 3d 20 22 2d 63 22 20 | 3b 20 74 68 65 6e 20 0a |!= "-c" |; then .|
|00005e20| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 57 69 6c | echo s|har: Wil|
|00005e30| 6c 20 6e 6f 74 20 63 6c | 6f 62 62 65 72 20 65 78 |l not cl|obber ex|
|00005e40| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 5c 22 27 63 |isting f|ile \"'c|
|00005e50| 6f 2d 73 66 75 6e 2e 6c | 27 5c 22 0a 65 6c 73 65 |o-sfun.l|'\".else|
|00005e60| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 45 78 74 72 |.echo sh|ar: Extr|
|00005e70| 61 63 74 69 6e 67 20 5c | 22 27 63 6f 2d 73 66 75 |acting \|"'co-sfu|
|00005e80| 6e 2e 6c 27 5c 22 20 5c | 28 35 36 34 33 20 63 68 |n.l'\" \|(5643 ch|
|00005e90| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00005ea0| 73 2f 5e 58 2f 2f 22 20 | 3e 27 63 6f 2d 73 66 75 |s/^X//" |>'co-sfu|
|00005eb0| 6e 2e 6c 27 20 3c 3c 27 | 45 4e 44 5f 4f 46 5f 46 |n.l' <<'|END_OF_F|
|00005ec0| 49 4c 45 27 0a 58 0a 58 | 3b 3b 3b 3b 3b 3b 3b 3b |ILE'.X.X|;;;;;;;;|
|00005ed0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00005ee0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00005ef0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00005f00| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00005f10| 3b 3b 3b 3b 3b 3b 3b 3b | 0a 58 3b 0a 58 3b 20 46 |;;;;;;;;|.X;.X; F|
|00005f20| 69 6c 65 3a 20 20 20 20 | 20 20 20 20 20 63 6f 2d |ile: | co-|
|00005f30| 73 66 75 6e 2e 6c 0a 58 | 3b 20 52 43 53 3a 20 20 |sfun.l.X|; RCS: |
|00005f40| 20 20 20 20 20 20 20 20 | 24 52 65 76 69 73 69 6f | |$Revisio|
|00005f50| 6e 3a 20 31 2e 31 20 24 | 0a 58 3b 20 53 43 43 53 |n: 1.1 $|.X; SCCS|
|00005f60| 3a 20 20 20 20 20 20 20 | 20 20 25 41 25 20 25 47 |: | %A% %G|
|00005f70| 25 20 25 55 25 0a 58 3b | 20 44 65 73 63 72 69 70 |% %U%.X;| Descrip|
|00005f80| 74 69 6f 6e 3a 20 20 4f | 76 65 72 72 69 64 65 20 |tion: O|verride |
|00005f90| 53 79 73 74 65 6d 20 46 | 75 6e 63 74 69 6f 6e 73 |System F|unctions|
|00005fa0| 0a 58 3b 20 41 75 74 68 | 6f 72 3a 20 20 20 20 20 |.X; Auth|or: |
|00005fb0| 20 20 4a 61 6d 65 73 20 | 4b 65 6d 70 66 0a 58 3b | James |Kempf.X;|
|00005fc0| 20 43 72 65 61 74 65 64 | 3a 20 20 20 20 20 20 4d | Created|: M|
|00005fd0| 61 72 63 68 20 31 30 2c | 20 31 39 38 37 0a 58 3b |arch 10,| 1987.X;|
|00005fe0| 20 4d 6f 64 69 66 69 65 | 64 3a 20 20 20 20 20 4d | Modifie|d: M|
|00005ff0| 61 72 63 68 20 31 30 2c | 20 31 39 38 37 20 20 31 |arch 10,| 1987 1|
|00006000| 33 3a 33 31 3a 33 39 20 | 28 52 6f 79 20 44 27 53 |3:31:39 |(Roy D'S|
|00006010| 6f 75 7a 61 29 0a 58 3b | 20 4c 61 6e 67 75 61 67 |ouza).X;| Languag|
|00006020| 65 3a 20 20 20 20 20 4c | 69 73 70 0a 58 3b 20 50 |e: L|isp.X; P|
|00006030| 61 63 6b 61 67 65 3a 20 | 20 20 20 20 20 43 4f 4d |ackage: | COM|
|00006040| 4d 4f 4e 2d 4f 42 4a 45 | 43 54 53 0a 58 3b 20 53 |MON-OBJE|CTS.X; S|
|00006050| 74 61 74 75 73 3a 20 20 | 20 20 20 20 20 44 69 73 |tatus: | Dis|
|00006060| 74 72 69 62 75 74 69 6f | 6e 0a 58 3b 0a 58 3b 20 |tributio|n.X;.X; |
|00006070| 28 63 29 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |(c) Copy|right 19|
|00006080| 38 37 2c 20 48 50 20 4c | 61 62 73 2c 20 61 6c 6c |87, HP L|abs, all|
|00006090| 20 72 69 67 68 74 73 20 | 72 65 73 65 72 76 65 64 | rights |reserved|
|000060a0| 2e 0a 58 3b 0a 58 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |..X;.X;;|;;;;;;;;|
|000060b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000060c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000060d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000060e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000060f0| 3b 3b 3b 3b 3b 3b 0a 58 | 3b 0a 58 3b 20 43 6f 70 |;;;;;;.X|;.X; Cop|
|00006100| 79 72 69 67 68 74 20 28 | 63 29 20 31 39 38 37 20 |yright (|c) 1987 |
|00006110| 48 65 77 6c 65 74 74 2d | 50 61 63 6b 61 72 64 20 |Hewlett-|Packard |
|00006120| 43 6f 72 70 6f 72 61 74 | 69 6f 6e 2e 20 41 6c 6c |Corporat|ion. All|
|00006130| 20 72 69 67 68 74 73 20 | 72 65 73 65 72 76 65 64 | rights |reserved|
|00006140| 2e 0a 58 3b 0a 58 3b 20 | 55 73 65 20 61 6e 64 20 |..X;.X; |Use and |
|00006150| 63 6f 70 79 69 6e 67 20 | 6f 66 20 74 68 69 73 20 |copying |of this |
|00006160| 73 6f 66 74 77 61 72 65 | 20 61 6e 64 20 70 72 65 |software| and pre|
|00006170| 70 61 72 61 74 69 6f 6e | 20 6f 66 20 64 65 72 69 |paration| of deri|
|00006180| 76 61 74 69 76 65 20 77 | 6f 72 6b 73 20 62 61 73 |vative w|orks bas|
|00006190| 65 64 0a 58 3b 20 75 70 | 6f 6e 20 74 68 69 73 20 |ed.X; up|on this |
|000061a0| 73 6f 66 74 77 61 72 65 | 20 61 72 65 20 70 65 72 |software| are per|
|000061b0| 6d 69 74 74 65 64 2e 20 | 20 41 6e 79 20 64 69 73 |mitted. | Any dis|
|000061c0| 74 72 69 62 75 74 69 6f | 6e 20 6f 66 20 74 68 69 |tributio|n of thi|
|000061d0| 73 20 73 6f 66 74 77 61 | 72 65 20 6f 72 0a 58 3b |s softwa|re or.X;|
|000061e0| 20 64 65 72 69 76 61 74 | 69 76 65 20 77 6f 72 6b | derivat|ive work|
|000061f0| 73 20 6d 75 73 74 20 63 | 6f 6d 70 6c 79 20 77 69 |s must c|omply wi|
|00006200| 74 68 20 61 6c 6c 20 61 | 70 70 6c 69 63 61 62 6c |th all a|pplicabl|
|00006210| 65 20 55 6e 69 74 65 64 | 20 53 74 61 74 65 73 20 |e United| States |
|00006220| 65 78 70 6f 72 74 0a 58 | 3b 20 63 6f 6e 74 72 6f |export.X|; contro|
|00006230| 6c 20 6c 61 77 73 2e 0a | 58 3b 20 0a 58 3b 20 54 |l laws..|X; .X; T|
|00006240| 68 69 73 20 73 6f 66 74 | 77 61 72 65 20 69 73 20 |his soft|ware is |
|00006250| 6d 61 64 65 20 61 76 61 | 69 6c 61 62 6c 65 20 41 |made ava|ilable A|
|00006260| 53 20 49 53 2c 20 61 6e | 64 20 48 65 77 6c 65 74 |S IS, an|d Hewlet|
|00006270| 74 2d 50 61 63 6b 61 72 | 64 20 43 6f 72 70 6f 72 |t-Packar|d Corpor|
|00006280| 61 74 69 6f 6e 20 6d 61 | 6b 65 73 0a 58 3b 20 6e |ation ma|kes.X; n|
|00006290| 6f 20 77 61 72 72 61 6e | 74 79 20 61 62 6f 75 74 |o warran|ty about|
|000062a0| 20 74 68 65 20 73 6f 66 | 74 77 61 72 65 2c 20 69 | the sof|tware, i|
|000062b0| 74 73 20 70 65 72 66 6f | 72 6d 61 6e 63 65 20 6f |ts perfo|rmance o|
|000062c0| 72 20 69 74 73 20 63 6f | 6e 66 6f 72 6d 69 74 79 |r its co|nformity|
|000062d0| 20 74 6f 20 61 6e 79 0a | 58 3b 20 73 70 65 63 69 | to any.|X; speci|
|000062e0| 66 69 63 61 74 69 6f 6e | 2e 0a 58 3b 0a 58 3b 20 |fication|..X;.X; |
|000062f0| 53 75 67 67 65 73 74 69 | 6f 6e 73 2c 20 63 6f 6d |Suggesti|ons, com|
|00006300| 6d 65 6e 74 73 20 61 6e | 64 20 72 65 71 75 65 73 |ments an|d reques|
|00006310| 74 73 20 66 6f 72 20 69 | 6d 70 72 6f 76 65 6d 65 |ts for i|mproveme|
|00006320| 6e 74 20 6d 61 79 20 62 | 65 20 6d 61 69 6c 65 64 |nt may b|e mailed|
|00006330| 20 74 6f 0a 58 3b 20 61 | 69 77 73 40 68 70 6c 61 | to.X; a|iws@hpla|
|00006340| 62 73 2e 48 50 2e 43 4f | 4d 0a 58 0a 58 3b 3b 3b |bs.HP.CO|M.X.X;;;|
|00006350| 2d 2a 2d 4d 6f 64 65 3a | 4c 49 53 50 3b 20 50 61 |-*-Mode:|LISP; Pa|
|00006360| 63 6b 61 67 65 3a 28 43 | 4f 20 28 50 43 4c 20 4c |ckage:(C|O (PCL L|
|00006370| 49 53 50 29 29 3b 20 42 | 61 73 65 3a 31 30 3b 20 |ISP)); B|ase:10; |
|00006380| 53 79 6e 74 61 78 3a 20 | 43 6f 6d 6d 6f 6e 2d 6c |Syntax: |Common-l|
|00006390| 69 73 70 2d 2a 2d 0a 58 | 3b 3b 3b 0a 58 3b 3b 3b |isp-*-.X|;;;.X;;;|
|000063a0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|000063b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000063c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000063d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000063e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 58 3b 3b 3b 20 |********|**.X;;; |
|000063f0| 43 6f 70 79 72 69 67 68 | 74 20 28 63 29 20 31 39 |Copyrigh|t (c) 19|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
