(FILECREATED "24-Jan-87 17:09:58" ("compiled on " {PHYLUM}<3-LISP>COURSE>KOTO>REIFY.;1) "12-Nov-85 14:59:23" bcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "16-Aug-84 02:37:24" {PHYLUM}<3-LISP>AUG>REIFY.;3 15310 changes to: (FNS EXPLODE-CONTINUATION CONTINUATION-SKELETON) previous date: "14-Aug-84 01:03:37" {PHYLUM}<3-LISP>AUG>REIFY.;1) BUILD-REIFICATION-TABLE D1 (P 27Q XLEFT P 26Q XFREE P 25Q XARG-PTR P 24Q XNEW-FRAME P 23Q \INTERRUPTABLE P 22Q Y P 21Q \INTERRUPTABLE P 5 CARGS-CONT P 4 CPROC-FRAME P 3 CPROC-CLOSURE P 2 NORMALISE-FRAME P 1 PROC P 0 EXP I 3 CONT I 2 ESC I 1 ENV I 0 FRAME) f @Xdd`@g@HABC h@d`YHABC Z_``_lO`Nll`OlN_jOjOlOOOJO[@KIdg|@HABC hI@HABC hI@H ABHABC hId`O$ O$l O$lo 0 `_,`_.lO.`O,ll`O.lO,_(jO(jO(kO(kO(jO(gO(gO(l_*k__OO*gO*l_*Ok_O(\dKLI `dI`I_`Oh_ `_`_lO`Oll`OlO_jOjOlOO OLO]@j@M@H ABM h(1142Q BUILD-REIFICATION-TABLE-FOR-ARGUMENTS 1133Q PCDR 1011Q SIGNAL-NO-SPACE 752Q CARGS-SKELETON 705Q \BLOCKDATAP 500Q SIGNAL-NO-SPACE 440Q SHOULDNT 403Q \BLOCKDATAP 354Q BUILD-REIFICATION-TABLE-FOR-ARGUMENTS 350Q REIFY-BEGIN-CONTINUATION 337Q ALL-BUT-LAST-FOR-RAILS 334Q PCDR 324Q BEGIN-CLOSURE 314Q REIFY-SET-CONTINUATION 302Q SET-CLOSURE 272Q REIFY-IF-CONTINUATION 260Q IF-CLOSURE 140Q SIGNAL-NO-SPACE 103Q CPROC-SKELETON 77Q MAKE-NORMALISE-FRAME 46Q BUILD-REIFICATION-TABLE-FOR-ARGUMENTS) (1033Q NEW-SPACE 1015Q NEW-SPACE 773Q NEW-SPACE 763Q NEW-SPACE 740Q *QUOTE* 727Q WRAP-ANCHOR 723Q WRAP-ANCHOR 712Q NLISP-STACK-OBJECTTYPE# 645Q NOT.USED 613Q NOT.USED 603Q COURTESY-OF-REIFIER 522Q NEW-SPACE 504Q NEW-SPACE 462Q NEW-SPACE 452Q NEW-SPACE 371Q NLISP-STACK-OBJECT 364Q NLISP-STACK-OBJECTTYPE# 250Q NOT.USED 161Q NEW-SPACE 144Q NEW-SPACE 122Q NEW-SPACE 114Q NEW-SPACE 65Q NLISP-STACK-OBJECT 60Q NLISP-STACK-OBJECTTYPE# 32Q NOT.USED 23Q 3TAGTYPE#) ( 435Q "Attempting to explode an impossible frame") BUILD-REIFICATION-TABLE-FOR-ARGUMENTS D1 (P 31Q \INTERRUPTABLE P 30Q XLEFT P 27Q XFREE P 26Q XARG-PTR P 25Q XNEW-FRAME P 24Q \INTERRUPTABLE P 23Q \INTERRUPTABLE P 22Q CFIRST-FRAME P 21Q CFIRST-CLOSURE P 20Q NORMALISE-FRAME P 17Q ARGNUMBER P 2 LAST-CONT P 1 ARGVAL P 0 ARGPTR I 4 CONT I 3 ESC I 2 ENV I 1 EXP I 0 FRAME)  @lXDZ@kOO0ABCJ _ ``lL`Kll`LlK]jMjMlMNMO M_"HHO"HlиAb0 `_.`_0lO0`O.ll`O0lO._*jO*jO*kO*kO*jO*gO*gO*l_,k__OO,gO,l_,Ok_O*_$O"O$I `dI`I_`Oh_`_`_lO`Oll`OlO_jOjOlOOOO$OZOk_Nh(574Q SIGNAL-NO-SPACE 535Q CREST-SKELETON 467Q \BLOCKDATAP 257Q SIGNAL-NO-SPACE 102Q SIGNAL-NO-SPACE 52Q CFIRST-SKELETON 44Q MAKE-NORMALISE-FRAME) (616Q NEW-SPACE 600Q NEW-SPACE 556Q NEW-SPACE 546Q NEW-SPACE 522Q *QUOTE* 511Q WRAP-ANCHOR 505Q WRAP-ANCHOR 474Q NLISP-STACK-OBJECTTYPE# 424Q NOT.USED 372Q NOT.USED 362Q COURTESY-OF-REIFY-ARGUMENTS 301Q NEW-SPACE 263Q NEW-SPACE 241Q NEW-SPACE 231Q NEW-SPACE 123Q NEW-SPACE 106Q NEW-SPACE 67Q NEW-SPACE 61Q NEW-SPACE) () CONTINUATION-SKELETON D1 (P 3 SKELETON P 2 PROC P 1 FRAME P 0 SKELETON I 0 CONT) @@d`@b @l@@ @lo @j@ b@l@Yd`Z@l@ bJJJ`J`o IjIYIj(275Q CARGS-SKELETON 245Q SHOULDNT 217Q CFIRST-SKELETON 212Q BEGIN-CLOSURE 205Q CSET-SKELETON 200Q SET-CLOSURE 164Q CIF-SKELETON 147Q IF-CLOSURE 120Q CPROC-SKELETON 67Q SHOULDNT 47Q \BLOCKDATAP 26Q \BLOCKDATAP) (234Q MACRO-CLOSURETYPE# 225Q REFLECTIVE-CLOSURETYPE# 141Q NLISP-STACK-OBJECT 134Q NLISP-STACK-OBJECTTYPE# 17Q NLISP-STACK-OBJECT 10Q NLISP-STACK-OBJECTTYPE#) ( 242Q "trying to explode an impossible frame" 64Q "Oops! trying to explode a non-continuation") EXPLODE-CONTINUATION D1 (P 4 RESULT P 3 OFFSET P 2 BACKUP-FRAME P 1 FRAME P 0 SKELETON I 0 CONT) P@d`@b @l@@ @lo @j@ b@@lI@ bIIj-IjI IZJ@@ @ IkJk@JK\ Llo L(262Q SHOULDNT 242Q \BLOCKDATAP 210Q BUILD-REIFICATION-TABLE 165Q MAKE-BACKUP-FRAME 125Q IF-CLOSURE 65Q SHOULDNT 45Q \BLOCKDATAP 26Q \BLOCKDATAP) (17Q NLISP-STACK-OBJECT 10Q NLISP-STACK-OBJECTTYPE#) ( 257Q "Oops! unsuccessful continuation explosion" 62Q "Oops! trying to explode a non-continuation") MAKE-BACKUP-FRAME D1 (P 20Q \INTERRUPTABLE P 15Q XARG-PTR P 14Q XNEW-FRAME P 5 TARGETPTR P 4 SOURCEPTR P 3 NEW-FRAME P 2 OBJ P 1 EXP P 0 NARGS I 0 FRAME) @X@Y@jhZ`Hl__O_OOONOOOOON_jOjOkOHOJkjOIOgOl_Hk__OOOgOl_Ok_O[@kkjh@K@l\Kl]Hkk__OOMLLlмMlнOk_h(71Q SIGNAL-NO-SPACE) (240Q NOT.USED 201Q NOT.USED 35Q NEW-SPACE) () MAKE-NORMALISE-FRAME D1 (P 10Q XARG-PTR P 7 XNEW-FRAME P 6 XLEFT P 5 XFREE P 4 \INTERRUPTABLE P 0 NORMALISE-FRAME I 3 CONT I 2 ESC I 1 ENV I 0 EXP) @P``lN`Mll`NlM_jOjOkOlOjOgOgOl_lkJIOgOl_JkZOXdH@ `d@`@`KhHAHB HC H(240Q \BLOCKDATAP 224Q NORMALISE-CLOSURE 31Q SIGNAL-NO-SPACE) (271Q *QUOTE* 262Q WRAP-ANCHOR 256Q WRAP-ANCHOR 245Q NLISP-STACK-OBJECTTYPE# 227Q NLISP-STACK-OBJECT 173Q NOT.USED 141Q NOT.USED 131Q COURTESY-OF-MAKE-NORMALISE-FRAME 52Q NEW-SPACE 35Q NEW-SPACE 16Q NEW-SPACE 10Q NEW-SPACE) () REIFY-BEGIN-CONTINUATION D1 (P 27Q XLEFT P 26Q XFREE P 25Q XARG-PTR P 24Q XNEW-FRAME P 23Q \INTERRUPTABLE P 3 CBEGIN-CONT P 2 CBEGIN-ARGS-FRAME P 1 CBEGIN-ARGS-CLOSURE P 0 BEGIN-FRAME I 3 CONT I 2 ESC I 1 ENV I 0 CALL) y@  `_,`_.lO.`O,ll`O.lO,_(jO(jO(kO(lO(jO(gO(gO(l_*lkMLO*gO*l_*Mk]O(XdH@ `d@`@`NhHAHB HC _`_`_lO`Oll`OlO_jOjOlOOOHOY  `_,`_.lO.`O,ll`O.lO,_(jO(jO(kO(kO(jO(gO(gO(l_*k__OO*gO*l_*Ok_O(ZdIJ@ _d `dO`_`Oh_$`_`_ lO `Oll`O lO_"jO"jO"lO"O$O"JO"(1070Q SIGNAL-NO-SPACE 1031Q CBEGIN-SKELETON 764Q \BLOCKDATAP 756Q PCDR 550Q SIGNAL-NO-SPACE 405Q SIGNAL-NO-SPACE 346Q CBEGIN-ARGS-SKELETON 270Q \BLOCKDATAP 247Q BEGIN-CLOSURE 47Q SIGNAL-NO-SPACE) (1112Q NEW-SPACE 1074Q NEW-SPACE 1052Q NEW-SPACE 1042Q NEW-SPACE 1017Q *QUOTE* 1010Q WRAP-ANCHOR 1004Q WRAP-ANCHOR 772Q NLISP-STACK-OBJECTTYPE# 715Q NOT.USED 663Q NOT.USED 653Q COURTESY-OF-REIFY-BEGIN 572Q NEW-SPACE 554Q NEW-SPACE 532Q NEW-SPACE 522Q NEW-SPACE 427Q NEW-SPACE 411Q NEW-SPACE 367Q NEW-SPACE 357Q NEW-SPACE 321Q *QUOTE* 312Q WRAP-ANCHOR 306Q WRAP-ANCHOR 275Q NLISP-STACK-OBJECTTYPE# 257Q NLISP-STACK-OBJECT 252Q REFLECTIVE-CLOSURE 215Q NOT.USED 163Q NOT.USED 153Q COURTESY-OF-REIFY-BEGIN 71Q NEW-SPACE 53Q NEW-SPACE 31Q NEW-SPACE 21Q NEW-SPACE) () REIFY-IF-CONTINUATION D1 (P 27Q XLEFT P 26Q XFREE P 25Q XARG-PTR P 24Q XNEW-FRAME P 23Q \INTERRUPTABLE P 3 CIF-CONT P 2 CIF-ARGS-FRAME P 1 CIF-ARGS-CLOSURE P 0 IF-FRAME I 3 CONT I 2 ESC I 1 ENV I 0 CALL) y@  `_,`_.lO.`O,ll`O.lO,_(jO(jO(kO(lO(jO(gO(gO(l_*lkMLO*gO*l_*Mk]O(XdH@ `d@`@`NhHAHB HC _`_`_lO`Oll`OlO_jOjOlOOOHOY  `_,`_.lO.`O,ll`O.lO,_(jO(jO(kO(kO(jO(gO(gO(l_*k__OO*gO*l_*Ok_O(ZdIJ@ _d `dO`_`Oh_$`_`_ lO `Oll`O lO_"jO"jO"lO"O$O"JO"(1070Q SIGNAL-NO-SPACE 1031Q CIF-SKELETON 764Q \BLOCKDATAP 756Q PCDR 550Q SIGNAL-NO-SPACE 405Q SIGNAL-NO-SPACE 346Q CIF-ARGS-SKELETON 270Q \BLOCKDATAP 247Q IF-CLOSURE 47Q SIGNAL-NO-SPACE) (1112Q NEW-SPACE 1074Q NEW-SPACE 1052Q NEW-SPACE 1042Q NEW-SPACE 1017Q *QUOTE* 1010Q WRAP-ANCHOR 1004Q WRAP-ANCHOR 772Q NLISP-STACK-OBJECTTYPE# 715Q NOT.USED 663Q NOT.USED 653Q COURTESY-OF-REIFY-IF 572Q NEW-SPACE 554Q NEW-SPACE 532Q NEW-SPACE 522Q NEW-SPACE 427Q NEW-SPACE 411Q NEW-SPACE 367Q NEW-SPACE 357Q NEW-SPACE 321Q *QUOTE* 312Q WRAP-ANCHOR 306Q WRAP-ANCHOR 275Q NLISP-STACK-OBJECTTYPE# 257Q NLISP-STACK-OBJECT 252Q REFLECTIVE-CLOSURE 215Q NOT.USED 163Q NOT.USED 153Q COURTESY-OF-REIFY-IF 71Q NEW-SPACE 53Q NEW-SPACE 31Q NEW-SPACE 21Q NEW-SPACE) () REIFY-SET-CONTINUATION D1 (P 27Q XLEFT P 26Q XFREE P 25Q XARG-PTR P 24Q XNEW-FRAME P 23Q \INTERRUPTABLE P 3 CSET-CONT P 2 CSET-ARGS-FRAME P 1 CSET-ARGS-CLOSURE P 0 SET-FRAME I 3 CONT I 2 ESC I 1 ENV I 0 CALL) y@  `_,`_.lO.`O,ll`O.lO,_(jO(jO(kO(lO(jO(gO(gO(l_*lkMLO*gO*l_*Mk]O(XdH@ `d@`@`NhHAHB HC _`_`_lO`Oll`OlO_jOjOlOOOHOY  `_,`_.lO.`O,ll`O.lO,_(jO(jO(kO(kO(jO(gO(gO(l_*k__OO*gO*l_*Ok_O(ZdIJ@ _d `dO`_`Oh_$`_`_ lO `Oll`O lO_"jO"jO"lO"O$O"JO"(1070Q SIGNAL-NO-SPACE 1031Q CSET-SKELETON 764Q \BLOCKDATAP 756Q PCDR 550Q SIGNAL-NO-SPACE 405Q SIGNAL-NO-SPACE 346Q CSET-ARGS-SKELETON 270Q \BLOCKDATAP 247Q SET-CLOSURE 47Q SIGNAL-NO-SPACE) (1112Q NEW-SPACE 1074Q NEW-SPACE 1052Q NEW-SPACE 1042Q NEW-SPACE 1017Q *QUOTE* 1010Q WRAP-ANCHOR 1004Q WRAP-ANCHOR 772Q NLISP-STACK-OBJECTTYPE# 715Q NOT.USED 663Q NOT.USED 653Q COURTESY-OF-REIFY-SET 572Q NEW-SPACE 554Q NEW-SPACE 532Q NEW-SPACE 522Q NEW-SPACE 427Q NEW-SPACE 411Q NEW-SPACE 367Q NEW-SPACE 357Q NEW-SPACE 321Q *QUOTE* 312Q WRAP-ANCHOR 306Q WRAP-ANCHOR 275Q NLISP-STACK-OBJECTTYPE# 257Q NLISP-STACK-OBJECT 252Q REFLECTIVE-CLOSURE 215Q NOT.USED 163Q NOT.USED 153Q COURTESY-OF-REIFY-SET 71Q NEW-SPACE 53Q NEW-SPACE 31Q NEW-SPACE 21Q NEW-SPACE) () SAME-CLOSURE D1 (I 1 C2 I 0 C1) c@dAi )@l @j@ b@j@ bA 'AlAjA bAjA @A(134Q EXPLODE-CONTINUATION 66Q \BLOCKDATAP 57Q EXPLODE-CONTINUATION 11Q \BLOCKDATAP) NIL () (PRETTYCOMPRINT REIFYCOMS) (RPAQQ REIFYCOMS ((FNS BUILD-REIFICATION-TABLE BUILD-REIFICATION-TABLE-FOR-ARGUMENTS CONTINUATION-SKELETON EXPLODE-CONTINUATION MAKE-BACKUP-FRAME MAKE-NORMALISE-FRAME REIFY-BEGIN-CONTINUATION REIFY-IF-CONTINUATION REIFY-SET-CONTINUATION SAME-CLOSURE) (SPECVARS NIL) ( LOCALVARS T))) (PUTPROPS REIFY COPYRIGHT ("The Knights of the Lambda Calculus" 1984)) NIL