(FILECREATED " 6-Nov-85 16:59:09" ("compiled on " {ERIS}PROLOG>SNAP5>LOAD.LSP;2) "17-Oct-85 18:58:44" recompiled changes: ASSEMBLE.CLAUSE QP.RECONSULT in "INTERLISP-D 17-Oct-85 ..." dated "17-Oct-85 19:19:58") (FILECREATED " 6-Nov-85 16:58:37" {ERIS}PROLOG>SNAP5>LOAD.LSP;2 24743 changes to: (FNS QP.RECONSULT ASSEMBLE.CLAUSE) previous date: "24-Oct-85 20:13:50" {ERIS}PROLOG>SNAP5>LOAD.LSP;1) ASSEMBLE.CLAUSE D1 (P 6 INSTR P 5 INSTRS P 4 CLAUSEPTR P 3 INSTRS P 2 LENGTH P 1 PROC P 0 PROCLIST I 0 THEARGS) h@HHH@º@JlØ lKMµ`³)IL ¾M½LNNNNN ¿°ÒLI (145Q QP.ADD.CLAUSE 135Q QP.STORE.INSTR 76Q QP.ASSERT.INDEXED 44Q QP.CLAUSE.ALLOC 20Q QP.LOCAL.PREDICATE) (67Q QP.INDEXP 54Q QP.CLAUSE.OFFSET) () QP.ADD.CLAUSE D1 (I 1 PROCRECORD I 0 CLAUSE) VAÈ låjðŸA@Î¿AkÍ ¿@g°4AÉ jÂg ð—AÉ g°AÉ jÂg ð²AÉ g@¿@g ¿A@Î @(115Q QP.STORE.INDEX 105Q QP.STORE.INDEX 70Q QP.OP.CODE 43Q QP.OP.CODE) (112Q trust.me.else 101Q retry.me.else 65Q trust.me.else 53Q try.me.else 40Q just.me.else 26Q just.me.else) () QP.ALLOCATE.CLAUSE.RECORD D1 (I 0 SIZE F 0 QP.LAST.CLAUSE.RECORD) l@lØ c(13Q QP.CLAUSE.ALLOC) (4 QP.CLAUSE.OFFSET) () QP.AREG.REGISTER D1 (L (0 AREG)) @kÙlÚNIL NIL () QP.ATTACH.CLAUSE.RECORD D1 (P 0 PROC I 2 MODULE I 1 ARITY I 0 NAME F 1 QP.LAST.CLAUSE.RECORD) @AB`•HQ QH (27Q QP.ADD.CLAUSE 21Q QP.ASSERT.INDEXED 5 QP.LOCAL.PREDICATE) (13Q QP.INDEXP) () QP.DESCRIBE.INSTRUCTIONS D1 (P 6 SECOND P 5 FIRST P 4 INST P 3 ENTRY P 2 LAST.INSTR P 1 SECONDARY.COUNTER P 0 COUNTER I 0 ARGLIST) ¸nô lÈ ldjd"@±Žd[dgð²%¿IlØ¹K``¿IK`¿KI`°YgðHlØXKJh °7HlØ¸KºHKKKM¢K°N¥LMdhLMgNMNhh`¿KH`¿µ‚±ÿqh(253Q PUTHASH 241Q PUTHASH 221Q PACK* 144Q \APPEND2 110Q PUTHASH 77Q PUTHASH 15Q HARRAY 5 HARRAY) (250Q QP.INSTRUCTION.HARRAY 236Q QP.INSTRUCTION.HARRAY 215Q %. 126Q * 117Q QP.EXTENSION.HARRAY 105Q QP.EXTENSION.HARRAY 74Q QP.INSTRUCTION.HARRAY 71Q QP.EXTENSION.OPCODE 53Q extend 31Q QP.EXTENSION.OPCODE 25Q QP.PERMANENT.OFFSET 20Q QP.EXTENSION.HARRAY 10Q QP.INSTRUCTION.HARRAY) () QP.INITIALIZE.PROLOG D1 (P 0 X F 1 QP.SCRATCH.STRING) ³jnj`n chl Hg Í¿Hg Í¿HhÎ¿HhÎ¿HjÎ¿HjÎ¿Hgglggglggglggdlgggkggdjgo i(257Q ASSEMBLE.CLAUSE 245Q QP.UNIT.CLAUSE 232Q QP.UNIT.CLAUSE 215Q QP.UNIT.CLAUSE 201Q QP.TRAP.CLAUSE 163Q QP.TRAP.CLAUSE 145Q QP.TRAP.CLAUSE 73Q QP.OP.CODE 61Q QP.OP.CODE 47Q \ALLOCBLOCK 34Q ALLOCSTRING 26Q QP.INIT.IO 20Q ALLOCSTRING 2 QP.INIT.PROCEDURES) (250Q QP.FAILURE.CLAUSE 242Q si 235Q fail 227Q si 223Q store_skeleton 220Q store.skeleton 212Q si 204Q apply 176Q interp 171Q $debug_trap 166Q QP.DEBUG.CLAUSE 160Q interp 153Q $interpreter_hook 150Q QP.INTERPRET.CLAUSE 142Q interp 135Q $interpreter_hook 132Q QP.UNDEFINED.CLAUSE 126Q QP.DUMMY.CLAUSE 70Q fail.on.retry 56Q ignore.me 42Q SO.IT.WONT.GC 23Q BYTE.BUFFER 15Q BYTE.BUFFER 6 BYTE.BUFFER.LENGTH) ( 254Q ((portray 1 user) 1 (fail))) QP.LOOK D1 (P 0 CLAUSE I 2 MODULE I 1 ARITY I 0 PROC) \@d`ð®AµjBµgbÉXdjð™¿o h`ð²o h¿H ¿HÉX`ð³íH`ð²çHÉ¸°á(101Q QP.LOOK.ONE.CLAUSE 74Q TERPRI 67Q PRIN3 50Q PRIN3 27Q QP.LOCAL.PREDICATE) (121Q INDEX.BLOCKTYPE# 111Q QP.FAILURE.CLAUSE 55Q QP.UNDEFINED.CLAUSE 24Q si 10Q QP.PROCEDURE.RECORDTYPE#) ( 64Q "No clauses for this procedure" 45Q "No clauses for this procedure (0!!!)") QP.LOOK.ATOM D1 (I 1 INSTR I 0 CLAUSE) Aj@`kØÐÈÑh `lØ(21Q PRINT) (32Q QP.CLAUSE.OFFSET 24Q QP.CLAUSE.OFFSET 5 QP.CLAUSE.OFFSET) () QP.LOOK.BYTE D1 (P 0 BYTE I 2 TYPE I 1 INSTR I 0 CLAUSE) =A@`ÐÈlÿåBgð§Bdgð’¿Hgð•H`Ù‚h `kØ(62Q PRINT 53Q SHOULDNT) (72Q QP.CLAUSE.OFFSET 65Q QP.CLAUSE.OFFSET 46Q QP.PERMANENT.OFFSET 40Q y1 30Q byte 21Q a1 4 QP.CLAUSE.OFFSET) () QP.LOOK.BYTE.ATOM D1 (I 1 INSTR I 0 CLAUSE) (A@`ÐÈlÿåj@`kØÐÈÑh `lØ(34Q PRINT) (45Q QP.CLAUSE.OFFSET 37Q QP.CLAUSE.OFFSET 17Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.BYTE.BYTE D1 (P 3 DEST2 P 2 DEST1 P 1 SRC2 P 0 SRC1 I 3 TYPE2 I 2 REVERSAL I 1 INSTR I 0 CLAUSE) H@`ÐÈlÿå@`kØÐÈlÿå"Bgð“IºH‚HºI»AJCgð•K`Ù€Kh `lØ(74Q PRINT) (105Q QP.CLAUSE.OFFSET 77Q QP.CLAUSE.OFFSET 62Q QP.PERMANENT.OFFSET 54Q PERMANENT 34Q REVERSED 15Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.LOOK.BYTE.CELL D1 (I 1 INSTR I 0 CLAUSE) &A@`ÐÈlÿå@`kØÐÉh `lØ(32Q PRINT) (43Q QP.CLAUSE.OFFSET 35Q QP.CLAUSE.OFFSET 16Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.BYTE.FUNCTOR D1 (I 1 INSTR I 0 CLAUSE) 6A@`ÐÈlÿåj@`lØÐÈÑ@`kØÐÈlÿåh `lØ(52Q PRINT) (63Q QP.CLAUSE.OFFSET 55Q QP.CLAUSE.OFFSET 32Q QP.CLAUSE.OFFSET 17Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.CELL D1 (I 1 INSTR I 0 CLAUSE) )A@`kØÐÈlÿå@`lØÐÈÑh `lØ(35Q PRINT) (46Q QP.CLAUSE.OFFSET 40Q QP.CLAUSE.OFFSET 20Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.CLAUSE D1 (I 1 INSTR I 0 CLAUSE) ,Ag@`ÐÈlÿå@`kØÐÈhh `lØ(40Q PRINT) (51Q QP.CLAUSE.OFFSET 43Q QP.CLAUSE.OFFSET 21Q QP.CLAUSE.OFFSET 7 QP.CLAUSE.OFFSET 3 CLAUSE) () QP.LOOK.CONSTANT D1 (I 1 INSTR I 0 CLAUSE) A@`kØÐÉh `lØ(17Q PRINT) (30Q QP.CLAUSE.OFFSET 22Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.EXTEND D1 (I 1 INSTR I 0 CLAUSE) Ah `kØ(5 PRINT) (15Q QP.CLAUSE.OFFSET 10Q QP.CLAUSE.OFFSET) () QP.LOOK.EXTEND.CELL D1 (P 0 CELL I 1 INSTR I 0 CLAUSE) @`kØÐÉAHh `lØ(23Q PRINT) (34Q QP.CLAUSE.OFFSET 26Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.LOOK.EXTEND.WORD D1 (P 0 WORD I 1 INSTR I 0 CLAUSE) &@`kØÐÈAHáál h `lØ(32Q PRINT 24Q RSH) (43Q QP.CLAUSE.OFFSET 35Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.LOOK.FUNCTOR D1 (I 1 INSTR I 0 CLAUSE) +Aj@`lØÐÈÑ@`kØÐÈlÿåh `lØ(37Q PRINT) (50Q QP.CLAUSE.OFFSET 42Q QP.CLAUSE.OFFSET 20Q QP.CLAUSE.OFFSET 5 QP.CLAUSE.OFFSET) () QP.LOOK.INSTR D1 (P 6 FIELDS2 P 5 OPCODE2 P 4 INSTR2 P 3 MAYBESTAR P 2 INSTR P 1 FIELDS P 0 OPCODE I 0 CLAUSE) R@`ÐÈã1H`¹H`ºH`»l Kgð²I!L`]`¾@HNJ@HIJ(117Q QP.LOOK.OPCODE 107Q QP.LOOK.OPCODE 47Q TAB) (73Q QP.INSTRUCTION.HARRAY 66Q QP.INSTRUCTION.HARRAY 53Q * 36Q QP.INSTRUCTION.HARRAY 27Q QP.INSTRUCTION.HARRAY 16Q QP.INSTRUCTION.HARRAY 3 QP.CLAUSE.OFFSET) () QP.LOOK.NULL D1 (I 1 INSTR I 0 CLAUSE) Ah `kØ(5 PRINT) (15Q QP.CLAUSE.OFFSET 10Q QP.CLAUSE.OFFSET) () QP.LOOK.OFFSET D1 (P 4 OFFSET P 3 INSTR.ADDR P 2 CLAUSE.BEGIN P 1 CLAUSE.LOLOC P 0 CLAUSE.HILOC I 1 INSTR I 0 CLAUSE) B@ÒA@Ó¹HááIØº@`ÐÈlÿåoÚ@`kØÐÈØ[JÙ¼AgLh `lØ(66Q PRINT) (77Q QP.CLAUSE.OFFSET 71Q QP.CLAUSE.OFFSET 56Q + 40Q QP.CLAUSE.OFFSET 21Q QP.CLAUSE.OFFSET) ( 33Q 200000Q) QP.LOOK.ONE.CLAUSE D1 (I 0 CLAUSE) j¿@ ´°ú(10Q QP.LOOK.INSTR) (3 QP.CLAUSE.OFFSET) () QP.LOOK.OPCODE D1 (P 2 FIELDS2 P 1 INSTR2 P 0 EXTENSION I 3 INSTR I 2 FIELDS I 1 OPCODE I 0 CLAUSE) QAdjð‘h`ð²<@`ÐÈlÿå!H`¹H`Zoô•@I Joô•@I @I Bµ@C o —@CBBoô•@C Boô•@C Boô•@C Boô•@C Bo ²K@CBdgð”¿g‹gð“g‚Bdgð¥dgð•¿g°dgð¥dgð”¿gƒ¿Boô•@C Boô•@C Boô•@C Boô•@C Boô•@C Boô•@C Boô•@C ACBh (516Q SHOULDNT 513Q PRINT 500Q QP.LOOK.CLAUSE 463Q QP.LOOK.OFFSET 446Q QP.LOOK.PROCEDURE 431Q QP.LOOK.SIZE.OFFSET 414Q QP.LOOK.SIZE.PROCEDURE 377Q QP.LOOK.BYTE.ATOM 362Q QP.LOOK.BYTE.FUNCTOR 345Q QP.LOOK.BYTE.BYTE 342Q SHOULDNT 270Q SHOULDNT 233Q MEMBER 222Q QP.LOOK.BYTE.CELL 205Q QP.LOOK.ATOM 170Q QP.LOOK.FUNCTOR 153Q QP.LOOK.CELL 136Q QP.LOOK.BYTE 126Q MEMBER 116Q QP.LOOK.NULL 105Q QP.LOOK.EXTEND 77Q QP.LOOK.EXTEND.CELL 62Q QP.LOOK.EXTEND.WORD) (335Q ARGUMENT 327Q a2 321Q a1 313Q PERMANENT 305Q y2 277Q y1 264Q REVERSED 257Q a2 253Q NORMAL 245Q a1 44Q QP.EXTENSION.HARRAY 35Q QP.EXTENSION.HARRAY 20Q QP.CLAUSE.OFFSET 11Q QP.EXTENSION.OPCODE) ( 471Q (clause) 454Q (offset) 437Q (procedure) 422Q (size offset) 405Q (size procedure) 370Q (a1 atom) 353Q (a1 functor) 230Q ((a1 y2) (a2 y1) (a2 a1) (a1 a2)) 213Q (a1 cell) 176Q (atom) 161Q (functor) 144Q (cell) 123Q ((byte) (y1) (a1)) 70Q (extend cell) 53Q (extend word)) QP.LOOK.PROCEDURE D1 (I 1 INSTR I 0 CLAUSE) A@`ÐÉ `lØ(16Q PRINT 12Q QP.P.PROCEDURE) (27Q QP.CLAUSE.OFFSET 21Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.LOOK.SIZE.OFFSET D1 (P 4 OFFSET P 3 INSTR.ADDR P 2 CLAUSE.BEGIN P 1 CLAUSE.LOLOC P 0 CLAUSE.HILOC I 1 INSTR I 0 CLAUSE) P@ÒA@Ó¹HááIØº@`ÐÈlÿåoÚ@`kØÐÈØ[JÙ¼A@`lØÐÈlÛgLh `lØ(104Q PRINT) (115Q QP.CLAUSE.OFFSET 107Q QP.CLAUSE.OFFSET 73Q + 57Q QP.CLAUSE.OFFSET 40Q QP.CLAUSE.OFFSET 21Q QP.CLAUSE.OFFSET) ( 33Q 200000Q) QP.LOOK.SIZE.PROCEDURE D1 (I 1 INSTR I 0 CLAUSE) ,A@`lØÐÈlÛh@`ÐÉ `lØ(40Q PRINT 35Q \NCONC2 32Q QP.P.PROCEDURE) (51Q QP.CLAUSE.OFFSET 43Q QP.CLAUSE.OFFSET 24Q QP.CLAUSE.OFFSET 4 QP.CLAUSE.OFFSET) () QP.OP.CODE D1 (L (0 INSTRUCTION)) @d`˜`nØ`NIL (22Q QP.INSTRUCTION.HARRAY 11Q QP.EXTENSION.HARRAY 4 QP.EXTENSION.HARRAY) () QP.RECONSULT D1 (P 7 PROCREC P 6 NAME P 5 ARITY P 4 MODULE P 3 PROC P 2 FORM P 1 STREAM P 0 TABLE I 0 FILE) knô @g ƒ ¿Ii Zdgð˜¿I dgð²á¿J1K¾K½K¼NMLOH®OiH¿NML¿J °(145Q EVAL 140Q QP.ABOLISH 131Q PUTHASH 112Q QP.LOCAL.PREDICATE 50Q PRINT 45Q CLOSEF 31Q READ 23Q EVAL 14Q OPENSTREAM 5 HASHARRAY) (56Q ASSEMBLE.CLAUSE 36Q STOP 11Q INPUT) () QP.STORE.INCORE D1 (I 4 ARG4 I 3 ARG3 I 2 ARG2 I 1 ARG1 I 0 INSTR F 0 QP.LAST.CLAUSE.RECORD) P@ABCD (11Q QP.STORE.INSTR) NIL () QP.STORE.INDEX D1 (I 2 NEXTCLAUSE I 1 INSTR I 0 CLAUSE) @Bµ`Î@dÈA ØHIÍI(20Q QP.LEFT.OP.CODE) (6 QP.FAILURE.CLAUSE) () QP.STORE.INSTR D1 (P 5 TYPE P 4 FIELDS P 3 OPCODE P 2 INSTR P 1 CLAUSE P 0 ARGLIST) ‰e@1AZ`[`¼Jgð•IB K`ô²2J``Mdgð—¿IJBgð–IJBIJ LµIJ gð—IJBCLdgð˜¿IJBCgð™IJBCD LdgðŸ¿IJBCgg gðžIJBCgg LdgðŸ¿IJBCgg gðžIJBCgg Ldgð—¿IJBgð™IJBgLdgðš¿IJBggð–IJBLdgð˜¿IJBCgð–IJBLdgð›¿IJBCDE gð—IJBCLdgð—¿IJBgð™IJBCD KJLh (606Q SHOULDNT 603Q PRINT 570Q QP.STORE.INSTR.PROCEDURE 551Q QP.STORE.INSTR.OFFSET 532Q QP.STORE.INSTR.SIZE.OFFSET 515Q QP.STORE.INSTR.SIZE.PROCEDURE 472Q QP.STORE.INSTR.ATOM 456Q QP.STORE.INSTR.FUNCTOR 436Q QP.STORE.INSTR.CELL 422Q QP.STORE.INSTR.BYTE 400Q QP.STORE.INSTR.BYTE 361Q QP.STORE.INSTR.AREG 342Q QP.STORE.INSTR.BYTE.BYTE 316Q QP.STORE.INSTR.BYTE.BYTE 267Q QP.STORE.INSTR.BYTE.BYTE 243Q QP.STORE.INSTR.BYTE.BYTE 214Q QP.STORE.INSTR.BYTE.FUNCTOR 175Q QP.STORE.INSTR.BYTE.ATOM 155Q QP.STORE.INSTR.BYTE.CELL 140Q QP.STORE.INSTR.NULL 127Q QP.STORE.INSTR.EXTEND 121Q QP.STORE.INSTR.EXTEND.CELL 105Q QP.STORE.INSTR.EXTEND.WORD 40Q QP.STORE.INSTR.GET.PVAR) (555Q procedure 540Q offset 521Q size.offset 500Q size.procedure 462Q atom 444Q functor 426Q cell 417Q byte 406Q byte 375Q y1 365Q y1 350Q a1 336Q a2 333Q a1 322Q a1.a2 312Q a1 307Q a2 275Q a2.a1 263Q y1 260Q a2 247Q a2.y1 237Q y2 234Q a1 222Q a1.y2 201Q a1.functor 163Q a1.atom 144Q a1.cell 111Q cell 74Q word 60Q QP.EXTENSION.HARRAY 54Q QP.EXTENSION.HARRAY 45Q QP.EXTENSION.OPCODE 31Q load.pvar.address 21Q QP.INSTRUCTION.HARRAY 14Q QP.INSTRUCTION.HARRAY) () QP.STORE.INSTR.AREG D1 (P 0 OPCODE I 2 BYTE I 1 INSTR I 0 CLAUSEPTR) /A Bdló—¿HnØ¸… b¿@`ÐBHØÍ`kØ(27Q QP.AREG.REGISTER 3 QP.LEFT.OP.CODE) (54Q QP.CLAUSE.OFFSET 47Q QP.CLAUSE.OFFSET 36Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.ATOM D1 (I 2 ATOM I 1 INSTR I 0 CLAUSEPTR) !@`ÐA Í@`kØÐBÓÍ`lØ(10Q QP.LEFT.OP.CODE) (36Q QP.CLAUSE.OFFSET 30Q QP.CLAUSE.OFFSET 16Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.STORE.INSTR.BYTE D1 (I 3 TYPE I 2 BYTE I 1 INSTR I 0 CLAUSEPTR) 4@`ÐCgð§Cdgð’¿Bgð•B`Ø‚A ØÍ`kØ(46Q QP.LEFT.OP.CODE 42Q SHOULDNT) (61Q QP.CLAUSE.OFFSET 54Q QP.CLAUSE.OFFSET 35Q QP.PERMANENT.OFFSET 27Q y1 17Q byte 10Q a1 3 QP.CLAUSE.OFFSET) () QP.STORE.INSTR.BYTE.ATOM D1 (P 0 OPCODE I 3 ATOM I 2 BYTE I 1 INSTR I 0 CLAUSEPTR) ;A Bdló—¿HnØ¸… b¿@`ÐBHØÍ@`kØÐCÓÍ`lØ(27Q QP.AREG.REGISTER 3 QP.LEFT.OP.CODE) (70Q QP.CLAUSE.OFFSET 62Q QP.CLAUSE.OFFSET 50Q QP.CLAUSE.OFFSET 36Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.BYTE.BYTE D1 (P 3 DEST2 P 2 DEST1 P 1 HAS.Y.REG P 0 OPCODE I 5 FIELD2 I 4 FIELD1 I 3 BYTE2 I 2 BYTE1 I 1 INSTR I 0 CLAUSEPTR) A Do µ Eo Dgð²Bdló˜¿HnØ¸°% b¿°Egð²Cdló—¿HnØ¸… b¿Dgð²:Eo ²Bdló˜¿HnØ¸°F b¿°>Bdló˜¿HnØ¸°/ b¿°'Egð² Eo ²9Cdló—¿HnØ¸… b¿ Eo —C`Øb¿Ddgð²¿CºB[°Cdló²Ò¿HnØ¸°Ïgð”BºC[‚¿@`ÐJHØÍ@`kØÐKÍ`lØ(365Q SHOULDNT 300Q MEMBER 262Q QP.AREG.REGISTER 237Q MEMBER 213Q QP.AREG.REGISTER 164Q QP.AREG.REGISTER 140Q MEMBER 116Q QP.AREG.REGISTER 61Q QP.AREG.REGISTER 25Q MEMBER 13Q MEMBER 3 QP.LEFT.OP.CODE) (423Q QP.CLAUSE.OFFSET 415Q QP.CLAUSE.OFFSET 404Q QP.CLAUSE.OFFSET 372Q QP.CLAUSE.OFFSET 353Q a1 316Q a2 305Q QP.PERMANENT.OFFSET 224Q a2 125Q a2 72Q a1 34Q a1) ( 275Q (y1 y2) 234Q (y1 y2) 135Q (y1 y2) 22Q (y1 y2) 10Q (y1 y2)) QP.STORE.INSTR.BYTE.CELL D1 (P 1 NEXT P 0 OPCODE I 3 CELL I 2 BYTE I 1 INSTR I 0 CLAUSEPTR) QA Bdló—¿HnØ¸… b¿@`ÐBHØÍ`kØC @IÐCÎ@IÐC @IÐÈØÍ`lØ(75Q QP.OBJ.TAG 60Q QP.LOAD.GC.PROTECT 27Q QP.AREG.REGISTER 3 QP.LEFT.OP.CODE) (116Q QP.CLAUSE.OFFSET 110Q QP.CLAUSE.OFFSET 47Q QP.CLAUSE.OFFSET 36Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.BYTE.FUNCTOR D1 (P 0 OPCODE I 4 ARITY I 3 NAME I 2 BYTE I 1 INSTR I 0 CLAUSEPTR) FA Bdló—¿HnØ¸… b¿@`ÐBHØÍ`kØ¹@IÐCÎ@IÐ`DØÍ`lØ(27Q QP.AREG.REGISTER 3 QP.LEFT.OP.CODE) (103Q QP.CLAUSE.OFFSET 75Q QP.CLAUSE.OFFSET 66Q SYMBOL.TAG.16 47Q QP.CLAUSE.OFFSET 36Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.CELL D1 (I 2 CELL I 1 INSTR I 0 CLAUSEPTR) ;B @`ÐA Í@`kØÐBÎ@`kØÐ@`kØÐÈB ØÍ`lØ(54Q QP.OBJ.TAG 14Q QP.LEFT.OP.CODE 3 QP.LOAD.GC.PROTECT) (70Q QP.CLAUSE.OFFSET 62Q QP.CLAUSE.OFFSET 43Q QP.CLAUSE.OFFSET 34Q QP.CLAUSE.OFFSET 22Q QP.CLAUSE.OFFSET 7 QP.CLAUSE.OFFSET) () QP.STORE.INSTR.EXTEND D1 (L (1 INSTR 0 CLAUSEPTR)) A`@`Ð`áHØÍ`kØNIL (34Q QP.CLAUSE.OFFSET 27Q QP.CLAUSE.OFFSET 17Q QP.EXTENSION.OPCODE 13Q QP.CLAUSE.OFFSET 3 QP.EXTENSION.HARRAY) () QP.STORE.INSTR.EXTEND.CELL D1 (P 0 SECONDARY I 2 CELL I 1 INSTR I 0 CLAUSEPTR) @A`@`Ð`áHØÍB @`kØÐB BÒØÍ@`lØÐBÓÍ`lØ(43Q QP.OBJ.TAG 30Q QP.LOAD.GC.PROTECT) (75Q QP.CLAUSE.OFFSET 67Q QP.CLAUSE.OFFSET 54Q QP.CLAUSE.OFFSET 34Q QP.CLAUSE.OFFSET 17Q QP.EXTENSION.OPCODE 13Q QP.CLAUSE.OFFSET 3 QP.EXTENSION.HARRAY) () QP.STORE.INSTR.EXTEND.WORD D1 (L (2 WORD 1 INSTR 0 CLAUSEPTR)) +A`@`Ð`áHØÍ@`kØÐBÓÍ`lØNIL (50Q QP.CLAUSE.OFFSET 42Q QP.CLAUSE.OFFSET 30Q QP.CLAUSE.OFFSET 17Q QP.EXTENSION.OPCODE 13Q QP.CLAUSE.OFFSET 3 QP.EXTENSION.HARRAY) () QP.STORE.INSTR.FUNCTOR D1 (I 3 ARITY I 2 NAME I 1 INSTR I 0 CLAUSEPTR) 0@`ÐA Í@`kØÐ`CØÍ@`lØÐBÓÍ`lØ(10Q QP.LEFT.OP.CODE) (55Q QP.CLAUSE.OFFSET 47Q QP.CLAUSE.OFFSET 34Q QP.CLAUSE.OFFSET 24Q SYMBOL.TAG.16 16Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.STORE.INSTR.GET.PVAR D1 (P 0 PVAR.ADDRESS I 1 PVAR I 0 CLAUSEPTR F 1 QP.membot) QÒl QÓAgØØ@gH(32Q QP.STORE.INSTR.EXTEND.CELL 6 LSH) (26Q load.constant 14Q QP.pvarno) () QP.STORE.INSTR.NULL D1 (I 1 INSTR I 0 CLAUSEPTR) @`ÐA Í`kØ(10Q QP.LEFT.OP.CODE) (22Q QP.CLAUSE.OFFSET 15Q QP.CLAUSE.OFFSET 3 QP.CLAUSE.OFFSET) () QP.STORE.INSTR.OFFSET D1 (P 4 ADDRESS.LOLOC P 3 ADDRESS.HILOC P 2 ADDRESS P 1 CLAUSE.LOLOC P 0 CLAUSE.HILOC I 2 OFFSET I 1 INSTR I 0 CLAUSEPTR) ;@ÒA@Ó¹BHááIØØZãã»Jnÿÿå¼@`ÐA KØÍ@`kØÐLÍ`lØ(41Q QP.LEFT.OP.CODE) (70Q QP.CLAUSE.OFFSET 62Q QP.CLAUSE.OFFSET 51Q QP.CLAUSE.OFFSET 34Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.PROCEDURE D1 (P 0 PROC I 4 MODULE I 3 ARITY I 2 NAME I 1 INSTR I 0 CLAUSEPTR) /BCD@`ÐHÎ@`Ð@`ÐÈA ØÍ`lØ(40Q QP.LEFT.OP.CODE 5 QP.LOCAL.PREDICATE) (54Q QP.CLAUSE.OFFSET 46Q QP.CLAUSE.OFFSET 31Q QP.CLAUSE.OFFSET 24Q QP.CLAUSE.OFFSET 14Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.SIZE.OFFSET D1 (P 4 ADDRESS.LOLOC P 3 ADDRESS.HILOC P 2 ADDRESS P 1 CLAUSE.LOLOC P 0 CLAUSE.HILOC I 3 OFFSET I 2 SIZE I 1 INSTR I 0 CLAUSEPTR) I@ÒA@Ó¹CHááIØØZãã»Jnÿÿå¼@`ÐA KØÍ@`kØÐLÍ@`lØÐBlÚÍ`lØ(41Q QP.LEFT.OP.CODE) (106Q QP.CLAUSE.OFFSET 100Q QP.CLAUSE.OFFSET 63Q QP.CLAUSE.OFFSET 51Q QP.CLAUSE.OFFSET 34Q QP.CLAUSE.OFFSET) () QP.STORE.INSTR.SIZE.PROCEDURE D1 (P 0 PROC I 5 MODULE I 4 ARITY I 3 NAME I 2 SIZE I 1 INSTR I 0 CLAUSEPTR) ;CDE@`ÐA HÒØÍ@`kØÐHÓÍ@`lØÐBlÚÍ`lØ(21Q QP.LEFT.OP.CODE 5 QP.LOCAL.PREDICATE) (70Q QP.CLAUSE.OFFSET 62Q QP.CLAUSE.OFFSET 45Q QP.CLAUSE.OFFSET 32Q QP.CLAUSE.OFFSET 14Q QP.CLAUSE.OFFSET) () QP.TRAP.CLAUSE D1 (I 3 MODULE I 2 ARITY I 1 NAME I 0 CLAUSE) @ljõ bdABCÎ@jg Ç(32Q QP.OP.CODE 20Q QP.LOCAL.PREDICATE 7 SETTOPVAL) (27Q trap) () QP.UNIT.CLAUSE D1 (I 3 MODULE I 2 ARITY I 1 NAME I 0 OPCODE) $ABCb@ jõbdA@ÎA`Î AkÍ @(13Q QP.OP.CODE 5 QP.LOCAL.PREDICATE) (32Q QP.FAILURE.CLAUSE) () (PRETTYCOMPRINT LOADCOMS) (RPAQQ LOADCOMS ((GLOBALVARS QP.CLAUSE.OFFSET QP.DEBUG.CLAUSE QP.DUMMY.CLAUSE QP.EXTENSION.HARRAY QP.EXTENSION.OPCODE QP.FAILURE.CLAUSE QP.INDEXP QP.INSTRUCTION.HARRAY QP.INTERPRET.CLAUSE QP.PERMANENT.OFFSET QP.UNDEFINED.CLAUSE SO.IT.WONT.GC) (VARS QP.INDEXP QP.LAST.CLAUSE.RECORD) (FNS ASSEMBLE.CLAUSE QP.ADD.CLAUSE QP.ALLOCATE.CLAUSE.RECORD QP.AREG.REGISTER QP.ATTACH.CLAUSE.RECORD QP.DESCRIBE.INSTRUCTIONS QP.INITIALIZE.PROLOG QP.LOOK QP.LOOK.ATOM QP.LOOK.BYTE QP.LOOK.BYTE.ATOM QP.LOOK.BYTE.BYTE QP.LOOK.BYTE.CELL QP.LOOK.BYTE.FUNCTOR QP.LOOK.CELL QP.LOOK.CLAUSE QP.LOOK.CONSTANT QP.LOOK.EXTEND QP.LOOK.EXTEND.CELL QP.LOOK.EXTEND.WORD QP.LOOK.FUNCTOR QP.LOOK.INSTR QP.LOOK.NULL QP.LOOK.OFFSET QP.LOOK.ONE.CLAUSE QP.LOOK.OPCODE QP.LOOK.PROCEDURE QP.LOOK.SIZE.OFFSET QP.LOOK.SIZE.PROCEDURE QP.OP.CODE QP.RECONSULT QP.STORE.INCORE QP.STORE.INDEX QP.STORE.INSTR QP.STORE.INSTR.AREG QP.STORE.INSTR.ATOM QP.STORE.INSTR.BYTE QP.STORE.INSTR.BYTE.ATOM QP.STORE.INSTR.BYTE.BYTE QP.STORE.INSTR.BYTE.CELL QP.STORE.INSTR.BYTE.FUNCTOR QP.STORE.INSTR.CELL QP.STORE.INSTR.EXTEND QP.STORE.INSTR.EXTEND.CELL QP.STORE.INSTR.EXTEND.WORD QP.STORE.INSTR.FUNCTOR QP.STORE.INSTR.GET.PVAR QP.STORE.INSTR.NULL QP.STORE.INSTR.OFFSET QP.STORE.INSTR.PROCEDURE QP.STORE.INSTR.SIZE.OFFSET QP.STORE.INSTR.SIZE.PROCEDURE QP.TRAP.CLAUSE QP.UNIT.CLAUSE) (MACROS QP.REGISTER.OR.MEMORY.1) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA ASSEMBLE.CLAUSE) (NLAML QP.UNIT.CLAUSE QP.TRAP.CLAUSE) (LAMA QP.STORE.INSTR))))) (RPAQQ QP.INDEXP NIL) (RPAQQ QP.LAST.CLAUSE.RECORD NIL) (PUTPROPS QP.REGISTER.OR.MEMORY.1 MACRO (**MACROARG** (LET ((AREG (CAR (NTH **MACROARG** 1))) (OPCODE (CAR (NTH **MACROARG** 2)))) (BQUOTE (COND ((GREATERP , AREG 4) (SETQ , OPCODE (IPLUS 512 , OPCODE))) (T (SETQ , AREG (QP.AREG.REGISTER , AREG)))))))) (PUTPROPS LOAD.LSP COPYRIGHT ("Xerox Corporation" 1985)) NIL