mim/development/mim/mimc/death.mima

   1
   2 <PACKAGE "DEATH">
   3
   4 "VERSION 1.4"
   5
   6 "This version written by CLR 2/85 based entirely on SAMs previous version.
   7  The differences are:
   8
   9         a)      Bit masks used instead of lists of names for efficiency.
  10
  11         b)      Attempt to flush dead SETs.
  12
  13 There are two interesting structures:
  14
  15         1)      Each temp atom's value is a uvector of fixes.
  16                         The first element is its number (starting at 0)
  17                         and increasing so each temp has a number.
  18
  19                         The rest of the elements are essentially constitute
  20                         a string of 1 bit bytes big enough for the total
  21                         number of temps.  The bit being on indicates a temp
  22                         that can't be merged with this one.
  23
  24         2)      The lists of live variables associated with branches is
  25                 also the same kind of bit string."
  26
  27 <ENTRY REMOVE-DEADS FIXUP-DEATH DEBUG-DEATH MAINTAIN-DECLS>
  28
  29 <USE "NEWSTRUC">
  30
  31 <SETG DEBUG-DEATH %<>>
  32
  33 <SETG MAINTAIN-DECLS %<>>
  34
  35 "NAME-UV is a vector of temp names.  It is used to get from a number back to
  36  the name of a temp.  NOTE:  temp values start at 0 so 1 always must be added
  37  to index into this vector."
  38
  39 <GDECL (NAME-UV) <VECTOR [REST ATOM]> (UVSIZE) FIX>
  40
  41 <NEWTYPE DEAD-VAR ATOM>
  42
  43 <NEWSTRUC LABEL VECTOR L-INST <OR ATOM FORM> L-INS <LIST [REST FIX]> L-LEVEL FIX L-ASSIGN <OR FALSE <LIST [REST !<LIST ATOM FIX>]>>>
  44
  45 <NEWSTRUC BRANCH VECTOR B-INST FORM B-OUTS <LIST [REST FIX]> B-LIVES UVECTOR B-FALL-DEADS UVECTOR B-JUMP-DEADS <OR FALSE UVECTOR>>
  46
  47 #WORD *5344307564*
  48                     <GFCN \1a/32 ("VALUE" FORM "QUOTE" ANY) X4>
  49                     <TEMP TEMP6:FORM>
  50                     <INTGO>
  51                     <FRAME '\1aFORM>
  52                     <PUSH 'LSH>
  53                     <PUSH X4>
  54                     <DEAD X4>
  55                     <PUSH -5>
  56                     <CALL '\1aFORM 3 = TEMP6>
  57                     <RETURN TEMP6>
  58                     <DEAD TEMP6>
  59                     <END \1a/32>
  60 <COND (<AND <GASSIGNED? /32> <NOT <TYPE? ,/32 MACRO>>> <SETG /32 <CHTYPE (,/32) MACRO>>)>
  61
  62 #WORD *36474037523*
  63 <GFCN \1aFIXUP-DEATH ("VALUE" ANY LIST) CODE4>
  64                     <TEMP OUTCHAN5 TEMP10 CODELEN17:FIX TEMP20 VC21 X36 TEMP40 LABEL80:LABEL>
  65                     <INTGO>
  66                     <GEN-LVAL 'OUTCHAN = OUTCHAN5>
  67                     <GVAL 'DEBUG-DEATH = TEMP10>
  68                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
  69                     <DEAD TEMP10>
  70                     <FRAME '\1aPRINTSTRING>
  71                     <PUSH "Fixup-death: ">
  72                     <PUSH OUTCHAN5>
  73                     <CALL '\1aPRINTSTRING 2>
  74                     <FRAME '\1aPRIN1>
  75                     <NTHL CODE4 1 = TEMP10 (TYPE FORM)>
  76                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
  77                     <NTHL TEMP10 1 = STACK>
  78                     <DEAD TEMP10>
  79                     <PUSH OUTCHAN5>
  80                     <CALL '\1aPRIN1 2>
  81                     <FRAME '\1aCRLF>
  82                     <PUSH OUTCHAN5>
  83                     <CALL '\1aCRLF 1>
  84                     <FRAME '\1aPRINTSTRING>
  85                     <PUSH "Removing deads">
  86                     <PUSH OUTCHAN5>
  87                     <CALL '\1aPRINTSTRING 2>
  88                     <FRAME '\1aCRLF>
  89                     <PUSH OUTCHAN5>
  90                     <CALL '\1aCRLF 1>
  91 PHRASE9
  92                     <SETG 'ANY-FLUSHED-INS %<>>
  93                     <FRAME '\1aREMOVE-DEADS>
  94                     <PUSH CODE4>
  95                     <CALL '\1aREMOVE-DEADS 1 = CODELEN17>
  96                     <GETS 'BIND = TEMP10 (TYPE LBIND)>
  97                     <UUBLOCK <TYPE-CODE VECTOR> CODELEN17 = TEMP20 (TYPE VECTOR)>
  98                     <BBIND 'VCODE 'VECTOR 'FIX TEMP20>
  99                     <DEAD TEMP20>
 100                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 101                     <NTHR TEMP20 1 = VC21 (RECORD-TYPE LBIND)>
 102                     <DEAD TEMP20>
 103                     <SET TEMP20 CODE4 (TYPE LIST)>
 104                     <LOOP>
 105 MAP27
 106                     <INTGO>
 107                     <EMPL? TEMP20 + MAPAP30>
 108                     <NTHL TEMP20 1 = X36>
 109                     <TYPE? X36 <TYPE-CODE FORM> - PHRASE38>
 110                     <EMPL? X36 + PHRASE38 (TYPE FORM)>
 111                     <NTHL X36 1 = TEMP40>
 112                     <EQUAL? TEMP40 '`ENDIF - PHRASE38>
 113                     <DEAD TEMP40>
 114                     <PUTUV VC21 1 X36>
 115                     <RESTUV VC21 1 = VC21 (TYPE VECTOR)>
 116 PHRASE38
 117                     <PUTUV VC21 1 X36>
 118                     <DEAD X36>
 119                     <RESTUV VC21 1 = VC21 (TYPE VECTOR)>
 120                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
 121                     <JUMP + MAP27>
 122 MAPAP30
 123                     <GVAL 'DEBUG-DEATH = TEMP20>
 124                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE42>
 125                     <DEAD TEMP20>
 126                     <FRAME '\1aPRINTSTRING>
 127                     <PUSH "Preparing labels and temps">
 128                     <PUSH OUTCHAN5>
 129                     <CALL '\1aPRINTSTRING 2>
 130                     <FRAME '\1aCRLF>
 131                     <PUSH OUTCHAN5>
 132                     <CALL '\1aCRLF 1>
 133 PHRASE42
 134                     <FRAME '\1aPREPARE-LABELS-AND-TEMPS>
 135                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 136                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
 137                     <DEAD TEMP20>
 138                     <CALL '\1aPREPARE-LABELS-AND-TEMPS 1 = VC21>
 139                     <GVAL 'DEBUG-DEATH = TEMP20>
 140                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE49>
 141                     <DEAD TEMP20>
 142                     <FRAME '\1aPRINTSTRING>
 143                     <PUSH "Preparing branches">
 144                     <PUSH OUTCHAN5>
 145                     <CALL '\1aPRINTSTRING 2>
 146                     <FRAME '\1aCRLF>
 147                     <PUSH OUTCHAN5>
 148                     <CALL '\1aCRLF 1>
 149 PHRASE49
 150                     <FRAME '\1aPREPARE-BRANCHES>
 151                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 152                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
 153                     <DEAD TEMP20>
 154                     <PUSH 1>
 155                     <PUSH CODELEN17>
 156                     <PUSH CODELEN17>
 157                     <PUSH ()>
 158                     <CALL '\1aPREPARE-BRANCHES 5>
 159                     <GVAL 'DEBUG-DEATH = TEMP20>
 160                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE56>
 161                     <DEAD TEMP20>
 162                     <FRAME '\1aPRINTSTRING>
 163                     <PUSH "Backwalking">
 164                     <PUSH OUTCHAN5>
 165                     <CALL '\1aPRINTSTRING 2>
 166                     <FRAME '\1aCRLF>
 167                     <PUSH OUTCHAN5>
 168                     <CALL '\1aCRLF 1>
 169 PHRASE56
 170                     <SET TEMP40 1 (TYPE FIX)>
 171                     <LOOP>
 172 AGAIN61
 173                     <INTGO>
 174                     <GVAL 'DEBUG-DEATH = TEMP20>
 175                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE63>
 176                     <DEAD TEMP20>
 177                     <FRAME '\1aPRINTSTRING>
 178                     <PUSH "Pass ">
 179                     <PUSH OUTCHAN5>
 180                     <CALL '\1aPRINTSTRING 2>
 181                     <FRAME '\1aPRIN1>
 182                     <PUSH TEMP40>
 183                     <PUSH OUTCHAN5>
 184                     <CALL '\1aPRIN1 2>
 185                     <FRAME '\1aCRLF>
 186                     <PUSH OUTCHAN5>
 187                     <CALL '\1aCRLF 1>
 188 PHRASE63
 189                     <SETG 'SOMETHING-CHANGED %<>>
 190                     <FRAME '\1aBACKWALK-FROM-LABEL>
 191                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 192                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
 193                     <DEAD TEMP20>
 194                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 195                     <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE LBIND)>
 196                     <NTHUV TEMP20 CODELEN17 = STACK (TYPE LABEL)>
 197                     <DEAD TEMP20>
 198                     <PUSH TEMP40>
 199                     <CALL '\1aBACKWALK-FROM-LABEL 3>
 200                     <SET TEMP20 VC21 (TYPE LIST)>
 201                     <LOOP>
 202 MAP73
 203                     <INTGO>
 204                     <EMPL? TEMP20 + MAPAP76>
 205                     <NTHL TEMP20 1 = LABEL80>
 206                     <FRAME '\1aBACKWALK-FROM-LABEL>
 207                     <NTHR 'VCODE 2 = X36 (RECORD-TYPE ATOM) (TYPE LBIND)>
 208                     <NTHR X36 1 = STACK (RECORD-TYPE LBIND)>
 209                     <DEAD X36>
 210                     <PUSH LABEL80>
 211                     <DEAD LABEL80>
 212                     <PUSH TEMP40>
 213                     <CALL '\1aBACKWALK-FROM-LABEL 3>
 214                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
 215                     <JUMP + MAP73>
 216 MAPAP76
 217                     <GVAL 'SOMETHING-CHANGED = TEMP20>
 218                     <TYPE? TEMP20 <TYPE-CODE FALSE> + EXIT59>
 219                     <DEAD TEMP20>
 220                     <ADD TEMP40 1 = TEMP40 (TYPE FIX)>
 221                     <JUMP + AGAIN61>
 222 EXIT59
 223                     <GVAL 'DEBUG-DEATH = TEMP20>
 224                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE88>
 225                     <DEAD TEMP20>
 226                     <FRAME '\1aPRINTSTRING>
 227                     <PUSH "SET optimization">
 228                     <PUSH OUTCHAN5>
 229                     <CALL '\1aPRINTSTRING 2>
 230                     <FRAME '\1aCRLF>
 231                     <PUSH OUTCHAN5>
 232                     <CALL '\1aCRLF 1>
 233 PHRASE88
 234                     <FRAME '\1aOPTIMIZE-SETS>
 235                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 236                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
 237                     <DEAD TEMP20>
 238                     <CALL '\1aOPTIMIZE-SETS 1>
 239                     <GVAL 'DEBUG-DEATH = TEMP20>
 240                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE95>
 241                     <DEAD TEMP20>
 242                     <FRAME '\1aPRINTSTRING>
 243                     <PUSH "General optimization">
 244                     <PUSH OUTCHAN5>
 245                     <CALL '\1aPRINTSTRING 2>
 246                     <FRAME '\1aCRLF>
 247                     <PUSH OUTCHAN5>
 248                     <CALL '\1aCRLF 1>
 249 PHRASE95
 250                     <FRAME '\1aOPTIMIZE-TEMPS>
 251                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 252                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
 253                     <DEAD TEMP20>
 254                     <CALL '\1aOPTIMIZE-TEMPS 1>
 255                     <GVAL 'MAINTAIN-DECLS = TEMP20>
 256                     <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE102>
 257                     <DEAD TEMP20>
 258                     <GVAL 'DEBUG-DEATH = TEMP20>
 259                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE104>
 260                     <DEAD TEMP20>
 261                     <FRAME '\1aPRINTSTRING>
 262                     <PUSH "Optional optimization pass (ignoring decls)">
 263                     <PUSH OUTCHAN5>
 264                     <CALL '\1aPRINTSTRING 2>
 265                     <FRAME '\1aCRLF>
 266                     <PUSH OUTCHAN5>
 267                     <CALL '\1aCRLF 1>
 268 PHRASE104
 269                     <FRAME '\1aOPTIMIZE-TEMPS/BASH-DECLS>
 270                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 271                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
 272                     <DEAD TEMP20>
 273                     <CALL '\1aOPTIMIZE-TEMPS/BASH-DECLS 1>
 274 PHRASE102
 275                     <GVAL 'DEBUG-DEATH = TEMP20>
 276                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE111>
 277                     <DEAD TEMP20>
 278                     <FRAME '\1aPRINTSTRING>
 279                     <PUSH "Preparing deads">
 280                     <PUSH OUTCHAN5>
 281                     <CALL '\1aPRINTSTRING 2>
 282                     <FRAME '\1aCRLF>
 283                     <PUSH OUTCHAN5>
 284                     <CALL '\1aCRLF 1>
 285 PHRASE111
 286                     <FRAME '\1aPREPARE-DEADS-FROM-LABEL>
 287                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 288                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
 289                     <DEAD TEMP20>
 290                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 291                     <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE LBIND)>
 292                     <NTHUV TEMP20 CODELEN17 = STACK (TYPE LABEL)>
 293                     <DEAD TEMP20 CODELEN17>
 294                     <CALL '\1aPREPARE-DEADS-FROM-LABEL 2>
 295                     <SET TEMP20 VC21 (TYPE LIST)>
 296                     <DEAD VC21>
 297                     <LOOP>
 298 MAP120
 299                     <INTGO>
 300                     <EMPL? TEMP20 + MAPAP123>
 301                     <NTHL TEMP20 1 = LABEL80>
 302                     <FRAME '\1aPREPARE-DEADS-FROM-LABEL>
 303                     <NTHR 'VCODE 2 = X36 (RECORD-TYPE ATOM) (TYPE LBIND)>
 304                     <NTHR X36 1 = STACK (RECORD-TYPE LBIND)>
 305                     <DEAD X36>
 306                     <PUSH LABEL80>
 307                     <DEAD LABEL80>
 308                     <CALL '\1aPREPARE-DEADS-FROM-LABEL 2>
 309                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
 310                     <JUMP + MAP120>
 311 MAPAP123
 312                     <GVAL 'DEBUG-DEATH = TEMP20>
 313                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE132>
 314                     <DEAD TEMP20>
 315                     <FRAME '\1aPRINTSTRING>
 316                     <PUSH "Inserting deads">
 317                     <PUSH OUTCHAN5>
 318                     <CALL '\1aPRINTSTRING 2>
 319                     <FRAME '\1aCRLF>
 320                     <PUSH OUTCHAN5>
 321                     <CALL '\1aCRLF 1>
 322 PHRASE132
 323                     <FRAME '\1aINSERT-DEADS>
 324                     <PUSH CODE4>
 325                     <NTHR 'VCODE 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
 326                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
 327                     <DEAD TEMP20>
 328                     <CALL '\1aINSERT-DEADS 2>
 329                     <UNBIND TEMP10>
 330                     <DEAD TEMP10>
 331                     <ADJ -9>
 332                     <GVAL 'DEBUG-DEATH = TEMP10>
 333                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE139>
 334                     <DEAD TEMP10>
 335                     <FRAME '\1aPRINTSTRING>
 336                     <PUSH "Death complete: ">
 337                     <PUSH OUTCHAN5>
 338                     <CALL '\1aPRINTSTRING 2>
 339                     <FRAME '\1aPRIN1>
 340                     <NTHL CODE4 1 = TEMP10 (TYPE FORM)>
 341                     <DEAD CODE4>
 342                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
 343                     <NTHL TEMP10 1 = STACK>
 344                     <DEAD TEMP10>
 345                     <PUSH OUTCHAN5>
 346                     <CALL '\1aPRIN1 2>
 347                     <FRAME '\1aCRLF>
 348                     <PUSH OUTCHAN5>
 349                     <DEAD OUTCHAN5>
 350                     <CALL '\1aCRLF 1>
 351 PHRASE139
 352                     <GVAL 'ANY-FLUSHED-INS = TEMP10>
 353                     <RETURN TEMP10>
 354                     <DEAD TEMP10>
 355                     <END \1aFIXUP-DEATH>
 356 "ADD-LIST ORs a bit into a uvector.  In the old world it addes an atom to
 357  a LIST."
 358
 359 #WORD *22604624125*
 360 <GFCN \1aADD-LIST ("VALUE" <UVECTOR ANY> ATOM UVECTOR) ATM4 L5>
 361                     <TEMP TEMP9 NUM6:FIX WD7:FIX>
 362                     <INTGO>
 363                     <GVAL ATM4 = TEMP9>
 364                     <DEAD ATM4>
 365                     <NTHUU TEMP9 1 = NUM6 (TYPE FIX)>
 366                     <DEAD TEMP9>
 367                     <LSH NUM6 -5 = TEMP9 (TYPE FIX)>
 368                     <ADD TEMP9 1 = WD7 (TYPE FIX)>
 369                     <DEAD TEMP9>
 370                     <AND NUM6 31 = NUM6>
 371                     <NTHUU L5 WD7 = TEMP9 (TYPE FIX)>
 372                     <LSH 1 NUM6 = NUM6 (TYPE FIX)>
 373                     <OR TEMP9 NUM6 = TEMP9>
 374                     <DEAD NUM6>
 375                     <PUTUU L5 WD7 TEMP9>
 376                     <DEAD WD7 TEMP9>
 377                     <RETURN L5>
 378                     <DEAD L5>
 379                     <END \1aADD-LIST>
 380 "ADD-LIST? same as ADD-LIST except returns #FALSE () if already there."
 381
 382 #WORD *27662423234*
 383 <GFCN \1aADD-LIST? ("VALUE" <OR FALSE <UVECTOR ANY>> ATOM UVECTOR) ATM4 L5>
 384                     <TEMP TEMP10 NUM6:FIX TEM7:FIX TEMP13:FIX>
 385                     <INTGO>
 386                     <GVAL ATM4 = TEMP10>
 387                     <DEAD ATM4>
 388                     <NTHUU TEMP10 1 = NUM6 (TYPE FIX)>
 389                     <DEAD TEMP10>
 390                     <LSH NUM6 -5 = TEMP10 (TYPE FIX)>
 391                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
 392                     <AND NUM6 31 = NUM6>
 393                     <NTHUU L5 TEMP10 = TEM7 (TYPE FIX)>
 394                     <LSH 1 NUM6 = NUM6 (TYPE FIX)>
 395                     <AND TEM7 NUM6 = TEMP13>
 396                     <VEQUAL? TEMP13 0 + TAG14 (TYPE FIX)>
 397                     <DEAD TEMP13>
 398                     <RETURN %<>>
 399 TAG14
 400                     <OR TEM7 NUM6 = TEMP13>
 401                     <DEAD TEM7 NUM6>
 402                     <PUTUU L5 TEMP10 TEMP13>
 403                     <DEAD TEMP10 TEMP13>
 404                     <RETURN L5>
 405                     <DEAD L5>
 406                     <END \1aADD-LIST?>
 407 "REM-LIST kill a bit in the uvector same way as ADD-LIST."
 408
 409 #WORD *16330774246*
 410 <GFCN \1aREM-LIST ("VALUE" <UVECTOR ANY> ATOM UVECTOR) ATM4 L5>
 411                     <TEMP TEMP9 NUM6:FIX WD7:FIX>
 412                     <INTGO>
 413                     <GVAL ATM4 = TEMP9>
 414                     <DEAD ATM4>
 415                     <NTHUU TEMP9 1 = NUM6 (TYPE FIX)>
 416                     <DEAD TEMP9>
 417                     <LSH NUM6 -5 = TEMP9 (TYPE FIX)>
 418                     <ADD TEMP9 1 = WD7 (TYPE FIX)>
 419                     <DEAD TEMP9>
 420                     <AND NUM6 31 = NUM6>
 421                     <NTHUU L5 WD7 = TEMP9 (TYPE FIX)>
 422                     <ROT -2 NUM6 = NUM6 (TYPE FIX)>
 423                     <AND TEMP9 NUM6 = TEMP9>
 424                     <DEAD NUM6>
 425                     <PUTUU L5 WD7 TEMP9>
 426                     <DEAD WD7 TEMP9>
 427                     <RETURN L5>
 428                     <DEAD L5>
 429                     <END \1aREM-LIST>
 430 "REM-LIST? return false if not there, else remove it and return true"
 431
 432 #WORD *34635620141*
 433 <GFCN \1aREM-LIST? ("VALUE" <OR FALSE <UVECTOR ANY>> ATOM UVECTOR) ATM4 L5>
 434                     <TEMP TEMP10 NUM6:FIX TEM7:FIX TEMP13:FIX>
 435                     <INTGO>
 436                     <GVAL ATM4 = TEMP10>
 437                     <DEAD ATM4>
 438                     <NTHUU TEMP10 1 = NUM6 (TYPE FIX)>
 439                     <DEAD TEMP10>
 440                     <LSH NUM6 -5 = TEMP10 (TYPE FIX)>
 441                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
 442                     <AND NUM6 31 = NUM6>
 443                     <LSH 1 NUM6 = NUM6 (TYPE FIX)>
 444                     <NTHUU L5 TEMP10 = TEM7 (TYPE FIX)>
 445                     <AND TEM7 NUM6 = TEMP13>
 446                     <VEQUAL? TEMP13 0 - TAG14 (TYPE FIX)>
 447                     <DEAD TEMP13>
 448                     <RETURN %<>>
 449 TAG14
 450                     <XOR TEM7 NUM6 = TEMP13>
 451                     <DEAD TEM7 NUM6>
 452                     <PUTUU L5 TEMP10 TEMP13>
 453                     <DEAD TEMP10 TEMP13>
 454                     <RETURN L5>
 455                     <DEAD L5>
 456                     <END \1aREM-LIST?>
 457 "IN-LIST? see if bit is on"
 458
 459 #WORD *12674527301*
 460 <GFCN \1aIN-LIST? ("VALUE" <OR !<FALSE> UVECTOR> ATOM UVECTOR) ATM4 L5>
 461                     <TEMP TEMP9 NUM6:FIX>
 462                     <INTGO>
 463                     <GVAL ATM4 = TEMP9>
 464                     <DEAD ATM4>
 465                     <NTHUU TEMP9 1 = NUM6 (TYPE FIX)>
 466                     <DEAD TEMP9>
 467                     <LSH NUM6 -5 = TEMP9 (TYPE FIX)>
 468                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
 469                     <AND NUM6 31 = NUM6>
 470                     <NTHUU L5 TEMP9 = TEMP9 (TYPE FIX)>
 471                     <LSH 1 NUM6 = NUM6 (TYPE FIX)>
 472                     <AND TEMP9 NUM6 = TEMP9>
 473                     <DEAD NUM6>
 474                     <VEQUAL? TEMP9 0 - PHRASE11 (TYPE FIX)>
 475                     <DEAD TEMP9>
 476                     <RETURN %<>>
 477 PHRASE11
 478                     <RETURN L5>
 479                     <DEAD L5>
 480                     <END \1aIN-LIST?>
 481 #WORD *20721451071*
 482 <GFCN \1aINTERSECT-LISTS ("VALUE" <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST ATOM]>) L14 L25>
 483                     <TEMP TEMP15 TEMP13 TEMP12:LIST A117:ATOM TEMP23 TEMP24>
 484                     <INTGO>
 485                     <SET TEMP15 () (TYPE LIST)>
 486                     <SET TEMP13 () (TYPE LIST)>
 487                     <SET TEMP12 L14 (TYPE LIST)>
 488                     <DEAD L14>
 489                     <LOOP>
 490 MAP7
 491                     <INTGO>
 492                     <EMPL? TEMP12 + MAPAP10>
 493                     <NTHL TEMP12 1 = A117>
 494                     <SET TEMP23 L25>
 495                     <EMPL? TEMP23 + PHRASE28>
 496                     <LOOP (A117 VALUE) (TEMP23 VALUE)>
 497 TAG21
 498                     <NTHL TEMP23 1 = TEMP24>
 499                     <VEQUAL? TEMP24 A117 + TAG20>
 500                     <DEAD TEMP24>
 501                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
 502                     <EMPL? TEMP23 - TAG21>
 503                     <JUMP + PHRASE28>
 504 TAG20
 505                     <CONS A117 () = TEMP23 (TYPE LIST)>
 506                     <DEAD A117>
 507                     <EMPL? TEMP15 - TAG26>
 508                     <SET TEMP15 TEMP23 (TYPE LIST)>
 509                     <JUMP + TAG27>
 510 TAG26
 511                     <PUTREST TEMP13 TEMP23>
 512                     <DEAD TEMP13>
 513 TAG27
 514                     <SET TEMP13 TEMP23 (TYPE LIST)>
 515                     <DEAD TEMP23>
 516 PHRASE28
 517                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 518                     <JUMP + MAP7>
 519 MAPAP10
 520                     <RETURN TEMP15>
 521                     <DEAD TEMP15>
 522                     <END \1aINTERSECT-LISTS>
 523 #WORD *374124016*
 524 <GFCN \1aATOM-PART ("VALUE" ATOM <OR ATOM ADECL LIST>) TEMP4>
 525                     <TEMP TEMP7>
 526                     <INTGO>
 527                     <TYPE? TEMP4 <TYPE-CODE ATOM> - PHRASE6>
 528                     <RETURN TEMP4>
 529                     <DEAD TEMP4>
 530 PHRASE6
 531                     <TYPE? TEMP4 <TYPE-CODE ADECL> - PHRASE8>
 532                     <NTHUV TEMP4 1 = TEMP7 (TYPE ATOM)>
 533                     <DEAD TEMP4>
 534                     <RETURN TEMP7>
 535                     <DEAD TEMP7>
 536 PHRASE8
 537                     <FRAME '\1aATOM-PART>
 538                     <NTHL TEMP4 1 = STACK>
 539                     <DEAD TEMP4>
 540                     <CALL '\1aATOM-PART 1 = TEMP7>
 541                     <RETURN TEMP7>
 542                     <DEAD TEMP7>
 543                     <END \1aATOM-PART>
 544 #WORD *22156410675*
 545 <GFCN \1aDECL-PART ("VALUE" ANY <OR ATOM ADECL LIST>) TEMP4>
 546                     <TEMP TEMP7>
 547                     <INTGO>
 548                     <TYPE? TEMP4 <TYPE-CODE ATOM> - PHRASE6>
 549                     <RETURN %<>>
 550 PHRASE6
 551                     <TYPE? TEMP4 <TYPE-CODE ADECL> - PHRASE8>
 552                     <NTHUV TEMP4 2 = TEMP7>
 553                     <DEAD TEMP4>
 554                     <RETURN TEMP7>
 555                     <DEAD TEMP7>
 556 PHRASE8
 557                     <FRAME '\1aDECL-PART>
 558                     <NTHL TEMP4 1 = STACK>
 559                     <DEAD TEMP4>
 560                     <CALL '\1aDECL-PART 1 = TEMP7>
 561                     <RETURN TEMP7>
 562                     <DEAD TEMP7>
 563                     <END \1aDECL-PART>
 564 #WORD *35645555661*
 565 <GFCN \1aINST-PART ("VALUE" ANY ANY) INST4>
 566                     <TEMP TEMP7>
 567                     <INTGO>
 568                     <TYPE? INST4 <TYPE-CODE BRANCH> - PHRASE6>
 569                     <NTHUV INST4 1 = TEMP7 (TYPE FORM)>
 570                     <DEAD INST4>
 571                     <RETURN TEMP7>
 572                     <DEAD TEMP7>
 573 PHRASE6
 574                     <TYPE? INST4 <TYPE-CODE LABEL> - PHRASE8>
 575                     <NTHUV INST4 1 = TEMP7>
 576                     <DEAD INST4>
 577                     <RETURN TEMP7>
 578                     <DEAD TEMP7>
 579 PHRASE8
 580                     <RETURN INST4>
 581                     <DEAD INST4>
 582                     <END \1aINST-PART>
 583 #WORD *21236654621*
 584 <GFCN \1aREMOVE-DEADS ("VALUE" FIX LIST) CODE4>
 585                     <TEMP RCODE8:LIST CODE-SIZE11:FIX INST9>
 586                     <INTGO>
 587                     <RESTL CODE4 1 = RCODE8 (TYPE LIST)>
 588                     <SET CODE-SIZE11 1 (TYPE FIX)>
 589                     <LOOP>
 590 AGAIN12
 591                     <INTGO>
 592                     <EMPL? RCODE8 - PHRASE14 (TYPE LIST)>
 593                     <RETURN CODE-SIZE11>
 594                     <DEAD CODE-SIZE11>
 595 PHRASE14
 596                     <NTHL RCODE8 1 = INST9>
 597                     <TYPE? INST9 <TYPE-CODE FORM> - PHRASE20>
 598                     <EMPL? INST9 + PHRASE20 (TYPE FORM)>
 599                     <FRAME '\1aKILL-FUNNY-DEADS>
 600                     <PUSH INST9>
 601                     <CALL '\1aKILL-FUNNY-DEADS 1>
 602                     <NTHL INST9 1 = INST9>
 603                     <EQUAL? INST9 '`DEAD - PHRASE19>
 604                     <RESTL RCODE8 1 = RCODE8 (TYPE LIST)>
 605                     <PUTREST CODE4 RCODE8>
 606                     <JUMP + AGAIN12>
 607 PHRASE19
 608                     <EQUAL? INST9 '`ENDIF - PHRASE20>
 609                     <DEAD INST9>
 610                     <ADD CODE-SIZE11 1 = CODE-SIZE11 (TYPE FIX)>
 611 PHRASE20
 612                     <ADD CODE-SIZE11 1 = CODE-SIZE11 (TYPE FIX)>
 613                     <SET CODE4 RCODE8>
 614                     <DEAD RCODE8>
 615                     <RESTL CODE4 1 = RCODE8 (TYPE LIST)>
 616                     <JUMP + AGAIN12>
 617                     <END \1aREMOVE-DEADS>
 618 #WORD *26301056613*
 619 <GFCN \1aKILL-FUNNY-DEADS ("VALUE" ATOM FORM) INST4>
 620                     <TEMP N5 L9 TEMP15:FIX>
 621                     <INTGO>
 622                     <LENL INST4 = N5 (TYPE FIX)>
 623                     <LOOP>
 624 AGAIN11
 625                     <INTGO>
 626                     <SET TEMP15 N5>
 627                     <SET L9 INST4>
 628                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
 629                     <GRTR? TEMP15 0 - RESTL18 (TYPE FIX)>
 630                     <LOOP (L9 VALUE) (TEMP15 VALUE)>
 631 RESTL16
 632                     <INTGO>
 633                     <RESTL L9 1 = L9 (TYPE LIST)>
 634                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
 635                     <GRTR? TEMP15 0 + RESTL16 (TYPE FIX)>
 636 RESTL18
 637                     <NTHL L9 1 = L9>
 638                     <TYPE? L9 <TYPE-CODE LIST> - PHRASE13>
 639                     <EMPL? L9 + PHRASE13 (TYPE LIST)>
 640                     <NTHL L9 1 = L9>
 641                     <EQUAL? L9 '`DEAD-FALL + BOOL19>
 642                     <EQUAL? L9 '`DEAD-JUMP - PHRASE13>
 643                     <DEAD L9>
 644 BOOL19
 645                     <SUB N5 2 = TEMP15 (TYPE FIX)>
 646                     <SET L9 INST4>
 647                     <GRTR? TEMP15 0 - RESTL21 (TYPE FIX)>
 648                     <LOOP (L9 VALUE) (TEMP15 VALUE)>
 649 RESTL20
 650                     <INTGO>
 651                     <RESTL L9 1 = L9 (TYPE LIST)>
 652                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
 653                     <GRTR? TEMP15 0 + RESTL20 (TYPE FIX)>
 654 RESTL21
 655                     <CHTYPE L9 <TYPE-CODE LIST> = L9>
 656                     <PUTREST L9 ()>
 657                     <DEAD L9>
 658                     <SUB N5 1 = N5 (TYPE FIX)>
 659                     <JUMP + AGAIN11>
 660 PHRASE13
 661                     <RETURN 'T>
 662                     <END \1aKILL-FUNNY-DEADS>
 663 #WORD *24247322124*
 664 <GFCN \1aPREPARE-LABELS-AND-TEMPS ("VALUE" <LIST [REST LABEL]> VECTOR) CODE4>
 665                     <TEMP (ALL-VARS5:LIST ()) (NTEMPS6:FIX 0) CODELEN7:FIX (LOOP-LABELS8:LIST ()) I11:FIX LOOP-LABEL?14 DID-ENDIF16 INST12 TEMP20>
 666                     <INTGO>
 667                     <LENUV CODE4 = CODELEN7 (TYPE FIX)>
 668                     <SET I11 1 (TYPE FIX)>
 669                     <SET LOOP-LABEL?14 %<> (TYPE FALSE)>
 670                     <SET DID-ENDIF16 %<> (TYPE FALSE)>
 671                     <LOOP>
 672 AGAIN17
 673                     <INTGO>
 674                     <NTHUV CODE4 I11 = INST12>
 675                     <TYPE? INST12 <TYPE-CODE ATOM> - PHRASE19>
 676                     <NTHR INST12 1 = TEMP20 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG21)>
 677                     <TYPE? TEMP20 <TYPE-CODE FALSE> + TAG21>
 678                     <PUTR TEMP20 1 I11 (RECORD-TYPE GBIND)>
 679                     <DEAD TEMP20>
 680                     <JUMP + TAG22>
 681 TAG21
 682                     <FRAME '\1aSETG>
 683                     <PUSH INST12>
 684                     <PUSH I11>
 685                     <CALL '\1aSETG 2>
 686 TAG22
 687                     <PUSH INST12>
 688                     <DEAD INST12>
 689                     <PUSH ()>
 690                     <PUSH 0>
 691                     <PUSH %<>>
 692                     <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP20>
 693                     <CHTYPE TEMP20 <TYPE-CODE LABEL> = INST12>
 694                     <DEAD TEMP20>
 695                     <VEQUAL? LOOP-LABEL?14 0 + PHRASE25>
 696                     <CONS INST12 LOOP-LABELS8 = LOOP-LABELS8>
 697                     <SET LOOP-LABEL?14 %<> (TYPE FALSE)>
 698 PHRASE25
 699                     <PUTUV CODE4 I11 INST12>
 700                     <DEAD INST12>
 701                     <JUMP + PHRASE41>
 702 PHRASE19
 703                     <TYPE? INST12 <TYPE-CODE FORM> - PHRASE41>
 704                     <EMPL? INST12 + PHRASE41 (TYPE FORM)>
 705                     <NTHL INST12 1 = TEMP20>
 706                     <EQUAL? TEMP20 '`END + BOOL30>
 707                     <EQUAL? TEMP20 '`ENDIF - PHRASE29>
 708                     <VEQUAL? DID-ENDIF16 0 + PHRASE29>
 709 BOOL30
 710                     <SET DID-ENDIF16 %<> (TYPE FALSE)>
 711                     <PUSH INST12>
 712                     <DEAD INST12>
 713                     <PUSH ()>
 714                     <PUSH 0>
 715                     <PUSH %<>>
 716                     <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP20>
 717                     <CHTYPE TEMP20 <TYPE-CODE LABEL> = TEMP20>
 718                     <PUTUV CODE4 I11 TEMP20>
 719                     <DEAD TEMP20>
 720                     <JUMP + PHRASE41>
 721 PHRASE29
 722                     <EQUAL? TEMP20 '`ENDIF - PHRASE33>
 723                     <VEQUAL? DID-ENDIF16 0 - PHRASE33>
 724                     <SET DID-ENDIF16 'T (TYPE ATOM)>
 725                     <JUMP + PHRASE41>
 726 PHRASE33
 727                     <EQUAL? TEMP20 '`LOOP - PHRASE35>
 728                     <SET LOOP-LABEL?14 'T (TYPE ATOM)>
 729                     <JUMP + PHRASE41>
 730 PHRASE35
 731                     <EQUAL? TEMP20 '`ACTIVATION - PHRASE36>
 732                     <PUSH INST12>
 733                     <DEAD INST12>
 734                     <PUSH ()>
 735                     <PUSH 0>
 736                     <PUSH %<>>
 737                     <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP20>
 738                     <CHTYPE TEMP20 <TYPE-CODE LABEL> = INST12>
 739                     <DEAD TEMP20>
 740                     <CONS INST12 LOOP-LABELS8 = LOOP-LABELS8>
 741                     <PUTUV CODE4 I11 INST12>
 742                     <DEAD INST12>
 743                     <JUMP + PHRASE41>
 744 PHRASE36
 745                     <EQUAL? TEMP20 '`GFCN + BOOL39>
 746                     <EQUAL? TEMP20 '`FCN - PHRASE38>
 747 BOOL39
 748                     <RESTL INST12 1 = INST12 (TYPE LIST)>
 749                     <RESTL INST12 1 = INST12 (TYPE LIST)>
 750                     <RESTL INST12 1 = INST12 (TYPE LIST)>
 751                     <CHTYPE INST12 <TYPE-CODE LIST> = INST12>
 752                     <CONS INST12 () = TEMP20>
 753                     <PUTREST TEMP20 ALL-VARS5>
 754                     <DEAD ALL-VARS5>
 755                     <SET ALL-VARS5 TEMP20>
 756                     <DEAD TEMP20>
 757                     <LENL INST12 = TEMP20 (TYPE FIX)>
 758                     <DEAD INST12>
 759                     <ADD TEMP20 NTEMPS6 = NTEMPS6 (TYPE FIX)>
 760                     <DEAD TEMP20>
 761                     <JUMP + PHRASE41>
 762 PHRASE38
 763                     <EQUAL? TEMP20 '`TEMP - PHRASE40>
 764                     <RESTL INST12 1 = INST12 (TYPE LIST)>
 765                     <CHTYPE INST12 <TYPE-CODE LIST> = INST12>
 766                     <CONS INST12 () = TEMP20>
 767                     <PUTREST TEMP20 ALL-VARS5>
 768                     <DEAD ALL-VARS5>
 769                     <SET ALL-VARS5 TEMP20>
 770                     <DEAD TEMP20>
 771                     <LENL INST12 = TEMP20 (TYPE FIX)>
 772                     <DEAD INST12>
 773                     <ADD TEMP20 NTEMPS6 = NTEMPS6 (TYPE FIX)>
 774                     <DEAD TEMP20>
 775                     <JUMP + PHRASE41>
 776 PHRASE40
 777                     <EQUAL? TEMP20 '`MAKTUP - PHRASE41>
 778                     <DEAD TEMP20>
 779                     <RESTL INST12 1 = TEMP20 (TYPE LIST)>
 780                     <CHTYPE TEMP20 <TYPE-CODE LIST> = TEMP20>
 781                     <CONS TEMP20 ALL-VARS5 = ALL-VARS5>
 782                     <DEAD TEMP20>
 783                     <LENL INST12 = TEMP20 (TYPE FIX)>
 784                     <DEAD INST12>
 785                     <ADD TEMP20 NTEMPS6 = TEMP20 (TYPE FIX)>
 786                     <DEAD NTEMPS6>
 787                     <ADD TEMP20 -3 = NTEMPS6 (TYPE FIX)>
 788                     <DEAD TEMP20>
 789 PHRASE41
 790                     <VEQUAL? I11 CODELEN7 + EXIT9 (TYPE FIX)>
 791                     <ADD I11 1 = I11 (TYPE FIX)>
 792                     <JUMP + AGAIN17>
 793 EXIT9
 794                     <FRAME '\1aCONSTRUCT-TEMPS>
 795                     <PUSH NTEMPS6>
 796                     <DEAD NTEMPS6>
 797                     <PUSH ALL-VARS5>
 798                     <DEAD ALL-VARS5>
 799                     <CALL '\1aCONSTRUCT-TEMPS 2>
 800                     <RETURN LOOP-LABELS8>
 801                     <DEAD LOOP-LABELS8>
 802                     <END \1aPREPARE-LABELS-AND-TEMPS>
 803 #WORD *23265023057*
 804 <GFCN \1aCONSTRUCT-TEMPS ("VALUE" FIX FIX <LIST [REST LIST]>) NTEMPS4 ALL-VARS5>
 805                     <TEMP TEMP9 UVSIZE6:FIX UV-OF-NAMES7:VECTOR (I8:FIX 0) L20:LIST ATM32 UV33:UVECTOR TEMP36>
 806                     <INTGO>
 807                     <ADD NTEMPS4 63 = TEMP9 (TYPE FIX)>
 808                     <LSH TEMP9 -5 = UVSIZE6 (TYPE FIX)>
 809                     <DEAD TEMP9>
 810                     <UUBLOCK <TYPE-CODE VECTOR> NTEMPS4 = UV-OF-NAMES7 (TYPE VECTOR)>
 811                     <DEAD NTEMPS4>
 812                     <SET TEMP9 ALL-VARS5 (TYPE LIST)>
 813                     <DEAD ALL-VARS5>
 814                     <LOOP>
 815 MAP11
 816                     <INTGO>
 817                     <EMPL? TEMP9 + MAPAP14>
 818                     <NTHL TEMP9 1 = L20>
 819                     <LOOP>
 820 MAP22
 821                     <INTGO>
 822                     <EMPL? L20 + MAPAP25>
 823                     <NTHL L20 1 = ATM32>
 824                     <EQUAL? ATM32 '= + MAPAP25>
 825                     <FRAME '\1aATOM-PART>
 826                     <PUSH ATM32>
 827                     <DEAD ATM32>
 828                     <CALL '\1aATOM-PART 1 = ATM32>
 829                     <UUBLOCK <TYPE-CODE UVECTOR> UVSIZE6 = UV33>
 830                     <SET TEMP36 UV33>
 831                     <LOOP (TEMP36 VALUE LENGTH)>
 832 ISTR38
 833                     <EMPUU? TEMP36 + ISTRE39>
 834                     <PUTUU TEMP36 1 0>
 835                     <RESTUU TEMP36 1 = TEMP36>
 836                     <JUMP + ISTR38>
 837 ISTRE39
 838                     <NTHR ATM32 1 = TEMP36 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG40)>
 839                     <TYPE? TEMP36 <TYPE-CODE FALSE> + TAG40>
 840                     <PUTR TEMP36 1 UV33 (RECORD-TYPE GBIND)>
 841                     <DEAD TEMP36>
 842                     <JUMP + TAG41>
 843 TAG40
 844                     <FRAME '\1aSETG>
 845                     <PUSH ATM32>
 846                     <PUSH UV33>
 847                     <CALL '\1aSETG 2>
 848 TAG41
 849                     <PUTUU UV33 1 I8>
 850                     <DEAD UV33>
 851                     <ADD I8 1 = TEMP36 (TYPE FIX)>
 852                     <PUTUV UV-OF-NAMES7 TEMP36 ATM32>
 853                     <DEAD TEMP36 ATM32>
 854                     <ADD I8 1 = I8 (TYPE FIX)>
 855                     <RESTL L20 1 = L20 (TYPE LIST)>
 856                     <JUMP + MAP22>
 857 MAPAP25
 858                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
 859                     <JUMP + MAP11>
 860 MAPAP14
 861                     <SETG 'NAME-UV UV-OF-NAMES7>
 862                     <DEAD UV-OF-NAMES7>
 863                     <SUB UVSIZE6 1 = UVSIZE6 (TYPE FIX)>
 864                     <SETG 'UVSIZE UVSIZE6>
 865                     <RETURN UVSIZE6>
 866                     <DEAD UVSIZE6>
 867                     <END \1aCONSTRUCT-TEMPS>
 868 #WORD *35756775017*
 869                     <GFCN \1aMAKE-BRANCH ("VALUE" FORM "QUOTE" ANY) INST4>
 870                     <TEMP TEMP9:FORM>
 871                     <INTGO>
 872                     <FRAME '\1aFORM>
 873                     <PUSH 'CHTYPE>
 874                     <PUSH INST4>
 875                     <DEAD INST4>
 876                     <PUSH ()>
 877                     <FRAME '\1aFORM>
 878                     <PUSH 'IUVECTOR>
 879                     <PUSH ,UVSIZE>
 880                     <PUSH 0>
 881                     <CALL '\1aFORM 3 = STACK>
 882                     <FRAME '\1aFORM>
 883                     <PUSH 'IUVECTOR>
 884                     <PUSH ,UVSIZE>
 885                     <PUSH 0>
 886                     <CALL '\1aFORM 3 = STACK>
 887                     <PUSH %<>>
 888                     <UBLOCK <TYPE-CODE VECTOR> 5 = STACK>
 889                     <PUSH 'BRANCH>
 890                     <CALL '\1aFORM 3 = TEMP9>
 891                     <RETURN TEMP9>
 892                     <DEAD TEMP9>
 893                     <END \1aMAKE-BRANCH>
 894 <COND (<AND <GASSIGNED? MAKE-BRANCH> <NOT <TYPE? ,MAKE-BRANCH MACRO>>> <SETG MAKE-BRANCH <CHTYPE (,MAKE-BRANCH) MACRO>>)>
 895
 896 #WORD *34527545545*
 897 <GFCN \1aPREPARE-BRANCHES ("VALUE" VECTOR VECTOR FIX FIX FIX <LIST [REST FIX]>) CODE4 START5 END6 RETURN-LABEL7 ACT-LABELS8>
 898                     <TEMP I11:FIX DONT-BRANCH-IFSYS18 INST12 TEMP25 OP13 INST2-17 TEMP145 LAB16:LABEL>
 899                     <INTGO>
 900                     <SET I11 START5>
 901                     <DEAD START5>
 902                     <SET DONT-BRANCH-IFSYS18 %<> (TYPE FALSE)>
 903                     <LOOP>
 904 AGAIN19
 905                     <INTGO>
 906                     <NTHUV CODE4 I11 = INST12>
 907                     <TYPE? INST12 <TYPE-CODE LABEL> - PHRASE21>
 908                     <NTHUV INST12 1 = INST12>
 909                     <TYPE? INST12 <TYPE-CODE FORM> - PHRASE23>
 910                     <NTHL INST12 1 = TEMP25>
 911                     <DEAD INST12>
 912                     <EQUAL? TEMP25 '`ACTIVATION - PHRASE23>
 913                     <DEAD TEMP25>
 914                     <CONS RETURN-LABEL7 ACT-LABELS8 = TEMP25>
 915                     <DEAD ACT-LABELS8>
 916                     <CONS I11 TEMP25 = ACT-LABELS8>
 917                     <DEAD TEMP25>
 918 PHRASE23
 919                     <FRAME '\1aMAKE-CONNECTION>
 920                     <PUSH CODE4>
 921                     <PUSH I11>
 922                     <ADD I11 1 = STACK (TYPE FIX)>
 923                     <CALL '\1aMAKE-CONNECTION 3>
 924                     <JUMP + PHRASE201>
 925 PHRASE21
 926                     <TYPE? INST12 <TYPE-CODE FORM> - PHRASE201>
 927                     <EMPL? INST12 + PHRASE201 (TYPE FORM)>
 928                     <NTHL INST12 1 = OP13>
 929                     <EQUAL? OP13 '`ENDIF - PHRASE30>
 930                     <ADD I11 2 = TEMP25 (TYPE FIX)>
 931                     <NTHUV CODE4 TEMP25 = INST2-17>
 932                     <DEAD TEMP25>
 933                     <TYPE? INST2-17 <TYPE-CODE FORM> - PHRASE32>
 934                     <EMPL? INST2-17 + PHRASE32 (TYPE FORM)>
 935                     <NTHL INST2-17 1 = OP13>
 936                     <EQUAL? OP13 '`IFSYS - BOOL35>
 937                     <FRAME '\1aNOT-MERGEABLE-IFSYS-TYPES>
 938                     <RESTL INST2-17 1 = TEMP25 (TYPE LIST)>
 939                     <NTHL TEMP25 1 = STACK>
 940                     <DEAD TEMP25>
 941                     <RESTL INST12 1 = TEMP25 (TYPE LIST)>
 942                     <NTHL TEMP25 1 = STACK>
 943                     <DEAD TEMP25>
 944                     <CALL '\1aNOT-MERGEABLE-IFSYS-TYPES 2 = TEMP25>
 945                     <TYPE? TEMP25 <TYPE-CODE FALSE> - BOOL34>
 946                     <DEAD TEMP25>
 947 BOOL35
 948                     <EQUAL? OP13 '`IFCAN + BOOL38>
 949                     <EQUAL? OP13 '`IFCANNOT - PHRASE32>
 950                     <DEAD OP13>
 951 BOOL38
 952                     <FRAME '\1a=?>
 953                     <RESTL INST12 1 = TEMP25 (TYPE LIST)>
 954                     <NTHL TEMP25 1 = STACK>
 955                     <DEAD TEMP25>
 956                     <RESTL INST2-17 1 = TEMP25 (TYPE LIST)>
 957                     <NTHL TEMP25 1 = STACK>
 958                     <DEAD TEMP25>
 959                     <CALL '\1a=? 2 = TEMP25>
 960                     <VEQUAL? TEMP25 0 + PHRASE32>
 961                     <DEAD TEMP25>
 962 BOOL34
 963                     <SET DONT-BRANCH-IFSYS18 'T (TYPE ATOM)>
 964                     <PUSH INST12>
 965                     <PUSH ()>
 966                     <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
 967                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
 968                     <DEAD TEMP25>
 969                     <SET TEMP25 OP13>
 970                     <LOOP (TEMP25 VALUE LENGTH)>
 971 ISTR42
 972                     <EMPUU? TEMP25 + ISTRE43>
 973                     <PUTUU TEMP25 1 0>
 974                     <RESTUU TEMP25 1 = TEMP25>
 975                     <JUMP + ISTR42>
 976 ISTRE43
 977                     <PUSH OP13>
 978                     <DEAD OP13>
 979                     <GVAL 'UVSIZE = OP13 (TYPE FIX)>
 980                     <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
 981                     <DEAD OP13>
 982                     <SET OP13 TEMP25>
 983                     <LOOP (OP13 VALUE LENGTH)>
 984 ISTR44
 985                     <EMPUU? OP13 + ISTRE45>
 986                     <PUTUU OP13 1 0>
 987                     <RESTUU OP13 1 = OP13>
 988                     <JUMP + ISTR44>
 989 ISTRE45
 990                     <PUSH TEMP25>
 991                     <DEAD TEMP25>
 992                     <PUSH %<>>
 993                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
 994                     <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
 995                     <PUTUV CODE4 I11 TEMP25>
 996                     <DEAD TEMP25>
 997                     <FRAME '\1aMAKE-CONNECTION>
 998                     <PUSH CODE4>
 999                     <PUSH I11>
