mim/development/mim/mimc/codgen.mima

   1
   2 <PACKAGE "CODGEN">
   3
   4 <ENTRY GEN CODE-GEN SEQ-GEN SEGMENT-STACK GOOD-TUPLE NO-KILL DELAY-KILL BASEF LADDR TRUE-FALSE SUBR-GEN BIND-CODE NPRUNE ARG? OPT? COND-GEN OR-GEN AND-GEN ASSIGNED?-GEN BIND-B ACT-B AUX1-B AUX2-B SMSUBR-CALL CALL-GEN T-NAME GASSIGNED?-GEN INTERFERE? INTERF-CHANGE SEGLABEL SEGCALLED COUNTMP SET-GEN PSEQ-GEN>
   5
   6 <USE "CHKDCL" "COMPDEC" "MIMGEN" "STRGEN" "MAPGEN" "MMQGEN" "BUILDL" "BITSGEN" "LNQGEN" "CARGEN" "NOTGEN" "ALLR" "SUBRTY" "NEWREP" "ADVMESS" "CASECOMP">
   7
   8 <SETG THE-UNBOUND <CHTYPE 0 T$UNBOUND>>
   9
  10 "       This file contains the major general codde generators.  These include
  11  variable access functions (LVAL, SETG etc.), FSUBRs (COND, AND, REPEAT)
  12  and a few assorted others."
  13
  14 " Main generator, dispatches to specific code generators. "
  15
  16 #WORD *27750327121*
  17 <GFCN \1aGEN ("VALUE" ANY NODE "OPTIONAL" ANY) NOD6 WHERE7>
  18                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
  19 OPT4
  20                     <PUSH 'DONT-CARE>
  21 OPT5
  22                     <TEMP TEMP8>
  23                     <INTGO>
  24                     <FRAME '\1aGEN-DISPATCH>
  25                     <PUSH NOD6>
  26                     <PUSH WHERE7>
  27                     <DEAD WHERE7>
  28                     <CALL '\1aGEN-DISPATCH 2 = TEMP8>
  29                     <GEN-ASSIGNED? 'NPRUNE + BOOL10>
  30                     <PUTUV NOD6 5 () (TYPE LIST)>
  31                     <DEAD NOD6>
  32 BOOL10
  33                     <RETURN TEMP8>
  34                     <DEAD TEMP8>
  35                     <END \1aGEN>
  36 " Generate a sequence of nodes flushing all values except the ladt."
  37
  38 #WORD *1036732747*
  39 <GFCN \1aSEQ-GEN ("VALUE" ANY <LIST [REST NODE]> ANY "OPTIONAL" ANY ANY ANY) L8 WHERE9 INPROG10 SINPROG11 INCODE-GEN12>
  40                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
  41 OPT4
  42                     <PUSH %<>>
  43 OPT5
  44                     <PUSH %<>>
  45 OPT6
  46                     <PUSH %<>>
  47 OPT7
  48                     <TEMP (WSET14 %<>) TEMP21:LIST N26:LIST ND27 TEMP32 NX28>
  49                     <INTGO>
  50                     <SET TEMP21 L8 (TYPE LIST)>
  51                     <DEAD L8>
  52                     <LOOP>
  53 MAP16
  54                     <INTGO>
  55                     <EMPL? TEMP21 + MAPAP19>
  56                     <SET N26 TEMP21>
  57                     <NTHL N26 1 = ND27 (TYPE NODE)>
  58                     <RESTL N26 1 = TEMP32 (TYPE LIST)>
  59                     <EMPL? TEMP32 + PHRASE31 (TYPE LIST)>
  60                     <DEAD TEMP32>
  61                     <RESTL N26 1 = TEMP32 (TYPE LIST)>
  62                     <NTHL TEMP32 1 = NX28 (TYPE NODE)>
  63                     <DEAD TEMP32>
  64                     <NTHUV NX28 1 = TEMP32 (TYPE FIX)>
  65                     <VEQUAL? TEMP32 90 - PHRASE34 (TYPE FIX)>
  66                     <DEAD TEMP32>
  67                     <NTHUV NX28 5 = NX28 (TYPE LIST)>
  68                     <EMPL? NX28 + PHRASE34>
  69                     <RESTL NX28 1 = TEMP32 (TYPE LIST)>
  70                     <EMPL? TEMP32 + PHRASE34>
  71                     <DEAD TEMP32>
  72                     <NTHL NX28 1 = TEMP32 (TYPE NODE)>
  73                     <DEAD NX28>
  74                     <NTHUV TEMP32 4 = TEMP32>
  75                     <EQUAL? TEMP32 '`ENDIF - PHRASE34>
  76                     <DEAD TEMP32>
  77                     <FRAME '\1aGEN>
  78                     <PUSH ND27>
  79                     <DEAD ND27>
  80                     <PUSH WHERE9>
  81                     <CALL '\1aGEN 2 = ND27>
  82                     <VEQUAL? WSET14 0 - PHRASE38>
  83                     <EQUAL? WHERE9 'FLUSHED + PHRASE38>
  84                     <GVAL 'NO-DATUM = TEMP32>
  85                     <EQUAL? TEMP32 ND27 + PHRASE38>
  86                     <DEAD TEMP32>
  87                     <GVAL 'POP-STACK = TEMP32>
  88                     <EQUAL? TEMP32 WHERE9 + PHRASE38>
  89                     <DEAD TEMP32>
  90                     <FRAME '\1aFIXUP-TEMP>
  91                     <PUSH WHERE9>
  92                     <DEAD WHERE9>
  93                     <PUSH ND27>
  94                     <DEAD ND27>
  95                     <CALL '\1aFIXUP-TEMP 2 = WHERE9>
  96                     <SET WSET14 'T (TYPE ATOM)>
  97 PHRASE38
  98                     <RESTL N26 1 = TEMP32 (TYPE LIST)>
  99                     <DEAD N26>
 100                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
 101                     <EMPL? TEMP32 + PHRASE53 (TYPE LIST)>
 102                     <DEAD TEMP32>
 103                     <FRAME '\1aDEALLOCATE-TEMP>
 104                     <PUSH WHERE9>
 105                     <CALL '\1aDEALLOCATE-TEMP 1>
 106                     <JUMP + PHRASE53>
 107 PHRASE34
 108                     <LENUV ND27 = TEMP32 (TYPE FIX)>
 109                     <LESS? TEMP32 8 + BOOL47 (TYPE FIX)>
 110                     <DEAD TEMP32>
 111                     <NTHUV ND27 8 = TEMP32>
 112                     <TYPE? TEMP32 <TYPE-CODE FALSE> - BOOL46>
 113                     <DEAD TEMP32>
 114 BOOL47
 115                     <FRAME '\1aGETPROP>
 116                     <PUSH ND27>
 117                     <PUSH 'DONT-FLUSH-ME>
 118                     <CALL '\1aGETPROP 2 = TEMP32>
 119                     <TYPE? TEMP32 <TYPE-CODE FALSE> - BOOL46>
 120                     <DEAD TEMP32>
 121                     <GVAL 'DONT-FLUSH-ME = TEMP32>
 122                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE53>
 123                     <DEAD TEMP32>
 124 BOOL46
 125                     <FRAME '\1aGEN>
 126                     <PUSH ND27>
 127                     <DEAD ND27>
 128                     <PUSH 'FLUSHED>
 129                     <CALL '\1aGEN 2>
 130                     <JUMP + PHRASE53>
 131 PHRASE31
 132                     <NTHUV ND27 1 = TEMP32 (TYPE FIX)>
 133                     <VEQUAL? TEMP32 90 - PHRASE50 (TYPE FIX)>
 134                     <DEAD TEMP32>
 135                     <NTHUV ND27 5 = NX28 (TYPE LIST)>
 136                     <EMPL? NX28 + PHRASE50>
 137                     <RESTL NX28 1 = TEMP32 (TYPE LIST)>
 138                     <EMPL? TEMP32 + PHRASE50>
 139                     <DEAD TEMP32>
 140                     <NTHL NX28 1 = TEMP32 (TYPE NODE)>
 141                     <DEAD NX28>
 142                     <NTHUV TEMP32 4 = TEMP32>
 143                     <EQUAL? TEMP32 '`ENDIF - PHRASE50>
 144                     <DEAD TEMP32>
 145                     <FRAME '\1aGEN>
 146                     <PUSH ND27>
 147                     <DEAD ND27>
 148                     <PUSH 'FLUSHED>
 149                     <CALL '\1aGEN 2>
 150                     <JUMP + PHRASE53>
 151 PHRASE50
 152                     <FRAME '\1aGEN>
 153                     <PUSH ND27>
 154                     <DEAD ND27>
 155                     <PUSH WHERE9>
 156                     <DEAD WHERE9>
 157                     <CALL '\1aGEN 2 = WHERE9>
 158 PHRASE53
 159                     <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
 160                     <JUMP + MAP16>
 161 MAPAP19
 162                     <RETURN WHERE9>
 163                     <DEAD WHERE9>
 164                     <END \1aSEQ-GEN>
 165 " The main code generation entry (called from CDRIVE).  Sets up initial
 166  stack model, calls to generate code for the bindings and generates code for
 167  the function's body."
 168
 169 #WORD *31133576555*
 170 <GFCN \1aCODE-GEN ("VALUE" LIST NODE ANY) BASEF4 EXTRA-CODE5>
 171                     <TEMP TEMP3:LBIND TEMP27 TEMP28 K6 ATAG10:ATOM RTAG11:ATOM BNDTMP23:TEMP>
 172                     <INTGO>
 173                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
 174                     <BBIND 'BASEF 'NODE %<> BASEF4>
 175                     <DEAD BASEF4>
 176                     <FIXBIND>
 177                     <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 178                     <NTHR TEMP28 1 = TEMP27 (RECORD-TYPE LBIND)>
 179                     <DEAD TEMP28>
 180                     <NTHUV TEMP27 5 = K6 (TYPE LIST)>
 181                     <DEAD TEMP27>
 182                     <BBIND 'NO-KILL 'LIST 'FIX ()>
 183                     <BBIND 'KILL-LIST 'LIST 'FIX ()>
 184                     <FRAME '\1aMAKE-TAG>
 185                     <PUSH "AGAIN">
 186                     <CALL '\1aMAKE-TAG 1 = ATAG10>
 187                     <FRAME '\1aMAKE-TAG>
 188                     <PUSH "RETURN">
 189                     <CALL '\1aMAKE-TAG 1 = RTAG11>
 190                     <BBIND 'CODE-START 'LIST 'FIX EXTRA-CODE5>
 191                     <DEAD EXTRA-CODE5>
 192                     <NTHR 'CODE-START 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 193                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 194                     <BBIND 'CODE-PTR 'LIST 'FIX TEMP27>
 195                     <DEAD TEMP27>
 196                     <BBIND 'EVERY-TEMP 'LIST 'FIX ()>
 197                     <BBIND 'ARGS-NEXT 'LIST 'FIX>
 198                     <BBIND 'TMPS 'FORM 'FIX>
 199                     <BBIND 'TMPS-NEXT 'LIST 'FIX>
 200                     <BBIND 'STK 'FIX 'FIX 0>
 201                     <BBIND 'FREE-TEMPS <LIST [REST TEMP]> 'FIX ()>
 202                     <BBIND 'ALL-TEMPS-LIST 'LIST 'FIX ()>
 203                     <BBIND 'TMP-DEST 'ATOM 'FIX>
 204                     <BBIND 'SPECD 'ANY 'FIX>
 205                     <BBIND 'STKTMP 'ANY 'FIX>
 206                     <BBIND 'STK-CHARS7 'FIX 'FIX 0>
 207                     <BBIND 'STK-CHARS8 'FIX 'FIX 0>
 208                     <FRAME '\1aMIM-FCN>
 209                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 210                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 211                     <NTHUV TEMP27 4 = STACK>
 212                     <DEAD TEMP27>
 213                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 214                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 215                     <NTHUV TEMP27 9 = STACK>
 216                     <DEAD TEMP27>
 217                     <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 218                     <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
 219                     <NTHUV TEMP28 12 = TEMP27>
 220                     <DEAD TEMP28>
 221                     <TYPE? TEMP27 <TYPE-CODE FALSE> - BOOL40>
 222                     <FRAME '\1aACTIV?>
 223                     <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 224                     <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
 225                     <NTHUV TEMP28 10 = STACK (TYPE LIST)>
 226                     <DEAD TEMP28>
 227                     <CALL '\1aACTIV? 1 = TEMP27>
 228                     <VEQUAL? TEMP27 0 - BOOL40>
 229                     <FRAME '\1aGETPROP>
 230                     <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 231                     <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
 232                     <NTHUV TEMP28 4 = STACK>
 233                     <DEAD TEMP28>
 234                     <PUSH 'FRAME>
 235                     <CALL '\1aGETPROP 2 = TEMP27>
 236                     <TYPE? TEMP27 <TYPE-CODE FALSE> - BOOL40>
 237                     <FRAME '\1aGETPROP>
 238                     <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 239                     <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
 240                     <DEAD TEMP28>
 241                     <PUSH 'UNWIND>
 242                     <CALL '\1aGETPROP 2 = TEMP27>
 243 BOOL40
 244                     <PUSH TEMP27>
 245                     <DEAD TEMP27>
 246                     <CALL '\1aMIM-FCN 3>
 247                     <FRAME '\1aMIM-TEMPS-HOLD>
 248                     <CALL '\1aMIM-TEMPS-HOLD 0>
 249                     <FRAME '\1aBIND-CODE>
 250                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 251                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 252                     <DEAD TEMP27>
 253                     <PUSH %<>>
 254                     <FRAME '\1aGEN-TEMP>
 255                     <PUSH %<>>
 256                     <CALL '\1aGEN-TEMP 1 = BNDTMP23>
 257                     <PUSH BNDTMP23>
 258                     <CALL '\1aBIND-CODE 3 = TEMP27>
 259                     <NTHR 'SPECD 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 260                     <PUTR TEMP28 1 TEMP27 (RECORD-TYPE LBIND)>
 261                     <DEAD TEMP28 TEMP27>
 262                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 263                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 264                     <NTHUV TEMP27 19 = TEMP27>
 265                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE60>
 266                     <DEAD TEMP27>
 267                     <FRAME '\1aIEMIT>
 268                     <PUSH '`LOOP>
 269                     <CALL '\1aIEMIT 1>
 270 PHRASE60
 271                     <FRAME '\1aLABEL-TAG>
 272                     <PUSH ATAG10>
 273                     <CALL '\1aLABEL-TAG 1>
 274                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 275                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 276                     <PUTUV TEMP27 14 'DONT-CARE>
 277                     <DEAD TEMP27>
 278                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 279                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 280                     <PUTUV TEMP27 15 'DONT-CARE>
 281                     <DEAD TEMP27>
 282                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 283                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 284                     <PUTUV TEMP27 16 ATAG10>
 285                     <DEAD TEMP27 ATAG10>
 286                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 287                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 288                     <PUTUV TEMP27 17 RTAG11>
 289                     <DEAD TEMP27>
 290                     <FRAME '\1aSEQ-GEN>
 291                     <PUSH K6>
 292                     <DEAD K6>
 293                     <PUSH 'DONT-CARE>
 294                     <PUSH %<>>
 295                     <PUSH %<>>
 296                     <PUSH 'T>
 297                     <CALL '\1aSEQ-GEN 5 = K6>
 298                     <GVAL 'NO-DATUM = TEMP27>
 299                     <EQUAL? K6 TEMP27 - PHRASE75>
 300                     <DEAD TEMP27>
 301                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 302                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 303                     <NTHUV TEMP27 15 = K6>
 304                     <DEAD TEMP27>
 305 PHRASE75
 306                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 307                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 308                     <NTHUV TEMP27 15 = TEMP27>
 309                     <EQUAL? TEMP27 K6 + PHRASE79>
 310                     <DEAD TEMP27>
 311                     <FRAME '\1aMOVE-ARG>
 312                     <PUSH K6>
 313                     <DEAD K6>
 314                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 315                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 316                     <NTHUV TEMP27 15 = STACK>
 317                     <DEAD TEMP27>
 318                     <CALL '\1aMOVE-ARG 2 = K6>
 319 PHRASE79
 320                     <FRAME '\1aLABEL-TAG>
 321                     <PUSH RTAG11>
 322                     <DEAD RTAG11>
 323                     <CALL '\1aLABEL-TAG 1>
 324                     <NTHR 'TMP-DEST 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 325                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 326                     <TYPE? TEMP27 <TYPE-CODE UNBOUND> + PHRASE87>
 327                     <DEAD TEMP27>
 328                     <NTHR 'TMPS-NEXT 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 329                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 330                     <NTHR 'TMP-DEST 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 331                     <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
 332                     <CONS TEMP28 () = TEMP28>
 333                     <CONS '= TEMP28 = TEMP28>
 334                     <PUTREST TEMP27 TEMP28>
 335                     <DEAD TEMP27 TEMP28>
 336 PHRASE87
 337                     <FRAME '\1aFREE-TEMP>
 338                     <PUSH K6>
 339                     <PUSH %<>>
 340                     <CALL '\1aFREE-TEMP 2>
 341                     <NTHR 'SPECD 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 342                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 343                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE94>
 344                     <DEAD TEMP27>
 345                     <FRAME '\1aIEMIT>
 346                     <PUSH '`UNBIND>
 347                     <PUSH BNDTMP23>
 348                     <CALL '\1aIEMIT 2>
 349                     <FRAME '\1aFREE-TEMP>
 350                     <PUSH BNDTMP23>
 351                     <DEAD BNDTMP23>
 352                     <CALL '\1aFREE-TEMP 1>
 353 PHRASE94
 354                     <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 355                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 356                     <VEQUAL? TEMP27 0 + PHRASE100 (TYPE FIX)>
 357                     <DEAD TEMP27>
 358                     <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 359                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 360                     <NTHR 'STK 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 361                     <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
 362                     <ADD TEMP27 TEMP28 = TEMP27 (TYPE FIX)>
 363                     <DEAD TEMP28>
 364                     <NTHR 'STK-CHARS8 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 365                     <PUTR TEMP28 1 TEMP27 (RECORD-TYPE LBIND)>
 366                     <DEAD TEMP28 TEMP27>
 367                     <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 368                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 369                     <NTHR 'STK 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 370                     <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
 371                     <ADD TEMP27 TEMP28 = TEMP27 (TYPE FIX)>
 372                     <DEAD TEMP28>
 373                     <NTHR 'STK-CHARS7 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
 374                     <PUTR TEMP28 1 TEMP27 (RECORD-TYPE LBIND)>
 375                     <DEAD TEMP28 TEMP27>
 376                     <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 377                     <PUTR TEMP27 1 0 (RECORD-TYPE LBIND)>
 378                     <DEAD TEMP27>
 379 PHRASE100
 380                     <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 381                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 382                     <TYPE? TEMP27 <TYPE-CODE UNBOUND> + PHRASE120>
 383                     <DEAD TEMP27>
 384                     <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 385                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 386                     <VEQUAL? TEMP27 0 + PHRASE122 (TYPE FIX)>
 387                     <DEAD TEMP27>
 388                     <FRAME '\1aIEMIT>
 389                     <PUSH '`SUB>
 390                     <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 391                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 392                     <DEAD TEMP27>
 393                     <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 394                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 395                     <DEAD TEMP27>
 396                     <PUSH '=>
 397                     <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 398                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 399                     <DEAD TEMP27>
 400                     <CONS 'FIX () = TEMP27>
 401                     <CONS '`TYPE TEMP27 = STACK>
 402                     <DEAD TEMP27>
 403                     <CALL '\1aIEMIT 6>
 404                     <JUMP + PHRASE134>
 405 PHRASE122
 406                     <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 407                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 408                     <VEQUAL? TEMP27 0 + PHRASE134 (TYPE FIX)>
 409                     <DEAD TEMP27>
 410                     <FRAME '\1aIEMIT>
 411                     <PUSH '`IFSYS>
 412                     <PUSH "TOPS20">
 413                     <CALL '\1aIEMIT 2>
 414                     <FRAME '\1aIEMIT>
 415                     <PUSH '`SUB>
 416                     <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 417                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 418                     <DEAD TEMP27>
 419                     <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 420                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 421                     <DEAD TEMP27>
 422                     <PUSH '=>
 423                     <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 424                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 425                     <DEAD TEMP27>
 426                     <CALL '\1aIEMIT 5>
 427                     <FRAME '\1aIEMIT>
 428                     <PUSH '`ENDIF>
 429                     <PUSH "TOPS20">
 430                     <CALL '\1aIEMIT 2>
 431                     <FRAME '\1aIEMIT>
 432                     <PUSH '`IFSYS>
 433                     <PUSH "UNIX">
 434                     <CALL '\1aIEMIT 2>
 435                     <FRAME '\1aIEMIT>
 436                     <PUSH '`SUB>
 437                     <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 438                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 439                     <DEAD TEMP27>
 440                     <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 441                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 442                     <DEAD TEMP27>
 443                     <PUSH '=>
 444                     <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 445                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 446                     <DEAD TEMP27>
 447                     <CALL '\1aIEMIT 5>
 448                     <FRAME '\1aIEMIT>
 449                     <PUSH '`ENDIF>
 450                     <PUSH "UNIX">
 451                     <CALL '\1aIEMIT 2>
 452 PHRASE134
 453                     <FRAME '\1aIEMIT>
 454                     <PUSH '`ADJ>
 455                     <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 456                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 457                     <DEAD TEMP27>
 458                     <CALL '\1aIEMIT 2>
 459                     <FRAME '\1aFREE-TEMP>
 460                     <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 461                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 462                     <DEAD TEMP27>
 463                     <CALL '\1aFREE-TEMP 1>
 464                     <JUMP + PHRASE171>
 465 PHRASE120
 466                     <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 467                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 468                     <VEQUAL? TEMP27 0 + PHRASE163 (TYPE FIX)>
 469                     <DEAD TEMP27>
 470                     <FRAME '\1aIEMIT>
 471                     <PUSH '`ADJ>
 472                     <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 473                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 474                     <SUB 0 TEMP27 = STACK (TYPE FIX)>
 475                     <DEAD TEMP27>
 476                     <CALL '\1aIEMIT 2>
 477                     <JUMP + PHRASE171>
 478 PHRASE163
 479                     <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 480                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 481                     <VEQUAL? TEMP27 0 + PHRASE171 (TYPE FIX)>
 482                     <DEAD TEMP27>
 483                     <FRAME '\1aIEMIT>
 484                     <PUSH '`IFSYS>
 485                     <PUSH "TOPS20">
 486                     <CALL '\1aIEMIT 2>
 487                     <FRAME '\1aIEMIT>
 488                     <PUSH '`ADJ>
 489                     <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 490                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 491                     <SUB 0 TEMP27 = STACK (TYPE FIX)>
 492                     <DEAD TEMP27>
 493                     <CALL '\1aIEMIT 2>
 494                     <FRAME '\1aIEMIT>
 495                     <PUSH '`ENDIF>
 496                     <PUSH "TOPS20">
 497                     <CALL '\1aIEMIT 2>
 498                     <FRAME '\1aIEMIT>
 499                     <PUSH '`IFSYS>
 500                     <PUSH "UNIX">
 501                     <CALL '\1aIEMIT 2>
 502                     <FRAME '\1aIEMIT>
 503                     <PUSH '`ADJ>
 504                     <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 505                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 506                     <SUB 0 TEMP27 = STACK (TYPE FIX)>
 507                     <DEAD TEMP27>
 508                     <CALL '\1aIEMIT 2>
 509                     <FRAME '\1aIEMIT>
 510                     <PUSH '`ENDIF>
 511                     <PUSH "UNIX">
 512                     <CALL '\1aIEMIT 2>
 513 PHRASE171
 514                     <FRAME '\1aMIM-RETURN>
 515                     <PUSH K6>
 516                     <DEAD K6>
 517                     <CALL '\1aMIM-RETURN 1>
 518                     <FRAME '\1aTYPIFY-TEMPS>
 519                     <NTHR 'EVERY-TEMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 520                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
 521                     <DEAD TEMP27>
 522                     <CALL '\1aTYPIFY-TEMPS 1>
 523                     <FRAME '\1aIEMIT>
 524                     <PUSH '`END>
 525                     <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 526                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 527                     <NTHUV TEMP27 4 = TEMP27>
 528                     <CHTYPE TEMP27 <TYPE-CODE FCN-ATOM> = STACK>
 529                     <DEAD TEMP27>
 530                     <CALL '\1aIEMIT 2>
 531                     <NTHR 'CODE-START 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 532                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
 533                     <UNBIND TEMP3>
 534                     <DEAD TEMP3>
 535                     <ADJ -153>
 536                     <RETURN TEMP27>
 537                     <DEAD TEMP27>
 538                     <END \1aCODE-GEN>
 539 " Generate code for setting up and binding agruments."
 540
 541 #WORD *137601750*
 542 <GFCN \1aBIND-CODE ("VALUE" ANY NODE "OPTIONAL" ANY ANY) NOD7 FORPROG8 BNDTMP9>
 543                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
 544 OPT4
 545                     <PUSH %<>>
 546 OPT5
 547                     <PUSH #T$UNBOUND 0>
 548 OPT6
 549                     <TEMP BST10:LIST TEMP3:LBIND (LARG12 %<>) (ANY-ARG13 %<>) (ANY-SPEC14 %<>) (OPTS?15 %<>) (OL16 ()) (TUP?18 %<>) TEMP28 TEMP27 SYM32 TEMP36 TEMP41>
 550                     <INTGO>
 551                     <NTHUV NOD7 10 = BST10 (TYPE LIST)>
 552                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
 553                     <BBIND 'NPRUNE 'ANY 'FIX 'T>
 554                     <BBIND 'T-NAME 'ANY 'FIX>
 555                     <TYPE? FORPROG8 <TYPE-CODE FALSE> - PHRASE81>
 556                     <SET OL16 () (TYPE LIST)>
 557                     <SET TEMP28 () (TYPE LIST)>
 558                     <SET TEMP27 BST10 (TYPE LIST)>
 559                     <LOOP>
 560 MAP22
 561                     <INTGO>
 562                     <EMPL? TEMP27 + MAPAP25>
 563                     <NTHL TEMP27 1 = SYM32>
 564                     <FRAME '\1aOPT?>
 565                     <PUSH SYM32>
 566                     <CALL '\1aOPT? 1 = TEMP36>
 567                     <VEQUAL? TEMP36 0 + PHRASE34>
 568                     <DEAD TEMP36>
 569                     <FRAME '\1aMAKE-TAG>
 570                     <PUSH "OPT">
 571                     <CALL '\1aMAKE-TAG 1 = TEMP36>
 572                     <JUMP + PHRASE38>
 573 PHRASE34
 574                     <NTHUV SYM32 4 = TEMP41 (TYPE FIX)>
 575                     <DEAD SYM32>
 576                     <VEQUAL? TEMP41 4 - MAP23 (TYPE FIX)>
 577                     <DEAD TEMP41>
 578                     <NTHUV NOD7 20 = TUP?18 (TYPE FIX)>
 579                     <JUMP + MAP23>
 580 PHRASE38
 581                     <CONS TEMP36 () = TEMP36 (TYPE LIST)>
 582                     <EMPL? OL16 - TAG43>
 583                     <SET OL16 TEMP36 (TYPE LIST)>
 584                     <JUMP + TAG44>
 585 TAG43
 586                     <PUTREST TEMP28 TEMP36>
 587                     <DEAD TEMP28>
 588 TAG44
 589                     <SET TEMP28 TEMP36 (TYPE LIST)>
 590                     <DEAD TEMP36>
 591 MAP23
 592                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
 593                     <JUMP + MAP22>
 594 MAPAP25
 595                     <EMPL? OL16 + PHRASE46 (TYPE LIST)>
 596                     <SET TEMP27 OL16>
 597                     <LOOP (TEMP27 VALUE)>
 598 TAG47
 599                     <RESTL TEMP27 1 = TEMP36 (TYPE LIST)>
 600                     <EMPL? TEMP36 + TAG48>
 601                     <SET TEMP27 TEMP36>
 602                     <DEAD TEMP36>
 603                     <JUMP + TAG47>
 604 TAG48
 605                     <FRAME '\1aMAKE-TAG>
 606                     <PUSH "OPT">
 607                     <CALL '\1aMAKE-TAG 1 = TEMP36>
 608                     <CONS TEMP36 () = TEMP36>
 609                     <PUTREST TEMP27 TEMP36>
 610                     <DEAD TEMP27 TEMP36>
 611                     <FRAME '\1aIEMIT>
 612                     <PUSH '`OPT-DISPATCH>
 613                     <NTHUV NOD7 21 = STACK (TYPE FIX)>
 614                     <PUSH TUP?18>
 615                     <DEAD TUP?18>
 616                     <SET TEMP41 3 (TYPE FIX)>
 617                     <SET TEMP36 OL16>
 618                     <LOOP (TEMP36 VALUE) (TEMP41 VALUE)>
 619 TAG51
 620                     <INTGO>
 621                     <EMPL? TEMP36 + TAG50>
 622                     <NTHL TEMP36 1 = STACK>
 623                     <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
 624                     <ADD TEMP41 1 = TEMP41 (TYPE FIX)>
 625                     <JUMP + TAG51>
 626 TAG50
 627                     <CALL '\1aIEMIT TEMP41>
 628                     <DEAD TEMP41>
 629 PHRASE46
 630                     <SET TEMP41 BST10 (TYPE LIST)>
 631                     <LOOP>
 632 MAP54
 633                     <INTGO>
 634                     <EMPL? TEMP41 + MAPAP57>
 635                     <NTHL TEMP41 1 = SYM32>
 636                     <FRAME '\1aGEN-TEMP>
 637                     <PUSH %<>>
 638                     <NTHUV SYM32 2 = STACK (TYPE ATOM)>
 639                     <PUSH 'T>
 640                     <NTHUV SYM32 7 = STACK>
 641                     <CALL '\1aGEN-TEMP 4 = TUP?18>
 642                     <PUTUV SYM32 10 TUP?18>
 643                     <DEAD TUP?18>
 644                     <FRAME '\1aOPT?>
 645                     <PUSH SYM32>
 646                     <CALL '\1aOPT? 1 = TUP?18>
 647                     <VEQUAL? TUP?18 0 + PHRASE78>
 648                     <DEAD TUP?18>
 649                     <FRAME '\1aLABEL-TAG>
 650                     <NTHL OL16 1 = STACK>
 651                     <CALL '\1aLABEL-TAG 1>
 652                     <RESTL OL16 1 = OL16 (TYPE LIST)>
 653                     <NTHUV SYM32 3 = TUP?18>
 654                     <TYPE? TUP?18 <TYPE-CODE FALSE> - PHRASE71>
 655                     <DEAD TUP?18>
 656                     <NTHUV SYM32 4 = TUP?18 (TYPE FIX)>
 657                     <VEQUAL? TUP?18 9 + PHRASE71 (TYPE FIX)>
 658                     <DEAD TUP?18>
 659                     <NTHUV SYM32 4 = TUP?18 (TYPE FIX)>
 660                     <VEQUAL? TUP?18 8 + PHRASE71 (TYPE FIX)>
 661                     <DEAD TUP?18>
 662                     <NTHUV SYM32 9 = TUP?18 (TYPE NODE)>
 663                     <NTHUV TUP?18 1 = TUP?18 (TYPE FIX)>
 664                     <VEQUAL? TUP?18 2 + BOOL73 (TYPE FIX)>
 665                     <VEQUAL? TUP?18 10 - PHRASE71 (TYPE FIX)>
 666                     <DEAD TUP?18>
 667 BOOL73
 668                     <FRAME '\1aGEN>
 669                     <NTHUV SYM32 9 = STACK (TYPE NODE)>
 670                     <DEAD SYM32>
 671                     <GVAL 'POP-STACK = STACK>
 672                     <CALL '\1aGEN 2>
 673                     <JUMP + PHRASE75>
 674 PHRASE71
 675                     <FRAME '\1aPUSH>
 676                     <GVAL 'THE-UNBOUND = STACK>
 677                     <CALL '\1aPUSH 1>
 678 PHRASE75
 679                     <RESTL OL16 1 = TUP?18 (TYPE LIST)>
 680                     <EMPL? TUP?18 - PHRASE78 (TYPE LIST)>
 681                     <DEAD TUP?18>
 682                     <FRAME '\1aLABEL-TAG>
 683                     <NTHL OL16 1 = STACK>
 684                     <CALL '\1aLABEL-TAG 1>
 685 PHRASE78
 686                     <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
 687                     <JUMP + MAP54>
 688 MAPAP57
 689                     <NTHUV NOD7 1 = TUP?18 (TYPE FIX)>
 690                     <VEQUAL? TUP?18 1 - PHRASE81 (TYPE FIX)>
 691                     <DEAD TUP?18>
 692                     <FRAME '\1aMIM-TEMPS-EMIT>
 693                     <CALL '\1aMIM-TEMPS-EMIT 0>
 694 PHRASE81
 695                     <SET TUP?18 BST10 (TYPE LIST)>
 696                     <DEAD BST10>
 697                     <LOOP>
 698 MAP86
 699                     <INTGO>
 700                     <EMPL? TUP?18 + MAPAP89>
 701                     <SET BST10 TUP?18>
 702                     <NTHL BST10 1 = OL16 (TYPE SYMTAB)>
 703                     <FRAME '\1aARG?>
 704                     <PUSH OL16>
 705                     <CALL '\1aARG? 1 = TEMP28>
 706                     <FRAME '\1aOPT?>
 707                     <PUSH OL16>
 708                     <CALL '\1aOPT? 1 = TEMP27>
 709                     <NTHUV OL16 15 = TEMP36>
 710                     <TYPE? TEMP36 <TYPE-CODE FALSE> - PHRASE105>
 711                     <DEAD TEMP36>
 712                     <NTHUV OL16 3 = TEMP36>
 713                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE103>
 714                     <DEAD TEMP36>
 715                     <FRAME '\1aCOMPILE-NOTE>
 716                     <PUSH "Special variable never used: ">
 717                     <NTHUV OL16 2 = STACK (TYPE ATOM)>
 718                     <CALL '\1aCOMPILE-NOTE 2>
 719                     <JUMP + PHRASE105>
 720 PHRASE103
 721                     <FRAME '\1aCOMPILE-WARNING>
 722                     <PUSH "Variable never used: ">
 723                     <NTHUV OL16 2 = STACK (TYPE ATOM)>
 724                     <CALL '\1aCOMPILE-WARNING 2>
 725 PHRASE105
 726                     <VEQUAL? LARG12 0 - PHRASE108>
 727                     <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE108>
 728                     <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE108>
 729                     <VEQUAL? ANY-SPEC14 0 + PHRASE111>
 730                     <VEQUAL? ANY-ARG13 0 + PHRASE111>
 731                     <FRAME '\1aGEN-FIX-BIND>
 732                     <CALL '\1aGEN-FIX-BIND 0>
 733 PHRASE111
 734                     <SET LARG12 'T (TYPE ATOM)>
 735 PHRASE108
 736                     <NTHUV OL16 10 = TEMP36>
 737                     <TYPE? TEMP36 <TYPE-CODE TEMP> + PHRASE115>
 738                     <DEAD TEMP36>
 739                     <FRAME '\1aGEN-TEMP>
 740                     <PUSH %<>>
 741                     <NTHUV OL16 2 = STACK (TYPE ATOM)>
 742                     <PUSH 'T>
 743                     <NTHUV OL16 7 = STACK>
 744                     <CALL '\1aGEN-TEMP 4 = TEMP36>
 745                     <PUTUV OL16 10 TEMP36>
 746                     <DEAD TEMP36>
 747 PHRASE115
 748                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE118>
 749                     <VEQUAL? OPTS?15 0 - PHRASE118>
 750                     <SET OPTS?15 'T (TYPE ATOM)>
 751 PHRASE118
 752                     <TYPE? BNDTMP9 <TYPE-CODE UNBOUND> + PHRASE121>
 753                     <NTHUV OL16 3 = TEMP36>
 754                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE121>
 755                     <DEAD TEMP36>
 756                     <VEQUAL? ANY-SPEC14 0 - PHRASE121>
 757                     <SET ANY-SPEC14 'T (TYPE ATOM)>
 758                     <FRAME '\1aUSE-TEMP>
 759                     <PUSH BNDTMP9>
 760                     <PUSH 'LBIND>
 761                     <CALL '\1aUSE-TEMP 2>
 762                     <FRAME '\1aGET-BINDING>
 763                     <PUSH BNDTMP9>
 764                     <CALL '\1aGET-BINDING 1>
 765 PHRASE121
 766                     <NTHUV OL16 10 = SYM32 (TYPE TEMP)>
 767                     <NTHUV OL16 12 = TEMP36>
 768                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE126>
 769                     <DEAD TEMP36>
 770                     <SET TEMP36 'ANY (TYPE ATOM)>
 771                     <JUMP + PHRASE127>
 772 PHRASE126
 773                     <NTHUV OL16 18 = TEMP36>
 774 PHRASE127
 775                     <PUTUV SYM32 6 TEMP36>
 776                     <DEAD TEMP36>
 777                     <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL130>
 778                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE129>
 779 BOOL130
 780                     <GEN-LVAL 'ARGS-NEXT = TEMP36>
 781                     <NTHUV SYM32 1 = TEMP41 (TYPE ATOM)>
 782                     <CONS TEMP41 () = TEMP41>
 783                     <GEN-SET 'ARGS-NEXT TEMP41>
 784                     <PUTREST TEMP36 TEMP41>
 785                     <DEAD TEMP36 TEMP41>
 786 PHRASE129
 787                     <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL138>
 788                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE137>
 789 BOOL138
 790                     <SET ANY-ARG13 'T (TYPE ATOM)>
 791 PHRASE137
 792                     <NTHUV SYM32 1 = TEMP36 (TYPE ATOM)>
 793                     <NTHR 'T-NAME 2 = TEMP41 (RECORD-TYPE ATOM) (TYPE LBIND)>
 794                     <PUTR TEMP41 1 TEMP36 (RECORD-TYPE LBIND)>
 795                     <DEAD TEMP41 TEMP36>
 796                     <FRAME '\1aBIND-GENERATE>
 797                     <PUSH OL16>
 798                     <PUSH FORPROG8>
 799                     <CALL '\1aBIND-GENERATE 2 = TEMP36>
 800                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE142>
 801                     <DEAD TEMP36>
 802                     <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE142>
 803                     <DEAD TEMP28>
 804                     <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE142>
 805                     <DEAD TEMP27>
 806                     <NTHUV OL16 3 = TEMP36>
 807                     <TYPE? TEMP36 <TYPE-CODE FALSE> - PHRASE142>
 808                     <DEAD TEMP36>
 809                     <GEN-LVAL 'TMPS-NEXT = TEMP36>
 810                     <NTHR 'T-NAME 2 = TEMP41 (RECORD-TYPE ATOM) (TYPE LBIND)>
 811                     <NTHR TEMP41 1 = TEMP41 (RECORD-TYPE LBIND)>
 812                     <CONS TEMP41 () = TEMP41>
 813                     <GEN-SET 'TMPS-NEXT TEMP41>
 814                     <PUTREST TEMP36 TEMP41>
 815                     <DEAD TEMP36 TEMP41>
 816                     <FRAME '\1aUSE-TEMP>
 817                     <PUSH SYM32>
 818                     <FRAME '\1aISTYPE?>
 819                     <NTHUV OL16 18 = STACK>
 820                     <DEAD OL16>
 821                     <CALL '\1aISTYPE? 1 = STACK>
 822                     <CALL '\1aUSE-TEMP 2>
 823                     <PUTUV SYM32 2 1 (TYPE FIX)>
 824                     <DEAD SYM32>
 825 PHRASE142
 826                     <VEQUAL? LARG12 0 - PHRASE154>
 827                     <RESTL BST10 1 = TEMP36 (TYPE LIST)>
 828                     <DEAD BST10>
 829                     <EMPL? TEMP36 - PHRASE154 (TYPE LIST)>
 830                     <DEAD TEMP36>
 831                     <VEQUAL? ANY-SPEC14 0 + PHRASE157>
 832                     <VEQUAL? ANY-ARG13 0 + PHRASE157>
 833                     <FRAME '\1aGEN-FIX-BIND>
 834                     <CALL '\1aGEN-FIX-BIND 0>
 835 PHRASE157
 836                     <SET LARG12 'T (TYPE ATOM)>
 837 PHRASE154
 838                     <RESTL TUP?18 1 = TUP?18 (TYPE LIST)>
 839                     <JUMP + MAP86>
 840 MAPAP89
 841                     <NTHUV NOD7 12 = TUP?18>
 842                     <TYPE? TUP?18 <TYPE-CODE FALSE> + PHRASE161>
 843                     <DEAD TUP?18>
 844                     <FRAME '\1aIEMIT>
 845                     <PUSH '`ACTIVATION>
 846                     <CALL '\1aIEMIT 1>
 847 PHRASE161
 848                     <TYPE? BNDTMP9 <TYPE-CODE UNBOUND> + PHRASE164>
 849                     <VEQUAL? ANY-SPEC14 0 - PHRASE164>
 850                     <FRAME '\1aPUTPROP>
 851                     <PUSH NOD7>
 852                     <DEAD NOD7>
 853                     <PUSH 'UNWIND>
 854                     <CALL '\1aPUTPROP 2 = TUP?18>
 855                     <TYPE? TUP?18 <TYPE-CODE FALSE> + PHRASE164>
 856                     <DEAD TUP?18>
 857                     <FRAME '\1aUSE-TEMP>
 858                     <PUSH BNDTMP9>
 859                     <PUSH 'LBIND>
 860                     <CALL '\1aUSE-TEMP 2>
 861                     <FRAME '\1aGET-BINDING>
 862                     <PUSH BNDTMP9>
 863                     <CALL '\1aGET-BINDING 1>
 864 PHRASE164
 865                     <SET TUP?18 ANY-SPEC14>
 866                     <DEAD ANY-SPEC14>
 867                     <VEQUAL? TUP?18 0 + PHRASE170>
 868                     <SET TUP?18 BNDTMP9>
 869                     <DEAD BNDTMP9>
 870 PHRASE170
 871                     <UNBIND TEMP3>
 872                     <DEAD TEMP3>
 873                     <ADJ -18>
 874                     <RETURN TUP?18>
 875                     <DEAD TUP?18>
 876                     <END \1aBIND-CODE>\r\r
 877 " Generate \"BIND\" binding code."
 878
 879 #WORD *37113541656*
 880 <GFCN \1aBIND-B ("VALUE" ATOM SYMTAB) SYM4>
 881                     <TEMP TEMP9 FTMP6>
 882                     <INTGO>
 883                     <NTHUV SYM4 3 = TEMP9>
 884                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
 885                     <DEAD TEMP9>
 886                     <FRAME '\1aPREV-FRAME>
 887                     <FRAME '\1aGEN-TEMP>
 888                     <PUSH 'FRAME>
 889                     <CALL '\1aGEN-TEMP 1 = STACK>
 890                     <CALL '\1aPREV-FRAME 1 = FTMP6>
 891                     <FRAME '\1aSPECIAL-BINDING>
 892                     <PUSH SYM4>
 893                     <DEAD SYM4>
 894                     <PUSH 'T>
 895                     <PUSH FTMP6>
 896                     <CALL '\1aSPECIAL-BINDING 3>
 897                     <GEN-LVAL 'STK = TEMP9>
 898                     <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
 899                     <GEN-SET 'STK TEMP9>
 900                     <DEAD TEMP9>
 901                     <FRAME '\1aFREE-TEMP>
 902                     <PUSH FTMP6>
 903                     <DEAD FTMP6>
 904                     <CALL '\1aFREE-TEMP 1>
 905                     <RETURN 'T>
 906 PHRASE8
 907                     <FRAME '\1aPREV-FRAME>
 908                     <NTHUV SYM4 10 = STACK>
 909                     <CALL '\1aPREV-FRAME 1>
 910                     <FRAME '\1aUSE-TEMP>
 911                     <NTHUV SYM4 10 = STACK (TYPE TEMP)>
 912                     <DEAD SYM4>
 913                     <CALL '\1aUSE-TEMP 1>
 914                     <RETURN 'T>
 915                     <END \1aBIND-B>
 916 " Do code generation for normal  arguments."
 917
 918 #WORD *4177374232*
 919 <GFCN \1aNORM-B ("VALUE" ATOM SYMTAB) SYM4>
 920                     <TEMP TEMP7>
 921                     <INTGO>
 922                     <NTHUV SYM4 3 = TEMP7>
 923                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
 924                     <DEAD TEMP7>
 925                     <FRAME '\1aSPECIAL-BINDING>
 926                     <PUSH SYM4>
 927                     <PUSH %<>>
 928                     <NTHUV SYM4 10 = STACK>
 929                     <DEAD SYM4>
 930                     <CALL '\1aSPECIAL-BINDING 3>
 931                     <GEN-LVAL 'STK = TEMP7>
 932                     <ADD TEMP7 9 = TEMP7 (TYPE FIX)>
 933                     <GEN-SET 'STK TEMP7>
 934                     <DEAD TEMP7>
 935 PHRASE6
 936                     <RETURN 'T>
 937                     <END \1aNORM-B>
 938 " Initialized optional argument binder."
 939
 940 #WORD *37501164407*
 941 <GFCN \1aOPT1-B ("VALUE" <OR ATOM FALSE> SYMTAB) SYM4>
 942                     <TEMP TEMP10>
 943                     <INTGO>
 944                     <NTHUV SYM4 3 = TEMP10>
 945                     <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG13>
 946                     <DEAD TEMP10>
 947                     <NTHUV SYM4 9 = TEMP10 (TYPE NODE)>
 948                     <NTHUV TEMP10 1 = TEMP10 (TYPE FIX)>
 949                     <VEQUAL? TEMP10 2 - TAG12 (TYPE FIX)>
 950                     <RETURN %<>>
 951 TAG12
 952                     <VEQUAL? TEMP10 10 - TAG13 (TYPE FIX)>
 953                     <DEAD TEMP10>
 954                     <RETURN %<>>
 955 TAG13
 956                     <FRAME '\1aOPTBIND>
 957                     <PUSH SYM4>
 958                     <NTHUV SYM4 9 = STACK (TYPE NODE)>
 959                     <DEAD SYM4>
 960                     <CALL '\1aOPTBIND 2 = TEMP10>
 961                     <RETURN TEMP10>
 962                     <DEAD TEMP10>
 963                     <END \1aOPT1-B>
 964 " Uninitialized optional argument binder."
 965
 966 #WORD *3414757261*
 967 <GFCN \1aOPT2-B ("VALUE" ATOM SYMTAB) SYM4>
 968                     <TEMP TEMP7>
 969                     <INTGO>
 970                     <NTHUV SYM4 3 = TEMP7>
 971                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
 972                     <DEAD TEMP7>
 973                     <FRAME '\1aOPTBIND>
 974                     <PUSH SYM4>
 975                     <DEAD SYM4>
 976                     <CALL '\1aOPTBIND 1>
 977 PHRASE6
 978                     <RETURN 'T>
 979                     <END \1aOPT2-B>
 980 " Create a binding for either intitialized or unitialized optional."
 981
 982 #WORD *14505637637*
 983 <GFCN \1aOPTBIND ("VALUE" ATOM SYMTAB "OPTIONAL" NODE) SYM6 DVAL7>
 984                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
 985 OPT4
 986                     <PUSH #T$UNBOUND 0>
 987 OPT5
 988                     <TEMP GIVE8:ATOM DEF9 TMP11:TEMP>
 989                     <INTGO>
 990                     <FRAME '\1aMAKE-TAG>
 991                     <CALL '\1aMAKE-TAG 0 = GIVE8>
 992                     <FRAME '\1aMAKE-TAG>
 993                     <CALL '\1aMAKE-TAG 0>
 994                     <NTHUV SYM6 3 = DEF9>
 995                     <TYPE? DVAL7 <TYPE-CODE UNBOUND> - BOOL18>
 996                     <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE17>
 997 BOOL18
 998                     <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE20>
 999                     <FRAME '\1aGEN-TEMP>
1000                     <PUSH 'FIX>
1001                     <CALL '\1aGEN-TEMP 1 = TMP11>
1002                     <FRAME '\1aIEMIT>
1003                     <PUSH '`SET>
1004                     <PUSH TMP11>
1005                     <PUSH 0>
1006                     <CALL '\1aIEMIT 3>
1007 PHRASE20
1008                     <FRAME '\1aTEST-ARG>
1009                     <NTHUV SYM6 10 = STACK (TYPE TEMP)>
1010                     <PUSH GIVE8>
1011                     <CALL '\1aTEST-ARG 2>
1012                     <TYPE? DVAL7 <TYPE-CODE UNBOUND> + PHRASE25>
1013                     <FRAME '\1aGEN>
1014                     <PUSH DVAL7>
1015                     <DEAD DVAL7>
1016                     <NTHUV SYM6 10 = STACK>
1017                     <CALL '\1aGEN 2>
1018 PHRASE25
1019                     <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE28>
1020                     <FRAME '\1aIEMIT>
1021                     <PUSH '`SET>
1022                     <PUSH TMP11>
1023                     <PUSH 1>
1024                     <CALL '\1aIEMIT 3>
1025                     <FRAME '\1aFREE-TEMP>
1026                     <NTHUV SYM6 10 = STACK>
1027                     <PUSH %<>>
1028                     <CALL '\1aFREE-TEMP 2>
1029 PHRASE28
1030                     <FRAME '\1aLABEL-TAG>
1031                     <PUSH GIVE8>
1032                     <DEAD GIVE8>
1033                     <CALL '\1aLABEL-TAG 1>
1034 PHRASE17
1035                     <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE33>
1036                     <DEAD DEF9>
1037                     <FRAME '\1aSPECIAL-BINDING>
1038                     <PUSH SYM6>
1039                     <PUSH %<>>
1040                     <NTHUV SYM6 10 = STACK>
1041                     <DEAD SYM6>
1042                     <CALL '\1aSPECIAL-BINDING 3>
1043                     <GEN-LVAL 'STK = DEF9>
1044                     <ADD DEF9 9 = DEF9 (TYPE FIX)>
1045                     <GEN-SET 'STK DEF9>
1046                     <DEAD DEF9>
1047                     <FRAME '\1aIEMIT>
1048                     <PUSH '`VEQUAL?>
1049                     <PUSH TMP11>
1050                     <PUSH 0>
1051                     <PUSH '+>
1052                     <FRAME '\1aMAKE-TAG>
1053                     <CALL '\1aMAKE-TAG 0 = DEF9>
1054                     <PUSH DEF9>
1055                     <CALL '\1aIEMIT 5>
1056                     <FRAME '\1aGEN-FIX-BIND>
1057                     <CALL '\1aGEN-FIX-BIND 0>
1058                     <FRAME '\1aLABEL-TAG>
1059                     <PUSH DEF9>
1060                     <DEAD DEF9>
1061                     <CALL '\1aLABEL-TAG 1>
1062                     <FRAME '\1aFREE-TEMP>
1063                     <PUSH TMP11>
1064                     <DEAD TMP11>
1065                     <CALL '\1aFREE-TEMP 1>
1066 PHRASE33
1067                     <RETURN 'T>
1068                     <END \1aOPTBIND>
1069 " Do a binding for a named activation."
1070
1071 #WORD *5356220577*
1072 <GFCN \1aACT-B ("VALUE" ATOM SYMTAB) SYM4>
1073                     <TEMP TEMP9 FTMP6>
1074                     <INTGO>
1075                     <NTHUV SYM4 3 = TEMP9>
1076                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
1077                     <DEAD TEMP9>
1078                     <FRAME '\1aCURRENT-FRAME>
1079                     <CALL '\1aCURRENT-FRAME 0 = FTMP6>
1080                     <FRAME '\1aSPECIAL-BINDING>
1081                     <PUSH SYM4>
1082                     <DEAD SYM4>
1083                     <PUSH 'T>
1084                     <PUSH FTMP6>
1085                     <CALL '\1aSPECIAL-BINDING 3>
1086                     <GEN-LVAL 'STK = TEMP9>
1087                     <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
1088                     <GEN-SET 'STK TEMP9>
1089                     <DEAD TEMP9>
1090                     <FRAME '\1aFREE-TEMP>
1091                     <PUSH FTMP6>
1092                     <DEAD FTMP6>
1093                     <CALL '\1aFREE-TEMP 1>
1094                     <GEN-LVAL 'BASEF = TEMP9>
1095                     <PUTUV TEMP9 12 'T>
1096                     <DEAD TEMP9>
1097                     <RETURN 'T>
1098 PHRASE8
1099                     <GEN-LVAL 'BASEF = TEMP9>
1100                     <NTHUV TEMP9 12 = TEMP9>
1101                     <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL20>
1102                     <DEAD TEMP9>
1103                     <FRAME '\1aACTIV?>
1104                     <GEN-LVAL 'BASEF = TEMP9>
1105                     <NTHUV TEMP9 10 = STACK (TYPE LIST)>
1106                     <DEAD TEMP9>
1107                     <CALL '\1aACTIV? 1 = TEMP9>
1108                     <VEQUAL? TEMP9 0 + PHRASE19>
1109                     <DEAD TEMP9>
1110 BOOL20
1111                     <GEN-LVAL 'BASEF = TEMP9>
1112                     <PUTUV TEMP9 12 'T>
1113                     <DEAD TEMP9>
1114                     <FRAME '\1aCURRENT-FRAME>
1115                     <NTHUV SYM4 10 = STACK>
1116                     <CALL '\1aCURRENT-FRAME 1>
1117                     <FRAME '\1aUSE-TEMP>
1118                     <NTHUV SYM4 10 = STACK (TYPE TEMP)>
1119                     <DEAD SYM4>
1120                     <CALL '\1aUSE-TEMP 1>
1121 PHRASE19
1122                     <RETURN 'T>
1123                     <END \1aACT-B>
1124 " Bind an \"AUX\" variable."
1125
1126 #WORD *35401215260*
1127 <GFCN \1aAUX1-B ("VALUE" ATOM SYMTAB "OPTIONAL" ANY) SYM6 FORCE-INIT7>
1128                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
1129 OPT4
1130                     <PUSH %<>>
1131 OPT5
1132                     <TEMP TMP8 NOD12:NODE TY9 PT10>
1133                     <INTGO>
1134                     <NTHUV SYM6 10 = TMP8>
1135                     <NTHUV SYM6 9 = NOD12 (TYPE NODE)>
1136                     <FRAME '\1aISTYPE?>
1137                     <NTHUV SYM6 18 = STACK>
1138                     <CALL '\1aISTYPE? 1 = TY9>
1139                     <TYPE? TY9 <TYPE-CODE FALSE> + BOOL14>
1140                     <FRAME '\1aTYPEPRIM>
1141                     <PUSH TY9>
1142                     <CALL '\1aTYPEPRIM 1 = PT10>
1143                     <EQUAL? PT10 'FIX + BOOL16>
1144                     <EQUAL? PT10 'WORD + BOOL16>
1145                     <EQUAL? PT10 'LIST - BOOL14>
1146                     <DEAD PT10>
1147 BOOL16
1148                     <NTHUV SYM6 12 = PT10>
1149                     <TYPE? PT10 <TYPE-CODE FALSE> + PHRASE19>
1150                     <DEAD PT10>
1151 BOOL14
1152                     <SET TY9 %<> (TYPE FALSE)>
1153 PHRASE19
1154                     <NTHUV SYM6 3 = PT10>
1155                     <TYPE? PT10 <TYPE-CODE FALSE> + PHRASE21>
1156                     <DEAD PT10>
1157                     <FRAME '\1aSPECIAL-BINDING>
1158                     <PUSH SYM6>
1159                     <DEAD SYM6>
1160                     <PUSH 'T>
1161                     <FRAME '\1aGEN>
1162                     <PUSH NOD12>
1163                     <DEAD NOD12>
1164                     <CALL '\1aGEN 1 = TMP8>
1165                     <PUSH TMP8>
1166                     <CALL '\1aSPECIAL-BINDING 3>
1167                     <GEN-LVAL 'STK = PT10>
1168                     <ADD PT10 9 = PT10 (TYPE FIX)>
1169                     <GEN-SET 'STK PT10>
1170                     <DEAD PT10>
1171                     <FRAME '\1aFREE-TEMP>
1172                     <PUSH TMP8>
1173                     <DEAD TMP8>
1174                     <CALL '\1aFREE-TEMP 1>
1175                     <RETURN 'T>
1176 PHRASE21
1177                     <TYPE? FORCE-INIT7 <TYPE-CODE FALSE> - PHRASE29>
1178                     <DEAD FORCE-INIT7>
1179                     <NTHUV NOD12 1 = PT10 (TYPE FIX)>
1180                     <VEQUAL? PT10 2 - PHRASE29 (TYPE FIX)>
1181                     <DEAD PT10>
1182                     <FRAME '\1aUSE-TEMP>
1183                     <PUSH TMP8>
1184                     <PUSH TY9>
1185                     <CALL '\1aUSE-TEMP 2>
1186                     <TYPE? TY9 <TYPE-CODE FALSE> + PHRASE33>
1187                     <NTHUV TMP8 1 = STACK (TYPE ATOM)>
1188                     <DEAD TMP8>
1189                     <PUSH TY9>
1190                     <DEAD TY9>
1191                     <UBLOCK <TYPE-CODE VECTOR> 2 = PT10>
1192                     <CHTYPE PT10 <TYPE-CODE ADECL> = PT10>
1193                     <JUMP + PHRASE35>
1194 PHRASE33
1195                     <NTHUV TMP8 1 = PT10 (TYPE ATOM)>
1196                     <DEAD TMP8>
1197 PHRASE35
1198                     <CONS PT10 () = PT10>
1199                     <FRAME '\1aATOMCHK>
1200                     <NTHUV NOD12 4 = STACK>
1201                     <DEAD NOD12>
1202                     <CALL '\1aATOMCHK 1 = TMP8>
1203                     <CONS TMP8 () = TMP8>
1204                     <PUTREST PT10 TMP8>
1205                     <DEAD TMP8>
1206                     <GEN-SET 'T-NAME PT10>
1207                     <DEAD PT10>
1208                     <RETURN 'T>
1209 PHRASE29
1210                     <TYPE? TY9 <TYPE-CODE FALSE> + PHRASE42>
1211                     <NTHUV TMP8 1 = STACK (TYPE ATOM)>
1212                     <DEAD TMP8>
1213                     <PUSH TY9>
1214                     <DEAD TY9>
1215                     <UBLOCK <TYPE-CODE VECTOR> 2 = PT10>
1216                     <CHTYPE PT10 <TYPE-CODE ADECL> = PT10>
1217                     <GEN-SET 'T-NAME PT10>
1218                     <DEAD PT10>
1219 PHRASE42
1220                     <FRAME '\1aGEN>
1221                     <PUSH NOD12>
1222                     <DEAD NOD12>
1223                     <NTHUV SYM6 10 = STACK>
1224                     <DEAD SYM6>
1225                     <CALL '\1aGEN 2>
1226                     <RETURN 'T>
1227                     <END \1aAUX1-B>
1228 " Do a binding for an uninitialized \"AUX\" "
1229
1230 #WORD *15246034310*
1231 <GFCN \1aAUX2-B ("VALUE" <OR ATOM !<FALSE> FIX> SYMTAB ANY) SYM4 FP5>
1232                     <TEMP TEMP9>
1233                     <INTGO>
1234                     <NTHUV SYM4 3 = TEMP9>
1235                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
1236                     <DEAD TEMP9>
1237                     <FRAME '\1aSPECIAL-BINDING>
1238                     <PUSH SYM4>
1239                     <DEAD SYM4>
1240                     <PUSH 'T>
1241                     <CALL '\1aSPECIAL-BINDING 2>
1242                     <GEN-LVAL 'STK = TEMP9>
1243                     <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
1244                     <GEN-SET 'STK TEMP9>
1245                     <RETURN TEMP9>
1246                     <DEAD TEMP9>
1247 PHRASE8
1248                     <TYPE? FP5 <TYPE-CODE FALSE> + PHRASE15>
1249                     <DEAD FP5>
1250                     <NTHUV SYM4 12 = TEMP9>
1251                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE15>
1252                     <DEAD TEMP9>
1253                     <FRAME '\1aSET-SYM>
1254                     <PUSH SYM4>
1255                     <DEAD SYM4>
1256                     <GVAL 'THE-UNBOUND = STACK>
1257                     <PUSH 'T>
1258                     <CALL '\1aSET-SYM 3>
1259                     <RETURN 'T>
1260 PHRASE15
1261                     <NTHUV SYM4 12 = TEMP9>
1262                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE19>
1263                     <NTHUV SYM4 10 = TEMP9 (TYPE TEMP)>
1264                     <DEAD SYM4>
1265                     <PUTUV TEMP9 4 %<>>
1266                     <PUTUV TEMP9 2 0 (TYPE FIX)>
1267                     <DEAD TEMP9>
1268                     <SET TEMP9 %<> (TYPE FALSE)>
1269 PHRASE19
1270                     <RETURN TEMP9>
1271                     <DEAD TEMP9>
1272                     <END \1aAUX2-B>
1273 " Do a \"TUPLE\" binding."
1274
1275 #WORD *16453444313*
1276 <GFCN \1aTUPL-B ("VALUE" ATOM SYMTAB) SYM4>
1277                     <TEMP TMP1-5 TEMP10>
1278                     <INTGO>
1279                     <NTHUV SYM4 10 = TMP1-5>
1280                     <FRAME '\1aGET-ARG-TUPLE>
1281                     <PUSH TMP1-5>
1282                     <CALL '\1aGET-ARG-TUPLE 1>
1283                     <NTHUV SYM4 3 = TEMP10>
1284                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
1285                     <DEAD TEMP10>
1286                     <FRAME '\1aSPECIAL-BINDING>
1287                     <PUSH SYM4>
1288                     <DEAD SYM4>
1289                     <PUSH 'T>
1290                     <PUSH TMP1-5>
1291                     <DEAD TMP1-5>
1292                     <CALL '\1aSPECIAL-BINDING 3>
1293                     <GEN-LVAL 'STK = TEMP10>
1294                     <ADD TEMP10 9 = TEMP10 (TYPE FIX)>
1295                     <GEN-SET 'STK TEMP10>
1296                     <DEAD TEMP10>
1297 PHRASE9
1298                     <RETURN 'T>
1299                     <END \1aTUPL-B>
1300 " Dispatch table for binding generation code."
1301
1302 #WORD *21301774502*
1303 <GFCN \1aBIND-GENERATE ("VALUE" <OR ATOM FALSE FIX> SYMTAB ANY) SYM4 FORPROG5>
1304                     <TEMP COD6>
1305                     <INTGO>
1306                     <NTHUV SYM4 4 = COD6 (TYPE FIX)>
1307                     <DISPATCH COD6 1 CASE9 CASE10 CASE11 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASE18 CASE19 CASE20 CASE21>
1308                     <DEAD COD6>
1309                     <RETURN %<>>
1310 CASE9
1311                     <FRAME '\1aACT-B>
1312                     <PUSH SYM4>
1313                     <DEAD SYM4>
1314                     <CALL '\1aACT-B 1 = COD6>
1315                     <RETURN COD6>
1316                     <DEAD COD6>
1317 CASE10
1318                     <FRAME '\1aAUX1-B>
1319                     <PUSH SYM4>
1320                     <DEAD SYM4>
1321                     <PUSH FORPROG5>
1322                     <DEAD FORPROG5>
1323                     <CALL '\1aAUX1-B 2 = COD6>
1324                     <RETURN COD6>
1325                     <DEAD COD6>
1326 CASE11
1327                     <FRAME '\1aAUX2-B>
1328                     <PUSH SYM4>
1329                     <DEAD SYM4>
1330                     <PUSH FORPROG5>
1331                     <DEAD FORPROG5>
1332                     <CALL '\1aAUX2-B 2 = COD6>
1333                     <RETURN COD6>
1334                     <DEAD COD6>
1335 CASE12
1336                     <FRAME '\1aTUPL-B>
1337                     <PUSH SYM4>
1338                     <DEAD SYM4>
1339                     <CALL '\1aTUPL-B 1 = COD6>
1340                     <RETURN COD6>
1341                     <DEAD COD6>
1342 CASE13
1343                     <FRAME '\1aNORM-B>
1344                     <PUSH SYM4>
1345                     <DEAD SYM4>
1346                     <CALL '\1aNORM-B 1 = COD6>
1347                     <RETURN COD6>
1348                     <DEAD COD6>
1349 CASE14
1350                     <FRAME '\1aOPT1-B>
1351                     <PUSH SYM4>
1352                     <DEAD SYM4>
1353                     <CALL '\1aOPT1-B 1 = COD6>
1354                     <RETURN COD6>
1355                     <DEAD COD6>
1356 CASE15
1357                     <FRAME '\1aOPT1-B>
1358                     <PUSH SYM4>
1359                     <DEAD SYM4>
1360                     <CALL '\1aOPT1-B 1 = COD6>
1361                     <RETURN COD6>
1362                     <DEAD COD6>
1363 CASE16
1364                     <FRAME '\1aOPT2-B>
1365                     <PUSH SYM4>
1366                     <DEAD SYM4>
1367                     <CALL '\1aOPT2-B 1 = COD6>
1368                     <RETURN COD6>
1369                     <DEAD COD6>
1370 CASE17
1371                     <FRAME '\1aOPT2-B>
1372                     <PUSH SYM4>
1373                     <DEAD SYM4>
1374                     <CALL '\1aOPT2-B 1 = COD6>
1375                     <RETURN COD6>
1376                     <DEAD COD6>
1377 CASE18
1378                     <FRAME '\1aNORM-B>
1379                     <PUSH SYM4>
1380                     <DEAD SYM4>
1381                     <CALL '\1aNORM-B 1 = COD6>
1382                     <RETURN COD6>
1383                     <DEAD COD6>
1384 CASE19
1385                     <FRAME '\1aBIND-B>
1386                     <PUSH SYM4>
1387                     <DEAD SYM4>
1388                     <CALL '\1aBIND-B 1 = COD6>
1389                     <RETURN COD6>
1390                     <DEAD COD6>
1391 CASE20
1392                     <FRAME '\1aNORM-B>
1393                     <PUSH SYM4>
1394                     <DEAD SYM4>
1395                     <CALL '\1aNORM-B 1 = COD6>
1396                     <RETURN COD6>
1397                     <DEAD COD6>
1398 CASE21
1399                     <FRAME '\1aNORM-B>
1400                     <PUSH SYM4>
1401                     <DEAD SYM4>
1402                     <CALL '\1aNORM-B 1 = COD6>
1403                     <RETURN COD6>
1404                     <DEAD COD6>
1405                     <END \1aBIND-GENERATE>
1406 " Appliacation of a form could still be an NTH."
1407
1408 #WORD *626521543*
1409 <GFCN \1aFORM-F-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
1410                     <TEMP K6:LIST TEMP11 TY7>
1411                     <INTGO>
1412                     <NTHUV NOD4 5 = K6 (TYPE LIST)>
1413                     <FRAME '\1aISTYPE?>
1414                     <NTHL K6 1 = TEMP11 (TYPE NODE)>
1415                     <NTHUV TEMP11 3 = TY7>
1416                     <DEAD TEMP11>
1417                     <PUSH TY7>
1418                     <CALL '\1aISTYPE? 1 = TEMP11>
1419                     <VEQUAL? TEMP11 'FIX - PHRASE9>
1420                     <DEAD TEMP11>
1421                     <PUTUV NOD4 4 'INTH>
1422                     <NTHUV NOD4 9 = TEMP11>
1423                     <PUTUV NOD4 1 TEMP11>
1424                     <DEAD TEMP11>
1425                     <GVAL 'NTH = TEMP11>
1426                     <PUTUV NOD4 9 TEMP11>
1427                     <DEAD TEMP11>
1428                     <NTHUV NOD4 1 = TEMP11 (TYPE FIX)>
1429                     <VEQUAL? TEMP11 79 + BOOL14 (TYPE FIX)>
1430                     <DEAD TEMP11>
1431                     <NTHUV NOD4 1 = TEMP11 (TYPE FIX)>
1432                     <VEQUAL? TEMP11 27 - PHRASE13 (TYPE FIX)>
1433                     <DEAD TEMP11>
1434 BOOL14
1435                     <NTHL K6 1 = TEMP11>
1436                     <CONS TEMP11 () = TEMP11>
1437                     <RESTL K6 1 = TY7 (TYPE LIST)>
1438                     <DEAD K6>
1439                     <NTHL TY7 1 = TY7>
1440                     <CONS TY7 TEMP11 = K6>
1441                     <DEAD TY7 TEMP11>
1442 PHRASE13
1443                     <PUTUV NOD4 5 K6 (TYPE LIST)>
1444                     <DEAD K6>
1445                     <FRAME '\1aGEN>
1446                     <PUSH NOD4>
1447                     <DEAD NOD4>
1448                     <PUSH WHERE5>
1449                     <DEAD WHERE5>
1450                     <CALL '\1aGEN 2 = TEMP11>
1451                     <RETURN TEMP11>
1452                     <DEAD TEMP11>
1453 PHRASE9
1454                     <TYPE? TY7 <TYPE-CODE FALSE> + PHRASE17>
1455                     <DEAD TY7>
1456                     <FRAME '\1aFORM-GEN>
1457                     <PUSH NOD4>
1458                     <DEAD NOD4>
1459                     <PUSH WHERE5>
1460                     <DEAD WHERE5>
1461                     <CALL '\1aFORM-GEN 2 = TEMP11>
1462                     <RETURN TEMP11>
1463                     <DEAD TEMP11>
1464 PHRASE17
1465                     <FRAME '\1aCOMPILE-ERROR>
1466                     <PUSH "Non-applicabe object type ">
1467                     <NTHUV NOD4 4 = STACK>
1468                     <PUSH NOD4>
1469                     <DEAD NOD4>
1470                     <CALL '\1aCOMPILE-ERROR 3 = TEMP11>
1471                     <RETURN TEMP11>
1472                     <DEAD TEMP11>
1473                     <END \1aFORM-F-GEN>
1474 " Generate a call to EVAL for uncompilable FORM."
1475
1476 #WORD *6517466001*
1477 <GFCN \1aFORM-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
1478                     <TEMP>
1479                     <INTGO>
1480                     <EQUAL? WHERE5 'DONT-CARE - PHRASE7>
1481                     <FRAME '\1aGEN-TEMP>
1482                     <CALL '\1aGEN-TEMP 0 = WHERE5>
1483 PHRASE7
1484                     <FRAME '\1aSTART-FRAME>
1485                     <PUSH 'EVAL>
1486                     <CALL '\1aSTART-FRAME 1>
1487                     <FRAME '\1aPUSH>
1488                     <FRAME '\1aREFERENCE>
1489                     <NTHUV NOD4 4 = STACK>
1490                     <DEAD NOD4>
1491                     <CALL '\1aREFERENCE 1 = STACK>
1492                     <CALL '\1aPUSH 1>
1493                     <FRAME '\1aMSUBR-CALL>
1494                     <PUSH 'EVAL>
1495                     <PUSH 1>
1496                     <PUSH WHERE5>
1497                     <CALL '\1aMSUBR-CALL 3>
1498                     <RETURN WHERE5>
1499                     <DEAD WHERE5>
1500                     <END \1aFORM-GEN>
1501 " Generate code for LIST/VECTOR etc. evaluation."
1502
1503 <GDECL (COPIERS) <UVECTOR [REST ATOM]>>
1504
1505 #WORD *15031765770*
1506 <GFCN \1aCOPY-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
1507                     <TEMP (I6:FIX 0) ARGS7:LIST TEMP3:LBIND TEMP18 INAME10 SEGTMP11 TEMP22 STACK?16 TEMP35 N37:NODE>
1508                     <INTGO>
1509                     <NTHUV NOD4 5 = ARGS7 (TYPE LIST)>
1510                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1511                     <FRAME '\1aMAKE-TAG>
1512                     <CALL '\1aMAKE-TAG 0 = TEMP18>
1513                     <BBIND 'SEGLABEL 'ANY 'FIX TEMP18>
1514                     <DEAD TEMP18>
1515                     <NTHUV NOD4 4 = INAME10>
1516                     <BBIND 'COUNTMP 'ANY 'FIX>
1517                     <BBIND 'SEGCALLED 'ANY 'FIX %<>>
1518                     <NTHUV NOD4 2 = TEMP18>
1519                     <TYPE? TEMP18 <TYPE-CODE NODE> - TAG25>
1520                     <NTHUV TEMP18 1 = TEMP22 (TYPE FIX)>
1521                     <VEQUAL? TEMP22 98 - TAG23 (TYPE FIX)>
1522                     <DEAD TEMP22>
1523                     <SET TEMP18 'T (TYPE ATOM)>
1524                     <JUMP + TAG27>
1525 TAG23
1526                     <NTHUV TEMP18 1 = TEMP22 (TYPE FIX)>
1527                     <VEQUAL? TEMP22 37 - TAG25 (TYPE FIX)>
1528                     <DEAD TEMP22>
1529                     <NTHUV TEMP18 2 = TEMP18>
1530                     <TYPE? TEMP18 <TYPE-CODE NODE> - TAG25>
1531                     <NTHUV TEMP18 1 = TEMP22 (TYPE FIX)>
1532                     <DEAD TEMP18>
1533                     <VEQUAL? TEMP22 98 - TAG25 (TYPE FIX)>
1534                     <DEAD TEMP22>
1535                     <SET TEMP18 'T (TYPE ATOM)>
1536                     <JUMP + TAG27>
1537 TAG25
1538                     <EQUAL? INAME10 'TUPLE - TAG26>
1539                     <SET TEMP18 'T (TYPE ATOM)>
1540                     <JUMP + TAG27>
1541 TAG26
1542                     <SET TEMP18 %<> (TYPE FALSE)>
1543 TAG27
1544                     <SET STACK?16 TEMP18>
1545                     <DEAD TEMP18>
1546                     <SET TEMP35 0 (TYPE FIX)>
1547                     <SET TEMP18 ARGS7 (TYPE LIST)>
1548                     <LOOP>
1549 MAP29
1550                     <INTGO>
1551                     <EMPL? TEMP18 + MAPAP32>
1552                     <NTHL TEMP18 1 = N37>
1553                     <NTHUV N37 1 = TEMP22 (TYPE FIX)>
1554                     <DEAD N37>
1555                     <VEQUAL? TEMP22 3 - PHRASE39 (TYPE FIX)>
1556                     <DEAD TEMP22>
1557                     <SET TEMP22 0 (TYPE FIX)>
1558                     <JUMP + PHRASE41>
1559 PHRASE39
1560                     <SET TEMP22 1 (TYPE FIX)>
1561 PHRASE41
1562                     <ADD TEMP35 TEMP22 = TEMP35>
1563                     <DEAD TEMP22>
1564                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1565                     <JUMP + MAP29>
1566 MAPAP32
1567                     <SET I6 TEMP35>
1568                     <DEAD TEMP35>
1569                     <LOOP>
1570 AGAIN46
1571                     <INTGO>
1572                     <EMPL? ARGS7 + EXIT44 (TYPE LIST)>
1573                     <NTHL ARGS7 1 = N37 (TYPE NODE)>
1574                     <NTHUV N37 1 = TEMP35 (TYPE FIX)>
1575                     <VEQUAL? TEMP35 3 - PHRASE50 (TYPE FIX)>
1576                     <DEAD TEMP35>
1577                     <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> - PHRASE52>
1578                     <FRAME '\1aGEN-TEMP>
1579                     <PUSH %<>>
1580                     <CALL '\1aGEN-TEMP 1 = SEGTMP11>
1581                     <FRAME '\1aGEN-TEMP>
1582                     <PUSH 'FIX>
1583                     <CALL '\1aGEN-TEMP 1 = TEMP35>
1584                     <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1585                     <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
1586                     <DEAD TEMP22 TEMP35>
1587                     <FRAME '\1aSET-TEMP>
1588                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1589                     <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1590                     <DEAD TEMP35>
1591                     <PUSH I6>
1592                     <PUSH (`TYPE FIX)>
1593                     <CALL '\1aSET-TEMP 3>
1594 PHRASE52
1595                     <FRAME '\1aGEN>
1596                     <NTHUV N37 5 = TEMP35 (TYPE LIST)>
1597                     <DEAD N37>
1598                     <NTHL TEMP35 1 = N37 (TYPE NODE)>
1599                     <DEAD TEMP35>
1600                     <PUSH N37>
1601                     <PUSH SEGTMP11>
1602                     <CALL '\1aGEN 2 = TEMP18>
1603                     <FRAME '\1aSTRUCTYP-SEG>
1604                     <NTHUV N37 3 = STACK>
1605                     <CALL '\1aSTRUCTYP-SEG 1 = TEMP22>
1606                     <NTHUV NOD4 4 = TEMP35>
1607                     <EQUAL? TEMP35 'LIST - PHRASE63>
1608                     <DEAD TEMP35>
1609                     <RESTL ARGS7 1 = TEMP35 (TYPE LIST)>
1610                     <EMPL? TEMP35 - PHRASE63 (TYPE LIST)>
1611                     <DEAD TEMP35>
1612                     <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL65>
1613                     <EQUAL? TEMP22 'LIST - PHRASE63>
1614 BOOL65
1615                     <GVAL 'NO-DATUM = TEMP35>
1616                     <EQUAL? TEMP35 TEMP18 + PHRASE63>
1617                     <DEAD TEMP35>
1618                     <EQUAL? WHERE5 'DONT-CARE - PHRASE67>
1619                     <FRAME '\1aGEN-TEMP>
1620                     <PUSH 'LIST>
1621                     <CALL '\1aGEN-TEMP 1 = WHERE5>
1622                     <JUMP + PHRASE69>
1623 PHRASE67
1624                     <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE69>
1625                     <FRAME '\1aUSE-TEMP>
1626                     <PUSH WHERE5>
1627                     <PUSH 'LIST>
1628                     <CALL '\1aUSE-TEMP 2>
1629 PHRASE69
1630                     <FRAME '\1aSEGMENT-LIST>
1631                     <PUSH SEGTMP11>
1632                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1633                     <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1634                     <DEAD TEMP35>
1635                     <PUSH TEMP22>
1636                     <DEAD TEMP22>
1637                     <PUSH WHERE5>
1638                     <NTHR 'SEGLABEL 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1639                     <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1640                     <DEAD TEMP35>
1641                     <PUSH TEMP18>
1642                     <DEAD TEMP18>
1643                     <CALL '\1aSEGMENT-LIST 6>
1644                     <FRAME '\1aFREE-TEMP>
1645                     <PUSH SEGTMP11>
1646                     <DEAD SEGTMP11>
1647                     <CALL '\1aFREE-TEMP 1>
1648                     <FRAME '\1aFREE-TEMP>
1649                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1650                     <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1651                     <DEAD TEMP35>
1652                     <CALL '\1aFREE-TEMP 1>
1653                     <JUMP + PHRASE192>
1654 PHRASE63
1655                     <GVAL 'NO-DATUM = TEMP35>
1656                     <EQUAL? TEMP35 TEMP18 + PHRASE80>
1657                     <DEAD TEMP35 TEMP18>
1658                     <EQUAL? TEMP22 'MULTI + PHRASE80>
1659                     <FRAME '\1aSEGMENT-STACK>
1660                     <PUSH SEGTMP11>
1661                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1662                     <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1663                     <DEAD TEMP35>
1664                     <PUSH TEMP22>
1665                     <DEAD TEMP22>
1666                     <FRAME '\1aISTYPE?>
1667                     <NTHUV N37 3 = STACK>
1668                     <DEAD N37>
1669                     <CALL '\1aISTYPE? 1 = STACK>
1670                     <NTHR 'SEGLABEL 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1671                     <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1672                     <DEAD TEMP35>
1673                     <CALL '\1aSEGMENT-STACK 5>
1674                     <FRAME '\1aMAKE-TAG>
1675                     <CALL '\1aMAKE-TAG 0 = TEMP35>
1676                     <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1677                     <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
1678                     <DEAD TEMP22 TEMP35>
1679                     <JUMP + PHRASE100>
1680 PHRASE80
1681                     <NTHR 'SEGCALLED 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1682                     <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
1683                     <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE100>
1684                     <DEAD TEMP35>
1685                     <FRAME '\1aLABEL-TAG>
1686                     <NTHR 'SEGLABEL 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1687                     <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1688                     <DEAD TEMP35>
1689                     <CALL '\1aLABEL-TAG 1>
1690                     <FRAME '\1aMAKE-TAG>
1691                     <CALL '\1aMAKE-TAG 0 = TEMP35>
1692                     <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1693                     <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
1694                     <DEAD TEMP22 TEMP35>
1695                     <JUMP + PHRASE100>
1696 PHRASE50
1697                     <FRAME '\1aGEN>
1698                     <NTHL ARGS7 1 = STACK (TYPE NODE)>
1699                     <GVAL 'POP-STACK = STACK>
1700                     <CALL '\1aGEN 2>
1701 PHRASE100
1702                     <RESTL ARGS7 1 = ARGS7 (TYPE LIST)>
1703                     <JUMP + AGAIN46>
1704 EXIT44
1705                     <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE106>
1706                     <FRAME '\1aFREE-TEMP>
1707                     <PUSH SEGTMP11>
1708                     <CALL '\1aFREE-TEMP 1>
1709                     <TYPE? STACK?16 <TYPE-CODE FALSE> - PHRASE106>
1710                     <FRAME '\1aFREE-TEMP>
1711                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1712                     <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1713                     <DEAD TEMP35>
1714                     <CALL '\1aFREE-TEMP 1>
1715 PHRASE106
1716                     <EQUAL? WHERE5 'DONT-CARE - PHRASE111>
1717                     <FRAME '\1aGEN-TEMP>
1718                     <PUSH INAME10>
1719                     <CALL '\1aGEN-TEMP 1 = WHERE5>
1720                     <JUMP + PHRASE113>
1721 PHRASE111
1722                     <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE113>
1723                     <FRAME '\1aUSE-TEMP>
1724                     <PUSH WHERE5>
1725                     <PUSH INAME10>
1726                     <CALL '\1aUSE-TEMP 2>
1727 PHRASE113
1728                     <EQUAL? INAME10 'VECTOR - PHRASE116>
1729                     <FRAME '\1aGEN-VECTOR>
1730                     <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE119>
1731                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1732                     <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
1733                     <JUMP + PHRASE122>
1734 PHRASE119
1735                     <SET TEMP35 I6>
1736 PHRASE122
1737                     <PUSH TEMP35>
1738                     <DEAD TEMP35>
1739                     <PUSH WHERE5>
1740                     <PUSH STACK?16>
1741                     <CALL '\1aGEN-VECTOR 3>
1742                     <JUMP + PHRASE144>
1743 PHRASE116
1744                     <EQUAL? INAME10 'LIST - PHRASE123>
1745                     <FRAME '\1aGEN-LIST>
1746                     <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE126>
1747                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1748                     <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
1749                     <JUMP + PHRASE129>
1750 PHRASE126
1751                     <SET TEMP35 I6>
1752 PHRASE129
1753                     <PUSH TEMP35>
1754                     <DEAD TEMP35>
1755                     <PUSH WHERE5>
1756                     <CALL '\1aGEN-LIST 2>
1757                     <JUMP + PHRASE144>
1758 PHRASE123
1759                     <EQUAL? INAME10 'UVECTOR - PHRASE130>
1760                     <FRAME '\1aGEN-UVECTOR>
1761                     <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE133>
1762                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1763                     <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
1764                     <JUMP + PHRASE136>
1765 PHRASE133
1766                     <SET TEMP35 I6>
1767 PHRASE136
1768                     <PUSH TEMP35>
1769                     <DEAD TEMP35>
1770                     <PUSH WHERE5>
1771                     <PUSH STACK?16>
1772                     <CALL '\1aGEN-UVECTOR 3>
1773                     <JUMP + PHRASE144>
1774 PHRASE130
1775                     <EQUAL? INAME10 'TUPLE - PHRASE137>
1776                     <FRAME '\1aGEN-TUPLE>
1777                     <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE140>
1778                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1779                     <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
1780                     <JUMP + PHRASE143>
1781 PHRASE140
1782                     <SET TEMP35 I6>
1783 PHRASE143
1784                     <PUSH TEMP35>
1785                     <DEAD TEMP35>
1786                     <PUSH WHERE5>
1787                     <CALL '\1aGEN-TUPLE 2>
1788                     <JUMP + PHRASE144>
1789 PHRASE137
1790                     <FRAME '\1aERROR>
1791                     <PUSH "NOT READY YET">
1792                     <CALL '\1aERROR 1>
1793 PHRASE144
1794                     <TYPE? STACK?16 <TYPE-CODE FALSE> + PHRASE192>
1795                     <DEAD STACK?16>
1796                     <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE149>
1797                     <DEAD SEGTMP11>
1798                     <EQUAL? INAME10 'UVECTOR + PHRASE151>
1799                     <DEAD INAME10>
1800                     <FRAME '\1aIEMIT>
1801                     <PUSH '`LSH>
1802                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1803                     <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1804                     <DEAD TEMP35>
1805                     <PUSH 1>
1806                     <PUSH '=>
1807                     <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1808                     <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
1809                     <NTHUV TEMP22 2 = TEMP22 (TYPE FIX)>
1810                     <GRTR? TEMP22 1 + TAG159 (TYPE FIX)>
1811                     <DEAD TEMP22>
1812                     <SET TEMP35 %<> (TYPE FALSE)>
1813                     <JUMP + PHRASE156>
1814 TAG159
1815                     <FRAME '\1aFREE-TEMP>
1816                     <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1817                     <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
1818                     <DEAD TEMP22>
1819                     <PUSH %<>>
1820                     <CALL '\1aFREE-TEMP 2>
1821                     <FRAME '\1aGEN-TEMP>
1822                     <PUSH 'FIX>
1823                     <CALL '\1aGEN-TEMP 1 = TEMP35>
1824                     <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1825                     <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
1826                     <DEAD TEMP22>
1827 PHRASE156
1828                     <PUSH TEMP35>
1829                     <DEAD TEMP35>
1830                     <CALL '\1aIEMIT 5>
1831 PHRASE151
1832                     <FRAME '\1aFREE-TEMP>
1833                     <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1834                     <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1835                     <DEAD TEMP35>
1836                     <PUSH %<>>
1837                     <CALL '\1aFREE-TEMP 2>
1838                     <GEN-ASSIGNED? 'STKTMP - PHRASE172>
1839                     <FRAME '\1aIEMIT>
1840                     <PUSH '`SUB>
1841                     <GEN-LVAL 'STKTMP = STACK>
1842                     <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1843                     <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
1844                     <DEAD TEMP22>
1845                     <PUSH '=>
1846                     <GEN-LVAL 'STKTMP = STACK>
1847                     <CALL '\1aIEMIT 5>
1848                     <JUMP + PHRASE180>
1849 PHRASE172
1850                     <FRAME '\1aIEMIT>
1851                     <PUSH '`SUB>
1852                     <PUSH 0>
1853                     <NTHR 'COUNTMP 2 = TEMP18 (RECORD-TYPE ATOM) (TYPE LBIND)>
1854                     <NTHR TEMP18 1 = STACK (RECORD-TYPE LBIND)>
1855                     <DEAD TEMP18>
1856                     <PUSH '=>
1857                     <FRAME '\1aGEN-TEMP>
1858                     <PUSH 'FIX>
1859                     <CALL '\1aGEN-TEMP 1 = TEMP18>
1860                     <GEN-SET 'STKTMP TEMP18>
1861                     <PUSH TEMP18>
1862                     <DEAD TEMP18>
1863                     <CALL '\1aIEMIT 5>
1864 PHRASE180
1865                     <GEN-LVAL 'STK = TEMP18>
1866                     <ADD TEMP18 2 = TEMP18 (TYPE FIX)>
1867                     <GEN-SET 'STK TEMP18>
1868                     <DEAD TEMP18>
1869                     <JUMP + PHRASE192>
1870 PHRASE149
1871                     <GEN-LVAL 'STK = TEMP18>
1872                     <EQUAL? INAME10 'UVECTOR + PHRASE198>
1873                     <DEAD INAME10>
1874                     <LSH I6 1 = I6 (TYPE FIX)>
1875 PHRASE198
1876                     <ADD TEMP18 I6 = TEMP18 (TYPE FIX)>
1877                     <DEAD I6>
1878                     <ADD TEMP18 2 = TEMP18 (TYPE FIX)>
1879                     <GEN-SET 'STK TEMP18>
1880                     <DEAD TEMP18>
1881 PHRASE192
1882                     <UNBIND TEMP3>
1883                     <DEAD TEMP3>
1884                     <ADJ -27>
1885                     <RETURN WHERE5>
1886                     <DEAD WHERE5>
1887                     <END \1aCOPY-GEN>
1888 "Generate code for a call to a SUBR."
1889
1890 #WORD *31706506554*
1891 <GFCN \1aSUBR-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
1892                     <TEMP N6>
1893                     <INTGO>
1894                     <NTHUV NOD4 2 = N6>
1895                     <TYPE? N6 <TYPE-CODE NODE> - PHRASE9>
1896                     <NTHUV N6 1 = N6 (TYPE FIX)>
1897                     <VEQUAL? N6 3 - PHRASE9 (TYPE FIX)>
1898                     <DEAD N6>
1899                     <FRAME '\1aSTRUCTYP-SEG>
1900                     <NTHUV NOD4 3 = STACK>
1901                     <CALL '\1aSTRUCTYP-SEG 1 = N6>
1902                     <EQUAL? N6 'MULTI + BOOL12>
1903                     <TYPE? N6 <TYPE-CODE FALSE> - PHRASE9>
1904                     <DEAD N6>
1905 BOOL12
1906                     <GEN-SET 'SEGCALLED 'T>
1907                     <FRAME '\1aCOMP-SUBR-CALL>
1908                     <PUSH NOD4>
1909                     <NTHUV NOD4 5 = STACK (TYPE LIST)>
1910                     <DEAD NOD4>
1911                     <PUSH WHERE5>
1912                     <DEAD WHERE5>
1913                     <GEN-LVAL 'COUNTMP = STACK>
1914                     <GEN-LVAL 'SEGLABEL = STACK>
1915                     <CALL '\1aCOMP-SUBR-CALL 5 = N6>
1916                     <RETURN N6>
1917                     <DEAD N6>
1918 PHRASE9
1919                     <FRAME '\1aCOMP-SUBR-CALL>
1920                     <PUSH NOD4>
1921                     <NTHUV NOD4 5 = STACK (TYPE LIST)>
1922                     <DEAD NOD4>
1923                     <PUSH WHERE5>
1924                     <DEAD WHERE5>
1925                     <PUSH %<>>
1926                     <PUSH %<>>
1927                     <CALL '\1aCOMP-SUBR-CALL 5 = N6>
1928                     <RETURN N6>
1929                     <DEAD N6>
1930                     <END \1aSUBR-GEN>
1931 " Compile call to a SUBR that doesn't compile or PUSHJ."
1932
1933 #WORD *1577076423*
1934 <GFCN \1aCOMP-SUBR-CALL ("VALUE" ANY NODE <LIST [REST NODE]> ANY ANY ANY) N4 OBJ5 W6 PARENT-COUNT7 PARENT-LABEL8>
1935                     <TEMP (I9:FIX 0) SEGTMP10 TEMP3:LBIND TEMP20 SUBR14 (SLNT17 0) TEMP26 TEMP42 N44:NODE TEMP52>
1936                     <INTGO>
1937                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1938                     <BBIND 'COUNTMP 'ANY 'FIX>
1939                     <FRAME '\1aMAKE-TAG>
1940                     <CALL '\1aMAKE-TAG 0 = TEMP20>
1941                     <BBIND 'SEGLABEL 'ANY 'FIX TEMP20>
1942                     <DEAD TEMP20>
1943                     <NTHUV N4 4 = SUBR14>
1944                     <BBIND 'SEGCALLED 'ANY 'FIX %<>>
1945                     <NTHUV N4 2 = TEMP20>
1946                     <TYPE? TEMP20 <TYPE-CODE NODE> + TAG23>
1947                     <SET TEMP20 %<> (TYPE FALSE)>
1948                     <JUMP + TAG33>
1949 TAG23
1950                     <NTHUV TEMP20 1 = TEMP26 (TYPE FIX)>
1951                     <VEQUAL? TEMP26 98 - TAG27 (TYPE FIX)>
1952                     <DEAD TEMP26>
1953                     <SET TEMP20 'T (TYPE ATOM)>
1954                     <JUMP + TAG33>
1955 TAG27
1956                     <NTHUV TEMP20 1 = TEMP26 (TYPE FIX)>
1957                     <VEQUAL? TEMP26 37 + TAG29 (TYPE FIX)>
1958                     <DEAD TEMP26>
1959                     <SET TEMP20 %<> (TYPE FALSE)>
1960                     <JUMP + TAG33>
1961 TAG29
1962                     <NTHUV TEMP20 2 = TEMP20>
1963                     <TYPE? TEMP20 <TYPE-CODE NODE> + TAG30>
1964                     <SET TEMP20 %<> (TYPE FALSE)>
1965                     <JUMP + TAG33>
1966 TAG30
1967                     <NTHUV TEMP20 1 = TEMP26 (TYPE FIX)>
1968                     <DEAD TEMP20>
1969                     <VEQUAL? TEMP26 98 - TAG32 (TYPE FIX)>
1970                     <DEAD TEMP26>
1971                     <SET TEMP20 'T (TYPE ATOM)>
1972                     <JUMP + TAG33>
1973 TAG32
1974                     <SET TEMP20 %<> (TYPE FALSE)>
1975 TAG33
1976                     <SET TEMP42 0 (TYPE FIX)>
1977                     <SET TEMP26 OBJ5 (TYPE LIST)>
1978                     <LOOP>
1979 MAP35
1980                     <INTGO>
1981                     <EMPL? TEMP26 + MAPAP38>
1982                     <NTHL TEMP26 1 = N44>
1983                     <NTHUV N44 1 = I9 (TYPE FIX)>
1984                     <VEQUAL? I9 3 - PHRASE46 (TYPE FIX)>
1985                     <DEAD I9>
1986                     <SET SLNT17 %<> (TYPE FALSE)>
1987                     <SET I9 0 (TYPE FIX)>
1988                     <JUMP + PHRASE48>
1989 PHRASE46
1990                     <EQUAL? SUBR14 'STRING - PHRASE50>
1991                     <TYPE? SLNT17 <TYPE-CODE FIX> - PHRASE50>
1992                     <NTHUV N44 1 = TEMP52 (TYPE FIX)>
1993                     <VEQUAL? TEMP52 2 - PHRASE50 (TYPE FIX)>
1994                     <DEAD TEMP52>
1995                     <NTHUV N44 4 = TEMP52>
1996                     <DEAD N44>
1997                     <LENUS TEMP52 = TEMP52 (TYPE FIX)>
1998                     <ADD TEMP52 SLNT17 = SLNT17 (TYPE FIX)>
1999                     <DEAD TEMP52>
2000                     <JUMP + PHRASE53>
2001 PHRASE50
2002                     <SET SLNT17 %<> (TYPE FALSE)>
2003 PHRASE53
2004                     <SET I9 1 (TYPE FIX)>
2005 PHRASE48
2006                     <ADD TEMP42 I9 = TEMP42>
2007                     <DEAD I9>
2008                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
2009                     <JUMP + MAP35>
2010 MAPAP38
2011                     <SET I9 TEMP42>
2012                     <DEAD TEMP42>
2013                     <SET TEMP26 [LIST VECTOR UVECTOR TUPLE BYTES STRING] (TYPE VECTOR)>
2014                     <TYPE? SUBR14 <TYPE-CODE ATOM> - TAG56>
2015                     <LOOP (SUBR14 VALUE) (TEMP26 LENGTH VALUE)>
2016 TAG57
2017                     <NTHUV TEMP26 1 = TEMP42>
2018                     <VEQUAL? TEMP42 SUBR14 + PHRASE63>
2019                     <DEAD TEMP42>
2020                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
2021                     <EMPUV? TEMP26 - TAG57>
2022 TAG56
2023                     <TYPE? PARENT-COUNT7 <TYPE-CODE FALSE> + PHRASE60>
2024                     <FRAME '\1aIEMIT>
2025                     <PUSH '`SFRAME>
2026                     <FRAME '\1aFORM>
2027                     <PUSH 'QUOTE>
2028                     <PUSH SUBR14>
2029                     <CALL '\1aFORM 2 = STACK>
2030                     <CALL '\1aIEMIT 2>
2031                     <JUMP + PHRASE63>
2032 PHRASE60
2033                     <FRAME '\1aSTART-FRAME>
2034                     <PUSH SUBR14>
2035                     <CALL '\1aSTART-FRAME 1>
2036 PHRASE63
2037                     <SET TEMP26 OBJ5 (TYPE LIST)>
2038                     <DEAD OBJ5>
2039                     <LOOP>
2040 MAP66
2041                     <INTGO>
2042                     <EMPL? TEMP26 + MAPAP69>
2043                     <NTHL TEMP26 1 = N44>
2044                     <NTHUV N44 1 = TEMP52 (TYPE FIX)>
2045                     <VEQUAL? TEMP52 3 - PHRASE74 (TYPE FIX)>
2046                     <DEAD TEMP52>
2047                     <TYPE? SEGTMP10 <TYPE-CODE UNBOUND> - PHRASE76>
2048                     <FRAME '\1aGEN-TEMP>
2049                     <PUSH %<>>
2050                     <CALL '\1aGEN-TEMP 1 = SEGTMP10>
2051                     <FRAME '\1aGEN-TEMP>
2052                     <PUSH %<>>
2053                     <CALL '\1aGEN-TEMP 1 = TEMP52>
2054                     <NTHR 'COUNTMP 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
2055                     <PUTR TEMP42 1 TEMP52 (RECORD-TYPE LBIND)>
2056                     <DEAD TEMP42 TEMP52>
2057                     <FRAME '\1aSET-TEMP>
2058                     <NTHR 'COUNTMP 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
2059                     <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
2060                     <DEAD TEMP52>
2061                     <PUSH I9>
2062                     <PUSH (`TYPE FIX)>
2063                     <CALL '\1aSET-TEMP 3>
2064 PHRASE76
2065                     <FRAME '\1aGEN>
2066                     <NTHUV N44 5 = TEMP52 (TYPE LIST)>
2067                     <DEAD N44>
2068                     <NTHL TEMP52 1 = N44 (TYPE NODE)>
2069                     <DEAD TEMP52>
2070                     <PUSH N44>
2071                     <PUSH SEGTMP10>
2072                     <CALL '\1aGEN 2 = TEMP42>
2073                     <GVAL 'NO-DATUM = TEMP52>
2074                     <EQUAL? TEMP52 TEMP42 + PHRASE87>
2075                     <DEAD TEMP52 TEMP42>
2076                     <FRAME '\1aSTRUCTYP-SEG>
2077                     <NTHUV N44 3 = STACK>
2078                     <CALL '\1aSTRUCTYP-SEG 1 = TEMP52>
2079                     <EQUAL? TEMP52 'MULTI + PHRASE87>
2080                     <DEAD TEMP52>
2081                     <FRAME '\1aSEGMENT-STACK>
2082                     <PUSH SEGTMP10>
2083                     <NTHR 'COUNTMP 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
2084                     <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
2085                     <DEAD TEMP52>
2086                     <FRAME '\1aSTRUCTYP>
2087                     <NTHUV N44 3 = STACK>
2088                     <CALL '\1aSTRUCTYP 1 = STACK>
2089                     <FRAME '\1aISTYPE?>
2090                     <NTHUV N44 3 = STACK>
2091                     <DEAD N44>
2092                     <CALL '\1aISTYPE? 1 = STACK>
2093                     <NTHR 'SEGLABEL 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
2094                     <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
2095                     <DEAD TEMP52>
2096                     <CALL '\1aSEGMENT-STACK 5>
2097                     <JUMP + PHRASE97>
2098 PHRASE87
2099                     <NTHR 'SEGCALLED 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
2100                     <NTHR TEMP52 1 = TEMP52 (RECORD-TYPE LBIND)>
2101                     <TYPE? TEMP52 <TYPE-CODE FALSE> + PHRASE97>
2102                     <DEAD TEMP52>
2103                     <FRAME '\1aLABEL-TAG>
2104                     <NTHR 'SEGLABEL 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
2105                     <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
2106                     <DEAD TEMP52>
2107                     <CALL '\1aLABEL-TAG 1>
2108 PHRASE97
2109                     <FRAME '\1aMAKE-TAG>
2110                     <CALL '\1aMAKE-TAG 0 = TEMP52>
2111                     <NTHR 'SEGLABEL 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
2112                     <PUTR TEMP42 1 TEMP52 (RECORD-TYPE LBIND)>
2113                     <DEAD TEMP42 TEMP52>
2114                     <JUMP + PHRASE106>
2115 PHRASE74
2116                     <FRAME '\1aGEN>
2117                     <PUSH N44>
2118                     <DEAD N44>
2119                     <GVAL 'POP-STACK = STACK>
2120                     <CALL '\1aGEN 2>
2121 PHRASE106
2122                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
2123                     <JUMP + MAP66>
2124 MAPAP69
2125                     <TYPE? SEGTMP10 <TYPE-CODE UNBOUND> + PHRASE112>
2126                     <FRAME '\1aFREE-TEMP>
2127                     <PUSH SEGTMP10>
2128                     <DEAD SEGTMP10>
2129                     <CALL '\1aFREE-TEMP 1>
2130                     <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE112>
2131                     <FRAME '\1aFREE-TEMP>
2132                     <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
2133                     <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
2134                     <DEAD TEMP26>
2135                     <PUSH %<>>
2136                     <CALL '\1aFREE-TEMP 2>
2137 PHRASE112
2138                     <EQUAL? W6 'DONT-CARE - PHRASE117>
2139                     <FRAME '\1aGEN-TEMP>
2140                     <NTHUV N4 3 = STACK>
2141                     <DEAD N4>
2142                     <CALL '\1aGEN-TEMP 1 = W6>
2143                     <JUMP + PHRASE119>
2144 PHRASE117
2145                     <TYPE? W6 <TYPE-CODE TEMP> - PHRASE119>
2146                     <FRAME '\1aUSE-TEMP>
2147                     <PUSH W6>
2148                     <NTHUV N4 3 = STACK>
2149                     <DEAD N4>
2150                     <CALL '\1aUSE-TEMP 2>
2151 PHRASE119
2152                     <TYPE? PARENT-COUNT7 <TYPE-CODE FALSE> + PHRASE122>
2153                     <FRAME '\1aSEG-SUBR-CALL>
2154                     <PUSH SUBR14>
2155                     <DEAD SUBR14>
2156                     <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
2157                     <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
2158                     <TYPE? TEMP26 <TYPE-CODE UNBOUND> + PHRASE125>
2159                     <DEAD TEMP26>
2160                     <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
2161                     <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
2162                     <JUMP + PHRASE128>
2163 PHRASE125
2164                     <SET TEMP26 I9>
2165                     <DEAD I9>
2166 PHRASE128
2167                     <PUSH TEMP26>
2168                     <DEAD TEMP26>
2169                     <PUSH W6>
2170                     <PUSH PARENT-COUNT7>
2171                     <DEAD PARENT-COUNT7>
2172                     <PUSH PARENT-LABEL8>
2173                     <DEAD PARENT-LABEL8>
2174                     <CALL '\1aSEG-SUBR-CALL 5>
2175                     <JUMP + PHRASE129>
2176 PHRASE122
2177                     <FRAME '\1aSMSUBR-CALL>
2178                     <PUSH SUBR14>
2179                     <DEAD SUBR14>
2180                     <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
2181                     <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
2182                     <TYPE? TEMP26 <TYPE-CODE UNBOUND> + PHRASE132>
2183                     <DEAD TEMP26>
2184                     <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
2185                     <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
2186                     <JUMP + PHRASE135>
2187 PHRASE132
2188                     <SET TEMP26 I9>
2189                     <DEAD I9>
2190 PHRASE135
2191                     <PUSH TEMP26>
2192                     <DEAD TEMP26>
2193                     <PUSH W6>
2194                     <PUSH TEMP20>
2195                     <DEAD TEMP20>
2196                     <PUSH SLNT17>
2197                     <DEAD SLNT17>
2198                     <CALL '\1aSMSUBR-CALL 5>
2199 PHRASE129
2200                     <UNBIND TEMP3>
2201                     <DEAD TEMP3>
2202                     <ADJ -27>
2203                     <RETURN W6>
2204                     <DEAD W6>
2205                     <END \1aCOMP-SUBR-CALL>
2206 "\f"
2207
2208 #WORD *3576772202*
2209 <GFCN \1aSEGMENT-STACK ("VALUE" <LIST ANY> ANY ANY ANY ANY "OPTIONAL" ANY) SEGTMP6 COUNTMP7 SEGTYP8 SEGTYP2-9 TG1-10>
2210                     <OPT-DISPATCH 4 %<> OPT4 OPT5>
2211 OPT4
2212                     <PUSH #T$UNBOUND 0>
2213 OPT5
2214                     <TEMP TG2-11 TEMP20:LIST TEMP21:ATOM>
2215                     <INTGO>
2216                     <TYPE? TG1-10 <TYPE-CODE UNBOUND> - TAG13>
2217                     <FRAME '\1aMAKE-TAG>
2218                     <CALL '\1aMAKE-TAG 0 = TG1-10>
2219 TAG13
2220                     <FRAME '\1aMAKE-TAG>
2221                     <CALL '\1aMAKE-TAG 0 = TG2-11>
2222                     <TYPE? SEGTYP8 <TYPE-CODE FALSE> - PHRASE18>
2223                     <FRAME '\1aIEMIT>
2224                     <PUSH '`LOOP>
2225                     <CONS 'LENGTH () = TEMP20>
2226                     <CONS 'VALUE TEMP20 = TEMP20>
2227                     <CONS 'TYPE TEMP20 = TEMP20>
2228                     <NTHUV SEGTMP6 1 = TEMP21 (TYPE ATOM)>
2229                     <CONS TEMP21 TEMP20 = STACK>
2230                     <DEAD TEMP21 TEMP20>
2231                     <CONS 'VALUE () = TEMP20>
2232                     <NTHUV COUNTMP7 1 = TEMP21 (TYPE ATOM)>
2233                     <CONS TEMP21 TEMP20 = STACK>
2234                     <DEAD TEMP21 TEMP20>
2235                     <CALL '\1aIEMIT 3>
2236                     <JUMP + PHRASE24>
2237 PHRASE18
2238                     <EQUAL? SEGTYP8 'LIST - PHRASE22>
2239                     <FRAME '\1aIEMIT>
2240                     <PUSH '`LOOP>
2241                     <CONS 'VALUE () = TEMP20>
2242                     <NTHUV SEGTMP6 1 = TEMP21 (TYPE ATOM)>
2243                     <CONS TEMP21 TEMP20 = STACK>
2244                     <DEAD TEMP21 TEMP20>
2245                     <CONS 'VALUE () = TEMP20>
2246                     <NTHUV COUNTMP7 1 = TEMP21 (TYPE ATOM)>
2247                     <CONS TEMP21 TEMP20 = STACK>
2248                     <DEAD TEMP21 TEMP20>
2249                     <CALL '\1aIEMIT 3>
2250                     <JUMP + PHRASE24>
2251 PHRASE22
2252                     <FRAME '\1aIEMIT>
2253                     <PUSH '`LOOP>
2254                     <CONS 'LENGTH () = TEMP20>
2255                     <CONS 'VALUE TEMP20 = TEMP20>
2256                     <NTHUV SEGTMP6 1 = TEMP21 (TYPE ATOM)>
2257                     <CONS TEMP21 TEMP20 = STACK>
2258                     <DEAD TEMP21 TEMP20>
2259                     <CONS 'VALUE () = TEMP20>
2260                     <NTHUV COUNTMP7 1 = TEMP21 (TYPE ATOM)>
2261                     <CONS TEMP21 TEMP20 = STACK>
2262                     <DEAD TEMP21 TEMP20>
2263                     <CALL '\1aIEMIT 3>
2264 PHRASE24
2265                     <FRAME '\1aLABEL-TAG>
2266                     <PUSH TG2-11>
2267                     <CALL '\1aLABEL-TAG 1>
2268                     <FRAME '\1aIEMIT>
2269                     <PUSH '`INTGO>
2270                     <CALL '\1aIEMIT 1>
2271                     <TYPE? SEGTYP8 <TYPE-CODE FALSE> + PHRASE29>
2272                     <FRAME '\1aEMPTY-CHECK>
2273                     <PUSH SEGTYP8>
2274                     <PUSH SEGTMP6>
2275                     <PUSH SEGTYP2-9>
2276                     <PUSH 'T>
2277                     <PUSH TG1-10>
2278                     <CALL '\1aEMPTY-CHECK 5>
2279                     <JUMP + PHRASE31>
2280 PHRASE29
2281                     <FRAME '\1aIEMIT>
2282                     <PUSH '`EMPTY?>
2283                     <PUSH SEGTMP6>
2284                     <PUSH '+>
2285                     <PUSH TG1-10>
2286                     <CALL '\1aIEMIT 4>
2287 PHRASE31
2288                     <TYPE? SEGTYP8 <TYPE-CODE FALSE> + PHRASE34>
2289                     <FRAME '\1aNTH-DO>
2290                     <PUSH SEGTYP8>
2291                     <PUSH SEGTMP6>
2292                     <GVAL 'POP-STACK = STACK>
2293                     <PUSH 1>
2294                     <PUSH SEGTYP2-9>
2295                     <CALL '\1aNTH-DO 5>
2296                     <FRAME '\1aREST-DO>
2297                     <PUSH SEGTYP8>
2298                     <DEAD SEGTYP8>
2299                     <PUSH SEGTMP6>
2300                     <PUSH SEGTMP6>
2301                     <DEAD SEGTMP6>
2302                     <PUSH 1>
2303                     <PUSH SEGTYP2-9>
2304                     <DEAD SEGTYP2-9>
2305                     <CALL '\1aREST-DO 5>
2306                     <JUMP + PHRASE37>
2307 PHRASE34
2308                     <FRAME '\1aIEMIT>
2309                     <PUSH '`NTH1>
2310                     <PUSH SEGTMP6>
2311                     <PUSH '=>
2312                     <GVAL 'POP-STACK = STACK>
2313                     <CALL '\1aIEMIT 4>
2314                     <FRAME '\1aIEMIT>
2315                     <PUSH '`REST1>
2316                     <PUSH SEGTMP6>
2317                     <PUSH '=>
2318                     <PUSH SEGTMP6>
2319                     <DEAD SEGTMP6>
2320                     <CALL '\1aIEMIT 4>
2321 PHRASE37
2322                     <FRAME '\1aIEMIT>
2323                     <PUSH '`ADD>
2324                     <PUSH COUNTMP7>
2325                     <PUSH 1>
2326                     <PUSH '=>
2327                     <PUSH COUNTMP7>
2328                     <DEAD COUNTMP7>
2329                     <CONS 'FIX () = TEMP20>
2330                     <CONS '`TYPE TEMP20 = STACK>
2331                     <DEAD TEMP20>
2332                     <CALL '\1aIEMIT 6>
2333                     <FRAME '\1aBRANCH-TAG>
2334                     <PUSH TG2-11>
2335                     <DEAD TG2-11>
2336                     <CALL '\1aBRANCH-TAG 1>
2337                     <FRAME '\1aLABEL-TAG>
2338                     <PUSH TG1-10>
2339                     <DEAD TG1-10>
2340                     <CALL '\1aLABEL-TAG 1 = TEMP20>
2341                     <RETURN TEMP20>
2342                     <DEAD TEMP20>
2343                     <END \1aSEGMENT-STACK>
2344 #WORD *27652335472*
2345 <GFCN \1aSEGMENT-LIST ("VALUE" ANY ANY ANY ANY ANY "OPTIONAL" ANY ANY) SEGTMP7 COUNTMP8 LIST?9 W10 TGX11 RES12>
2346                     <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
2347 OPT4
2348                     <PUSH #T$UNBOUND 0>
2349 OPT5
2350                     <PUSH %<>>
2351 OPT6
2352                     <TEMP TG1-13 TG2-14 TG3-15 TG4-16 OTMP17:TEMP>
2353                     <INTGO>
2354                     <TYPE? TGX11 <TYPE-CODE UNBOUND> - TAG18>
2355                     <FRAME '\1aMAKE-TAG>
2356                     <CALL '\1aMAKE-TAG 0 = TGX11>
2357 TAG18
2358                     <FRAME '\1aMAKE-TAG>
2359                     <CALL '\1aMAKE-TAG 0 = TG1-13>
2360                     <FRAME '\1aMAKE-TAG>
2361                     <CALL '\1aMAKE-TAG 0 = TG2-14>
2362                     <FRAME '\1aMAKE-TAG>
2363                     <CALL '\1aMAKE-TAG 0 = TG3-15>
2364                     <FRAME '\1aMAKE-TAG>
2365                     <CALL '\1aMAKE-TAG 0 = TG4-16>
2366                     <FRAME '\1aGEN-TEMP>
2367                     <CALL '\1aGEN-TEMP 0 = OTMP17>
2368                     <TYPE? LIST?9 <TYPE-CODE FALSE> - PHRASE27>
2369                     <FRAME '\1aIEMIT>
2370                     <PUSH '`TYPE>
2371                     <PUSH SEGTMP7>
2372                     <PUSH '=>
2373                     <PUSH OTMP17>
2374                     <CALL '\1aIEMIT 4>
2375                     <FRAME '\1aIEMIT>
2376                     <PUSH '`AND>
2377                     <PUSH OTMP17>
2378                     <PUSH 7>
2379                     <PUSH '=>
2380                     <PUSH OTMP17>
2381                     <CALL '\1aIEMIT 5>
2382                     <FRAME '\1aIEMIT>
2383                     <PUSH '`VEQUAL?>
2384                     <PUSH OTMP17>
2385                     <PUSH 1>
2386                     <PUSH '+>
2387                     <PUSH TG1-13>
2388                     <CALL '\1aIEMIT 5>
2389                     <FRAME '\1aSEGMENT-STACK>
2390                     <PUSH SEGTMP7>
2391                     <PUSH COUNTMP8>
2392                     <PUSH %<>>
2393                     <PUSH %<>>
2394                     <CALL '\1aSEGMENT-STACK 4>
2395                     <FRAME '\1aGEN-LIST>
2396                     <PUSH COUNTMP8>
2397                     <PUSH W10>
2398                     <CALL '\1aGEN-LIST 2>
2399                     <FRAME '\1aBRANCH-TAG>
2400                     <PUSH TG2-14>
2401                     <CALL '\1aBRANCH-TAG 1>
2402                     <FRAME '\1aLABEL-TAG>
2403                     <PUSH TGX11>
2404                     <DEAD TGX11>
2405                     <CALL '\1aLABEL-TAG 1>
2406                     <FRAME '\1aSET-TEMP>
2407                     <PUSH SEGTMP7>
2408                     <PUSH 0>
2409                     <CALL '\1aSET-TEMP 2>
2410                     <FRAME '\1aLABEL-TAG>
2411                     <PUSH TG1-13>
2412                     <DEAD TG1-13>
2413                     <CALL '\1aLABEL-TAG 1>
2414 PHRASE27
2415                     <FRAME '\1aIEMIT>
2416                     <PUSH '`LOOP>
2417                     <CALL '\1aIEMIT 1>
2418                     <FRAME '\1aLABEL-TAG>
2419                     <PUSH TG4-16>
2420                     <CALL '\1aLABEL-TAG 1>
2421                     <FRAME '\1aIEMIT>
2422                     <PUSH '`VEQUAL?>
2423                     <PUSH COUNTMP8>
2424                     <PUSH 0>
2425                     <PUSH '+>
2426                     <PUSH TG3-15>
2427                     <CALL '\1aIEMIT 5>
2428                     <FRAME '\1aIEMIT>
2429                     <PUSH '`POP>
2430                     <PUSH '=>
2431                     <PUSH OTMP17>
2432                     <CALL '\1aIEMIT 3>
2433                     <FRAME '\1aIEMIT>
2434                     <PUSH '`CONS>
2435                     <PUSH OTMP17>
2436                     <PUSH SEGTMP7>
2437                     <PUSH '=>
2438                     <PUSH SEGTMP7>
2439                     <PUSH (`TYPE LIST)>
2440                     <CALL '\1aIEMIT 6>
2441                     <FRAME '\1aIEMIT>
2442                     <PUSH '`SUB>
2443                     <PUSH COUNTMP8>
2444                     <PUSH 1>
2445                     <PUSH '=>
2446                     <PUSH COUNTMP8>
2447                     <DEAD COUNTMP8>
2448                     <PUSH (`TYPE FIX)>
2449                     <CALL '\1aIEMIT 6>
2450                     <FRAME '\1aBRANCH-TAG>
2451                     <PUSH TG4-16>
2452                     <DEAD TG4-16>
2453                     <CALL '\1aBRANCH-TAG 1>
2454                     <FRAME '\1aLABEL-TAG>
2455                     <PUSH TG3-15>
2456                     <DEAD TG3-15>
2457                     <CALL '\1aLABEL-TAG 1>
2458                     <FRAME '\1aFREE-TEMP>
2459                     <PUSH OTMP17>
2460                     <DEAD OTMP17>
2461                     <CALL '\1aFREE-TEMP 1>
2462                     <FRAME '\1aMOVE-ARG>
2463                     <PUSH SEGTMP7>
2464                     <DEAD SEGTMP7>
2465                     <PUSH W10>
2466                     <CALL '\1aMOVE-ARG 2>
2467                     <TYPE? LIST?9 <TYPE-CODE FALSE> - PHRASE48>
2468                     <DEAD LIST?9>
2469                     <FRAME '\1aLABEL-TAG>
2470                     <PUSH TG2-14>
2471                     <DEAD TG2-14>
2472                     <CALL '\1aLABEL-TAG 1>
2473 PHRASE48
2474                     <RETURN W10>
2475                     <DEAD W10>
2476                     <END \1aSEGMENT-LIST>\r\r
2477 <GDECL (SUBRS TEMPLATES) VECTOR>
2478
2479 #WORD *16266424377*
2480 <GFCN \1aSIDES ("VALUE" <OR ATOM FALSE> <LIST [REST NODE]>) L4>
2481                     <TEMP TEMP14 TEMP11:LIST TEMP19>
2482                     <INTGO>
2483                     <SET TEMP14 %<> (TYPE FALSE)>
2484                     <SET TEMP11 L4 (TYPE LIST)>
2485                     <DEAD L4>
2486                     <LOOP>
2487 MAP6
2488                     <INTGO>
2489                     <EMPL? TEMP11 + MAPAP9>
2490                     <NTHL TEMP11 1 = TEMP14>
2491                     <NTHUV TEMP14 1 = TEMP19 (TYPE FIX)>
2492                     <VEQUAL? TEMP19 2 - PHRASE18 (TYPE FIX)>
2493                     <DEAD TEMP19>
2494                     <SET TEMP14 %<> (TYPE FALSE)>
2495                     <JUMP + PHRASE20>
2496 PHRASE18
2497                     <NTHUV TEMP14 1 = TEMP19 (TYPE FIX)>
2498                     <VEQUAL? TEMP19 52 + TAG23 (TYPE FIX)>
2499                     <DEAD TEMP19>
2500                     <NTHUV TEMP14 8 = TEMP14>
2501                     <CHTYPE TEMP14 <TYPE-CODE LIST> = TEMP14>
2502                     <EMPL? TEMP14 + TAG22>
2503                     <LOOP (TEMP14 VALUE)>
2504 TAG24
2505                     <NTHL TEMP14 1 = TEMP19>
2506                     <TYPE? TEMP19 <TYPE-CODE ATOM> - TAG25>
2507                     <VEQUAL? TEMP19 'ALL + TAG23>
2508                     <DEAD TEMP19>
2509 TAG25
2510                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
2511                     <EMPL? TEMP14 - TAG24>
2512 TAG22
2513                     <SET TEMP14 %<> (TYPE FALSE)>
2514                     <JUMP + PHRASE20>
2515 TAG23
2516                     <RETURN 'T>
2517 PHRASE20
2518                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
2519                     <JUMP + MAP6>
2520 MAPAP9
2521                     <RETURN TEMP14>
2522                     <DEAD TEMP14>
2523                     <END \1aSIDES>
2524 " Generate code for a COND."
2525
2526 #WORD *31673133744*
2527 <GFCN \1aCOND-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 W9 NOTF10 BRANCH11 DIR12>
2528                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
2529 OPT4
2530                     <PUSH %<>>
2531 OPT5
2532                     <PUSH %<>>
2533 OPT6
2534                     <PUSH %<>>
2535 OPT7
2536                     <TEMP RW14 COND16:ATOM (WSET18 %<>) KK19:LIST SDIR20 TEMP29 TEMP44 LAST42 BR46 PRED-TRUE48 K49 PR50 NO-SEQ51 LEAVE52 BRNCHED58 PRT59 BR2-56 PRT2-57 LOCN15>
2537                     <INTGO>
2538                     <SET RW14 W9>
2539                     <FRAME '\1aMAKE-TAG>
2540                     <PUSH "COND">
2541                     <CALL '\1aMAKE-TAG 1 = COND16>
2542                     <NTHUV NOD8 5 = KK19 (TYPE LIST)>
2543                     <SET SDIR20 DIR12>
2544                     <TYPE? NOTF10 <TYPE-CODE FALSE> + TAG25>
2545                     <TYPE? DIR12 <TYPE-CODE FALSE> - TAG24>
2546                     <DEAD DIR12>
2547                     <SET DIR12 'T (TYPE ATOM)>
2548                     <JUMP + TAG25>
2549 TAG24
2550                     <SET DIR12 %<> (TYPE FALSE)>
2551 TAG25
2552                     <GVAL 'POP-STACK = TEMP29>
2553                     <EQUAL? TEMP29 W9 + BOOL28>
2554                     <DEAD TEMP29>
2555                     <TYPE? W9 <TYPE-CODE TEMP> - PHRASE27>
2556                     <NTHUV W9 5 = TEMP29>
2557                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE27>
2558                     <DEAD TEMP29>
2559                     <NTHUV W9 5 = TEMP29>
2560                     <EQUAL? TEMP29 'ANY + PHRASE27>
2561                     <DEAD TEMP29>
2562 BOOL28
2563                     <SET W9 'DONT-CARE (TYPE ATOM)>
2564 PHRASE27
2565                     <SET TEMP29 KK19 (TYPE LIST)>
2566                     <DEAD KK19>
2567                     <LOOP>
2568 MAP32
2569                     <INTGO>
2570                     <EMPL? TEMP29 + MAPAP35>
2571                     <SET KK19 TEMP29>
2572                     <RESTL KK19 1 = TEMP44 (TYPE LIST)>
2573                     <EMPL? TEMP44 - TAG43 (TYPE LIST)>
2574                     <DEAD TEMP44>
2575                     <SET LAST42 'T (TYPE ATOM)>
2576                     <JUMP + TAG45>
2577 TAG43
2578                     <SET LAST42 %<> (TYPE FALSE)>
2579 TAG45
2580                     <NTHL KK19 1 = BR46 (TYPE NODE)>
2581                     <SET PRED-TRUE48 %<> (TYPE FALSE)>
2582                     <NTHUV BR46 5 = K49 (TYPE LIST)>
2583                     <NTHUV BR46 4 = PR50 (TYPE NODE)>
2584                     <SET NO-SEQ51 %<> (TYPE FALSE)>
2585                     <SET LEAVE52 %<> (TYPE FALSE)>
2586                     <SET BRNCHED58 %<> (TYPE FALSE)>
2587                     <NTHUV PR50 3 = PRT59>
2588                     <VEQUAL? LAST42 0 - PHRASE62>
2589                     <FRAME '\1aTYPE-OK?>
2590                     <PUSH PRT59>
2591                     <PUSH 'FALSE>
2592                     <CALL '\1aTYPE-OK? 2 = TEMP44>
2593                     <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE62>
2594                     <DEAD TEMP44>
2595                     <FRAME '\1aTYPE-OK?>
2596                     <RESTL KK19 1 = TEMP44 (TYPE LIST)>
2597                     <NTHL TEMP44 1 = BR2-56 (TYPE NODE)>
2598                     <DEAD TEMP44>
2599                     <NTHUV BR2-56 4 = TEMP44 (TYPE NODE)>
2600                     <NTHUV TEMP44 3 = PRT2-57>
2601                     <DEAD TEMP44>
2602                     <PUSH PRT2-57>
2603                     <PUSH 'FALSE>
2604                     <CALL '\1aTYPE-OK? 2 = TEMP44>
2605                     <TYPE? TEMP44 <TYPE-CODE FALSE> - PHRASE62>
2606                     <DEAD TEMP44>
2607                     <NTHUV BR2-56 5 = TEMP44 (TYPE LIST)>
2608                     <DEAD BR2-56>
2609                     <EMPL? TEMP44 - BOOL67 (TYPE LIST)>
2610                     <TYPE? PRT2-57 <TYPE-CODE FALSE> + BOOL66>
2611                     <DEAD PRT2-57>
2612 BOOL67
2613                     <EMPL? TEMP44 + PHRASE62 (TYPE LIST)>
2614                     <LOOP (TEMP44 VALUE)>
2615 TAG69
2616                     <RESTL TEMP44 1 = PRT2-57 (TYPE LIST)>
2617                     <EMPL? PRT2-57 + TAG71>
2618                     <SET TEMP44 PRT2-57>
2619                     <DEAD PRT2-57>
2620                     <JUMP + TAG69>
2621 TAG71
2622                     <NTHL TEMP44 1 = PRT2-57>
2623                     <DEAD TEMP44>
2624                     <NTHUV PRT2-57 3 = PRT2-57>
2625                     <TYPE? PRT2-57 <TYPE-CODE FALSE> - PHRASE62>
2626                     <DEAD PRT2-57>
2627 BOOL66
2628                     <FRAME '\1aCOND-COMPLAIN>
2629                     <PUSH "Predicate assumed true to avoid type mismatch">
2630                     <PUSH PR50>
2631                     <CALL '\1aCOND-COMPLAIN 2>
2632                     <SET PRED-TRUE48 'T (TYPE ATOM)>
2633 PHRASE62
2634                     <EMPL? K49 - PHRASE74 (TYPE LIST)>
2635                     <FRAME '\1aTYPE-OK?>
2636                     <PUSH PRT59>
2637                     <PUSH 'FALSE>
2638                     <CALL '\1aTYPE-OK? 2 = PRT2-57>
2639                     <TYPE? PRT2-57 <TYPE-CODE FALSE> - TAG80>
2640                     <DEAD PRT2-57>
2641                     <SET PRED-TRUE48 'T (TYPE ATOM)>
2642 TAG80
2643                     <VEQUAL? PRED-TRUE48 0 - BOOL77>
2644                     <VEQUAL? LAST42 0 + PHRASE76>
2645 BOOL77
2646                     <VEQUAL? LAST42 0 - PHRASE82>
2647                     <FRAME '\1aCOND-COMPLAIN>
2648                     <PUSH "NON REACHABLE COND CLAUSE(S) ">
2649                     <RESTL KK19 1 = PRT2-57 (TYPE LIST)>
2650                     <DEAD KK19>
2651                     <NTHL PRT2-57 1 = STACK (TYPE NODE)>
2652                     <DEAD PRT2-57>
2653                     <CALL '\1aCOND-COMPLAIN 2>
2654 PHRASE82
2655                     <VEQUAL? PRED-TRUE48 0 + PHRASE85>
2656                     <DEAD PRED-TRUE48>
2657                     <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE85>
2658                     <FRAME '\1aGEN>
2659                     <PUSH PR50>
2660                     <DEAD PR50>
2661                     <EQUAL? RW14 'FLUSHED - PHRASE89>
2662                     <SET PRT2-57 'FLUSHED (TYPE ATOM)>
2663                     <JUMP + PHRASE90>
2664 PHRASE89
2665                     <SET PRT2-57 W9>
2666 PHRASE90
2667                     <PUSH PRT2-57>
2668                     <DEAD PRT2-57>
2669                     <CALL '\1aGEN 2 = LOCN15>
2670                     <VEQUAL? WSET18 0 - PHRASE92>
2671                     <DEAD WSET18>
2672                     <GVAL 'NO-DATUM = PRT2-57>
2673                     <EQUAL? PRT2-57 LOCN15 + PHRASE92>
2674                     <DEAD PRT2-57>
2675                     <EQUAL? RW14 'FLUSHED + PHRASE92>
2676                     <FRAME '\1aFIXUP-TEMP>
2677                     <PUSH W9>
2678                     <DEAD W9>
2679                     <PUSH LOCN15>
2680                     <DEAD LOCN15>
2681                     <CALL '\1aFIXUP-TEMP 2 = W9>
2682 PHRASE92
2683                     <TYPE? DIR12 <TYPE-CODE FALSE> + MAPAP35>
2684                     <DEAD DIR12>
2685                     <FRAME '\1aBRANCH-TAG>
2686                     <PUSH BRANCH11>
2687                     <DEAD BRANCH11>
2688                     <CALL '\1aBRANCH-TAG 1>
2689                     <JUMP + MAPAP35>
2690 PHRASE85
2691                     <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE98>
2692                     <VEQUAL? LAST42 0 + PHRASE98>
2693                     <DEAD LAST42>
2694                     <FRAME '\1aPRED-BRANCH-GEN>
2695                     <PUSH BRANCH11>
2696                     <DEAD BRANCH11>
2697                     <PUSH PR50>
2698                     <DEAD PR50>
2699                     <PUSH SDIR20>
2700                     <DEAD SDIR20>
2701                     <EQUAL? RW14 'FLUSHED - PHRASE102>
2702                     <SET PRT2-57 'FLUSHED (TYPE ATOM)>
2703                     <JUMP + PHRASE109>
2704 PHRASE102
2705                     <VEQUAL? WSET18 0 - BOOL104>
2706                     <DEAD WSET18>
2707                     <TYPE? W9 <TYPE-CODE TEMP> - PHRASE103>
2708                     <NTHUV W9 2 = TEMP44 (TYPE FIX)>
2709                     <VEQUAL? TEMP44 0 - PHRASE103 (TYPE FIX)>
2710                     <DEAD TEMP44>
2711 BOOL104
2712                     <SET PRT2-57 W9>
2713                     <JUMP + PHRASE109>
2714 PHRASE103
2715                     <FRAME '\1aGEN-TEMP>
2716                     <PUSH %<>>
2717                     <CALL '\1aGEN-TEMP 1 = W9>
2718                     <SET PRT2-57 W9>
2719 PHRASE109
2720                     <PUSH PRT2-57>
2721                     <DEAD PRT2-57>
2722                     <PUSH NOTF10>
2723                     <DEAD NOTF10>
2724                     <CALL '\1aPRED-BRANCH-GEN 5>
2725                     <JUMP + MAPAP35>
2726 PHRASE98
2727                     <FRAME '\1aGEN>
2728                     <PUSH PR50>
2729                     <DEAD PR50>
2730                     <EQUAL? RW14 'FLUSHED - PHRASE114>
2731                     <SET PRT2-57 'FLUSHED (TYPE ATOM)>
2732                     <JUMP + PHRASE115>
2733 PHRASE114
2734                     <SET PRT2-57 W9>
2735 PHRASE115
2736                     <PUSH PRT2-57>
2737                     <DEAD PRT2-57>
2738                     <CALL '\1aGEN 2 = LOCN15>
2739                     <VEQUAL? WSET18 0 - MAPAP35>
2740                     <DEAD WSET18>
2741                     <GVAL 'NO-DATUM = PRT2-57>
2742                     <EQUAL? PRT2-57 LOCN15 + MAPAP35>
2743                     <DEAD PRT2-57>
2744                     <EQUAL? RW14 'FLUSHED + MAPAP35>
2745                     <FRAME '\1aFIXUP-TEMP>
2746                     <PUSH W9>
2747                     <DEAD W9>
2748                     <PUSH LOCN15>
2749                     <DEAD LOCN15>
2750                     <CALL '\1aFIXUP-TEMP 2 = W9>
2751                     <JUMP + MAPAP35>
2752 PHRASE76
2753                     <TYPE? PRT59 <TYPE-CODE FALSE> - PHRASE120>
2754                     <FRAME '\1aCOND-COMPLAIN>
2755                     <PUSH "Predicate assumed FALSE to satisfy type constraint ">
2756                     <PUSH PR50>
2757                     <CALL '\1aCOND-COMPLAIN 2>
2758                     <FRAME '\1aGEN>
2759                     <PUSH PR50>
2760                     <DEAD PR50>
2761                     <PUSH 'FLUSHED>
2762                     <CALL '\1aGEN 2>
2763                     <JUMP + PHRASE151>
2764 PHRASE120
2765                     <FRAME '\1aISTYPE?>
2766                     <PUSH PRT59>
2767                     <DEAD PRT59>
2768                     <CALL '\1aISTYPE? 1 = PRT2-57>
2769                     <VEQUAL? PRT2-57 'FALSE - PHRASE123>
2770                     <DEAD PRT2-57>
2771                     <FRAME '\1aGEN>
2772                     <PUSH PR50>
2773                     <DEAD PR50>
2774                     <PUSH 'FLUSHED>
2775                     <CALL '\1aGEN 2>
2776                     <JUMP + PHRASE151>
2777 PHRASE123
2778                     <EQUAL? RW14 'FLUSHED - PHRASE126>
2779                     <FRAME '\1aPRED-BRANCH-GEN>
2780                     <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE129>
2781                     <TYPE? SDIR20 <TYPE-CODE FALSE> + PHRASE129>
2782                     <SET PRT2-57 BRANCH11>
2783                     <JUMP + PHRASE131>
2784 PHRASE129
2785                     <SET PRT2-57 COND16>
2786 PHRASE131
2787                     <PUSH PRT2-57>
2788                     <DEAD PRT2-57>
2789                     <PUSH PR50>
2790                     <DEAD PR50>
2791                     <PUSH 'T>
2792                     <PUSH 'FLUSHED>
2793                     <PUSH NOTF10>
2794                     <CALL '\1aPRED-BRANCH-GEN 5>
2795                     <JUMP + PHRASE151>
2796 PHRASE126
2797                     <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE134>
2798                     <TYPE? SDIR20 <TYPE-CODE FALSE> + PHRASE134>
2799                     <FRAME '\1aFREE-TEMP>
2800                     <FRAME '\1aPRED-BRANCH-GEN>
2801                     <PUSH BRANCH11>
2802                     <PUSH PR50>
2803                     <DEAD PR50>
2804                     <PUSH 'T>
2805                     <PUSH 'FLUSHED>
2806                     <PUSH NOTF10>
2807                     <CALL '\1aPRED-BRANCH-GEN 5 = STACK>
2808                     <CALL '\1aFREE-TEMP 1>
2809                     <JUMP + PHRASE151>
2810 PHRASE134
2811                     <FRAME '\1aPRED-BRANCH-GEN>
2812                     <PUSH COND16>
2813                     <PUSH PR50>
2814                     <DEAD PR50>
2815                     <PUSH 'T>
2816                     <VEQUAL? WSET18 0 - BOOL142>
2817                     <DEAD WSET18>
2818                     <TYPE? W9 <TYPE-CODE TEMP> - PHRASE141>
2819                     <NTHUV W9 2 = TEMP44 (TYPE FIX)>
2820                     <VEQUAL? TEMP44 0 - PHRASE141 (TYPE FIX)>
2821                     <DEAD TEMP44>
2822 BOOL142
2823                     <SET WSET18 'T (TYPE ATOM)>
2824                     <SET TEMP44 W9>
2825                     <JUMP + PHRASE146>
2826 PHRASE141
2827                     <SET WSET18 'T (TYPE ATOM)>
2828                     <FRAME '\1aGEN-TEMP>
2829                     <PUSH %<>>
2830                     <CALL '\1aGEN-TEMP 1 = W9>
2831                     <SET TEMP44 W9>
2832 PHRASE146
2833                     <PUSH TEMP44>
2834                     <DEAD TEMP44>
2835                     <PUSH NOTF10>
2836                     <CALL '\1aPRED-BRANCH-GEN 5 = LOCN15>
2837                     <FRAME '\1aDEALLOCATE-TEMP>
2838                     <PUSH LOCN15>
2839                     <CALL '\1aDEALLOCATE-TEMP 1>
2840                     <JUMP + PHRASE151>
2841 PHRASE74
2842                     <FRAME '\1aMAKE-TAG>
2843                     <PUSH "PHRASE">
2844                     <CALL '\1aMAKE-TAG 1 = BR2-56>
2845                     <SET TEMP44 K49>
2846                     <LOOP (TEMP44 VALUE)>
2847 TAG153
2848                     <RESTL TEMP44 1 = PRT2-57 (TYPE LIST)>
2849                     <EMPL? PRT2-57 + TAG154>
2850                     <SET TEMP44 PRT2-57>
2851                     <DEAD PRT2-57>
2852                     <JUMP + TAG153>
2853 TAG154
2854                     <NTHL TEMP44 1 = PRT2-57>
2855                     <DEAD TEMP44>
2856                     <NTHUV PRT2-57 3 = TEMP44>
2857                     <DEAD PRT2-57>
2858                     <FRAME '\1aISTYPE?>
2859                     <PUSH PRT59>
2860                     <CALL '\1aISTYPE? 1 = PRT2-57>
2861                     <VEQUAL? PRT2-57 'FALSE + BOOL158>
2862                     <DEAD PRT2-57>
2863                     <TYPE? TEMP44 <TYPE-CODE FALSE> - BOOL158>
2864                     <DEAD TEMP44>
2865                     <FRAME '\1aCOND-COMPLAIN>
2866                     <PUSH "Predicate assumed FALSE to satisfy type constraibnt">
2867                     <PUSH PR50>
2868                     <CALL '\1aCOND-COMPLAIN 2>
2869                     <JUMP + BOOL157>
2870 BOOL158
2871                     <FRAME '\1aISTYPE?>
2872                     <PUSH PRT59>
2873                     <CALL '\1aISTYPE? 1 = PRT2-57>
2874                     <VEQUAL? PRT2-57 'FALSE - PHRASE156>
2875                     <DEAD PRT2-57>
2876                     <FRAME '\1aCOND-COMPLAIN>
2877                     <PUSH "COND PREDICATE ALWAYS FALSE">
2878                     <PUSH PR50>
2879                     <CALL '\1aCOND-COMPLAIN 2>
2880 BOOL157
2881                     <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE165>
2882                     <VEQUAL? LAST42 0 + PHRASE165>
2883                     <TYPE? DIR12 <TYPE-CODE FALSE> - PHRASE165>
2884                     <FRAME '\1aGEN>
2885                     <PUSH PR50>
2886                     <DEAD PR50>
2887                     <PUSH W9>
2888                     <CALL '\1aGEN 2 = LOCN15>
2889                     <VEQUAL? WSET18 0 - PHRASE169>
2890                     <GVAL 'NO-DATUM = PRT2-57>
2891                     <EQUAL? PRT2-57 LOCN15 + PHRASE169>
2892                     <DEAD PRT2-57>
2893                     <EQUAL? RW14 'FLUSHED + PHRASE169>
2894                     <FRAME '\1aFIXUP-TEMP>
2895                     <PUSH W9>
2896                     <DEAD W9>
2897                     <PUSH LOCN15>
2898                     <DEAD LOCN15>
2899                     <CALL '\1aFIXUP-TEMP 2 = W9>
2900                     <SET LOCN15 W9>
2901                     <SET WSET18 'T (TYPE ATOM)>
2902 PHRASE169
2903                     <FRAME '\1aBRANCH-TAG>
2904                     <PUSH BRANCH11>
2905                     <CALL '\1aBRANCH-TAG 1>
2906                     <JUMP + PHRASE185>
2907 PHRASE165
2908                     <VEQUAL? LAST42 0 + PHRASE175>
2909                     <EQUAL? RW14 'FLUSHED + PHRASE175>
2910                     <FRAME '\1aGEN>
2911                     <PUSH PR50>
2912                     <DEAD PR50>
2913                     <PUSH W9>
2914                     <CALL '\1aGEN 2 = LOCN15>
2915                     <VEQUAL? WSET18 0 - PHRASE182>
2916                     <GVAL 'NO-DATUM = PRT2-57>
2917                     <EQUAL? PRT2-57 LOCN15 + PHRASE182>
2918                     <DEAD PRT2-57>
2919                     <FRAME '\1aFIXUP-TEMP>
2920                     <PUSH W9>
2921                     <DEAD W9>
2922                     <PUSH LOCN15>
2923                     <DEAD LOCN15>
2924                     <CALL '\1aFIXUP-TEMP 2 = W9>
2925                     <SET LOCN15 W9>
2926                     <SET WSET18 'T (TYPE ATOM)>
2927                     <JUMP + PHRASE182>
2928 PHRASE175
2929                     <FRAME '\1aGEN>
2930                     <PUSH PR50>
2931                     <DEAD PR50>
2932                     <PUSH 'FLUSHED>
2933                     <CALL '\1aGEN 2 = LOCN15>
2934 PHRASE182
2935                     <EQUAL? PRT59 'NO-RETURN + PHRASE185>
2936                     <DEAD PRT59>
2937                     <FRAME '\1aBRANCH-TAG>
2938                     <PUSH BR2-56>
2939                     <CALL '\1aBRANCH-TAG 1>
2940 PHRASE185
2941                     <SET NO-SEQ51 'T (TYPE ATOM)>
2942                     <JUMP + PHRASE226>
2943 PHRASE156
2944                     <FRAME '\1aTYPE-OK?>
2945                     <PUSH 'FALSE>
2946                     <PUSH PRT59>
2947                     <DEAD PRT59>
2948                     <CALL '\1aTYPE-OK? 2 = PRT2-57>
2949                     <TYPE? PRT2-57 <TYPE-CODE FALSE> + PHRASE187>
2950                     <DEAD PRT2-57>
2951                     <VEQUAL? PRED-TRUE48 0 - PHRASE187>
2952                     <DEAD PRED-TRUE48>
2953                     <VEQUAL? LAST42 0 + PHRASE191>
2954                     <TYPE? DIR12 <TYPE-CODE FALSE> - PHRASE191>
2955                     <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE191>
2956                     <FRAME '\1aPRED-BRANCH-GEN>
2957                     <PUSH BRANCH11>
2958                     <PUSH PR50>
2959                     <DEAD PR50>
2960                     <PUSH %<>>
2961                     <EQUAL? RW14 'FLUSHED - PHRASE195>
2962                     <SET PRT2-57 'FLUSHED (TYPE ATOM)>
2963                     <JUMP + PHRASE202>
2964 PHRASE195
2965                     <VEQUAL? WSET18 0 - BOOL197>
2966                     <DEAD WSET18>
2967                     <TYPE? W9 <TYPE-CODE TEMP> - PHRASE196>
2968                     <NTHUV W9 2 = TEMP44 (TYPE FIX)>
2969                     <VEQUAL? TEMP44 0 - PHRASE196 (TYPE FIX)>
2970                     <DEAD TEMP44>
2971 BOOL197
2972                     <SET WSET18 'T (TYPE ATOM)>
2973                     <SET PRT2-57 W9>
2974                     <JUMP + PHRASE202>
2975 PHRASE196
2976                     <SET WSET18 'T (TYPE ATOM)>
2977                     <FRAME '\1aGEN-TEMP>
2978                     <PUSH %<>>
2979                     <CALL '\1aGEN-TEMP 1 = W9>
2980                     <SET PRT2-57 W9>
2981 PHRASE202
2982                     <PUSH PRT2-57>
2983                     <DEAD PRT2-57>
2984                     <PUSH NOTF10>
2985                     <CALL '\1aPRED-BRANCH-GEN 5 = LOCN15>
2986                     <FRAME '\1aDEALLOCATE-TEMP>
2987                     <PUSH LOCN15>
2988                     <CALL '\1aDEALLOCATE-TEMP 1>
2989                     <JUMP + PHRASE226>
2990 PHRASE191
2991                     <VEQUAL? LAST42 0 + PHRASE205>
2992                     <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE205>
2993                     <FRAME '\1aFREE-TEMP>
2994                     <FRAME '\1aPRED-BRANCH-GEN>
2995                     <PUSH BR2-56>
2996                     <PUSH PR50>
2997                     <DEAD PR50>
2998                     <PUSH %<>>
2999                     <PUSH 'FLUSHED>
3000                     <CALL '\1aPRED-BRANCH-GEN 4 = STACK>
3001                     <CALL '\1aFREE-TEMP 1>
3002                     <JUMP + PHRASE226>
3003 PHRASE205
3004                     <VEQUAL? LAST42 0 + PHRASE209>
3005                     <EQUAL? RW14 'FLUSHED + PHRASE209>
3006                     <FRAME '\1aPRED-BRANCH-GEN>
3007                     <PUSH BR2-56>
3008                     <PUSH PR50>
3009                     <DEAD PR50>
3010                     <PUSH %<>>
3011                     <EQUAL? RW14 'FLUSHED - PHRASE213>
3012                     <SET PRT2-57 'FLUSHED (TYPE ATOM)>
3013                     <JUMP + PHRASE219>
3014 PHRASE213
3015                     <VEQUAL? WSET18 0 - BOOL215>
3016                     <DEAD WSET18>
3017                     <TYPE? W9 <TYPE-CODE TEMP> - PHRASE214>
3018                     <NTHUV W9 2 = TEMP44 (TYPE FIX)>
3019                     <VEQUAL? TEMP44 0 - PHRASE214 (TYPE FIX)>
3020                     <DEAD TEMP44>
3021 BOOL215
3022                     <SET WSET18 'T (TYPE ATOM)>
3023                     <SET PRT2-57 W9>
3024                     <JUMP + PHRASE219>
3025 PHRASE214
3026                     <SET WSET18 'T (TYPE ATOM)>
3027                     <FRAME '\1aGEN-TEMP>
3028                     <PUSH %<>>
3029                     <CALL '\1aGEN-TEMP 1 = W9>
3030                     <SET PRT2-57 W9>
3031 PHRASE219
3032                     <PUSH PRT2-57>
3033                     <DEAD PRT2-57>
3034                     <CALL '\1aPRED-BRANCH-GEN 4 = LOCN15>
3035                     <FRAME '\1aDEALLOCATE-TEMP>
3036                     <PUSH LOCN15>
3037                     <CALL '\1aDEALLOCATE-TEMP 1>
3038                     <JUMP + PHRASE226>
3039 PHRASE209
3040                     <FRAME '\1aPRED-BRANCH-GEN>
3041                     <PUSH BR2-56>
3042                     <PUSH PR50>
3043                     <DEAD PR50>
3044                     <PUSH %<>>
3045                     <PUSH 'FLUSHED>
3046                     <CALL '\1aPRED-BRANCH-GEN 4>
3047                     <JUMP + PHRASE226>
3048 PHRASE187
3049                     <CONS PR50 K49 = K49>
3050                     <DEAD PR50>
3051                     <VEQUAL? LAST42 0 - PHRASE226>
3052                     <SET LEAVE52 'T (TYPE ATOM)>
3053                     <FRAME '\1aCOND-COMPLAIN>
3054                     <PUSH "NON REACHABLE COND CLAUSE(S)">
3055                     <RESTL KK19 1 = PRT2-57 (TYPE LIST)>
3056                     <DEAD KK19>
3057                     <NTHL PRT2-57 1 = STACK (TYPE NODE)>
3058                     <DEAD PRT2-57>
3059                     <CALL '\1aCOND-COMPLAIN 2>
3060 PHRASE226
3061                     <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE229>
3062                     <VEQUAL? NO-SEQ51 0 - PHRASE281>
3063                     <FRAME '\1aTYPE-OK?>
3064                     <SET PR50 K49>
3065                     <LOOP (PR50 VALUE)>
3066 TAG235
3067                     <RESTL PR50 1 = PRT2-57 (TYPE LIST)>
3068                     <EMPL? PRT2-57 + TAG236>
3069                     <SET PR50 PRT2-57>
3070                     <DEAD PRT2-57>
3071                     <JUMP + TAG235>
3072 TAG236
3073                     <NTHL PR50 1 = PR50>
3074                     <NTHUV PR50 3 = STACK>
3075                     <PUSH 'FALSE>
3076                     <CALL '\1aTYPE-OK? 2 = PRT2-57>
3077                     <TYPE? PRT2-57 <TYPE-CODE FALSE> - TAG237>
3078                     <DEAD PRT2-57>
3079                     <SET PRED-TRUE48 'T (TYPE ATOM)>
3080                     <JUMP + BOOL233>
3081 TAG237
3082                     <SET PRED-TRUE48 %<> (TYPE FALSE)>
3083                     <FRAME '\1aTYPE-OK?>
3084                     <NTHUV PR50 3 = STACK>
3085                     <DEAD PR50>
3086                     <PUSH <NOT FALSE>>
3087                     <CALL '\1aTYPE-OK? 2 = PRT2-57>
3088                     <TYPE? PRT2-57 <TYPE-CODE FALSE> - PHRASE232>
3089                     <DEAD PRT2-57>
3090 BOOL233
3091                     <TYPE? NOTF10 <TYPE-CODE FALSE> + PHRASE240>
3092                     <FRAME '\1aSEQ-GEN>
3093                     <PUSH K49>
3094                     <PUSH 'FLUSHED>
3095                     <CALL '\1aSEQ-GEN 2>
3096                     <EQUAL? RW14 'FLUSHED - PHRASE243>
3097                     <GVAL 'NO-DATUM = LOCN15>
3098                     <JUMP + PHRASE260>
3099 PHRASE243
3100                     <FRAME '\1aMOVE-ARG>
3101                     <FRAME '\1aREFERENCE>
3102                     <VEQUAL? PRED-TRUE48 0 - TAG247>
3103                     <SET PRT2-57 'T (TYPE ATOM)>
3104                     <JUMP + TAG248>
3105 TAG247
3106                     <SET PRT2-57 %<> (TYPE FALSE)>
3107 TAG248
3108                     <PUSH PRT2-57>
3109                     <DEAD PRT2-57>
3110                     <CALL '\1aREFERENCE 1 = STACK>
3111                     <PUSH W9>
3112                     <CALL '\1aMOVE-ARG 2 = LOCN15>
3113                     <VEQUAL? WSET18 0 - PHRASE260>
3114                     <GVAL 'NO-DATUM = PRT2-57>
3115                     <EQUAL? PRT2-57 LOCN15 + PHRASE260>
3116                     <DEAD PRT2-57>
3117                     <FRAME '\1aFIXUP-TEMP>
3118                     <PUSH W9>
3119                     <DEAD W9>
3120                     <PUSH LOCN15>
3121                     <DEAD LOCN15>
3122                     <CALL '\1aFIXUP-TEMP 2 = W9>
3123                     <SET LOCN15 W9>
3124                     <SET WSET18 'T (TYPE ATOM)>
3125                     <JUMP + PHRASE260>
3126 PHRASE240
3127                     <FRAME '\1aSEQ-GEN>
3128                     <PUSH K49>
3129                     <EQUAL? RW14 'FLUSHED + BOOL257>
3130                     <EQUAL? SDIR20 PRED-TRUE48 + PHRASE256>
3131 BOOL257
3132                     <SET PRT2-57 'FLUSHED (TYPE ATOM)>
3133                     <JUMP + PHRASE258>
3134 PHRASE256
3135                     <SET PRT2-57 W9>
3136 PHRASE258
3137                     <PUSH PRT2-57>
3138                     <DEAD PRT2-57>
3139                     <CALL '\1aSEQ-GEN 2 = LOCN15>
3140                     <VEQUAL? WSET18 0 - PHRASE260>
3141                     <EQUAL? RW14 'FLUSHED + PHRASE260>
3142                     <GVAL 'NO-DATUM = PRT2-57>
3143                     <EQUAL? PRT2-57 LOCN15 + PHRASE260>
3144                     <DEAD PRT2-57>
3145                     <FRAME '\1aFIXUP-TEMP>
3146                     <PUSH W9>
3147                     <DEAD W9>
3148                     <PUSH LOCN15>
3149                     <DEAD LOCN15>
3150                     <CALL '\1aFIXUP-TEMP 2 = W9>
3151                     <SET LOCN15 W9>
3152                     <SET WSET18 'T (TYPE ATOM)>
3153 PHRASE260
3154                     <EQUAL? PRED-TRUE48 SDIR20 - PHRASE281>
3155                     <DEAD PRED-TRUE48>
3156                     <SET BRNCHED58 'T (TYPE ATOM)>
3157                     <FRAME '\1aBRANCH-TAG>
3158                     <PUSH BRANCH11>
3159                     <CALL '\1aBRANCH-TAG 1>
3160                     <JUMP + PHRASE281>
3161 PHRASE232
3162                     <FRAME '\1aPSEQ-GEN>
3163                     <PUSH K49>
3164                     <EQUAL? RW14 'FLUSHED - PHRASE269>
3165                     <SET PRT2-57 'FLUSHED (TYPE ATOM)>
3166                     <JUMP + PHRASE270>
3167 PHRASE269
3168                     <SET PRT2-57 W9>
3169 PHRASE270
3170                     <PUSH PRT2-57>
3171                     <DEAD PRT2-57>
3172                     <PUSH BRANCH11>
3173                     <PUSH SDIR20>
3174                     <PUSH NOTF10>
3175                     <CALL '\1aPSEQ-GEN 5 = LOCN15>
3176                     <VEQUAL? WSET18 0 - PHRASE281>
3177                     <GVAL 'NO-DATUM = PRT2-57>
3178                     <EQUAL? PRT2-57 LOCN15 + PHRASE281>
3179                     <DEAD PRT2-57>
3180                     <EQUAL? RW14 'FLUSHED + PHRASE281>
3181                     <FRAME '\1aFIXUP-TEMP>
3182                     <PUSH W9>
3183                     <DEAD W9>
3184                     <PUSH LOCN15>
3185                     <DEAD LOCN15>
3186                     <CALL '\1aFIXUP-TEMP 2 = W9>
3187                     <SET LOCN15 W9>
3188                     <SET WSET18 'T (TYPE ATOM)>
3189                     <JUMP + PHRASE281>
3190 PHRASE229
3191                     <VEQUAL? NO-SEQ51 0 - PHRASE281>
3192                     <FRAME '\1aPSEQ-GEN>
3193                     <PUSH K49>
3194                     <EQUAL? RW14 'FLUSHED - PHRASE278>
3195                     <SET PRT2-57 'FLUSHED (TYPE ATOM)>
3196                     <JUMP + PHRASE279>
3197 PHRASE278
3198                     <SET PRT2-57 W9>
3199 PHRASE279
3200                     <PUSH PRT2-57>
3201                     <DEAD PRT2-57>
3202                     <PUSH BRANCH11>
3203                     <PUSH SDIR20>
3204                     <PUSH NOTF10>
3205                     <CALL '\1aPSEQ-GEN 5 = LOCN15>
3206                     <VEQUAL? WSET18 0 - PHRASE281>
3207                     <GVAL 'NO-DATUM = PRT2-57>
3208                     <EQUAL? PRT2-57 LOCN15 + PHRASE281>
3209                     <DEAD PRT2-57>
3210                     <EQUAL? RW14 'FLUSHED + PHRASE281>
3211                     <FRAME '\1aFIXUP-TEMP>
3212                     <PUSH W9>
3213                     <DEAD W9>
3214                     <PUSH LOCN15>
3215                     <DEAD LOCN15>
3216                     <CALL '\1aFIXUP-TEMP 2 = W9>
3217                     <SET LOCN15 W9>
3218                     <SET WSET18 'T (TYPE ATOM)>
3219 PHRASE281
3220                     <VEQUAL? LAST42 0 - BOOL291>
3221                     <DEAD LAST42>
3222                     <SET PRT2-57 K49>
3223                     <DEAD K49>
3224                     <LOOP (PRT2-57 VALUE)>
3225 TAG287
3226                     <RESTL PRT2-57 1 = TEMP44 (TYPE LIST)>
3227                     <EMPL? TEMP44 + TAG288>
3228                     <SET PRT2-57 TEMP44>
3229                     <DEAD TEMP44>
3230                     <JUMP + TAG287>
3231 TAG288
3232                     <NTHL PRT2-57 1 = TEMP44>
3233                     <DEAD PRT2-57>
3234                     <NTHUV TEMP44 3 = TEMP44>
3235                     <EQUAL? TEMP44 'NO-RETURN + BOOL291>
3236                     <DEAD TEMP44>
3237                     <VEQUAL? NO-SEQ51 0 - BOOL289>
3238                     <FRAME '\1aDEALLOCATE-TEMP>
3239                     <PUSH LOCN15>
3240                     <CALL '\1aDEALLOCATE-TEMP 1>
3241 BOOL289
3242                     <VEQUAL? BRNCHED58 0 - BOOL291>
3243                     <DEAD BRNCHED58>
3244                     <VEQUAL? NO-SEQ51 0 - BOOL291>
3245                     <DEAD NO-SEQ51>
3246                     <FRAME '\1aBRANCH-TAG>
3247                     <PUSH COND16>
3248                     <CALL '\1aBRANCH-TAG 1>
3249 BOOL291
3250                     <FRAME '\1aLABEL-TAG>
3251                     <PUSH BR2-56>
3252                     <DEAD BR2-56>
3253                     <CALL '\1aLABEL-TAG 1>
3254 PHRASE151
3255                     <GEN-ASSIGNED? 'NPRUNE + PHRASE295>
3256                     <PUTUV BR46 5 () (TYPE LIST)>
3257                     <DEAD BR46>
3258 PHRASE295
3259                     <VEQUAL? LEAVE52 0 - MAPAP35>
3260                     <DEAD LEAVE52>
3261                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
3262                     <JUMP + MAP32>
3263 MAPAP35
3264                     <GEN-ASSIGNED? 'NPRUNE + PHRASE300>
3265                     <PUTUV NOD8 5 () (TYPE LIST)>
3266 PHRASE300
3267                     <FRAME '\1aLABEL-TAG>
3268                     <PUSH COND16>
3269                     <DEAD COND16>
3270                     <CALL '\1aLABEL-TAG 1>
3271                     <NTHUV NOD8 3 = WSET18>
3272                     <DEAD NOD8>
3273                     <EQUAL? WSET18 'NO-RETURN - PHRASE304>
3274                     <DEAD WSET18>
3275                     <GVAL 'NO-DATUM = RW14>
3276                     <RETURN RW14>
3277                     <DEAD RW14>
3278 PHRASE304
3279                     <FRAME '\1aMOVE-ARG>
3280                     <PUSH W9>
3281                     <DEAD W9>
3282                     <PUSH RW14>
3283                     <DEAD RW14>
3284                     <CALL '\1aMOVE-ARG 2 = RW14>
3285                     <RETURN RW14>
3286                     <DEAD RW14>
3287                     <END \1aCOND-GEN>
3288 #WORD *30112743110*
3289 <GFCN \1aFIXUP-TEMP ("VALUE" ANY ANY ANY) W4 LOCN5>
3290                     <TEMP TEMP9>
3291                     <INTGO>
3292                     <TYPE? LOCN5 <TYPE-CODE TEMP> - PHRASE7>
3293                     <NTHUV LOCN5 2 = TEMP9 (TYPE FIX)>
3294                     <GRTR? TEMP9 1 + PHRASE7 (TYPE FIX)>
3295                     <DEAD TEMP9>
3296                     <RETURN LOCN5>
3297                     <DEAD LOCN5>
3298 PHRASE7
3299                     <EQUAL? LOCN5 W4 - PHRASE12>
3300                     <DEAD W4>
3301                     <RETURN LOCN5>
3302                     <DEAD LOCN5>
3303 PHRASE12
3304                     <FRAME '\1aMOVE-ARG>
3305                     <PUSH LOCN5>
3306                     <DEAD LOCN5>
3307                     <FRAME '\1aGEN-TEMP>
3308                     <PUSH %<>>
3309                     <CALL '\1aGEN-TEMP 1 = STACK>
3310                     <CALL '\1aMOVE-ARG 2 = TEMP9>
3311                     <RETURN TEMP9>
3312                     <DEAD TEMP9>
3313                     <END \1aFIXUP-TEMP>
3314 #WORD *30565162235*
3315 <GFCN \1aPSEQ-GEN ("VALUE" ANY <LIST [REST NODE]> ANY ANY ANY ANY) L4 W5 B6 D7 NF8>
3316                     <TEMP (WSET9 %<>) TEMP17:LIST N22:LIST ND23 TEMP28 NX24>
3317                     <INTGO>
3318                     <SET TEMP17 L4 (TYPE LIST)>
3319                     <DEAD L4>
3320                     <LOOP>
3321 MAP12
3322                     <INTGO>
3323                     <EMPL? TEMP17 + MAPAP15>
3324                     <SET N22 TEMP17>
3325                     <NTHL N22 1 = ND23 (TYPE NODE)>
3326                     <RESTL N22 1 = TEMP28 (TYPE LIST)>
3327                     <EMPL? TEMP28 + PHRASE27 (TYPE LIST)>
3328                     <DEAD TEMP28>
3329                     <RESTL N22 1 = TEMP28 (TYPE LIST)>
3330                     <NTHL TEMP28 1 = NX24 (TYPE NODE)>
3331                     <DEAD TEMP28>
3332                     <NTHUV NX24 1 = TEMP28 (TYPE FIX)>
3333                     <VEQUAL? TEMP28 90 - PHRASE30 (TYPE FIX)>
3334                     <DEAD TEMP28>
3335                     <NTHUV NX24 5 = NX24 (TYPE LIST)>
3336                     <EMPL? NX24 + PHRASE30>
3337                     <RESTL NX24 1 = TEMP28 (TYPE LIST)>
3338                     <EMPL? TEMP28 + PHRASE30>
3339                     <DEAD TEMP28>
3340                     <NTHL NX24 1 = TEMP28 (TYPE NODE)>
3341                     <DEAD NX24>
3342                     <NTHUV TEMP28 4 = TEMP28>
3343                     <EQUAL? TEMP28 '`ENDIF - PHRASE30>
3344                     <DEAD TEMP28>
3345                     <FRAME '\1aGEN>
3346                     <PUSH ND23>
3347                     <DEAD ND23>
3348                     <PUSH W5>
3349                     <CALL '\1aGEN 2 = ND23>
3350                     <VEQUAL? WSET9 0 - PHRASE34>
3351                     <EQUAL? W5 'FLUSHED + PHRASE34>
3352                     <GVAL 'NO-DATUM = TEMP28>
3353                     <EQUAL? TEMP28 ND23 + PHRASE34>
3354                     <DEAD TEMP28>
3355                     <GVAL 'POP-STACK = TEMP28>
3356                     <EQUAL? TEMP28 W5 + PHRASE34>
3357                     <DEAD TEMP28>
3358                     <FRAME '\1aFIXUP-TEMP>
3359                     <PUSH W5>
3360                     <DEAD W5>
3361                     <PUSH ND23>
3362                     <DEAD ND23>
3363                     <CALL '\1aFIXUP-TEMP 2 = W5>
3364                     <SET WSET9 'T (TYPE ATOM)>
3365 PHRASE34
3366                     <RESTL N22 1 = TEMP28 (TYPE LIST)>
3367                     <DEAD N22>
3368                     <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
3369                     <EMPL? TEMP28 + PHRASE53 (TYPE LIST)>
3370                     <DEAD TEMP28>
3371                     <FRAME '\1aDEALLOCATE-TEMP>
3372                     <PUSH W5>
3373                     <CALL '\1aDEALLOCATE-TEMP 1>
3374                     <JUMP + PHRASE53>
3375 PHRASE30
3376                     <LENUV ND23 = TEMP28 (TYPE FIX)>
3377                     <LESS? TEMP28 8 + BOOL43 (TYPE FIX)>
3378                     <DEAD TEMP28>
3379                     <NTHUV ND23 8 = TEMP28>
3380                     <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL42>
3381                     <DEAD TEMP28>
3382 BOOL43
3383                     <FRAME '\1aGETPROP>
3384                     <PUSH ND23>
3385                     <PUSH 'DONT-FLUSH-ME>
3386                     <CALL '\1aGETPROP 2 = TEMP28>
3387                     <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL42>
3388                     <DEAD TEMP28>
3389                     <GVAL 'DONT-FLUSH-ME = TEMP28>
3390                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE53>
3391                     <DEAD TEMP28>
3392 BOOL42
3393                     <FRAME '\1aGEN>
3394                     <PUSH ND23>
3395                     <DEAD ND23>
3396                     <PUSH 'FLUSHED>
3397                     <CALL '\1aGEN 2>
3398                     <JUMP + PHRASE53>
3399 PHRASE27
3400                     <NTHUV ND23 1 = TEMP28 (TYPE FIX)>
3401                     <VEQUAL? TEMP28 90 - PHRASE46 (TYPE FIX)>
3402                     <DEAD TEMP28>
3403                     <NTHUV ND23 5 = NX24 (TYPE LIST)>
3404                     <EMPL? NX24 + PHRASE46>
3405                     <RESTL NX24 1 = TEMP28 (TYPE LIST)>
3406                     <EMPL? TEMP28 + PHRASE46>
3407                     <DEAD TEMP28>
3408                     <NTHL NX24 1 = TEMP28 (TYPE NODE)>
3409                     <DEAD NX24>
3410                     <NTHUV TEMP28 4 = TEMP28>
3411                     <EQUAL? TEMP28 '`ENDIF - PHRASE46>
3412                     <DEAD TEMP28>
3413                     <FRAME '\1aGEN>
3414                     <PUSH ND23>
3415                     <DEAD ND23>
3416                     <PUSH 'FLUSHED>
3417                     <CALL '\1aGEN 2>
3418                     <JUMP + PHRASE53>
3419 PHRASE46
3420                     <TYPE? B6 <TYPE-CODE FALSE> + PHRASE51>
3421                     <FRAME '\1aPRED-BRANCH-GEN>
3422                     <PUSH B6>
3423                     <PUSH ND23>
3424                     <DEAD ND23>
3425                     <PUSH D7>
3426                     <PUSH W5>
3427                     <DEAD W5>
3428                     <PUSH NF8>
3429                     <CALL '\1aPRED-BRANCH-GEN 5 = W5>
3430                     <JUMP + PHRASE53>
3431 PHRASE51
3432                     <FRAME '\1aGEN>
3433                     <PUSH ND23>
3434                     <DEAD ND23>
3435                     <PUSH W5>
3436                     <DEAD W5>
3437                     <CALL '\1aGEN 2 = W5>
3438 PHRASE53
3439                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3440                     <JUMP + MAP12>
3441 MAPAP15
3442                     <RETURN W5>
3443                     <DEAD W5>
3444                     <END \1aPSEQ-GEN>
3445 #WORD *32576046403*
3446 <GFCN \1aCOND-COMPLAIN ("VALUE" ATOM ANY NODE) MSG4 N1-5>
3447                     <TEMP TEMP7:ATOM>
3448                     <INTGO>
3449                     <FRAME '\1aCOMPILE-NOTE>
3450                     <PUSH MSG4>
3451                     <DEAD MSG4>
3452                     <PUSH N1-5>
3453                     <DEAD N1-5>
3454                     <CALL '\1aCOMPILE-NOTE 2 = TEMP7>
3455                     <RETURN TEMP7>
3456                     <DEAD TEMP7>
3457                     <END \1aCOND-COMPLAIN>
3458 " Generate code for OR use BOOL-GEN to do work."
3459
3460 #WORD *12135620715*
3461 <GFCN \1aOR-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NF10 BR11 DIR12>
3462                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
3463 OPT4
3464                     <PUSH %<>>
3465 OPT5
3466                     <PUSH %<>>
3467 OPT6
3468                     <PUSH 'T>
3469 OPT7
3470                     <TEMP TEMP14>
3471                     <INTGO>
3472                     <FRAME '\1aBOOL-GEN>
3473                     <PUSH NOD8>
3474                     <NTHUV NOD8 5 = STACK (TYPE LIST)>
3475                     <DEAD NOD8>
3476                     <PUSH 'T>
3477                     <PUSH WHERE9>
3478                     <DEAD WHERE9>
3479                     <PUSH NF10>
3480                     <DEAD NF10>
3481                     <PUSH BR11>
3482                     <DEAD BR11>
3483                     <PUSH DIR12>
3484                     <DEAD DIR12>
3485                     <CALL '\1aBOOL-GEN 7 = TEMP14>
3486                     <RETURN TEMP14>
3487                     <DEAD TEMP14>
3488                     <END \1aOR-GEN>
3489 " Generate code for AND use BOOL-GEN to do work."
3490
3491 #WORD *17245412614*
3492 <GFCN \1aAND-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NF10 BR11 DIR12>
3493                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
3494 OPT4
3495                     <PUSH %<>>
3496 OPT5
3497                     <PUSH %<>>
3498 OPT6
3499                     <PUSH %<>>
3500 OPT7
3501                     <TEMP TEMP14>
3502                     <INTGO>
3503                     <FRAME '\1aBOOL-GEN>
3504                     <PUSH NOD8>
3505                     <NTHUV NOD8 5 = STACK (TYPE LIST)>
3506                     <DEAD NOD8>
3507                     <PUSH %<>>
3508                     <PUSH WHERE9>
3509                     <DEAD WHERE9>
3510                     <PUSH NF10>
3511                     <DEAD NF10>
3512                     <PUSH BR11>
3513                     <DEAD BR11>
3514                     <PUSH DIR12>
3515                     <DEAD DIR12>
3516                     <CALL '\1aBOOL-GEN 7 = TEMP14>
3517                     <RETURN TEMP14>
3518                     <DEAD TEMP14>
3519                     <END \1aAND-GEN>
3520 #WORD *11635224174*
3521 <GFCN \1aBOOL-GEN ("VALUE" ANY NODE <LIST [REST NODE]> ANY ANY ANY <OR ATOM FALSE> ANY) NOD4 PREDS5 RESULT6 W7 NOTF8 BRANCH9 DIR10>
3522                     <TEMP RW11 BOOL12:ATOM FLUSH13 (WSET14 %<>) TEMP24 FLS15 SRES17 RTF16 LOCN18 BRN57:LIST BR58 LAST59 RT63 RTFL64 TEMP69 TY65>
3523                     <INTGO>
3524                     <SET RW11 W7>
3525                     <FRAME '\1aMAKE-TAG>
3526                     <PUSH "BOOL">
3527                     <CALL '\1aMAKE-TAG 1 = BOOL12>
3528                     <EQUAL? RW11 'FLUSHED - TAG21>
3529                     <SET FLUSH13 'T (TYPE ATOM)>
3530                     <JUMP + TAG22>
3531 TAG21
3532                     <SET FLUSH13 %<> (TYPE FALSE)>
3533 TAG22
3534                     <TYPE? BRANCH9 <TYPE-CODE FALSE> + TAG25>
3535                     <SET TEMP24 %<> (TYPE FALSE)>
3536                     <JUMP + BOOL23>
3537 TAG25
3538                     <SET TEMP24 FLUSH13>
3539 BOOL23
3540                     <SET FLS15 TEMP24>
3541                     <DEAD TEMP24>
3542                     <GVAL 'POP-STACK = TEMP24>
3543                     <EQUAL? TEMP24 W7 + BOOL28>
3544                     <DEAD TEMP24>
3545                     <TYPE? W7 <TYPE-CODE TEMP> - PHRASE27>
3546                     <NTHUV W7 5 = TEMP24>
3547                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE27>
3548                     <DEAD TEMP24>
3549                     <NTHUV W7 5 = TEMP24>
3550                     <EQUAL? TEMP24 'ANY + PHRASE27>
3551                     <DEAD TEMP24>
3552 BOOL28
3553                     <SET W7 'DONT-CARE (TYPE ATOM)>
3554 PHRASE27
3555                     <TYPE? NOTF8 <TYPE-CODE FALSE> + TAG33>
3556                     <TYPE? RESULT6 <TYPE-CODE FALSE> - TAG32>
3557                     <DEAD RESULT6>
3558                     <SET RESULT6 'T (TYPE ATOM)>
3559                     <JUMP + TAG33>
3560 TAG32
3561                     <SET RESULT6 %<> (TYPE FALSE)>
3562 TAG33
3563                     <SET SRES17 RESULT6>
3564                     <VEQUAL? FLUSH13 0 + TAG35>
3565                     <SET RTF16 %<> (TYPE FALSE)>
3566                     <JUMP + BOOL34>
3567 TAG35
3568                     <EQUAL? SRES17 DIR10 + TAG36>
3569                     <SET RTF16 %<> (TYPE FALSE)>
3570                     <JUMP + BOOL34>
3571 TAG36
3572                     <FRAME '\1aTYPE-OK?>
3573                     <NTHUV NOD4 3 = STACK>
3574                     <PUSH 'FALSE>
3575                     <CALL '\1aTYPE-OK? 2 = RTF16>
3576 BOOL34
3577                     <TYPE? DIR10 <TYPE-CODE FALSE> + TAG41>
3578                     <TYPE? RESULT6 <TYPE-CODE FALSE> - TAG40>
3579                     <DEAD RESULT6>
3580                     <SET RESULT6 'T (TYPE ATOM)>
3581                     <JUMP + TAG41>
3582 TAG40
3583                     <SET RESULT6 %<> (TYPE FALSE)>
3584 TAG41
3585                     <EMPL? PREDS5 - PHRASE43 (TYPE LIST)>
3586                     <FRAME '\1aMOVE-ARG>
3587                     <FRAME '\1aREFERENCE>
3588                     <PUSH RESULT6>
3589                     <CALL '\1aREFERENCE 1 = STACK>
3590                     <PUSH W7>
3591                     <CALL '\1aMOVE-ARG 2>
3592                     <JUMP + MAPAP51>
3593 PHRASE43
3594                     <SET TEMP24 PREDS5 (TYPE LIST)>
3595                     <LOOP>
3596 MAP48
3597                     <INTGO>
3598                     <EMPL? TEMP24 + MAPAP51>
3599                     <SET BRN57 TEMP24>
3600                     <NTHL BRN57 1 = BR58 (TYPE NODE)>
3601                     <RESTL BRN57 1 = LOCN18 (TYPE LIST)>
3602                     <EMPL? LOCN18 - TAG60 (TYPE LIST)>
3603                     <DEAD LOCN18>
3604                     <SET LAST59 'T (TYPE ATOM)>
3605                     <JUMP + TAG62>
3606 TAG60
3607                     <SET LAST59 %<> (TYPE FALSE)>
3608 TAG62
3609                     <NTHUV BR58 3 = RT63>
3610                     <SET RTFL64 %<> (TYPE FALSE)>
3611                     <TYPE? FLUSH13 <TYPE-CODE FALSE> + PHRASE78>
3612                     <VEQUAL? LAST59 0 - PHRASE78>
3613                     <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
3614                     <RESTL TEMP69 1 = LOCN18 (TYPE LIST)>
3615                     <DEAD TEMP69>
3616                     <EMPL? LOCN18 - PHRASE78 (TYPE LIST)>
3617                     <DEAD LOCN18>
3618                     <FRAME '\1aISTYPE?>
3619                     <RESTL BRN57 1 = LOCN18 (TYPE LIST)>
3620                     <NTHL LOCN18 1 = LOCN18 (TYPE NODE)>
3621                     <NTHUV LOCN18 3 = TY65>
3622                     <DEAD LOCN18>
3623                     <PUSH TY65>
3624                     <CALL '\1aISTYPE? 1 = LOCN18>
3625                     <VEQUAL? LOCN18 'FALSE - BOOL71>
3626                     <DEAD LOCN18>
3627                     <TYPE? SRES17 <TYPE-CODE FALSE> - BOOL71>
3628                     <SET TY65 'FALSE (TYPE ATOM)>
3629                     <JUMP + BOOL70>
3630 BOOL71
3631                     <TYPE? SRES17 <TYPE-CODE FALSE> + PHRASE78>
3632                     <FRAME '\1aTYPE-OK?>
3633                     <PUSH TY65>
3634                     <PUSH 'FALSE>
3635                     <CALL '\1aTYPE-OK? 2 = LOCN18>
3636                     <TYPE? LOCN18 <TYPE-CODE FALSE> - PHRASE78>
3637                     <DEAD LOCN18>
3638 BOOL70
3639                     <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
3640                     <NTHL TEMP69 1 = TEMP69 (TYPE NODE)>
3641                     <LENUV TEMP69 = TEMP69 (TYPE FIX)>
3642                     <LESS? TEMP69 8 + BOOL75 (TYPE FIX)>
3643                     <DEAD TEMP69>
3644                     <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
3645                     <NTHL TEMP69 1 = TEMP69 (TYPE NODE)>
3646                     <NTHUV TEMP69 8 = TEMP69>
3647                     <TYPE? TEMP69 <TYPE-CODE FALSE> - PHRASE78>
3648                     <DEAD TEMP69>
3649 BOOL75
3650                     <EQUAL? TY65 'FALSE - PHRASE77>
3651                     <DEAD TY65>
3652                     <SET RT63 'ATOM (TYPE ATOM)>
3653                     <JUMP + PHRASE78>
3654 PHRASE77
3655                     <SET RT63 'FALSE (TYPE ATOM)>
3656 PHRASE78
3657                     <FRAME '\1aTYPE-OK?>
3658                     <PUSH RT63>
3659                     <PUSH 'FALSE>
3660                     <CALL '\1aTYPE-OK? 2 = TEMP69>
3661                     <TYPE? TEMP69 <TYPE-CODE FALSE> + PHRASE80>
3662                     <DEAD TEMP69>
3663                     <FRAME '\1aISTYPE?>
3664                     <PUSH RT63>
3665                     <DEAD RT63>
3666                     <CALL '\1aISTYPE? 1 = TEMP69>
3667                     <VEQUAL? TEMP69 'FALSE - TAG83>
3668                     <DEAD TEMP69>
3669                     <SET RTFL64 'T (TYPE ATOM)>
3670                     <JUMP + PHRASE80>
3671 TAG83
3672                     <TYPE? BRANCH9 <TYPE-CODE FALSE> - BOOL87>
3673                     <TYPE? FLS15 <TYPE-CODE FALSE> + PHRASE86>
3674                     <VEQUAL? LAST59 0 - PHRASE86>
3675 BOOL87
3676                     <VEQUAL? LAST59 0 + PHRASE90>
3677                     <DEAD LAST59>
3678                     <FRAME '\1aPRED-BRANCH-GEN>
3679                     <PUSH BRANCH9>
3680                     <PUSH BR58>
3681                     <DEAD BR58>
3682                     <PUSH DIR10>
3683                     <TYPE? FLUSH13 <TYPE-CODE FALSE> + PHRASE93>
3684                     <SET TEMP69 'FLUSHED (TYPE ATOM)>
3685                     <JUMP + PHRASE99>
3686 PHRASE93
3687                     <VEQUAL? WSET14 0 - BOOL95>
3688                     <DEAD WSET14>
3689                     <TYPE? W7 <TYPE-CODE TEMP> - PHRASE94>
3690                     <NTHUV W7 2 = LOCN18 (TYPE FIX)>
3691                     <VEQUAL? LOCN18 0 - PHRASE94 (TYPE FIX)>
3692                     <DEAD LOCN18>
3693 BOOL95
3694                     <SET WSET14 'T (TYPE ATOM)>
3695                     <SET TEMP69 W7>
3696                     <JUMP + PHRASE99>
3697 PHRASE94
3698                     <SET WSET14 'T (TYPE ATOM)>
3699                     <FRAME '\1aGEN-TEMP>
3700                     <PUSH %<>>
3701                     <CALL '\1aGEN-TEMP 1 = W7>
3702                     <SET TEMP69 W7>
3703 PHRASE99
3704                     <PUSH TEMP69>
3705                     <DEAD TEMP69>
3706                     <PUSH NOTF8>
3707                     <CALL '\1aPRED-BRANCH-GEN 5>
3708                     <JUMP + PHRASE166>
3709 PHRASE90
3710                     <FRAME '\1aPRED-BRANCH-GEN>
3711                     <TYPE? FLS15 <TYPE-CODE FALSE> + PHRASE104>
3712                     <SET TEMP69 BOOL12>
3713                     <JUMP + PHRASE106>
3714 PHRASE104
3715                     <TYPE? RESULT6 <TYPE-CODE FALSE> + PHRASE105>
3716                     <SET TEMP69 BOOL12>
3717                     <JUMP + PHRASE106>
3718 PHRASE105
3719                     <SET TEMP69 BRANCH9>
3720 PHRASE106
3721                     <PUSH TEMP69>
3722                     <DEAD TEMP69>
3723                     <PUSH BR58>
3724                     <DEAD BR58>
3725                     <PUSH SRES17>
3726                     <TYPE? FLUSH13 <TYPE-CODE FALSE> - BOOL109>
3727                     <TYPE? RTF16 <TYPE-CODE FALSE> - PHRASE108>
3728 BOOL109
3729                     <SET TEMP69 'FLUSHED (TYPE ATOM)>
3730                     <JUMP + PHRASE115>
3731 PHRASE108
3732                     <VEQUAL? WSET14 0 - BOOL111>
3733                     <DEAD WSET14>
3734                     <TYPE? W7 <TYPE-CODE TEMP> - PHRASE110>
3735                     <NTHUV W7 2 = LOCN18 (TYPE FIX)>
3736                     <VEQUAL? LOCN18 0 - PHRASE110 (TYPE FIX)>
3737                     <DEAD LOCN18>
3738 BOOL111
3739                     <SET WSET14 'T (TYPE ATOM)>
3740                     <SET TEMP69 W7>
3741                     <JUMP + PHRASE115>
3742 PHRASE110
3743                     <SET WSET14 'T (TYPE ATOM)>
3744                     <FRAME '\1aGEN-TEMP>
3745                     <PUSH %<>>
3746                     <CALL '\1aGEN-TEMP 1 = W7>
3747                     <SET TEMP69 W7>
3748 PHRASE115
3749                     <PUSH TEMP69>
3750                     <DEAD TEMP69>
3751                     <PUSH NOTF8>
3752                     <CALL '\1aPRED-BRANCH-GEN 5 = LOCN18>
3753                     <FRAME '\1aDEALLOCATE-TEMP>
3754                     <PUSH LOCN18>
3755                     <DEAD LOCN18>
3756                     <CALL '\1aDEALLOCATE-TEMP 1>
3757                     <JUMP + PHRASE166>
3758 PHRASE86
3759                     <VEQUAL? LAST59 0 + PHRASE118>
3760                     <DEAD LAST59>
3761                     <FRAME '\1aGEN>
3762                     <PUSH BR58>
3763                     <DEAD BR58>
3764                     <PUSH W7>
3765                     <CALL '\1aGEN 2 = LOCN18>
3766                     <TYPE? FLUSH13 <TYPE-CODE FALSE> - PHRASE166>
3767                     <GVAL 'NO-DATUM = TEMP69>
3768                     <EQUAL? TEMP69 LOCN18 + PHRASE166>
3769                     <DEAD TEMP69>
3770                     <VEQUAL? WSET14 0 - PHRASE166>
3771                     <FRAME '\1aFIXUP-TEMP>
3772                     <PUSH W7>
3773                     <DEAD W7>
3774                     <PUSH LOCN18>
3775                     <DEAD LOCN18>
3776                     <CALL '\1aFIXUP-TEMP 2 = W7>
3777                     <SET WSET14 'T (TYPE ATOM)>
3778                     <JUMP + PHRASE166>
3779 PHRASE118
3780                     <FRAME '\1aPRED-BRANCH-GEN>
3781                     <PUSH BOOL12>
3782                     <PUSH BR58>
3783                     <DEAD BR58>
3784                     <PUSH DIR10>
3785                     <TYPE? FLUSH13 <TYPE-CODE FALSE> + PHRASE127>
3786                     <SET TEMP69 'FLUSHED (TYPE ATOM)>
3787                     <JUMP + PHRASE133>
3788 PHRASE127
3789                     <VEQUAL? WSET14 0 - BOOL129>
3790                     <DEAD WSET14>
3791                     <TYPE? W7 <TYPE-CODE TEMP> - PHRASE128>
3792                     <NTHUV W7 2 = LOCN18 (TYPE FIX)>
3793                     <VEQUAL? LOCN18 0 - PHRASE128 (TYPE FIX)>
3794                     <DEAD LOCN18>
3795 BOOL129
3796                     <SET WSET14 'T (TYPE ATOM)>
3797                     <SET TEMP69 W7>
3798                     <JUMP + PHRASE133>
3799 PHRASE128
3800                     <SET WSET14 'T (TYPE ATOM)>
3801                     <FRAME '\1aGEN-TEMP>
3802                     <PUSH %<>>
3803                     <CALL '\1aGEN-TEMP 1 = W7>
3804                     <SET TEMP69 W7>
3805 PHRASE133
3806                     <PUSH TEMP69>
3807                     <DEAD TEMP69>
3808                     <PUSH NOTF8>
3809                     <CALL '\1aPRED-BRANCH-GEN 5 = LOCN18>
3810                     <FRAME '\1aDEALLOCATE-TEMP>
3811                     <PUSH LOCN18>
3812                     <DEAD LOCN18>
3813                     <CALL '\1aDEALLOCATE-TEMP 1>
3814                     <JUMP + PHRASE166>
3815 PHRASE80
3816                     <TYPE? NOTF8 <TYPE-CODE FALSE> + PHRASE139>
3817                     <VEQUAL? RTFL64 0 - TAG140>
3818                     <DEAD RTFL64>
3819                     <SET RTFL64 'T (TYPE ATOM)>
3820                     <JUMP + TAG141>
3821 TAG140
3822                     <SET RTFL64 %<> (TYPE FALSE)>
3823 TAG141
3824                     <SET TEMP69 RTFL64>
3825                     <JUMP + PHRASE142>
3826 PHRASE139
3827                     <SET TEMP69 RTFL64>
3828 PHRASE142
3829                     <EQUAL? SRES17 TEMP69 - BOOL137>
3830                     <DEAD TEMP69>
3831                     <VEQUAL? LAST59 0 + PHRASE136>
3832 BOOL137
3833                     <VEQUAL? LAST59 0 - PHRASE144>
3834                     <DEAD LAST59>
3835                     <FRAME '\1aCOMPILE-NOTE>
3836                     <PUSH "NON REACHABLE AND/OR CLAUSE">
3837                     <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
3838                     <DEAD BRN57>
3839                     <NTHL TEMP69 1 = STACK (TYPE NODE)>
3840                     <DEAD TEMP69>
3841                     <CALL '\1aCOMPILE-NOTE 2>
3842 PHRASE144
3843                     <TYPE? BRANCH9 <TYPE-CODE FALSE> + PHRASE147>
3844                     <FRAME '\1aGEN>
3845                     <PUSH BR58>
3846                     <EQUAL? DIR10 RTFL64 + PHRASE150>
3847                     <SET TEMP69 W7>
3848                     <JUMP + PHRASE151>
3849 PHRASE150
3850                     <SET TEMP69 'FLUSHED (TYPE ATOM)>
3851 PHRASE151
3852                     <PUSH TEMP69>
3853                     <DEAD TEMP69>
3854                     <CALL '\1aGEN 2 = LOCN18>
3855                     <TYPE? FLUSH13 <TYPE-CODE FALSE> - PHRASE153>
3856                     <DEAD FLUSH13>
3857                     <GVAL 'NO-DATUM = TEMP69>
3858                     <EQUAL? TEMP69 LOCN18 + PHRASE153>
3859                     <DEAD TEMP69>
3860                     <VEQUAL? WSET14 0 - PHRASE153>
3861                     <DEAD WSET14>
3862                     <EQUAL? DIR10 RTFL64 + PHRASE153>
3863                     <FRAME '\1aFIXUP-TEMP>
3864                     <PUSH W7>
3865                     <DEAD W7>
3866                     <PUSH LOCN18>
3867                     <DEAD LOCN18>
3868                     <CALL '\1aFIXUP-TEMP 2 = W7>
3869 PHRASE153
3870                     <EQUAL? DIR10 RTFL64 + MAPAP51>
3871                     <DEAD DIR10 RTFL64>
3872                     <NTHUV BR58 3 = TEMP69>
3873                     <DEAD BR58>
3874                     <EQUAL? TEMP69 'NO-RETURN + MAPAP51>
3875                     <DEAD TEMP69>
3876                     <FRAME '\1aBRANCH-TAG>
3877                     <PUSH BRANCH9>
3878                     <CALL '\1aBRANCH-TAG 1>
3879                     <JUMP + MAPAP51>
3880 PHRASE147
3881                     <FRAME '\1aGEN>
3882                     <PUSH BR58>
3883                     <DEAD BR58>
3884                     <PUSH W7>
3885                     <CALL '\1aGEN 2 = LOCN18>
3886                     <TYPE? FLUSH13 <TYPE-CODE FALSE> - MAPAP51>
3887                     <DEAD FLUSH13>
3888                     <GVAL 'NO-DATUM = TEMP69>
3889                     <EQUAL? TEMP69 LOCN18 + MAPAP51>
3890                     <DEAD TEMP69>
3891                     <VEQUAL? WSET14 0 - MAPAP51>
3892                     <DEAD WSET14>
3893                     <FRAME '\1aFIXUP-TEMP>
3894                     <PUSH W7>
3895                     <DEAD W7>
3896                     <PUSH LOCN18>
3897                     <DEAD LOCN18>
3898                     <CALL '\1aFIXUP-TEMP 2 = W7>
3899                     <JUMP + MAPAP51>
3900 PHRASE136
3901                     <LENUV BR58 = TEMP69 (TYPE FIX)>
3902                     <LESS? TEMP69 8 + BOOL169 (TYPE FIX)>
3903                     <DEAD TEMP69>
3904                     <NTHUV BR58 8 = TEMP69>
3905                     <TYPE? TEMP69 <TYPE-CODE FALSE> + BOOL169>
3906                     <DEAD TEMP69>
3907                     <VEQUAL? BRN57 PREDS5 - PHRASE168>
3908                     <DEAD BRN57>
3909 BOOL169
3910                     <FRAME '\1aCOMPILE-NOTE>
3911                     <PUSH "PREDICATE ALWAYS ">
3912                     <VEQUAL? RTFL64 0 + PHRASE173>
3913                     <DEAD RTFL64>
3914                     <SET TEMP69 "FALSE" (TYPE STRING)>
3915                     <JUMP + PHRASE174>
3916 PHRASE173
3917                     <SET TEMP69 "TRUE" (TYPE STRING)>
3918 PHRASE174
3919                     <PUSH TEMP69>
3920                     <DEAD TEMP69>
3921                     <PUSH " IN AND/OR">
3922                     <UBLOCK <TYPE-CODE STRING> 3 = STACK (TYPE STRING)>
3923                     <PUSH BR58>
3924                     <CALL '\1aCOMPILE-NOTE 2>
3925 PHRASE168
3926                     <FRAME '\1aGEN>
3927                     <PUSH BR58>
3928                     <DEAD BR58>
3929                     <PUSH 'FLUSHED>
3930                     <CALL '\1aGEN 2>
3931 PHRASE166
3932                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
3933                     <JUMP + MAP48>
3934 MAPAP51
3935                     <GEN-ASSIGNED? 'NPRUNE + PHRASE177>
3936                     <PUTUV NOD4 5 () (TYPE LIST)>
3937 PHRASE177
3938                     <TYPE? BRANCH9 <TYPE-CODE FALSE> + BOOL181>
3939                     <DEAD BRANCH9>
3940                     <TYPE? RESULT6 <TYPE-CODE FALSE> + PHRASE180>
3941                     <DEAD RESULT6>
3942 BOOL181
3943                     <FRAME '\1aLABEL-TAG>
3944                     <PUSH BOOL12>
3945                     <DEAD BOOL12>
3946                     <CALL '\1aLABEL-TAG 1>
3947 PHRASE180
3948                     <NTHUV NOD4 3 = FLUSH13>
3949                     <DEAD NOD4>
3950                     <EQUAL? FLUSH13 'NO-RETURN - PHRASE184>
3951                     <DEAD FLUSH13>
3952                     <GVAL 'NO-DATUM = RW11>
3953                     <RETURN RW11>
3954                     <DEAD RW11>
3955 PHRASE184
3956                     <FRAME '\1aMOVE-ARG>
3957                     <PUSH W7>
3958                     <DEAD W7>
3959                     <PUSH RW11>
3960                     <DEAD RW11>
3961                     <CALL '\1aMOVE-ARG 2 = RW11>
3962                     <RETURN RW11>
3963                     <DEAD RW11>
3964                     <END \1aBOOL-GEN>
3965 " Generate code for ASSIGNED?"
3966
3967 #WORD *24455747457*
3968 <GFCN \1aASSIGNED?-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY ANY) N9 W10 NF11 BR12 DIR13 SETF14>
3969                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
3970 OPT4
3971                     <PUSH %<>>
3972 OPT5
3973                     <PUSH %<>>
3974 OPT6
3975                     <PUSH %<>>
3976 OPT7
3977                     <PUSH %<>>
3978 OPT8
3979                     <TEMP A15 SDIR16 FLS17 (GLOBAL20 'T) TEMP37>
3980                     <INTGO>
3981                     <NTHUV N9 4 = A15>
3982                     <SET SDIR16 DIR13>
3983                     <EQUAL? W10 'FLUSHED - TAG21>
3984                     <SET FLS17 'T (TYPE ATOM)>
3985                     <JUMP + TAG22>
3986 TAG21
3987                     <SET FLS17 %<> (TYPE FALSE)>
3988 TAG22
3989                     <EQUAL? W10 'DONT-CARE - PHRASE24>
3990                     <FRAME '\1aGEN-TEMP>
3991                     <PUSH %<>>
3992                     <CALL '\1aGEN-TEMP 1 = W10>
3993 PHRASE24
3994                     <TYPE? NF11 <TYPE-CODE FALSE> + TAG29>
3995                     <DEAD NF11>
3996                     <TYPE? DIR13 <TYPE-CODE FALSE> - TAG28>
3997                     <DEAD DIR13>
3998                     <SET DIR13 'T (TYPE ATOM)>
3999                     <JUMP + TAG29>
4000 TAG28
4001                     <SET DIR13 %<> (TYPE FALSE)>
4002 TAG29
4003                     <TYPE? SETF14 <TYPE-CODE FALSE> + PHRASE31>
4004                     <DEAD SETF14>
4005                     <FRAME '\1aDEALLOCATE-TEMP>
4006                     <FRAME '\1aMOVE-ARG>
4007                     <FRAME '\1aREFERENCE>
4008                     <TYPE? SDIR16 <TYPE-CODE FALSE> - TAG35>
4009                     <SET TEMP37 'T (TYPE ATOM)>
4010                     <JUMP + TAG36>
4011 TAG35
4012                     <SET TEMP37 %<> (TYPE FALSE)>
4013 TAG36
4014                     <PUSH TEMP37>
4015                     <DEAD TEMP37>
4016                     <CALL '\1aREFERENCE 1 = STACK>
4017                     <PUSH W10>
4018                     <CALL '\1aMOVE-ARG 2 = STACK>
4019                     <CALL '\1aDEALLOCATE-TEMP 1>
4020 PHRASE31
4021                     <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE39>
4022                     <VEQUAL? FLS17 0 - PHRASE39>
4023                     <TYPE? DIR13 <TYPE-CODE FALSE> - TAG41>
4024                     <DEAD DIR13>
4025                     <SET DIR13 'T (TYPE ATOM)>
4026                     <JUMP + PHRASE39>
4027 TAG41
4028                     <SET DIR13 %<> (TYPE FALSE)>
4029 PHRASE39
4030                     <TYPE? A15 <TYPE-CODE SYMTAB> - PHRASE45>
4031                     <NTHUV A15 3 = TEMP37>
4032                     <TYPE? TEMP37 <TYPE-CODE FALSE> - PHRASE45>
4033                     <DEAD TEMP37>
4034                     <FRAME '\1aLADDR>
4035                     <PUSH A15>
4036                     <DEAD A15>
4037                     <CALL '\1aLADDR 1 = A15>
4038                     <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE49>
4039                     <VEQUAL? FLS17 0 + PHRASE49>
4040                     <DEAD FLS17>
4041                     <FRAME '\1aGEN-TYPE?>
4042                     <PUSH A15>
4043                     <DEAD A15>
4044                     <PUSH 'UNBOUND>
4045                     <PUSH BR12>
4046                     <DEAD BR12>
4047                     <TYPE? DIR13 <TYPE-CODE FALSE> - TAG52>
4048                     <DEAD DIR13>
4049                     <SET TEMP37 'T (TYPE ATOM)>
4050                     <JUMP + TAG53>
4051 TAG52
4052                     <SET TEMP37 %<> (TYPE FALSE)>
4053 TAG53
4054                     <PUSH TEMP37>
4055                     <DEAD TEMP37>
4056                     <CALL '\1aGEN-TYPE? 4>
4057                     <RETURN 'FLUSHED>
4058 PHRASE49
4059                     <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE54>
4060                     <FRAME '\1aGEN-TYPE?>
4061                     <PUSH A15>
4062                     <DEAD A15>
4063                     <PUSH 'UNBOUND>
4064                     <FRAME '\1aMAKE-TAG>
4065                     <CALL '\1aMAKE-TAG 0 = FLS17>
4066                     <PUSH FLS17>
4067                     <TYPE? DIR13 <TYPE-CODE FALSE> - TAG57>
4068                     <DEAD DIR13>
4069                     <SET TEMP37 'T (TYPE ATOM)>
4070                     <JUMP + TAG58>
4071 TAG57
4072                     <SET TEMP37 %<> (TYPE FALSE)>
4073 TAG58
4074                     <PUSH TEMP37>
4075                     <DEAD TEMP37>
4076                     <CALL '\1aGEN-TYPE? 4>
4077                     <FRAME '\1aMOVE-ARG>
4078                     <FRAME '\1aREFERENCE>
4079                     <PUSH SDIR16>
4080                     <DEAD SDIR16>
4081                     <CALL '\1aREFERENCE 1 = STACK>
4082                     <PUSH W10>
4083                     <DEAD W10>
4084                     <CALL '\1aMOVE-ARG 2 = W10>
4085                     <FRAME '\1aBRANCH-TAG>
4086                     <PUSH BR12>
4087                     <DEAD BR12>
4088                     <CALL '\1aBRANCH-TAG 1>
4089                     <FRAME '\1aLABEL-TAG>
4090                     <PUSH FLS17>
4091                     <DEAD FLS17>
4092                     <CALL '\1aLABEL-TAG 1>
4093                     <RETURN W10>
4094                     <DEAD W10>
4095 PHRASE54
4096                     <FRAME '\1aGEN-TYPE?>
4097                     <PUSH A15>
4098                     <DEAD A15>
4099                     <PUSH 'UNBOUND>
4100                     <FRAME '\1aMAKE-TAG>
4101                     <CALL '\1aMAKE-TAG 0 = BR12>
4102                     <PUSH BR12>
4103                     <TYPE? DIR13 <TYPE-CODE FALSE> - TAG67>
4104                     <DEAD DIR13>
4105                     <SET TEMP37 'T (TYPE ATOM)>
4106                     <JUMP + TAG68>
4107 TAG67
4108                     <SET TEMP37 %<> (TYPE FALSE)>
4109 TAG68
4110                     <PUSH TEMP37>
4111                     <DEAD TEMP37>
4112                     <CALL '\1aGEN-TYPE? 4>
4113                     <FRAME '\1aTRUE-FALSE>
4114                     <PUSH N9>
4115                     <DEAD N9>
4116                     <PUSH BR12>
4117                     <DEAD BR12>
4118                     <PUSH W10>
4119                     <DEAD W10>
4120                     <CALL '\1aTRUE-FALSE 3 = TEMP37>
4121                     <RETURN TEMP37>
4122                     <DEAD TEMP37>
4123 PHRASE45
4124                     <TYPE? A15 <TYPE-CODE SYMTAB> - PHRASE72>
4125                     <NTHUV A15 4 = TEMP37 (TYPE FIX)>
4126                     <VEQUAL? TEMP37 -1 + PHRASE74 (TYPE FIX)>
4127                     <DEAD TEMP37>
4128                     <SET GLOBAL20 %<> (TYPE FALSE)>
4129 PHRASE74
4130                     <NTHUV A15 2 = A15 (TYPE ATOM)>
4131                     <JUMP + PHRASE77>
4132 PHRASE72
4133                     <FRAME '\1aGEN>
4134                     <NTHUV N9 5 = TEMP37 (TYPE LIST)>
4135                     <NTHL TEMP37 1 = STACK (TYPE NODE)>
4136                     <DEAD TEMP37>
4137                     <CALL '\1aGEN 1 = A15>
4138 PHRASE77
4139                     <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE80>
4140                     <VEQUAL? FLS17 0 + PHRASE80>
4141                     <DEAD FLS17>
4142                     <FRAME '\1aASS-GEN>
4143                     <PUSH A15>
4144                     <PUSH BR12>
4145                     <DEAD BR12>
4146                     <PUSH DIR13>
4147                     <DEAD DIR13>
4148                     <PUSH GLOBAL20>
4149                     <DEAD GLOBAL20>
4150                     <CALL '\1aASS-GEN 4>
4151                     <FRAME '\1aFREE-TEMP>
4152                     <PUSH A15>
4153                     <DEAD A15>
4154                     <CALL '\1aFREE-TEMP 1>
4155                     <RETURN 'FLUSHED>
4156 PHRASE80
4157                     <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE84>
4158                     <FRAME '\1aASS-GEN>
4159                     <PUSH A15>
4160                     <FRAME '\1aMAKE-TAG>
4161                     <CALL '\1aMAKE-TAG 0 = FLS17>
4162                     <PUSH FLS17>
4163                     <PUSH DIR13>
4164                     <DEAD DIR13>
4165                     <PUSH GLOBAL20>
4166                     <DEAD GLOBAL20>
4167                     <CALL '\1aASS-GEN 4>
4168                     <FRAME '\1aMOVE-ARG>
4169                     <FRAME '\1aREFERENCE>
4170                     <PUSH SDIR16>
4171                     <DEAD SDIR16>
4172                     <CALL '\1aREFERENCE 1 = STACK>
4173                     <PUSH W10>
4174                     <DEAD W10>
4175                     <CALL '\1aMOVE-ARG 2 = W10>
4176                     <FRAME '\1aBRANCH-TAG>
4177                     <PUSH BR12>
4178                     <DEAD BR12>
4179                     <CALL '\1aBRANCH-TAG 1>
4180                     <FRAME '\1aLABEL-TAG>
4181                     <PUSH FLS17>
4182                     <DEAD FLS17>
4183                     <CALL '\1aLABEL-TAG 1>
4184                     <FRAME '\1aFREE-TEMP>
4185                     <PUSH A15>
4186                     <DEAD A15>
4187                     <CALL '\1aFREE-TEMP 1>
4188                     <RETURN W10>
4189                     <DEAD W10>
4190 PHRASE84
4191                     <FRAME '\1aASS-GEN>
4192                     <PUSH A15>
4193                     <FRAME '\1aMAKE-TAG>
4194                     <CALL '\1aMAKE-TAG 0 = BR12>
4195                     <PUSH BR12>
4196                     <PUSH DIR13>
4197                     <DEAD DIR13>
4198                     <PUSH GLOBAL20>
4199                     <DEAD GLOBAL20>
4200                     <CALL '\1aASS-GEN 4>
4201                     <FRAME '\1aFREE-TEMP>
4202                     <PUSH A15>
4203                     <DEAD A15>
4204                     <CALL '\1aFREE-TEMP 1>
4205                     <FRAME '\1aTRUE-FALSE>
4206                     <PUSH N9>
4207                     <DEAD N9>
4208                     <PUSH BR12>
4209                     <DEAD BR12>
4210                     <PUSH W10>
4211                     <DEAD W10>
4212                     <CALL '\1aTRUE-FALSE 3 = TEMP37>
4213                     <RETURN TEMP37>
4214                     <DEAD TEMP37>
4215                     <END \1aASSIGNED?-GEN>
4216 #WORD *10225133337*
4217 <GFCN \1aGASSIGNED?-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY ANY) N9 W10 NF11 BR12 DIR13 SETF14>
4218                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
4219 OPT4
4220                     <PUSH %<>>
4221 OPT5
4222                     <PUSH %<>>
4223 OPT6
4224                     <PUSH %<>>
4225 OPT7
4226                     <PUSH %<>>
4227 OPT8
4228                     <TEMP A15 SDIR16 NM17 FLS18>
4229                     <INTGO>
4230                     <SET SDIR16 DIR13>
4231                     <NTHUV N9 4 = NM17>
4232                     <EQUAL? W10 'FLUSHED - TAG21>
4233                     <SET FLS18 'T (TYPE ATOM)>
4234                     <JUMP + TAG22>
4235 TAG21
4236                     <SET FLS18 %<> (TYPE FALSE)>
4237 TAG22
4238                     <EQUAL? W10 'DONT-CARE - PHRASE24>
4239                     <FRAME '\1aGEN-TEMP>
4240                     <PUSH %<>>
4241                     <CALL '\1aGEN-TEMP 1 = W10>
4242 PHRASE24
4243                     <TYPE? NF11 <TYPE-CODE FALSE> + TAG29>
4244                     <DEAD NF11>
4245                     <TYPE? DIR13 <TYPE-CODE FALSE> - TAG28>
4246                     <DEAD DIR13>
4247                     <SET DIR13 'T (TYPE ATOM)>
4248                     <JUMP + TAG29>
4249 TAG28
4250                     <SET DIR13 %<> (TYPE FALSE)>
4251 TAG29
4252                     <TYPE? SETF14 <TYPE-CODE FALSE> + PHRASE31>
4253                     <DEAD SETF14>
4254                     <FRAME '\1aDEALLOCATE-TEMP>
4255                     <FRAME '\1aMOVE-ARG>
4256                     <FRAME '\1aREFERENCE>
4257                     <TYPE? SDIR16 <TYPE-CODE FALSE> - TAG35>
4258                     <SET A15 'T (TYPE ATOM)>
4259                     <JUMP + TAG36>
4260 TAG35
4261                     <SET A15 %<> (TYPE FALSE)>
4262 TAG36
4263                     <PUSH A15>
4264                     <DEAD A15>
4265                     <CALL '\1aREFERENCE 1 = STACK>
4266                     <PUSH W10>
4267                     <CALL '\1aMOVE-ARG 2 = STACK>
4268                     <CALL '\1aDEALLOCATE-TEMP 1>
4269 PHRASE31
4270                     <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE39>
4271                     <VEQUAL? FLS18 0 - PHRASE39>
4272                     <TYPE? DIR13 <TYPE-CODE FALSE> - TAG41>
4273                     <DEAD DIR13>
4274                     <SET DIR13 'T (TYPE ATOM)>
4275                     <JUMP + PHRASE39>
4276 TAG41
4277                     <SET DIR13 %<> (TYPE FALSE)>
4278 PHRASE39
4279                     <FRAME '\1aGEN>
4280                     <NTHUV N9 5 = A15 (TYPE LIST)>
4281                     <NTHL A15 1 = STACK (TYPE NODE)>
4282                     <DEAD A15>
4283                     <CALL '\1aGEN 1 = A15>
4284                     <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE46>
4285                     <VEQUAL? FLS18 0 + PHRASE46>
4286                     <DEAD FLS18>
4287                     <FRAME '\1aGEN-GASS>
4288                     <PUSH A15>
4289                     <DEAD A15>
4290                     <PUSH BR12>
4291                     <DEAD BR12>
4292                     <PUSH DIR13>
4293                     <DEAD DIR13>
4294                     <PUSH NM17>
4295                     <DEAD NM17>
4296                     <CALL '\1aGEN-GASS 4>
4297                     <RETURN 'FLUSHED>
4298 PHRASE46
4299                     <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE49>
4300                     <FRAME '\1aGEN-GASS>
4301                     <PUSH A15>
4302                     <DEAD A15>
4303                     <FRAME '\1aMAKE-TAG>
4304                     <CALL '\1aMAKE-TAG 0 = A15>
4305                     <PUSH A15>
4306                     <PUSH DIR13>
4307                     <DEAD DIR13>
4308                     <PUSH NM17>
4309                     <DEAD NM17>
4310                     <CALL '\1aGEN-GASS 4>
4311                     <FRAME '\1aMOVE-ARG>
4312                     <FRAME '\1aREFERENCE>
4313                     <PUSH SDIR16>
4314                     <DEAD SDIR16>
4315                     <CALL '\1aREFERENCE 1 = STACK>
4316                     <PUSH W10>
4317                     <DEAD W10>
4318                     <CALL '\1aMOVE-ARG 2 = W10>
4319                     <FRAME '\1aBRANCH-TAG>
4320                     <PUSH BR12>
4321                     <DEAD BR12>
4322                     <CALL '\1aBRANCH-TAG 1>
4323                     <FRAME '\1aLABEL-TAG>
4324                     <PUSH A15>
4325                     <DEAD A15>
4326                     <CALL '\1aLABEL-TAG 1>
4327                     <RETURN W10>
4328                     <DEAD W10>
4329 PHRASE49
4330                     <FRAME '\1aGEN-GASS>
4331                     <PUSH A15>
4332                     <DEAD A15>
4333                     <FRAME '\1aMAKE-TAG>
4334                     <CALL '\1aMAKE-TAG 0 = BR12>
4335                     <PUSH BR12>
4336                     <PUSH DIR13>
4337                     <DEAD DIR13>
4338                     <PUSH NM17>
4339                     <DEAD NM17>
4340                     <CALL '\1aGEN-GASS 4>
4341                     <FRAME '\1aTRUE-FALSE>
4342                     <PUSH N9>
4343                     <DEAD N9>
4344                     <PUSH BR12>
4345                     <DEAD BR12>
4346                     <PUSH W10>
4347                     <DEAD W10>
4348                     <CALL '\1aTRUE-FALSE 3 = A15>
4349                     <RETURN A15>
4350                     <DEAD A15>
4351                     <END \1aGASSIGNED?-GEN>
4352 #WORD *25772771354*
4353 <GFCN \1aTRUE-FALSE ("VALUE" ANY NODE ATOM ANY "OPTIONAL" ANY) N6 B7 W8 THIS9>
4354                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
4355 OPT4
4356                     <PUSH 'T>
4357 OPT5
4358                     <TEMP RW10 B2-11:ATOM TEMP21>
4359                     <INTGO>
4360                     <SET RW10 W8>
4361                     <FRAME '\1aMAKE-TAG>
4362                     <CALL '\1aMAKE-TAG 0 = B2-11>
4363                     <FRAME '\1aMOVE-ARG>
4364                     <FRAME '\1aREFERENCE>
4365                     <PUSH THIS9>
4366                     <CALL '\1aREFERENCE 1 = STACK>
4367                     <PUSH W8>
4368                     <CALL '\1aMOVE-ARG 2>
4369                     <FRAME '\1aBRANCH-TAG>
4370                     <PUSH B2-11>
4371                     <CALL '\1aBRANCH-TAG 1>
4372                     <FRAME '\1aLABEL-TAG>
4373                     <PUSH B7>
4374                     <DEAD B7>
4375                     <CALL '\1aLABEL-TAG 1>
4376                     <FRAME '\1aMOVE-ARG>
4377                     <FRAME '\1aREFERENCE>
4378                     <TYPE? THIS9 <TYPE-CODE FALSE> - TAG19>
4379                     <DEAD THIS9>
4380                     <SET TEMP21 'T (TYPE ATOM)>
4381                     <JUMP + TAG20>
4382 TAG19
4383                     <SET TEMP21 %<> (TYPE FALSE)>
4384 TAG20
4385                     <PUSH TEMP21>
4386                     <DEAD TEMP21>
4387                     <CALL '\1aREFERENCE 1 = STACK>
4388                     <PUSH W8>
4389                     <CALL '\1aMOVE-ARG 2>
4390                     <FRAME '\1aLABEL-TAG>
4391                     <PUSH B2-11>
4392                     <DEAD B2-11>
4393                     <CALL '\1aLABEL-TAG 1>
4394                     <FRAME '\1aDEALLOCATE-TEMP>
4395                     <PUSH W8>
4396                     <CALL '\1aDEALLOCATE-TEMP 1>
4397                     <FRAME '\1aMOVE-ARG>
4398                     <PUSH W8>
4399                     <DEAD W8>
4400                     <PUSH RW10>
4401                     <DEAD RW10>
4402                     <CALL '\1aMOVE-ARG 2 = TEMP21>
4403                     <RETURN TEMP21>
4404                     <DEAD TEMP21>
4405                     <END \1aTRUE-FALSE>
4406 " Generate code for LVAL."
4407
4408 #WORD *20340106636*
4409 <GFCN \1aLVAL-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
4410                     <TEMP SYM6 (ADDR8 %<>) TT7 TEMP35 LL63:LIST>
4411                     <INTGO>
4412                     <NTHUV NOD4 4 = SYM6 (TYPE SYMTAB)>
4413                     <NTHUV NOD4 7 = TT7 (TYPE LIST)>
4414                     <EMPL? TT7 + PHRASE13>
4415                     <RESTL TT7 1 = ADDR8 (TYPE LIST)>
4416                     <EMPL? ADDR8 + PHRASE13>
4417                     <RESTL ADDR8 1 = ADDR8 (TYPE LIST)>
4418                     <EMPL? ADDR8 - PHRASE13>
4419                     <DEAD ADDR8>
4420                     <RESTL TT7 1 = ADDR8 (TYPE LIST)>
4421                     <DEAD TT7>
4422                     <NTHL ADDR8 1 = TT7>
4423                     <DEAD ADDR8>
4424                     <JUMP + PHRASE15>
4425 PHRASE13
4426                     <SET TT7 'T (TYPE ATOM)>
4427 PHRASE15
4428                     <NTHUV NOD4 3 = ADDR8>
4429                     <EQUAL? ADDR8 'NO-RETURN - PHRASE17>
4430                     <DEAD ADDR8>
4431                     <FRAME '\1aCOMPILE-ERROR>
4432                     <PUSH "Variable referenced before initialization: ">
4433                     <NTHUV SYM6 2 = STACK (TYPE ATOM)>
4434                     <PUSH NOD4>
4435                     <DEAD NOD4>
4436                     <CALL '\1aCOMPILE-ERROR 3>
4437 PHRASE17
4438                     <FRAME '\1aMOVE-ARG>
4439                     <NTHUV SYM6 3 = ADDR8>
4440                     <TYPE? ADDR8 <TYPE-CODE FALSE> + PHRASE21>
4441                     <DEAD ADDR8>
4442                     <NTHUV SYM6 4 = ADDR8 (TYPE FIX)>
4443                     <VEQUAL? ADDR8 -1 + PHRASE21 (TYPE FIX)>
4444                     <DEAD ADDR8>
4445                     <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE26>
4446                     <SET ADDR8 WHERE5>
4447                     <JUMP + PHRASE28>
4448 PHRASE26
4449                     <GVAL 'POP-STACK = ADDR8>
4450                     <EQUAL? ADDR8 WHERE5 - PHRASE27>
4451                     <DEAD ADDR8>
4452                     <SET ADDR8 WHERE5>
4453                     <JUMP + PHRASE28>
4454 PHRASE27
4455                     <FRAME '\1aGEN-TEMP>
4456                     <PUSH %<>>
4457                     <CALL '\1aGEN-TEMP 1 = ADDR8>
4458 PHRASE28
4459                     <TYPE? ADDR8 <TYPE-CODE TEMP> - PHRASE31>
4460                     <FRAME '\1aUSE-TEMP>
4461                     <PUSH ADDR8>
4462                     <NTHUV SYM6 7 = STACK>
4463                     <CALL '\1aUSE-TEMP 2>
4464 PHRASE31
4465                     <FRAME '\1aGET-VALUE-X>
4466                     <NTHUV SYM6 2 = STACK (TYPE ATOM)>
4467                     <DEAD SYM6>
4468                     <PUSH ADDR8>
4469                     <CALL '\1aGET-VALUE-X 2>
4470                     <JUMP + PHRASE70>
4471 PHRASE21
4472                     <NTHUV SYM6 3 = TEMP35>
4473                     <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE34>
4474                     <DEAD TEMP35>
4475                     <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE37>
4476                     <SET ADDR8 WHERE5>
4477                     <JUMP + PHRASE38>
4478 PHRASE37
4479                     <FRAME '\1aGEN-TEMP>
4480                     <PUSH %<>>
4481                     <CALL '\1aGEN-TEMP 1 = ADDR8>
4482 PHRASE38
4483                     <FRAME '\1aUSE-TEMP>
4484                     <PUSH ADDR8>
4485                     <CALL '\1aUSE-TEMP 1>
4486                     <FRAME '\1aSTART-FRAME>
4487                     <PUSH 'LVAL>
4488                     <CALL '\1aSTART-FRAME 1>
4489                     <FRAME '\1aPUSH-CONSTANT>
4490                     <NTHUV SYM6 2 = STACK (TYPE ATOM)>
4491                     <DEAD SYM6>
4492                     <CALL '\1aPUSH-CONSTANT 1>
4493                     <FRAME '\1aMSUBR-CALL>
4494                     <PUSH 'LVAL>
4495                     <PUSH 1>
4496                     <PUSH ADDR8>
4497                     <CALL '\1aMSUBR-CALL 3>
4498                     <JUMP + PHRASE70>
4499 PHRASE34
4500                     <FRAME '\1aLADDR>
4501                     <PUSH SYM6>
4502                     <CALL '\1aLADDR 1 = ADDR8>
4503                     <TYPE? ADDR8 <TYPE-CODE TEMP> - PHRASE70>
4504                     <GVAL 'DEATH = TEMP35>
4505                     <TYPE? TEMP35 <TYPE-CODE FALSE> + MAPAP54>
4506                     <DEAD TEMP35>
4507                     <TYPE? TT7 <TYPE-CODE FALSE> - MAPAP54>
4508                     <DEAD TT7>
4509                     <NTHUV SYM6 3 = TEMP35>
4510                     <TYPE? TEMP35 <TYPE-CODE FALSE> - MAPAP54>
4511                     <DEAD TEMP35>
4512                     <GEN-LVAL 'NO-KILL = TT7>
4513                     <LOOP>
4514 MAP51
4515                     <INTGO>
4516                     <EMPL? TT7 + PHRASE70>
4517                     <NTHL TT7 1 = LL63>
4518                     <NTHL LL63 1 = TEMP35>
4519                     <EQUAL? TEMP35 SYM6 - BOOL64>
4520                     <DEAD TEMP35>
4521                     <RESTL LL63 1 = TEMP35 (TYPE LIST)>
4522                     <DEAD LL63>
4523                     <PUTL TEMP35 1 'T>
4524                     <DEAD TEMP35>
4525                     <JUMP + MAPAP54>
4526 BOOL64
4527                     <RESTL TT7 1 = TT7 (TYPE LIST)>
4528                     <JUMP + MAP51>
4529 MAPAP54
4530                     <NTHUV ADDR8 2 = SYM6 (TYPE FIX)>
4531                     <VEQUAL? SYM6 0 - PHRASE66 (TYPE FIX)>
4532                     <FRAME '\1aUSE-TEMP>
4533                     <PUSH ADDR8>
4534                     <CALL '\1aUSE-TEMP 1>
4535                     <JUMP + PHRASE70>
4536 PHRASE66
4537                     <ADD SYM6 1 = SYM6 (TYPE FIX)>
4538                     <PUTUV ADDR8 2 SYM6 (TYPE FIX)>
4539                     <DEAD SYM6>
4540 PHRASE70
4541                     <PUSH ADDR8>
4542                     <DEAD ADDR8>
4543                     <PUSH WHERE5>
4544                     <DEAD WHERE5>
4545                     <CALL '\1aMOVE-ARG 2 = TT7>
4546                     <RETURN TT7>
4547                     <DEAD TT7>
4548                     <END \1aLVAL-GEN>
4549 #WORD *32424226610*
4550 <GFCN \1aDELAY-KILL ("VALUE" ATOM <LIST [REST !<LIST SYMTAB <OR ATOM FALSE>>]> <LIST [REST !<LIST SYMTAB <OR ATOM FALSE>>]>) L1-4 L2-5>
4551                     <TEMP TEMP16 TT6>
4552                     <INTGO>
4553                     <LOOP>
4554 AGAIN12
4555                     <INTGO>
4556                     <VEQUAL? L1-4 L2-5 + BOOL15>
4557                     <GVAL 'DEATH = TEMP16>
4558                     <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE14>
4559                     <DEAD TEMP16>
4560 BOOL15
4561                     <RETURN 'T>
4562 PHRASE14
4563                     <NTHL L1-4 1 = TT6 (TYPE LIST)>
4564                     <RESTL TT6 1 = TEMP16 (TYPE LIST)>
4565                     <NTHL TEMP16 1 = TEMP16>
4566                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE18>
4567                     <DEAD TEMP16>
4568                     <NTHL TT6 1 = TEMP16 (TYPE SYMTAB)>
4569                     <DEAD TT6>
4570                     <NTHUV TEMP16 10 = TT6>
4571                     <DEAD TEMP16>
4572                     <FRAME '\1aFREE-TEMP>
4573                     <PUSH TT6>
4574                     <DEAD TT6>
4575                     <CALL '\1aFREE-TEMP 1>
4576 PHRASE18
4577                     <RESTL L1-4 1 = L1-4 (TYPE LIST)>
4578                     <JUMP + AGAIN12>
4579                     <END \1aDELAY-KILL>
4580 " Generate LVAL for free variable."
4581
4582 #WORD *632041036*
4583 <GFCN \1aFLVAL-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
4584                     <TEMP TMP6 T1-7>
4585                     <INTGO>
4586                     <EQUAL? WHERE5 'DONT-CARE - PHRASE9>
4587                     <FRAME '\1aGEN-TEMP>
4588                     <PUSH %<>>
4589                     <CALL '\1aGEN-TEMP 1 = TMP6>
4590                     <JUMP + PHRASE11>
4591 PHRASE9
4592                     <SET TMP6 WHERE5>
4593 PHRASE11
4594                     <TYPE? TMP6 <TYPE-CODE TEMP> - PHRASE13>
4595                     <FRAME '\1aUSE-TEMP>
4596                     <PUSH TMP6>
4597                     <CALL '\1aUSE-TEMP 1>
4598 PHRASE13
4599                     <NTHUV NOD4 4 = T1-7>
4600                     <TYPE? T1-7 <TYPE-CODE SYMTAB> - PHRASE16>
4601                     <NTHUV T1-7 2 = T1-7 (TYPE ATOM)>
4602                     <JUMP + PHRASE19>
4603 PHRASE16
4604                     <NTHUV NOD4 5 = T1-7 (TYPE LIST)>
4605                     <NTHL T1-7 1 = T1-7 (TYPE NODE)>
4606                     <NTHUV T1-7 1 = T1-7 (TYPE FIX)>
4607                     <VEQUAL? T1-7 2 - PHRASE17 (TYPE FIX)>
4608                     <DEAD T1-7>
4609                     <NTHUV NOD4 5 = T1-7 (TYPE LIST)>
4610                     <DEAD NOD4>
4611                     <NTHL T1-7 1 = T1-7 (TYPE NODE)>
4612                     <NTHUV T1-7 4 = T1-7>
4613                     <JUMP + PHRASE19>
4614 PHRASE17
4615                     <FRAME '\1aGEN>
4616                     <NTHUV NOD4 5 = T1-7 (TYPE LIST)>
4617                     <DEAD NOD4>
4618                     <NTHL T1-7 1 = STACK (TYPE NODE)>
4619                     <DEAD T1-7>
4620                     <CALL '\1aGEN 1 = T1-7>
4621 PHRASE19
4622                     <FRAME '\1aGET-VALUE-X>
4623                     <PUSH T1-7>
4624                     <PUSH TMP6>
4625                     <PUSH 'T>
4626                     <CALL '\1aGET-VALUE-X 3>
4627                     <FRAME '\1aFREE-TEMP>
4628                     <PUSH T1-7>
4629                     <DEAD T1-7>
4630                     <CALL '\1aFREE-TEMP 1>
4631                     <FRAME '\1aMOVE-ARG>
4632                     <PUSH TMP6>
4633                     <DEAD TMP6>
4634                     <PUSH WHERE5>
4635                     <DEAD WHERE5>
4636                     <CALL '\1aMOVE-ARG 2 = T1-7>
4637                     <RETURN T1-7>
4638                     <DEAD T1-7>
4639                     <END \1aFLVAL-GEN>
4640 #WORD *31521364741*
4641 <GFCN \1aFSET-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
4642                     <TEMP (TEM7 %<>) TEMP11 TEMP12 T1-8>
4643                     <INTGO>
4644                     <NTHUV NOD4 9 = TEMP11>
4645                     <GVAL 'SET = TEMP12>
4646                     <EQUAL? TEMP11 TEMP12 - PHRASE10>
4647                     <DEAD TEMP11 TEMP12>
4648                     <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
4649                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
4650                     <NTHL TEMP12 1 = TEM7 (TYPE NODE)>
4651                     <DEAD TEMP12>
4652 PHRASE10
4653                     <NTHUV NOD4 4 = TEMP11>
4654                     <TYPE? TEMP11 <TYPE-CODE SYMTAB> - PHRASE14>
4655                     <NTHUV TEMP11 2 = TEMP11 (TYPE ATOM)>
4656                     <JUMP + PHRASE19>
4657 PHRASE14
4658                     <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
4659                     <DEAD NOD4>
4660                     <NTHL TEMP12 1 = T1-8 (TYPE NODE)>
4661                     <DEAD TEMP12>
4662                     <NTHUV T1-8 1 = TEMP12 (TYPE FIX)>
4663                     <VEQUAL? TEMP12 2 - PHRASE15 (TYPE FIX)>
4664                     <DEAD TEMP12>
4665                     <NTHUV T1-8 4 = TEMP11>
4666                     <DEAD T1-8>
4667                     <JUMP + PHRASE19>
4668 PHRASE15
4669                     <FRAME '\1aGEN>
4670                     <PUSH T1-8>
4671                     <DEAD T1-8>
4672                     <CALL '\1aGEN 1 = TEMP11>
4673                     <TYPE? TEM7 <TYPE-CODE FALSE> + PHRASE19>
4674                     <FRAME '\1aINTERF-CHANGE>
4675                     <PUSH TEMP11>
4676                     <DEAD TEMP11>
4677                     <PUSH TEM7>
4678                     <CALL '\1aINTERF-CHANGE 2 = TEMP11>
4679 PHRASE19
4680                     <TYPE? TEM7 <TYPE-CODE FALSE> + PHRASE22>
4681                     <FRAME '\1aGEN>
4682                     <PUSH TEM7>
4683                     <DEAD TEM7>
4684                     <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE25>
4685                     <SET TEMP12 WHERE5>
4686                     <JUMP + PHRASE26>
4687 PHRASE25
4688                     <SET TEMP12 'DONT-CARE (TYPE ATOM)>
4689 PHRASE26
4690                     <PUSH TEMP12>
4691                     <DEAD TEMP12>
4692                     <CALL '\1aGEN 2 = T1-8>
4693                     <JUMP + PHRASE27>
4694 PHRASE22
4695                     <GVAL 'THE-UNBOUND = T1-8>
4696 PHRASE27
4697                     <FRAME '\1aSET-VALUE>
4698                     <PUSH TEMP11>
4699                     <PUSH T1-8>
4700                     <DEAD T1-8>
4701                     <PUSH 'T>
4702                     <CALL '\1aSET-VALUE 3 = T1-8>
4703                     <FRAME '\1aFREE-TEMP>
4704                     <PUSH TEMP11>
4705                     <CALL '\1aFREE-TEMP 1>
4706                     <FRAME '\1aMOVE-ARG>
4707                     <GVAL 'THE-UNBOUND = TEMP12>
4708                     <EQUAL? TEMP12 T1-8 - PHRASE32>
4709                     <DEAD TEMP12>
4710                     <SET TEMP12 TEMP11>
4711                     <DEAD TEMP11>
4712                     <JUMP + PHRASE33>
4713 PHRASE32
4714                     <SET TEMP12 T1-8>
4715                     <DEAD T1-8>
4716 PHRASE33
4717                     <PUSH TEMP12>
4718                     <DEAD TEMP12>
4719                     <PUSH WHERE5>
4720                     <DEAD WHERE5>
4721                     <CALL '\1aMOVE-ARG 2 = TEMP12>
4722                     <RETURN TEMP12>
4723                     <DEAD TEMP12>
4724                     <END \1aFSET-GEN>
4725 " Generate code for an internal SET."
4726
4727 #WORD *21500464461*
4728 <GFCN \1aSET-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NOTF10 BRANCH11 DIR12>
4729                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
4730 OPT4
4731                     <PUSH %<>>
4732 OPT5
4733                     <PUSH %<>>
4734 OPT6
4735                     <PUSH %<>>
4736 OPT7
4737                     <TEMP (SYM13 %<>) TEMP20 NM19 TEMP38>
4738                     <INTGO>
4739                     <NTHUV NOD8 4 = SYM13 (TYPE SYMTAB)>
4740                     <NTHUV NOD8 9 = TEMP20>
4741                     <NTHUV TEMP20 2 = NM19>
4742                     <DEAD TEMP20>
4743                     <NTHUV SYM13 3 = TEMP20>
4744                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE22>
4745                     <DEAD TEMP20>
4746                     <NTHUV SYM13 4 = TEMP20 (TYPE FIX)>
4747                     <VEQUAL? TEMP20 -1 + PHRASE22 (TYPE FIX)>
4748                     <DEAD TEMP20>
4749                     <EQUAL? NM19 'SET - PHRASE27>
4750                     <DEAD NM19>
4751                     <FRAME '\1aGEN>
4752                     <NTHUV NOD8 5 = TEMP20 (TYPE LIST)>
4753                     <DEAD NOD8>
4754                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
4755                     <NTHL TEMP20 1 = STACK (TYPE NODE)>
4756                     <DEAD TEMP20>
4757                     <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE30>
4758                     <SET TEMP20 WHERE9>
4759                     <JUMP + PHRASE31>
4760 PHRASE30
4761                     <SET TEMP20 'DONT-CARE (TYPE ATOM)>
4762 PHRASE31
4763                     <PUSH TEMP20>
4764                     <DEAD TEMP20>
4765                     <CALL '\1aGEN 2 = TEMP20>
4766                     <FRAME '\1aSET-VALUE>
4767                     <NTHUV SYM13 2 = STACK (TYPE ATOM)>
4768                     <DEAD SYM13>
4769                     <PUSH TEMP20>
4770                     <CALL '\1aSET-VALUE 2>
4771                     <JUMP + PHRASE33>
4772 PHRASE27
4773                     <FRAME '\1aSET-VALUE>
4774                     <NTHUV SYM13 2 = STACK (TYPE ATOM)>
4775                     <GVAL 'THE-UNBOUND = STACK>
4776                     <CALL '\1aSET-VALUE 2>
4777                     <NTHUV SYM13 2 = TEMP20 (TYPE ATOM)>
4778                     <DEAD SYM13>
4779 PHRASE33
4780                     <FRAME '\1aMOVE-ARG>
4781                     <PUSH TEMP20>
4782                     <DEAD TEMP20>
4783                     <PUSH WHERE9>
4784                     <DEAD WHERE9>
4785                     <CALL '\1aMOVE-ARG 2 = TEMP20>
4786                     <RETURN TEMP20>
4787                     <DEAD TEMP20>
4788 PHRASE22
4789                     <NTHUV SYM13 3 = TEMP38>
4790                     <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE36>
4791                     <DEAD TEMP38>
4792                     <EQUAL? NM19 'UNASSIGN - PHRASE36>
4793                     <FRAME '\1aSTART-FRAME>
4794                     <PUSH 'UNASSIGN>
4795                     <CALL '\1aSTART-FRAME 1>
4796                     <FRAME '\1aPUSH-CONSTANT>
4797                     <NTHUV SYM13 2 = STACK (TYPE ATOM)>
4798                     <DEAD SYM13>
4799                     <CALL '\1aPUSH-CONSTANT 1>
4800                     <EQUAL? WHERE9 'DONT-CARE - PHRASE42>
4801                     <FRAME '\1aGEN-TEMP>
4802                     <NTHUV NOD8 3 = STACK>
4803                     <DEAD NOD8>
4804                     <CALL '\1aGEN-TEMP 1 = WHERE9>
4805                     <JUMP + PHRASE44>
4806 PHRASE42
4807                     <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE44>
4808                     <FRAME '\1aUSE-TEMP>
4809                     <PUSH WHERE9>
4810                     <NTHUV NOD8 3 = STACK>
4811                     <DEAD NOD8>
4812                     <CALL '\1aUSE-TEMP 2>
4813 PHRASE44
4814                     <FRAME '\1aMSUBR-CALL>
4815                     <PUSH 'UNASSIGN>
4816                     <PUSH 1>
4817                     <PUSH WHERE9>
4818                     <CALL '\1aMSUBR-CALL 3>
4819                     <EQUAL? WHERE9 'FLUSHED - PHRASE48>
4820                     <GVAL 'NO-DATUM = TEMP20>
4821                     <RETURN TEMP20>
4822                     <DEAD TEMP20>
4823 PHRASE48
4824                     <RETURN WHERE9>
4825                     <DEAD WHERE9>
4826 PHRASE36
4827                     <NTHUV SYM13 3 = TEMP38>
4828                     <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE50>
4829                     <DEAD TEMP38>
4830                     <FRAME '\1aSTART-FRAME>
4831                     <PUSH 'SET>
4832                     <CALL '\1aSTART-FRAME 1>
4833                     <FRAME '\1aPUSH-CONSTANT>
4834                     <NTHUV SYM13 2 = STACK (TYPE ATOM)>
4835                     <DEAD SYM13>
4836                     <CALL '\1aPUSH-CONSTANT 1>
4837                     <FRAME '\1aGEN>
4838                     <NTHUV NOD8 5 = TEMP38 (TYPE LIST)>
4839                     <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
4840                     <NTHL TEMP38 1 = STACK (TYPE NODE)>
4841                     <DEAD TEMP38>
4842                     <GVAL 'POP-STACK = STACK>
4843                     <CALL '\1aGEN 2>
4844                     <EQUAL? WHERE9 'DONT-CARE - PHRASE55>
4845                     <FRAME '\1aGEN-TEMP>
4846                     <NTHUV NOD8 3 = STACK>
4847                     <DEAD NOD8>
4848                     <CALL '\1aGEN-TEMP 1 = WHERE9>
4849                     <JUMP + PHRASE57>
4850 PHRASE55
4851                     <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE57>
4852                     <FRAME '\1aUSE-TEMP>
4853                     <PUSH WHERE9>
4854                     <NTHUV NOD8 3 = STACK>
4855                     <DEAD NOD8>
4856                     <CALL '\1aUSE-TEMP 2>
4857 PHRASE57
4858                     <FRAME '\1aMSUBR-CALL>
4859                     <PUSH 'SET>
4860                     <PUSH 2>
4861                     <PUSH WHERE9>
4862                     <CALL '\1aMSUBR-CALL 3>
4863                     <EQUAL? WHERE9 'FLUSHED - PHRASE61>
4864                     <GVAL 'NO-DATUM = TEMP20>
4865                     <RETURN TEMP20>
4866                     <DEAD TEMP20>
4867 PHRASE61
4868                     <RETURN WHERE9>
4869                     <DEAD WHERE9>
4870 PHRASE50
4871                     <FRAME '\1aLADDR>
4872                     <PUSH SYM13>
4873                     <CALL '\1aLADDR 1 = TEMP20>
4874                     <NTHUV TEMP20 4 = TEMP38>
4875                     <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE66>
4876                     <DEAD TEMP38>
4877                     <FRAME '\1aISTYPE?>
4878                     <NTHUV SYM13 7 = STACK>
4879                     <DEAD SYM13>
4880                     <CALL '\1aISTYPE? 1 = TEMP38>
4881                     <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE66>
4882                     <FRAME '\1aTYPEPRIM>
4883                     <PUSH TEMP38>
4884                     <CALL '\1aTYPEPRIM 1 = SYM13>
4885                     <EQUAL? SYM13 'FIX + BOOL72>
4886                     <EQUAL? SYM13 'WORD + BOOL72>
4887                     <EQUAL? SYM13 'LIST - PHRASE66>
4888                     <DEAD SYM13>
4889 BOOL72
4890                     <FRAME '\1aDEALLOCATE-TEMP>
4891                     <FRAME '\1aUSE-TEMP>
4892                     <PUSH TEMP20>
4893                     <PUSH TEMP38>
4894                     <DEAD TEMP38>
4895                     <CALL '\1aUSE-TEMP 2 = STACK>
4896                     <CALL '\1aDEALLOCATE-TEMP 1>
4897 PHRASE66
4898                     <EQUAL? NM19 'SET - PHRASE77>
4899                     <DEAD NM19>
4900                     <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE79>
4901                     <TYPE? NOTF10 <TYPE-CODE FALSE> + TAG83>
4902                     <DEAD NOTF10>
4903                     <TYPE? DIR12 <TYPE-CODE FALSE> - TAG82>
4904                     <DEAD DIR12>
4905                     <SET DIR12 'T (TYPE ATOM)>
4906                     <JUMP + TAG83>
4907 TAG82
4908                     <SET DIR12 %<> (TYPE FALSE)>
4909 TAG83
4910                     <FRAME '\1aPRED-BRANCH-GEN>
4911                     <PUSH BRANCH11>
4912                     <DEAD BRANCH11>
4913                     <NTHUV NOD8 5 = TEMP38 (TYPE LIST)>
4914                     <DEAD NOD8>
4915                     <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
4916                     <NTHL TEMP38 1 = STACK (TYPE NODE)>
4917                     <DEAD TEMP38>
4918                     <PUSH DIR12>
4919                     <DEAD DIR12>
4920                     <PUSH TEMP20>
4921                     <PUSH %<>>
4922                     <PUSH 'T>
4923                     <CALL '\1aPRED-BRANCH-GEN 6>
4924                     <JUMP + PHRASE87>
4925 PHRASE79
4926                     <FRAME '\1aGEN>
4927                     <NTHUV NOD8 5 = TEMP38 (TYPE LIST)>
4928                     <DEAD NOD8>
4929                     <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
4930                     <NTHL TEMP38 1 = STACK (TYPE NODE)>
4931                     <DEAD TEMP38>
4932                     <PUSH TEMP20>
4933                     <DEAD TEMP20>
4934                     <CALL '\1aGEN 2 = TEMP20>
4935                     <JUMP + PHRASE87>
4936 PHRASE77
4937                     <FRAME '\1aMOVE-ARG>
4938                     <GVAL 'THE-UNBOUND = STACK>
4939                     <PUSH TEMP20>
4940                     <CALL '\1aMOVE-ARG 2>
4941 PHRASE87
4942                     <TYPE? TEMP20 <TYPE-CODE TEMP> - PHRASE90>
4943                     <NTHUV TEMP20 2 = SYM13 (TYPE FIX)>
4944                     <VEQUAL? SYM13 0 - PHRASE92 (TYPE FIX)>
4945                     <SET SYM13 1 (TYPE FIX)>
4946 PHRASE92
4947                     <ADD SYM13 1 = TEMP38 (TYPE FIX)>
4948                     <DEAD SYM13>
4949                     <PUTUV TEMP20 2 TEMP38 (TYPE FIX)>
4950                     <DEAD TEMP38>
4951 PHRASE90
4952                     <FRAME '\1aMOVE-ARG>
4953                     <PUSH TEMP20>
4954                     <DEAD TEMP20>
4955                     <PUSH WHERE9>
4956                     <DEAD WHERE9>
4957                     <CALL '\1aMOVE-ARG 2 = TEMP20>
4958                     <RETURN TEMP20>
4959                     <DEAD TEMP20>
4960                     <END \1aSET-GEN>\r\r
4961 #WORD *27477421233*
4962 <GFCN \1aARG? ("VALUE" <OR ATOM !<FALSE>> SYMTAB) SYM4>
4963                     <TEMP TEMP5 TEMP6>
4964                     <INTGO>
4965                     <GVAL 'ARGTBL = TEMP5>
4966                     <NTHUV SYM4 4 = TEMP6 (TYPE FIX)>
4967                     <DEAD SYM4>
4968                     <NTHUU TEMP5 TEMP6 = TEMP5 (TYPE FIX)>
4969                     <DEAD TEMP6>
4970                     <VEQUAL? TEMP5 1 - TAG8 (TYPE FIX)>
4971                     <DEAD TEMP5>
4972                     <RETURN 'T>
4973 TAG8
4974                     <RETURN %<>>
4975                     <END \1aARG?>
4976 #WORD *27337411731*
4977 <GFCN \1aOPT? ("VALUE" <OR ATOM !<FALSE>> SYMTAB) SYM4>
4978                     <TEMP TEMP5 TEMP6>
4979                     <INTGO>
4980                     <GVAL 'OPTBL = TEMP5>
4981                     <NTHUV SYM4 4 = TEMP6 (TYPE FIX)>
4982                     <DEAD SYM4>
4983                     <NTHUU TEMP5 TEMP6 = TEMP5 (TYPE FIX)>
4984                     <DEAD TEMP6>
4985                     <VEQUAL? TEMP5 1 - TAG8 (TYPE FIX)>
4986                     <DEAD TEMP5>
4987                     <RETURN 'T>
4988 TAG8
4989                     <RETURN %<>>
4990                     <END \1aOPT?>
4991 <SETG OPTBL ![0 0 0 0 0 1 1 1 1 0 0 0 0!]>
4992
4993 <SETG ARGTBL ![0 0 0 0 1 0 0 0 0 1 0 1 1!]>
4994
4995 <GDECL (OPTBL ARGTBL) <UVECTOR [REST FIX]>>
4996
4997 " Compute the address of a local variable using the stack model."
4998
4999 #WORD *23757717642*
5000 <GFCN \1aLADDR ("VALUE" ANY SYMTAB) S4>
5001                     <TEMP TEMP5>
5002                     <INTGO>
5003                     <NTHUV S4 10 = TEMP5>
5004                     <DEAD S4>
5005                     <RETURN TEMP5>
5006                     <DEAD TEMP5>
5007                     <END \1aLADDR>
5008 " Generate obscure stuff."
5009
5010 #WORD *25234556454*
5011 <GFCN \1aDEFAULT-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
5012                     <TEMP TEMP8>
5013                     <INTGO>
5014                     <FRAME '\1aMOVE-ARG>
5015                     <FRAME '\1aREFERENCE>
5016                     <NTHUV NOD4 4 = STACK>
5017                     <DEAD NOD4>
5018                     <CALL '\1aREFERENCE 1 = STACK>
5019                     <PUSH WHERE5>
5020                     <DEAD WHERE5>
5021                     <CALL '\1aMOVE-ARG 2 = TEMP8>
5022                     <RETURN TEMP8>
5023                     <DEAD TEMP8>
5024                     <END \1aDEFAULT-GEN>
5025 " Do GVAL using direct locative reference."
5026
5027 #WORD *20000064104*
5028                     <GFCN \1aGVAL-GEN ("VALUE" ANY NODE ANY) N4 W5>
5029                     <TEMP RT6 TYP7 TEMP10>
5030                     <INTGO>
5031                     <NTHUV N4 3 = RT6>
5032                     <FRAME '\1aISTYPE?>
5033                     <PUSH RT6>
5034                     <CALL '\1aISTYPE? 1 = TYP7>
5035                     <FRAME '\1aGEN-GVAL>
5036                     <NTHUV N4 5 = TEMP10 (TYPE LIST)>
5037                     <DEAD N4>
5038                     <NTHL TEMP10 1 = TEMP10 (TYPE NODE)>
5039                     <NTHUV TEMP10 4 = STACK>
5040                     <DEAD TEMP10>
5041                     <EQUAL? W5 'DONT-CARE - PHRASE12>
5042                     <FRAME '\1aGEN-TEMP>
5043                     <PUSH RT6>
5044                     <DEAD RT6>
5045                     <CALL '\1aGEN-TEMP 1 = W5>
5046                     <SET TEMP10 W5>
5047                     <JUMP + PHRASE16>
5048 PHRASE12
5049                     <TYPE? W5 <TYPE-CODE TEMP> - PHRASE14>
5050                     <FRAME '\1aUSE-TEMP>
5051                     <PUSH W5>
5052                     <PUSH RT6>
5053                     <DEAD RT6>
5054                     <CALL '\1aUSE-TEMP 2>
5055                     <SET TEMP10 W5>
5056                     <JUMP + PHRASE16>
5057 PHRASE14
5058                     <SET TEMP10 W5>
5059 PHRASE16
5060                     <PUSH TEMP10>
5061                     <DEAD TEMP10>
5062                     <PUSH TYP7>
5063                     <DEAD TYP7>
5064                     <CALL '\1aGEN-GVAL 3>
5065                     <RETURN W5>
5066                     <DEAD W5>
5067                     <END \1aGVAL-GEN>
5068
5069 " Do SETG using direct locative reference."
5070
5071 #WORD *12524545626*
5072 <GFCN \1aSETG-GEN ("VALUE" ANY NODE ANY) N4 W5>
5073                     <TEMP TEMP8 TEM6 TEMP12:FIX>
5074                     <INTGO>
5075                     <FRAME '\1aGEN>
5076                     <NTHUV N4 5 = TEMP8 (TYPE LIST)>
5077                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
5078                     <NTHL TEMP8 1 = STACK (TYPE NODE)>
5079                     <DEAD TEMP8>
5080                     <CALL '\1aGEN 1 = TEM6>
5081                     <FRAME '\1aGEN-SETG>
5082                     <NTHUV N4 5 = TEMP8 (TYPE LIST)>
5083                     <NTHL TEMP8 1 = TEMP8 (TYPE NODE)>
5084                     <NTHUV TEMP8 4 = STACK>
5085                     <DEAD TEMP8>
5086                     <PUSH TEM6>
5087                     <NTHUV N4 5 = TEMP8 (TYPE LIST)>
5088                     <SET TEMP12 3 (TYPE FIX)>
5089                     <LOOP (TEMP8 VALUE) (TEMP12 VALUE)>
5090 TAG13
5091                     <EMPL? TEMP8 + PHRASE11>
5092                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
5093                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
5094                     <GRTR? TEMP12 0 + TAG13 (TYPE FIX)>
5095                     <EMPL? TEMP8 - PHRASE11>
5096                     <DEAD TEMP8>
5097                     <FRAME '\1aGEN>
5098                     <NTHUV N4 5 = TEMP8 (TYPE LIST)>
5099                     <DEAD N4>
5100                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
5101                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
5102                     <NTHL TEMP8 1 = STACK (TYPE NODE)>
5103                     <DEAD TEMP8>
5104                     <PUSH 'DONT-CARE>
5105                     <CALL '\1aGEN 2 = TEMP8>
5106                     <JUMP + PHRASE15>
5107 PHRASE11
5108                     <SET TEMP8 %<> (TYPE FALSE)>
5109 PHRASE15
5110                     <PUSH TEMP8>
5111                     <DEAD TEMP8>
5112                     <PUSH 'FLUSHED>
5113                     <CALL '\1aGEN-SETG 4>
5114                     <FRAME '\1aMOVE-ARG>
5115                     <PUSH TEM6>
5116                     <DEAD TEM6>
5117                     <PUSH W5>
5118                     <DEAD W5>
5119                     <CALL '\1aMOVE-ARG 2 = TEMP8>
5120                     <RETURN TEMP8>
5121                     <DEAD TEMP8>
5122                     <END \1aSETG-GEN>
5123 " Generate GVAL calls."
5124
5125 #WORD *24734575543*
5126                     <GFCN \1aFGVAL-GEN ("VALUE" ANY NODE ANY) N4 W5>
5127                     <TEMP TEMP9 TEM6>
5128                     <INTGO>
5129                     <FRAME '\1aGEN-GVAL>
5130                     <FRAME '\1aGEN>
5131                     <NTHUV N4 5 = TEMP9 (TYPE LIST)>
5132                     <NTHL TEMP9 1 = STACK (TYPE NODE)>
5133                     <DEAD TEMP9>
5134                     <CALL '\1aGEN 1 = TEM6>
5135                     <PUSH TEM6>
5136                     <EQUAL? W5 'DONT-CARE - PHRASE11>
5137                     <FRAME '\1aGEN-TEMP>
5138                     <NTHUV N4 3 = STACK>
5139                     <DEAD N4>
5140                     <CALL '\1aGEN-TEMP 1 = W5>
5141                     <SET TEMP9 W5>
5142                     <JUMP + PHRASE15>
5143 PHRASE11
5144                     <TYPE? W5 <TYPE-CODE TEMP> - PHRASE13>
5145                     <FRAME '\1aUSE-TEMP>
5146                     <PUSH W5>
5147                     <NTHUV N4 3 = STACK>
5148                     <DEAD N4>
5149                     <CALL '\1aUSE-TEMP 2>
5150                     <SET TEMP9 W5>
5151                     <JUMP + PHRASE15>
5152 PHRASE13
5153                     <SET TEMP9 W5>
5154 PHRASE15
5155                     <PUSH TEMP9>
5156                     <DEAD TEMP9>
5157                     <CALL '\1aGEN-GVAL 2>
5158                     <FRAME '\1aFREE-TEMP>
5159                     <PUSH TEM6>
5160                     <DEAD TEM6>
5161                     <CALL '\1aFREE-TEMP 1>
5162                     <RETURN W5>
5163                     <DEAD W5>
5164                     <END \1aFGVAL-GEN>
5165
5166 " Generate a SETG call."
5167
5168 #WORD *13255413604*
5169 <GFCN \1aFSETG-GEN ("VALUE" ANY NODE ANY) NOD4 W5>
5170                     <TEMP TEMP9 ATM7 TEM6 TEMP18:FIX>
5171                     <INTGO>
5172                     <FRAME '\1aGEN>
5173                     <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
5174                     <NTHL TEMP9 1 = STACK (TYPE NODE)>
5175                     <DEAD TEMP9>
5176                     <CALL '\1aGEN 1 = ATM7>
5177                     <FRAME '\1aINTERF-CHANGE>
5178                     <PUSH ATM7>
5179                     <DEAD ATM7>
5180                     <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
5181                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5182                     <NTHL TEMP9 1 = STACK (TYPE NODE)>
5183                     <DEAD TEMP9>
5184                     <CALL '\1aINTERF-CHANGE 2 = ATM7>
5185                     <FRAME '\1aGEN>
5186                     <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
5187                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5188                     <NTHL TEMP9 1 = STACK (TYPE NODE)>
5189                     <DEAD TEMP9>
5190                     <TYPE? W5 <TYPE-CODE TEMP> - PHRASE13>
5191                     <SET TEMP9 W5>
5192                     <JUMP + PHRASE14>
5193 PHRASE13
5194                     <SET TEMP9 'DONT-CARE (TYPE ATOM)>
5195 PHRASE14
5196                     <PUSH TEMP9>
5197                     <DEAD TEMP9>
5198                     <CALL '\1aGEN 2 = TEM6>
5199                     <FRAME '\1aGEN-SETG>
5200                     <PUSH ATM7>
5201                     <PUSH TEM6>
5202                     <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
5203                     <SET TEMP18 3 (TYPE FIX)>
5204                     <LOOP (TEMP9 VALUE) (TEMP18 VALUE)>
5205 TAG19
5206                     <EMPL? TEMP9 + PHRASE17>
5207                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5208                     <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
5209                     <GRTR? TEMP18 0 + TAG19 (TYPE FIX)>
5210                     <EMPL? TEMP9 - PHRASE17>
5211                     <DEAD TEMP9>
5212                     <FRAME '\1aGEN>
5213                     <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
5214                     <DEAD NOD4>
5215                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5216                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5217                     <NTHL TEMP9 1 = STACK (TYPE NODE)>
5218                     <DEAD TEMP9>
5219                     <PUSH 'DONT-CARE>
5220                     <CALL '\1aGEN 2 = TEMP9>
5221                     <JUMP + PHRASE21>
5222 PHRASE17
5223                     <SET TEMP9 %<> (TYPE FALSE)>
5224 PHRASE21
5225                     <PUSH TEMP9>
5226                     <DEAD TEMP9>
5227                     <PUSH W5>
5228                     <CALL '\1aGEN-SETG 4>
5229                     <FRAME '\1aFREE-TEMP>
5230                     <PUSH ATM7>
5231                     <DEAD ATM7>
5232                     <CALL '\1aFREE-TEMP 1>
5233                     <FRAME '\1aMOVE-ARG>
5234                     <PUSH TEM6>
5235                     <DEAD TEM6>
5236                     <PUSH W5>
5237                     <DEAD W5>
5238                     <CALL '\1aMOVE-ARG 2 = TEMP9>
5239                     <RETURN TEMP9>
5240                     <DEAD TEMP9>
5241                     <END \1aFSETG-GEN>
5242 #WORD *22732552753*
5243 <GFCN \1aCHTYPE-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
5244                     <TEMP TYP6 TEMP12 N7:NODE N2-8 TEMP19 TEMP20 TT10>
5245                     <INTGO>
5246                     <FRAME '\1aISTYPE?>
5247                     <NTHUV NOD4 3 = STACK>
5248                     <CALL '\1aISTYPE? 1 = TYP6>
5249                     <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
5250                     <NTHL TEMP12 1 = N7 (TYPE NODE)>
5251                     <DEAD TEMP12>
5252                     <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE14>
5253                     <NTHUV NOD4 2 = TEMP12>
5254                     <TYPE? TEMP12 <TYPE-CODE NODE> - PHRASE14>
5255                     <DEAD TEMP12>
5256                     <NTHUV NOD4 2 = TEMP12 (TYPE NODE)>
5257                     <NTHUV TEMP12 1 = TEMP12 (TYPE FIX)>
5258                     <GVAL 'CHTYPE-FOR-FREE = TEMP19>
5259                     <EMPUV? TEMP19 + PHRASE14>
5260                     <LOOP (TEMP12 VALUE) (TEMP19 LENGTH VALUE)>
5261 TAG17
5262                     <NTHUV TEMP19 1 = TEMP20>
5263                     <VEQUAL? TEMP20 TEMP12 + TAG16>
5264                     <DEAD TEMP20>
5265                     <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
5266                     <EMPUV? TEMP19 - TAG17>
5267                     <JUMP + PHRASE14>
5268 TAG16
5269                     <GVAL 'POP-STACK = TEMP19>
5270                     <EQUAL? TEMP19 WHERE5 + BOOL21>
5271                     <DEAD TEMP19>
5272                     <EQUAL? WHERE5 'DONT-CARE - PHRASE14>
5273 BOOL21
5274                     <FRAME '\1aGEN>
5275                     <PUSH N7>
5276                     <DEAD N7>
5277                     <PUSH WHERE5>
5278                     <DEAD WHERE5>
5279                     <CALL '\1aGEN 2 = TEMP19>
5280                     <RETURN TEMP19>
5281                     <DEAD TEMP19>
5282 PHRASE14
5283                     <FRAME '\1aGEN>
5284                     <PUSH N7>
5285                     <DEAD N7>
5286                     <CALL '\1aGEN 1 = TEMP19>
5287                     <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
5288                     <EMPL? TEMP12 + PHRASE26>
5289                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
5290                     <EMPL? TEMP12 + PHRASE26>
5291                     <DEAD TEMP12>
5292                     <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
5293                     <DEAD NOD4>
5294                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
5295                     <NTHL TEMP12 1 = N2-8 (TYPE NODE)>
5296                     <DEAD TEMP12>
5297                     <NTHUV N2-8 1 = TEMP12 (TYPE FIX)>
5298                     <VEQUAL? TEMP12 2 + PHRASE26 (TYPE FIX)>
5299                     <DEAD TEMP12>
5300                     <FRAME '\1aINTERF-CHANGE>
5301                     <PUSH TEMP19>
5302                     <DEAD TEMP19>
5303                     <PUSH N2-8>
5304                     <CALL '\1aINTERF-CHANGE 2 = TEMP19>
5305                     <FRAME '\1aGEN>
5306                     <NTHUV N2-8 5 = TEMP12 (TYPE LIST)>
5307                     <NTHL TEMP12 1 = STACK (TYPE NODE)>
5308                     <DEAD TEMP12>
5309                     <CALL '\1aGEN 1 = TT10>
5310 PHRASE26
5311                     <EQUAL? WHERE5 'DONT-CARE - PHRASE31>
5312                     <TYPE? TEMP19 <TYPE-CODE TEMP> - PHRASE33>
5313                     <NTHUV TEMP19 2 = TEMP12 (TYPE FIX)>
5314                     <GRTR? TEMP12 1 + PHRASE33 (TYPE FIX)>
5315                     <DEAD TEMP12>
5316                     <FRAME '\1aDEALLOCATE-TEMP>
5317                     <SET WHERE5 TEMP19>
5318                     <PUSH WHERE5>
5319                     <CALL '\1aDEALLOCATE-TEMP 1>
5320                     <FRAME '\1aUSE-TEMP>
5321                     <PUSH TEMP19>
5322                     <PUSH TYP6>
5323                     <CALL '\1aUSE-TEMP 2>
5324                     <JUMP + PHRASE43>
5325 PHRASE33
5326                     <FRAME '\1aGEN-TEMP>
5327                     <SET TEMP12 TYP6>
5328                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE42>
5329                     <SET TEMP12 'ANY (TYPE ATOM)>
5330 PHRASE42
5331                     <PUSH TEMP12>
5332                     <DEAD TEMP12>
5333                     <CALL '\1aGEN-TEMP 1 = WHERE5>
5334                     <JUMP + PHRASE43>
5335 PHRASE31
5336                     <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE43>
5337                     <FRAME '\1aUSE-TEMP>
5338                     <PUSH WHERE5>
5339                     <PUSH TYP6>
5340                     <CALL '\1aUSE-TEMP 2>
5341 PHRASE43
5342                     <TYPE? N2-8 <TYPE-CODE UNBOUND> + PHRASE46>
5343                     <NTHUV N2-8 1 = TEMP12 (TYPE FIX)>
5344                     <DEAD N2-8>
5345                     <VEQUAL? TEMP12 2 + PHRASE46 (TYPE FIX)>
5346                     <DEAD TEMP12>
5347                     <TYPE? TT10 <TYPE-CODE TEMP> + PHRASE49>
5348                     <FRAME '\1aMOVE-ARG>
5349                     <PUSH TT10>
5350                     <DEAD TT10>
5351                     <FRAME '\1aGEN-TEMP>
5352                     <PUSH %<>>
5353                     <CALL '\1aGEN-TEMP 1 = STACK>
5354                     <CALL '\1aMOVE-ARG 2 = TT10>
5355 PHRASE49
5356                     <FRAME '\1aGEN-CHTYPE>
5357                     <PUSH TEMP19>
5358                     <FRAME '\1aFORM>
5359                     <PUSH '`TYPE>
5360                     <NTHUV TT10 1 = STACK (TYPE ATOM)>
5361                     <CALL '\1aFORM 2 = STACK>
5362                     <PUSH WHERE5>
5363                     <CALL '\1aGEN-CHTYPE 3>
5364                     <FRAME '\1aFREE-TEMP>
5365                     <PUSH TT10>
5366                     <DEAD TT10>
5367                     <CALL '\1aFREE-TEMP 1>
5368                     <JUMP + PHRASE55>
5369 PHRASE46
5370                     <FRAME '\1aGEN-CHTYPE>
5371                     <PUSH TEMP19>
5372                     <PUSH TYP6>
5373                     <DEAD TYP6>
5374                     <PUSH WHERE5>
5375                     <CALL '\1aGEN-CHTYPE 3>
5376 PHRASE55
5377                     <EQUAL? TEMP19 WHERE5 + PHRASE58>
5378                     <FRAME '\1aFREE-TEMP>
5379                     <PUSH TEMP19>
5380                     <DEAD TEMP19>
5381                     <CALL '\1aFREE-TEMP 1>
5382 PHRASE58
5383                     <RETURN WHERE5>
5384                     <DEAD WHERE5>
5385                     <END \1aCHTYPE-GEN>
5386 <GDECL (CHTYPE-FOR-FREE) <VECTOR [REST FIX]>>
5387
5388 <SETG CHTYPE-FOR-FREE [,NTH-CODE ,ARITH-CODE ,0-TST-CODE ,1?-CODE ,TEST-CODE ,LNTH-CODE ,MT-CODE ,REST-CODE ,MOD-CODE ,BITS-CODE ,BITL-CODE ,ROT-CODE ,LSH-CODE ,BIT-TEST-CODE]>
5389
5390 " Generate do-nothing piece of code."
5391
5392 #WORD *35222615552*
5393 <GFCN \1aID-GEN ("VALUE" ANY NODE ANY) N4 W5>
5394                     <TEMP TEMP7>
5395                     <INTGO>
5396                     <FRAME '\1aGEN>
5397                     <NTHUV N4 5 = TEMP7 (TYPE LIST)>
5398                     <DEAD N4>
5399                     <NTHL TEMP7 1 = STACK (TYPE NODE)>
5400                     <DEAD TEMP7>
5401                     <PUSH W5>
5402                     <DEAD W5>
5403                     <CALL '\1aGEN 2 = TEMP7>
5404                     <RETURN TEMP7>
5405                     <DEAD TEMP7>
5406                     <END \1aID-GEN>
5407 " Generate call to READ etc. with eof condition."
5408
5409 #WORD *6645521040*
5410 <GFCN \1aREAD2-GEN ("VALUE" ANY NODE ANY) N4 W5>
5411                     <TEMP (I6 0) TEMP14:FIX TMP9 TEMP30 OB31:NODE SPOB7:NODE>
5412                     <INTGO>
5413                     <TYPE? W5 <TYPE-CODE TEMP> - PHRASE12>
5414                     <NTHUV W5 2 = TEMP14 (TYPE FIX)>
5415                     <LESS? TEMP14 1 - PHRASE12 (TYPE FIX)>
5416                     <DEAD TEMP14>
5417                     <SET TMP9 W5>
5418                     <JUMP + PHRASE17>
5419 PHRASE12
5420                     <FRAME '\1aGEN-TEMP>
5421                     <PUSH %<>>
5422                     <CALL '\1aGEN-TEMP 1 = TMP9>
5423 PHRASE17
5424                     <FRAME '\1aSTART-FRAME>
5425                     <NTHUV N4 4 = STACK>
5426                     <CALL '\1aSTART-FRAME 1>
5427                     <NTHUV N4 5 = TEMP30 (TYPE LIST)>
5428                     <LOOP>
5429 MAP21
5430                     <INTGO>
5431                     <EMPL? TEMP30 + MAPAP24>
5432                     <NTHL TEMP30 1 = OB31>
5433                     <NTHUV OB31 1 = TEMP14 (TYPE FIX)>
5434                     <VEQUAL? TEMP14 55 - PHRASE33 (TYPE FIX)>
5435                     <DEAD TEMP14>
5436                     <SET SPOB7 OB31>
5437                     <DEAD OB31>
5438                     <FRAME '\1aCURRENT-FRAME>
5439                     <GVAL 'POP-STACK = STACK>
5440                     <CALL '\1aCURRENT-FRAME 1>
5441                     <JUMP + PHRASE36>
5442 PHRASE33
5443                     <FRAME '\1aGEN>
5444                     <PUSH OB31>
5445                     <DEAD OB31>
5446                     <GVAL 'POP-STACK = STACK>
5447                     <CALL '\1aGEN 2>
5448 PHRASE36
5449                     <ADD I6 1 = I6 (TYPE FIX)>
5450                     <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
5451                     <JUMP + MAP21>
5452 MAPAP24
5453                     <FRAME '\1aUSE-TEMP>
5454                     <PUSH TMP9>
5455                     <CALL '\1aUSE-TEMP 1>
5456                     <FRAME '\1aMSUBR-CALL>
5457                     <NTHUV N4 4 = STACK>
5458                     <DEAD N4>
5459                     <PUSH I6>
5460                     <DEAD I6>
5461                     <PUSH TMP9>
5462                     <CALL '\1aMSUBR-CALL 3>
5463                     <FRAME '\1aGEN-==?>
5464                     <FRAME '\1aCURRENT-FRAME>
5465                     <CALL '\1aCURRENT-FRAME 0 = TEMP30>
5466                     <PUSH TEMP30>
5467                     <PUSH TMP9>
5468                     <PUSH %<>>
5469                     <FRAME '\1aMAKE-TAG>
5470                     <CALL '\1aMAKE-TAG 0 = I6>
5471                     <PUSH I6>
5472                     <CALL '\1aGEN-==? 4>
5473                     <FRAME '\1aFREE-TEMP>
5474                     <PUSH TEMP30>
5475                     <DEAD TEMP30>
5476                     <CALL '\1aFREE-TEMP 1>
5477                     <FRAME '\1aDEALLOCATE-TEMP>
5478                     <PUSH TMP9>
5479                     <CALL '\1aDEALLOCATE-TEMP 1>
5480                     <FRAME '\1aGEN>
5481                     <PUSH SPOB7>
5482                     <DEAD SPOB7>
5483                     <PUSH TMP9>
5484                     <CALL '\1aGEN 2>
5485                     <FRAME '\1aLABEL-TAG>
5486                     <PUSH I6>
5487                     <DEAD I6>
5488                     <CALL '\1aLABEL-TAG 1>
5489                     <FRAME '\1aMOVE-ARG>
5490                     <PUSH TMP9>
5491                     <DEAD TMP9>
5492                     <PUSH W5>
5493                     <DEAD W5>
5494                     <CALL '\1aMOVE-ARG 2 = TEMP30>
5495                     <RETURN TEMP30>
5496                     <DEAD TEMP30>
5497                     <END \1aREAD2-GEN>
5498 #WORD *24635574473*
5499 <GFCN \1aGET-GEN ("VALUE" ANY ANY ANY) N4 W5>
5500                     <TEMP TEMP7>
5501                     <INTGO>
5502                     <FRAME '\1aGETGET>
5503                     <PUSH N4>
5504                     <DEAD N4>
5505                     <PUSH W5>
5506                     <DEAD W5>
5507                     <PUSH 'T>
5508                     <CALL '\1aGETGET 3 = TEMP7>
5509                     <RETURN TEMP7>
5510                     <DEAD TEMP7>
5511                     <END \1aGET-GEN>
5512 #WORD *27225562147*
5513 <GFCN \1aGET2-GEN ("VALUE" ANY ANY ANY) N4 W5>
5514                     <TEMP TEMP7>
5515                     <INTGO>
5516                     <FRAME '\1aGETGET>
5517                     <PUSH N4>
5518                     <DEAD N4>
5519                     <PUSH W5>
5520                     <DEAD W5>
5521                     <PUSH %<>>
5522                     <CALL '\1aGETGET 3 = TEMP7>
5523                     <RETURN TEMP7>
5524                     <DEAD TEMP7>
5525                     <END \1aGET2-GEN>
5526 <GDECL (GETTERS) UVECTOR>
5527
5528 #WORD *34053146022*
5529 <GFCN \1aGETGET ("VALUE" ANY NODE ANY ANY) N4 W5 REV6>
5530                     <TEMP K7:LIST BR8 TEMP16 TMP9>
5531                     <INTGO>
5532                     <NTHUV N4 5 = K7 (TYPE LIST)>
5533                     <FRAME '\1aMAKE-TAG>
5534                     <CALL '\1aMAKE-TAG 0>
5535                     <LENL K7 = BR8 (TYPE FIX)>
5536                     <FRAME '\1aSTART-FRAME>
5537                     <NTHUV N4 4 = STACK>
5538                     <CALL '\1aSTART-FRAME 1>
5539                     <FRAME '\1aGEN>
5540                     <NTHL K7 1 = STACK (TYPE NODE)>
5541                     <GVAL 'POP-STACK = STACK>
5542                     <CALL '\1aGEN 2>
5543                     <FRAME '\1aGEN>
5544                     <RESTL K7 1 = TEMP16 (TYPE LIST)>
5545                     <NTHL TEMP16 1 = STACK (TYPE NODE)>
5546                     <DEAD TEMP16>
5547                     <GVAL 'POP-STACK = STACK>
5548                     <CALL '\1aGEN 2>
5549                     <VEQUAL? BR8 3 - PHRASE18 (TYPE FIX)>
5550                     <FRAME '\1aCURRENT-FRAME>
5551                     <GVAL 'POP-STACK = STACK>
5552                     <CALL '\1aCURRENT-FRAME 1>
5553 PHRASE18
5554                     <FRAME '\1aMSUBR-CALL>
5555                     <NTHUV N4 4 = STACK>
5556                     <DEAD N4>
5557                     <PUSH BR8>
5558                     <TYPE? W5 <TYPE-CODE TEMP> - PHRASE22>
5559                     <LESS? BR8 3 + BOOL24 (TYPE FIX)>
5560                     <NTHUV W5 2 = TEMP16 (TYPE FIX)>
5561                     <LESS? TEMP16 1 - PHRASE22 (TYPE FIX)>
5562                     <DEAD TEMP16>
5563 BOOL24
5564                     <FRAME '\1aUSE-TEMP>
5565                     <SET TMP9 W5>
5566                     <PUSH TMP9>
5567                     <CALL '\1aUSE-TEMP 1 = TEMP16>
5568                     <JUMP + PHRASE28>
5569 PHRASE22
5570                     <FRAME '\1aGEN-TEMP>
5571                     <CALL '\1aGEN-TEMP 0 = TMP9>
5572                     <SET TEMP16 TMP9>
5573 PHRASE28
5574                     <PUSH TEMP16>
5575                     <DEAD TEMP16>
5576                     <CALL '\1aMSUBR-CALL 3>
5577                     <VEQUAL? BR8 3 - PHRASE31 (TYPE FIX)>
5578                     <DEAD BR8>
5579                     <FRAME '\1aGEN-==?>
5580                     <FRAME '\1aCURRENT-FRAME>
5581                     <CALL '\1aCURRENT-FRAME 0 = TEMP16>
5582                     <PUSH TEMP16>
5583                     <PUSH TMP9>
5584                     <PUSH %<>>
5585                     <FRAME '\1aMAKE-TAG>
5586                     <CALL '\1aMAKE-TAG 0 = BR8>
5587                     <PUSH BR8>
5588                     <CALL '\1aGEN-==? 4>
5589                     <FRAME '\1aFREE-TEMP>
5590                     <PUSH TEMP16>
5591                     <DEAD TEMP16>
5592                     <CALL '\1aFREE-TEMP 1>
5593                     <TYPE? REV6 <TYPE-CODE FALSE> + PHRASE37>
5594                     <DEAD REV6>
5595                     <FRAME '\1aSTART-FRAME>
5596                     <PUSH 'EVAL>
5597                     <CALL '\1aSTART-FRAME 1>
5598                     <FRAME '\1aGEN>
5599                     <RESTL K7 1 = TEMP16 (TYPE LIST)>
5600                     <DEAD K7>
5601                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
5602                     <NTHL TEMP16 1 = STACK (TYPE NODE)>
5603                     <DEAD TEMP16>
5604                     <GVAL 'POP-STACK = STACK>
5605                     <CALL '\1aGEN 2>
5606                     <FRAME '\1aDEALLOCATE-TEMP>
5607                     <FRAME '\1aMSUBR-CALL>
5608                     <PUSH 'EVAL>
5609                     <PUSH 1>
5610                     <PUSH TMP9>
5611                     <CALL '\1aMSUBR-CALL 3 = STACK>
5612                     <CALL '\1aDEALLOCATE-TEMP 1>
5613                     <JUMP + PHRASE42>
5614 PHRASE37
5615                     <FRAME '\1aDEALLOCATE-TEMP>
5616                     <FRAME '\1aGEN>
5617                     <RESTL K7 1 = TEMP16 (TYPE LIST)>
5618                     <DEAD K7>
5619                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
5620                     <NTHL TEMP16 1 = STACK (TYPE NODE)>
5621                     <DEAD TEMP16>
5622                     <PUSH TMP9>
5623                     <CALL '\1aGEN 2 = STACK>
5624                     <CALL '\1aDEALLOCATE-TEMP 1>
5625 PHRASE42
5626                     <FRAME '\1aLABEL-TAG>
5627                     <PUSH BR8>
5628                     <DEAD BR8>
5629                     <CALL '\1aLABEL-TAG 1>
5630 PHRASE31
5631                     <FRAME '\1aMOVE-ARG>
5632                     <PUSH TMP9>
5633                     <DEAD TMP9>
5634                     <PUSH W5>
5635                     <DEAD W5>
5636                     <CALL '\1aMOVE-ARG 2 = TEMP16>
5637                     <RETURN TEMP16>
5638                     <DEAD TEMP16>
5639                     <END \1aGETGET>
5640 '<SETG GETTERS [,GET ,GETL ,GETPROP ,GETPL]>
5641
5642 <SETG STACK-INS [`CALL `UBLOCK `LIST `SYSCALL]>
5643
5644 <GDECL (STACK-INS) <VECTOR [REST ATOM]>>
5645
5646 #WORD *30216441117*
5647 <GFCN \1aCALL-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NOTF10 B11 D12>
5648                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
5649 OPT4
5650                     <PUSH %<>>
5651 OPT5
5652                     <PUSH %<>>
5653 OPT6
5654                     <PUSH %<>>
5655 OPT7
5656                     <TEMP K13:LIST TEMP23 INS14 (ON-STACK17 %<>) COUNTMP18 SEGTMP19 INS1-21 (REC?22 %<>) TEMP33 TEMP66 TEMP79 N81 TEMP85>
5657                     <INTGO>
5658                     <NTHUV NOD8 5 = K13 (TYPE LIST)>
5659                     <NTHL K13 1 = TEMP23 (TYPE NODE)>
5660                     <NTHUV TEMP23 4 = INS14>
5661                     <DEAD TEMP23>
5662                     <TYPE? NOTF10 <TYPE-CODE FALSE> + TAG27>
5663                     <DEAD NOTF10>
5664                     <TYPE? D12 <TYPE-CODE FALSE> - TAG26>
5665                     <DEAD D12>
5666                     <SET D12 'T (TYPE ATOM)>
5667                     <JUMP + TAG27>
5668 TAG26
5669                     <SET D12 %<> (TYPE FALSE)>
5670 TAG27
5671                     <GVAL 'STACK-INS = TEMP23>
5672                     <TYPE? INS14 <TYPE-CODE ATOM> - PHRASE52>
5673                     <EMPUV? TEMP23 + PHRASE52>
5674                     <LOOP (INS14 VALUE) (TEMP23 LENGTH VALUE)>
5675 TAG31
5676                     <NTHUV TEMP23 1 = TEMP33>
5677                     <VEQUAL? TEMP33 INS14 + TAG30>
5678                     <DEAD TEMP33>
5679                     <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
5680                     <EMPUV? TEMP23 - TAG31>
5681                     <JUMP + PHRASE52>
5682 TAG30
5683                     <SET ON-STACK17 'T (TYPE ATOM)>
5684                     <EQUAL? INS14 '`CALL + BOOL36>
5685                     <EQUAL? INS14 '`SCALL - PHRASE35>
5686 BOOL36
5687                     <RESTL K13 1 = TEMP23 (TYPE LIST)>
5688                     <NTHL TEMP23 1 = INS1-21 (TYPE NODE)>
5689                     <DEAD TEMP23>
5690                     <NTHUV INS1-21 1 = TEMP23 (TYPE FIX)>
5691                     <VEQUAL? TEMP23 2 - PHRASE38 (TYPE FIX)>
5692                     <DEAD TEMP23>
5693                     <NTHUV INS1-21 4 = TEMP23>
5694                     <TYPE? TEMP23 <TYPE-CODE ATOM> - PHRASE38>
5695                     <DEAD TEMP23>
5696                     <FRAME '\1aIEMIT>
5697                     <EQUAL? INS14 '`CALL - PHRASE42>
5698                     <SET TEMP23 '`FRAME (TYPE ATOM)>
5699                     <JUMP + PHRASE43>
5700 PHRASE42
5701                     <SET TEMP23 '`SFRAME (TYPE ATOM)>
5702 PHRASE43
5703                     <PUSH TEMP23>
5704                     <DEAD TEMP23>
5705                     <FRAME '\1aFORM>
5706                     <PUSH 'QUOTE>
5707                     <NTHUV INS1-21 4 = TEMP23 (TYPE ATOM)>
5708                     <DEAD INS1-21>
5709                     <CHTYPE TEMP23 <TYPE-CODE FCN-ATOM> = INS1-21>
5710                     <DEAD TEMP23>
5711                     <PUSH INS1-21>
5712                     <CALL '\1aFORM 2 = STACK>
5713                     <CALL '\1aIEMIT 2>
5714                     <FRAME '\1aFORM>
5715                     <PUSH 'QUOTE>
5716                     <PUSH INS1-21>
5717                     <DEAD INS1-21>
5718                     <CALL '\1aFORM 2 = INS1-21>
5719                     <JUMP + PHRASE46>
5720 PHRASE38
5721                     <FRAME '\1aIEMIT>
5722                     <EQUAL? INS14 '`CALL - PHRASE49>
5723                     <SET TEMP23 '`FRAME (TYPE ATOM)>
5724                     <JUMP + PHRASE50>
5725 PHRASE49
5726                     <SET TEMP23 '`SFRAME (TYPE ATOM)>
5727 PHRASE50
5728                     <PUSH TEMP23>
5729                     <DEAD TEMP23>
5730                     <CALL '\1aIEMIT 1>
5731                     <FRAME '\1aGEN>
5732                     <PUSH INS1-21>
5733                     <DEAD INS1-21>
5734                     <CALL '\1aGEN 1 = INS1-21>
5735 PHRASE46
5736                     <RESTL K13 1 = K13 (TYPE LIST)>
5737                     <JUMP + PHRASE52>
5738 PHRASE35
5739                     <EQUAL? INS14 '`SYSCALL - PHRASE52>
5740                     <FRAME '\1aGEN>
5741                     <RESTL K13 1 = TEMP23 (TYPE LIST)>
5742                     <NTHL TEMP23 1 = STACK (TYPE NODE)>
5743                     <DEAD TEMP23>
5744                     <CALL '\1aGEN 1 = INS1-21>
5745                     <RESTL K13 1 = K13 (TYPE LIST)>
5746 PHRASE52
5747                     <FRAME '\1aGETPROP>
5748                     <PUSH INS14>
5749                     <PUSH '`RECORD-TYPE>
5750                     <CALL '\1aGETPROP 2 = TEMP23>
5751                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE55>
5752                     <DEAD TEMP23>
5753                     <SET REC?22 'T (TYPE ATOM)>
5754 PHRASE55
5755                     <SET TEMP23 0 (TYPE FIX)>
5756                     <RESTL K13 1 = TEMP66 (TYPE LIST)>
5757                     <LOOP>
5758 MAP58
5759                     <INTGO>
5760                     <EMPL? TEMP66 + MAPAP61>
5761                     <NTHL TEMP66 1 = TEMP33>
5762                     <NTHUV TEMP33 1 = TEMP33 (TYPE FIX)>
5763                     <VEQUAL? TEMP33 3 - PHRASE69 (TYPE FIX)>
5764                     <DEAD TEMP33>
5765                     <SET TEMP33 0 (TYPE FIX)>
5766                     <JUMP + PHRASE71>
5767 PHRASE69
5768                     <SET TEMP33 1 (TYPE FIX)>
5769 PHRASE71
5770                     <ADD TEMP23 TEMP33 = TEMP23>
5771                     <DEAD TEMP33>
5772                     <RESTL TEMP66 1 = TEMP66 (TYPE LIST)>
5773                     <JUMP + MAP58>
5774 MAPAP61
5775                     <SET TEMP66 TEMP23>
5776                     <DEAD TEMP23>
5777                     <SET TEMP33 () (TYPE LIST)>
5778                     <SET TEMP23 () (TYPE LIST)>
5779                     <RESTL K13 1 = TEMP79 (TYPE LIST)>
5780                     <DEAD K13>
5781                     <LOOP>
5782 MAP73
5783                     <INTGO>
5784                     <EMPL? TEMP79 + MAPAP76>
5785                     <SET K13 TEMP79>
5786                     <NTHL K13 1 = N81 (TYPE NODE)>
5787                     <NTHUV N81 1 = TEMP85 (TYPE FIX)>
5788                     <VEQUAL? TEMP85 3 - PHRASE84 (TYPE FIX)>
5789                     <DEAD TEMP85>
5790                     <TYPE? SEGTMP19 <TYPE-CODE UNBOUND> - PHRASE87>
5791                     <FRAME '\1aGEN-TEMP>
5792                     <PUSH %<>>
5793                     <CALL '\1aGEN-TEMP 1 = SEGTMP19>
5794                     <FRAME '\1aGEN-TEMP>
5795                     <PUSH %<>>
5796                     <CALL '\1aGEN-TEMP 1 = COUNTMP18>
5797                     <FRAME '\1aSET-TEMP>
5798                     <PUSH COUNTMP18>
5799                     <PUSH TEMP66>
5800                     <PUSH (`TYPE FIX)>
5801                     <CALL '\1aSET-TEMP 3>
5802 PHRASE87
5803                     <FRAME '\1aGEN>
5804                     <NTHUV N81 5 = TEMP85 (TYPE LIST)>
5805                     <NTHL TEMP85 1 = STACK (TYPE NODE)>
5806                     <DEAD TEMP85>
5807                     <PUSH SEGTMP19>
5808                     <CALL '\1aGEN 2>
5809                     <FRAME '\1aSEGMENT-STACK>
5810                     <PUSH SEGTMP19>
5811                     <PUSH COUNTMP18>
5812                     <FRAME '\1aSTRUCTYP>
5813                     <NTHUV N81 5 = TEMP85 (TYPE LIST)>
5814                     <NTHL TEMP85 1 = TEMP85 (TYPE NODE)>
5815                     <NTHUV TEMP85 3 = STACK>
5816                     <DEAD TEMP85>
5817                     <CALL '\1aSTRUCTYP 1 = STACK>
5818                     <FRAME '\1aISTYPE?>
5819                     <NTHUV N81 5 = TEMP85 (TYPE LIST)>
5820                     <DEAD N81>
5821                     <NTHL TEMP85 1 = TEMP85 (TYPE NODE)>
5822                     <NTHUV TEMP85 3 = STACK>
5823                     <DEAD TEMP85>
5824                     <CALL '\1aISTYPE? 1 = STACK>
5825                     <CALL '\1aSEGMENT-STACK 4 = TEMP85>
5826                     <JUMP + MAPAP107>
5827 PHRASE84
5828                     <FRAME '\1aGEN>
5829                     <PUSH N81>
5830                     <DEAD N81>
5831                     <VEQUAL? ON-STACK17 0 + PHRASE98>
5832                     <GVAL 'POP-STACK = N81>
5833                     <JUMP + PHRASE100>
5834 PHRASE98
5835                     <SET N81 'DONT-CARE (TYPE ATOM)>
5836 PHRASE100
5837                     <PUSH N81>
5838                     <DEAD N81>
5839                     <CALL '\1aGEN 2 = TEMP85>
5840                     <VEQUAL? ON-STACK17 0 - MAPAP107>
5841                     <RESTL K13 1 = K13 (TYPE LIST)>
5842                     <LOOP>
5843 MAP104
5844                     <INTGO>
5845                     <EMPL? K13 + MAPAP107>
5846                     <NTHL K13 1 = N81>
5847                     <FRAME '\1aINTERF-CHANGE>
5848                     <PUSH TEMP85>
5849                     <DEAD TEMP85>
5850                     <PUSH N81>
5851                     <DEAD N81>
5852                     <CALL '\1aINTERF-CHANGE 2 = TEMP85>
5853                     <RESTL K13 1 = K13 (TYPE LIST)>
5854                     <JUMP + MAP104>
5855 MAPAP107
5856                     <CONS TEMP85 () = TEMP85 (TYPE LIST)>
5857                     <EMPL? TEMP33 - TAG116>
5858                     <SET TEMP33 TEMP85 (TYPE LIST)>
5859                     <JUMP + TAG117>
5860 TAG116
5861                     <PUTREST TEMP23 TEMP85>
5862                     <DEAD TEMP23>
5863 TAG117
5864                     <SET TEMP23 TEMP85 (TYPE LIST)>
5865                     <DEAD TEMP85>
5866                     <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
5867                     <JUMP + MAP73>
5868 MAPAP76
5869                     <VEQUAL? ON-STACK17 0 - MAPAP124>
5870                     <SET TEMP79 TEMP33 (TYPE LIST)>
5871                     <LOOP>
5872 MAP121
5873                     <INTGO>
5874                     <EMPL? TEMP79 + MAPAP124>
5875                     <NTHL TEMP79 1 = TEMP23>
5876                     <FRAME '\1aFREE-TEMP>
5877                     <PUSH TEMP23>
5878                     <DEAD TEMP23>
5879                     <PUSH %<>>
5880                     <CALL '\1aFREE-TEMP 2>
5881                     <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
5882                     <JUMP + MAP121>
5883 MAPAP124
5884                     <EQUAL? WHERE9 'FLUSHED + BOOL131>
5885                     <NTHUV NOD8 3 = TEMP79>
5886                     <EQUAL? TEMP79 'NO-RETURN - PHRASE130>
5887                     <DEAD TEMP79>
5888 BOOL131
5889                     <VEQUAL? ON-STACK17 0 + PHRASE133>
5890                     <DEAD ON-STACK17>
5891                     <TYPE? INS1-21 <TYPE-CODE UNBOUND> + PHRASE135>
5892                     <FRAME '\1aIEMIT>
5893                     <PUSH INS14>
5894                     <DEAD INS14>
5895                     <PUSH INS1-21>
5896                     <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE138>
5897                     <SET TEMP79 COUNTMP18>
5898                     <DEAD COUNTMP18>
5899                     <JUMP + PHRASE139>
5900 PHRASE138
5901                     <SET TEMP79 TEMP66>
5902                     <DEAD TEMP66>
5903 PHRASE139
5904                     <PUSH TEMP79>
5905                     <DEAD TEMP79>
5906                     <CALL '\1aIEMIT 3>
5907                     <FRAME '\1aFREE-TEMP>
5908                     <PUSH INS1-21>
5909                     <DEAD INS1-21>
5910                     <CALL '\1aFREE-TEMP 1>
5911                     <JUMP + PHRASE153>
5912 PHRASE135
5913                     <FRAME '\1aIEMIT>
5914                     <PUSH INS14>
5915                     <DEAD INS14>
5916                     <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE144>
5917                     <SET TEMP79 COUNTMP18>
5918                     <DEAD COUNTMP18>
5919                     <JUMP + PHRASE145>
5920 PHRASE144
5921                     <SET TEMP79 TEMP66>
5922                     <DEAD TEMP66>
5923 PHRASE145
5924                     <PUSH TEMP79>
5925                     <DEAD TEMP79>
5926                     <CALL '\1aIEMIT 2>
5927                     <JUMP + PHRASE153>
5928 PHRASE133
5929                     <TYPE? B11 <TYPE-CODE FALSE> + PHRASE146>
5930                     <FRAME '\1aIEMIT>
5931                     <PUSH INS14>
5932                     <DEAD INS14>
5933                     <SET TEMP23 3 (TYPE FIX)>
5934                     <SET TEMP79 TEMP33>
5935                     <DEAD TEMP33>
5936                     <LOOP (TEMP79 VALUE) (TEMP23 VALUE)>
5937 TAG148
5938                     <INTGO>
5939                     <EMPL? TEMP79 + TAG147>
5940                     <NTHL TEMP79 1 = STACK>
5941                     <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
5942                     <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
5943                     <JUMP + TAG148>
5944 TAG147
5945                     <TYPE? D12 <TYPE-CODE FALSE> + PHRASE151>
5946                     <DEAD D12>
5947                     <SET TEMP85 '+ (TYPE ATOM)>
5948                     <JUMP + PHRASE152>
5949 PHRASE151
5950                     <SET TEMP85 '- (TYPE ATOM)>
5951 PHRASE152
5952                     <PUSH TEMP85>
5953                     <DEAD TEMP85>
5954                     <PUSH B11>
5955                     <DEAD B11>
5956                     <CALL '\1aIEMIT TEMP23>
5957                     <DEAD TEMP23>
5958                     <JUMP + PHRASE153>
5959 PHRASE146
5960                     <FRAME '\1aIEMIT>
5961                     <PUSH INS14>
5962                     <DEAD INS14>
5963                     <SET TEMP79 1 (TYPE FIX)>
5964                     <SET TEMP23 TEMP33>
5965                     <DEAD TEMP33>
5966                     <LOOP (TEMP23 VALUE) (TEMP79 VALUE)>
5967 TAG155
5968                     <INTGO>
5969                     <EMPL? TEMP23 + TAG154>
5970                     <NTHL TEMP23 1 = STACK>
5971                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
5972                     <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
5973                     <JUMP + TAG155>
5974 TAG154
5975                     <CALL '\1aIEMIT TEMP79>
5976                     <DEAD TEMP79>
5977 PHRASE153
5978                     <GVAL 'NO-DATUM = WHERE9>
5979                     <RETURN WHERE9>
5980                     <DEAD WHERE9>
5981 PHRASE130
5982                     <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE159>
5983                     <FRAME '\1aFREE-TEMP>
5984                     <PUSH COUNTMP18>
5985                     <PUSH %<>>
5986                     <CALL '\1aFREE-TEMP 2>
5987                     <FRAME '\1aFREE-TEMP>
5988                     <PUSH SEGTMP19>
5989                     <DEAD SEGTMP19>
5990                     <PUSH %<>>
5991                     <CALL '\1aFREE-TEMP 2>
5992 PHRASE159
5993                     <EQUAL? WHERE9 'DONT-CARE - PHRASE163>
5994                     <FRAME '\1aGEN-TEMP>
5995                     <NTHUV NOD8 3 = STACK>
5996                     <DEAD NOD8>
5997                     <CALL '\1aGEN-TEMP 1 = WHERE9>
5998                     <JUMP + PHRASE165>
5999 PHRASE163
6000                     <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE165>
6001                     <FRAME '\1aUSE-TEMP>
6002                     <PUSH WHERE9>
6003                     <NTHUV NOD8 3 = STACK>
6004                     <DEAD NOD8>
6005                     <CALL '\1aUSE-TEMP 2>
6006 PHRASE165
6007                     <VEQUAL? ON-STACK17 0 + PHRASE168>
6008                     <DEAD ON-STACK17>
6009                     <TYPE? INS1-21 <TYPE-CODE UNBOUND> + PHRASE170>
6010                     <FRAME '\1aIEMIT>
6011                     <PUSH INS14>
6012                     <DEAD INS14>
6013                     <PUSH INS1-21>
6014                     <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE173>
6015                     <SET TEMP79 COUNTMP18>
6016                     <DEAD COUNTMP18>
6017                     <JUMP + PHRASE174>
6018 PHRASE173
6019                     <SET TEMP79 TEMP66>
6020                     <DEAD TEMP66>
6021 PHRASE174
6022                     <PUSH TEMP79>
6023                     <DEAD TEMP79>
6024                     <PUSH '=>
6025                     <PUSH WHERE9>
6026                     <CALL '\1aIEMIT 5>
6027                     <FRAME '\1aFREE-TEMP>
6028                     <PUSH INS1-21>
6029                     <DEAD INS1-21>
6030                     <CALL '\1aFREE-TEMP 1>
6031                     <RETURN WHERE9>
6032                     <DEAD WHERE9>
6033 PHRASE170
6034                     <FRAME '\1aIEMIT>
6035                     <PUSH INS14>
6036                     <DEAD INS14>
6037                     <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE179>
6038                     <SET TEMP79 COUNTMP18>
6039                     <DEAD COUNTMP18>
6040                     <JUMP + PHRASE180>
6041 PHRASE179
6042                     <SET TEMP79 TEMP66>
6043                     <DEAD TEMP66>
6044 PHRASE180
6045                     <PUSH TEMP79>
6046                     <DEAD TEMP79>
6047                     <PUSH '=>
6048                     <PUSH WHERE9>
6049                     <CALL '\1aIEMIT 4>
6050                     <RETURN WHERE9>
6051                     <DEAD WHERE9>
6052 PHRASE168
6053                     <VEQUAL? REC?22 0 + PHRASE181>
6054                     <DEAD REC?22>
6055                     <SET ON-STACK17 TEMP33>
6056                     <EMPL? ON-STACK17 + COMPERR>
6057                     <LOOP (ON-STACK17 VALUE)>
6058 TAG183
6059                     <RESTL ON-STACK17 1 = TEMP79 (TYPE LIST)>
6060                     <EMPL? TEMP79 + TAG184>
6061                     <SET ON-STACK17 TEMP79>
6062                     <DEAD TEMP79>
6063                     <JUMP + TAG183>
6064 TAG184
6065                     <NTHL ON-STACK17 1 = ON-STACK17>
6066                     <TYPE? ON-STACK17 <TYPE-CODE LIST> - PHRASE181>
6067                     <EMPL? ON-STACK17 + PHRASE181>
6068                     <RESTL ON-STACK17 1 = COUNTMP18 (TYPE LIST)>
6069                     <EMPL? COUNTMP18 + PHRASE181>
6070                     <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
6071                     <EMPL? COUNTMP18 - PHRASE181>
6072                     <DEAD COUNTMP18>
6073                     <NTHL ON-STACK17 1 = COUNTMP18 (TYPE ATOM)>
6074                     <NTHR COUNTMP18 3 = COUNTMP18 (RECORD-TYPE ATOM)>
6075                     <IFCAN "STRING-EQUAL?">
6076                     <STRING-EQUAL? COUNTMP18 "RECORD-TYPE" - PHRASE181>
6077                     <ENDIF "STRING-EQUAL?">
6078                     <IFCANNOT "STRING-EQUAL?">
6079                     <SET TEMP79 "RECORD-TYPE" (TYPE STRING)>
6080                     <LENUS COUNTMP18 = TEMP23 (TYPE FIX)>
6081                     <VEQUAL? TEMP23 11 - PHRASE181>
6082                     <LOOP (COUNTMP18 VALUE LENGTH) (TEMP79 VALUE LENGTH) (TEMP23 VALUE)>
6083 TAG186
6084                     <NTHUS COUNTMP18 1 = TEMP85>
6085                     <NTHUS TEMP79 1 = SEGTMP19>
6086                     <VEQUAL? TEMP85 SEGTMP19 - PHRASE181>
6087                     <DEAD TEMP85 SEGTMP19>
6088                     <RESTUS COUNTMP18 1 = COUNTMP18 (TYPE STRING)>
6089                     <RESTUS TEMP79 1 = TEMP79 (TYPE STRING)>
6090                     <SUB TEMP23 1 = TEMP23 (TYPE FIX)>
6091                     <GRTR? TEMP23 0 + TAG186 (TYPE FIX)>
6092                     <ENDIF "STRING-EQUAL?">
6093                     <EMPL? TEMP33 + PHRASE188>
6094                     <RESTL TEMP33 1 = TEMP79 (TYPE LIST)>
6095                     <EMPL? TEMP79 - PHRASE188>
6096                     <DEAD TEMP79>
6097                     <SET TEMP33 () (TYPE LIST)>
6098                     <JUMP + PHRASE189>
6099 PHRASE188
6100                     <LENL TEMP33 = TEMP79 (TYPE FIX)>
6101                     <SUB TEMP79 2 = TEMP79 (TYPE FIX)>
6102                     <SET COUNTMP18 TEMP33>
6103                     <GRTR? TEMP79 0 - RESTL191 (TYPE FIX)>
6104                     <LOOP (COUNTMP18 VALUE) (TEMP79 VALUE)>
6105 RESTL190
6106                     <INTGO>
6107                     <EMPL? COUNTMP18 + COMPERR>
6108                     <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
6109                     <SUB TEMP79 1 = TEMP79 (TYPE FIX)>
6110                     <GRTR? TEMP79 0 + RESTL190 (TYPE FIX)>
6111 RESTL191
6112                     <EMPL? COUNTMP18 + COMPERR>
6113                     <PUTREST COUNTMP18 ()>
6114                     <DEAD COUNTMP18>
6115 PHRASE189
6116                     <FRAME '\1aIEMIT>
6117                     <PUSH INS14>
6118                     <DEAD INS14>
6119                     <SET TEMP79 4 (TYPE FIX)>
6120                     <SET COUNTMP18 TEMP33>
6121                     <DEAD TEMP33>
6122                     <LOOP (COUNTMP18 VALUE) (TEMP79 VALUE)>
6123 TAG193
6124                     <INTGO>
6125                     <EMPL? COUNTMP18 + TAG192>
6126                     <NTHL COUNTMP18 1 = STACK>
6127                     <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
6128                     <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
6129                     <JUMP + TAG193>
6130 TAG192
6131                     <PUSH '=>
6132                     <PUSH WHERE9>
6133                     <PUSH ON-STACK17>
6134                     <DEAD ON-STACK17>
6135                     <CALL '\1aIEMIT TEMP79>
6136                     <DEAD TEMP79>
6137                     <RETURN WHERE9>
6138                     <DEAD WHERE9>
6139 PHRASE181
6140                     <TYPE? B11 <TYPE-CODE FALSE> + PHRASE195>
6141                     <FRAME '\1aIEMIT>
6142                     <PUSH INS14>
6143                     <DEAD INS14>
6144                     <SET COUNTMP18 5 (TYPE FIX)>
6145                     <SET TEMP79 TEMP33>
6146                     <DEAD TEMP33>
6147                     <LOOP (TEMP79 VALUE) (COUNTMP18 VALUE)>
6148 TAG197
6149                     <INTGO>
6150                     <EMPL? TEMP79 + TAG196>
6151                     <NTHL TEMP79 1 = STACK>
6152                     <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
6153                     <ADD COUNTMP18 1 = COUNTMP18 (TYPE FIX)>
6154                     <JUMP + TAG197>
6155 TAG196
6156                     <PUSH '=>
6157                     <PUSH WHERE9>
6158                     <TYPE? D12 <TYPE-CODE FALSE> + PHRASE200>
6159                     <DEAD D12>
6160                     <SET SEGTMP19 '+ (TYPE ATOM)>
6161                     <JUMP + PHRASE201>
6162 PHRASE200
6163                     <SET SEGTMP19 '- (TYPE ATOM)>
6164 PHRASE201
6165                     <PUSH SEGTMP19>
6166                     <DEAD SEGTMP19>
6167                     <PUSH B11>
6168                     <DEAD B11>
6169                     <CALL '\1aIEMIT COUNTMP18>
6170                     <DEAD COUNTMP18>
6171                     <RETURN WHERE9>
6172                     <DEAD WHERE9>
6173 PHRASE195
6174                     <FRAME '\1aIEMIT>
6175                     <PUSH INS14>
6176                     <DEAD INS14>
6177                     <SET TEMP79 3 (TYPE FIX)>
6178                     <SET COUNTMP18 TEMP33>
6179                     <DEAD TEMP33>
6180                     <LOOP (COUNTMP18 VALUE) (TEMP79 VALUE)>
6181 TAG204
6182                     <INTGO>
6183                     <EMPL? COUNTMP18 + TAG203>
6184                     <NTHL COUNTMP18 1 = STACK>
6185                     <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
6186                     <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
6187                     <JUMP + TAG204>
6188 TAG203
6189                     <PUSH '=>
6190                     <PUSH WHERE9>
6191                     <CALL '\1aIEMIT TEMP79>
6192                     <DEAD TEMP79>
6193                     <RETURN WHERE9>
6194                     <DEAD WHERE9>
6195                     <END \1aCALL-GEN>\r\r
6196 #WORD *17121462203*
6197 <GFCN \1aCHANNEL-OP-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
6198                     <TEMP CTY6 K7:LIST TEMP10 L8 TEMP17 N22 TEMP26>
6199                     <INTGO>
6200                     <NTHUV NOD4 9 = CTY6>
6201                     <NTHUV NOD4 5 = K7 (TYPE LIST)>
6202                     <SET L8 () (TYPE LIST)>
6203                     <SET TEMP17 () (TYPE LIST)>
6204                     <SET TEMP10 K7 (TYPE LIST)>
6205                     <DEAD K7>
6206                     <LOOP>
6207 MAP12
6208                     <INTGO>
6209                     <EMPL? TEMP10 + MAPAP15>
6210                     <SET K7 TEMP10>
6211                     <NTHL K7 1 = N22 (TYPE NODE)>
6212                     <NTHUV N22 1 = TEMP26 (TYPE FIX)>
6213                     <VEQUAL? TEMP26 2 - PHRASE25 (TYPE FIX)>
6214                     <DEAD TEMP26>
6215                     <NTHUV N22 4 = TEMP26>
6216                     <DEAD N22>
6217                     <TYPE? TEMP26 <TYPE-CODE ATOM> - MAPAP37>
6218                     <FRAME '\1aFORM>
6219                     <PUSH 'QUOTE>
6220                     <PUSH TEMP26>
6221                     <DEAD TEMP26>
6222                     <CALL '\1aFORM 2 = TEMP26>
6223                     <JUMP + MAPAP37>
6224 PHRASE25
6225                     <FRAME '\1aGEN>
6226                     <PUSH N22>
6227                     <DEAD N22>
6228                     <PUSH 'DONT-CARE>
6229                     <CALL '\1aGEN 2 = TEMP26>
6230                     <RESTL K7 1 = K7 (TYPE LIST)>
6231                     <LOOP>
6232 MAP34
6233                     <INTGO>
6234                     <EMPL? K7 + MAPAP37>
6235                     <NTHL K7 1 = N22>
6236                     <FRAME '\1aINTERF-CHANGE>
6237                     <PUSH TEMP26>
6238                     <DEAD TEMP26>
6239                     <PUSH N22>
6240                     <DEAD N22>
6241                     <CALL '\1aINTERF-CHANGE 2 = TEMP26>
6242                     <RESTL K7 1 = K7 (TYPE LIST)>
6243                     <JUMP + MAP34>
6244 MAPAP37
6245                     <CONS TEMP26 () = TEMP26 (TYPE LIST)>
6246                     <EMPL? L8 - TAG47>
6247                     <SET L8 TEMP26 (TYPE LIST)>
6248                     <JUMP + TAG48>
6249 TAG47
6250                     <PUTREST TEMP17 TEMP26>
6251                     <DEAD TEMP17>
6252 TAG48
6253                     <SET TEMP17 TEMP26 (TYPE LIST)>
6254                     <DEAD TEMP26>
6255                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
6256                     <JUMP + MAP12>
6257 MAPAP15
6258                     <SET TEMP10 L8 (TYPE LIST)>
6259                     <LOOP>
6260 MAP50
6261                     <INTGO>
6262                     <EMPL? TEMP10 + MAPAP53>
6263                     <NTHL TEMP10 1 = TEMP17>
6264                     <FRAME '\1aFREE-TEMP>
6265                     <PUSH TEMP17>
6266                     <DEAD TEMP17>
6267                     <PUSH %<>>
6268                     <CALL '\1aFREE-TEMP 2>
6269                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
6270                     <JUMP + MAP50>
6271 MAPAP53
6272                     <EQUAL? WHERE5 'FLUSHED + BOOL60>
6273                     <NTHUV NOD4 3 = TEMP10>
6274                     <EQUAL? TEMP10 'NO-RETURN - PHRASE59>
6275                     <DEAD TEMP10>
6276 BOOL60
6277                     <FRAME '\1aIEMIT>
6278                     <PUSH '`CHANNEL-OP>
6279                     <FRAME '\1aFORM>
6280                     <PUSH 'QUOTE>
6281                     <PUSH CTY6>
6282                     <DEAD CTY6>
6283                     <CALL '\1aFORM 2 = STACK>
6284                     <RESTL L8 1 = K7 (TYPE LIST)>
6285                     <NTHL K7 1 = STACK>
6286                     <DEAD K7>
6287                     <NTHL L8 1 = STACK>
6288                     <SET TEMP10 4 (TYPE FIX)>
6289                     <RESTL L8 1 = K7 (TYPE LIST)>
6290                     <DEAD L8>
6291                     <RESTL K7 1 = K7 (TYPE LIST)>
6292                     <LOOP (K7 VALUE) (TEMP10 VALUE)>
6293 TAG63
6294                     <INTGO>
6295                     <EMPL? K7 + TAG61>
6296                     <NTHL K7 1 = STACK>
6297                     <RESTL K7 1 = K7 (TYPE LIST)>
6298                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
6299                     <JUMP + TAG63>
6300 TAG61
6301                     <CALL '\1aIEMIT TEMP10>
6302                     <DEAD TEMP10>
6303                     <RETURN WHERE5>
6304                     <DEAD WHERE5>
6305 PHRASE59
6306                     <EQUAL? WHERE5 'DONT-CARE - PHRASE67>
6307                     <FRAME '\1aGEN-TEMP>
6308                     <NTHUV NOD4 3 = STACK>
6309                     <DEAD NOD4>
6310                     <CALL '\1aGEN-TEMP 1 = WHERE5>
6311                     <JUMP + PHRASE69>
6312 PHRASE67
6313                     <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE69>
6314                     <FRAME '\1aUSE-TEMP>
6315                     <PUSH WHERE5>
6316                     <NTHUV NOD4 3 = STACK>
6317                     <DEAD NOD4>
6318                     <CALL '\1aUSE-TEMP 2>
6319 PHRASE69
6320                     <FRAME '\1aIEMIT>
6321                     <PUSH '`CHANNEL-OP>
6322                     <FRAME '\1aFORM>
6323                     <PUSH 'QUOTE>
6324                     <PUSH CTY6>
6325                     <DEAD CTY6>
6326                     <CALL '\1aFORM 2 = STACK>
6327                     <RESTL L8 1 = K7 (TYPE LIST)>
6328                     <NTHL K7 1 = STACK>
6329                     <DEAD K7>
6330                     <NTHL L8 1 = STACK>
6331                     <SET TEMP10 6 (TYPE FIX)>
6332                     <RESTL L8 1 = K7 (TYPE LIST)>
6333                     <DEAD L8>
6334                     <RESTL K7 1 = K7 (TYPE LIST)>
6335                     <LOOP (K7 VALUE) (TEMP10 VALUE)>
6336 TAG73
6337                     <INTGO>
6338                     <EMPL? K7 + TAG71>
6339                     <NTHL K7 1 = STACK>
6340                     <RESTL K7 1 = K7 (TYPE LIST)>
6341                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
6342                     <JUMP + TAG73>
6343 TAG71
6344                     <PUSH '=>
6345                     <PUSH WHERE5>
6346                     <CALL '\1aIEMIT TEMP10>
6347                     <DEAD TEMP10>
6348                     <RETURN WHERE5>
6349                     <DEAD WHERE5>
6350                     <END \1aCHANNEL-OP-GEN>
6351 #WORD *3140570026*
6352 <GFCN \1aSMSUBR-CALL ("VALUE" ANY ANY ANY ANY "OPTIONAL" ANY ANY) SUBRC7 NARGS8 WHERE9 STACK?10 SLNT11>
6353                     <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
6354 OPT4
6355                     <PUSH %<>>
6356 OPT5
6357                     <PUSH %<>>
6358 OPT6
6359                     <TEMP W12 TEMP24 TEMP72>
6360                     <INTGO>
6361                     <EQUAL? SUBRC7 'STRING - PHRASE14>
6362                     <TYPE? SLNT11 <TYPE-CODE FALSE> - PHRASE14>
6363                     <TYPE? STACK?10 <TYPE-CODE FALSE> + PHRASE14>
6364                     <TYPE? WHERE9 <TYPE-CODE TEMP> + PHRASE14>
6365                     <FRAME '\1aGEN-TEMP>
6366                     <PUSH 'STRING>
6367                     <CALL '\1aGEN-TEMP 1 = W12>
6368                     <JUMP + PHRASE17>
6369 PHRASE14
6370                     <SET W12 WHERE9>
6371 PHRASE17
6372                     <EQUAL? SUBRC7 'VECTOR + BOOL20>
6373                     <EQUAL? SUBRC7 'UVECTOR + BOOL20>
6374                     <EQUAL? SUBRC7 'STRING + BOOL20>
6375                     <EQUAL? SUBRC7 'BYTES + BOOL20>
6376                     <EQUAL? SUBRC7 'TUPLE - PHRASE19>
6377 BOOL20
6378                     <FRAME '\1aIEMIT>
6379                     <TYPE? STACK?10 <TYPE-CODE FALSE> + PHRASE23>
6380                     <SET TEMP24 '`SBLOCK (TYPE ATOM)>
6381                     <JUMP + PHRASE25>
6382 PHRASE23
6383                     <SET TEMP24 '`UBLOCK (TYPE ATOM)>
6384 PHRASE25
6385                     <PUSH TEMP24>
6386                     <DEAD TEMP24>
6387                     <FRAME '\1aFORM>
6388                     <PUSH '`TYPE-CODE>
6389                     <PUSH SUBRC7>
6390                     <CALL '\1aFORM 2 = STACK>
6391                     <PUSH NARGS8>
6392                     <PUSH '=>
6393                     <PUSH W12>
6394                     <CONS SUBRC7 () = TEMP24>
6395                     <CONS '`TYPE TEMP24 = STACK>
6396                     <DEAD TEMP24>
6397                     <CALL '\1aIEMIT 6>
6398                     <TYPE? STACK?10 <TYPE-CODE FALSE> + PHRASE85>
6399                     <DEAD STACK?10>
6400                     <TYPE? NARGS8 <TYPE-CODE TEMP> + BOOL31>
6401                     <TYPE? SLNT11 <TYPE-CODE FALSE> - PHRASE30>
6402                     <EQUAL? SUBRC7 'STRING - PHRASE30>
6403                     <FRAME '\1aGEN-TEMP>
6404                     <PUSH 'FIX>
6405                     <CALL '\1aGEN-TEMP 1 = NARGS8>
6406 BOOL31
6407                     <EQUAL? SUBRC7 'VECTOR + BOOL36>
6408                     <EQUAL? SUBRC7 'TUPLE - PHRASE35>
6409 BOOL36
6410                     <FRAME '\1aIEMIT>
6411                     <PUSH '`DIV>
6412                     <PUSH NARGS8>
6413                     <PUSH 2>
6414                     <PUSH '=>
6415                     <PUSH NARGS8>
6416                     <CALL '\1aIEMIT 5>
6417                     <JUMP + PHRASE41>
6418 PHRASE35
6419                     <EQUAL? SUBRC7 'BYTES - PHRASE38>
6420                     <FRAME '\1aIEMIT>
6421                     <PUSH '`ADD>
6422                     <PUSH NARGS8>
6423                     <PUSH 3>
6424                     <PUSH '=.NARGS>
6425                     <CALL '\1aIEMIT 4>
6426                     <FRAME '\1aIEMIT>
6427                     <PUSH '`DIV>
6428                     <PUSH NARGS8>
6429                     <PUSH 4>
6430                     <PUSH '=>
6431                     <PUSH NARGS8>
6432                     <CALL '\1aIEMIT 5>
6433                     <JUMP + PHRASE41>
6434 PHRASE38
6435                     <EQUAL? SUBRC7 'STRING - PHRASE41>
6436                     <DEAD SUBRC7>
6437                     <FRAME '\1aIEMIT>
6438                     <PUSH '`LENUS>
6439                     <PUSH W12>
6440                     <PUSH '=>
6441                     <PUSH NARGS8>
6442                     <CALL '\1aIEMIT 4>
6443                     <FRAME '\1aIEMIT>
6444                     <PUSH '`IFSYS>
6445                     <PUSH "TOPS20">
6446                     <CALL '\1aIEMIT 2>
6447                     <FRAME '\1aIEMIT>
6448                     <PUSH '`ADD>
6449                     <PUSH NARGS8>
6450                     <PUSH 4>
6451                     <PUSH '=>
6452                     <PUSH NARGS8>
6453                     <CALL '\1aIEMIT 5>
6454                     <FRAME '\1aIEMIT>
6455                     <PUSH '`DIV>
6456                     <PUSH NARGS8>
6457                     <PUSH 5>
6458                     <PUSH '=>
6459                     <PUSH NARGS8>
6460                     <CALL '\1aIEMIT 5>
6461                     <FRAME '\1aIEMIT>
6462                     <PUSH '`ENDIF>
6463                     <PUSH "TOPS20">
6464                     <CALL '\1aIEMIT 2>
6465                     <FRAME '\1aIEMIT>
6466                     <PUSH '`IFSYS>
6467                     <PUSH "UNIX">
6468                     <CALL '\1aIEMIT 2>
6469                     <FRAME '\1aIEMIT>
6470                     <PUSH '`ADD>
6471                     <PUSH NARGS8>
6472                     <PUSH 3>
6473                     <PUSH '=>
6474                     <PUSH NARGS8>
6475                     <CALL '\1aIEMIT 5>
6476                     <FRAME '\1aIEMIT>
6477                     <PUSH '`DIV>
6478                     <PUSH NARGS8>
6479                     <PUSH 4>
6480                     <PUSH '=>
6481                     <PUSH NARGS8>
6482                     <CALL '\1aIEMIT 5>
6483                     <FRAME '\1aIEMIT>
6484                     <PUSH '`ENDIF>
6485                     <PUSH "UNIX">
6486                     <CALL '\1aIEMIT 2>
6487 PHRASE41
6488                     <FRAME '\1aFREE-TEMP>
6489                     <PUSH NARGS8>
6490                     <PUSH %<>>
6491                     <CALL '\1aFREE-TEMP 2>
6492                     <GEN-ASSIGNED? 'STKTMP - PHRASE53>
6493                     <FRAME '\1aIEMIT>
6494                     <PUSH '`SUB>
6495                     <GEN-LVAL 'STKTMP = STACK>
6496                     <PUSH NARGS8>
6497                     <DEAD NARGS8>
6498                     <PUSH '=>
6499                     <GEN-LVAL 'STKTMP = STACK>
6500                     <CALL '\1aIEMIT 5>
6501                     <JUMP + PHRASE61>
6502 PHRASE53
6503                     <FRAME '\1aIEMIT>
6504                     <PUSH '`SUB>
6505                     <PUSH 0>
6506                     <PUSH NARGS8>
6507                     <DEAD NARGS8>
6508                     <PUSH '=>
6509                     <FRAME '\1aGEN-TEMP>
6510                     <PUSH 'FIX>
6511                     <CALL '\1aGEN-TEMP 1 = TEMP24>
6512                     <GEN-SET 'STKTMP TEMP24>
6513                     <PUSH TEMP24>
6514                     <DEAD TEMP24>
6515                     <CALL '\1aIEMIT 5>
6516 PHRASE61
6517                     <GEN-LVAL 'STK = TEMP24>
6518                     <ADD TEMP24 2 = TEMP24 (TYPE FIX)>
6519                     <GEN-SET 'STK TEMP24>
6520                     <DEAD TEMP24>
6521                     <JUMP + PHRASE85>
6522 PHRASE30
6523                     <EQUAL? SUBRC7 'STRING - PHRASE71>
6524                     <ADD SLNT11 4 = TEMP24 (TYPE FIX)>
6525                     <DIV TEMP24 5 = TEMP24 (TYPE FIX)>
6526                     <GEN-LVAL 'STK-CHARS7 = TEMP72>
6527                     <ADD TEMP24 TEMP72 = TEMP24 (TYPE FIX)>
6528                     <DEAD TEMP72>
6529                     <GEN-SET 'STK-CHARS7 TEMP24>
6530                     <DEAD TEMP24>
6531                     <ADD SLNT11 3 = TEMP24 (TYPE FIX)>
6532                     <DEAD SLNT11>
6533                     <DIV TEMP24 4 = TEMP24 (TYPE FIX)>
6534                     <GEN-LVAL 'STK-CHARS8 = TEMP72>
6535                     <ADD TEMP24 TEMP72 = TEMP24 (TYPE FIX)>
6536                     <DEAD TEMP72>
6537                     <GEN-SET 'STK-CHARS8 TEMP24>
6538                     <DEAD TEMP24>
6539                     <GEN-LVAL 'STK = TEMP24>
6540                     <ADD TEMP24 2 = TEMP24 (TYPE FIX)>
6541                     <GEN-SET 'STK TEMP24>
6542                     <DEAD TEMP24>
6543                     <JUMP + PHRASE85>
6544 PHRASE71
6545                     <GEN-LVAL 'STK = TEMP24>
6546                     <EQUAL? SUBRC7 'UVECTOR - PHRASE89>
6547                     <SET TEMP72 NARGS8>
6548                     <DEAD NARGS8>
6549                     <JUMP + PHRASE92>
6550 PHRASE89
6551                     <EQUAL? SUBRC7 'BYTES - PHRASE90>
6552                     <DEAD SUBRC7>
6553                     <ADD NARGS8 3 = TEMP72 (TYPE FIX)>
6554                     <DEAD NARGS8>
6555                     <DIV TEMP72 4 = TEMP72 (TYPE FIX)>
6556                     <JUMP + PHRASE92>
6557 PHRASE90
6558                     <LSH NARGS8 1 = TEMP72 (TYPE FIX)>
6559                     <DEAD NARGS8>
6560 PHRASE92
6561                     <ADD TEMP24 TEMP72 = TEMP24 (TYPE FIX)>
6562                     <DEAD TEMP72>
6563                     <ADD TEMP24 2 = TEMP24 (TYPE FIX)>
6564                     <GEN-SET 'STK TEMP24>
6565                     <DEAD TEMP24>
6566 PHRASE85
6567                     <EQUAL? W12 WHERE9 - TAG97>
6568                     <RETURN %<>>
6569 TAG97
6570                     <FRAME '\1aMOVE-ARG>
6571                     <PUSH W12>
6572                     <DEAD W12>
6573                     <PUSH WHERE9>
6574                     <DEAD WHERE9>
6575                     <CALL '\1aMOVE-ARG 2 = TEMP24>
6576                     <RETURN TEMP24>
6577                     <DEAD TEMP24>
6578 PHRASE19
6579                     <EQUAL? SUBRC7 'LIST - PHRASE99>
6580                     <FRAME '\1aIEMIT>
6581                     <PUSH '`LIST>
6582                     <PUSH NARGS8>
6583                     <DEAD NARGS8>
6584                     <PUSH '=>
6585                     <PUSH WHERE9>
6586                     <DEAD WHERE9>
6587                     <PUSH (`TYPE LIST)>
6588                     <CALL '\1aIEMIT 5 = TEMP24>
6589                     <RETURN TEMP24>
6590                     <DEAD TEMP24>
6591 PHRASE99
6592                     <FRAME '\1aMSUBR-CALL>
6593                     <PUSH SUBRC7>
6594                     <DEAD SUBRC7>
6595                     <PUSH NARGS8>
6596                     <DEAD NARGS8>
6597                     <PUSH WHERE9>
6598                     <DEAD WHERE9>
6599                     <CALL '\1aMSUBR-CALL 3 = TEMP24>
6600                     <RETURN TEMP24>
6601                     <DEAD TEMP24>
6602                     <END \1aSMSUBR-CALL>
6603 #WORD *14421647351*
6604 <GFCN \1aAPPLY-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
6605                     <TEMP K6 TEMP3:LBIND SEGTMP8 TEMP14 TEMP25:FIX TEMP27 N28 TEMP52>
6606                     <INTGO>
6607                     <NTHUV NOD4 5 = K6 (TYPE LIST)>
6608                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
6609                     <BBIND 'COUNTMP 'ANY 'FIX>
6610                     <FRAME '\1aMAKE-TAG>
6611                     <CALL '\1aMAKE-TAG 0 = TEMP14>
6612                     <BBIND 'SEGLABEL 'ANY 'FIX TEMP14>
6613                     <DEAD TEMP14>
6614                     <BBIND 'SEGCALLED 'ANY 'FIX %<>>
6615                     <FRAME '\1aSTART-FRAME>
6616                     <CALL '\1aSTART-FRAME 0>
6617                     <FRAME '\1aGEN>
6618                     <NTHL K6 1 = STACK (TYPE NODE)>
6619                     <CALL '\1aGEN 1 = TEMP14>
6620                     <SET TEMP25 0 (TYPE FIX)>
6621                     <RESTL K6 1 = TEMP27 (TYPE LIST)>
6622                     <LOOP>
6623 MAP18
6624                     <INTGO>
6625                     <EMPL? TEMP27 + MAPAP21>
6626                     <NTHL TEMP27 1 = N28>
6627                     <NTHUV N28 1 = N28 (TYPE FIX)>
6628                     <VEQUAL? N28 3 - PHRASE30 (TYPE FIX)>
6629                     <DEAD N28>
6630                     <SET N28 0 (TYPE FIX)>
6631                     <JUMP + PHRASE32>
6632 PHRASE30
6633                     <SET N28 1 (TYPE FIX)>
6634 PHRASE32
6635                     <ADD TEMP25 N28 = TEMP25>
6636                     <DEAD N28>
6637                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
6638                     <JUMP + MAP18>
6639 MAPAP21
6640                     <RESTL K6 1 = K6 (TYPE LIST)>
6641                     <LOOP>
6642 MAP34
6643                     <INTGO>
6644                     <EMPL? K6 + MAPAP37>
6645                     <NTHL K6 1 = N28>
6646                     <NTHUV N28 1 = TEMP27 (TYPE FIX)>
6647                     <VEQUAL? TEMP27 3 - PHRASE44 (TYPE FIX)>
6648                     <DEAD TEMP27>
6649                     <TYPE? SEGTMP8 <TYPE-CODE UNBOUND> - PHRASE47>
6650                     <FRAME '\1aGEN-TEMP>
6651                     <PUSH %<>>
6652                     <CALL '\1aGEN-TEMP 1 = SEGTMP8>
6653                     <FRAME '\1aGEN-TEMP>
6654                     <PUSH %<>>
6655                     <CALL '\1aGEN-TEMP 1 = TEMP27>
6656                     <NTHR 'COUNTMP 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
6657                     <PUTR TEMP52 1 TEMP27 (RECORD-TYPE LBIND)>
6658                     <DEAD TEMP52 TEMP27>
6659                     <FRAME '\1aSET-TEMP>
6660                     <NTHR 'COUNTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
6661                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
6662                     <DEAD TEMP27>
6663                     <PUSH TEMP25>
6664                     <PUSH (`TYPE FIX)>
6665                     <CALL '\1aSET-TEMP 3>
6666 PHRASE47
6667                     <FRAME '\1aGEN>
6668                     <NTHUV N28 5 = TEMP27 (TYPE LIST)>
6669                     <DEAD N28>
6670                     <NTHL TEMP27 1 = N28 (TYPE NODE)>
6671                     <DEAD TEMP27>
6672                     <PUSH N28>
6673                     <PUSH SEGTMP8>
6674                     <CALL '\1aGEN 2 = TEMP52>
6675                     <GVAL 'NO-DATUM = TEMP27>
6676                     <EQUAL? TEMP27 TEMP52 + PHRASE58>
6677                     <DEAD TEMP27 TEMP52>
6678                     <FRAME '\1aSTRUCTYP-SEG>
6679                     <NTHUV N28 3 = STACK>
6680                     <CALL '\1aSTRUCTYP-SEG 1 = TEMP27>
6681                     <EQUAL? TEMP27 'MULTI + PHRASE58>
6682                     <DEAD TEMP27>
6683                     <FRAME '\1aSEGMENT-STACK>
6684                     <PUSH SEGTMP8>
6685                     <NTHR 'COUNTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
6686                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
6687                     <DEAD TEMP27>
6688                     <FRAME '\1aSTRUCTYP>
6689                     <NTHUV N28 3 = STACK>
6690                     <CALL '\1aSTRUCTYP 1 = STACK>
6691                     <FRAME '\1aISTYPE?>
6692                     <NTHUV N28 3 = STACK>
6693                     <DEAD N28>
6694                     <CALL '\1aISTYPE? 1 = STACK>
6695                     <NTHR 'SEGLABEL 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
6696                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
6697                     <DEAD TEMP27>
6698                     <CALL '\1aSEGMENT-STACK 5>
6699                     <JUMP + PHRASE68>
6700 PHRASE58
6701                     <NTHR 'SEGCALLED 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
6702                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
6703                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE68>
6704                     <DEAD TEMP27>
6705                     <FRAME '\1aLABEL-TAG>
6706                     <NTHR 'SEGLABEL 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
6707                     <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
6708                     <DEAD TEMP27>
6709                     <CALL '\1aLABEL-TAG 1>
6710 PHRASE68
6711                     <FRAME '\1aMAKE-TAG>
6712                     <CALL '\1aMAKE-TAG 0 = TEMP27>
6713                     <NTHR 'SEGLABEL 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
6714                     <PUTR TEMP52 1 TEMP27 (RECORD-TYPE LBIND)>
6715                     <DEAD TEMP52 TEMP27>
6716                     <JUMP + PHRASE77>
6717 PHRASE44
6718                     <FRAME '\1aGEN>
6719                     <PUSH N28>
6720                     <DEAD N28>
6721                     <GVAL 'POP-STACK = STACK>
6722                     <CALL '\1aGEN 2>
6723 PHRASE77
6724                     <RESTL K6 1 = K6 (TYPE LIST)>
6725                     <JUMP + MAP34>
6726 MAPAP37
6727                     <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6728                     <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
6729                     <TYPE? K6 <TYPE-CODE UNBOUND> + PHRASE80>
6730                     <DEAD K6>
6731                     <FRAME '\1aFREE-TEMP>
6732                     <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6733                     <NTHR K6 1 = STACK (RECORD-TYPE LBIND)>
6734                     <DEAD K6>
6735                     <PUSH %<>>
6736                     <CALL '\1aFREE-TEMP 2>
6737                     <FRAME '\1aFREE-TEMP>
6738                     <PUSH SEGTMP8>
6739                     <DEAD SEGTMP8>
6740                     <PUSH %<>>
6741                     <CALL '\1aFREE-TEMP 2>
6742 PHRASE80
6743                     <EQUAL? WHERE5 'FLUSHED + BOOL87>
6744                     <NTHUV NOD4 3 = K6>
6745                     <EQUAL? K6 'NO-RETURN - PHRASE86>
6746                     <DEAD K6>
6747 BOOL87
6748                     <FRAME '\1aIEMIT>
6749                     <PUSH '`ACALL>
6750                     <PUSH TEMP14>
6751                     <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6752                     <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
6753                     <TYPE? K6 <TYPE-CODE UNBOUND> + PHRASE90>
6754                     <DEAD K6>
6755                     <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6756                     <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
6757                     <JUMP + PHRASE93>
6758 PHRASE90
6759                     <SET K6 TEMP25>
6760                     <DEAD TEMP25>
6761 PHRASE93
6762                     <PUSH K6>
6763                     <DEAD K6>
6764                     <CALL '\1aIEMIT 3>
6765                     <FRAME '\1aFREE-TEMP>
6766                     <PUSH TEMP14>
6767                     <DEAD TEMP14>
6768                     <CALL '\1aFREE-TEMP 1>
6769                     <JUMP + PHRASE95>
6770 PHRASE86
6771                     <EQUAL? WHERE5 'DONT-CARE - PHRASE97>
6772                     <FRAME '\1aGEN-TEMP>
6773                     <NTHUV NOD4 3 = STACK>
6774                     <DEAD NOD4>
6775                     <CALL '\1aGEN-TEMP 1 = WHERE5>
6776                     <JUMP + PHRASE99>
6777 PHRASE97
6778                     <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE99>
6779                     <FRAME '\1aUSE-TEMP>
6780                     <PUSH WHERE5>
6781                     <NTHUV NOD4 3 = STACK>
6782                     <DEAD NOD4>
6783                     <CALL '\1aUSE-TEMP 2>
6784 PHRASE99
6785                     <FRAME '\1aIEMIT>
6786                     <PUSH '`ACALL>
6787                     <PUSH TEMP14>
6788                     <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6789                     <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
6790                     <TYPE? K6 <TYPE-CODE UNBOUND> + PHRASE103>
6791                     <DEAD K6>
6792                     <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6793                     <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
6794                     <JUMP + PHRASE106>
6795 PHRASE103
6796                     <SET K6 TEMP25>
6797                     <DEAD TEMP25>
6798 PHRASE106
6799                     <PUSH K6>
6800                     <DEAD K6>
6801                     <PUSH '=>
6802                     <PUSH WHERE5>
6803                     <CALL '\1aIEMIT 5>
6804                     <FRAME '\1aFREE-TEMP>
6805                     <PUSH TEMP14>
6806                     <DEAD TEMP14>
6807                     <CALL '\1aFREE-TEMP 1>
6808 PHRASE95
6809                     <UNBIND TEMP3>
6810                     <DEAD TEMP3>
6811                     <ADJ -27>
6812                     <RETURN WHERE5>
6813                     <DEAD WHERE5>
6814                     <END \1aAPPLY-GEN>
6815 #WORD *27307232206*
6816 <GFCN \1aUNWIND-GEN ("VALUE" ANY NODE ANY) N4 W5>
6817                     <TEMP UNBRANCH6 NOUNWIND7 TEMP15 K1-8:NODE K2-9:NODE LBL12:TEMP>
6818                     <INTGO>
6819                     <FRAME '\1aMAKE-TAG>
6820                     <CALL '\1aMAKE-TAG 0 = UNBRANCH6>
6821                     <FRAME '\1aMAKE-TAG>
6822                     <CALL '\1aMAKE-TAG 0 = NOUNWIND7>
6823                     <NTHUV N4 5 = TEMP15 (TYPE LIST)>
6824                     <NTHL TEMP15 1 = K1-8 (TYPE NODE)>
6825                     <DEAD TEMP15>
6826                     <NTHUV N4 5 = TEMP15 (TYPE LIST)>
6827                     <DEAD N4>
6828                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
6829                     <NTHL TEMP15 1 = K2-9 (TYPE NODE)>
6830                     <DEAD TEMP15>
6831                     <GEN-SET 'SPECD 'T>
6832                     <FRAME '\1aIEMIT>
6833                     <PUSH '`LOCATION>
6834                     <PUSH '+>
6835                     <PUSH UNBRANCH6>
6836                     <PUSH '=>
6837                     <FRAME '\1aGEN-TEMP>
6838                     <CALL '\1aGEN-TEMP 0 = LBL12>
6839                     <PUSH LBL12>
6840                     <CALL '\1aIEMIT 5>
6841                     <FRAME '\1aIEMIT>
6842                     <PUSH '`BBIND>
6843                     <FRAME '\1aFORM>
6844                     <PUSH 'QUOTE>
6845                     <PUSH 'UNWIND>
6846                     <CALL '\1aFORM 2 = STACK>
6847                     <PUSH LBL12>
6848                     <FRAME '\1aFORM>
6849                     <PUSH 'QUOTE>
6850                     <PUSH 'FIX>
6851                     <CALL '\1aFORM 2 = STACK>
6852                     <FRAME '\1aCURRENT-FRAME>
6853                     <CALL '\1aCURRENT-FRAME 0 = STACK>
6854                     <CALL '\1aIEMIT 5>
6855                     <GEN-LVAL 'STK = TEMP15>
6856                     <ADD TEMP15 9 = TEMP15 (TYPE FIX)>
6857                     <GEN-SET 'STK TEMP15>
6858                     <DEAD TEMP15>
6859                     <FRAME '\1aGEN>
6860                     <PUSH K1-8>
6861                     <DEAD K1-8>
6862                     <PUSH W5>
6863                     <DEAD W5>
6864                     <CALL '\1aGEN 2 = TEMP15>
6865                     <FRAME '\1aSET-VALUE>
6866                     <PUSH 'UNWIND>
6867                     <PUSH 0>
6868                     <CALL '\1aSET-VALUE 2>
6869                     <FRAME '\1aFREE-TEMP>
6870                     <PUSH LBL12>
6871                     <DEAD LBL12>
6872                     <CALL '\1aFREE-TEMP 1>
6873                     <FRAME '\1aBRANCH-TAG>
6874                     <PUSH NOUNWIND7>
6875                     <CALL '\1aBRANCH-TAG 1>
6876                     <FRAME '\1aLABEL-TAG>
6877                     <PUSH UNBRANCH6>
6878                     <DEAD UNBRANCH6>
6879                     <CALL '\1aLABEL-TAG 1>
6880                     <FRAME '\1aGEN>
6881                     <PUSH K2-9>
6882                     <DEAD K2-9>
6883                     <PUSH 'FLUSHED>
6884                     <CALL '\1aGEN 2>
6885                     <FRAME '\1aBRANCH-TAG>
6886                     <PUSH '`UNWCONT>
6887                     <CALL '\1aBRANCH-TAG 1>
6888                     <FRAME '\1aLABEL-TAG>
6889                     <PUSH NOUNWIND7>
6890                     <DEAD NOUNWIND7>
6891                     <CALL '\1aLABEL-TAG 1>
6892                     <RETURN TEMP15>
6893                     <DEAD TEMP15>
6894                     <END \1aUNWIND-GEN>
6895 #WORD *35460403210*
6896 <GFCN \1aINTERFERE? ("VALUE" <OR ATOM FALSE> TEMP NODE) TMP4 N5>
6897                     <TEMP TEMP9 TEMP8 TEMP28>
6898                     <INTGO>
6899                     <LENUV N5 = TEMP9 (TYPE FIX)>
6900                     <LESS? TEMP9 8 - TAG10 (TYPE FIX)>
6901                     <DEAD TEMP9>
6902                     <RETURN %<>>
6903 TAG10
6904                     <NTHUV N5 8 = TEMP9>
6905                     <DEAD N5>
6906                     <SET TEMP8 TEMP9>
6907                     <TYPE? TEMP8 <TYPE-CODE FALSE> + MAPAP15>
6908                     <SET TEMP8 %<> (TYPE FALSE)>
6909                     <LOOP>
6910 MAP12
6911                     <INTGO>
6912                     <EMPL? TEMP9 + MAPAP15>
6913                     <NTHL TEMP9 1 = TEMP8>
6914                     <TYPE? TEMP8 <TYPE-CODE NODE> + TAG26>
6915                     <SET TEMP8 %<> (TYPE FALSE)>
6916                     <JUMP + PHRASE24>
6917 TAG26
6918                     <NTHUV TEMP8 1 = TEMP28 (TYPE FIX)>
6919                     <VEQUAL? TEMP28 11 + TAG29 (TYPE FIX)>
6920                     <DEAD TEMP28>
6921                     <SET TEMP8 %<> (TYPE FALSE)>
6922                     <JUMP + PHRASE24>
6923 TAG29
6924                     <NTHUV TEMP8 4 = TEMP8 (TYPE SYMTAB)>
6925                     <NTHUV TEMP8 3 = TEMP28>
6926                     <TYPE? TEMP28 <TYPE-CODE FALSE> + TAG30>
6927                     <DEAD TEMP28>
6928                     <SET TEMP8 %<> (TYPE FALSE)>
6929                     <JUMP + PHRASE24>
6930 TAG30
6931                     <NTHUV TEMP8 4 = TEMP28 (TYPE FIX)>
6932                     <VEQUAL? TEMP28 -1 - TAG31 (TYPE FIX)>
6933                     <DEAD TEMP28>
6934                     <SET TEMP8 %<> (TYPE FALSE)>
6935                     <JUMP + PHRASE24>
6936 TAG31
6937                     <NTHUV TEMP8 10 = TEMP28>
6938                     <DEAD TEMP8>
6939                     <EQUAL? TEMP28 TMP4 + TAG34>
6940                     <DEAD TEMP28>
6941                     <SET TEMP8 %<> (TYPE FALSE)>
6942                     <JUMP + PHRASE24>
6943 TAG34
6944                     <RETURN 'T>
6945 PHRASE24
6946                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
6947                     <JUMP + MAP12>
6948 MAPAP15
6949                     <RETURN TEMP8>
6950                     <DEAD TEMP8>
6951                     <END \1aINTERFERE?>
6952 #WORD *14205407060*
6953 <GFCN \1aINTERF-CHANGE ("VALUE" ANY ANY NODE) TMP4 N5>
6954                     <TEMP TEMP10>
6955                     <INTGO>
6956                     <TYPE? TMP4 <TYPE-CODE TEMP> - PHRASE7>
6957                     <FRAME '\1aINTERFERE?>
6958                     <PUSH TMP4>
6959                     <PUSH N5>
6960                     <DEAD N5>
6961                     <CALL '\1aINTERFERE? 2 = TEMP10>
6962                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE7>
6963                     <DEAD TEMP10>
6964                     <FRAME '\1aMOVE-ARG>
6965                     <PUSH TMP4>
6966                     <DEAD TMP4>
6967                     <FRAME '\1aGEN-TEMP>
6968                     <PUSH %<>>
6969                     <CALL '\1aGEN-TEMP 1 = STACK>
6970                     <CALL '\1aMOVE-ARG 2 = TEMP10>
6971                     <RETURN TEMP10>
6972                     <DEAD TEMP10>
6973 PHRASE7
6974                     <RETURN TMP4>
6975                     <DEAD TMP4>
6976                     <END \1aINTERF-CHANGE>
6977 #WORD *22271431000*
6978 <GFCN \1aADECL-GEN ("VALUE" ANY ANY ANY) NOD4 WHERE5>
6979                     <TEMP TEMP7>
6980                     <INTGO>
6981                     <NTHUV NOD4 5 = TEMP7 (TYPE LIST)>
6982                     <DEAD NOD4>
6983                     <NTHL TEMP7 1 = TEMP7 (TYPE NODE)>
6984                     <FRAME '\1aGEN>
6985                     <PUSH TEMP7>
6986                     <DEAD TEMP7>
6987                     <PUSH WHERE5>
6988                     <DEAD WHERE5>
6989                     <CALL '\1aGEN 2 = TEMP7>
6990                     <RETURN TEMP7>
6991                     <DEAD TEMP7>
6992                     <END \1aADECL-GEN>
6993 #WORD *23517101420*
6994 <GFCN \1aSTACK-GEN ("VALUE" ANY ANY ANY) N4 W5>
6995                     <TEMP TEMP7>
6996                     <INTGO>
6997                     <FRAME '\1aGEN>
6998                     <NTHUV N4 5 = TEMP7 (TYPE LIST)>
6999                     <DEAD N4>
7000                     <NTHL TEMP7 1 = STACK (TYPE NODE)>
7001                     <DEAD TEMP7>
7002                     <PUSH W5>
7003                     <DEAD W5>
7004                     <CALL '\1aGEN 2 = TEMP7>
7005                     <RETURN TEMP7>
7006                     <DEAD TEMP7>
7007                     <END \1aSTACK-GEN>
7008 "ILIST, IVECTOR, IUVECTOR AND ISTRING."
7009
7010 #WORD *20251716512*
7011 <GFCN \1aISTRUC-GEN ("VALUE" ANY NODE ANY) N4 W5>
7012                     <TEMP NAM6 K7 NT8 LEN9 TY11 (CALL-EV22 %<>) (GEN-EACH-TIME23 %<>) X24 TEMP41 REST-INS27 PUT-INS26 EMP-INS25:ATOM EL-TMP14 EL10:NODE EV-TMP15 STR2-20:TEMP>
7013                     <INTGO>
7014                     <NTHUV N4 4 = NAM6>
7015                     <NTHUV N4 5 = K7 (TYPE LIST)>
7016                     <NTHL K7 1 = LEN9 (TYPE NODE)>
7017                     <NTHUV N4 3 = TY11>
7018                     <FRAME '\1aISTYPE?>
7019                     <PUSH TY11>
7020                     <DEAD TY11>
7021                     <CALL '\1aISTYPE? 1 = TY11>
7022                     <NTHUV N4 2 = X24>
7023                     <TYPE? X24 <TYPE-CODE NODE> + TAG38>
7024                     <SET X24 %<> (TYPE FALSE)>
7025                     <JUMP + TAG48>
7026 TAG38
7027                     <NTHUV X24 1 = TEMP41 (TYPE FIX)>
7028                     <VEQUAL? TEMP41 98 - TAG42 (TYPE FIX)>
7029                     <DEAD TEMP41>
7030                     <SET X24 'T (TYPE ATOM)>
7031                     <JUMP + TAG48>
7032 TAG42
7033                     <NTHUV X24 1 = TEMP41 (TYPE FIX)>
7034                     <VEQUAL? TEMP41 37 + TAG44 (TYPE FIX)>
7035                     <DEAD TEMP41>
7036                     <SET X24 %<> (TYPE FALSE)>
7037                     <JUMP + TAG48>
7038 TAG44
7039                     <NTHUV X24 2 = X24>
7040                     <TYPE? X24 <TYPE-CODE NODE> + TAG45>
7041                     <SET X24 %<> (TYPE FALSE)>
7042                     <JUMP + TAG48>
7043 TAG45
7044                     <NTHUV X24 1 = TEMP41 (TYPE FIX)>
7045                     <DEAD X24>
7046                     <VEQUAL? TEMP41 98 - TAG47 (TYPE FIX)>
7047                     <DEAD TEMP41>
7048                     <SET X24 'T (TYPE ATOM)>
7049                     <JUMP + TAG48>
7050 TAG47
7051                     <SET X24 %<> (TYPE FALSE)>
7052 TAG48
7053                     <EQUAL? NAM6 'ITUPLE - PHRASE50>
7054                     <SET X24 'T (TYPE ATOM)>
7055 PHRASE50
7056                     <EMPL? K7 + PHRASE52>
7057                     <RESTL K7 1 = TEMP41 (TYPE LIST)>
7058                     <EMPL? TEMP41 - PHRASE52>
7059                     <DEAD TEMP41>
7060                     <EQUAL? NAM6 'ILIST + PHRASE52>
7061                     <FRAME '\1aIEMIT>
7062                     <TYPE? X24 <TYPE-CODE FALSE> + PHRASE56>
7063                     <SET TEMP41 '`USBLOCK (TYPE ATOM)>
7064                     <JUMP + PHRASE57>
7065 PHRASE56
7066                     <SET TEMP41 '`UUBLOCK (TYPE ATOM)>
7067 PHRASE57
7068                     <PUSH TEMP41>
7069                     <DEAD TEMP41>
7070                     <FRAME '\1aFORM>
7071                     <PUSH '`TYPE-CODE>
7072                     <PUSH TY11>
7073                     <CALL '\1aFORM 2 = STACK>
7074                     <FRAME '\1aGEN>
7075                     <PUSH LEN9>
7076                     <DEAD LEN9>
7077                     <PUSH 'DONT-CARE>
7078                     <CALL '\1aGEN 2 = K7>
7079                     <PUSH K7>
7080                     <PUSH '=>
7081                     <TYPE? W5 <TYPE-CODE TEMP> - PHRASE61>
7082                     <FRAME '\1aUSE-TEMP>
7083                     <PUSH W5>
7084                     <PUSH TY11>
7085                     <CALL '\1aUSE-TEMP 2>
7086                     <SET TEMP41 W5>
7087                     <JUMP + PHRASE67>
7088 PHRASE61
7089                     <EQUAL? W5 'DONT-CARE - PHRASE63>
7090                     <FRAME '\1aGEN-TEMP>
7091                     <SET NT8 TY11>
7092                     <TYPE? NT8 <TYPE-CODE FALSE> - COND65>
7093                     <SET NT8 'ANY (TYPE ATOM)>
7094 COND65
7095                     <PUSH NT8>
7096                     <DEAD NT8>
7097                     <CALL '\1aGEN-TEMP 1 = W5>
7098                     <SET TEMP41 W5>
7099                     <JUMP + PHRASE67>
7100 PHRASE63
7101                     <SET TEMP41 W5>
7102 PHRASE67
7103                     <PUSH TEMP41>
7104                     <DEAD TEMP41>
7105                     <CONS TY11 () = TEMP41>
7106                     <DEAD TY11>
7107                     <CONS '`TYPE TEMP41 = STACK>
7108                     <DEAD TEMP41>
7109                     <CALL '\1aIEMIT 6>
7110                     <TYPE? X24 <TYPE-CODE FALSE> - PHRASE71>
7111                     <FRAME '\1aFREE-TEMP>
7112                     <PUSH K7>
7113                     <CALL '\1aFREE-TEMP 1>
7114                     <JUMP + PHRASE71>
7115 PHRASE52
7116                     <EQUAL? NAM6 'IVECTOR + BOOL74>
7117                     <EQUAL? NAM6 'ITUPLE - PHRASE73>
7118 BOOL74
7119                     <SET REST-INS27 '`RESTUV (TYPE ATOM)>
7120                     <SET PUT-INS26 '`PUTUV (TYPE ATOM)>
7121                     <SET EMP-INS25 '`EMPUV? (TYPE ATOM)>
7122                     <JUMP + PHRASE78>
7123 PHRASE73
7124                     <EQUAL? NAM6 'IUVECTOR - PHRASE75>
7125                     <SET REST-INS27 '`RESTUU (TYPE ATOM)>
7126                     <SET PUT-INS26 '`PUTUU (TYPE ATOM)>
7127                     <SET EMP-INS25 '`EMPUU? (TYPE ATOM)>
7128                     <JUMP + PHRASE78>
7129 PHRASE75
7130                     <EQUAL? NAM6 'ISTRING - PHRASE76>
7131                     <SET REST-INS27 '`RESTUS (TYPE ATOM)>
7132                     <SET PUT-INS26 '`PUTUS (TYPE ATOM)>
7133                     <SET EMP-INS25 '`EMPUS? (TYPE ATOM)>
7134                     <JUMP + PHRASE78>
7135 PHRASE76
7136                     <EQUAL? NAM6 'IBYTES - PHRASE77>
7137                     <SET REST-INS27 '`RESTUB (TYPE ATOM)>
7138                     <SET PUT-INS26 '`PUTUB (TYPE ATOM)>
7139                     <SET EMP-INS25 '`EMPUB? (TYPE ATOM)>
7140                     <JUMP + PHRASE78>
7141 PHRASE77
7142                     <SET REST-INS27 '`RESTL (TYPE ATOM)>
7143                     <SET PUT-INS26 '`PUTL (TYPE ATOM)>
7144                     <SET EMP-INS25 '`EMPL? (TYPE ATOM)>
7145 PHRASE78
7146                     <RESTL K7 1 = TEMP41 (TYPE LIST)>
7147                     <EMPL? TEMP41 - PHRASE80 (TYPE LIST)>
7148                     <DEAD TEMP41>
7149                     <SET EL-TMP14 0 (TYPE FIX)>
7150                     <JUMP + PHRASE91>
7151 PHRASE80
7152                     <NTHUV N4 1 = NT8 (TYPE FIX)>
7153                     <DEAD N4>
7154                     <VEQUAL? NT8 45 - BOOL85 (TYPE FIX)>
7155                     <RESTL K7 1 = TEMP41 (TYPE LIST)>
7156                     <NTHL TEMP41 1 = EL10 (TYPE NODE)>
7157                     <DEAD TEMP41>
7158                     <LENUV EL10 = TEMP41 (TYPE FIX)>
7159                     <LESS? TEMP41 8 + BOOL82 (TYPE FIX)>
7160                     <DEAD TEMP41>
7161                     <NTHUV EL10 8 = TEMP41>
7162                     <TYPE? TEMP41 <TYPE-CODE FALSE> - BOOL85>
7163                     <DEAD TEMP41>
7164                     <NTHUV EL10 1 = TEMP41 (TYPE FIX)>
7165                     <VEQUAL? TEMP41 15 + BOOL85 (TYPE FIX)>
7166                     <VEQUAL? TEMP41 37 + BOOL85 (TYPE FIX)>
7167                     <VEQUAL? TEMP41 44 + BOOL85 (TYPE FIX)>
7168                     <VEQUAL? TEMP41 45 - BOOL82 (TYPE FIX)>
7169                     <DEAD TEMP41>
7170 BOOL85
7171                     <VEQUAL? NT8 44 - PHRASE81 (TYPE FIX)>
7172                     <FRAME '\1aTYPE-OK?>
7173                     <RESTL K7 1 = TEMP41 (TYPE LIST)>
7174                     <DEAD K7>
7175                     <NTHL TEMP41 1 = EL10 (TYPE NODE)>
7176                     <DEAD TEMP41>
7177                     <NTHUV EL10 3 = STACK>
7178                     <PUSH <OR FORM LIST VECTOR UVECTOR LVAL GVAL>>
7179                     <CALL '\1aTYPE-OK? 2 = TEMP41>
7180                     <TYPE? TEMP41 <TYPE-CODE FALSE> - PHRASE81>
7181                     <DEAD TEMP41>
7182 BOOL82
7183                     <FRAME '\1aGEN>
7184                     <PUSH EL10>
7185                     <CALL '\1aGEN 1 = EL-TMP14>
7186                     <JUMP + PHRASE91>
7187 PHRASE81
7188                     <VEQUAL? NT8 44 - PHRASE89 (TYPE FIX)>
7189                     <DEAD NT8>
7190                     <FRAME '\1aGEN>
7191                     <PUSH EL10>
7192                     <CALL '\1aGEN 1 = EV-TMP15>
7193                     <SET CALL-EV22 'T (TYPE ATOM)>
7194                     <JUMP + PHRASE91>
7195 PHRASE89
7196                     <SET GEN-EACH-TIME23 'T (TYPE ATOM)>
7197 PHRASE91
7198                     <FRAME '\1aGEN>
7199                     <PUSH LEN9>
7200                     <DEAD LEN9>
7201                     <CALL '\1aGEN 1 = K7>
7202                     <EQUAL? NAM6 'ILIST - PHRASE94>
7203                     <FRAME '\1aIEMIT>
7204                     <PUSH '`SET>
7205                     <TYPE? W5 <TYPE-CODE TEMP> - PHRASE97>
7206                     <FRAME '\1aUSE-TEMP>
7207                     <SET LEN9 W5>
7208                     <PUSH LEN9>
7209                     <PUSH TY11>
7210                     <DEAD TY11>
7211                     <CALL '\1aUSE-TEMP 2 = TEMP41>
7212                     <JUMP + PHRASE99>
7213 PHRASE97
7214                     <FRAME '\1aGEN-TEMP>
7215                     <CALL '\1aGEN-TEMP 0 = LEN9>
7216                     <SET TEMP41 LEN9>
7217 PHRASE99
7218                     <PUSH TEMP41>
7219                     <DEAD TEMP41>
7220                     <PUSH ()>
7221                     <CALL '\1aIEMIT 3>
7222                     <TYPE? K7 <TYPE-CODE FIX> + BOOL103>
7223                     <NTHUV K7 2 = TEMP41 (TYPE FIX)>
7224                     <GRTR? TEMP41 1 - PHRASE102 (TYPE FIX)>
7225                     <DEAD TEMP41>
7226 BOOL103
7227                     <FRAME '\1aIEMIT>
7228                     <PUSH '`SET>
7229                     <FRAME '\1aGEN-TEMP>
7230                     <PUSH 'FIX>
7231                     <CALL '\1aGEN-TEMP 1 = STR2-20>
7232                     <PUSH STR2-20>
7233                     <PUSH K7>
7234                     <DEAD K7>
7235                     <CALL '\1aIEMIT 3>
7236                     <SET K7 STR2-20>
7237                     <DEAD STR2-20>
7238 PHRASE102
7239                     <FRAME '\1aIEMIT>
7240                     <PUSH '`SET>
7241                     <FRAME '\1aGEN-TEMP>
7242                     <PUSH 'LIST>
7243                     <CALL '\1aGEN-TEMP 1 = STR2-20>
7244                     <PUSH STR2-20>
7245                     <PUSH ()>
7246                     <CALL '\1aIEMIT 3>
7247                     <JUMP + PHRASE110>
7248 PHRASE94
7249                     <FRAME '\1aIEMIT>
7250                     <TYPE? X24 <TYPE-CODE FALSE> + PHRASE113>
7251                     <SET TEMP41 '`USBLOCK (TYPE ATOM)>
7252                     <JUMP + PHRASE114>
7253 PHRASE113
7254                     <SET TEMP41 '`UUBLOCK (TYPE ATOM)>
7255 PHRASE114
7256                     <PUSH TEMP41>
7257                     <DEAD TEMP41>
7258                     <FRAME '\1aFORM>
7259                     <PUSH '`TYPE-CODE>
7260                     <PUSH TY11>
7261                     <CALL '\1aFORM 2 = STACK>
7262                     <PUSH K7>
7263                     <PUSH '=>
7264                     <TYPE? W5 <TYPE-CODE TEMP> - PHRASE117>
7265                     <FRAME '\1aUSE-TEMP>
7266                     <SET LEN9 W5>
7267                     <PUSH LEN9>
7268                     <PUSH TY11>
7269                     <DEAD TY11>
7270                     <CALL '\1aUSE-TEMP 2 = TEMP41>
7271                     <JUMP + PHRASE119>
7272 PHRASE117
7273                     <FRAME '\1aGEN-TEMP>
7274                     <CALL '\1aGEN-TEMP 0 = LEN9>
7275                     <SET TEMP41 LEN9>
7276 PHRASE119
7277                     <PUSH TEMP41>
7278                     <DEAD TEMP41>
7279                     <CALL '\1aIEMIT 5>
7280                     <TYPE? X24 <TYPE-CODE FALSE> - PHRASE122>
7281                     <FRAME '\1aFREE-TEMP>
7282                     <PUSH K7>
7283                     <CALL '\1aFREE-TEMP 1>
7284 PHRASE122
7285                     <FRAME '\1aIEMIT>
7286                     <PUSH '`SET>
7287                     <FRAME '\1aGEN-TEMP>
7288                     <CALL '\1aGEN-TEMP 0 = STR2-20>
7289                     <PUSH STR2-20>
7290                     <PUSH LEN9>
7291                     <CALL '\1aIEMIT 3>
7292 PHRASE110
7293                     <FRAME '\1aIEMIT>
7294                     <PUSH '`LOOP>
7295                     <CONS 'LENGTH () = TEMP41>
7296                     <CONS 'VALUE TEMP41 = TEMP41>
7297                     <NTHUV STR2-20 1 = NT8 (TYPE ATOM)>
7298                     <CONS NT8 TEMP41 = STACK>
7299                     <DEAD NT8 TEMP41>
7300                     <SET NT8 2 (TYPE FIX)>
7301                     <VEQUAL? CALL-EV22 0 + PHRASE128>
7302                     <CONS 'LENGTH () = TY11>
7303                     <CONS 'VALUE TY11 = TY11>
7304                     <CONS 'TYPE TY11 = TY11>
7305                     <NTHUV EV-TMP15 1 = TEMP41 (TYPE ATOM)>
7306                     <CONS TEMP41 TY11 = TY11>
7307                     <DEAD TEMP41>
7308                     <CONS TY11 () = TEMP41>
7309                     <DEAD TY11>
7310                     <JUMP + PHRASE133>
7311 PHRASE128
7312                     <VEQUAL? GEN-EACH-TIME23 0 - PHRASE131>
7313                     <TYPE? EL-TMP14 <TYPE-CODE TEMP> - PHRASE131>
7314                     <CONS 'LENGTH () = TY11>
7315                     <CONS 'VALUE TY11 = TY11>
7316                     <CONS 'TYPE TY11 = TY11>
7317                     <NTHUV EL-TMP14 1 = TEMP41 (TYPE ATOM)>
7318                     <CONS TEMP41 TY11 = TY11>
7319                     <DEAD TEMP41>
7320                     <CONS TY11 () = TEMP41>
7321                     <DEAD TY11>
7322                     <JUMP + PHRASE133>
7323 PHRASE131
7324                     <SET TEMP41 () (TYPE LIST)>
7325 PHRASE133
7326                     <LOOP (TEMP41 VALUE) (NT8 VALUE)>
7327 TAG134
7328                     <INTGO>
7329                     <EMPL? TEMP41 + TAG126>
7330                     <NTHL TEMP41 1 = STACK>
7331                     <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
7332                     <ADD NT8 1 = NT8 (TYPE FIX)>
7333                     <JUMP + TAG134>
7334 TAG126
7335                     <EQUAL? NAM6 'ILIST - PHRASE137>
7336                     <CONS 'VALUE () = TY11>
7337                     <NTHUV K7 1 = TEMP41 (TYPE ATOM)>
7338                     <CONS TEMP41 TY11 = TY11>
7339                     <DEAD TEMP41>
7340                     <CONS TY11 () = TEMP41>
7341                     <DEAD TY11>
7342                     <JUMP + PHRASE138>
7343 PHRASE137
7344                     <SET TEMP41 () (TYPE LIST)>
7345 PHRASE138
7346                     <LOOP (TEMP41 VALUE) (NT8 VALUE)>
7347 TAG139
7348                     <INTGO>
7349                     <EMPL? TEMP41 + TAG135>
7350                     <NTHL TEMP41 1 = STACK>
7351                     <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
7352                     <ADD NT8 1 = NT8 (TYPE FIX)>
7353                     <JUMP + TAG139>
7354 TAG135
7355                     <CALL '\1aIEMIT NT8>
7356                     <DEAD NT8>
7357                     <FRAME '\1aLABEL-TAG>
7358                     <FRAME '\1aMAKE-TAG>
7359                     <PUSH "ISTR">
7360                     <CALL '\1aMAKE-TAG 1 = TY11>
7361                     <PUSH TY11>
7362                     <CALL '\1aLABEL-TAG 1>
7363                     <EQUAL? NAM6 'ILIST - PHRASE144>
7364                     <FRAME '\1aIEMIT>
7365                     <PUSH '`VEQUAL?>
7366                     <PUSH K7>
7367                     <PUSH 0>
7368                     <PUSH '+>
7369                     <FRAME '\1aMAKE-TAG>
7370                     <PUSH "ISTRE">
7371                     <CALL '\1aMAKE-TAG 1 = TEMP41>
7372                     <PUSH TEMP41>
7373                     <CALL '\1aIEMIT 5>
7374                     <JUMP + PHRASE147>
7375 PHRASE144
7376                     <FRAME '\1aIEMIT>
7377                     <PUSH EMP-INS25>
7378                     <DEAD EMP-INS25>
7379                     <PUSH STR2-20>
7380                     <PUSH '+>
7381                     <FRAME '\1aMAKE-TAG>
7382                     <PUSH "ISTRE">
7383                     <CALL '\1aMAKE-TAG 1 = TEMP41>
7384                     <PUSH TEMP41>
7385                     <CALL '\1aIEMIT 4>
7386 PHRASE147
7387                     <VEQUAL? CALL-EV22 0 + PHRASE151>
7388                     <FRAME '\1aSTART-FRAME>
7389                     <PUSH 'EVAL>
7390                     <CALL '\1aSTART-FRAME 1>
7391                     <FRAME '\1aPUSH>
7392                     <PUSH EV-TMP15>
7393                     <CALL '\1aPUSH 1>
7394                     <FRAME '\1aMSUBR-CALL>
7395                     <PUSH 'EVAL>
7396                     <PUSH 1>
7397                     <FRAME '\1aGEN-TEMP>
7398                     <CALL '\1aGEN-TEMP 0 = EL-TMP14>
7399                     <PUSH EL-TMP14>
7400                     <CALL '\1aMSUBR-CALL 3>
7401                     <JUMP + PHRASE156>
7402 PHRASE151
7403                     <VEQUAL? GEN-EACH-TIME23 0 + PHRASE156>
7404                     <FRAME '\1aGEN>
7405                     <PUSH EL10>
7406                     <DEAD EL10>
7407                     <CALL '\1aGEN 1 = EL-TMP14>
7408 PHRASE156
7409                     <EQUAL? NAM6 'ILIST - PHRASE159>
7410                     <FRAME '\1aIEMIT>
7411                     <PUSH '`CONS>
7412                     <PUSH EL-TMP14>
7413                     <PUSH ()>
7414                     <PUSH '=>
7415                     <FRAME '\1aGEN-TEMP>
7416                     <PUSH 'LIST>
7417                     <CALL '\1aGEN-TEMP 1 = REST-INS27>
7418                     <PUSH REST-INS27>
7419                     <CALL '\1aIEMIT 5>
7420                     <FRAME '\1aIEMIT>
7421                     <PUSH '`EMPL?>
7422                     <PUSH STR2-20>
7423                     <PUSH '+>
7424                     <FRAME '\1aMAKE-TAG>
7425                     <CALL '\1aMAKE-TAG 0 = NT8>
7426                     <PUSH NT8>
7427                     <CALL '\1aIEMIT 4>
7428                     <FRAME '\1aIEMIT>
7429                     <PUSH '`PUTREST>
7430                     <PUSH STR2-20>
7431                     <PUSH REST-INS27>
7432                     <CALL '\1aIEMIT 3>
7433                     <FRAME '\1aIEMIT>
7434                     <PUSH '`SET>
7435                     <PUSH STR2-20>
7436                     <PUSH REST-INS27>
7437                     <CALL '\1aIEMIT 3>
7438                     <FRAME '\1aBRANCH-TAG>
7439                     <FRAME '\1aMAKE-TAG>
7440                     <CALL '\1aMAKE-TAG 0 = PUT-INS26>
7441                     <PUSH PUT-INS26>
7442                     <CALL '\1aBRANCH-TAG 1>
7443                     <FRAME '\1aLABEL-TAG>
7444                     <PUSH NT8>
7445                     <DEAD NT8>
7446                     <CALL '\1aLABEL-TAG 1>
7447                     <FRAME '\1aIEMIT>
7448                     <PUSH '`SET>
7449                     <PUSH STR2-20>
7450                     <PUSH REST-INS27>
7451                     <CALL '\1aIEMIT 3>
7452                     <FRAME '\1aIEMIT>
7453                     <PUSH '`SET>
7454                     <PUSH LEN9>
7455                     <PUSH REST-INS27>
7456                     <DEAD REST-INS27>
7457                     <CALL '\1aIEMIT 3>
7458                     <FRAME '\1aLABEL-TAG>
7459                     <PUSH PUT-INS26>
7460                     <DEAD PUT-INS26>
7461                     <CALL '\1aLABEL-TAG 1>
7462                     <FRAME '\1aIEMIT>
7463                     <PUSH '`SUB>
7464                     <PUSH K7>
7465                     <PUSH 1>
7466                     <PUSH '=>
7467                     <PUSH K7>
7468                     <CALL '\1aIEMIT 5>
7469                     <JUMP + PHRASE173>
7470 PHRASE159
7471                     <FRAME '\1aIEMIT>
7472                     <PUSH PUT-INS26>
7473                     <DEAD PUT-INS26>
7474                     <PUSH STR2-20>
7475                     <PUSH 1>
7476                     <PUSH EL-TMP14>
7477                     <CALL '\1aIEMIT 4>
7478                     <FRAME '\1aIEMIT>
7479                     <PUSH REST-INS27>
7480                     <DEAD REST-INS27>
7481                     <PUSH STR2-20>
7482                     <PUSH 1>
7483                     <PUSH '=>
7484                     <PUSH STR2-20>
7485                     <CALL '\1aIEMIT 5>
7486 PHRASE173
7487                     <VEQUAL? CALL-EV22 0 - BOOL178>
7488                     <VEQUAL? GEN-EACH-TIME23 0 + PHRASE177>
7489 BOOL178
7490                     <FRAME '\1aFREE-TEMP>
7491                     <PUSH EL-TMP14>
7492                     <CALL '\1aFREE-TEMP 1>
7493 PHRASE177
7494                     <FRAME '\1aBRANCH-TAG>
7495                     <PUSH TY11>
7496                     <DEAD TY11>
7497                     <CALL '\1aBRANCH-TAG 1>
7498                     <FRAME '\1aLABEL-TAG>
7499                     <PUSH TEMP41>
7500                     <DEAD TEMP41>
7501                     <CALL '\1aLABEL-TAG 1>
7502                     <FRAME '\1aFREE-TEMP>
7503                     <PUSH STR2-20>
7504                     <DEAD STR2-20>
7505                     <CALL '\1aFREE-TEMP 1>
7506                     <VEQUAL? CALL-EV22 0 + PHRASE184>
7507                     <DEAD CALL-EV22>
7508                     <FRAME '\1aFREE-TEMP>
7509                     <PUSH EV-TMP15>
7510                     <DEAD EV-TMP15>
7511                     <CALL '\1aFREE-TEMP 1>
7512                     <JUMP + PHRASE186>
7513 PHRASE184
7514                     <VEQUAL? GEN-EACH-TIME23 0 - PHRASE186>
7515                     <DEAD GEN-EACH-TIME23>
7516                     <FRAME '\1aFREE-TEMP>
7517                     <PUSH EL-TMP14>
7518                     <DEAD EL-TMP14>
7519                     <CALL '\1aFREE-TEMP 1>
7520 PHRASE186
7521                     <FRAME '\1aMOVE-ARG>
7522                     <PUSH LEN9>
7523                     <DEAD LEN9>
7524                     <PUSH W5>
7525                     <DEAD W5>
7526                     <CALL '\1aMOVE-ARG 2 = W5>
7527 PHRASE71
7528                     <TYPE? X24 <TYPE-CODE FALSE> + PHRASE251>
7529                     <DEAD X24>
7530                     <TYPE? K7 <TYPE-CODE TEMP> - PHRASE192>
7531                     <EQUAL? NAM6 'IUVECTOR + PHRASE194>
7532                     <NTHUV K7 2 = NT8 (TYPE FIX)>
7533                     <GRTR? NT8 1 - PHRASE194 (TYPE FIX)>
7534                     <DEAD NT8>
7535                     <FRAME '\1aGEN-TEMP>
7536                     <PUSH 'FIX>
7537                     <CALL '\1aGEN-TEMP 1 = TY11>
7538                     <JUMP + PHRASE199>
7539 PHRASE194
7540                     <SET TY11 K7>
7541 PHRASE199
7542                     <EQUAL? NAM6 'IVECTOR + BOOL202>
7543                     <EQUAL? NAM6 'ITUPLE - PHRASE201>
7544 BOOL202
7545                     <FRAME '\1aIEMIT>
7546                     <PUSH '`LSH>
7547                     <PUSH K7>
7548                     <PUSH 1>
7549                     <PUSH '=>
7550                     <PUSH TY11>
7551                     <CALL '\1aIEMIT 5>
7552                     <JUMP + PHRASE207>
7553 PHRASE201
7554                     <EQUAL? NAM6 'IBYTES - PHRASE204>
7555                     <FRAME '\1aIEMIT>
7556                     <PUSH '`ADD>
7557                     <PUSH K7>
7558                     <PUSH 3>
7559                     <PUSH '=>
7560                     <PUSH TY11>
7561                     <CALL '\1aIEMIT 5>
7562                     <FRAME '\1aIEMIT>
7563                     <PUSH '`LSH>
7564                     <PUSH TY11>
7565                     <PUSH -2>
7566                     <PUSH '=>
7567                     <PUSH TY11>
7568                     <CALL '\1aIEMIT 5>
7569                     <JUMP + PHRASE207>
7570 PHRASE204
7571                     <EQUAL? NAM6 'ISTRING - PHRASE207>
7572                     <DEAD NAM6>
7573                     <FRAME '\1aIEMIT>
7574                     <PUSH '`IFSYS>
7575                     <PUSH "TOPS20">
7576                     <CALL '\1aIEMIT 2>
7577                     <FRAME '\1aIEMIT>
7578                     <PUSH '`ADD>
7579                     <PUSH K7>
7580                     <PUSH 4>
7581                     <PUSH '=>
7582                     <PUSH TY11>
7583                     <CALL '\1aIEMIT 5>
7584                     <FRAME '\1aIEMIT>
7585                     <PUSH '`DIV>
7586                     <PUSH TY11>
7587                     <PUSH 5>
7588                     <PUSH '=>
7589                     <PUSH TY11>
7590                     <CALL '\1aIEMIT 5>
7591                     <FRAME '\1aIEMIT>
7592                     <PUSH '`ENDIF>
7593                     <PUSH "TOPS20">
7594                     <CALL '\1aIEMIT 2>
7595                     <FRAME '\1aIEMIT>
7596                     <PUSH '`IFSYS>
7597                     <PUSH "UNIX">
7598                     <CALL '\1aIEMIT 2>
7599                     <FRAME '\1aIEMIT>
7600                     <PUSH '`ADD>
7601                     <PUSH K7>
7602                     <PUSH 3>
7603                     <PUSH '=>
7604                     <PUSH TY11>
7605                     <CALL '\1aIEMIT 5>
7606                     <FRAME '\1aIEMIT>
7607                     <PUSH '`LSH>
7608                     <PUSH TY11>
7609                     <PUSH -2>
7610                     <PUSH '=>
7611                     <PUSH TY11>
7612                     <CALL '\1aIEMIT 5>
7613                     <FRAME '\1aIEMIT>
7614                     <PUSH '`ENDIF>
7615                     <PUSH "UNIX">
7616                     <CALL '\1aIEMIT 2>
7617 PHRASE207
7618                     <FRAME '\1aFREE-TEMP>
7619                     <PUSH K7>
7620                     <PUSH %<>>
7621                     <CALL '\1aFREE-TEMP 2>
7622                     <GEN-ASSIGNED? 'STKTMP - PHRASE218>
7623                     <FRAME '\1aIEMIT>
7624                     <PUSH '`SUB>
7625                     <GEN-LVAL 'STKTMP = STACK>
7626                     <PUSH TY11>
7627                     <PUSH '=>
7628                     <GEN-LVAL 'STKTMP = STACK>
7629                     <CALL '\1aIEMIT 5>
7630                     <JUMP + PHRASE224>
7631 PHRASE218
7632                     <FRAME '\1aIEMIT>
7633                     <PUSH '`SUB>
7634                     <PUSH 0>
7635                     <PUSH TY11>
7636                     <PUSH '=>
7637                     <FRAME '\1aGEN-TEMP>
7638                     <PUSH 'FIX>
7639                     <CALL '\1aGEN-TEMP 1 = CALL-EV22>
7640                     <GEN-SET 'STKTMP CALL-EV22>
7641                     <PUSH CALL-EV22>
7642                     <DEAD CALL-EV22>
7643                     <CALL '\1aIEMIT 5>
7644 PHRASE224
7645                     <VEQUAL? K7 TY11 + PHRASE231>
7646                     <DEAD K7>
7647                     <FRAME '\1aFREE-TEMP>
7648                     <PUSH TY11>
7649                     <DEAD TY11>
7650                     <CALL '\1aFREE-TEMP 1>
7651 PHRASE231
7652                     <GEN-LVAL 'STK = CALL-EV22>
7653                     <ADD CALL-EV22 2 = CALL-EV22 (TYPE FIX)>
7654                     <GEN-SET 'STK CALL-EV22>
7655                     <DEAD CALL-EV22>
7656                     <RETURN W5>
7657                     <DEAD W5>
7658 PHRASE192
7659                     <EQUAL? NAM6 'ISTRING - PHRASE237>
7660                     <ADD K7 4 = CALL-EV22 (TYPE FIX)>
7661                     <DIV CALL-EV22 5 = CALL-EV22 (TYPE FIX)>
7662                     <GEN-LVAL 'STK-CHARS7 = NAM6>
7663                     <ADD CALL-EV22 NAM6 = CALL-EV22 (TYPE FIX)>
7664                     <DEAD NAM6>
7665                     <GEN-SET 'STK-CHARS7 CALL-EV22>
7666                     <DEAD CALL-EV22>
7667                     <ADD K7 3 = CALL-EV22 (TYPE FIX)>
7668                     <DEAD K7>
7669                     <DIV CALL-EV22 4 = CALL-EV22 (TYPE FIX)>
7670                     <GEN-LVAL 'STK-CHARS8 = NAM6>
7671                     <ADD CALL-EV22 NAM6 = CALL-EV22 (TYPE FIX)>
7672                     <DEAD NAM6>
7673                     <GEN-SET 'STK-CHARS8 CALL-EV22>
7674                     <DEAD CALL-EV22>
7675                     <GEN-LVAL 'STK = CALL-EV22>
7676                     <ADD CALL-EV22 2 = CALL-EV22 (TYPE FIX)>
7677                     <GEN-SET 'STK CALL-EV22>
7678                     <DEAD CALL-EV22>
7679                     <RETURN W5>
7680                     <DEAD W5>
7681 PHRASE237
7682                     <GEN-LVAL 'STK = CALL-EV22>
7683                     <EQUAL? NAM6 'IUVECTOR - PHRASE255>
7684                     <SET NAM6 K7>
7685                     <DEAD K7>
7686                     <JUMP + PHRASE258>
7687 PHRASE255
7688                     <EQUAL? NAM6 'IBYTES - PHRASE256>
7689                     <DEAD NAM6>
7690                     <ADD K7 3 = NT8 (TYPE FIX)>
7691                     <DEAD K7>
7692                     <DIV NT8 4 = NAM6 (TYPE FIX)>
7693                     <DEAD NT8>
7694                     <JUMP + PHRASE258>
7695 PHRASE256
7696                     <LSH K7 1 = NAM6 (TYPE FIX)>
7697                     <DEAD K7>
7698 PHRASE258
7699                     <ADD CALL-EV22 NAM6 = CALL-EV22 (TYPE FIX)>
7700                     <DEAD NAM6>
7701                     <ADD CALL-EV22 2 = CALL-EV22 (TYPE FIX)>
7702                     <GEN-SET 'STK CALL-EV22>
7703                     <DEAD CALL-EV22>
7704 PHRASE251
7705                     <RETURN W5>
7706                     <DEAD W5>
7707                     <END \1aISTRUC-GEN>\r\r
7708 #WORD *16572230661*
7709 <GFCN \1aMULTI-SET-GEN ("VALUE" ANY NODE ANY) N4 W5>
7710                     <TEMP K6 (SEG?7 %<>) (SIDE-E8 %<>) (MX9 0) (MN10 0) VARS11 VLN13 TEMP19 TEMP20 TEMP22 LV17 (I18:FIX 0) N32:NODE SEGTYP15>
7711                     <INTGO>
7712                     <NTHUV N4 5 = K6 (TYPE LIST)>
7713                     <NTHUV N4 4 = VARS11 (TYPE LIST)>
7714                     <DEAD N4>
7715                     <LENL VARS11 = VLN13 (TYPE FIX)>
7716                     <SET TEMP20 VLN13>
7717                     <SET TEMP22 VARS11>
7718                     <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
7719                     <GRTR? TEMP20 0 - RESTL23 (TYPE FIX)>
7720                     <LOOP (TEMP22 VALUE) (TEMP20 VALUE)>
7721 RESTL21
7722                     <INTGO>
7723                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
7724                     <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
7725                     <GRTR? TEMP20 0 + RESTL21 (TYPE FIX)>
7726 RESTL23
7727                     <NTHL TEMP22 1 = TEMP19 (TYPE LIST)>
7728                     <DEAD TEMP22>
7729                     <NTHL TEMP19 1 = LV17>
7730                     <DEAD TEMP19>
7731                     <RESTL K6 1 = K6 (TYPE LIST)>
7732                     <SET TEMP19 K6 (TYPE LIST)>
7733                     <LOOP>
7734 MAP25
7735                     <INTGO>
7736                     <EMPL? TEMP19 + MAPAP28>
7737                     <NTHL TEMP19 1 = N32>
7738                     <NTHUV N32 1 = TEMP20 (TYPE FIX)>
7739                     <VEQUAL? TEMP20 68 + BOOL36 (TYPE FIX)>
7740                     <VEQUAL? TEMP20 3 - PHRASE35 (TYPE FIX)>
7741                     <DEAD TEMP20>
7742 BOOL36
7743                     <SET SEG?7 'T (TYPE ATOM)>
7744                     <FRAME '\1aMAXL>
7745                     <NTHUV N32 5 = TEMP22 (TYPE LIST)>
7746                     <NTHL TEMP22 1 = TEMP22 (TYPE NODE)>
7747                     <NTHUV TEMP22 3 = TEMP20>
7748                     <DEAD TEMP22>
7749                     <PUSH TEMP20>
7750                     <CALL '\1aMAXL 1 = TEMP22>
7751                     <ADD TEMP22 MX9 = MX9 (TYPE FIX)>
7752                     <DEAD TEMP22>
7753                     <LESS? MX9 65535 - TAG40>
7754                     <SET MX9 65535 (TYPE FIX)>
7755 TAG40
7756                     <FRAME '\1aMINL>
7757                     <PUSH TEMP20>
7758                     <DEAD TEMP20>
7759                     <CALL '\1aMINL 1 = TEMP22>
7760                     <ADD TEMP22 MN10 = MN10 (TYPE FIX)>
7761                     <DEAD TEMP22>
7762                     <JUMP + PHRASE42>
7763 PHRASE35
7764                     <ADD I18 1 = I18 (TYPE FIX)>
7765                     <ADD MN10 1 = MN10 (TYPE FIX)>
7766                     <ADD MX9 1 = TEMP22 (TYPE FIX)>
7767                     <DEAD MX9>
7768                     <LESS? TEMP22 65535 - TAG43>
7769                     <SET TEMP22 65535 (TYPE FIX)>
7770 TAG43
7771                     <SET MX9 TEMP22>
7772                     <DEAD TEMP22>
7773 PHRASE42
7774                     <LENUV N32 = TEMP22 (TYPE FIX)>
7775                     <LESS? TEMP22 8 + PHRASE45 (TYPE FIX)>
7776                     <DEAD TEMP22>
7777                     <NTHUV N32 8 = TEMP22>
7778                     <DEAD N32>
7779                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE45>
7780                     <DEAD TEMP22>
7781                     <SET SIDE-E8 'T (TYPE ATOM)>
7782 PHRASE45
7783                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
7784                     <JUMP + MAP25>
7785 MAPAP28
7786                     <VEQUAL? SEG?7 0 + PHRASE49>
7787                     <DEAD SEG?7>
7788                     <GETS 'BIND = TEMP19 (TYPE LBIND)>
7789                     <FRAME '\1aMAKE-TAG>
7790                     <CALL '\1aMAKE-TAG 0 = SEG?7>
7791                     <BBIND 'SEGLABEL 'ANY 'FIX SEG?7>
7792                     <DEAD SEG?7>
7793                     <BBIND 'COUNTMP 'ANY 'FIX>
7794                     <BBIND 'SEGCALLED 'ANY 'FIX %<>>
7795                     <SET SIDE-E8 #T$UNBOUND 0>
7796                     <SET SEG?7 K6 (TYPE LIST)>
7797                     <DEAD K6>
7798                     <LOOP>
7799 MAP58
7800                     <INTGO>
7801                     <EMPL? SEG?7 + MAPAP61>
7802                     <NTHL SEG?7 1 = N32>
7803                     <NTHUV N32 1 = TEMP22 (TYPE FIX)>
7804                     <VEQUAL? TEMP22 68 + BOOL70 (TYPE FIX)>
7805                     <VEQUAL? TEMP22 3 - PHRASE69 (TYPE FIX)>
7806                     <DEAD TEMP22>
7807 BOOL70
7808                     <TYPE? SIDE-E8 <TYPE-CODE UNBOUND> - PHRASE72>
7809                     <FRAME '\1aGEN-TEMP>
7810                     <PUSH %<>>
7811                     <CALL '\1aGEN-TEMP 1 = SIDE-E8>
7812                     <FRAME '\1aGEN-TEMP>
7813                     <PUSH 'FIX>
7814                     <CALL '\1aGEN-TEMP 1 = TEMP22>
7815                     <NTHR 'COUNTMP 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
7816                     <PUTR TEMP20 1 TEMP22 (RECORD-TYPE LBIND)>
7817                     <DEAD TEMP20 TEMP22>
7818                     <FRAME '\1aSET-TEMP>
7819                     <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
7820                     <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
7821                     <DEAD TEMP22>
7822                     <PUSH I18>
7823                     <PUSH (`TYPE FIX)>
7824                     <CALL '\1aSET-TEMP 3>
7825 PHRASE72
7826                     <FRAME '\1aGEN>
7827                     <NTHUV N32 5 = TEMP22 (TYPE LIST)>
7828                     <DEAD N32>
7829                     <NTHL TEMP22 1 = N32 (TYPE NODE)>
7830                     <DEAD TEMP22>
7831                     <PUSH N32>
7832                     <PUSH SIDE-E8>
7833                     <CALL '\1aGEN 2 = TEMP20>
7834                     <FRAME '\1aSTRUCTYP-SEG>
7835                     <NTHUV N32 3 = STACK>
7836                     <CALL '\1aSTRUCTYP-SEG 1 = SEGTYP15>
7837                     <GVAL 'NO-DATUM = TEMP22>
7838                     <EQUAL? TEMP22 TEMP20 + PHRASE85>
7839                     <DEAD TEMP22 TEMP20>
7840                     <EQUAL? SEGTYP15 'MULTI + PHRASE85>
7841                     <FRAME '\1aSEGMENT-STACK>
7842                     <PUSH SIDE-E8>
7843                     <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
7844                     <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
7845                     <DEAD TEMP22>
7846                     <PUSH SEGTYP15>
7847                     <DEAD SEGTYP15>
7848                     <FRAME '\1aISTYPE?>
7849                     <NTHUV N32 3 = STACK>
7850                     <DEAD N32>
7851                     <CALL '\1aISTYPE? 1 = STACK>
7852                     <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
7853                     <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
7854                     <DEAD TEMP22>
7855                     <CALL '\1aSEGMENT-STACK 5>
7856                     <FRAME '\1aMAKE-TAG>
7857                     <CALL '\1aMAKE-TAG 0 = TEMP22>
7858                     <NTHR 'SEGLABEL 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
7859                     <PUTR TEMP20 1 TEMP22 (RECORD-TYPE LBIND)>
7860                     <DEAD TEMP20 TEMP22>
7861                     <JUMP + PHRASE105>
7862 PHRASE85
7863                     <NTHR 'SEGCALLED 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
7864                     <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
7865                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE105>
7866                     <DEAD TEMP22>
7867                     <FRAME '\1aLABEL-TAG>
7868                     <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
7869                     <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
7870                     <DEAD TEMP22>
7871                     <CALL '\1aLABEL-TAG 1>
7872                     <FRAME '\1aMAKE-TAG>
7873                     <CALL '\1aMAKE-TAG 0 = TEMP22>
7874                     <NTHR 'SEGLABEL 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
7875                     <PUTR TEMP20 1 TEMP22 (RECORD-TYPE LBIND)>
7876                     <DEAD TEMP20 TEMP22>
7877                     <JUMP + PHRASE105>
7878 PHRASE69
7879                     <FRAME '\1aGEN>
7880                     <PUSH N32>
7881                     <DEAD N32>
7882                     <GVAL 'POP-STACK = STACK>
7883                     <CALL '\1aGEN 2>
7884 PHRASE105
7885                     <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
7886                     <JUMP + MAP58>
7887 MAPAP61
7888                     <GEN-LVAL 'CAREFUL = SEG?7>
7889                     <TYPE? SEG?7 <TYPE-CODE FALSE> + PHRASE108>
7890                     <DEAD SEG?7>
7891                     <VEQUAL? MX9 MN10 + PHRASE108 (TYPE FIX)>
7892                     <DEAD MX9 MN10>
7893                     <FRAME '\1aIEMIT>
7894                     <PUSH '`VEQUAL?>
7895                     <NTHR 'COUNTMP 2 = SEG?7 (RECORD-TYPE ATOM) (TYPE LBIND)>
7896                     <NTHR SEG?7 1 = STACK (RECORD-TYPE LBIND)>
7897                     <DEAD SEG?7>
7898                     <PUSH VLN13>
7899                     <PUSH '->
7900                     <PUSH '`COMPERR>
7901                     <CALL '\1aIEMIT 5>
7902 PHRASE108
7903                     <LOOP>
7904 AGAIN119
7905                     <INTGO>
7906                     <SET SEG?7 VLN13>
7907                     <SET TEMP22 VARS11>
7908                     <SUB SEG?7 1 = SEG?7 (TYPE FIX)>
7909                     <GRTR? SEG?7 0 - RESTL124 (TYPE FIX)>
7910                     <LOOP (TEMP22 VALUE) (SEG?7 VALUE)>
7911 RESTL123
7912                     <INTGO>
7913                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
7914                     <SUB SEG?7 1 = SEG?7 (TYPE FIX)>
7915                     <GRTR? SEG?7 0 + RESTL123 (TYPE FIX)>
7916 RESTL124
7917                     <NTHL TEMP22 1 = K6 (TYPE LIST)>
7918                     <DEAD TEMP22>
7919                     <NTHL K6 1 = SIDE-E8>
7920                     <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE121>
7921                     <NTHUV SIDE-E8 3 = TEMP22>
7922                     <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE121>
7923                     <DEAD TEMP22>
7924                     <NTHUV SIDE-E8 4 = SEG?7 (TYPE FIX)>
7925                     <VEQUAL? SEG?7 -1 + PHRASE121 (TYPE FIX)>
7926                     <DEAD SEG?7>
7927                     <FRAME '\1aUSE-TEMP>
7928                     <NTHUV SIDE-E8 10 = TEMP20>
7929                     <DEAD SIDE-E8>
7930                     <PUSH TEMP20>
7931                     <RESTL K6 1 = TEMP22 (TYPE LIST)>
7932                     <DEAD K6>
7933                     <NTHL TEMP22 1 = SEG?7>
7934                     <DEAD TEMP22>
7935                     <TYPE? SEG?7 <TYPE-CODE FALSE> - BOOL128>
7936                     <SET SEG?7 'T (TYPE ATOM)>
7937 BOOL128
7938                     <PUSH SEG?7>
7939                     <DEAD SEG?7>
7940                     <CALL '\1aUSE-TEMP 2>
7941                     <FRAME '\1aIEMIT>
7942                     <PUSH '`POP>
7943                     <PUSH '=>
7944                     <PUSH TEMP20>
7945                     <DEAD TEMP20>
7946                     <CALL '\1aIEMIT 3>
7947                     <JUMP + PHRASE130>
7948 PHRASE121
7949                     <FRAME '\1aIEMIT>
7950                     <PUSH '`POP>
7951                     <PUSH '=>
7952                     <FRAME '\1aGEN-TEMP>
7953                     <RESTL K6 1 = TEMP22 (TYPE LIST)>
7954                     <DEAD K6>
7955                     <NTHL TEMP22 1 = SEG?7>
7956                     <DEAD TEMP22>
7957                     <TYPE? SEG?7 <TYPE-CODE FALSE> - BOOL133>
7958                     <SET SEG?7 'T (TYPE ATOM)>
7959 BOOL133
7960                     <PUSH SEG?7>
7961                     <DEAD SEG?7>
7962                     <CALL '\1aGEN-TEMP 1 = TEMP20>
7963                     <PUSH TEMP20>
7964                     <CALL '\1aIEMIT 3>
7965                     <FRAME '\1aSET-VALUE>
7966                     <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE136>
7967                     <NTHUV SIDE-E8 2 = SEG?7 (TYPE ATOM)>
7968                     <JUMP + PHRASE137>
7969 PHRASE136
7970                     <SET SEG?7 SIDE-E8>
7971 PHRASE137
7972                     <PUSH SEG?7>
7973                     <DEAD SEG?7>
7974                     <PUSH TEMP20>
7975                     <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - TAG138>
7976                     <NTHUV SIDE-E8 4 = SEG?7 (TYPE FIX)>
7977                     <DEAD SIDE-E8>
7978                     <VEQUAL? SEG?7 -1 + TAG138 (TYPE FIX)>
7979                     <DEAD SEG?7>
7980                     <SET SEG?7 %<> (TYPE FALSE)>
7981                     <JUMP + TAG139>
7982 TAG138
7983                     <SET SEG?7 'T (TYPE ATOM)>
7984 TAG139
7985                     <PUSH SEG?7>
7986                     <DEAD SEG?7>
7987                     <CALL '\1aSET-VALUE 3>
7988                     <FRAME '\1aFREE-TEMP>
7989                     <PUSH TEMP20>
7990                     <DEAD TEMP20>
7991                     <CALL '\1aFREE-TEMP 1>
7992 PHRASE130
7993                     <SUB VLN13 1 = VLN13 (TYPE FIX)>
7994                     <VEQUAL? VLN13 0 - AGAIN119 (TYPE FIX)>
7995                     <UNBIND TEMP19>
7996                     <DEAD TEMP19>
7997                     <ADJ -27>
7998                     <JUMP + MAPAP260>
7999 PHRASE49
8000                     <VEQUAL? SIDE-E8 0 + PHRASE148>
8001                     <DEAD SIDE-E8>
8002                     <SET TEMP20 () (TYPE LIST)>
8003                     <SET TEMP22 () (TYPE LIST)>
8004                     <SET TEMP19 K6 (TYPE LIST)>
8005                     <DEAD K6>
8006                     <SET SEG?7 VARS11 (TYPE LIST)>
8007                     <LOOP>
8008 MAP150
8009                     <INTGO>
8010                     <EMPL? TEMP19 + MAPAP153>
8011                     <EMPL? SEG?7 + MAPAP153>
8012                     <NTHL TEMP19 1 = N32>
8013                     <NTHL SEG?7 1 = K6>
8014                     <NTHUV N32 3 = SIDE-E8>
8015                     <NTHL K6 1 = SEGTYP15>
8016                     <TYPE? SEGTYP15 <TYPE-CODE SYMTAB> - PHRASE162>
8017                     <DEAD SEGTYP15>
8018                     <FRAME '\1aTYPE-AND>
8019                     <RESTL K6 1 = SEGTYP15 (TYPE LIST)>
8020                     <DEAD K6>
8021                     <NTHL SEGTYP15 1 = STACK>
8022                     <DEAD SEGTYP15>
8023                     <PUSH SIDE-E8>
8024                     <DEAD SIDE-E8>
8025                     <CALL '\1aTYPE-AND 2 = SIDE-E8>
8026 PHRASE162
8027                     <FRAME '\1aISTYPE?>
8028                     <PUSH SIDE-E8>
8029                     <DEAD SIDE-E8>
8030                     <CALL '\1aISTYPE? 1 = SIDE-E8>
8031                     <TYPE? SIDE-E8 <TYPE-CODE FALSE> + BOOL166>
8032                     <FRAME '\1aTYPEPRIM>
8033                     <PUSH SIDE-E8>
8034                     <CALL '\1aTYPEPRIM 1 = SEGTYP15>
8035                     <EQUAL? SEGTYP15 'FIX + PHRASE170>
8036                     <EQUAL? SEGTYP15 'LIST + PHRASE170>
8037                     <DEAD SEGTYP15>
8038 BOOL166
8039                     <SET SIDE-E8 'ANY (TYPE ATOM)>
8040 PHRASE170
8041                     <FRAME '\1aGEN>
8042                     <PUSH N32>
8043                     <DEAD N32>
8044                     <FRAME '\1aGEN-TEMP>
8045                     <PUSH SIDE-E8>
8046                     <DEAD SIDE-E8>
8047                     <CALL '\1aGEN-TEMP 1 = STACK>
8048                     <CALL '\1aGEN 2 = SEGTYP15>
8049                     <CONS SEGTYP15 () = SEGTYP15 (TYPE LIST)>
8050                     <EMPL? TEMP20 - TAG173>
8051                     <SET TEMP20 SEGTYP15 (TYPE LIST)>
8052                     <JUMP + TAG174>
8053 TAG173
8054                     <PUTREST TEMP22 SEGTYP15>
8055                     <DEAD TEMP22>
8056 TAG174
8057                     <SET TEMP22 SEGTYP15 (TYPE LIST)>
8058                     <DEAD SEGTYP15>
8059                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
8060                     <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
8061                     <JUMP + MAP150>
8062 MAPAP153
8063                     <SET SEG?7 VARS11 (TYPE LIST)>
8064                     <DEAD VARS11>
8065                     <SET TEMP19 TEMP20 (TYPE LIST)>
8066                     <DEAD TEMP20>
8067                     <LOOP>
8068 MAP176
8069                     <INTGO>
8070                     <EMPL? SEG?7 + MAPAP260>
8071                     <EMPL? TEMP19 + MAPAP260>
8072                     <NTHL SEG?7 1 = K6>
8073                     <NTHL TEMP19 1 = SIDE-E8>
8074                     <NTHL K6 1 = TEMP22>
8075                     <DEAD K6>
8076                     <SET TEMP20 %<> (TYPE FALSE)>
8077                     <TYPE? TEMP22 <TYPE-CODE SYMTAB> - PHRASE189>
8078                     <NTHUV TEMP22 4 = SEGTYP15 (TYPE FIX)>
8079                     <VEQUAL? SEGTYP15 -1 + PHRASE189 (TYPE FIX)>
8080                     <DEAD SEGTYP15>
8081                     <SET TEMP20 'T (TYPE ATOM)>
8082                     <NTHUV TEMP22 3 = SEGTYP15>
8083                     <TYPE? SEGTYP15 <TYPE-CODE FALSE> - PHRASE189>
8084                     <DEAD SEGTYP15>
8085                     <FRAME '\1aIEMIT>
8086                     <PUSH '`SET>
8087                     <FRAME '\1aTEM-NAME-SYM>
8088                     <PUSH TEMP22>
8089                     <DEAD TEMP22>
8090                     <CALL '\1aTEM-NAME-SYM 1 = STACK>
8091                     <PUSH SIDE-E8>
8092                     <CALL '\1aIEMIT 3>
8093                     <FRAME '\1aFREE-TEMP>
8094                     <PUSH SIDE-E8>
8095                     <DEAD SIDE-E8>
8096                     <CALL '\1aFREE-TEMP 1>
8097                     <JUMP + PHRASE197>
8098 PHRASE189
8099                     <TYPE? TEMP22 <TYPE-CODE SYMTAB> - PHRASE199>
8100                     <NTHUV TEMP22 2 = TEMP22 (TYPE ATOM)>
8101 PHRASE199
8102                     <FRAME '\1aSET-VALUE>
8103                     <PUSH TEMP22>
8104                     <DEAD TEMP22>
8105                     <PUSH SIDE-E8>
8106                     <VEQUAL? TEMP20 0 - TAG201>
8107                     <DEAD TEMP20>
8108                     <SET SEGTYP15 'T (TYPE ATOM)>
8109                     <JUMP + TAG202>
8110 TAG201
8111                     <SET SEGTYP15 %<> (TYPE FALSE)>
8112 TAG202
8113                     <PUSH SEGTYP15>
8114                     <DEAD SEGTYP15>
8115                     <CALL '\1aSET-VALUE 3>
8116                     <FRAME '\1aFREE-TEMP>
8117                     <PUSH SIDE-E8>
8118                     <DEAD SIDE-E8>
8119                     <CALL '\1aFREE-TEMP 1>
8120 PHRASE197
8121                     <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
8122                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
8123                     <JUMP + MAP176>
8124 PHRASE148
8125                     <SET MX9 () (TYPE LIST)>
8126                     <LOOP>
8127 AGAIN211
8128                     <INTGO>
8129                     <SET VLN13 () (TYPE LIST)>
8130                     <SET MN10 VLN13>
8131                     <SET SIDE-E8 %<> (TYPE FALSE)>
8132                     <SET SEG?7 VARS11 (TYPE LIST)>
8133                     <DEAD VARS11>
8134                     <SET TEMP19 K6 (TYPE LIST)>
8135                     <DEAD K6>
8136                     <LOOP>
8137 MAP213
8138                     <INTGO>
8139                     <EMPL? SEG?7 + MAPAP216>
8140                     <EMPL? TEMP19 + MAPAP216>
8141                     <SET K6 SEG?7>
8142                     <SET VARS11 TEMP19>
8143                     <NTHL K6 1 = TEMP22 (TYPE LIST)>
8144                     <DEAD K6>
8145                     <SET TEMP20 %<> (TYPE FALSE)>
8146                     <NTHL VARS11 1 = SEGTYP15 (TYPE NODE)>
8147                     <NTHL TEMP22 1 = K6>
8148                     <TYPE? K6 <TYPE-CODE TEMP> + BOOL230>
8149                     <FRAME '\1aREF?>
8150                     <PUSH K6>
8151                     <RESTL VARS11 1 = STACK (TYPE LIST)>
8152                     <DEAD VARS11>
8153                     <CALL '\1aREF? 2 = VARS11>
8154                     <TYPE? VARS11 <TYPE-CODE FALSE> - PHRASE229>
8155                     <DEAD VARS11>
8156                     <FRAME '\1aREF?>
8157                     <PUSH K6>
8158                     <PUSH MN10>
8159                     <CALL '\1aREF? 2 = VARS11>
8160                     <TYPE? VARS11 <TYPE-CODE FALSE> - PHRASE229>
8161                     <DEAD VARS11>
8162 BOOL230
8163                     <SET SIDE-E8 'T (TYPE ATOM)>
8164                     <TYPE? K6 <TYPE-CODE SYMTAB> - BOOL238>
8165                     <NTHUV K6 4 = VARS11 (TYPE FIX)>
8166                     <VEQUAL? VARS11 -1 + BOOL238 (TYPE FIX)>
8167                     <DEAD VARS11>
8168                     <SET TEMP20 'T (TYPE ATOM)>
8169                     <NTHUV K6 3 = VARS11>
8170                     <TYPE? VARS11 <TYPE-CODE FALSE> - BOOL238>
8171                     <DEAD VARS11>
8172                     <NTHUV K6 10 = TEMP22>
8173                     <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL237>
8174 BOOL238
8175                     <TYPE? K6 <TYPE-CODE TEMP> - PHRASE236>
8176                     <SET TEMP22 K6>
8177                     <DEAD K6>
8178 BOOL237
8179                     <FRAME '\1aGEN>
8180                     <PUSH SEGTYP15>
8181                     <DEAD SEGTYP15>
8182                     <PUSH TEMP22>
8183                     <DEAD TEMP22>
8184                     <CALL '\1aGEN 2>
8185                     <JUMP + PHRASE250>
8186 PHRASE236
8187                     <TYPE? K6 <TYPE-CODE SYMTAB> - PHRASE245>
8188                     <NTHUV K6 2 = K6 (TYPE ATOM)>
8189 PHRASE245
8190                     <FRAME '\1aSET-VALUE>
8191                     <PUSH K6>
8192                     <DEAD K6>
8193                     <FRAME '\1aGEN>
8194                     <PUSH SEGTYP15>
8195                     <DEAD SEGTYP15>
8196                     <PUSH 'DONT-CARE>
8197                     <CALL '\1aGEN 2 = STACK>
8198                     <VEQUAL? TEMP20 0 - TAG248>
8199                     <DEAD TEMP20>
8200                     <SET VARS11 'T (TYPE ATOM)>
8201                     <JUMP + TAG249>
8202 TAG248
8203                     <SET VARS11 %<> (TYPE FALSE)>
8204 TAG249
8205                     <PUSH VARS11>
8206                     <DEAD VARS11>
8207                     <CALL '\1aSET-VALUE 3>
8208                     <JUMP + PHRASE250>
8209 PHRASE229
8210                     <CONS TEMP22 VLN13 = VLN13>
8211                     <DEAD TEMP22>
8212                     <CONS SEGTYP15 MN10 = MN10>
8213                     <DEAD SEGTYP15>
8214 PHRASE250
8215                     <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
8216                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
8217                     <JUMP + MAP213>
8218 MAPAP216
8219                     <VEQUAL? SIDE-E8 0 + PHRASE252>
8220                     <DEAD SIDE-E8>
8221                     <EMPL? VLN13 + PHRASE252 (TYPE LIST)>
8222                     <SET VARS11 VLN13>
8223                     <DEAD VLN13>
8224                     <SET K6 MN10>
8225                     <DEAD MN10>
8226                     <JUMP + AGAIN211>
8227 PHRASE252
8228                     <EMPL? VLN13 + PHRASE254 (TYPE LIST)>
8229                     <NTHL VLN13 1 = TEMP19>
8230                     <CONS TEMP19 () = SEG?7>
8231                     <DEAD TEMP19>
8232                     <FRAME '\1aGEN-TEMP>
8233                     <PUSH %<>>
8234                     <CALL '\1aGEN-TEMP 1 = K6>
8235                     <CONS K6 () = TEMP19>
8236                     <PUTREST SEG?7 TEMP19>
8237                     <DEAD TEMP19>
8238                     <CONS SEG?7 () = SEG?7>
8239                     <PUTREST SEG?7 MX9>
8240                     <DEAD MX9>
8241                     <SET MX9 SEG?7>
8242                     <DEAD SEG?7>
8243                     <RESTL VLN13 1 = SEG?7 (TYPE LIST)>
8244                     <DEAD VLN13>
8245                     <CONS K6 () = TEMP19>
8246                     <DEAD K6>
8247                     <CONS TEMP19 SEG?7 = VARS11>
8248                     <DEAD TEMP19 SEG?7>
8249                     <SET K6 MN10>
8250                     <DEAD MN10>
8251                     <JUMP + AGAIN211>
8252 PHRASE254
8253                     <SET SEG?7 MX9 (TYPE LIST)>
8254                     <DEAD MX9>
8255                     <LOOP>
8256 MAP257
8257                     <INTGO>
8258                     <EMPL? SEG?7 + MAPAP260>
8259                     <NTHL SEG?7 1 = K6>
8260                     <NTHL K6 1 = VARS11>
8261                     <NTH1 VARS11 = SIDE-E8>
8262                     <DEAD VARS11>
8263                     <SET TEMP19 %<> (TYPE FALSE)>
8264                     <RESTL K6 1 = VARS11 (TYPE LIST)>
8265                     <DEAD K6>
8266                     <NTHL VARS11 1 = TEMP22 (TYPE TEMP)>
8267                     <DEAD VARS11>
8268                     <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE268>
8269                     <NTHUV SIDE-E8 4 = VARS11 (TYPE FIX)>
8270                     <VEQUAL? VARS11 -1 + PHRASE268 (TYPE FIX)>
8271                     <DEAD VARS11>
8272                     <SET TEMP19 'T (TYPE ATOM)>
8273                     <NTHUV SIDE-E8 3 = VARS11>
8274                     <TYPE? VARS11 <TYPE-CODE FALSE> - PHRASE268>
8275                     <DEAD VARS11>
8276                     <FRAME '\1aIEMIT>
8277                     <PUSH '`SET>
8278                     <NTHUV SIDE-E8 10 = STACK>
8279                     <DEAD SIDE-E8>
8280                     <PUSH TEMP22>
8281                     <CALL '\1aIEMIT 3>
8282                     <FRAME '\1aFREE-TEMP>
8283                     <PUSH TEMP22>
8284                     <DEAD TEMP22>
8285                     <CALL '\1aFREE-TEMP 1>
8286                     <JUMP + PHRASE274>
8287 PHRASE268
8288                     <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE276>
8289                     <NTHUV SIDE-E8 2 = SIDE-E8 (TYPE ATOM)>
8290 PHRASE276
8291                     <FRAME '\1aSET-VALUE>
8292                     <PUSH SIDE-E8>
8293                     <DEAD SIDE-E8>
8294                     <PUSH TEMP22>
8295                     <VEQUAL? TEMP19 0 - TAG278>
8296                     <DEAD TEMP19>
8297                     <SET VARS11 'T (TYPE ATOM)>
8298                     <JUMP + TAG279>
8299 TAG278
8300                     <SET VARS11 %<> (TYPE FALSE)>
8301 TAG279
8302                     <PUSH VARS11>
8303                     <DEAD VARS11>
8304                     <CALL '\1aSET-VALUE 3>
8305                     <FRAME '\1aFREE-TEMP>
8306                     <PUSH TEMP22>
8307                     <DEAD TEMP22>
8308                     <CALL '\1aFREE-TEMP 1>
8309 PHRASE274
8310                     <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
8311                     <JUMP + MAP257>
8312 MAPAP260
8313                     <EQUAL? W5 'FLUSHED + PHRASE282>
8314                     <SET SIDE-E8 %<> (TYPE FALSE)>
8315                     <TYPE? LV17 <TYPE-CODE SYMTAB> - PHRASE284>
8316                     <NTHUV LV17 4 = SEG?7 (TYPE FIX)>
8317                     <VEQUAL? SEG?7 -1 + PHRASE284 (TYPE FIX)>
8318                     <DEAD SEG?7>
8319                     <SET SIDE-E8 'T (TYPE ATOM)>
8320                     <NTHUV LV17 3 = SEG?7>
8321                     <TYPE? SEG?7 <TYPE-CODE FALSE> - PHRASE284>
8322                     <DEAD SEG?7>
8323                     <FRAME '\1a+>
8324                     <FRAME '\1aNTH>
8325                     <PUSH LV17>
8326                     <PUSH %<OFFSET 2 TEMP>>
8327                     <CALL '\1aNTH 2 = STACK>
8328                     <PUSH 1>
8329                     <CALL '\1a+ 2 = SEG?7>
8330                     <PUTUV LV17 2 SEG?7>
8331                     <DEAD SEG?7>
8332                     <FRAME '\1aMOVE-ARG>
8333                     <PUSH LV17>
8334                     <DEAD LV17>
8335                     <PUSH W5>
8336                     <DEAD W5>
8337                     <CALL '\1aMOVE-ARG 2 = SEG?7>
8338                     <RETURN SEG?7>
8339                     <DEAD SEG?7>
8340 PHRASE284
8341                     <TYPE? LV17 <TYPE-CODE SYMTAB> - PHRASE293>
8342                     <NTHUV LV17 2 = LV17 (TYPE ATOM)>
8343 PHRASE293
8344                     <EQUAL? W5 'DONT-CARE - PHRASE295>
8345                     <FRAME '\1aGEN-TEMP>
8346                     <PUSH %<>>
8347                     <CALL '\1aGEN-TEMP 1 = W5>
8348 PHRASE295
8349                     <FRAME '\1aGET-VALUE-X>
8350                     <PUSH LV17>
8351                     <DEAD LV17>
8352                     <PUSH W5>
8353                     <DEAD W5>
8354                     <VEQUAL? SIDE-E8 0 - TAG298>
8355                     <DEAD SIDE-E8>
8356                     <SET SEGTYP15 'T (TYPE ATOM)>
8357                     <JUMP + TAG299>
8358 TAG298
8359                     <SET SEGTYP15 %<> (TYPE FALSE)>
8360 TAG299
8361                     <PUSH SEGTYP15>
8362                     <DEAD SEGTYP15>
8363                     <CALL '\1aGET-VALUE-X 3 = SEG?7>
8364                     <RETURN SEG?7>
8365                     <DEAD SEG?7>
8366 PHRASE282
8367                     <RETURN W5>
8368                     <DEAD W5>
8369                     <END \1aMULTI-SET-GEN>\r\r
8370 #WORD *24210361262*
8371 <GFCN \1aREF? ("VALUE" <OR ATOM FALSE> <OR ATOM SYMTAB> <LIST [REST NODE]>) SY4 L5>
8372                     <TEMP TEMP15 TEMP12:LIST N17:NODE TEMP45 TEMP49>
8373                     <INTGO>
8374                     <SET TEMP15 %<> (TYPE FALSE)>
8375                     <SET TEMP12 L5 (TYPE LIST)>
8376                     <DEAD L5>
8377                     <LOOP>
8378 MAP7
8379                     <INTGO>
8380                     <EMPL? TEMP12 + MAPAP10>
8381                     <NTHL TEMP12 1 = N17>
8382                     <NTHUV N17 1 = TEMP15 (TYPE FIX)>
8383                     <LOOP>
8384 AGAIN22
8385                     <INTGO>
8386                     <VEQUAL? TEMP15 10 + BOOL25 (TYPE FIX)>
8387                     <VEQUAL? TEMP15 43 + BOOL25 (TYPE FIX)>
8388                     <VEQUAL? TEMP15 11 - PHRASE24 (TYPE FIX)>
8389 BOOL25
8390                     <NTHUV N17 4 = TEMP15>
8391                     <DEAD N17>
8392                     <EQUAL? TEMP15 SY4 + TAG28>
8393                     <DEAD TEMP15>
8394                     <SET TEMP15 %<> (TYPE FALSE)>
8395                     <JUMP + PHRASE58>
8396 TAG28
8397                     <RETURN 'T>
8398 PHRASE24
8399                     <VEQUAL? TEMP15 31 + BOOL31 (TYPE FIX)>
8400                     <VEQUAL? TEMP15 32 - PHRASE30 (TYPE FIX)>
8401 BOOL31
8402                     <NTHUV N17 4 = TEMP15>
8403                     <EQUAL? TEMP15 SY4 + BOOL40>
8404                     <DEAD TEMP15>
8405                     <NTHUV N17 5 = TEMP15 (TYPE LIST)>
8406                     <DEAD N17>
8407                     <NTHL TEMP15 1 = N17 (TYPE NODE)>
8408                     <DEAD TEMP15>
8409                     <NTHUV N17 1 = TEMP15 (TYPE FIX)>
8410                     <VEQUAL? TEMP15 2 - PHRASE37 (TYPE FIX)>
8411                     <DEAD TEMP15>
8412                     <NTHUV N17 4 = TEMP15>
8413                     <DEAD N17>
8414                     <EQUAL? TEMP15 SY4 + BOOL40>
8415                     <DEAD TEMP15>
8416                     <SET TEMP15 %<> (TYPE FALSE)>
8417                     <JUMP + PHRASE58>
8418 PHRASE37
8419                     <TYPE? SY4 <TYPE-CODE ATOM> + BOOL40>
8420                     <NTHUV SY4 4 = TEMP15 (TYPE FIX)>
8421                     <VEQUAL? TEMP15 -1 + BOOL40 (TYPE FIX)>
8422                     <DEAD TEMP15>
8423                     <NTHUV SY4 3 = TEMP15>
8424                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE58>
8425 BOOL40
8426                     <RETURN 'T>
8427 PHRASE30
8428                     <LENUV N17 = TEMP45 (TYPE FIX)>
8429                     <GRTR? TEMP45 8 - PHRASE43 (TYPE FIX)>
8430                     <DEAD TEMP45>
8431                     <NTHUV N17 8 = TEMP45>
8432                     <CHTYPE TEMP45 <TYPE-CODE LIST> = TEMP45>
8433                     <EMPL? TEMP45 + PHRASE43>
8434                     <LOOP (TEMP45 VALUE)>
8435 TAG47
8436                     <NTHL TEMP45 1 = TEMP49>
8437                     <TYPE? TEMP49 <TYPE-CODE ATOM> - TAG48>
8438                     <VEQUAL? TEMP49 'ALL + TAG46>
8439                     <DEAD TEMP49>
8440 TAG48
8441                     <RESTL TEMP45 1 = TEMP45 (TYPE LIST)>
8442                     <EMPL? TEMP45 - TAG47>
8443                     <JUMP + PHRASE43>
8444 TAG46
8445                     <TYPE? SY4 <TYPE-CODE ATOM> + BOOL50>
8446                     <NTHUV SY4 3 = TEMP45>
8447                     <TYPE? TEMP45 <TYPE-CODE FALSE> - BOOL50>
8448                     <DEAD TEMP45>
8449                     <NTHUV SY4 4 = TEMP45 (TYPE FIX)>
8450                     <VEQUAL? TEMP45 -1 - PHRASE43 (TYPE FIX)>
8451                     <DEAD TEMP45>
8452 BOOL50
8453                     <RETURN 'T>
8454 PHRASE43
8455                     <FRAME '\1aREF?>
8456                     <PUSH SY4>
8457                     <NTHUV N17 5 = STACK (TYPE LIST)>
8458                     <CALL '\1aREF? 2 = TEMP49>
8459                     <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE55>
8460                     <DEAD TEMP49>
8461                     <RETURN 'T>
8462 PHRASE55
8463                     <VEQUAL? TEMP15 8 + TAG59 (TYPE FIX)>
8464                     <DEAD TEMP15>
8465                     <SET TEMP15 %<> (TYPE FALSE)>
8466                     <JUMP + PHRASE58>
8467 TAG59
8468                     <NTHUV N17 4 = N17 (TYPE NODE)>
8469                     <NTHUV N17 1 = TEMP15 (TYPE FIX)>
8470                     <JUMP + AGAIN22>
8471 PHRASE58
8472                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
8473                     <JUMP + MAP7>
8474 MAPAP10
8475                     <RETURN TEMP15>
8476                     <DEAD TEMP15>
8477                     <END \1aREF?>
8478 #WORD *34236367662*
8479 <GFCN \1aGEN-DISPATCH ("VALUE" ANY ANY ANY) N4 W5>
8480                     <TEMP TEMP92>
8481                     <INTGO>
8482                     <NTHUV N4 1 = TEMP92 (TYPE FIX)>
8483                     <DISPATCH TEMP92 4 CASE8 CASE9 CASE10 CASE11 CASEDF6 CASE20 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASEDF6 CASE18 CASE19 CASE21 CASE22 CASE23 CASE24 CASE25 CASE26 CASE27 CASE28 CASE30 CASE29 CASE31 CASE32 CASE33 CASE34 CASE35 CASE36 CASE37 CASEDF6 CASE38 CASE41 CASE39 CASE40 CASE42 CASE43 CASE44 CASE83 CASE84 CASEDF6 CASE45 CASE81 CASE82 CASE53 CASEDF6 CASE46 CASE49 CASE48 CASE47 CASE51 CASE50 CASE52 CASEDF6 CASEDF6 CASE54 CASEDF6 CASE55 CASE56 CASE57 CASE58 CASE59 CASEDF6 CASE61 CASEDF6 CASEDF6 CASEDF6 CASE60 CASE62 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASE63 CASE80 CASE90 CASE66 CASE67 CASE64 CASE65 CASE68 CASE69 CASE70 CASE75 CASE71 CASE72 CASE73 CASE74 CASE76 CASE79 CASE78 CASE77 CASE85 CASE86 CASE87 CASE88 CASE89 CASE91>
8484                     <DEAD TEMP92>
8485 CASEDF6
8486                     <FRAME '\1aDEFAULT-GEN>
8487                     <PUSH N4>
8488                     <DEAD N4>
8489                     <PUSH W5>
8490                     <DEAD W5>
8491                     <CALL '\1aDEFAULT-GEN 2 = TEMP92>
8492                     <RETURN TEMP92>
8493                     <DEAD TEMP92>
8494 CASE8
8495                     <FRAME '\1aFORM-GEN>
8496                     <PUSH N4>
8497                     <DEAD N4>
8498                     <PUSH W5>
8499                     <DEAD W5>
8500                     <CALL '\1aFORM-GEN 2 = TEMP92>
8501                     <RETURN TEMP92>
8502                     <DEAD TEMP92>
8503 CASE9
8504                     <FRAME '\1aPROG-REP-GEN>
8505                     <PUSH N4>
8506                     <DEAD N4>
8507                     <PUSH W5>
8508                     <DEAD W5>
8509                     <CALL '\1aPROG-REP-GEN 2 = TEMP92>
8510                     <RETURN TEMP92>
8511                     <DEAD TEMP92>
8512 CASE10
8513                     <FRAME '\1aSUBR-GEN>
8514                     <PUSH N4>
8515                     <DEAD N4>
8516                     <PUSH W5>
8517                     <DEAD W5>
8518                     <CALL '\1aSUBR-GEN 2 = TEMP92>
8519                     <RETURN TEMP92>
8520                     <DEAD TEMP92>
8521 CASE11
8522                     <FRAME '\1aCOND-GEN>
8523                     <PUSH N4>
8524                     <DEAD N4>
8525                     <PUSH W5>
8526                     <DEAD W5>
8527                     <CALL '\1aCOND-GEN 2 = TEMP92>
8528                     <RETURN TEMP92>
8529                     <DEAD TEMP92>
8530 CASE12
8531                     <FRAME '\1aLVAL-GEN>
8532                     <PUSH N4>
8533                     <DEAD N4>
8534                     <PUSH W5>
8535                     <DEAD W5>
8536                     <CALL '\1aLVAL-GEN 2 = TEMP92>
8537                     <RETURN TEMP92>
8538                     <DEAD TEMP92>
8539 CASE13
8540                     <FRAME '\1aSET-GEN>
8541                     <PUSH N4>
8542                     <DEAD N4>
8543                     <PUSH W5>
8544                     <DEAD W5>
8545                     <CALL '\1aSET-GEN 2 = TEMP92>
8546                     <RETURN TEMP92>
8547                     <DEAD TEMP92>
8548 CASE14
8549                     <FRAME '\1aOR-GEN>
8550                     <PUSH N4>
8551                     <DEAD N4>
8552                     <PUSH W5>
8553                     <DEAD W5>
8554                     <CALL '\1aOR-GEN 2 = TEMP92>
8555                     <RETURN TEMP92>
8556                     <DEAD TEMP92>
8557 CASE15
8558                     <FRAME '\1aAND-GEN>
8559                     <PUSH N4>
8560                     <DEAD N4>
8561                     <PUSH W5>
8562                     <DEAD W5>
8563                     <CALL '\1aAND-GEN 2 = TEMP92>
8564                     <RETURN TEMP92>
8565                     <DEAD TEMP92>
8566 CASE16
8567                     <FRAME '\1aRETURN-GEN>
8568                     <PUSH N4>
8569                     <DEAD N4>
8570                     <PUSH W5>
8571                     <DEAD W5>
8572                     <CALL '\1aRETURN-GEN 2 = TEMP92>
8573                     <RETURN TEMP92>
8574                     <DEAD TEMP92>
8575 CASE17
8576                     <FRAME '\1aCOPY-GEN>
8577                     <PUSH N4>
8578                     <DEAD N4>
8579                     <PUSH W5>
8580                     <DEAD W5>
8581                     <CALL '\1aCOPY-GEN 2 = TEMP92>
8582                     <RETURN TEMP92>
8583                     <DEAD TEMP92>
8584 CASE18
8585                     <FRAME '\1aAGAIN-GEN>
8586                     <PUSH N4>
8587                     <DEAD N4>
8588                     <PUSH W5>
8589                     <DEAD W5>
8590                     <CALL '\1aAGAIN-GEN 2 = TEMP92>
8591                     <RETURN TEMP92>
8592                     <DEAD TEMP92>
8593 CASE19
8594                     <FRAME '\1aARITH-GEN>
8595                     <PUSH N4>
8596                     <DEAD N4>
8597                     <PUSH W5>
8598                     <DEAD W5>
8599                     <CALL '\1aARITH-GEN 2 = TEMP92>
8600                     <RETURN TEMP92>
8601                     <DEAD TEMP92>
8602 CASE20
8603                     <FRAME '\1aSUBR-GEN>
8604                     <PUSH N4>
8605                     <DEAD N4>
8606                     <PUSH W5>
8607                     <DEAD W5>
8608                     <CALL '\1aSUBR-GEN 2 = TEMP92>
8609                     <RETURN TEMP92>
8610                     <DEAD TEMP92>
8611 CASE21
8612                     <FRAME '\1a0-TEST>
8613                     <PUSH N4>
8614                     <DEAD N4>
8615                     <PUSH W5>
8616                     <DEAD W5>
8617                     <CALL '\1a0-TEST 2 = TEMP92>
8618                     <RETURN TEMP92>
8619                     <DEAD TEMP92>
8620 CASE22
8621                     <FRAME '\1aNOT-GEN>
8622                     <PUSH N4>
8623                     <DEAD N4>
8624                     <PUSH W5>
8625                     <DEAD W5>
8626                     <CALL '\1aNOT-GEN 2 = TEMP92>
8627                     <RETURN TEMP92>
8628                     <DEAD TEMP92>
8629 CASE23
8630                     <FRAME '\1a1?-GEN>
8631                     <PUSH N4>
8632                     <DEAD N4>
8633                     <PUSH W5>
8634                     <DEAD W5>
8635                     <CALL '\1a1?-GEN 2 = TEMP92>
8636                     <RETURN TEMP92>
8637                     <DEAD TEMP92>
8638 CASE24
8639                     <FRAME '\1aTEST-GEN>
8640                     <PUSH N4>
8641                     <DEAD N4>
8642                     <PUSH W5>
8643                     <DEAD W5>
8644                     <CALL '\1aTEST-GEN 2 = TEMP92>
8645                     <RETURN TEMP92>
8646                     <DEAD TEMP92>
8647 CASE25
8648                     <FRAME '\1a==-GEN>
8649                     <PUSH N4>
8650                     <DEAD N4>
8651                     <PUSH W5>
8652                     <DEAD W5>
8653                     <CALL '\1a==-GEN 2 = TEMP92>
8654                     <RETURN TEMP92>
8655                     <DEAD TEMP92>
8656 CASE26
8657                     <FRAME '\1aTYPE?-GEN>
8658                     <PUSH N4>
8659                     <DEAD N4>
8660                     <PUSH W5>
8661                     <DEAD W5>
8662                     <CALL '\1aTYPE?-GEN 2 = TEMP92>
8663                     <RETURN TEMP92>
8664                     <DEAD TEMP92>
8665 CASE27
8666                     <FRAME '\1aLNTH-GEN>
8667                     <PUSH N4>
8668                     <DEAD N4>
8669                     <PUSH W5>
8670                     <DEAD W5>
8671                     <CALL '\1aLNTH-GEN 2 = TEMP92>
8672                     <RETURN TEMP92>
8673                     <DEAD TEMP92>
8674 CASE28
8675                     <FRAME '\1aMT-GEN>
8676                     <PUSH N4>
8677                     <DEAD N4>
8678                     <PUSH W5>
8679                     <DEAD W5>
8680                     <CALL '\1aMT-GEN 2 = TEMP92>
8681                     <RETURN TEMP92>
8682                     <DEAD TEMP92>
8683 CASE29
8684                     <FRAME '\1aREST-GEN>
8685                     <PUSH N4>
8686                     <DEAD N4>
8687                     <PUSH W5>
8688                     <DEAD W5>
8689                     <CALL '\1aREST-GEN 2 = TEMP92>
8690                     <RETURN TEMP92>
8691                     <DEAD TEMP92>
8692 CASE30
8693                     <FRAME '\1aNTH-GEN>
8694                     <PUSH N4>
8695                     <DEAD N4>
8696                     <PUSH W5>
8697                     <DEAD W5>
8698                     <CALL '\1aNTH-GEN 2 = TEMP92>
8699                     <RETURN TEMP92>
8700                     <DEAD TEMP92>
8701 CASE31
8702                     <FRAME '\1aPUT-GEN>
8703                     <PUSH N4>
8704                     <DEAD N4>
8705                     <PUSH W5>
8706                     <DEAD W5>
8707                     <CALL '\1aPUT-GEN 2 = TEMP92>
8708                     <RETURN TEMP92>
8709                     <DEAD TEMP92>
8710 CASE32
8711                     <FRAME '\1aPUTREST-GEN>
8712                     <PUSH N4>
8713                     <DEAD N4>
8714                     <PUSH W5>
8715                     <DEAD W5>
8716                     <CALL '\1aPUTREST-GEN 2 = TEMP92>
8717                     <RETURN TEMP92>
8718                     <DEAD TEMP92>
8719 CASE33
8720                     <FRAME '\1aFLVAL-GEN>
8721                     <PUSH N4>
8722                     <DEAD N4>
8723                     <PUSH W5>
8724                     <DEAD W5>
8725                     <CALL '\1aFLVAL-GEN 2 = TEMP92>
8726                     <RETURN TEMP92>
8727                     <DEAD TEMP92>
8728 CASE34
8729                     <FRAME '\1aFSET-GEN>
8730                     <PUSH N4>
8731                     <DEAD N4>
8732                     <PUSH W5>
8733                     <DEAD W5>
8734                     <CALL '\1aFSET-GEN 2 = TEMP92>
8735                     <RETURN TEMP92>
8736                     <DEAD TEMP92>
8737 CASE35
8738                     <FRAME '\1aFGVAL-GEN>
8739                     <PUSH N4>
8740                     <DEAD N4>
8741                     <PUSH W5>
8742                     <DEAD W5>
8743                     <CALL '\1aFGVAL-GEN 2 = TEMP92>
8744                     <RETURN TEMP92>
8745                     <DEAD TEMP92>
8746 CASE36
8747                     <FRAME '\1aFSETG-GEN>
8748                     <PUSH N4>
8749                     <DEAD N4>
8750                     <PUSH W5>
8751                     <DEAD W5>
8752                     <CALL '\1aFSETG-GEN 2 = TEMP92>
8753                     <RETURN TEMP92>
8754                     <DEAD TEMP92>
8755 CASE37
8756                     <FRAME '\1aMIN-MAX>
8757                     <PUSH N4>
8758                     <DEAD N4>
8759                     <PUSH W5>
8760                     <DEAD W5>
8761                     <CALL '\1aMIN-MAX 2 = TEMP92>
8762                     <RETURN TEMP92>
8763                     <DEAD TEMP92>
8764 CASE38
8765                     <FRAME '\1aCHTYPE-GEN>
8766                     <PUSH N4>
8767                     <DEAD N4>
8768                     <PUSH W5>
8769                     <DEAD W5>
8770                     <CALL '\1aCHTYPE-GEN 2 = TEMP92>
8771                     <RETURN TEMP92>
8772                     <DEAD TEMP92>
8773 CASE39
8774                     <FRAME '\1aFIX-GEN>
8775                     <PUSH N4>
8776                     <DEAD N4>
8777                     <PUSH W5>
8778                     <DEAD W5>
8779                     <CALL '\1aFIX-GEN 2 = TEMP92>
8780                     <RETURN TEMP92>
8781                     <DEAD TEMP92>
8782 CASE40
8783                     <FRAME '\1aFLOAT-GEN>
8784                     <PUSH N4>
8785                     <DEAD N4>
8786                     <PUSH W5>
8787                     <DEAD W5>
8788                     <CALL '\1aFLOAT-GEN 2 = TEMP92>
8789                     <RETURN TEMP92>
8790                     <DEAD TEMP92>
8791 CASE41
8792                     <FRAME '\1aABS-GEN>
8793                     <PUSH N4>
8794                     <DEAD N4>
8795                     <PUSH W5>
8796                     <DEAD W5>
8797                     <CALL '\1aABS-GEN 2 = TEMP92>
8798                     <RETURN TEMP92>
8799                     <DEAD TEMP92>
8800 CASE42
8801                     <FRAME '\1aMOD-GEN>
8802                     <PUSH N4>
8803                     <DEAD N4>
8804                     <PUSH W5>
8805                     <DEAD W5>
8806                     <CALL '\1aMOD-GEN 2 = TEMP92>
8807                     <RETURN TEMP92>
8808                     <DEAD TEMP92>
8809 CASE43
8810                     <FRAME '\1aID-GEN>
8811                     <PUSH N4>
8812                     <DEAD N4>
8813                     <PUSH W5>
8814                     <DEAD W5>
8815                     <CALL '\1aID-GEN 2 = TEMP92>
8816                     <RETURN TEMP92>
8817                     <DEAD TEMP92>
8818 CASE44
8819                     <FRAME '\1aASSIGNED?-GEN>
8820                     <PUSH N4>
8821                     <DEAD N4>
8822                     <PUSH W5>
8823                     <DEAD W5>
8824                     <CALL '\1aASSIGNED?-GEN 2 = TEMP92>
8825                     <RETURN TEMP92>
8826                     <DEAD TEMP92>
8827 CASE45
8828                     <FRAME '\1aBITLOG-GEN>
8829                     <PUSH N4>
8830                     <DEAD N4>
8831                     <PUSH W5>
8832                     <DEAD W5>
8833                     <CALL '\1aBITLOG-GEN 2 = TEMP92>
8834                     <RETURN TEMP92>
8835                     <DEAD TEMP92>
8836 CASE46
8837                     <FRAME '\1aSUBR-GEN>
8838                     <PUSH N4>
8839                     <DEAD N4>
8840                     <PUSH W5>
8841                     <DEAD W5>
8842                     <CALL '\1aSUBR-GEN 2 = TEMP92>
8843                     <RETURN TEMP92>
8844                     <DEAD TEMP92>
8845 CASE47
8846                     <FRAME '\1aID-GEN>
8847                     <PUSH N4>
8848                     <DEAD N4>
8849                     <PUSH W5>
8850                     <DEAD W5>
8851                     <CALL '\1aID-GEN 2 = TEMP92>
8852                     <RETURN TEMP92>
8853                     <DEAD TEMP92>
8854 CASE48
8855                     <FRAME '\1aREAD2-GEN>
8856                     <PUSH N4>
8857                     <DEAD N4>
8858                     <PUSH W5>
8859                     <DEAD W5>
8860                     <CALL '\1aREAD2-GEN 2 = TEMP92>
8861                     <RETURN TEMP92>
8862                     <DEAD TEMP92>
8863 CASE49
8864                     <FRAME '\1aSUBR-GEN>
8865                     <PUSH N4>
8866                     <DEAD N4>
8867                     <PUSH W5>
8868                     <DEAD W5>
8869                     <CALL '\1aSUBR-GEN 2 = TEMP92>
8870                     <RETURN TEMP92>
8871                     <DEAD TEMP92>
8872 CASE50
8873                     <FRAME '\1aGET2-GEN>
8874                     <PUSH N4>
8875                     <DEAD N4>
8876                     <PUSH W5>
8877                     <DEAD W5>
8878                     <CALL '\1aGET2-GEN 2 = TEMP92>
8879                     <RETURN TEMP92>
8880                     <DEAD TEMP92>
8881 CASE51
8882                     <FRAME '\1aGET-GEN>
8883                     <PUSH N4>
8884                     <DEAD N4>
8885                     <PUSH W5>
8886                     <DEAD W5>
8887                     <CALL '\1aGET-GEN 2 = TEMP92>
8888                     <RETURN TEMP92>
8889                     <DEAD TEMP92>
8890 CASE52
8891                     <FRAME '\1aSUBR-GEN>
8892                     <PUSH N4>
8893                     <DEAD N4>
8894                     <PUSH W5>
8895                     <DEAD W5>
8896                     <CALL '\1aSUBR-GEN 2 = TEMP92>
8897                     <RETURN TEMP92>
8898                     <DEAD TEMP92>
8899 CASE53
8900                     <FRAME '\1aMAPFR-GEN>
8901                     <PUSH N4>
8902                     <DEAD N4>
8903                     <PUSH W5>
8904                     <DEAD W5>
8905                     <CALL '\1aMAPFR-GEN 2 = TEMP92>
8906                     <RETURN TEMP92>
8907                     <DEAD TEMP92>
8908 CASE54
8909                     <FRAME '\1aMPARGS-GEN>
8910                     <PUSH N4>
8911                     <DEAD N4>
8912                     <PUSH W5>
8913                     <DEAD W5>
8914                     <CALL '\1aMPARGS-GEN 2 = TEMP92>
8915                     <RETURN TEMP92>
8916                     <DEAD TEMP92>
8917 CASE55
8918                     <FRAME '\1aMAPLEAVE-GEN>
8919                     <PUSH N4>
8920                     <DEAD N4>
8921                     <PUSH W5>
8922                     <DEAD W5>
8923                     <CALL '\1aMAPLEAVE-GEN 2 = TEMP92>
8924                     <RETURN TEMP92>
8925                     <DEAD TEMP92>
8926 CASE56
8927                     <FRAME '\1aMAPRET-STOP-GEN>
8928                     <PUSH N4>
8929                     <DEAD N4>
8930                     <PUSH W5>
8931                     <DEAD W5>
8932                     <CALL '\1aMAPRET-STOP-GEN 2 = TEMP92>
8933                     <RETURN TEMP92>
8934                     <DEAD TEMP92>
8935 CASE57
8936                     <FRAME '\1aUNWIND-GEN>
8937                     <PUSH N4>
8938                     <DEAD N4>
8939                     <PUSH W5>
8940                     <DEAD W5>
8941                     <CALL '\1aUNWIND-GEN 2 = TEMP92>
8942                     <RETURN TEMP92>
8943                     <DEAD TEMP92>
8944 CASE58
8945                     <FRAME '\1aGVAL-GEN>
8946                     <PUSH N4>
8947                     <DEAD N4>
8948                     <PUSH W5>
8949                     <DEAD W5>
8950                     <CALL '\1aGVAL-GEN 2 = TEMP92>
8951                     <RETURN TEMP92>
8952                     <DEAD TEMP92>
8953 CASE59
8954                     <FRAME '\1aSETG-GEN>
8955                     <PUSH N4>
8956                     <DEAD N4>
8957                     <PUSH W5>
8958                     <DEAD W5>
8959                     <CALL '\1aSETG-GEN 2 = TEMP92>
8960                     <RETURN TEMP92>
8961                     <DEAD TEMP92>
8962 CASE60
8963                     <FRAME '\1aMEMQ-GEN>
8964                     <PUSH N4>
8965                     <DEAD N4>
8966                     <PUSH W5>
8967                     <DEAD W5>
8968                     <CALL '\1aMEMQ-GEN 2 = TEMP92>
8969                     <RETURN TEMP92>
8970                     <DEAD TEMP92>
8971 CASE61
8972                     <FRAME '\1aLENGTH?-GEN>
8973                     <PUSH N4>
8974                     <DEAD N4>
8975                     <PUSH W5>
8976                     <DEAD W5>
8977                     <CALL '\1aLENGTH?-GEN 2 = TEMP92>
8978                     <RETURN TEMP92>
8979                     <DEAD TEMP92>
8980 CASE62
8981                     <FRAME '\1aFORM-F-GEN>
8982                     <PUSH N4>
8983                     <DEAD N4>
8984                     <PUSH W5>
8985                     <DEAD W5>
8986                     <CALL '\1aFORM-F-GEN 2 = TEMP92>
8987                     <RETURN TEMP92>
8988                     <DEAD TEMP92>
8989 CASE63
8990                     <FRAME '\1aALL-REST-GEN>
8991                     <PUSH N4>
8992                     <DEAD N4>
8993                     <PUSH W5>
8994                     <DEAD W5>
8995                     <CALL '\1aALL-REST-GEN 2 = TEMP92>
8996                     <RETURN TEMP92>
8997                     <DEAD TEMP92>
8998 CASE64
8999                     <FRAME '\1aLIST-BUILD>
9000                     <PUSH N4>
9001                     <DEAD N4>
9002                     <PUSH W5>
9003                     <DEAD W5>
9004                     <CALL '\1aLIST-BUILD 2 = TEMP92>
9005                     <RETURN TEMP92>
9006                     <DEAD TEMP92>
9007 CASE65
9008                     <FRAME '\1aPUT-GEN>
9009                     <PUSH N4>
9010                     <DEAD N4>
9011                     <PUSH W5>
9012                     <DEAD W5>
9013                     <CALL '\1aPUT-GEN 2 = TEMP92>
9014                     <RETURN TEMP92>
9015                     <DEAD TEMP92>
9016 CASE66
9017                     <FRAME '\1aBACK-GEN>
9018                     <PUSH N4>
9019                     <DEAD N4>
9020                     <PUSH W5>
9021                     <DEAD W5>
9022                     <CALL '\1aBACK-GEN 2 = TEMP92>
9023                     <RETURN TEMP92>
9024                     <DEAD TEMP92>
9025 CASE67
9026                     <FRAME '\1aTOP-GEN>
9027                     <PUSH N4>
9028                     <DEAD N4>
9029                     <PUSH W5>
9030                     <DEAD W5>
9031                     <CALL '\1aTOP-GEN 2 = TEMP92>
9032                     <RETURN TEMP92>
9033                     <DEAD TEMP92>
9034 CASE68
9035                     <FRAME '\1aROT-GEN>
9036                     <PUSH N4>
9037                     <DEAD N4>
9038                     <PUSH W5>
9039                     <DEAD W5>
9040                     <CALL '\1aROT-GEN 2 = TEMP92>
9041                     <RETURN TEMP92>
9042                     <DEAD TEMP92>
9043 CASE69
9044                     <FRAME '\1aLSH-GEN>
9045                     <PUSH N4>
9046                     <DEAD N4>
9047                     <PUSH W5>
9048                     <DEAD W5>
9049                     <CALL '\1aLSH-GEN 2 = TEMP92>
9050                     <RETURN TEMP92>
9051                     <DEAD TEMP92>
9052 CASE70
9053                     <FRAME '\1aBIT-TEST-GEN>
9054                     <PUSH N4>
9055                     <DEAD N4>
9056                     <PUSH W5>
9057                     <DEAD W5>
9058                     <CALL '\1aBIT-TEST-GEN 2 = TEMP92>
9059                     <RETURN TEMP92>
9060                     <DEAD TEMP92>
9061 CASE71
9062                     <FRAME '\1aCALL-GEN>
9063                     <PUSH N4>
9064                     <DEAD N4>
9065                     <PUSH W5>
9066                     <DEAD W5>
9067                     <CALL '\1aCALL-GEN 2 = TEMP92>
9068                     <RETURN TEMP92>
9069                     <DEAD TEMP92>
9070 CASE72
9071                     <FRAME '\1aMONAD?-GEN>
9072                     <PUSH N4>
9073                     <DEAD N4>
9074                     <PUSH W5>
9075                     <DEAD W5>
9076                     <CALL '\1aMONAD?-GEN 2 = TEMP92>
9077                     <RETURN TEMP92>
9078                     <DEAD TEMP92>
9079 CASE73
9080                     <FRAME '\1aGASSIGNED?-GEN>
9081                     <PUSH N4>
9082                     <DEAD N4>
9083                     <PUSH W5>
9084                     <DEAD W5>
9085                     <CALL '\1aGASSIGNED?-GEN 2 = TEMP92>
9086                     <RETURN TEMP92>
9087                     <DEAD TEMP92>
9088 CASE74
9089                     <FRAME '\1aAPPLY-GEN>
9090                     <PUSH N4>
9091                     <DEAD N4>
9092                     <PUSH W5>
9093                     <DEAD W5>
9094                     <CALL '\1aAPPLY-GEN 2 = TEMP92>
9095                     <RETURN TEMP92>
9096                     <DEAD TEMP92>
9097 CASE75
9098                     <FRAME '\1aADECL-GEN>
9099                     <PUSH N4>
9100                     <DEAD N4>
9101                     <PUSH W5>
9102                     <DEAD W5>
9103                     <CALL '\1aADECL-GEN 2 = TEMP92>
9104                     <RETURN TEMP92>
9105                     <DEAD TEMP92>
9106 CASE76
9107                     <FRAME '\1aMULTI-RETURN-GEN>
9108                     <PUSH N4>
9109                     <DEAD N4>
9110                     <PUSH W5>
9111                     <DEAD W5>
9112                     <CALL '\1aMULTI-RETURN-GEN 2 = TEMP92>
9113                     <RETURN TEMP92>
9114                     <DEAD TEMP92>
9115 CASE77
9116                     <FRAME '\1aVALID-TYPE?-GEN>
9117                     <PUSH N4>
9118                     <DEAD N4>
9119                     <PUSH W5>
9120                     <DEAD W5>
9121                     <CALL '\1aVALID-TYPE?-GEN 2 = TEMP92>
9122                     <RETURN TEMP92>
9123                     <DEAD TEMP92>
9124 CASE78
9125                     <FRAME '\1aTYPE-C-GEN>
9126                     <PUSH N4>
9127                     <DEAD N4>
9128                     <PUSH W5>
9129                     <DEAD W5>
9130                     <CALL '\1aTYPE-C-GEN 2 = TEMP92>
9131                     <RETURN TEMP92>
9132                     <DEAD TEMP92>
9133 CASE79
9134                     <FRAME '\1a=?-STRING-GEN>
9135                     <PUSH N4>
9136                     <DEAD N4>
9137                     <PUSH W5>
9138                     <DEAD W5>
9139                     <CALL '\1a=?-STRING-GEN 2 = TEMP92>
9140                     <RETURN TEMP92>
9141                     <DEAD TEMP92>
9142 CASE80
9143                     <FRAME '\1aCASE-GEN>
9144                     <PUSH N4>
9145                     <DEAD N4>
9146                     <PUSH W5>
9147                     <DEAD W5>
9148                     <CALL '\1aCASE-GEN 2 = TEMP92>
9149                     <RETURN TEMP92>
9150                     <DEAD TEMP92>
9151 CASE81
9152                     <FRAME '\1aFGETBITS-GEN>
9153                     <PUSH N4>
9154                     <DEAD N4>
9155                     <PUSH W5>
9156                     <DEAD W5>
9157                     <CALL '\1aFGETBITS-GEN 2 = TEMP92>
9158                     <RETURN TEMP92>
9159                     <DEAD TEMP92>
9160 CASE82
9161                     <FRAME '\1aFPUTBITS-GEN>
9162                     <PUSH N4>
9163                     <DEAD N4>
9164                     <PUSH W5>
9165                     <DEAD W5>
9166                     <CALL '\1aFPUTBITS-GEN 2 = TEMP92>
9167                     <RETURN TEMP92>
9168                     <DEAD TEMP92>
9169 CASE83
9170                     <FRAME '\1aISTRUC-GEN>
9171                     <PUSH N4>
9172                     <DEAD N4>
9173                     <PUSH W5>
9174                     <DEAD W5>
9175                     <CALL '\1aISTRUC-GEN 2 = TEMP92>
9176                     <RETURN TEMP92>
9177                     <DEAD TEMP92>
9178 CASE84
9179                     <FRAME '\1aISTRUC-GEN>
9180                     <PUSH N4>
9181                     <DEAD N4>
9182                     <PUSH W5>
9183                     <DEAD W5>
9184                     <CALL '\1aISTRUC-GEN 2 = TEMP92>
9185                     <RETURN TEMP92>
9186                     <DEAD TEMP92>
9187 CASE85
9188                     <FRAME '\1aSTACK-GEN>
9189                     <PUSH N4>
9190                     <DEAD N4>
9191                     <PUSH W5>
9192                     <DEAD W5>
9193                     <CALL '\1aSTACK-GEN 2 = TEMP92>
9194                     <RETURN TEMP92>
9195                     <DEAD TEMP92>
9196 CASE86
9197                     <FRAME '\1aCHANNEL-OP-GEN>
9198                     <PUSH N4>
9199                     <DEAD N4>
9200                     <PUSH W5>
9201                     <DEAD W5>
9202                     <CALL '\1aCHANNEL-OP-GEN 2 = TEMP92>
9203                     <RETURN TEMP92>
9204                     <DEAD TEMP92>
9205 CASE87
9206                     <FRAME '\1aATOM-PART-GEN>
9207                     <PUSH N4>
9208                     <DEAD N4>
9209                     <PUSH W5>
9210                     <DEAD W5>
9211                     <CALL '\1aATOM-PART-GEN 2 = TEMP92>
9212                     <RETURN TEMP92>
9213                     <DEAD TEMP92>
9214 CASE88
9215                     <FRAME '\1aOFFSET-PART-GEN>
9216                     <PUSH N4>
9217                     <DEAD N4>
9218                     <PUSH W5>
9219                     <DEAD W5>
9220                     <CALL '\1aOFFSET-PART-GEN 2 = TEMP92>
9221                     <RETURN TEMP92>
9222                     <DEAD TEMP92>
9223 CASE89
9224                     <FRAME '\1aPUT-GET-DECL-GEN>
9225                     <PUSH N4>
9226                     <DEAD N4>
9227                     <PUSH W5>
9228                     <DEAD W5>
9229                     <CALL '\1aPUT-GET-DECL-GEN 2 = TEMP92>
9230                     <RETURN TEMP92>
9231                     <DEAD TEMP92>
9232 CASE90
9233                     <FRAME '\1aSUBSTRUC-GEN>
9234                     <PUSH N4>
9235                     <DEAD N4>
9236                     <PUSH W5>
9237                     <DEAD W5>
9238                     <CALL '\1aSUBSTRUC-GEN 2 = TEMP92>
9239                     <RETURN TEMP92>
9240                     <DEAD TEMP92>
9241 CASE91
9242                     <FRAME '\1aMULTI-SET-GEN>
9243                     <PUSH N4>
9244                     <DEAD N4>
9245                     <PUSH W5>
9246                     <DEAD W5>
9247                     <CALL '\1aMULTI-SET-GEN 2 = TEMP92>
9248                     <RETURN TEMP92>
9249                     <DEAD TEMP92>
9250                     <END \1aGEN-DISPATCH>\r\r
9251 <ENDPA