1000                     <FRAME '\1aFUNNY-FIND-ENDIF>
1001                     <PUSH CODE4>
1002                     <ADD I11 1 = STACK (TYPE FIX)>
1003                     <RESTL INST12 1 = TEMP25 (TYPE LIST)>
1004                     <DEAD INST12>
1005                     <NTHL TEMP25 1 = STACK>
1006                     <DEAD TEMP25>
1007                     <RESTL INST2-17 1 = TEMP25 (TYPE LIST)>
1008                     <DEAD INST2-17>
1009                     <NTHL TEMP25 1 = STACK>
1010                     <DEAD TEMP25>
1011                     <CALL '\1aFUNNY-FIND-ENDIF 4 = STACK>
1012                     <CALL '\1aMAKE-CONNECTION 3>
1013                     <JUMP + PHRASE201>
1014 PHRASE32
1015                     <FRAME '\1aMAKE-CONNECTION>
1016                     <PUSH CODE4>
1017                     <PUSH I11>
1018                     <ADD I11 1 = STACK (TYPE FIX)>
1019                     <CALL '\1aMAKE-CONNECTION 3>
1020                     <JUMP + PHRASE201>
1021 PHRASE30
1022                     <EQUAL? OP13 '`JUMP - PHRASE50>
1023                     <PUSH INST12>
1024                     <PUSH ()>
1025                     <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1026                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
1027                     <DEAD TEMP25>
1028                     <SET TEMP25 OP13>
1029                     <LOOP (TEMP25 VALUE LENGTH)>
1030 ISTR52
1031                     <EMPUU? TEMP25 + ISTRE53>
1032                     <PUTUU TEMP25 1 0>
1033                     <RESTUU TEMP25 1 = TEMP25>
1034                     <JUMP + ISTR52>
1035 ISTRE53
1036                     <PUSH OP13>
1037                     <DEAD OP13>
1038                     <GVAL 'UVSIZE = OP13 (TYPE FIX)>
1039                     <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
1040                     <DEAD OP13>
1041                     <SET OP13 TEMP25>
1042                     <LOOP (OP13 VALUE LENGTH)>
1043 ISTR54
1044                     <EMPUU? OP13 + ISTRE55>
1045                     <PUTUU OP13 1 0>
1046                     <RESTUU OP13 1 = OP13>
1047                     <JUMP + ISTR54>
1048 ISTRE55
1049                     <PUSH TEMP25>
1050                     <DEAD TEMP25>
1051                     <PUSH %<>>
1052                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
1053                     <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
1054                     <PUTUV CODE4 I11 TEMP25>
1055                     <DEAD TEMP25>
1056                     <RESTL INST12 1 = TEMP25 (TYPE LIST)>
1057                     <DEAD INST12>
1058                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1059                     <NTHL TEMP25 1 = OP13>
1060                     <DEAD TEMP25>
1061                     <NTHR OP13 1 = TEMP25 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE57)>
1062                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE57>
1063                     <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE GBIND)>
1064                     <TYPE? TEMP25 <TYPE-CODE UNBOUND> + PHRASE57>
1065                     <DEAD TEMP25>
1066                     <FRAME '\1aMAKE-CONNECTION>
1067                     <PUSH CODE4>
1068                     <PUSH I11>
1069                     <GVAL OP13 = STACK>
1070                     <DEAD OP13>
1071                     <CALL '\1aMAKE-CONNECTION 3>
1072                     <JUMP + PHRASE201>
1073 PHRASE57
1074                     <FRAME '\1aMAKE-CONNECTION>
1075                     <PUSH CODE4>
1076                     <PUSH I11>
1077                     <PUSH RETURN-LABEL7>
1078                     <CALL '\1aMAKE-CONNECTION 3>
1079                     <JUMP + PHRASE201>
1080 PHRASE50
1081                     <EQUAL? OP13 '`RETURN + BOOL62>
1082                     <EQUAL? OP13 '`MRETURN + BOOL62>
1083                     <EQUAL? OP13 '`RTUPLE - PHRASE61>
1084 BOOL62
1085                     <PUSH INST12>
1086                     <DEAD INST12>
1087                     <PUSH ()>
1088                     <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1089                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
1090                     <DEAD TEMP25>
1091                     <SET TEMP25 OP13>
1092                     <LOOP (TEMP25 VALUE LENGTH)>
1093 ISTR64
1094                     <EMPUU? TEMP25 + ISTRE65>
1095                     <PUTUU TEMP25 1 0>
1096                     <RESTUU TEMP25 1 = TEMP25>
1097                     <JUMP + ISTR64>
1098 ISTRE65
1099                     <PUSH OP13>
1100                     <DEAD OP13>
1101                     <GVAL 'UVSIZE = OP13 (TYPE FIX)>
1102                     <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
1103                     <DEAD OP13>
1104                     <SET OP13 TEMP25>
1105                     <LOOP (OP13 VALUE LENGTH)>
1106 ISTR66
1107                     <EMPUU? OP13 + ISTRE67>
1108                     <PUTUU OP13 1 0>
1109                     <RESTUU OP13 1 = OP13>
1110                     <JUMP + ISTR66>
1111 ISTRE67
1112                     <PUSH TEMP25>
1113                     <DEAD TEMP25>
1114                     <PUSH %<>>
1115                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
1116                     <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
1117                     <PUTUV CODE4 I11 TEMP25>
1118                     <DEAD TEMP25>
1119                     <FRAME '\1aMAKE-CONNECTION>
1120                     <PUSH CODE4>
1121                     <PUSH I11>
1122                     <PUSH RETURN-LABEL7>
1123                     <CALL '\1aMAKE-CONNECTION 3>
1124                     <JUMP + PHRASE201>
1125 PHRASE61
1126                     <EQUAL? OP13 '`SCALL - PHRASE69>
1127                     <PUSH INST12>
1128                     <PUSH ()>
1129                     <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1130                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = OP13>
1131                     <DEAD TEMP25>
1132                     <SET TEMP25 OP13>
1133                     <LOOP (TEMP25 VALUE LENGTH)>
1134 ISTR71
1135                     <EMPUU? TEMP25 + ISTRE72>
1136                     <PUTUU TEMP25 1 0>
1137                     <RESTUU TEMP25 1 = TEMP25>
1138                     <JUMP + ISTR71>
1139 ISTRE72
1140                     <PUSH OP13>
1141                     <DEAD OP13>
1142                     <GVAL 'UVSIZE = OP13 (TYPE FIX)>
1143                     <UUBLOCK <TYPE-CODE UVECTOR> OP13 = TEMP25>
1144                     <DEAD OP13>
1145                     <SET OP13 TEMP25>
1146                     <LOOP (OP13 VALUE LENGTH)>
1147 ISTR73
1148                     <EMPUU? OP13 + ISTRE74>
1149                     <PUTUU OP13 1 0>
1150                     <RESTUU OP13 1 = OP13>
1151                     <JUMP + ISTR73>
1152 ISTRE74
1153                     <PUSH TEMP25>
1154                     <DEAD TEMP25>
1155                     <PUSH %<>>
1156                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
1157                     <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
1158                     <PUTUV CODE4 I11 TEMP25>
1159                     <DEAD TEMP25>
1160                     <EMPL? ACT-LABELS8 + MAPAP81 (TYPE LIST)>
1161                     <SET TEMP25 ACT-LABELS8 (TYPE LIST)>
1162                     <LOOP>
1163 MAP78
1164                     <INTGO>
1165                     <EMPL? TEMP25 + MAPAP81>
1166                     <NTHL TEMP25 1 = OP13>
1167                     <FRAME '\1aMAKE-CONNECTION>
1168                     <PUSH CODE4>
1169                     <PUSH I11>
1170                     <PUSH OP13>
1171                     <DEAD OP13>
1172                     <CALL '\1aMAKE-CONNECTION 3>
1173                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1174                     <JUMP + MAP78>
1175 MAPAP81
1176                     <NTHL INST12 7 = OP13>
1177                     <DEAD INST12>
1178                     <NTHR OP13 1 = TEMP25 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE89)>
1179                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE89>
1180                     <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE GBIND)>
1181                     <TYPE? TEMP25 <TYPE-CODE UNBOUND> + PHRASE89>
1182                     <DEAD TEMP25>
1183                     <GVAL OP13 = TEMP25>
1184                     <ADD I11 1 = INST2-17 (TYPE FIX)>
1185                     <EQUAL? TEMP25 INST2-17 + PHRASE89>
1186                     <DEAD TEMP25 INST2-17>
1187                     <FRAME '\1aMAKE-CONNECTION>
1188                     <PUSH CODE4>
1189                     <PUSH I11>
1190                     <GVAL OP13 = STACK>
1191                     <DEAD OP13>
1192                     <CALL '\1aMAKE-CONNECTION 3>
1193                     <JUMP + PHRASE92>
1194 PHRASE89
1195                     <NTHR OP13 1 = INST2-17 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG93)>
1196                     <DEAD OP13>
1197                     <TYPE? INST2-17 <TYPE-CODE FALSE> + TAG93>
1198                     <NTHR INST2-17 1 = INST2-17 (RECORD-TYPE GBIND)>
1199                     <TYPE? INST2-17 <TYPE-CODE UNBOUND> - PHRASE92>
1200                     <DEAD INST2-17>
1201 TAG93
1202                     <FRAME '\1aMAKE-CONNECTION>
1203                     <PUSH CODE4>
1204                     <PUSH I11>
1205                     <PUSH RETURN-LABEL7>
1206                     <CALL '\1aMAKE-CONNECTION 3>
1207 PHRASE92
1208                     <FRAME '\1aMAKE-CONNECTION>
1209                     <PUSH CODE4>
1210                     <PUSH I11>
1211                     <ADD I11 1 = STACK (TYPE FIX)>
1212                     <CALL '\1aMAKE-CONNECTION 3>
1213                     <JUMP + PHRASE201>
1214 PHRASE69
1215                     <EQUAL? OP13 '`CALL + BOOL97>
1216                     <EQUAL? OP13 '`ACALL + BOOL97>
1217                     <EQUAL? OP13 '`INTGO + BOOL97>
1218                     <EQUAL? OP13 '`AGAIN + BOOL97>
1219                     <EQUAL? OP13 '`RETRY + BOOL97>
1220                     <EQUAL? OP13 '`CONS + BOOL97>
1221                     <EQUAL? OP13 '`LIST + BOOL97>
1222                     <EQUAL? OP13 '`UBLOCK + BOOL97>
1223                     <EQUAL? OP13 '`UUBLOCK - PHRASE96>
1224 BOOL97
1225                     <EMPL? ACT-LABELS8 + MAPAP109 (TYPE LIST)>
1226                     <PUSH INST12>
1227                     <DEAD INST12>
1228                     <PUSH ()>
1229                     <GVAL 'UVSIZE = INST2-17 (TYPE FIX)>
1230                     <UUBLOCK <TYPE-CODE UVECTOR> INST2-17 = TEMP25>
1231                     <DEAD INST2-17>
1232                     <SET INST2-17 TEMP25>
1233                     <LOOP (INST2-17 VALUE LENGTH)>
1234 ISTR101
1235                     <EMPUU? INST2-17 + ISTRE102>
1236                     <PUTUU INST2-17 1 0>
1237                     <RESTUU INST2-17 1 = INST2-17>
1238                     <JUMP + ISTR101>
1239 ISTRE102
1240                     <PUSH TEMP25>
1241                     <DEAD TEMP25>
1242                     <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1243                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = INST2-17>
1244                     <DEAD TEMP25>
1245                     <SET TEMP25 INST2-17>
1246                     <LOOP (TEMP25 VALUE LENGTH)>
1247 ISTR103
1248                     <EMPUU? TEMP25 + ISTRE104>
1249                     <PUTUU TEMP25 1 0>
1250                     <RESTUU TEMP25 1 = TEMP25>
1251                     <JUMP + ISTR103>
1252 ISTRE104
1253                     <PUSH INST2-17>
1254                     <DEAD INST2-17>
1255                     <PUSH %<>>
1256                     <UBLOCK <TYPE-CODE VECTOR> 5 = INST2-17>
1257                     <CHTYPE INST2-17 <TYPE-CODE BRANCH> = INST2-17>
1258                     <PUTUV CODE4 I11 INST2-17>
1259                     <DEAD INST2-17>
1260                     <SET INST2-17 ACT-LABELS8 (TYPE LIST)>
1261                     <LOOP>
1262 MAP106
1263                     <INTGO>
1264                     <EMPL? INST2-17 + MAPAP109>
1265                     <NTHL INST2-17 1 = OP13>
1266                     <FRAME '\1aMAKE-CONNECTION>
1267                     <PUSH CODE4>
1268                     <PUSH I11>
1269                     <PUSH OP13>
1270                     <DEAD OP13>
1271                     <CALL '\1aMAKE-CONNECTION 3>
1272                     <RESTL INST2-17 1 = INST2-17 (TYPE LIST)>
1273                     <JUMP + MAP106>
1274 MAPAP109
1275                     <FRAME '\1aMAKE-CONNECTION>
1276                     <PUSH CODE4>
1277                     <PUSH I11>
1278                     <ADD I11 1 = STACK (TYPE FIX)>
1279                     <CALL '\1aMAKE-CONNECTION 3>
1280                     <JUMP + PHRASE201>
1281 PHRASE96
1282                     <EQUAL? OP13 '`NTHR - PHRASE116>
1283                     <SET OP13 INST12>
1284                     <LOOP (OP13 VALUE)>
1285 TAG117
1286                     <RESTL OP13 1 = INST2-17 (TYPE LIST)>
1287                     <EMPL? INST2-17 + TAG118>
1288                     <SET OP13 INST2-17>
1289                     <DEAD INST2-17>
1290                     <JUMP + TAG117>
1291 TAG118
1292                     <NTHL OP13 1 = OP13>
1293                     <TYPE? OP13 <TYPE-CODE LIST> - PHRASE201>
1294                     <EMPL? OP13 + PHRASE201 (TYPE LIST)>
1295                     <NTHL OP13 1 = INST2-17>
1296                     <EQUAL? INST2-17 '`BRANCH-FALSE - PHRASE201>
1297                     <DEAD INST2-17>
1298                     <RESTL OP13 1 = TEMP25 (TYPE LIST)>
1299                     <DEAD OP13>
1300                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1301                     <NTHL TEMP25 1 = OP13>
1302                     <DEAD TEMP25>
1303                     <PUSH INST12>
1304                     <DEAD INST12>
1305                     <PUSH ()>
1306                     <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1307                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = INST2-17>
1308                     <DEAD TEMP25>
1309                     <SET TEMP25 INST2-17>
1310                     <LOOP (TEMP25 VALUE LENGTH)>
1311 ISTR123
1312                     <EMPUU? TEMP25 + ISTRE124>
1313                     <PUTUU TEMP25 1 0>
1314                     <RESTUU TEMP25 1 = TEMP25>
1315                     <JUMP + ISTR123>
1316 ISTRE124
1317                     <PUSH INST2-17>
1318                     <DEAD INST2-17>
1319                     <GVAL 'UVSIZE = INST2-17 (TYPE FIX)>
1320                     <UUBLOCK <TYPE-CODE UVECTOR> INST2-17 = TEMP25>
1321                     <DEAD INST2-17>
1322                     <SET INST2-17 TEMP25>
1323                     <LOOP (INST2-17 VALUE LENGTH)>
1324 ISTR125
1325                     <EMPUU? INST2-17 + ISTRE126>
1326                     <PUTUU INST2-17 1 0>
1327                     <RESTUU INST2-17 1 = INST2-17>
1328                     <JUMP + ISTR125>
1329 ISTRE126
1330                     <PUSH TEMP25>
1331                     <DEAD TEMP25>
1332                     <PUSH %<>>
1333                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
1334                     <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
1335                     <PUTUV CODE4 I11 TEMP25>
1336                     <DEAD TEMP25>
1337                     <FRAME '\1aMAKE-CONNECTION>
1338                     <PUSH CODE4>
1339                     <PUSH I11>
1340                     <ADD I11 1 = STACK (TYPE FIX)>
1341                     <CALL '\1aMAKE-CONNECTION 3>
1342                     <NTHR OP13 1 = TEMP25 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE129)>
1343                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE129>
1344                     <NTHR TEMP25 1 = TEMP25 (RECORD-TYPE GBIND)>
1345                     <TYPE? TEMP25 <TYPE-CODE UNBOUND> + PHRASE129>
1346                     <DEAD TEMP25>
1347                     <FRAME '\1aMAKE-CONNECTION>
1348                     <PUSH CODE4>
1349                     <PUSH I11>
1350                     <GVAL OP13 = STACK>
1351                     <DEAD OP13>
1352                     <CALL '\1aMAKE-CONNECTION 3>
1353                     <JUMP + PHRASE201>
1354 PHRASE129
1355                     <FRAME '\1aMAKE-CONNECTION>
1356                     <PUSH CODE4>
1357                     <PUSH I11>
1358                     <PUSH RETURN-LABEL7>
1359                     <CALL '\1aMAKE-CONNECTION 3>
1360                     <JUMP + PHRASE201>
1361 PHRASE116
1362                     <EQUAL? OP13 '`DISPATCH - PHRASE133>
1363                     <PUSH INST12>
1364                     <PUSH ()>
1365                     <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1366                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = INST2-17>
1367                     <DEAD TEMP25>
1368                     <SET TEMP25 INST2-17>
1369                     <LOOP (TEMP25 VALUE LENGTH)>
1370 ISTR135
1371                     <EMPUU? TEMP25 + ISTRE136>
1372                     <PUTUU TEMP25 1 0>
1373                     <RESTUU TEMP25 1 = TEMP25>
1374                     <JUMP + ISTR135>
1375 ISTRE136
1376                     <PUSH INST2-17>
1377                     <DEAD INST2-17>
1378                     <GVAL 'UVSIZE = INST2-17 (TYPE FIX)>
1379                     <UUBLOCK <TYPE-CODE UVECTOR> INST2-17 = TEMP25>
1380                     <DEAD INST2-17>
1381                     <SET INST2-17 TEMP25>
1382                     <LOOP (INST2-17 VALUE LENGTH)>
1383 ISTR137
1384                     <EMPUU? INST2-17 + ISTRE138>
1385                     <PUTUU INST2-17 1 0>
1386                     <RESTUU INST2-17 1 = INST2-17>
1387                     <JUMP + ISTR137>
1388 ISTRE138
1389                     <PUSH TEMP25>
1390                     <DEAD TEMP25>
1391                     <PUSH %<>>
1392                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP25>
1393                     <CHTYPE TEMP25 <TYPE-CODE BRANCH> = TEMP25>
1394                     <PUTUV CODE4 I11 TEMP25>
1395                     <DEAD TEMP25>
1396                     <RESTL INST12 1 = INST12 (TYPE LIST)>
1397                     <RESTL INST12 1 = INST12 (TYPE LIST)>
1398                     <RESTL INST12 1 = TEMP25 (TYPE LIST)>
1399                     <DEAD INST12>
1400                     <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
1401                     <LOOP>
1402 MAP140
1403                     <INTGO>
1404                     <EMPL? TEMP25 + PHRASE201>
1405                     <NTHL TEMP25 1 = OP13>
1406                     <NTHR OP13 1 = INST12 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE151)>
1407                     <TYPE? INST12 <TYPE-CODE FALSE> + PHRASE151>
1408                     <NTHR INST12 1 = INST12 (RECORD-TYPE GBIND)>
1409                     <TYPE? INST12 <TYPE-CODE UNBOUND> + PHRASE151>
1410                     <DEAD INST12>
1411                     <FRAME '\1aMAKE-CONNECTION>
1412                     <PUSH CODE4>
1413                     <PUSH I11>
1414                     <GVAL OP13 = STACK>
1415                     <DEAD OP13>
1416                     <CALL '\1aMAKE-CONNECTION 3>
1417                     <JUMP + PHRASE153>
1418 PHRASE151
1419                     <FRAME '\1aMAKE-CONNECTION>
1420                     <PUSH CODE4>
1421                     <PUSH I11>
1422                     <PUSH RETURN-LABEL7>
1423                     <CALL '\1aMAKE-CONNECTION 3>
1424 PHRASE153
1425                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
1426                     <JUMP + MAP140>
1427 PHRASE133
1428                     <EQUAL? OP13 '`IFSYS + BOOL156>
1429                     <EQUAL? OP13 '`IFCAN + BOOL156>
1430                     <EQUAL? OP13 '`IFCANNOT - PHRASE155>
1431 BOOL156
1432                     <VEQUAL? DONT-BRANCH-IFSYS18 0 - PHRASE158>
1433                     <PUSH INST12>
1434                     <DEAD INST12>
1435                     <PUSH ()>
1436                     <GVAL 'UVSIZE = TEMP145 (TYPE FIX)>
1437                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP145 = TEMP25>
1438                     <DEAD TEMP145>
1439                     <SET TEMP145 TEMP25>
1440                     <LOOP (TEMP145 VALUE LENGTH)>
1441 ISTR160
1442                     <EMPUU? TEMP145 + ISTRE161>
1443                     <PUTUU TEMP145 1 0>
1444                     <RESTUU TEMP145 1 = TEMP145>
1445                     <JUMP + ISTR160>
1446 ISTRE161
1447                     <PUSH TEMP25>
1448                     <DEAD TEMP25>
1449                     <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1450                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = TEMP145>
1451                     <DEAD TEMP25>
1452                     <SET TEMP25 TEMP145>
1453                     <LOOP (TEMP25 VALUE LENGTH)>
1454 ISTR162
1455                     <EMPUU? TEMP25 + ISTRE163>
1456                     <PUTUU TEMP25 1 0>
1457                     <RESTUU TEMP25 1 = TEMP25>
1458                     <JUMP + ISTR162>
1459 ISTRE163
1460                     <PUSH TEMP145>
1461                     <DEAD TEMP145>
1462                     <PUSH %<>>
1463                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP145>
1464                     <CHTYPE TEMP145 <TYPE-CODE BRANCH> = TEMP145>
1465                     <PUTUV CODE4 I11 TEMP145>
1466                     <DEAD TEMP145>
1467 PHRASE158
1468                     <FRAME '\1aMAKE-CONNECTION>
1469                     <PUSH CODE4>
1470                     <PUSH I11>
1471                     <ADD I11 1 = STACK (TYPE FIX)>
1472                     <CALL '\1aMAKE-CONNECTION 3>
1473                     <VEQUAL? DONT-BRANCH-IFSYS18 0 + PHRASE166>
1474                     <SET DONT-BRANCH-IFSYS18 %<> (TYPE FALSE)>
1475                     <JUMP + PHRASE201>
1476 PHRASE166
1477                     <FRAME '\1aMAKE-CONNECTION>
1478                     <PUSH CODE4>
1479                     <PUSH I11>
1480                     <FRAME '\1aFIND-ENDIF>
1481                     <PUSH CODE4>
1482                     <PUSH I11>
1483                     <CALL '\1aFIND-ENDIF 2 = STACK>
1484                     <CALL '\1aMAKE-CONNECTION 3>
1485                     <JUMP + PHRASE201>
1486 PHRASE155
1487                     <EQUAL? OP13 '`LOCATION - PHRASE170>
1488                     <RESTL INST12 1 = TEMP145 (TYPE LIST)>
1489                     <DEAD INST12>
1490                     <RESTL TEMP145 1 = TEMP145 (TYPE LIST)>
1491                     <NTHL TEMP145 1 = TEMP145 (TYPE ATOM)>
1492                     <GVAL TEMP145 = OP13>
1493                     <DEAD TEMP145>
1494                     <FRAME '\1aPREPARE-BRANCHES>
1495                     <PUSH CODE4>
1496                     <ADD I11 1 = STACK (TYPE FIX)>
1497                     <DEAD I11>
1498                     <PUSH OP13>
1499                     <PUSH RETURN-LABEL7>
1500                     <CONS OP13 ACT-LABELS8 = STACK>
1501                     <CALL '\1aPREPARE-BRANCHES 5>
1502                     <SET I11 OP13>
1503                     <DEAD OP13>
1504                     <JUMP + PHRASE201>
1505 PHRASE170
1506                     <EQUAL? OP13 '`ICALL - PHRASE172>
1507                     <DEAD OP13>
1508                     <RESTL INST12 1 = TEMP145 (TYPE LIST)>
1509                     <NTHL TEMP145 1 = TEMP145 (TYPE ATOM)>
1510                     <GVAL TEMP145 = OP13>
1511                     <DEAD TEMP145>
1512                     <RESTL INST12 1 = TEMP145 (TYPE LIST)>
1513                     <DEAD INST12>
1514                     <RESTL TEMP145 1 = INST12 (TYPE LIST)>
1515                     <DEAD TEMP145>
1516                     <CHTYPE INST12 <TYPE-CODE LIST> = INST12>
1517                     <EMPL? INST12 + TAG173>
1518                     <LOOP (INST12 VALUE)>
1519 TAG175
1520                     <NTHL INST12 1 = TEMP145>
1521                     <TYPE? TEMP145 <TYPE-CODE ATOM> - TAG176>
1522                     <VEQUAL? TEMP145 '= + TAG174>
1523                     <DEAD TEMP145>
1524 TAG176
1525                     <RESTL INST12 1 = INST12 (TYPE LIST)>
1526                     <EMPL? INST12 - TAG175>
1527 TAG173
1528                     <SET INST12 %<> (TYPE FALSE)>
1529 TAG174
1530                     <VEQUAL? INST12 0 + PHRASE178>
1531                     <NTHUV CODE4 OP13 = LAB16 (TYPE LABEL)>
1532                     <NTHUV LAB16 4 = TEMP145>
1533                     <CONS I11 () = TEMP25>
1534                     <RESTL INST12 1 = INST2-17 (TYPE LIST)>
1535                     <DEAD INST12>
1536                     <NTHL INST2-17 1 = INST2-17>
1537                     <CONS INST2-17 TEMP25 = TEMP25>
1538                     <DEAD INST2-17>
1539                     <CONS TEMP25 TEMP145 = TEMP145>
1540                     <DEAD TEMP25>
1541                     <PUTUV LAB16 4 TEMP145>
1542                     <DEAD LAB16 TEMP145>
1543 PHRASE178
1544                     <FRAME '\1aPREPARE-BRANCHES>
1545                     <PUSH CODE4>
1546                     <ADD I11 1 = STACK (TYPE FIX)>
1547                     <DEAD I11>
1548                     <PUSH OP13>
1549                     <PUSH OP13>
1550                     <PUSH ACT-LABELS8>
1551                     <CALL '\1aPREPARE-BRANCHES 5>
1552                     <SET I11 OP13>
1553                     <DEAD OP13>
1554                     <JUMP + PHRASE201>
1555 PHRASE172
1556                     <CHTYPE INST12 <TYPE-CODE LIST> = TEMP145>
1557                     <LOOP (TEMP145 VALUE)>
1558 TAG184
1559                     <NTHL TEMP145 1 = TEMP25>
1560                     <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG185>
1561                     <VEQUAL? TEMP25 '+ + TAG182>
1562                     <DEAD TEMP25>
1563 TAG185
1564                     <RESTL TEMP145 1 = TEMP145 (TYPE LIST)>
1565                     <EMPL? TEMP145 - TAG184>
1566                     <JUMP + TAG183>
1567 TAG182
1568                     <SET OP13 TEMP145>
1569                     <DEAD TEMP145>
1570                     <JUMP + BOOL181>
1571 TAG183
1572                     <CHTYPE INST12 <TYPE-CODE LIST> = TEMP145>
1573                     <LOOP (TEMP145 VALUE)>
1574 TAG188
1575                     <NTHL TEMP145 1 = TEMP25>
1576                     <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG189>
1577                     <VEQUAL? TEMP25 '- + TAG187>
1578                     <DEAD TEMP25>
1579 TAG189
1580                     <RESTL TEMP145 1 = TEMP145 (TYPE LIST)>
1581                     <EMPL? TEMP145 - TAG188>
1582                     <JUMP + PHRASE180>
1583 TAG187
1584                     <SET OP13 TEMP145>
1585                     <DEAD TEMP145>
1586 BOOL181
1587                     <RESTL OP13 1 = TEMP145 (TYPE LIST)>
1588                     <DEAD OP13>
1589                     <NTHL TEMP145 1 = OP13>
1590                     <DEAD TEMP145>
1591                     <PUSH INST12>
1592                     <DEAD INST12>
1593                     <PUSH ()>
1594                     <GVAL 'UVSIZE = TEMP145 (TYPE FIX)>
1595                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP145 = TEMP25>
1596                     <DEAD TEMP145>
1597                     <SET TEMP145 TEMP25>
1598                     <LOOP (TEMP145 VALUE LENGTH)>
1599 ISTR191
1600                     <EMPUU? TEMP145 + ISTRE192>
1601                     <PUTUU TEMP145 1 0>
1602                     <RESTUU TEMP145 1 = TEMP145>
1603                     <JUMP + ISTR191>
1604 ISTRE192
1605                     <PUSH TEMP25>
1606                     <DEAD TEMP25>
1607                     <GVAL 'UVSIZE = TEMP25 (TYPE FIX)>
1608                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP25 = TEMP145>
1609                     <DEAD TEMP25>
1610                     <SET TEMP25 TEMP145>
1611                     <LOOP (TEMP25 VALUE LENGTH)>
1612 ISTR193
1613                     <EMPUU? TEMP25 + ISTRE194>
1614                     <PUTUU TEMP25 1 0>
1615                     <RESTUU TEMP25 1 = TEMP25>
1616                     <JUMP + ISTR193>
1617 ISTRE194
1618                     <PUSH TEMP145>
1619                     <DEAD TEMP145>
1620                     <PUSH %<>>
1621                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP145>
1622                     <CHTYPE TEMP145 <TYPE-CODE BRANCH> = TEMP145>
1623                     <PUTUV CODE4 I11 TEMP145>
1624                     <DEAD TEMP145>
1625                     <FRAME '\1aMAKE-CONNECTION>
1626                     <PUSH CODE4>
1627                     <PUSH I11>
1628                     <ADD I11 1 = STACK (TYPE FIX)>
1629                     <CALL '\1aMAKE-CONNECTION 3>
1630                     <NTHR OP13 1 = TEMP145 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE197)>
1631                     <TYPE? TEMP145 <TYPE-CODE FALSE> + PHRASE197>
1632                     <NTHR TEMP145 1 = TEMP145 (RECORD-TYPE GBIND)>
1633                     <TYPE? TEMP145 <TYPE-CODE UNBOUND> + PHRASE197>
1634                     <DEAD TEMP145>
1635                     <FRAME '\1aMAKE-CONNECTION>
1636                     <PUSH CODE4>
1637                     <PUSH I11>
1638                     <GVAL OP13 = STACK>
1639                     <DEAD OP13>
1640                     <CALL '\1aMAKE-CONNECTION 3>
1641                     <JUMP + PHRASE201>
1642 PHRASE197
1643                     <FRAME '\1aMAKE-CONNECTION>
1644                     <PUSH CODE4>
1645                     <PUSH I11>
1646                     <PUSH RETURN-LABEL7>
1647                     <CALL '\1aMAKE-CONNECTION 3>
1648                     <JUMP + PHRASE201>
1649 PHRASE180
1650                     <FRAME '\1aMAKE-CONNECTION>
1651                     <PUSH CODE4>
1652                     <PUSH I11>
1653                     <ADD I11 1 = STACK (TYPE FIX)>
1654                     <CALL '\1aMAKE-CONNECTION 3>
1655 PHRASE201
1656                     <ADD I11 1 = I11 (TYPE FIX)>
1657                     <VEQUAL? I11 END6 - AGAIN19 (TYPE FIX)>
1658                     <RETURN CODE4>
1659                     <DEAD CODE4>
1660                     <END \1aPREPARE-BRANCHES>
1661 #WORD *2620242350*
1662 <GFCN \1aMAKE-CONNECTION ("VALUE" ATOM VECTOR FIX FIX) CODE4 FROM5 TO6>
1663                     <TEMP FROM-BRANCH7 TEMP11:LIST>
1664                     <INTGO>
1665                     <NTHUV CODE4 FROM5 = FROM-BRANCH7>
1666                     <TYPE? FROM-BRANCH7 <TYPE-CODE BRANCH> - PHRASE10>
1667                     <NTHUV FROM-BRANCH7 2 = TEMP11 (TYPE LIST)>
1668                     <CONS TO6 TEMP11 = TEMP11>
1669                     <PUTUV FROM-BRANCH7 2 TEMP11 (TYPE LIST)>
1670                     <DEAD FROM-BRANCH7 TEMP11>
1671 PHRASE10
1672                     <NTHUV CODE4 TO6 = FROM-BRANCH7>
1673                     <DEAD CODE4 TO6>
1674                     <TYPE? FROM-BRANCH7 <TYPE-CODE LABEL> - PHRASE13>
1675                     <NTHUV FROM-BRANCH7 2 = TEMP11 (TYPE LIST)>
1676                     <CONS FROM5 TEMP11 = TEMP11>
1677                     <DEAD FROM5>
1678                     <PUTUV FROM-BRANCH7 2 TEMP11 (TYPE LIST)>
1679                     <DEAD FROM-BRANCH7 TEMP11>
1680 PHRASE13
1681                     <RETURN 'T>
1682                     <END \1aMAKE-CONNECTION>
1683 #WORD *22733045530*
1684 <GFCN \1aNOT-MERGEABLE-IFSYS-TYPES ("VALUE" <OR ATOM FALSE> ANY ANY) A4 B5>
1685                     <TEMP TEMP8 TEMP9 TEMP10 TEMP11 TEMP12>
1686                     <INTGO>
1687                     <TYPE? A4 <TYPE-CODE STRING> - PHRASE7>
1688                     <IFCAN "STRING-EQUAL?">
1689                     <STRING-EQUAL? A4 "TOPS20" - PHRASE7>
1690                     <ENDIF "STRING-EQUAL?">
1691                     <IFCANNOT "STRING-EQUAL?">
1692                     <SET TEMP8 A4>
1693                     <SET TEMP9 "TOPS20" (TYPE STRING)>
1694                     <LENUS TEMP8 = TEMP10 (TYPE FIX)>
1695                     <VEQUAL? TEMP10 6 - PHRASE7>
1696                     <LOOP (TEMP8 VALUE LENGTH) (TEMP9 VALUE LENGTH) (TEMP10 VALUE)>
1697 TAG13
1698                     <NTHUS TEMP8 1 = TEMP11>
1699                     <NTHUS TEMP9 1 = TEMP12>
1700                     <VEQUAL? TEMP11 TEMP12 - PHRASE7>
1701                     <DEAD TEMP11 TEMP12>
1702                     <RESTUS TEMP8 1 = TEMP8 (TYPE STRING)>
1703                     <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
1704                     <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
1705                     <GRTR? TEMP10 0 + TAG13 (TYPE FIX)>
1706                     <ENDIF "STRING-EQUAL?">
1707                     <TYPE? B5 <TYPE-CODE STRING> - TAG15>
1708                     <IFCAN "STRING-EQUAL?">
1709                     <STRING-EQUAL? B5 "TOPS20" + TAG14>
1710                     <ENDIF "STRING-EQUAL?">
1711                     <IFCANNOT "STRING-EQUAL?">
1712                     <SET TEMP9 B5>
1713                     <DEAD B5>
1714                     <SET TEMP8 "TOPS20" (TYPE STRING)>
1715                     <LENUS TEMP9 = TEMP12 (TYPE FIX)>
1716                     <VEQUAL? TEMP12 6 - TAG15>
1717                     <LOOP (TEMP9 VALUE LENGTH) (TEMP8 VALUE LENGTH) (TEMP12 VALUE)>
1718 TAG17
1719                     <NTHUS TEMP9 1 = TEMP11>
1720                     <NTHUS TEMP8 1 = TEMP10>
1721                     <VEQUAL? TEMP11 TEMP10 - TAG15>
1722                     <DEAD TEMP11 TEMP10>
1723                     <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
1724                     <RESTUS TEMP8 1 = TEMP8 (TYPE STRING)>
1725                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
1726                     <GRTR? TEMP12 0 + TAG17 (TYPE FIX)>
1727                     <RETURN %<>>
1728                     <ENDIF "STRING-EQUAL?">
1729 TAG15
1730                     <RETURN 'T>
1731 TAG14
1732                     <RETURN %<>>
1733 PHRASE7
1734                     <TYPE? B5 <TYPE-CODE STRING> - PHRASE19>
1735                     <IFCAN "STRING-EQUAL?">
1736                     <STRING-EQUAL? B5 "TOPS20" - PHRASE19>
1737                     <ENDIF "STRING-EQUAL?">
1738                     <IFCANNOT "STRING-EQUAL?">
1739                     <SET TEMP9 B5>
1740                     <SET TEMP10 "TOPS20" (TYPE STRING)>
1741                     <LENUS TEMP9 = TEMP11 (TYPE FIX)>
1742                     <VEQUAL? TEMP11 6 - PHRASE19>
1743                     <LOOP (TEMP9 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP11 VALUE)>
1744 TAG22
1745                     <NTHUS TEMP9 1 = TEMP8>
1746                     <NTHUS TEMP10 1 = TEMP12>
1747                     <VEQUAL? TEMP8 TEMP12 - PHRASE19>
1748                     <DEAD TEMP8 TEMP12>
1749                     <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
1750                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1751                     <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1752                     <GRTR? TEMP11 0 + TAG22 (TYPE FIX)>
1753                     <ENDIF "STRING-EQUAL?">
1754                     <RETURN 'T>
1755 PHRASE19
1756                     <TYPE? A4 <TYPE-CODE STRING> - PHRASE23>
1757                     <IFCAN "STRING-EQUAL?">
1758                     <STRING-EQUAL? A4 "UNIX" - PHRASE23>
1759                     <ENDIF "STRING-EQUAL?">
1760                     <IFCANNOT "STRING-EQUAL?">
1761                     <SET TEMP10 A4>
1762                     <SET TEMP9 "UNIX" (TYPE STRING)>
1763                     <LENUS TEMP10 = TEMP12 (TYPE FIX)>
1764                     <VEQUAL? TEMP12 4 - PHRASE23>
1765                     <LOOP (TEMP10 VALUE LENGTH) (TEMP9 VALUE LENGTH) (TEMP12 VALUE)>
1766 TAG25
1767                     <NTHUS TEMP10 1 = TEMP8>
1768                     <NTHUS TEMP9 1 = TEMP11>
1769                     <VEQUAL? TEMP8 TEMP11 - PHRASE23>
1770                     <DEAD TEMP8 TEMP11>
1771                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1772                     <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
1773                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
1774                     <GRTR? TEMP12 0 + TAG25 (TYPE FIX)>
1775                     <ENDIF "STRING-EQUAL?">
1776                     <RETURN %<>>
1777 PHRASE23
1778                     <TYPE? B5 <TYPE-CODE STRING> - PHRASE26>
1779                     <IFCAN "STRING-EQUAL?">
1780                     <STRING-EQUAL? B5 "UNIX" - PHRASE26>
1781                     <ENDIF "STRING-EQUAL?">
1782                     <IFCANNOT "STRING-EQUAL?">
1783                     <SET TEMP9 B5>
1784                     <SET TEMP10 "UNIX" (TYPE STRING)>
1785                     <LENUS TEMP9 = TEMP11 (TYPE FIX)>
1786                     <VEQUAL? TEMP11 4 - PHRASE26>
1787                     <LOOP (TEMP9 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP11 VALUE)>
1788 TAG28
1789                     <NTHUS TEMP9 1 = TEMP8>
1790                     <NTHUS TEMP10 1 = TEMP12>
1791                     <VEQUAL? TEMP8 TEMP12 - PHRASE26>
1792                     <DEAD TEMP8 TEMP12>
1793                     <RESTUS TEMP9 1 = TEMP9 (TYPE STRING)>
1794                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1795                     <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
1796                     <GRTR? TEMP11 0 + TAG28 (TYPE FIX)>
1797                     <ENDIF "STRING-EQUAL?">
1798                     <RETURN %<>>
1799 PHRASE26
1800                     <FRAME '\1aN=?>
1801                     <PUSH A4>
1802                     <DEAD A4>
1803                     <PUSH B5>
1804                     <DEAD B5>
1805                     <CALL '\1aN=? 2 = TEMP8>
1806                     <VEQUAL? TEMP8 0 + PHRASE29>
1807                     <SET TEMP8 'T (TYPE ATOM)>
1808 PHRASE29
1809                     <RETURN TEMP8>
1810                     <DEAD TEMP8>
1811                     <END \1aNOT-MERGEABLE-IFSYS-TYPES>
1812 #WORD *3334712334*
1813 <GFCN \1aFIND-ENDIF ("VALUE" FIX VECTOR FIX) CODE4 I5>
1814                     <TEMP TEMP7:FIX>
1815                     <INTGO>
1816                     <FRAME '\1aREAL-FIND-ENDIF>
1817                     <PUSH CODE4>
1818                     <DEAD CODE4>
1819                     <PUSH I5>
1820                     <DEAD I5>
1821                     <PUSH %<>>
1822                     <CALL '\1aREAL-FIND-ENDIF 3 = TEMP7>
1823                     <RETURN TEMP7>
1824                     <DEAD TEMP7>
1825                     <END \1aFIND-ENDIF>
1826 #WORD *4566405411*
1827 <GFCN \1aFUNNY-FIND-ENDIF ("VALUE" FIX VECTOR FIX "TUPLE" ANY) CODE4 I5>
1828                     <MAKTUP MTUP6 = MTUP6>
1829                     <INTGO>
1830                     <FRAME '\1aREAL-FIND-ENDIF>
1831                     <PUSH CODE4>
1832                     <DEAD CODE4>
1833                     <PUSH I5>
1834                     <DEAD I5>
1835                     <PUSH MTUP6>
1836                     <DEAD MTUP6>
1837                     <CALL '\1aREAL-FIND-ENDIF 3 = MTUP6>
1838                     <RETURN MTUP6>
1839                     <DEAD MTUP6>
1840                     <END \1aFUNNY-FIND-ENDIF>
1841 #WORD *20617220034*
1842 <GFCN \1aREAL-FIND-ENDIF ("VALUE" FIX VECTOR FIX <OR FALSE <PRIMTYPE VECTOR>>) CODE4 I5 MTUP6>
1843                     <TEMP (LEVEL7:FIX 0) INST11 TEMP26 S37>
1844                     <INTGO>
1845                     <LOOP>
1846 AGAIN13
1847                     <INTGO>
1848                     <ADD I5 1 = I5 (TYPE FIX)>
1849                     <NTHUV CODE4 I5 = INST11>
1850                     <TYPE? INST11 <TYPE-CODE LABEL> - AGAIN13>
1851                     <NTHUV INST11 1 = INST11>
1852                     <TYPE? INST11 <TYPE-CODE FORM> - AGAIN13>
1853                     <EMPL? INST11 + AGAIN13 (TYPE FORM)>
1854                     <NTHL INST11 1 = INST11>
1855                     <EQUAL? INST11 '`ENDIF - PHRASE18>
1856                     <VEQUAL? LEVEL7 0 - PHRASE20 (TYPE FIX)>
1857                     <TYPE? MTUP6 <TYPE-CODE FALSE> + PHRASE24>
1858                     <ADD I5 2 = TEMP26 (TYPE FIX)>
1859                     <NTHUV CODE4 TEMP26 = INST11>
1860                     <DEAD TEMP26>
1861                     <TYPE? INST11 <TYPE-CODE FORM> - PHRASE24>
1862                     <NTHL INST11 1 = TEMP26>
1863                     <EQUAL? TEMP26 '`IFSYS - PHRASE24>
1864                     <DEAD TEMP26>
1865                     <CHTYPE MTUP6 <TYPE-CODE VECTOR> = TEMP26>
1866                     <EMPUV? TEMP26 + PHRASE24>
1867                     <LOOP>
1868 MAP28
1869                     <INTGO>
1870                     <EMPUV? TEMP26 + MAPAP31>
1871                     <NTHUV TEMP26 1 = S37>
1872                     <FRAME '\1aNOT-MERGEABLE-IFSYS-TYPES>
1873                     <PUSH S37>
1874                     <DEAD S37>
1875                     <RESTL INST11 1 = S37 (TYPE LIST)>
1876                     <NTHL S37 1 = STACK>
1877                     <DEAD S37>
1878                     <CALL '\1aNOT-MERGEABLE-IFSYS-TYPES 2 = S37>
1879                     <TYPE? S37 <TYPE-CODE FALSE> + PHRASE24>
1880                     <DEAD S37>
1881                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
1882                     <JUMP + MAP28>
1883 MAPAP31
1884                     <ADD I5 1 = I5 (TYPE FIX)>
1885                     <JUMP + AGAIN13>
1886 PHRASE24
1887                     <RETURN I5>
1888                     <DEAD I5>
1889 PHRASE20
1890                     <SUB LEVEL7 1 = LEVEL7 (TYPE FIX)>
1891                     <JUMP + AGAIN13>
1892 PHRASE18
1893                     <EQUAL? INST11 '`IFSYS + BOOL46>
1894                     <EQUAL? INST11 '`IFCAN + BOOL46>
1895                     <EQUAL? INST11 '`IFCANNOT - AGAIN13>
1896                     <DEAD INST11>
1897 BOOL46
1898                     <ADD LEVEL7 1 = LEVEL7 (TYPE FIX)>
1899                     <JUMP + AGAIN13>
1900                     <END \1aREAL-FIND-ENDIF>
1901 #WORD *26365527410*
1902 <GFCN \1aBACKWALK-FROM-LABEL ("VALUE" <OR ATOM FALSE> VECTOR LABEL FIX) CODE4 LABEL5 CUR-LEV6>
1903                     <TEMP TEMP16 TEMP18:LIST IN19:FIX>
1904                     <INTGO>
1905                     <SET TEMP16 %<> (TYPE FALSE)>
1906                     <NTHUV LABEL5 2 = TEMP18 (TYPE LIST)>
1907                     <DEAD LABEL5>
1908                     <LOOP>
1909 MAP8
1910                     <INTGO>
1911                     <EMPL? TEMP18 + MAPAP11>
1912                     <NTHL TEMP18 1 = IN19>
1913                     <NTHUV CODE4 IN19 = TEMP16>
1914                     <TYPE? TEMP16 <TYPE-CODE BRANCH> + TAG23>
1915                     <SET TEMP16 %<> (TYPE FALSE)>
1916                     <JUMP + PHRASE22>
1917 TAG23
1918                     <FRAME '\1aBACKWALK>
1919                     <PUSH CODE4>
1920                     <PUSH IN19>
1921                     <DEAD IN19>
1922                     <SET IN19 0 (TYPE FIX)>
1923                     <NTHUV TEMP16 3 = TEMP16 (TYPE UVECTOR)>
1924                     <LOOP (TEMP16 VALUE LENGTH) (IN19 VALUE)>
1925 TAG29
1926                     <INTGO>
1927                     <EMPUU? TEMP16 + TAG26>
1928                     <NTHUU TEMP16 1 = STACK>
1929                     <RESTUU TEMP16 1 = TEMP16 (TYPE UVECTOR)>
1930                     <ADD IN19 1 = IN19 (TYPE FIX)>
1931                     <JUMP + TAG29>
1932 TAG26
1933                     <UBLOCK <TYPE-CODE UVECTOR> IN19 = STACK (TYPE UVECTOR)>
1934                     <DEAD IN19>
1935                     <PUSH CUR-LEV6>
1936                     <CALL '\1aBACKWALK 4 = TEMP16>
1937 PHRASE22
1938                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1939                     <JUMP + MAP8>
1940 MAPAP11
1941                     <RETURN TEMP16>
1942                     <DEAD TEMP16>
1943                     <END \1aBACKWALK-FROM-LABEL>
1944 #WORD *6173456164*
1945 <GFCN \1aBACKWALK ("VALUE" ATOM VECTOR FIX UVECTOR FIX) CODE4 I5 LIVE-TEMPS6 CUR-LEV7>
1946                     <TEMP INST11 TEMP19 INS12:LIST TEMP50:LIST IN51:FIX TEMP54 LL69:LIST TEMP72>
1947                     <INTGO>
1948                     <LOOP>
1949 AGAIN14
1950                     <INTGO>
1951                     <NTHUV CODE4 I5 = INST11>
1952                     <TYPE? INST11 <TYPE-CODE LABEL> - PHRASE16>
1953                     <NTHUV INST11 3 = TEMP19 (TYPE FIX)>
1954                     <GRTR? CUR-LEV7 TEMP19 + PHRASE18 (TYPE FIX)>
1955                     <DEAD TEMP19>
1956                     <RETURN 'T>
1957 PHRASE18
1958                     <PUTUV INST11 3 CUR-LEV7 (TYPE FIX)>
1959                     <NTHUV INST11 4 = TEMP19>
1960                     <NTHUV INST11 2 = INS12 (TYPE LIST)>
1961                     <EMPL? INS12 - PHRASE22 (TYPE LIST)>
1962                     <VEQUAL? CUR-LEV7 1 - PHRASE93 (TYPE FIX)>
1963                     <FRAME '\1aPRINTSTRING>
1964                     <PUSH "FILE-DEATH: Warning--unreachable code at ">
1965                     <GEN-LVAL 'OUTCHAN = STACK>
1966                     <CALL '\1aPRINTSTRING 2>
1967                     <FRAME '\1aPRIN1>
1968                     <NTHUV INST11 1 = STACK>
1969                     <DEAD INST11>
1970                     <GEN-LVAL 'OUTCHAN = STACK>
1971                     <CALL '\1aPRIN1 2>
1972                     <FRAME '\1aCRLF>
1973                     <GEN-LVAL 'OUTCHAN = STACK>
1974                     <CALL '\1aCRLF 1>
1975                     <RETURN 'T>
1976 PHRASE22
1977                     <RESTL INS12 1 = TEMP50 (TYPE LIST)>
1978                     <LOOP>
1979 MAP40
1980                     <INTGO>
1981                     <EMPL? TEMP50 + MAPAP43>
1982                     <NTHL TEMP50 1 = IN51>
1983                     <SET INST11 0 (TYPE FIX)>
1984                     <SET TEMP54 LIVE-TEMPS6>
1985                     <LOOP (TEMP54 VALUE LENGTH) (INST11 VALUE)>
1986 TAG56
1987                     <INTGO>
1988                     <EMPUU? TEMP54 + TAG53>
1989                     <NTHUU TEMP54 1 = STACK>
1990                     <RESTUU TEMP54 1 = TEMP54 (TYPE UVECTOR)>
1991                     <ADD INST11 1 = INST11 (TYPE FIX)>
1992                     <JUMP + TAG56>
1993 TAG53
1994                     <UBLOCK <TYPE-CODE UVECTOR> INST11 = TEMP54 (TYPE UVECTOR)>
1995                     <DEAD INST11>
1996                     <TYPE? TEMP19 <TYPE-CODE FALSE> + MAPAP64>
1997                     <SET INST11 TEMP19 (TYPE LIST)>
1998                     <LOOP>
1999 MAP61
2000                     <INTGO>
2001                     <EMPL? INST11 + MAPAP64>
2002                     <NTHL INST11 1 = LL69>
2003                     <RESTL LL69 1 = TEMP72 (TYPE LIST)>
2004                     <NTHL TEMP72 1 = TEMP72 (TYPE FIX)>
2005                     <VEQUAL? IN51 TEMP72 - PHRASE71 (TYPE FIX)>
2006                     <DEAD TEMP72>
2007                     <FRAME '\1aREM-LIST>
2008                     <NTHL LL69 1 = STACK (TYPE ATOM)>
2009                     <PUSH TEMP54>
2010                     <CALL '\1aREM-LIST 2>
2011                     <FRAME '\1aUNMERGEABLE>
2012                     <NTHL LL69 1 = STACK (TYPE ATOM)>
2013                     <DEAD LL69>
2014                     <PUSH TEMP54>
2015                     <CALL '\1aUNMERGEABLE 2>
2016                     <JUMP + MAPAP64>
2017 PHRASE71
2018                     <RESTL INST11 1 = INST11 (TYPE LIST)>
2019                     <JUMP + MAP61>
2020 MAPAP64
2021                     <FRAME '\1aBACKWALK>
2022                     <PUSH CODE4>
2023                     <PUSH IN51>
2024                     <DEAD IN51>
2025                     <PUSH TEMP54>
2026                     <DEAD TEMP54>
2027                     <PUSH CUR-LEV7>
2028                     <CALL '\1aBACKWALK 4>
2029                     <RESTL TEMP50 1 = TEMP50 (TYPE LIST)>
2030                     <JUMP + MAP40>
2031 MAPAP43
2032                     <NTHL INS12 1 = I5 (TYPE FIX)>
2033                     <DEAD INS12>
2034                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE93>
2035                     <SET TEMP50 TEMP19 (TYPE LIST)>
2036                     <DEAD TEMP19>
2037                     <LOOP>
2038 MAP79
2039                     <INTGO>
2040                     <EMPL? TEMP50 + PHRASE93>
2041                     <NTHL TEMP50 1 = INS12>
2042                     <RESTL INS12 1 = INST11 (TYPE LIST)>
2043                     <NTHL INST11 1 = INST11 (TYPE FIX)>
2044                     <VEQUAL? I5 INST11 - PHRASE87 (TYPE FIX)>
2045                     <DEAD INST11>
2046                     <FRAME '\1aREM-LIST>
2047                     <NTHL INS12 1 = STACK (TYPE ATOM)>
2048                     <PUSH LIVE-TEMPS6>
2049                     <CALL '\1aREM-LIST 2>
2050                     <FRAME '\1aUNMERGEABLE>
2051                     <NTHL INS12 1 = STACK (TYPE ATOM)>
2052                     <DEAD INS12>
2053                     <PUSH LIVE-TEMPS6>
2054                     <CALL '\1aUNMERGEABLE 2>
2055                     <JUMP + PHRASE93>
2056 PHRASE87
2057                     <RESTL TEMP50 1 = TEMP50 (TYPE LIST)>
2058                     <JUMP + MAP79>
2059 PHRASE16
2060                     <TYPE? INST11 <TYPE-CODE BRANCH> - PHRASE90>
2061                     <FRAME '\1aMERGE-TEMPS>
2062                     <PUSH LIVE-TEMPS6>
2063                     <DEAD LIVE-TEMPS6>
2064                     <PUSH INST11>
2065                     <CALL '\1aMERGE-TEMPS 2 = LIVE-TEMPS6>
2066                     <FRAME '\1aUPDATE-TEMPS>
2067                     <NTHUV INST11 1 = STACK (TYPE FORM)>
2068                     <DEAD INST11>
2069                     <PUSH LIVE-TEMPS6>
2070                     <DEAD LIVE-TEMPS6>
2071                     <CALL '\1aUPDATE-TEMPS 2 = LIVE-TEMPS6>
2072                     <SUB I5 1 = I5 (TYPE FIX)>
2073                     <JUMP + PHRASE93>
2074 PHRASE90
2075                     <FRAME '\1aUPDATE-TEMPS>
2076                     <PUSH INST11>
2077                     <DEAD INST11>
2078                     <PUSH LIVE-TEMPS6>
2079                     <DEAD LIVE-TEMPS6>
2080                     <CALL '\1aUPDATE-TEMPS 2 = LIVE-TEMPS6>
2081                     <SUB I5 1 = I5 (TYPE FIX)>
2082 PHRASE93
2083                     <VEQUAL? I5 0 - AGAIN14 (TYPE FIX)>
2084                     <RETURN 'T>
2085                     <END \1aBACKWALK>
2086 #WORD *37274126165*
2087 <GFCN \1aMERGE-TEMPS ("VALUE" UVECTOR UVECTOR BRANCH) LIVES4 BRANCH5>
2088                     <TEMP (TEMP-OFFS7:FIX 0) B-LIVES6:UVECTOR TEMP14:UVECTOR TEMP15:UVECTOR LP20:UVECTOR BP21:UVECTOR TEMP22:FIX TEMP23 ADDED33 MSK41:FIX>
2089                     <INTGO>
2090                     <NTHUV BRANCH5 3 = B-LIVES6 (TYPE UVECTOR)>
2091                     <SET TEMP14 LIVES4 (TYPE UVECTOR)>
2092                     <SET TEMP15 B-LIVES6 (TYPE UVECTOR)>
2093                     <LOOP>
2094 MAP9
2095                     <INTGO>
2096                     <EMPUU? TEMP14 + MAPAP12>
2097                     <EMPUU? TEMP15 + MAPAP12>
2098                     <SET LP20 TEMP14>
2099                     <SET BP21 TEMP15>
2100                     <NTHUU LP20 1 = TEMP22 (TYPE FIX)>
2101                     <NTHUU BP21 1 = TEMP23 (TYPE FIX)>
2102                     <DEAD BP21>
2103                     <OR TEMP22 TEMP23 = TEMP22>
2104                     <DEAD TEMP23>
2105                     <PUTUU LP20 1 TEMP22>
2106                     <DEAD LP20 TEMP22>
2107                     <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
2108                     <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
2109                     <JUMP + MAP9>
2110 MAPAP12
2111                     <SET TEMP15 LIVES4 (TYPE UVECTOR)>
2112                     <SET TEMP14 B-LIVES6 (TYPE UVECTOR)>
2113                     <LOOP>
2114 MAP25
2115                     <INTGO>
2116                     <EMPUU? TEMP15 + MAPAP28>
2117                     <EMPUU? TEMP14 + MAPAP28>
2118                     <SET LP20 TEMP15>
2119                     <SET BP21 TEMP14>
2120                     <NTHUU LP20 1 = TEMP23 (TYPE FIX)>
2121                     <NTHUU BP21 1 = TEMP22 (TYPE FIX)>
2122                     <XOR TEMP23 TEMP22 = ADDED33>
2123                     <DEAD TEMP23 TEMP22>
2124                     <VEQUAL? ADDED33 0 + EXIT39 (TYPE FIX)>
2125                     <SETG 'SOMETHING-CHANGED 'T>
2126                     <ADD TEMP-OFFS7 1 = TEMP22 (TYPE FIX)>
2127                     <SET MSK41 1 (TYPE FIX)>
2128                     <LOOP>
2129 AGAIN42
2130                     <INTGO>
2131                     <AND MSK41 ADDED33 = TEMP23>
2132                     <VEQUAL? TEMP23 0 + PHRASE49 (TYPE FIX)>
2133                     <DEAD TEMP23>
2134                     <XOR ADDED33 MSK41 = ADDED33>
2135                     <FRAME '\1aUNMERGEABLE>
2136                     <GVAL 'NAME-UV = TEMP23>
2137                     <NTHUV TEMP23 TEMP22 = STACK (TYPE ATOM)>
2138                     <DEAD TEMP23>
2139                     <PUSH LIVES4>
2140                     <CALL '\1aUNMERGEABLE 2>
2141                     <VEQUAL? ADDED33 0 + EXIT39 (TYPE FIX)>
2142 PHRASE49
2143                     <LSH MSK41 1 = MSK41 (TYPE FIX)>
2144                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
2145                     <JUMP + AGAIN42>
2146 EXIT39
2147                     <ADD TEMP-OFFS7 32 = TEMP-OFFS7 (TYPE FIX)>
2148                     <NTHUU LP20 1 = TEMP23 (TYPE FIX)>
2149                     <DEAD LP20>
2150                     <PUTUU BP21 1 TEMP23>
2151                     <DEAD BP21 TEMP23>
2152                     <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
2153                     <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
2154                     <JUMP + MAP25>
2155 MAPAP28
2156                     <PUTUV BRANCH5 3 B-LIVES6>
2157                     <DEAD BRANCH5 B-LIVES6>
2158                     <RETURN LIVES4>
2159                     <DEAD LIVES4>
2160                     <END \1aMERGE-TEMPS>
2161 #WORD *21430222465*
2162 <GFCN \1aUPDATE-TEMPS ("VALUE" UVECTOR FORM UVECTOR) INST4 LIVES5>
2163                     <TEMP OP6 TEMP16:LIST TWO8 ITEM7 TEMP48>
2164                     <INTGO>
2165                     <EMPL? INST4 + EXIT96 (TYPE FORM)>
2166                     <NTHL INST4 1 = OP6>
2167                     <EQUAL? OP6 '`SET - PHRASE14>
2168                     <FRAME '\1aREM-LIST>
2169                     <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2170                     <NTHL TEMP16 1 = TWO8>
2171                     <DEAD TEMP16>
2172                     <PUSH TWO8>
2173                     <PUSH LIVES5>
2174                     <CALL '\1aREM-LIST 2>
2175                     <FRAME '\1aUNMERGEABLE>
2176                     <PUSH TWO8>
2177                     <DEAD TWO8>
2178                     <PUSH LIVES5>
2179                     <CALL '\1aUNMERGEABLE 2>
2180                     <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2181                     <DEAD INST4>
2182                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2183                     <NTHL TEMP16 1 = OP6>
2184                     <DEAD TEMP16>
2185                     <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
2186                     <FRAME '\1aADD-LIVE>
2187                     <PUSH OP6>
2188                     <DEAD OP6>
2189                     <PUSH LIVES5>
2190                     <DEAD LIVES5>
2191                     <CALL '\1aADD-LIVE 2 = LIVES5>
2192                     <RETURN LIVES5>
2193                     <DEAD LIVES5>
2194 PHRASE14
2195                     <EQUAL? OP6 '`SETLR - PHRASE21>
2196                     <FRAME '\1aREM-LIST>
2197                     <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2198                     <NTHL TEMP16 1 = TWO8>
2199                     <DEAD TEMP16>
2200                     <PUSH TWO8>
2201                     <PUSH LIVES5>
2202                     <CALL '\1aREM-LIST 2>
2203                     <FRAME '\1aUNMERGEABLE>
2204                     <PUSH TWO8>
2205                     <DEAD TWO8>
2206                     <PUSH LIVES5>
2207                     <CALL '\1aUNMERGEABLE 2>
2208                     <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2209                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2210                     <NTHL TEMP16 1 = OP6>
2211                     <DEAD TEMP16>
2212                     <TYPE? OP6 <TYPE-CODE ATOM> - PHRASE25>
2213                     <FRAME '\1aADD-LIVE>
2214                     <PUSH OP6>
2215                     <DEAD OP6>
2216                     <PUSH LIVES5>
2217                     <DEAD LIVES5>
2218                     <CALL '\1aADD-LIVE 2 = LIVES5>
2219 PHRASE25
2220                     <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2221                     <DEAD INST4>
2222                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2223                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2224                     <NTHL TEMP16 1 = OP6>
2225                     <DEAD TEMP16>
2226                     <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
2227                     <FRAME '\1aADD-LIVE>
2228                     <PUSH OP6>
2229                     <DEAD OP6>
2230                     <PUSH LIVES5>
2231                     <DEAD LIVES5>
2232                     <CALL '\1aADD-LIVE 2 = LIVES5>
2233                     <RETURN LIVES5>
2234                     <DEAD LIVES5>
2235 PHRASE21
2236                     <EQUAL? OP6 '`SETRL - PHRASE30>
2237                     <FRAME '\1aREM-LIST>
2238                     <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2239                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2240                     <NTHL TEMP16 1 = OP6>
2241                     <DEAD TEMP16>
2242                     <PUSH OP6>
2243                     <PUSH LIVES5>
2244                     <CALL '\1aREM-LIST 2>
2245                     <FRAME '\1aUNMERGEABLE>
2246                     <PUSH OP6>
2247                     <DEAD OP6>
2248                     <PUSH LIVES5>
2249                     <CALL '\1aUNMERGEABLE 2>
2250                     <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2251                     <NTHL TEMP16 1 = TWO8>
2252                     <DEAD TEMP16>
2253                     <TYPE? TWO8 <TYPE-CODE ATOM> - PHRASE34>
2254                     <FRAME '\1aADD-LIVE>
2255                     <PUSH TWO8>
2256                     <DEAD TWO8>
2257                     <PUSH LIVES5>
2258                     <DEAD LIVES5>
2259                     <CALL '\1aADD-LIVE 2 = LIVES5>
2260 PHRASE34
2261                     <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2262                     <DEAD INST4>
2263                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2264                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2265                     <NTHL TEMP16 1 = OP6>
2266                     <DEAD TEMP16>
2267                     <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
2268                     <FRAME '\1aADD-LIVE>
2269                     <PUSH OP6>
2270                     <DEAD OP6>
2271                     <PUSH LIVES5>
2272                     <DEAD LIVES5>
2273                     <CALL '\1aADD-LIVE 2 = LIVES5>
2274                     <RETURN LIVES5>
2275                     <DEAD LIVES5>
2276 PHRASE30
2277                     <EQUAL? OP6 '`TEMP - PHRASE39>
2278                     <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2279                     <DEAD INST4>
2280                     <CHTYPE TEMP16 <TYPE-CODE LIST> = TEMP16>
2281                     <LOOP>
2282 MAP41
2283                     <INTGO>
2284                     <EMPL? TEMP16 + EXIT96>
2285                     <NTHL TEMP16 1 = OP6>
2286                     <TYPE? OP6 <TYPE-CODE LIST> - PHRASE54>
2287                     <FRAME '\1aREM-LIST>
2288                     <FRAME '\1aATOM-PART>
2289                     <PUSH OP6>
2290                     <DEAD OP6>
2291                     <CALL '\1aATOM-PART 1 = OP6>
2292                     <PUSH OP6>
2293                     <PUSH LIVES5>
2294                     <CALL '\1aREM-LIST 2>
2295                     <FRAME '\1aUNMERGEABLE>
2296                     <PUSH OP6>
2297                     <DEAD OP6>
2298                     <PUSH LIVES5>
2299                     <CALL '\1aUNMERGEABLE 2>
2300 PHRASE54
2301                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2302                     <JUMP + MAP41>
2303 PHRASE39
2304                     <EQUAL? OP6 '`MAKTUP - PHRASE58>
2305                     <RESTL INST4 1 = TWO8 (TYPE LIST)>
2306                     <DEAD INST4>
2307                     <CHTYPE TWO8 <TYPE-CODE LIST> = TWO8>
2308                     <LOOP>
2309 MAP60
2310                     <INTGO>
2311                     <EMPL? TWO8 + EXIT96>
2312                     <NTHL TWO8 1 = OP6>
2313                     <EQUAL? OP6 '= + MAPAP63>
2314                     <TYPE? OP6 <TYPE-CODE LIST> - PHRASE73>
2315                     <FRAME '\1aREM-LIST>
2316                     <FRAME '\1aATOM-PART>
2317                     <PUSH OP6>
2318                     <DEAD OP6>
2319                     <CALL '\1aATOM-PART 1 = OP6>
2320                     <PUSH OP6>
2321                     <PUSH LIVES5>
2322                     <CALL '\1aREM-LIST 2>
2323                     <FRAME '\1aUNMERGEABLE>
2324                     <PUSH OP6>
2325                     <DEAD OP6>
2326                     <PUSH LIVES5>
2327                     <CALL '\1aUNMERGEABLE 2>
2328 PHRASE73
2329                     <RESTL TWO8 1 = TWO8 (TYPE LIST)>
2330                     <JUMP + MAP60>
2331 MAPAP63
2332                     <RETURN LIVES5>
2333                     <DEAD LIVES5>
2334 PHRASE58
2335                     <EQUAL? OP6 '`DISPATCH - PHRASE77>
2336                     <RESTL INST4 1 = TWO8 (TYPE LIST)>
2337                     <NTHL TWO8 1 = TWO8>
2338                     <TYPE? TWO8 <TYPE-CODE ATOM> - PHRASE79>
2339                     <FRAME '\1aADD-LIVE>
2340                     <PUSH TWO8>
2341                     <DEAD TWO8>
2342                     <PUSH LIVES5>
2343                     <DEAD LIVES5>
2344                     <CALL '\1aADD-LIVE 2 = LIVES5>
2345 PHRASE79
2346                     <RESTL INST4 1 = TWO8 (TYPE LIST)>
2347                     <DEAD INST4>
2348                     <RESTL TWO8 1 = TWO8 (TYPE LIST)>
2349                     <NTHL TWO8 1 = OP6>
2350                     <DEAD TWO8>
2351                     <TYPE? OP6 <TYPE-CODE ATOM> - EXIT96>
2352                     <FRAME '\1aADD-LIVE>
2353                     <PUSH OP6>
2354                     <DEAD OP6>
2355                     <PUSH LIVES5>
2356                     <DEAD LIVES5>
2357                     <CALL '\1aADD-LIVE 2 = LIVES5>
2358                     <RETURN LIVES5>
2359                     <DEAD LIVES5>
2360 PHRASE77
2361                     <EQUAL? OP6 '`FCN + EXIT96>
2362                     <EQUAL? OP6 '`GFCN + EXIT96>
2363                     <EQUAL? OP6 '`LOOP + EXIT96>
2364                     <EQUAL? OP6 '`END + EXIT96>
2365                     <EQUAL? OP6 '`ICALL + EXIT96>
2366                     <EQUAL? OP6 '`OPT-DISPATCH + EXIT96>
2367                     <RESTL INST4 1 = ITEM7 (TYPE LIST)>
2368                     <CHTYPE ITEM7 <TYPE-CODE LIST> = ITEM7>
2369                     <EMPL? ITEM7 + TAG86>
2370                     <LOOP (ITEM7 VALUE)>
2371 TAG88
2372                     <NTHL ITEM7 1 = TWO8>
2373                     <TYPE? TWO8 <TYPE-CODE ATOM> - TAG89>
2374                     <VEQUAL? TWO8 '= + TAG87>
2375                     <DEAD TWO8>
2376 TAG89
2377                     <RESTL ITEM7 1 = ITEM7 (TYPE LIST)>
2378                     <EMPL? ITEM7 - TAG88>
2379 TAG86
2380                     <SET ITEM7 %<> (TYPE FALSE)>
2381 TAG87
2382                     <VEQUAL? ITEM7 0 + PHRASE93>
2383                     <RESTL ITEM7 1 = TEMP16 (TYPE LIST)>
2384                     <DEAD ITEM7>
2385                     <NTHL TEMP16 1 = TWO8>
2386                     <DEAD TEMP16>
2387                     <EQUAL? TWO8 '`STACK + PHRASE93>
2388                     <FRAME '\1aREM-LIST>
2389                     <PUSH TWO8>
2390                     <PUSH LIVES5>
2391                     <CALL '\1aREM-LIST 2>
2392                     <FRAME '\1aUNMERGEABLE>
2393                     <PUSH TWO8>
2394                     <DEAD TWO8>
2395                     <PUSH LIVES5>
2396                     <CALL '\1aUNMERGEABLE 2>
2397 PHRASE93
2398                     <RESTL INST4 1 = TEMP16 (TYPE LIST)>
2399                     <DEAD INST4>
2400                     <CHTYPE TEMP16 <TYPE-CODE LIST> = TEMP16>
2401                     <LOOP>
2402 AGAIN99
2403                     <INTGO>
2404                     <EMPL? TEMP16 + EXIT96 (TYPE LIST)>
2405                     <NTHL TEMP16 1 = ITEM7>
2406                     <EQUAL? ITEM7 '= + BOOL104>
2407                     <EQUAL? ITEM7 '+ + BOOL104>
2408                     <EQUAL? ITEM7 '- - PHRASE103>
2409 BOOL104
2410                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2411                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2412                     <JUMP + AGAIN99>
2413 PHRASE103
2414                     <TYPE? ITEM7 <TYPE-CODE ATOM> - PHRASE105>
2415                     <FRAME '\1aADD-LIVE>
2416                     <PUSH ITEM7>
2417                     <DEAD ITEM7>
2418                     <PUSH LIVES5>
2419                     <DEAD LIVES5>
2420                     <CALL '\1aADD-LIVE 2 = LIVES5>
2421                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2422                     <JUMP + AGAIN99>
2423 PHRASE105
2424                     <EQUAL? OP6 '`CHTYPE - PHRASE107>
2425                     <TYPE? ITEM7 <TYPE-CODE FORM> - PHRASE107>
2426                     <SET TWO8 ITEM7>
2427                     <SET TEMP48 1 (TYPE FIX)>
2428                     <LOOP (TWO8 VALUE) (TEMP48 VALUE)>
2429 TAG110
2430                     <EMPL? TWO8 + PHRASE107>
2431                     <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
2432                     <LESS? TEMP48 0 + TAG111>
2433                     <RESTL TWO8 1 = TWO8 (TYPE LIST)>
2434                     <JUMP + TAG110>
2435 TAG111
2436                     <NTHL ITEM7 1 = TEMP48>
2437                     <EQUAL? TEMP48 '`TYPE - PHRASE107>
2438                     <DEAD TEMP48>
2439                     <RESTL ITEM7 1 = TWO8 (TYPE LIST)>
2440                     <DEAD ITEM7>
2441                     <NTHL TWO8 1 = TWO8>
2442                     <TYPE? TWO8 <TYPE-CODE ATOM> - PHRASE107>
2443                     <FRAME '\1aADD-LIVE>
2444                     <PUSH TWO8>
2445                     <DEAD TWO8>
2446                     <PUSH LIVES5>
2447                     <DEAD LIVES5>
2448                     <CALL '\1aADD-LIVE 2 = LIVES5>
2449                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2450                     <JUMP + AGAIN99>
2451 PHRASE107
2452                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2453                     <JUMP + AGAIN99>
2454 EXIT96
2455                     <RETURN LIVES5>
2456                     <DEAD LIVES5>
2457                     <END \1aUPDATE-TEMPS>
2458 #WORD *35124011560*
2459 <GFCN \1aADD-LIVE ("VALUE" UVECTOR ATOM UVECTOR) ATM4 L5>
2460                     <TEMP NL6>
2461                     <INTGO>
2462                     <FRAME '\1aADD-LIST?>
2463                     <PUSH ATM4>
2464                     <PUSH L5>
2465                     <CALL '\1aADD-LIST? 2 = NL6>
2466                     <TYPE? NL6 <TYPE-CODE FALSE> + PHRASE9>
2467                     <FRAME '\1aUNMERGEABLE>
2468                     <PUSH ATM4>
2469                     <DEAD ATM4>
2470                     <PUSH L5>
2471                     <DEAD L5>
2472                     <CALL '\1aUNMERGEABLE 2>
2473                     <RETURN NL6>
2474                     <DEAD NL6>
2475 PHRASE9
2476                     <RETURN L5>
2477                     <DEAD L5>
2478                     <END \1aADD-LIVE>
2479 #WORD *6164522112*
2480 <GFCN \1aUNMERGEABLE ("VALUE" ATOM ATOM UVECTOR) NEW-LIVE4 LIVES5>
2481                     <TEMP (TEMP-OFFS10:FIX 0) TEMP14 NL-LIST6:UVECTOR NUM7:FIX LIVE28:FIX TNO36:FIX MSK37:FIX TEMP42 TEMP49>
2482                     <INTGO>
2483                     <NTHR NEW-LIVE4 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG13)>
2484                     <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG13>
2485                     <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE GBIND)>
2486                     <TYPE? TEMP14 <TYPE-CODE UNBOUND> - PHRASE12>
2487                     <DEAD TEMP14>
2488 TAG13
2489                     <FRAME '\1aERROR>
2490                     <PUSH 'TEMP-WITHOUT-LIST!-ERRORS>
2491                     <PUSH NEW-LIVE4>
2492                     <PUSH 'UNMERGEABLE>
2493                     <CALL '\1aERROR 3>
2494 PHRASE12
2495                     <VEQUAL? NEW-LIVE4 '`STACK + MAPAP22>
2496                     <GVAL NEW-LIVE4 = NL-LIST6>
2497                     <NTHUU NL-LIST6 1 = NUM7 (TYPE FIX)>
2498                     <RESTUU NL-LIST6 1 = NL-LIST6 (TYPE UVECTOR)>
2499                     <SET TEMP14 LIVES5 (TYPE UVECTOR)>
2500                     <DEAD LIVES5>
2501                     <LOOP>
2502 MAP19
2503                     <INTGO>
2504                     <EMPUU? TEMP14 + MAPAP22>
2505                     <NTHUU TEMP14 1 = LIVE28>
2506                     <VEQUAL? LIVE28 0 + EXIT34 (TYPE FIX)>
2507                     <SET TNO36 TEMP-OFFS10>
2508                     <SET MSK37 1 (TYPE FIX)>
2509                     <LOOP>
2510 AGAIN38
2511                     <INTGO>
2512                     <AND LIVE28 MSK37 = TEMP42>
2513                     <VEQUAL? TEMP42 0 + PHRASE57 (TYPE FIX)>
2514                     <DEAD TEMP42>
2515                     <XOR LIVE28 MSK37 = LIVE28>
2516                     <VEQUAL? TNO36 NUM7 - PHRASE46 (TYPE FIX)>
2517                     <VEQUAL? LIVE28 0 - PHRASE57 (TYPE FIX)>
2518                     <JUMP + EXIT34>
2519 PHRASE46
2520                     <GVAL 'NAME-UV = TEMP42>
2521                     <ADD TNO36 1 = TEMP49 (TYPE FIX)>
2522                     <NTHUV TEMP42 TEMP49 = TEMP42 (TYPE ATOM)>
2523                     <DEAD TEMP49>
2524                     <NTHR TEMP42 1 = TEMP49 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG52)>
2525                     <TYPE? TEMP49 <TYPE-CODE FALSE> + TAG52>
2526                     <NTHR TEMP49 1 = TEMP49 (RECORD-TYPE GBIND)>
2527                     <TYPE? TEMP49 <TYPE-CODE UNBOUND> - PHRASE51>
2528                     <DEAD TEMP49>
2529 TAG52
2530                     <FRAME '\1aERROR>
2531                     <PUSH 'TEMP-WITHOUT-LIST!-ERRORS>
2532                     <PUSH TEMP42>
2533                     <PUSH 'UNMERGEABLE>
2534                     <CALL '\1aERROR 3>
2535 PHRASE51
2536                     <FRAME '\1aADD-LIST>
2537                     <PUSH TEMP42>
2538                     <PUSH NL-LIST6>
2539                     <CALL '\1aADD-LIST 2>
2540                     <FRAME '\1aADD-LIST>
2541                     <PUSH NEW-LIVE4>
2542                     <GVAL TEMP42 = TEMP49>
2543                     <DEAD TEMP42>
2544                     <RESTUU TEMP49 1 = TEMP49 (TYPE UVECTOR)>
2545                     <CHTYPE TEMP49 <TYPE-CODE UVECTOR> = STACK>
2546                     <DEAD TEMP49>
2547                     <CALL '\1aADD-LIST 2>
2548                     <VEQUAL? LIVE28 0 + EXIT34 (TYPE FIX)>
2549 PHRASE57
2550                     <ADD TNO36 1 = TNO36 (TYPE FIX)>
2551                     <LSH MSK37 1 = MSK37 (TYPE FIX)>
2552                     <JUMP + AGAIN38>
2553 EXIT34
2554                     <ADD TEMP-OFFS10 32 = TEMP-OFFS10 (TYPE FIX)>
2555                     <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
2556                     <JUMP + MAP19>
2557 MAPAP22
2558                     <RETURN 'T>
2559                     <END \1aUNMERGEABLE>
2560 #WORD *10346724531*
2561 <GFCN \1aOPTIMIZE-SETS ("VALUE" ATOM VECTOR) CODE4>
2562                     <TEMP I8 CODELEN9:FIX INST10 TEMP18 TEMP19 ATM111>
2563                     <INTGO>
2564                     <SET I8 1 (TYPE FIX)>
2565                     <LENUV CODE4 = CODELEN9 (TYPE FIX)>
2566                     <LOOP>
2567 AGAIN13
2568                     <INTGO>
2569                     <NTHUV CODE4 I8 = INST10>
2570                     <TYPE? INST10 <TYPE-CODE FORM> - PHRASE15>
2571                     <SET TEMP18 INST10>
2572                     <SET TEMP19 2 (TYPE FIX)>
2573                     <LOOP (TEMP18 VALUE) (TEMP19 VALUE)>
2574 TAG20
2575                     <EMPL? TEMP18 + PHRASE15>
2576                     <SUB TEMP19 1 = TEMP19 (TYPE FIX)>
2577                     <LESS? TEMP19 0 + TAG21>
2578                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
2579                     <JUMP + TAG20>
2580 TAG21
2581                     <NTHL INST10 1 = TEMP19>
2582                     <EQUAL? TEMP19 '`SET - PHRASE15>
2583                     <DEAD TEMP19>
2584                     <RESTL INST10 1 = TEMP19 (TYPE LIST)>
2585                     <NTHL TEMP19 1 = ATM111>
2586                     <DEAD TEMP19>
2587                     <TYPE? ATM111 <TYPE-CODE ATOM> - PHRASE15>
2588                     <RESTL INST10 1 = TEMP19 (TYPE LIST)>
2589                     <DEAD INST10>
2590                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2591                     <NTHL TEMP19 1 = INST10>
2592                     <DEAD TEMP19>
2593                     <TYPE? INST10 <TYPE-CODE ATOM> - PHRASE15>
2594                     <FRAME '\1aIN-LIST?>
2595                     <PUSH ATM111>
2596                     <GVAL INST10 = TEMP19>
2597                     <RESTUU TEMP19 1 = TEMP19 (TYPE UVECTOR)>
2598                     <CHTYPE TEMP19 <TYPE-CODE UVECTOR> = STACK>
2599                     <DEAD TEMP19>
2600                     <CALL '\1aIN-LIST? 2 = TEMP18>
2601                     <VEQUAL? TEMP18 0 - PHRASE15>
2602                     <DEAD TEMP18>
2603                     <FRAME '\1aMAYBE-MERGE>
2604                     <PUSH CODE4>
2605                     <PUSH ATM111>
2606                     <DEAD ATM111>
2607                     <PUSH INST10>
2608                     <DEAD INST10>
2609                     <CALL '\1aMAYBE-MERGE 3>
2610 PHRASE15
2611                     <VEQUAL? I8 CODELEN9 - PHRASE25 (TYPE FIX)>
2612                     <RETURN 'T>
2613 PHRASE25
2614                     <ADD I8 1 = I8 (TYPE FIX)>
2615                     <JUMP + AGAIN13>
2616                     <END \1aOPTIMIZE-SETS>
2617 #WORD *16262725736*
2618 <GFCN \1aMAYBE-MERGE ("VALUE" ATOM VECTOR ATOM ATOM) CODE4 ATM15 ATM26>
2619                     <TEMP I9:FIX CODELEN10:FIX WHOLE-THING12 TEMP18 TEMP28:ATOM>
2620                     <INTGO>
2621                     <SET I9 1 (TYPE FIX)>
2622                     <LENUV CODE4 = CODELEN10 (TYPE FIX)>
2623                     <LOOP>
2624 AGAIN13
2625                     <INTGO>
2626                     <NTHUV CODE4 I9 = WHOLE-THING12>
2627                     <TYPE? WHOLE-THING12 <TYPE-CODE FORM> - EXIT19>
2628                     <EMPL? WHOLE-THING12 + EXIT19 (TYPE FORM)>
2629                     <NTHL WHOLE-THING12 1 = TEMP18>
2630                     <EQUAL? TEMP18 '`TEMP + BOOL17>
2631                     <DEAD TEMP18>
2632                     <NTHL WHOLE-THING12 1 = TEMP18>
2633                     <EQUAL? TEMP18 '`MAKTUP - EXIT19>
2634                     <DEAD TEMP18>
2635 BOOL17
2636                     <RESTL WHOLE-THING12 1 = TEMP18 (TYPE LIST)>
2637                     <DEAD WHOLE-THING12>
2638                     <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
2639                     <LOOP>
2640 AGAIN22
2641                     <INTGO>
2642                     <EMPL? TEMP18 + EXIT19 (TYPE LIST)>
2643                     <NTHL TEMP18 1 = WHOLE-THING12>
2644                     <EQUAL? WHOLE-THING12 '= + EXIT19>
2645                     <FRAME '\1aATOM-PART>
2646                     <PUSH WHOLE-THING12>
2647                     <CALL '\1aATOM-PART 1 = TEMP28>
2648                     <VEQUAL? TEMP28 ATM15 - PHRASE26>
2649                     <DEAD TEMP28>
2650                     <FRAME '\1aPROBABLY-MERGE>
2651                     <PUSH CODE4>
2652                     <DEAD CODE4>
2653                     <PUSH TEMP18>
2654                     <DEAD TEMP18>
2655                     <PUSH ATM15>
2656                     <DEAD ATM15>
2657                     <PUSH ATM26>
2658                     <DEAD ATM26>
2659                     <CALL '\1aPROBABLY-MERGE 4>
2660                     <RETURN 'T>
2661 PHRASE26
2662                     <FRAME '\1aATOM-PART>
2663                     <PUSH WHOLE-THING12>
2664                     <DEAD WHOLE-THING12>
2665                     <CALL '\1aATOM-PART 1 = TEMP28>
2666                     <VEQUAL? TEMP28 ATM26 - PHRASE30>
2667                     <DEAD TEMP28>
2668                     <FRAME '\1aPROBABLY-MERGE>
2669                     <PUSH CODE4>
2670                     <DEAD CODE4>
2671                     <PUSH TEMP18>
2672                     <DEAD TEMP18>
2673                     <PUSH ATM26>
2674                     <DEAD ATM26>
2675                     <PUSH ATM15>
2676                     <DEAD ATM15>
2677                     <CALL '\1aPROBABLY-MERGE 4>
2678                     <RETURN 'T>
2679 PHRASE30
2680                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
2681                     <JUMP + AGAIN22>
2682 EXIT19
2683                     <VEQUAL? I9 CODELEN10 + EXIT7 (TYPE FIX)>
2684                     <ADD I9 1 = I9 (TYPE FIX)>
2685                     <JUMP + AGAIN13>
2686 EXIT7
2687                     <RETURN 'T>
2688                     <END \1aMAYBE-MERGE>
2689 #WORD *34056546705*
2690 <GFCN \1aPROBABLY-MERGE ("VALUE" ATOM VECTOR LIST ATOM ATOM) CODE4 LONG5 NEW-TEMP6 OLD-TEMP7>
2691                     <TEMP TEMP9 MEDIUM14:LIST SHORT15:LIST ONE-SHORT16 TEMP23>
2692                     <INTGO>
2693                     <GEN-LVAL 'OUTCHAN = TEMP9>
2694                     <SET MEDIUM14 LONG5>
2695                     <RESTL LONG5 1 = SHORT15 (TYPE LIST)>
2696                     <LOOP>
2697 AGAIN17
2698                     <INTGO>
2699                     <EMPL? SHORT15 + EXIT12 (TYPE LIST)>
2700                     <NTHL SHORT15 1 = ONE-SHORT16>
2701                     <EQUAL? ONE-SHORT16 '= - PHRASE19>
2702                     <RETURN 'T>
2703 PHRASE19
2704                     <FRAME '\1aATOM-PART>
2705                     <PUSH ONE-SHORT16>
2706                     <CALL '\1aATOM-PART 1 = TEMP23>
2707                     <VEQUAL? TEMP23 OLD-TEMP7 - PHRASE21>
2708                     <DEAD TEMP23>
2709                     <FRAME '\1aMERGEABLE?>
2710                     <NTHL LONG5 1 = STACK>
2711                     <PUSH ONE-SHORT16>
2712                     <CALL '\1aMERGEABLE? 2 = TEMP23>
2713                     <TYPE? TEMP23 <TYPE-CODE FALSE> + EXIT12>
2714                     <DEAD TEMP23>
2715                     <TYPE? ONE-SHORT16 <TYPE-CODE LIST> - PHRASE28>
2716                     <NTHL LONG5 1 = TEMP23>
2717                     <PUTL ONE-SHORT16 1 TEMP23>
2718                     <DEAD TEMP23>
2719                     <PUTL LONG5 1 ONE-SHORT16>
2720                     <DEAD LONG5 ONE-SHORT16>
2721 PHRASE28
2722                     <RESTL SHORT15 1 = TEMP23 (TYPE LIST)>
2723                     <DEAD SHORT15>
2724                     <PUTREST MEDIUM14 TEMP23>
2725                     <DEAD MEDIUM14 TEMP23>
2726                     <GVAL 'DEBUG-DEATH = TEMP23>
2727                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE30>
2728                     <DEAD TEMP23>
2729                     <FRAME '\1aPRINTSTRING>
2730                     <PUSH "Merging ">
2731                     <PUSH TEMP9>
2732                     <CALL '\1aPRINTSTRING 2>
2733                     <FRAME '\1aPRIN1>
2734                     <PUSH OLD-TEMP7>
2735                     <PUSH TEMP9>
2736                     <CALL '\1aPRIN1 2>
2737                     <FRAME '\1aPRINTSTRING>
2738                     <PUSH " with ">
2739                     <PUSH TEMP9>
2740                     <CALL '\1aPRINTSTRING 2>
2741                     <FRAME '\1aPRIN1>
2742                     <PUSH NEW-TEMP6>
2743                     <PUSH TEMP9>
2744                     <CALL '\1aPRIN1 2>
2745                     <FRAME '\1aCRLF>
2746                     <PUSH TEMP9>
2747                     <DEAD TEMP9>
2748                     <CALL '\1aCRLF 1>
2749 PHRASE30
2750                     <FRAME '\1aUNMERGEABLE>
2751                     <PUSH NEW-TEMP6>
2752                     <GVAL OLD-TEMP7 = TEMP23>
2753                     <RESTUU TEMP23 1 = TEMP23 (TYPE UVECTOR)>
2754                     <CHTYPE TEMP23 <TYPE-CODE UVECTOR> = STACK>
2755                     <DEAD TEMP23>
2756                     <CALL '\1aUNMERGEABLE 2>
2757                     <FRAME '\1aPERFORM-MERGE>
2758                     <PUSH CODE4>
2759                     <DEAD CODE4>
2760                     <PUSH NEW-TEMP6>
2761                     <DEAD NEW-TEMP6>
2762                     <PUSH OLD-TEMP7>
2763                     <DEAD OLD-TEMP7>
2764                     <CALL '\1aPERFORM-MERGE 3>
2765                     <RETURN 'T>
2766 PHRASE21
2767                     <SET MEDIUM14 SHORT15>
2768                     <DEAD SHORT15>
2769                     <RESTL MEDIUM14 1 = SHORT15 (TYPE LIST)>
2770                     <JUMP + AGAIN17>
2771 EXIT12
2772                     <RETURN 'T>
2773                     <END \1aPROBABLY-MERGE>
2774 #WORD *35470007174*
2775 <GFCN \1aOPTIMIZE-TEMPS ("VALUE" ATOM VECTOR) CODE4>
2776                     <TEMP I8 CODELEN9:FIX INST10 OP11>
2777                     <INTGO>
2778                     <SET I8 1 (TYPE FIX)>
2779                     <LENUV CODE4 = CODELEN9 (TYPE FIX)>
2780                     <LOOP>
2781 AGAIN12
2782                     <INTGO>
2783                     <NTHUV CODE4 I8 = INST10>
2784                     <TYPE? INST10 <TYPE-CODE FORM> - PHRASE17>
2785                     <EMPL? INST10 + PHRASE17 (TYPE FORM)>
2786                     <NTHL INST10 1 = OP11>
2787                     <EQUAL? OP11 '`TEMP + BOOL18>
2788                     <EQUAL? OP11 '`MAKTUP - PHRASE17>
2789                     <DEAD OP11>
2790 BOOL18
2791                     <FRAME '\1aREALLY-OPTIMIZE>
2792                     <PUSH CODE4>
2793                     <RESTL INST10 1 = INST10 (TYPE LIST)>
2794                     <CHTYPE INST10 <TYPE-CODE LIST> = STACK>
2795                     <DEAD INST10>
2796                     <CALL '\1aREALLY-OPTIMIZE 2>
2797 PHRASE17
2798                     <VEQUAL? I8 CODELEN9 - PHRASE22 (TYPE FIX)>
2799                     <RETURN 'T>
2800 PHRASE22
2801                     <ADD I8 1 = I8 (TYPE FIX)>
2802                     <JUMP + AGAIN12>
2803                     <END \1aOPTIMIZE-TEMPS>
2804 #WORD *14346247067*
2805 <GFCN \1aREALLY-OPTIMIZE ("VALUE" <OR ATOM FALSE> VECTOR LIST) CODE4 TEMPS5>
2806                     <TEMP TEMP9 LONG18:LIST ONE-LONG19 MEDIUM26:LIST SHORT27:LIST ONE-SHORT28 TEMP36 NEW-TEMP8:ATOM OLD-TEMP7:ATOM>
2807                     <INTGO>
2808                     <GEN-LVAL 'OUTCHAN = TEMP9>
2809                     <EMPL? TEMPS5 - TAG15 (TYPE LIST)>
2810                     <RETURN %<>>
2811 TAG15
2812                     <SET LONG18 TEMPS5>
2813                     <DEAD TEMPS5>
2814                     <LOOP>
2815 AGAIN20
2816                     <INTGO>
2817                     <EMPL? LONG18 + BOOL23 (TYPE LIST)>
2818                     <NTHL LONG18 1 = ONE-LONG19>
2819                     <EQUAL? ONE-LONG19 '= - PHRASE22>
2820 BOOL23
2821                     <RETURN 'T>
2822 PHRASE22
2823                     <SET MEDIUM26 LONG18>
2824                     <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
2825                     <LOOP>
2826 AGAIN29
2827                     <INTGO>
2828                     <EMPL? SHORT27 + EXIT24 (TYPE LIST)>
2829                     <NTHL SHORT27 1 = ONE-SHORT28>
2830                     <EQUAL? ONE-SHORT28 '= + EXIT24>
2831                     <FRAME '\1aMERGEABLE?>
2832                     <PUSH ONE-LONG19>
2833                     <PUSH ONE-SHORT28>
2834                     <CALL '\1aMERGEABLE? 2 = TEMP36>
2835                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE34>
2836                     <DEAD TEMP36>
2837                     <FRAME '\1aATOM-PART>
2838                     <PUSH ONE-LONG19>
2839                     <CALL '\1aATOM-PART 1 = NEW-TEMP8>
2840                     <FRAME '\1aATOM-PART>
2841                     <PUSH ONE-SHORT28>
2842                     <CALL '\1aATOM-PART 1 = OLD-TEMP7>
2843                     <TYPE? ONE-SHORT28 <TYPE-CODE LIST> - PHRASE40>
2844                     <PUTL ONE-SHORT28 1 ONE-LONG19>
2845                     <PUTL LONG18 1 ONE-SHORT28>
2846                     <DEAD ONE-SHORT28>
2847 PHRASE40
2848                     <RESTL SHORT27 1 = SHORT27 (TYPE LIST)>
2849                     <PUTREST MEDIUM26 SHORT27>
2850                     <GVAL 'DEBUG-DEATH = TEMP36>
2851                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE42>
2852                     <DEAD TEMP36>
2853                     <FRAME '\1aPRINTSTRING>
2854                     <PUSH "Merging ">
2855                     <PUSH TEMP9>
2856                     <CALL '\1aPRINTSTRING 2>
2857                     <FRAME '\1aPRIN1>
2858                     <PUSH OLD-TEMP7>
2859                     <PUSH TEMP9>
2860                     <CALL '\1aPRIN1 2>
2861                     <FRAME '\1aPRINTSTRING>
2862                     <PUSH " with ">
2863                     <PUSH TEMP9>
2864                     <CALL '\1aPRINTSTRING 2>
2865                     <FRAME '\1aPRIN1>
2866                     <PUSH NEW-TEMP8>
2867                     <PUSH TEMP9>
2868                     <CALL '\1aPRIN1 2>
2869                     <FRAME '\1aCRLF>
2870                     <PUSH TEMP9>
2871                     <CALL '\1aCRLF 1>
2872 PHRASE42
2873                     <FRAME '\1aUNMERGEABLE>
2874                     <PUSH NEW-TEMP8>
2875                     <GVAL OLD-TEMP7 = TEMP36>
2876                     <RESTUU TEMP36 1 = TEMP36 (TYPE UVECTOR)>
2877                     <CHTYPE TEMP36 <TYPE-CODE UVECTOR> = STACK>
2878                     <DEAD TEMP36>
2879                     <CALL '\1aUNMERGEABLE 2>
2880                     <FRAME '\1aPERFORM-MERGE>
2881                     <PUSH CODE4>
2882                     <PUSH NEW-TEMP8>
2883                     <DEAD NEW-TEMP8>
2884                     <PUSH OLD-TEMP7>
2885                     <DEAD OLD-TEMP7>
2886                     <CALL '\1aPERFORM-MERGE 3>
2887                     <JUMP + AGAIN29>
2888 PHRASE34
2889                     <SET MEDIUM26 SHORT27>
2890                     <DEAD SHORT27>
2891                     <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
2892                     <JUMP + AGAIN29>
2893 EXIT24
2894                     <RESTL LONG18 1 = LONG18 (TYPE LIST)>
2895                     <JUMP + AGAIN20>
2896                     <END \1aREALLY-OPTIMIZE>
2897 #WORD *34257730463*
2898 <GFCN \1aMERGEABLE? ("VALUE" <OR ATOM FALSE> <OR ATOM ADECL LIST> <OR ATOM ADECL LIST>) TEMP14 TEMP25>
2899                     <TEMP TEMP10 TEMP12>
2900                     <INTGO>
2901                     <FRAME '\1aDECL-PART>
2902                     <PUSH TEMP14>
2903                     <CALL '\1aDECL-PART 1 = TEMP10>
2904                     <FRAME '\1aDECL-PART>
2905                     <PUSH TEMP25>
2906                     <CALL '\1aDECL-PART 1 = TEMP12>
2907                     <EQUAL? TEMP10 TEMP12 + TAG8>
2908                     <DEAD TEMP10 TEMP12>
2909                     <RETURN %<>>
2910 TAG8
2911                     <TYPE? TEMP14 <TYPE-CODE LIST> - TAG14>
2912                     <TYPE? TEMP25 <TYPE-CODE LIST> - TAG14>
2913                     <RETURN %<>>
2914 TAG14
2915                     <FRAME '\1aIN-LIST?>
2916                     <FRAME '\1aATOM-PART>
2917                     <PUSH TEMP14>
2918                     <DEAD TEMP14>
2919                     <CALL '\1aATOM-PART 1 = STACK>
2920                     <FRAME '\1aATOM-PART>
2921                     <PUSH TEMP25>
2922                     <DEAD TEMP25>
2923                     <CALL '\1aATOM-PART 1 = TEMP12>
2924                     <GVAL TEMP12 = TEMP10>
2925                     <DEAD TEMP12>
2926                     <RESTUU TEMP10 1 = TEMP10 (TYPE UVECTOR)>
2927                     <CHTYPE TEMP10 <TYPE-CODE UVECTOR> = STACK>
2928                     <DEAD TEMP10>
2929                     <CALL '\1aIN-LIST? 2 = TEMP12>
2930                     <VEQUAL? TEMP12 0 - TAG16>
2931                     <DEAD TEMP12>
2932                     <RETURN 'T>
2933 TAG16
2934                     <RETURN %<>>
2935                     <END \1aMERGEABLE?>
2936 #WORD *27737633426*
2937 <GFCN \1aOPTIMIZE-TEMPS/BASH-DECLS ("VALUE" ATOM VECTOR) CODE4>
2938                     <TEMP I8 CODELEN9:FIX INST10 OP11>
2939                     <INTGO>
2940                     <SET I8 1 (TYPE FIX)>
2941                     <LENUV CODE4 = CODELEN9 (TYPE FIX)>
2942                     <LOOP>
2943 AGAIN12
2944                     <INTGO>
2945                     <NTHUV CODE4 I8 = INST10>
2946                     <TYPE? INST10 <TYPE-CODE FORM> - PHRASE17>
2947                     <EMPL? INST10 + PHRASE17 (TYPE FORM)>
2948                     <NTHL INST10 1 = OP11>
2949                     <EQUAL? OP11 '`TEMP + BOOL18>
2950                     <EQUAL? OP11 '`MAKTUP - PHRASE17>
2951                     <DEAD OP11>
2952 BOOL18
2953                     <FRAME '\1aREALLY-OPTIMIZE/BASH-DECLS>
2954                     <PUSH CODE4>
2955                     <RESTL INST10 1 = INST10 (TYPE LIST)>
2956                     <CHTYPE INST10 <TYPE-CODE LIST> = STACK>
2957                     <DEAD INST10>
2958                     <CALL '\1aREALLY-OPTIMIZE/BASH-DECLS 2>
2959 PHRASE17
2960                     <VEQUAL? I8 CODELEN9 - PHRASE22 (TYPE FIX)>
2961                     <RETURN 'T>
2962 PHRASE22
2963                     <ADD I8 1 = I8 (TYPE FIX)>
2964                     <JUMP + AGAIN12>
2965                     <END \1aOPTIMIZE-TEMPS/BASH-DECLS>
2966 #WORD *1434157567*
2967 <GFCN \1aREALLY-OPTIMIZE/BASH-DECLS ("VALUE" <OR ATOM FALSE> VECTOR LIST) CODE4 TEMPS5>
2968                     <TEMP TEMP9 LONG18:LIST ONE-LONG19 MEDIUM26:LIST SHORT27:LIST ONE-SHORT28 TEMP36 NEW-TEMP8:ATOM OLD-TEMP7:ATOM TEMP45>
2969                     <INTGO>
2970                     <GEN-LVAL 'OUTCHAN = TEMP9>
2971                     <EMPL? TEMPS5 - TAG15 (TYPE LIST)>
2972                     <RETURN %<>>
2973 TAG15
2974                     <SET LONG18 TEMPS5>
2975                     <DEAD TEMPS5>
2976                     <LOOP>
2977 AGAIN20
2978                     <INTGO>
2979                     <EMPL? LONG18 + BOOL23 (TYPE LIST)>
2980                     <NTHL LONG18 1 = ONE-LONG19>
2981                     <EQUAL? ONE-LONG19 '= - PHRASE22>
2982 BOOL23
2983                     <RETURN 'T>
2984 PHRASE22
2985                     <SET MEDIUM26 LONG18>
2986                     <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
2987                     <LOOP>
2988 AGAIN29
2989                     <INTGO>
2990                     <EMPL? SHORT27 + EXIT24 (TYPE LIST)>
2991                     <NTHL SHORT27 1 = ONE-SHORT28>
2992                     <EQUAL? ONE-SHORT28 '= + EXIT24>
2993                     <FRAME '\1aMERGEABLE?/BASH-DECLS>
2994                     <PUSH ONE-LONG19>
2995                     <PUSH ONE-SHORT28>
2996                     <CALL '\1aMERGEABLE?/BASH-DECLS 2 = TEMP36>
2997                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE34>
2998                     <DEAD TEMP36>
2999                     <FRAME '\1aATOM-PART>
3000                     <PUSH ONE-LONG19>
3001                     <CALL '\1aATOM-PART 1 = NEW-TEMP8>
3002                     <FRAME '\1aATOM-PART>
3003                     <PUSH ONE-SHORT28>
3004                     <CALL '\1aATOM-PART 1 = OLD-TEMP7>
3005                     <FRAME '\1aDECL-PART>
3006                     <PUSH ONE-LONG19>
3007                     <CALL '\1aDECL-PART 1 = TEMP36>
3008                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE48>
3009                     <DEAD TEMP36>
3010                     <FRAME '\1aDECL-PART>
3011                     <PUSH ONE-LONG19>
3012                     <CALL '\1aDECL-PART 1 = TEMP36>
3013                     <FRAME '\1aDECL-PART>
3014                     <PUSH ONE-SHORT28>
3015                     <CALL '\1aDECL-PART 1 = TEMP45>
3016                     <EQUAL? TEMP36 TEMP45 + PHRASE48>
3017                     <DEAD TEMP36 TEMP45>
3018                     <TYPE? ONE-LONG19 <TYPE-CODE ADECL> - PHRASE47>
3019                     <NTHUV ONE-LONG19 1 = ONE-LONG19>
3020                     <PUTL LONG18 1 ONE-LONG19>
3021                     <JUMP + PHRASE48>
3022 PHRASE47
3023                     <TYPE? ONE-LONG19 <TYPE-CODE LIST> - PHRASE48>
3024                     <NTHL ONE-LONG19 1 = TEMP45>
3025                     <NTH1 TEMP45 = TEMP45>
3026                     <PUTL ONE-LONG19 1 TEMP45>
3027                     <DEAD TEMP45>
3028 PHRASE48
3029                     <TYPE? ONE-SHORT28 <TYPE-CODE LIST> - PHRASE50>
3030                     <PUTL ONE-SHORT28 1 ONE-LONG19>
3031                     <PUTL LONG18 1 ONE-SHORT28>
3032                     <DEAD ONE-SHORT28>
3033 PHRASE50
3034                     <RESTL SHORT27 1 = SHORT27 (TYPE LIST)>
3035                     <PUTREST MEDIUM26 SHORT27>
3036                     <GVAL 'DEBUG-DEATH = TEMP45>
3037                     <TYPE? TEMP45 <TYPE-CODE FALSE> + PHRASE52>
3038                     <DEAD TEMP45>
3039                     <FRAME '\1aPRINTSTRING>
3040                     <PUSH "Merging ">
3041                     <PUSH TEMP9>
3042                     <CALL '\1aPRINTSTRING 2>
3043                     <FRAME '\1aPRIN1>
3044                     <PUSH OLD-TEMP7>
3045                     <PUSH TEMP9>
3046                     <CALL '\1aPRIN1 2>
3047                     <FRAME '\1aPRINTSTRING>
3048                     <PUSH " with ">
3049                     <PUSH TEMP9>
3050                     <CALL '\1aPRINTSTRING 2>
3051                     <FRAME '\1aPRIN1>
3052                     <PUSH NEW-TEMP8>
3053                     <PUSH TEMP9>
3054                     <CALL '\1aPRIN1 2>
3055                     <FRAME '\1aCRLF>
3056                     <PUSH TEMP9>
3057                     <CALL '\1aCRLF 1>
3058 PHRASE52
3059                     <FRAME '\1aUNMERGEABLE>
3060                     <PUSH NEW-TEMP8>
3061                     <GVAL OLD-TEMP7 = TEMP45>
3062                     <RESTUU TEMP45 1 = TEMP45 (TYPE UVECTOR)>
3063                     <CHTYPE TEMP45 <TYPE-CODE UVECTOR> = STACK>
3064                     <DEAD TEMP45>
3065                     <CALL '\1aUNMERGEABLE 2>
3066                     <FRAME '\1aPERFORM-MERGE>
3067                     <PUSH CODE4>
3068                     <PUSH NEW-TEMP8>
3069                     <DEAD NEW-TEMP8>
3070                     <PUSH OLD-TEMP7>
3071                     <DEAD OLD-TEMP7>
3072                     <CALL '\1aPERFORM-MERGE 3>
3073                     <JUMP + AGAIN29>
3074 PHRASE34
3075                     <SET MEDIUM26 SHORT27>
3076                     <DEAD SHORT27>
3077                     <RESTL MEDIUM26 1 = SHORT27 (TYPE LIST)>
3078                     <JUMP + AGAIN29>
3079 EXIT24
3080                     <RESTL LONG18 1 = LONG18 (TYPE LIST)>
3081                     <JUMP + AGAIN20>
3082                     <END \1aREALLY-OPTIMIZE/BASH-DECLS>
3083 #WORD *36615533324*
3084 <GFCN \1aMERGEABLE?/BASH-DECLS ("VALUE" <OR ATOM FALSE> <OR ATOM ADECL LIST> <OR ATOM ADECL LIST>) TEMP14 TEMP25>
3085                     <TEMP TEMP7>
3086                     <INTGO>
3087                     <TYPE? TEMP14 <TYPE-CODE LIST> - TAG9>
3088                     <TYPE? TEMP25 <TYPE-CODE LIST> - TAG9>
3089                     <RETURN %<>>
3090 TAG9
3091                     <FRAME '\1aIN-LIST?>
3092                     <FRAME '\1aATOM-PART>
3093                     <PUSH TEMP14>
3094                     <DEAD TEMP14>
3095                     <CALL '\1aATOM-PART 1 = STACK>
3096                     <FRAME '\1aATOM-PART>
3097                     <PUSH TEMP25>
3098                     <DEAD TEMP25>
3099                     <CALL '\1aATOM-PART 1 = TEMP7>
3100                     <GVAL TEMP7 = TEMP7>
3101                     <RESTUU TEMP7 1 = TEMP7 (TYPE UVECTOR)>
3102                     <CHTYPE TEMP7 <TYPE-CODE UVECTOR> = STACK>
3103                     <DEAD TEMP7>
3104                     <CALL '\1aIN-LIST? 2 = TEMP7>
3105                     <VEQUAL? TEMP7 0 - TAG11>
3106                     <DEAD TEMP7>
3107                     <RETURN 'T>
3108 TAG11
3109                     <RETURN %<>>
3110                     <END \1aMERGEABLE?/BASH-DECLS>
3111 #WORD *23074423643*
3112 <GFCN \1aPERFORM-MERGE ("VALUE" <OR ATOM FALSE <FORM ANY ATOM>> VECTOR ATOM ATOM) CODE4 NEW-TEMP5 OLD-TEMP6>
3113                     <TEMP TEMP16 TEMP13:VECTOR INST18 TEMP27 LL43:LIST>
3114                     <INTGO>
3115                     <SET TEMP16 %<> (TYPE FALSE)>
3116                     <SET TEMP13 CODE4 (TYPE VECTOR)>
3117                     <DEAD CODE4>
3118                     <LOOP>
3119 MAP8
3120                     <INTGO>
3121                     <EMPUV? TEMP13 + MAPAP11>
3122                     <NTHUV TEMP13 1 = INST18>
3123                     <TYPE? INST18 <TYPE-CODE BRANCH> - PHRASE23>
3124                     <FRAME '\1aIN-LIST?>
3125                     <PUSH OLD-TEMP6>
3126                     <NTHUV INST18 3 = STACK (TYPE UVECTOR)>
3127                     <CALL '\1aIN-LIST? 2 = TEMP27>
3128                     <VEQUAL? TEMP27 0 + PHRASE25>
3129                     <DEAD TEMP27>
3130                     <FRAME '\1aREM-LIST>
3131                     <PUSH OLD-TEMP6>
3132                     <NTHUV INST18 3 = STACK (TYPE UVECTOR)>
3133                     <CALL '\1aREM-LIST 2>
3134                     <FRAME '\1aADD-LIST>
3135                     <PUSH NEW-TEMP5>
3136                     <NTHUV INST18 3 = STACK (TYPE UVECTOR)>
3137                     <CALL '\1aADD-LIST 2>
3138 PHRASE25
3139                     <NTHUV INST18 1 = INST18 (TYPE FORM)>
3140                     <JUMP + PHRASE30>
3141 PHRASE23
3142                     <TYPE? INST18 <TYPE-CODE LABEL> - PHRASE30>
3143                     <NTHUV INST18 4 = TEMP27>
3144                     <TYPE? TEMP27 <TYPE-CODE FALSE> + MAPAP37>
3145                     <LOOP>
3146 MAP34
3147                     <INTGO>
3148                     <EMPL? TEMP27 + MAPAP37>
3149                     <NTHL TEMP27 1 = LL43>
3150                     <NTHL LL43 1 = TEMP16 (TYPE ATOM)>
3151                     <VEQUAL? TEMP16 OLD-TEMP6 - PHRASE45>
3152                     <DEAD TEMP16>
3153                     <PUTL LL43 1 NEW-TEMP5 (TYPE ATOM)>
3154                     <DEAD LL43>
3155                     <JUMP + MAPAP37>
3156 PHRASE45
3157                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
3158                     <JUMP + MAP34>
3159 MAPAP37
3160                     <NTHUV INST18 1 = INST18>
3161 PHRASE30
3162                     <TYPE? INST18 <TYPE-CODE FORM> + TAG50>
3163                     <SET TEMP16 %<> (TYPE FALSE)>
3164                     <JUMP + PHRASE98>
3165 TAG50
3166                     <EMPL? INST18 - TAG52 (TYPE FORM)>
3167                     <SET TEMP16 %<> (TYPE FALSE)>
3168                     <JUMP + PHRASE98>
3169 TAG52
3170                     <NTHL INST18 1 = TEMP16>
3171                     <EQUAL? TEMP16 '`LOOP - PHRASE54>
3172                     <SET TEMP16 %<> (TYPE FALSE)>
3173                     <RESTL INST18 1 = LL43 (TYPE LIST)>
3174                     <DEAD INST18>
3175                     <CHTYPE LL43 <TYPE-CODE LIST> = LL43>
3176                     <LOOP>
3177 MAP56
3178                     <INTGO>
3179                     <EMPL? LL43 + PHRASE98>
3180                     <NTHL LL43 1 = TEMP16>
3181                     <FRAME '\1aREPLACE-ATOM>
3182                     <PUSH TEMP16>
3183                     <DEAD TEMP16>
3184                     <PUSH NEW-TEMP5>
3185                     <PUSH OLD-TEMP6>
3186                     <CALL '\1aREPLACE-ATOM 3 = TEMP16>
3187                     <RESTL LL43 1 = LL43 (TYPE LIST)>
3188                     <JUMP + MAP56>
3189 PHRASE54
3190                     <EQUAL? TEMP16 '`ICALL - PHRASE65>
3191                     <EMPL? INST18 + TAG69>
3192                     <RESTL INST18 1 = LL43 (TYPE LIST)>
3193                     <EMPL? LL43 + TAG69>
3194                     <RESTL LL43 1 = LL43 (TYPE LIST)>
3195                     <EMPL? LL43 - TAG68>
3196                     <DEAD LL43>
3197 TAG69
3198                     <SET TEMP16 %<> (TYPE FALSE)>
3199                     <JUMP + PHRASE98>
3200 TAG68
3201                     <FRAME '\1aREPLACE-ATOM>
3202                     <RESTL INST18 1 = LL43 (TYPE LIST)>
3203                     <DEAD INST18>
3204                     <RESTL LL43 1 = LL43 (TYPE LIST)>
3205                     <RESTL LL43 1 = LL43 (TYPE LIST)>
3206                     <CHTYPE LL43 <TYPE-CODE LIST> = STACK>
3207                     <DEAD LL43>
3208                     <PUSH NEW-TEMP5>
3209                     <PUSH OLD-TEMP6>
3210                     <CALL '\1aREPLACE-ATOM 3 = TEMP16>
3211                     <JUMP + PHRASE98>
3212 PHRASE65
3213                     <EQUAL? TEMP16 '`CHTYPE - PHRASE71>
3214                     <DEAD TEMP16>
3215                     <FRAME '\1aREPLACE-ATOM>
3216                     <RESTL INST18 1 = LL43 (TYPE LIST)>
3217                     <CHTYPE LL43 <TYPE-CODE LIST> = STACK>
3218                     <DEAD LL43>
3219                     <PUSH NEW-TEMP5>
3220                     <PUSH OLD-TEMP6>
3221                     <CALL '\1aREPLACE-ATOM 3>
3222                     <SET TEMP16 %<> (TYPE FALSE)>
3223                     <RESTL INST18 1 = LL43 (TYPE LIST)>
3224                     <DEAD INST18>
3225                     <CHTYPE LL43 <TYPE-CODE LIST> = LL43>
3226                     <LOOP>
3227 MAP74
3228                     <INTGO>
3229                     <EMPL? LL43 + PHRASE98>
3230                     <NTHL LL43 1 = TEMP16>
3231                     <TYPE? TEMP16 <TYPE-CODE FORM> + TAG88>
3232                     <SET TEMP16 %<> (TYPE FALSE)>
3233                     <JUMP + PHRASE86>
3234 TAG88
3235                     <SET INST18 TEMP16>
3236                     <SET TEMP27 1 (TYPE FIX)>
3237                     <LOOP (INST18 VALUE) (TEMP27 VALUE)>
3238 TAG94
3239                     <EMPL? INST18 + TAG91>
3240                     <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
3241                     <LESS? TEMP27 0 + TAG90>
3242                     <RESTL INST18 1 = INST18 (TYPE LIST)>
3243                     <JUMP + TAG94>
3244 TAG91
3245                     <SET TEMP16 %<> (TYPE FALSE)>
3246                     <JUMP + PHRASE86>
3247 TAG90
3248                     <NTHL TEMP16 1 = TEMP27>
3249                     <EQUAL? TEMP27 '`TYPE + TAG96>
3250                     <DEAD TEMP27>
3251                     <SET TEMP16 %<> (TYPE FALSE)>
3252                     <JUMP + PHRASE86>
3253 TAG96
3254                     <RESTL TEMP16 1 = TEMP27 (TYPE LIST)>
3255                     <NTHL TEMP27 1 = TEMP27>
3256                     <EQUAL? TEMP27 OLD-TEMP6 + TAG97>
3257                     <DEAD TEMP27>
3258                     <SET TEMP16 %<> (TYPE FALSE)>
3259                     <JUMP + PHRASE86>
3260 TAG97
3261                     <RESTL TEMP16 1 = TEMP27 (TYPE LIST)>
3262                     <PUTL TEMP27 1 NEW-TEMP5>
3263                     <DEAD TEMP27>
3264 PHRASE86
3265                     <RESTL LL43 1 = LL43 (TYPE LIST)>
3266                     <JUMP + MAP74>
3267 PHRASE71
3268                     <FRAME '\1aREPLACE-ATOM>
3269                     <RESTL INST18 1 = LL43 (TYPE LIST)>
3270                     <DEAD INST18>
3271                     <CHTYPE LL43 <TYPE-CODE LIST> = STACK>
3272                     <DEAD LL43>
3273                     <PUSH NEW-TEMP5>
3274                     <PUSH OLD-TEMP6>
3275                     <CALL '\1aREPLACE-ATOM 3 = TEMP16>
3276 PHRASE98
3277                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
3278                     <JUMP + MAP8>
3279 MAPAP11
3280                     <RETURN TEMP16>
3281                     <DEAD TEMP16>
3282                     <END \1aPERFORM-MERGE>
3283 #WORD *30364410741*
3284 <GFCN \1aREPLACE-ATOM ("VALUE" ATOM <PRIMTYPE LIST> ATOM ATOM) L4 NEW-ATOM5 OLD-ATOM6>
3285                     <TEMP TEMP13:LIST RL18:LIST ONE19>
3286                     <INTGO>
3287                     <CHTYPE L4 <TYPE-CODE LIST> = TEMP13>
3288                     <DEAD L4>
3289                     <LOOP>
3290 MAP8
3291                     <INTGO>
3292                     <EMPL? TEMP13 + MAPAP11>
3293                     <SET RL18 TEMP13>
3294                     <NTHL RL18 1 = ONE19>
3295                     <EQUAL? ONE19 OLD-ATOM6 - PHRASE21>
3296                     <DEAD ONE19>
3297                     <PUTL RL18 1 NEW-ATOM5>
3298                     <DEAD RL18>
3299 PHRASE21
3300                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3301                     <JUMP + MAP8>
3302 MAPAP11
3303                     <RETURN 'T>
3304                     <END \1aREPLACE-ATOM>
3305 #WORD *3373420202*
3306 <GFCN \1aPREPARE-DEADS-FROM-LABEL ("VALUE" <OR ATOM FALSE> VECTOR LABEL) CODE4 LABEL5>
3307                     <TEMP TEMP15 TEMP17:LIST IN18:FIX>
3308                     <INTGO>
3309                     <SET TEMP15 %<> (TYPE FALSE)>
3310                     <NTHUV LABEL5 2 = TEMP17 (TYPE LIST)>
3311                     <DEAD LABEL5>
3312                     <LOOP>
3313 MAP7
3314                     <INTGO>
3315                     <EMPL? TEMP17 + MAPAP10>
3316                     <NTHL TEMP17 1 = IN18>
3317                     <NTHUV CODE4 IN18 = TEMP15>
3318                     <TYPE? TEMP15 <TYPE-CODE BRANCH> + TAG22>
3319                     <SET TEMP15 %<> (TYPE FALSE)>
3320                     <JUMP + PHRASE21>
3321 TAG22
3322                     <FRAME '\1aPREPARE-DEADS>
3323                     <PUSH CODE4>
3324                     <PUSH IN18>
3325                     <DEAD IN18>
3326                     <SET IN18 0 (TYPE FIX)>
3327                     <NTHUV TEMP15 3 = TEMP15 (TYPE UVECTOR)>
3328                     <LOOP (TEMP15 VALUE LENGTH) (IN18 VALUE)>
3329 TAG28
3330                     <INTGO>
3331                     <EMPUU? TEMP15 + TAG25>
3332                     <NTHUU TEMP15 1 = STACK>
3333                     <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
3334                     <ADD IN18 1 = IN18 (TYPE FIX)>
3335                     <JUMP + TAG28>
3336 TAG25
3337                     <UBLOCK <TYPE-CODE UVECTOR> IN18 = STACK (TYPE UVECTOR)>
3338                     <DEAD IN18>
3339                     <PUSH -1>
3340                     <CALL '\1aPREPARE-DEADS 4 = TEMP15>
3341 PHRASE21
3342                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3343                     <JUMP + MAP7>
3344 MAPAP10
3345                     <RETURN TEMP15>
3346                     <DEAD TEMP15>
3347                     <END \1aPREPARE-DEADS-FROM-LABEL>
3348 #WORD *13113107673*
3349 <GFCN \1aPREPARE-DEADS ("VALUE" ATOM VECTOR FIX UVECTOR FIX) CODE4 I5 LIVE-TEMPS6 FROM7>
3350                     <TEMP INST11 TEMP19:FIX ASSIGN13 INS12:LIST TEMP37:LIST TEMP41 LL56:LIST TEMP59>
3351                     <INTGO>
3352                     <LOOP>
3353 AGAIN14
3354                     <INTGO>
3355                     <NTHUV CODE4 I5 = INST11>
3356                     <TYPE? INST11 <TYPE-CODE LABEL> - PHRASE16>
3357                     <NTHUV INST11 3 = TEMP19 (TYPE FIX)>
3358                     <VEQUAL? TEMP19 -1 - PHRASE18 (TYPE FIX)>
3359                     <DEAD TEMP19>
3360                     <RETURN 'T>
3361 PHRASE18
3362                     <PUTUV INST11 3 -1 (TYPE FIX)>
3363                     <NTHUV INST11 4 = ASSIGN13>
3364                     <NTHUV INST11 2 = INS12 (TYPE LIST)>
3365                     <DEAD INST11>
3366                     <EMPL? INS12 - PHRASE24 (TYPE LIST)>
3367                     <FRAME '\1aERROR>
3368                     <PUSH 'UNREACHABLE-CODE!-ERRORS>
3369                     <PUSH 'PREPARE-DEADS>
3370                     <CALL '\1aERROR 2>
3371                     <JUMP + PHRASE80>
3372 PHRASE24
3373                     <RESTL INS12 1 = TEMP37 (TYPE LIST)>
3374                     <LOOP>
3375 MAP28
3376                     <INTGO>
3377                     <EMPL? TEMP37 + MAPAP31>
3378                     <NTHL TEMP37 1 = TEMP19>
3379                     <SET INST11 0 (TYPE FIX)>
3380                     <SET TEMP41 LIVE-TEMPS6>
3381                     <LOOP (TEMP41 VALUE LENGTH) (INST11 VALUE)>
3382 TAG43
3383                     <INTGO>
3384                     <EMPUU? TEMP41 + TAG40>
3385                     <NTHUU TEMP41 1 = STACK>
3386                     <RESTUU TEMP41 1 = TEMP41 (TYPE UVECTOR)>
3387                     <ADD INST11 1 = INST11 (TYPE FIX)>
3388                     <JUMP + TAG43>
3389 TAG40
3390                     <UBLOCK <TYPE-CODE UVECTOR> INST11 = TEMP41 (TYPE UVECTOR)>
3391                     <DEAD INST11>
3392                     <TYPE? ASSIGN13 <TYPE-CODE FALSE> + MAPAP51>
3393                     <SET INST11 ASSIGN13 (TYPE LIST)>
3394                     <LOOP>
3395 MAP48
3396                     <INTGO>
3397                     <EMPL? INST11 + MAPAP51>
3398                     <NTHL INST11 1 = LL56>
3399                     <RESTL LL56 1 = TEMP59 (TYPE LIST)>
3400                     <NTHL TEMP59 1 = TEMP59 (TYPE FIX)>
3401                     <VEQUAL? TEMP19 TEMP59 - PHRASE58 (TYPE FIX)>
3402                     <DEAD TEMP59>
3403                     <FRAME '\1aREM-LIST>
3404                     <NTHL LL56 1 = STACK (TYPE ATOM)>
3405                     <DEAD LL56>
3406                     <PUSH TEMP41>
3407                     <CALL '\1aREM-LIST 2>
3408                     <JUMP + MAPAP51>
3409 PHRASE58
3410                     <RESTL INST11 1 = INST11 (TYPE LIST)>
3411                     <JUMP + MAP48>
3412 MAPAP51
3413                     <FRAME '\1aPREPARE-DEADS>
3414                     <PUSH CODE4>
3415                     <PUSH TEMP19>
3416                     <DEAD TEMP19>
3417                     <PUSH TEMP41>
3418                     <DEAD TEMP41>
3419                     <PUSH I5>
3420                     <CALL '\1aPREPARE-DEADS 4>
3421                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3422                     <JUMP + MAP28>
3423 MAPAP31
3424                     <SET FROM7 I5>
3425                     <DEAD I5>
3426                     <NTHL INS12 1 = I5 (TYPE FIX)>
3427                     <DEAD INS12>
3428                     <TYPE? ASSIGN13 <TYPE-CODE FALSE> + PHRASE80>
3429                     <SET TEMP37 ASSIGN13 (TYPE LIST)>
3430                     <DEAD ASSIGN13>
3431                     <LOOP>
3432 MAP65
3433                     <INTGO>
3434                     <EMPL? TEMP37 + PHRASE80>
3435                     <NTHL TEMP37 1 = INS12>
3436                     <RESTL INS12 1 = INST11 (TYPE LIST)>
3437                     <NTHL INST11 1 = INST11 (TYPE FIX)>
3438                     <VEQUAL? I5 INST11 - PHRASE73 (TYPE FIX)>
3439                     <DEAD INST11>
3440                     <FRAME '\1aREM-LIST>
3441                     <NTHL INS12 1 = STACK (TYPE ATOM)>
3442                     <DEAD INS12>
3443                     <PUSH LIVE-TEMPS6>
3444                     <CALL '\1aREM-LIST 2>
3445                     <JUMP + PHRASE80>
3446 PHRASE73
3447                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3448                     <JUMP + MAP65>
3449 PHRASE16
3450                     <TYPE? INST11 <TYPE-CODE BRANCH> - PHRASE75>
3451                     <FRAME '\1aMERGE-DEADS>
3452                     <PUSH LIVE-TEMPS6>
3453                     <DEAD LIVE-TEMPS6>
3454                     <PUSH INST11>
3455                     <ADD I5 1 = TEMP19 (TYPE FIX)>
3456                     <VEQUAL? FROM7 TEMP19 - TAG77 (TYPE FIX)>
3457                     <DEAD FROM7 TEMP19>
3458                     <PUSH 'T>
3459                     <JUMP + TAG78>
3460 TAG77
3461                     <PUSH %<>>
3462 TAG78
3463                     <CALL '\1aMERGE-DEADS 3 = LIVE-TEMPS6>
3464                     <FRAME '\1aUPDATE-DEADS>
3465                     <NTHUV INST11 1 = STACK (TYPE FORM)>
3466                     <DEAD INST11>
3467                     <PUSH LIVE-TEMPS6>
3468                     <DEAD LIVE-TEMPS6>
3469                     <CALL '\1aUPDATE-DEADS 2 = LIVE-TEMPS6>
3470                     <SET FROM7 I5>
3471                     <SUB I5 1 = I5 (TYPE FIX)>
3472                     <JUMP + PHRASE80>
3473 PHRASE75
3474                     <FRAME '\1aUPDATE-DEADS>
3475                     <PUSH INST11>
3476                     <DEAD INST11>
3477                     <PUSH LIVE-TEMPS6>
3478                     <DEAD LIVE-TEMPS6>
3479                     <CALL '\1aUPDATE-DEADS 2 = LIVE-TEMPS6>
3480                     <SET FROM7 I5>
3481                     <SUB I5 1 = I5 (TYPE FIX)>
3482 PHRASE80
3483                     <VEQUAL? I5 0 - AGAIN14 (TYPE FIX)>
3484                     <RETURN 'T>
3485                     <END \1aPREPARE-DEADS>
3486 #WORD *14154013341*
3487 <GFCN \1aMERGE-DEADS ("VALUE" UVECTOR UVECTOR BRANCH ANY) LIVES4 BRANCH5 FALL?6>
3488                     <TEMP TEMP10 ND18:UVECTOR B-LIVES7:UVECTOR TEMP20:UVECTOR LP25:UVECTOR BP26 NDP27:UVECTOR L28:FIX TEMP32:FIX>
3489                     <INTGO>
3490                     <GVAL 'UVSIZE = TEMP10>
3491                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP10 = ND18>
3492                     <DEAD TEMP10>
3493                     <SET TEMP10 ND18>
3494                     <LOOP (TEMP10 VALUE LENGTH)>
3495 ISTR11
3496                     <EMPUU? TEMP10 + ISTRE12>
3497                     <PUTUU TEMP10 1 0>
3498                     <RESTUU TEMP10 1 = TEMP10>
3499                     <JUMP + ISTR11>
3500 ISTRE12
3501                     <NTHUV BRANCH5 3 = B-LIVES7 (TYPE UVECTOR)>
3502                     <SET TEMP10 LIVES4 (TYPE UVECTOR)>
3503                     <SET TEMP20 ND18 (TYPE UVECTOR)>
3504                     <LOOP>
3505 MAP14
3506                     <INTGO>
3507                     <EMPUU? TEMP10 + MAPAP17>
3508                     <EMPUU? B-LIVES7 + MAPAP17>
3509                     <EMPUU? TEMP20 + MAPAP17>
3510                     <SET LP25 TEMP10>
3511                     <SET BP26 B-LIVES7>
3512                     <SET NDP27 TEMP20>
3513                     <NTHUU LP25 1 = L28 (TYPE FIX)>
3514                     <NTHUU BP26 1 = BP26 (TYPE FIX)>
3515                     <VEQUAL? L28 BP26 + PHRASE31 (TYPE FIX)>
3516                     <OR L28 BP26 = TEMP32>
3517                     <PUTUU LP25 1 TEMP32>
3518                     <DEAD LP25 TEMP32>
3519                     <XOR L28 BP26 = TEMP32>
3520                     <DEAD L28 BP26>
3521                     <PUTUU NDP27 1 TEMP32>
3522                     <DEAD NDP27 TEMP32>
3523 PHRASE31
3524                     <RESTUU TEMP10 1 = TEMP10 (TYPE UVECTOR)>
3525                     <RESTUU B-LIVES7 1 = B-LIVES7 (TYPE UVECTOR)>
3526                     <RESTUU TEMP20 1 = TEMP20 (TYPE UVECTOR)>
3527                     <JUMP + MAP14>
3528 MAPAP17
3529                     <TYPE? FALL?6 <TYPE-CODE FALSE> + PHRASE34>
3530                     <DEAD FALL?6>
3531                     <PUTUV BRANCH5 4 ND18>
3532                     <DEAD BRANCH5 ND18>
3533                     <RETURN LIVES4>
3534                     <DEAD LIVES4>
3535 PHRASE34
3536                     <NTHUV BRANCH5 5 = TEMP10>
3537                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE37>
3538                     <FRAME '\1aINTERSECT-UVS>
3539                     <PUSH ND18>
3540                     <DEAD ND18>
3541                     <PUSH TEMP10>
3542                     <DEAD TEMP10>
3543                     <CALL '\1aINTERSECT-UVS 2 = TEMP20>
3544                     <PUTUV BRANCH5 5 TEMP20>
3545                     <DEAD BRANCH5 TEMP20>
3546                     <RETURN LIVES4>
3547                     <DEAD LIVES4>
3548 PHRASE37
3549                     <PUTUV BRANCH5 5 ND18>
3550                     <DEAD BRANCH5 ND18>
3551                     <RETURN LIVES4>
3552                     <DEAD LIVES4>
3553                     <END \1aMERGE-DEADS>
3554 #WORD *7526172214*
3555 <GFCN \1aINTERSECT-UVS ("VALUE" UVECTOR UVECTOR UVECTOR) U14 U25>
3556                     <TEMP TEMP7 U36:UVECTOR TEMP14:UVECTOR TEMP15:UVECTOR UP120 UP221 UP322:UVECTOR>
3557                     <INTGO>
3558                     <GVAL 'UVSIZE = TEMP7>
3559                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP7 = U36 (TYPE UVECTOR)>
3560                     <DEAD TEMP7>
3561                     <SET TEMP7 U14 (TYPE UVECTOR)>
3562                     <DEAD U14>
3563                     <SET TEMP14 U25 (TYPE UVECTOR)>
3564                     <DEAD U25>
3565                     <SET TEMP15 U36 (TYPE UVECTOR)>
3566                     <LOOP>
3567 MAP9
3568                     <INTGO>
3569                     <EMPUU? TEMP7 + MAPAP12>
3570                     <EMPUU? TEMP14 + MAPAP12>
3571                     <EMPUU? TEMP15 + MAPAP12>
3572                     <SET UP120 TEMP7>
3573                     <SET UP221 TEMP14>
3574                     <SET UP322 TEMP15>
3575                     <NTHUU UP120 1 = UP120 (TYPE FIX)>
3576                     <NTHUU UP221 1 = UP221 (TYPE FIX)>
3577                     <AND UP120 UP221 = UP120>
3578                     <DEAD UP221>
3579                     <PUTUU UP322 1 UP120>
3580                     <DEAD UP322 UP120>
3581                     <RESTUU TEMP7 1 = TEMP7 (TYPE UVECTOR)>
3582                     <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
3583                     <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
3584                     <JUMP + MAP9>
3585 MAPAP12
3586                     <RETURN U36>
3587                     <DEAD U36>
3588                     <END \1aINTERSECT-UVS>
3589 #WORD *21010732633*
3590                     <GFCN \1aUPDATE-DEADS ("VALUE" UVECTOR FORM UVECTOR) INST4 LIVES5>
3591                     <TEMP OP7 SETTER6 TEMP17 TEMP37:LIST TEM8 TEMP130>
3592                     <INTGO>
3593                     <EMPL? INST4 + EXIT115 (TYPE FORM) (DEAD-JUMP INST4)>
3594                     <NTHL INST4 1 = OP7>
3595                     <EQUAL? OP7 '`SET - PHRASE12 (DEAD-FALL OP7)>
3596                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3597                     <NTHL OP7 1 = OP7>
3598                     <CHTYPE OP7 <TYPE-CODE ATOM> = SETTER6>
3599                     <DEAD OP7>
3600                     <FRAME '\1aREM-LIST?>
3601                     <PUSH SETTER6>
3602                     <PUSH LIVES5>
3603                     <CALL '\1aREM-LIST? 2 = OP7>
3604                     <TYPE? OP7 <TYPE-CODE FALSE> - PHRASE15>
3605                     <DEAD OP7>
3606                     <SETG 'ANY-FLUSHED-INS 'T>
3607                     <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = OP7>
3608                     <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3609                     <PUTL TEMP17 1 OP7>
3610                     <DEAD TEMP17 OP7>
3611 PHRASE15
3612                     <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3613                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3614                     <NTHL TEMP17 1 = TEMP17>
3615                     <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG20 (DEAD-JUMP TEMP17)>
3616                     <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE19 (DEAD-JUMP INST4 SETTER6)>
3617                     <DEAD TEMP17>
3618 TAG20
3619                     <FRAME '\1aADD-DEAD>
3620                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3621                     <DEAD INST4>
3622                     <RESTL OP7 1 = OP7 (TYPE LIST)>
3623                     <CHTYPE OP7 <TYPE-CODE LIST> = STACK>
3624                     <DEAD OP7>
3625                     <PUSH LIVES5>
3626                     <PUSH SETTER6>
3627                     <DEAD SETTER6>
3628                     <CALL '\1aADD-DEAD 3>
3629 PHRASE19
3630                     <RETURN LIVES5>
3631                     <DEAD LIVES5>
3632 PHRASE12
3633                     <EQUAL? OP7 '`SETLR - PHRASE23 (DEAD-FALL OP7)>
3634                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3635                     <NTHL OP7 1 = OP7>
3636                     <CHTYPE OP7 <TYPE-CODE ATOM> = SETTER6>
3637                     <DEAD OP7>
3638                     <FRAME '\1aREM-LIST?>
3639                     <PUSH SETTER6>
3640                     <PUSH LIVES5>
3641                     <CALL '\1aREM-LIST? 2 = OP7>
3642                     <TYPE? OP7 <TYPE-CODE FALSE> - PHRASE25>
3643                     <DEAD OP7>
3644                     <SETG 'ANY-FLUSHED-INS 'T>
3645                     <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = OP7>
3646                     <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3647                     <PUTL TEMP17 1 OP7>
3648                     <DEAD TEMP17 OP7>
3649 PHRASE25
3650                     <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3651                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3652                     <NTHL TEMP17 1 = TEMP17>
3653                     <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG30 (DEAD-JUMP TEMP17)>
3654                     <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE29>
3655                     <DEAD TEMP17>
3656 TAG30
3657                     <FRAME '\1aADD-DEAD>
3658                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3659                     <RESTL OP7 1 = OP7 (TYPE LIST)>
3660                     <CHTYPE OP7 <TYPE-CODE LIST> = STACK>
3661                     <DEAD OP7>
3662                     <PUSH LIVES5>
3663                     <PUSH SETTER6>
3664                     <CALL '\1aADD-DEAD 3>
3665 PHRASE29
3666                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3667                     <RESTL OP7 1 = OP7 (TYPE LIST)>
3668                     <RESTL OP7 1 = OP7 (TYPE LIST)>
3669                     <NTHL OP7 1 = OP7>
3670                     <TYPE? OP7 <TYPE-CODE ATOM> + TAG35 (DEAD-JUMP OP7)>
3671                     <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE34 (DEAD-JUMP INST4 SETTER6)>
3672                     <DEAD OP7>
3673 TAG35
3674                     <FRAME '\1aADD-DEAD>
3675                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3676                     <DEAD INST4>
3677                     <RESTL OP7 1 = OP7 (TYPE LIST)>
3678                     <RESTL OP7 1 = TEMP37 (TYPE LIST)>
3679                     <DEAD OP7>
3680                     <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
3681                     <DEAD TEMP37>
3682                     <PUSH LIVES5>
3683                     <PUSH SETTER6>
3684                     <DEAD SETTER6>
3685                     <CALL '\1aADD-DEAD 3>
3686 PHRASE34
3687                     <RETURN LIVES5>
3688                     <DEAD LIVES5>
3689 PHRASE23
3690                     <EQUAL? OP7 '`SETRL - PHRASE39 (DEAD-FALL OP7)>
3691                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3692                     <RESTL OP7 1 = OP7 (TYPE LIST)>
3693                     <NTHL OP7 1 = OP7>
3694                     <CHTYPE OP7 <TYPE-CODE ATOM> = SETTER6>
3695                     <DEAD OP7>
3696                     <FRAME '\1aREM-LIST?>
3697                     <PUSH SETTER6>
3698                     <PUSH LIVES5>
3699                     <CALL '\1aREM-LIST? 2 = OP7>
3700                     <TYPE? OP7 <TYPE-CODE FALSE> - PHRASE41>
3701                     <DEAD OP7>
3702                     <SETG 'ANY-FLUSHED-INS 'T>
3703                     <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = OP7>
3704                     <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3705                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3706                     <PUTL TEMP17 1 OP7>
3707                     <DEAD TEMP17 OP7>
3708 PHRASE41
3709                     <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3710                     <NTHL TEMP17 1 = TEMP17>
3711                     <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG46 (DEAD-JUMP TEMP17)>
3712                     <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE45>
3713                     <DEAD TEMP17>
3714 TAG46
3715                     <FRAME '\1aADD-DEAD>
3716                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3717                     <CHTYPE OP7 <TYPE-CODE LIST> = STACK>
3718                     <DEAD OP7>
3719                     <PUSH LIVES5>
3720                     <PUSH SETTER6>
3721                     <CALL '\1aADD-DEAD 3>
3722 PHRASE45
3723                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3724                     <RESTL OP7 1 = OP7 (TYPE LIST)>
3725                     <RESTL OP7 1 = OP7 (TYPE LIST)>
3726                     <NTHL OP7 1 = OP7>
3727                     <TYPE? OP7 <TYPE-CODE ATOM> + TAG51 (DEAD-JUMP OP7)>
3728                     <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE49 (DEAD-JUMP INST4 SETTER6)>
3729                     <DEAD OP7>
3730 TAG51
3731                     <FRAME '\1aADD-DEAD>
3732                     <RESTL INST4 1 = TEMP37 (TYPE LIST)>
3733                     <DEAD INST4>
3734                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3735                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3736                     <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
3737                     <DEAD TEMP37>
3738                     <PUSH LIVES5>
3739                     <PUSH SETTER6>
3740                     <DEAD SETTER6>
3741                     <CALL '\1aADD-DEAD 3>
3742 PHRASE49
3743                     <RETURN LIVES5>
3744                     <DEAD LIVES5>
3745 PHRASE39
3746                     <EQUAL? OP7 '`TEMP - PHRASE55 (DEAD-FALL OP7)>
3747                     <RESTL INST4 1 = TEMP37 (TYPE LIST)>
3748                     <DEAD INST4>
3749                     <CHTYPE TEMP37 <TYPE-CODE LIST> = TEMP37>
3750                     <LOOP>
3751 MAP57
3752                     <INTGO>
3753                     <EMPL? TEMP37 + EXIT115 (DEAD-JUMP TEMP37)>
3754                     <NTHL TEMP37 1 = OP7>
3755                     <TYPE? OP7 <TYPE-CODE LIST> - PHRASE69 (DEAD-JUMP OP7)>
3756                     <FRAME '\1aREM-LIST>
3757                     <FRAME '\1aATOM-PART>
3758                     <PUSH OP7>
3759                     <DEAD OP7>
3760                     <CALL '\1aATOM-PART 1 = STACK>
3761                     <PUSH LIVES5>
3762                     <CALL '\1aREM-LIST 2>
3763 PHRASE69
3764                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3765                     <JUMP + MAP57>
3766 PHRASE55
3767                     <EQUAL? OP7 '`MAKTUP - PHRASE72 (DEAD-FALL OP7)>
3768                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3769                     <DEAD INST4>
3770                     <CHTYPE OP7 <TYPE-CODE LIST> = OP7>
3771                     <LOOP>
3772 MAP74
3773                     <INTGO>
3774                     <EMPL? OP7 + EXIT115 (DEAD-JUMP OP7)>
3775                     <NTHL OP7 1 = SETTER6>
3776                     <EQUAL? SETTER6 '= + MAPAP77 (DEAD-JUMP SETTER6 OP7)>
3777                     <TYPE? SETTER6 <TYPE-CODE LIST> - PHRASE86 (DEAD-JUMP SETTER6)>
3778                     <FRAME '\1aREM-LIST>
3779                     <FRAME '\1aATOM-PART>
3780                     <PUSH SETTER6>
3781                     <DEAD SETTER6>
3782                     <CALL '\1aATOM-PART 1 = STACK>
3783                     <PUSH LIVES5>
3784                     <CALL '\1aREM-LIST 2>
3785 PHRASE86
3786                     <RESTL OP7 1 = OP7 (TYPE LIST)>
3787                     <JUMP + MAP74>
3788 MAPAP77
3789                     <RETURN LIVES5>
3790                     <DEAD LIVES5>
3791 PHRASE72
3792                     <EQUAL? OP7 '`DISPATCH - PHRASE89 (DEAD-FALL OP7)>
3793                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3794                     <NTHL OP7 1 = OP7>
3795                     <TYPE? OP7 <TYPE-CODE ATOM> + TAG92 (DEAD-JUMP OP7)>
3796                     <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE91>
3797                     <DEAD OP7>
3798 TAG92
3799                     <FRAME '\1aADD-DEAD>
3800                     <RESTL INST4 1 = TEMP37 (TYPE LIST)>
3801                     <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
3802                     <DEAD TEMP37>
3803                     <PUSH LIVES5>
3804                     <PUSH %<>>
3805                     <CALL '\1aADD-DEAD 3>
3806 PHRASE91
3807                     <RESTL INST4 1 = OP7 (TYPE LIST)>
3808                     <RESTL OP7 1 = OP7 (TYPE LIST)>
3809                     <NTHL OP7 1 = OP7>
3810                     <TYPE? OP7 <TYPE-CODE ATOM> + TAG96 (DEAD-JUMP OP7)>
3811                     <TYPE? OP7 <TYPE-CODE DEAD-VAR> - PHRASE95 (DEAD-JUMP INST4)>
3812                     <DEAD OP7>
3813 TAG96
3814                     <FRAME '\1aADD-DEAD>
3815                     <RESTL INST4 1 = TEMP17 (TYPE LIST)>
3816                     <DEAD INST4>
3817                     <RESTL TEMP17 1 = TEMP37 (TYPE LIST)>
3818                     <DEAD TEMP17>
3819                     <CHTYPE TEMP37 <TYPE-CODE LIST> = STACK>
3820                     <DEAD TEMP37>
3821                     <PUSH LIVES5>
3822                     <PUSH %<>>
3823                     <CALL '\1aADD-DEAD 3>
3824 PHRASE95
3825                     <RETURN LIVES5>
3826                     <DEAD LIVES5>
3827 PHRASE89
3828                     <EQUAL? OP7 '`FCN + EXIT115 (DEAD-JUMP INST4 OP7)>
3829                     <EQUAL? OP7 '`GFCN + EXIT115 (DEAD-JUMP INST4 OP7)>
3830                     <EQUAL? OP7 '`OPT-DISPATCH + EXIT115 (DEAD-JUMP INST4 OP7)>
3831                     <EQUAL? OP7 '`LOOP + EXIT115 (DEAD-JUMP INST4 OP7)>
3832                     <EQUAL? OP7 '`END + EXIT115 (DEAD-JUMP INST4 OP7)>
3833                     <EQUAL? OP7 '`ICALL + EXIT115 (DEAD-JUMP INST4 OP7)>
3834                     <RESTL INST4 1 = TEM8 (TYPE LIST)>
3835                     <CHTYPE TEM8 <TYPE-CODE LIST> = TEM8>
3836                     <EMPL? TEM8 + TAG101 (DEAD-JUMP TEM8)>
3837                     <LOOP (TEM8 VALUE)>
3838 TAG103
3839                     <NTHL TEM8 1 = TEMP17>
3840                     <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG104 (DEAD-JUMP TEMP17)>
3841                     <VEQUAL? TEMP17 '= + TAG102>
3842                     <DEAD TEMP17>
3843 TAG104
3844                     <RESTL TEM8 1 = TEM8 (TYPE LIST)>
3845                     <EMPL? TEM8 - TAG103 (DEAD-FALL TEM8)>
3846 TAG101
3847                     <SET TEM8 %<> (TYPE FALSE)>
3848 TAG102
3849                     <VEQUAL? TEM8 0 + PHRASE106 (DEAD-JUMP TEM8)>
3850                     <RESTL TEM8 1 = TEMP17 (TYPE LIST)>
3851                     <NTHL TEMP17 1 = TEMP17>
3852                     <CHTYPE TEMP17 <TYPE-CODE ATOM> = SETTER6>
3853                     <DEAD TEMP17>
3854                     <VEQUAL? SETTER6 '`STACK + PHRASE114 (DEAD-JUMP TEM8)>
3855                     <FRAME '\1aREM-LIST?>
3856                     <PUSH SETTER6>
3857                     <PUSH LIVES5>
3858                     <CALL '\1aREM-LIST? 2 = TEMP17>
3859                     <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE114 (DEAD-JUMP TEM8)>
3860                     <DEAD TEMP17>
3861                     <EQUAL? OP7 '`SCALL + PHRASE114 (DEAD-JUMP TEM8)>
3862                     <EQUAL? OP7 '`SYSOP + PHRASE114 (DEAD-JUMP TEM8)>
3863                     <EQUAL? OP7 '`SYSCALL + PHRASE114 (DEAD-JUMP TEM8)>
3864                     <SETG 'ANY-FLUSHED-INS 'T>
3865                     <CHTYPE SETTER6 <TYPE-CODE DEAD-VAR> = TEMP17>
3866                     <RESTL TEM8 1 = TEM8 (TYPE LIST)>
3867                     <PUTL TEM8 1 TEMP17>
3868                     <DEAD TEM8 TEMP17>
3869                     <JUMP + PHRASE114>
3870 PHRASE106
3871                     <SET SETTER6 %<> (TYPE FALSE)>
3872 PHRASE114
3873                     <RESTL INST4 1 = TEMP37 (TYPE LIST)>
3874                     <DEAD INST4>
3875                     <CHTYPE TEMP37 <TYPE-CODE LIST> = TEMP37>
3876                     <LOOP>
3877 AGAIN118
3878                     <INTGO>
3879                     <EMPL? TEMP37 + EXIT115 (TYPE LIST) (DEAD-JUMP TEMP37 SETTER6 OP7)>
3880                     <NTHL TEMP37 1 = TEMP17>
3881                     <EQUAL? TEMP17 '= + BOOL123 (DEAD-JUMP TEMP17)>
3882                     <EQUAL? TEMP17 '+ + BOOL123 (DEAD-JUMP TEMP17)>
3883                     <EQUAL? TEMP17 '- - PHRASE122 (DEAD-FALL TEMP17)>
3884 BOOL123
3885                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3886                     <JUMP + PHRASE127>
3887 PHRASE122
3888                     <TYPE? TEMP17 <TYPE-CODE ATOM> + TAG125 (DEAD-JUMP TEMP17)>
3889                     <TYPE? TEMP17 <TYPE-CODE DEAD-VAR> - PHRASE124 (DEAD-FALL TEMP17)>
3890 TAG125
3891                     <FRAME '\1aADD-DEAD>
3892                     <PUSH TEMP37>
3893                     <JUMP + PEEP138>
3894 PHRASE124
3895                     <EQUAL? OP7 '`CHTYPE - PHRASE127 (DEAD-JUMP TEMP17)>
3896                     <TYPE? TEMP17 <TYPE-CODE FORM> - PHRASE127 (DEAD-JUMP TEMP17)>
3897                     <SET TEM8 TEMP17>
3898                     <SET TEMP130 1 (TYPE FIX)>
3899                     <LOOP (TEM8 VALUE) (TEMP130 VALUE)>
3900 TAG131
3901                     <EMPL? TEM8 + PHRASE127 (DEAD-JUMP TEMP130 TEM8 TEMP17)>
3902                     <SUB TEMP130 1 = TEMP130 (TYPE FIX)>
3903                     <LESS? TEMP130 0 + TAG132 (DEAD-JUMP TEMP130 TEM8)>
3904                     <RESTL TEM8 1 = TEM8 (TYPE LIST)>
3905                     <JUMP + TAG131>
3906 TAG132
3907                     <NTHL TEMP17 1 = TEMP130>
3908                     <EQUAL? TEMP130 '`TYPE - PHRASE127 (DEAD-JUMP TEMP17)>
3909                     <DEAD TEMP130>
3910                     <RESTL TEMP17 1 = TEMP130 (TYPE LIST)>
3911                     <NTHL TEMP130 1 = TEMP130>
3912                     <TYPE? TEMP130 <TYPE-CODE ATOM> - PHRASE127 (DEAD-JUMP TEMP17)>
3913                     <DEAD TEMP130>
3914                     <FRAME '\1aADD-DEAD>
3915                     <RESTL TEMP17 1 = TEMP130 (TYPE LIST)>
3916                     <DEAD TEMP17>
3917                     <CHTYPE TEMP130 <TYPE-CODE LIST> = STACK>
3918                     <DEAD TEMP130>
3919 PEEP138
3920                     <PUSH LIVES5>
3921                     <PUSH SETTER6>
3922                     <CALL '\1aADD-DEAD 3>
3923 PHRASE127
3924                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
3925                     <JUMP + AGAIN118>
3926 EXIT115
3927                     <RETURN LIVES5>
3928                     <DEAD LIVES5>
3929                     <END \1aUPDATE-DEADS>
3930
3931 #WORD *34702374670*
3932 <GFCN \1aADD-DEAD ("VALUE" <OR FALSE <LIST DEAD-VAR>> <LIST <OR ATOM DEAD-VAR>> UVECTOR <OR ATOM FALSE>) RINST4 L5 SETTER6>
3933                     <TEMP TEMP8 ATM7:ATOM>
3934                     <INTGO>
3935                     <NTHL RINST4 1 = TEMP8>
3936                     <CHTYPE TEMP8 <TYPE-CODE ATOM> = ATM7>
3937                     <DEAD TEMP8>
3938                     <FRAME '\1aADD-LIST?>
3939                     <PUSH ATM7>
3940                     <PUSH L5>
3941                     <DEAD L5>
3942                     <CALL '\1aADD-LIST? 2 = TEMP8>
3943                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE10>
3944                     <VEQUAL? ATM7 SETTER6 - TAG13>
3945                     <DEAD SETTER6>
3946                     <RETURN %<>>
3947 TAG13
3948                     <CHTYPE ATM7 <TYPE-CODE DEAD-VAR> = TEMP8>
3949                     <DEAD ATM7>
3950                     <PUTL RINST4 1 TEMP8>
3951                     <DEAD TEMP8>
3952                     <SET TEMP8 RINST4>
3953                     <DEAD RINST4>
3954 PHRASE10
3955                     <RETURN TEMP8>
3956                     <DEAD TEMP8>
3957                     <END \1aADD-DEAD>
3958 #WORD *2411323553*
3959                     <GFCN \1aINSERT-DEADS ("VALUE" <OR ATOM FALSE LIST> LIST VECTOR) CODE4 VCODE5>
3960                     <TEMP RCODE6:LIST TEMP16 TEMP13:VECTOR DEADS19 FALL-DEADS20:LIST BJL24 JUMP-DEADS21:LIST TEMP37 TMPL23>
3961                     <INTGO>
3962                     <SET RCODE6 CODE4>
3963                     <SET TEMP16 %<> (TYPE FALSE)>
3964                     <SET TEMP13 VCODE5 (TYPE VECTOR)>
3965                     <DEAD VCODE5>
3966                     <LOOP>
3967 MAP8
3968                     <INTGO>
3969                     <EMPUV? TEMP13 + MAPAP11 (DEAD-JUMP CODE4 TMPL23 TEMP13 RCODE6) (DEAD-FALL TEMP16)>
3970                     <NTHUV TEMP13 1 = TEMP16>
3971                     <TYPE? TEMP16 <TYPE-CODE BRANCH> - PHRASE26 (DEAD-FALL CODE4)>
3972                     <FRAME '\1aFIND-DEADS>
3973                     <NTHUV TEMP16 1 = STACK (TYPE FORM)>
3974                     <CALL '\1aFIND-DEADS 1 = DEADS19>
3975                     <FRAME '\1aUV-TO-L>
3976                     <NTHUV TEMP16 4 = STACK (TYPE UVECTOR)>
3977                     <CALL '\1aUV-TO-L 1 = FALL-DEADS20>
3978                     <NTHUV TEMP16 5 = BJL24>
3979                     <TYPE? BJL24 <TYPE-CODE FALSE> + PHRASE30 (DEAD-JUMP BJL24)>
3980                     <FRAME '\1aUV-TO-L>
3981                     <PUSH BJL24>
3982                     <DEAD BJL24>
3983                     <CALL '\1aUV-TO-L 1 = JUMP-DEADS21>
3984                     <JUMP + PHRASE32>
3985 PHRASE30
3986                     <SET JUMP-DEADS21 () (TYPE LIST)>
3987 PHRASE32
3988                     <NTHUV TEMP16 1 = TEMP16 (TYPE FORM)>
3989                     <EMPL? JUMP-DEADS21 + PHRASE34 (TYPE LIST) (DEAD-JUMP JUMP-DEADS21)>
3990                     <SET BJL24 TEMP16>
3991                     <LOOP (BJL24 VALUE)>
3992 TAG36
3993                     <RESTL BJL24 1 = TEMP37 (TYPE LIST)>
3994                     <EMPL? TEMP37 + TAG38 (DEAD-JUMP TEMP37) (DEAD-FALL BJL24)>
3995                     <SET BJL24 TEMP37>
3996                     <DEAD TEMP37>
3997                     <JUMP + TAG36>
3998 TAG38
3999                     <CONS '`DEAD-JUMP JUMP-DEADS21 = TEMP37>
4000                     <DEAD JUMP-DEADS21>
4001                     <CONS TEMP37 () = TEMP37>
4002                     <PUTREST BJL24 TEMP37>
4003                     <DEAD BJL24 TEMP37>
4004 PHRASE34
4005                     <EMPL? FALL-DEADS20 + PHRASE40 (TYPE LIST) (DEAD-JUMP FALL-DEADS20 TEMP16)>
4006                     <SET TEMP37 TEMP16>
4007                     <DEAD TEMP16>
4008                     <LOOP (TEMP37 VALUE)>
4009 TAG41
4010                     <RESTL TEMP37 1 = BJL24 (TYPE LIST)>
4011                     <EMPL? BJL24 + TAG43 (DEAD-JUMP BJL24) (DEAD-FALL TEMP37)>
4012                     <SET TEMP37 BJL24>
4013                     <DEAD BJL24>
4014                     <JUMP + TAG41>
4015 TAG43
4016                     <CONS '`DEAD-FALL FALL-DEADS20 = BJL24>
4017                     <DEAD FALL-DEADS20>
4018                     <CONS BJL24 () = BJL24>
4019                     <PUTREST TEMP37 BJL24>
4020                     <DEAD TEMP37 BJL24>
4021 PHRASE40
4022                     <EMPL? DEADS19 + TAG78 (TYPE LIST) (DEAD-JUMP DEADS19)>
4023                     <RESTL RCODE6 1 = BJL24 (TYPE LIST)>
4024                     <CONS '`DEAD DEADS19 = TEMP37>
4025                     <DEAD DEADS19>
4026                     <CHTYPE TEMP37 <TYPE-CODE FORM> = TEMP37>
4027                     <CONS TEMP37 BJL24 = BJL24>
4028                     <DEAD TEMP37>
4029                     <PUTREST RCODE6 BJL24>
4030                     <DEAD BJL24>
4031                     <RESTL RCODE6 1 = RCODE6 (TYPE LIST)>
4032                     <JUMP + TAG78>
4033 PHRASE26
4034                     <TYPE? TEMP16 <TYPE-CODE FORM> - PHRASE47>
4035                     <EMPL? TEMP16 + PHRASE68 (TYPE FORM) (DEAD-JUMP CODE4)>
4036                     <NTHL TEMP16 1 = DEADS19>
4037                     <EQUAL? DEADS19 '`SET - BOOL51>
4038                     <RESTL TEMP16 1 = BJL24 (TYPE LIST)>
4039                     <NTHL BJL24 1 = BJL24>
4040                     <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
4041                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
4042                     <NTHL TEMP37 1 = TEMP37>
4043                     <EQUAL? BJL24 TEMP37 + BOOL50>
4044                     <DEAD BJL24 TEMP37>
4045                     <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
4046                     <NTHL TEMP37 1 = TEMP37>
4047                     <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> + BOOL50>
4048                     <DEAD TEMP37>
4049 BOOL51
4050                     <EQUAL? DEADS19 '`SETLR - BOOL53>
4051                     <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
4052                     <NTHL TEMP37 1 = TEMP37>
4053                     <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> + BOOL50>
4054                     <DEAD TEMP37>
4055 BOOL53
4056                     <EQUAL? DEADS19 '`SETRL - BOOL54 (DEAD-JUMP TMPL23)>
4057                     <RESTL TEMP16 1 = TEMP37 (TYPE LIST)>
4058                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
4059                     <NTHL TEMP37 1 = TEMP37>
4060                     <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> + BOOL50 (DEAD-FALL TMPL23)>
4061                     <DEAD TEMP37>
4062 BOOL54
4063                     <SET TMPL23 TEMP16>
4064                     <CHTYPE TMPL23 <TYPE-CODE LIST> = TMPL23>
4065                     <LOOP (TMPL23 VALUE)>
4066 TAG58
4067                     <NTHL TMPL23 1 = TEMP37>
4068                     <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG59 (DEAD-JUMP TEMP37)>
4069                     <VEQUAL? TEMP37 '= + TAG57>
4070                     <DEAD TEMP37>
4071 TAG59
4072                     <RESTL TMPL23 1 = TMPL23 (TYPE LIST)>
4073                     <EMPL? TMPL23 - TAG58 (DEAD-FALL CODE4 TMPL23 DEADS19)>
4074                     <SET TMPL23 %<> (TYPE FALSE)>
4075                     <JUMP + PHRASE68>
4076 TAG57
4077                     <RESTL TMPL23 1 = TEMP37 (TYPE LIST)>
4078                     <NTHL TEMP37 1 = TEMP37>
4079                     <TYPE? TEMP37 <TYPE-CODE DEAD-VAR> - PHRASE68 (DEAD-JUMP CODE4 DEADS19)>
4080                     <DEAD TEMP37>
4081 BOOL50
4082                     <SETG 'ANY-FLUSHED-INS 'T>
4083                     <EQUAL? DEADS19 '`CALL + BOOL62 (DEAD-JUMP CODE4 DEADS19)>
4084                     <EQUAL? DEADS19 '`ACALL - PHRASE61 (DEAD-FALL CODE4 DEADS19)>
4085 BOOL62
4086                     <LENL TEMP16 = TEMP37 (TYPE FIX)>
4087                     <LENL TMPL23 = BJL24 (TYPE FIX)>
4088                     <SUB TEMP37 BJL24 = TEMP37 (TYPE FIX)>
4089                     <DEAD BJL24>
4090                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
4091                     <SET BJL24 TEMP16>
4092                     <GRTR? TEMP37 0 - RESTL64 (TYPE FIX) (DEAD-JUMP TEMP37)>
4093                     <LOOP (BJL24 VALUE) (TEMP37 VALUE)>
4094 RESTL63
4095                     <INTGO>
4096                     <RESTL BJL24 1 = BJL24 (TYPE LIST)>
4097                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
4098                     <GRTR? TEMP37 0 + RESTL63 (TYPE FIX) (DEAD-FALL TEMP37)>
4099 RESTL64
4100                     <CHTYPE BJL24 <TYPE-CODE LIST> = BJL24>
4101                     <PUTREST BJL24 ()>
4102                     <DEAD BJL24>
4103                     <JUMP + PHRASE68>
4104 PHRASE61
4105                     <EQUAL? DEADS19 '`SCALL + BOOL66 (DEAD-JUMP CODE4 DEADS19)>
4106                     <EQUAL? DEADS19 '`SYSOP + BOOL66 (DEAD-JUMP CODE4 DEADS19)>
4107                     <EQUAL? DEADS19 '`SYSCALL - PHRASE65 (DEAD-JUMP TEMP16) (DEAD-FALL CODE4 DEADS19)>
4108 BOOL66
4109                     <RESTL TMPL23 1 = BJL24 (TYPE LIST)>
4110                     <NTHL BJL24 1 = BJL24>
4111                     <CHTYPE BJL24 <TYPE-CODE ATOM> = BJL24>
4112                     <RESTL TMPL23 1 = TEMP37 (TYPE LIST)>
4113                     <PUTL TEMP37 1 BJL24>
4114                     <DEAD TEMP37 BJL24>
4115                     <JUMP + PHRASE68>
4116 PHRASE65
4117                     <EQUAL? DEADS19 '`POP - PHRASE67 (DEAD-FALL CODE4)>
4118                     <DEAD DEADS19>
4119                     <PUTL RCODE6 1 <`ADJ -1>>
4120                     <SET CODE4 RCODE6>
4121                     <DEAD RCODE6>
4122                     <RESTL CODE4 1 = RCODE6 (TYPE LIST)>
4123                     <JUMP + PEEP82>
4124 PHRASE67
4125                     <RESTL RCODE6 1 = RCODE6 (TYPE LIST)>
4126                     <PUTREST CODE4 RCODE6>
4127 PEEP82
4128                     <SET TEMP16 'T (TYPE ATOM)>
4129                     <JUMP + PHRASE76>
4130 PHRASE68
4131                     <FRAME '\1aFIND-DEADS>
4132                     <PUSH TEMP16>
4133                     <DEAD TEMP16>
4134                     <CALL '\1aFIND-DEADS 1 = DEADS19>
4135                     <EMPL? DEADS19 + TAG78 (TYPE LIST) (DEAD-JUMP DEADS19)>
4136                     <FRAME '\1aFORM>
4137                     <PUSH '`DEAD>
4138                     <SET TEMP37 1 (TYPE FIX)>
4139                     <SET BJL24 DEADS19>
4140                     <DEAD DEADS19>
4141                     <LOOP (BJL24 VALUE) (TEMP37 VALUE)>
4142 TAG74
4143                     <INTGO>
4144                     <EMPL? BJL24 + TAG73 (DEAD-JUMP BJL24)>
4145                     <NTHL BJL24 1 = STACK>
4146                     <RESTL BJL24 1 = BJL24 (TYPE LIST)>
4147                     <ADD TEMP37 1 = TEMP37 (TYPE FIX)>
4148                     <JUMP + TAG74>
4149 TAG73
4150                     <CALL '\1aFORM TEMP37 = TEMP37>
4151                     <CONS TEMP37 () = TEMP37>
4152                     <RESTL RCODE6 1 = BJL24 (TYPE LIST)>
4153                     <PUTREST TEMP37 BJL24>
4154                     <DEAD BJL24>
4155                     <PUTREST RCODE6 TEMP37>
4156                     <DEAD TEMP37>
4157                     <RESTL RCODE6 1 = RCODE6 (TYPE LIST)>
4158                     <JUMP + TAG78>
4159 PHRASE47
4160                     <TYPE? TEMP16 <TYPE-CODE LABEL> - TAG78 (DEAD-JUMP CODE4 TEMP16)>
4161                     <NTHUV TEMP16 1 = TEMP16>
4162                     <TYPE? TEMP16 <TYPE-CODE FORM> - TAG78 (DEAD-JUMP CODE4 TEMP16)>
4163                     <EMPL? TEMP16 + TAG78 (TYPE FORM) (DEAD-JUMP CODE4 TEMP16)>
4164                     <NTHL TEMP16 1 = TEMP37>
4165                     <DEAD TEMP16>
4166                     <EQUAL? TEMP37 '`ENDIF - TAG78 (DEAD-JUMP CODE4)>
4167                     <DEAD TEMP37>
4168                     <SET TEMP16 %<> (TYPE FALSE)>
4169                     <JUMP + PHRASE76>
4170 TAG78
4171                     <SET CODE4 RCODE6>
4172                     <DEAD RCODE6>
4173                     <RESTL CODE4 1 = RCODE6 (TYPE LIST)>
4174                     <SET TEMP16 RCODE6>
4175 PHRASE76
4176                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
4177                     <JUMP + MAP8>
4178 MAPAP11
4179                     <RETURN TEMP16>
4180                     <DEAD TEMP16>
4181                     <END \1aINSERT-DEADS>
4182
4183 #WORD *24714126344*
4184 <GFCN \1aFIND-DEADS ("VALUE" LIST FORM) INST4>
4185                     <TEMP (PASSED=?6 %<>) OP5 TEMP18 TEMP16 TEMP20 RINST21 ONE22 TEMP30>
4186                     <INTGO>
4187                     <EMPL? INST4 + PHRASE8 (TYPE FORM)>
4188                     <NTHL INST4 1 = OP5>
4189                     <SET TEMP18 () (TYPE LIST)>
4190                     <SET TEMP16 () (TYPE LIST)>
4191                     <RESTL INST4 1 = TEMP20 (TYPE LIST)>
4192                     <CHTYPE TEMP20 <TYPE-CODE LIST> = TEMP20>
4193                     <LOOP>
4194 MAP10
4195                     <INTGO>
4196                     <EMPL? TEMP20 + MAPAP13>
4197                     <SET RINST21 TEMP20>
4198                     <NTHL RINST21 1 = ONE22>
4199                     <EQUAL? ONE22 '= - PHRASE24>
4200                     <SET PASSED=?6 RINST21>
4201                     <DEAD RINST21>
4202                     <JUMP + PHRASE46>
4203 PHRASE24
4204                     <TYPE? PASSED=?6 <TYPE-CODE FALSE> + PHRASE26>
4205                     <EQUAL? OP5 '`CALL + BOOL28>
4206                     <EQUAL? OP5 '`ACALL - PHRASE26>
4207 BOOL28
4208                     <TYPE? ONE22 <TYPE-CODE DEAD-VAR> - PHRASE26>
4209                     <LENL INST4 = RINST21 (TYPE FIX)>
4210                     <LENL PASSED=?6 = TEMP30 (TYPE FIX)>
4211                     <DEAD PASSED=?6>
4212                     <SUB RINST21 TEMP30 = RINST21 (TYPE FIX)>
4213                     <DEAD TEMP30>
4214                     <SUB RINST21 1 = RINST21 (TYPE FIX)>
4215                     <SET TEMP30 INST4>
4216                     <DEAD INST4>
4217                     <GRTR? RINST21 0 - RESTL32 (TYPE FIX)>
4218                     <LOOP (TEMP30 VALUE) (RINST21 VALUE)>
4219 RESTL31
4220                     <INTGO>
4221                     <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
4222                     <SUB RINST21 1 = RINST21 (TYPE FIX)>
4223                     <GRTR? RINST21 0 + RESTL31 (TYPE FIX)>
4224 RESTL32
4225                     <CHTYPE TEMP30 <TYPE-CODE LIST> = TEMP30>
4226                     <PUTREST TEMP30 ()>
4227                     <DEAD TEMP30>
4228                     <RETURN TEMP18>
4229                     <DEAD TEMP18>
4230 PHRASE26
4231                     <TYPE? ONE22 <TYPE-CODE DEAD-VAR> - PHRASE34>
4232                     <CHTYPE ONE22 <TYPE-CODE ATOM> = ONE22>
4233                     <PUTL RINST21 1 ONE22>
4234                     <DEAD RINST21>
4235                     <CONS ONE22 () = TEMP30 (TYPE LIST)>
4236                     <DEAD ONE22>
4237                     <EMPL? TEMP18 - TAG36>
4238                     <SET TEMP18 TEMP30 (TYPE LIST)>
4239                     <JUMP + TAG37>
4240 TAG36
4241                     <PUTREST TEMP16 TEMP30>
4242                     <DEAD TEMP16>
4243 TAG37
4244                     <SET TEMP16 TEMP30 (TYPE LIST)>
4245                     <DEAD TEMP30>
4246                     <JUMP + PHRASE46>
4247 PHRASE34
4248                     <TYPE? ONE22 <TYPE-CODE FORM> - PHRASE46>
4249                     <EQUAL? OP5 '`CHTYPE - PHRASE46>
4250                     <SET TEMP30 ONE22>
4251                     <SET RINST21 1 (TYPE FIX)>
4252                     <LOOP (TEMP30 VALUE) (RINST21 VALUE)>
4253 TAG41
4254                     <EMPL? TEMP30 + PHRASE46>
4255                     <SUB RINST21 1 = RINST21 (TYPE FIX)>
4256                     <LESS? RINST21 0 + TAG42>
4257                     <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
4258                     <JUMP + TAG41>
4259 TAG42
4260                     <NTHL ONE22 1 = RINST21>
4261                     <EQUAL? RINST21 '`TYPE - PHRASE46>
4262                     <DEAD RINST21>
4263                     <RESTL ONE22 1 = RINST21 (TYPE LIST)>
4264                     <NTHL RINST21 1 = RINST21>
4265                     <TYPE? RINST21 <TYPE-CODE DEAD-VAR> - PHRASE46>
4266                     <DEAD RINST21>
4267                     <RESTL ONE22 1 = RINST21 (TYPE LIST)>
4268                     <NTHL RINST21 1 = RINST21 (TYPE DEAD-VAR)>
4269                     <CHTYPE RINST21 <TYPE-CODE ATOM> = RINST21>
4270                     <RESTL ONE22 1 = TEMP30 (TYPE LIST)>
4271                     <PUTL TEMP30 1 RINST21>
4272                     <DEAD TEMP30 RINST21>
4273                     <RESTL ONE22 1 = RINST21 (TYPE LIST)>
4274                     <DEAD ONE22>
4275                     <NTHL RINST21 1 = RINST21 (TYPE ATOM)>
4276                     <CONS RINST21 () = RINST21 (TYPE LIST)>
4277                     <EMPL? TEMP18 - TAG44>
4278                     <SET TEMP18 RINST21 (TYPE LIST)>
4279                     <JUMP + TAG45>
4280 TAG44
4281                     <PUTREST TEMP16 RINST21>
4282                     <DEAD TEMP16>
4283 TAG45
4284                     <SET TEMP16 RINST21 (TYPE LIST)>
4285                     <DEAD RINST21>
4286 PHRASE46
4287                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
4288                     <JUMP + MAP10>
4289 MAPAP13
4290                     <RETURN TEMP18>
4291                     <DEAD TEMP18>
4292 PHRASE8
4293                     <RETURN ()>
4294                     <END \1aFIND-DEADS>
4295 #WORD *12141203264*
4296 <GFCN \1aUV-TO-L ("VALUE" LIST UVECTOR) UV4>
4297                     <TEMP (L5:LIST ()) (TEMP-OFFS6:FIX 0) TEMP13:UVECTOR WD18:FIX TNO25:FIX MSK26:FIX TEMP30>
4298                     <INTGO>
4299                     <SET TEMP13 UV4 (TYPE UVECTOR)>
4300                     <DEAD UV4>
4301                     <LOOP>
4302 MAP8
4303                     <INTGO>
4304                     <EMPUU? TEMP13 + MAPAP11>
4305                     <NTHUU TEMP13 1 = WD18>
4306                     <VEQUAL? WD18 0 + EXIT23 (TYPE FIX)>
4307                     <ADD TEMP-OFFS6 1 = TNO25 (TYPE FIX)>
4308                     <SET MSK26 1 (TYPE FIX)>
4309                     <LOOP>
4310 AGAIN27
4311                     <INTGO>
4312                     <AND MSK26 WD18 = TEMP30>
4313                     <VEQUAL? TEMP30 0 + PHRASE35 (TYPE FIX)>
4314                     <DEAD TEMP30>
4315                     <GVAL 'NAME-UV = TEMP30>
4316                     <NTHUV TEMP30 TNO25 = TEMP30 (TYPE ATOM)>
4317                     <CONS TEMP30 L5 = L5>
4318                     <DEAD TEMP30>
4319                     <XOR WD18 MSK26 = WD18>
4320                     <VEQUAL? WD18 0 + EXIT23 (TYPE FIX)>
4321 PHRASE35
4322                     <ADD TNO25 1 = TNO25 (TYPE FIX)>
4323                     <LSH MSK26 1 = MSK26 (TYPE FIX)>
4324                     <JUMP + AGAIN27>
4325 EXIT23
4326                     <ADD TEMP-OFFS6 32 = TEMP-OFFS6 (TYPE FIX)>
4327                     <RESTUU TEMP13 1 = TEMP13 (TYPE UVECTOR)>
4328                     <JUMP + MAP8>
4329 MAPAP11
4330                     <RETURN L5>
4331                     <DEAD L5>
4332                     <END \1aUV-TO-L>\r\r
4333 <ENDPACKAGE>