mim/development/mim/20c/peep.mima

   1
   2 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
   3
   4 <SETG DONT-HACK T>
   5
   6 <SETG PEEP-CHANNEL <>>
   7
   8 <NEWTYPE OLD-AND-USELESS VECTOR>
   9
  10 <NEWTYPE LOCAL-NAME FIX>
  11
  12 <NEWTYPE CONSTANT FIX>
  13
  14 <NEWTYPE CONSTANT-LABEL FIX>
  15
  16 <NEWTYPE REF VECTOR>
  17
  18 <NEWTYPE INST VECTOR>
  19
  20 <NEWTYPE GFRM ATOM>
  21
  22 <NEWTYPE SGFRM ATOM>
  23
  24 #WORD *26557627165*
  25 <GFCN \1aREF-PRINT ("VALUE" ANY REF) R4>
  26                     <TEMP TEMP6>
  27                     <INTGO>
  28                     <FRAME '\1aPRIN1>
  29                     <NTHUV R4 1 = STACK>
  30                     <DEAD R4>
  31                     <GEN-LVAL 'OUTCHAN = STACK>
  32                     <CALL '\1aPRIN1 2 = TEMP6>
  33                     <RETURN TEMP6>
  34                     <DEAD TEMP6>
  35                     <END \1aREF-PRINT>
  36 #WORD *12013031124*
  37                     <GFCN \1aPPOLE ("VALUE" LIST LIST "TUPLE" <PRIMTYPE VECTOR>) CODE-L4>
  38                     <MAKTUP T5:TUPLE (PREPREV6 %<>) TEMP3:LBIND TEMP17:VECTOR TEMP19 TEMP22 ITM23 TEMP48 TEMP53 TEMP54 = T5>
  39                     <INTGO>
  40                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
  41                     <BBIND 'PREVIOUS <OR FALSE REF INST OLD-AND-USELESS> 'FIX %<>>
  42                     <FRAME '\1aPRINTTYPE>
  43                     <PUSH 'REF>
  44                     <GVAL 'REF-PRINT = STACK>
  45                     <CALL '\1aPRINTTYPE 2>
  46                     <FRAME '\1aGENERATE-CIRCULAR-REFERENCES>
  47                     <PUSH T5>
  48                     <CALL '\1aGENERATE-CIRCULAR-REFERENCES 1>
  49                     <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP17>
  50                     <LOOP>
  51 MAP12
  52                     <INTGO>
  53                     <EMPUV? TEMP17 + MAPAP15>
  54                     <GETS 'BIND = TEMP19 (TYPE LBIND)>
  55                     <SET TEMP22 TEMP17>
  56                     <BBIND 'NEW-T <PRIMTYPE VECTOR> 'FIX TEMP22>
  57                     <DEAD TEMP22>
  58                     <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
  59                     <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
  60                     <NTHUV TEMP22 1 = ITM23>
  61                     <DEAD TEMP22>
  62                     <TYPE? ITM23 <TYPE-CODE OLD-AND-USELESS> + PHRASE158>
  63                     <TYPE? ITM23 <TYPE-CODE REF> - PHRASE33>
  64                     <FRAME '\1aDELETE-ADJACENT-REFS>
  65                     <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
  66                     <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
  67                     <DEAD TEMP22>
  68                     <CALL '\1aDELETE-ADJACENT-REFS 1>
  69                     <FRAME '\1aUNCONDITIONAL-BRANCH?>
  70                     <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
  71                     <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
  72                     <NTHUV TEMP22 2 = STACK>
  73                     <DEAD TEMP22>
  74                     <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP22>
  75                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE38>
  76                     <DEAD TEMP22>
  77                     <FRAME '\1aBRANCH-CHAIN>
  78                     <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
  79                     <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
  80                     <DEAD TEMP22>
  81                     <CALL '\1aBRANCH-CHAIN 1>
  82 PHRASE38
  83                     <NTHR 'LOOPTAGS 1 = TEMP48 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG47)>
  84                     <TYPE? TEMP48 <TYPE-CODE FALSE> + TAG47>
  85                     <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE GBIND)>
  86                     <TYPE? TEMP48 <TYPE-CODE UNBOUND> - TAG46>
  87                     <DEAD TEMP48>
  88 TAG47
  89                     <SET TEMP22 %<> (TYPE FALSE)>
  90                     <JUMP + TAG50>
  91 TAG46
  92                     <NTHUV ITM23 1 = TEMP48>
  93                     <GVAL 'LOOPTAGS = TEMP22>
  94                     <TYPE TEMP48 = TEMP53>
  95                     <EMPTY? TEMP22 + TAG49>
  96                     <LOOP (TEMP48 VALUE) (TEMP53 VALUE) (TEMP22 LENGTH VALUE TYPE)>
  97 TAG51
  98                     <NTH1 TEMP22 = TEMP54>
  99                     <TYPE? TEMP54 TEMP53 - TAG52>
 100                     <VEQUAL? TEMP54 TEMP48 + TAG50>
 101                     <DEAD TEMP54>
 102 TAG52
 103                     <REST1 TEMP22 = TEMP22>
 104                     <EMPTY? TEMP22 - TAG51>
 105 TAG49
 106                     <SET TEMP22 %<> (TYPE FALSE)>
 107 TAG50
 108                     <SETG 'CIRC-LOOP? TEMP22>
 109                     <DEAD TEMP22>
 110                     <TYPE? PREPREV6 <TYPE-CODE FALSE> + PHRASE56>
 111                     <FRAME '\1aPOST-ACCESS>
 112                     <PUSH ITM23>
 113                     <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 114                     <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
 115                     <DEAD TEMP22>
 116                     <CALL '\1aPOST-ACCESS 2>
 117 PHRASE56
 118                     <NTHUV ITM23 3 = TEMP22>
 119                     <EMPTY? TEMP22 - PHRASE61>
 120                     <DEAD TEMP22>
 121                     <NTHUV ITM23 1 = TEMP22>
 122                     <GVAL 'LOCATIONS = TEMP53>
 123                     <TYPE TEMP22 = TEMP48>
 124                     <EMPTY? TEMP53 + TAG63>
 125                     <LOOP (TEMP22 VALUE) (TEMP48 VALUE) (TEMP53 LENGTH VALUE TYPE)>
 126 TAG64
 127                     <NTH1 TEMP53 = TEMP54>
 128                     <TYPE? TEMP54 TEMP48 - TAG65>
 129                     <VEQUAL? TEMP54 TEMP22 + PHRASE61>
 130                     <DEAD TEMP54>
 131 TAG65
 132                     <REST1 TEMP53 = TEMP53>
 133                     <EMPTY? TEMP53 - TAG64>
 134 TAG63
 135                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 136                     <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
 137                     <NTHUV TEMP53 1 = STACK>
 138                     <DEAD TEMP53>
 139                     <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP53>
 140                     <CHTYPE TEMP53 <TYPE-CODE OLD-AND-USELESS> = TEMP53>
 141                     <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
 142                     <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
 143                     <PUTUV TEMP48 1 TEMP53>
 144                     <DEAD TEMP48 TEMP53>
 145                     <JUMP + PHRASE158>
 146 PHRASE61
 147                     <GVAL 'DONT-HACK = TEMP48>
 148                     <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE158>
 149                     <DEAD TEMP48>
 150                     <NTHUV ITM23 2 = TEMP48>
 151                     <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE158>
 152                     <DEAD TEMP48>
 153                     <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
 154                     <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
 155                     <NTHUV TEMP48 1 = TEMP48>
 156                     <TYPE? TEMP48 <TYPE-CODE REF> - PHRASE158>
 157                     <DEAD TEMP48>
 158                     <FRAME '\1aLENGTH>
 159                     <NTHUV ITM23 3 = STACK>
 160                     <DEAD ITM23>
 161                     <CALL '\1aLENGTH 1 = TEMP48>
 162                     <VEQUAL? TEMP48 1 - PHRASE158 (TYPE FIX)>
 163                     <DEAD TEMP48>
 164                     <FRAME '\1aSINGLE-PATH-OPTIMIZE>
 165                     <PUSH T5>
 166                     <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
 167                     <NTHR TEMP48 1 = STACK (RECORD-TYPE LBIND)>
 168                     <DEAD TEMP48>
 169                     <CALL '\1aSINGLE-PATH-OPTIMIZE 2>
 170                     <JUMP + PHRASE158>
 171 PHRASE33
 172                     <FRAME '\1aUNCONDITIONAL-BRANCH?>
 173                     <PUSH ITM23>
 174                     <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP48>
 175                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE81>
 176                     <DEAD TEMP48>
 177                     <FRAME '\1aSKIP-MODIFY>
 178                     <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
 179                     <NTHR TEMP48 1 = STACK (RECORD-TYPE LBIND)>
 180                     <DEAD TEMP48>
 181                     <NTHR 'PREVIOUS 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
 182                     <NTHR TEMP48 1 = STACK (RECORD-TYPE LBIND)>
 183                     <DEAD TEMP48>
 184                     <PUSH PREPREV6>
 185                     <CALL '\1aSKIP-MODIFY 3>
 186                     <JUMP + PHRASE158>
 187 PHRASE81
 188                     <FRAME '\1aCONDITIONAL-BRANCH?>
 189                     <PUSH ITM23>
 190                     <CALL '\1aCONDITIONAL-BRANCH? 1 = TEMP48>
 191                     <VEQUAL? TEMP48 0 + PHRASE88>
 192                     <DEAD TEMP48>
 193                     <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
 194                     <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
 195                     <RESTUV TEMP48 1 = TEMP48 (TYPE VECTOR)>
 196                     <CHTYPE TEMP48 <TYPE-CODE VECTOR> = TEMP48>
 197                     <EMPUV? TEMP48 + PHRASE158 (TYPE VECTOR)>
 198                     <DEAD TEMP48>
 199                     <FRAME '\1aUNCONDITIONAL-BRANCH?>
 200                     <NTHR 'NEW-T 2 = TEMP48 (RECORD-TYPE ATOM) (TYPE LBIND)>
 201                     <NTHR TEMP48 1 = TEMP48 (RECORD-TYPE LBIND)>
 202                     <NTHUV TEMP48 2 = STACK>
 203                     <DEAD TEMP48>
 204                     <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP48>
 205                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE158>
 206                     <DEAD TEMP48>
 207                     <LENUV ITM23 = TEMP48 (TYPE FIX)>
 208                     <NTHUV ITM23 TEMP48 = TEMP48>
 209                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 210                     <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
 211                     <NTHUV TEMP53 3 = TEMP53>
 212                     <EQUAL? TEMP48 TEMP53 - PHRASE158>
 213                     <DEAD TEMP48 TEMP53>
 214                     <FRAME '\1aGETPROP>
 215                     <NTHUV ITM23 1 = STACK>
 216                     <DEAD ITM23>
 217                     <PUSH 'OPPOSITE>
 218                     <CALL '\1aGETPROP 2 = TEMP22>
 219                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE158>
 220                     <FRAME '\1aNTH>
 221                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 222                     <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
 223                     <NTHUV TEMP53 2 = STACK>
 224                     <DEAD TEMP53>
 225                     <PUSH 2>
 226                     <CALL '\1aNTH 2 = ITM23>
 227                     <FRAME '\1aPUT>
 228                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 229                     <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
 230                     <NTHUV TEMP53 1 = STACK>
 231                     <DEAD TEMP53>
 232                     <PUSH 1>
 233                     <PUSH TEMP22>
 234                     <DEAD TEMP22>
 235                     <CALL '\1aPUT 3>
 236                     <FRAME '\1aPUT>
 237                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 238                     <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
 239                     <NTHUV TEMP53 1 = STACK>
 240                     <DEAD TEMP53>
 241                     <PUSH 3>
 242                     <PUSH ITM23>
 243                     <CALL '\1aPUT 3>
 244                     <FRAME '\1aPUT>
 245                     <PUSH ITM23>
 246                     <PUSH 3>
 247                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 248                     <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
 249                     <NTHUV TEMP53 1 = STACK>
 250                     <DEAD TEMP53>
 251                     <SET TEMP48 1 (TYPE FIX)>
 252                     <SFRAME 'NTH>
 253                     <PUSH ITM23>
 254                     <DEAD ITM23>
 255                     <PUSH 3>
 256                     <SCALL '\1aNTH 2 = TEMP53 + TAG111 TEMP48>
 257                     <TYPE TEMP53 = TEMP22>
 258                     <AND TEMP22 7 = TEMP22>
 259                     <VEQUAL? TEMP22 1 + TAG115>
 260                     <DEAD TEMP22>
 261                     <LOOP (TEMP53 TYPE VALUE LENGTH) (TEMP48 VALUE)>
 262 TAG120
 263                     <INTGO>
 264                     <EMPTY? TEMP53 + TAG119>
 265                     <NTH1 TEMP53 = STACK>
 266                     <REST1 TEMP53 = TEMP53>
 267                     <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
 268                     <JUMP + TAG120>
 269 TAG119
 270                     <LIST TEMP48 = STACK (TYPE LIST)>
 271                     <DEAD TEMP48>
 272                     <JUMP + TAG116>
 273 TAG111
 274                     <SET TEMP53 0>
 275 TAG115
 276                     <LOOP>
 277 TAG118
 278                     <VEQUAL? TEMP48 0 + TAG117>
 279                     <POP = TEMP22>
 280                     <CONS TEMP22 TEMP53 = TEMP53 (TYPE LIST)>
 281                     <DEAD TEMP22>
 282                     <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
 283                     <JUMP + TAG118>
 284 TAG117
 285                     <PUSH TEMP53>
 286                     <DEAD TEMP53>
 287 TAG116
 288                     <CALL '\1aPUT 3>
 289                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 290                     <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
 291                     <FRAME '\1aELIMINATE>
 292                     <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 293                     <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
 294                     <NTHUV TEMP22 2 = STACK>
 295                     <DEAD TEMP22>
 296                     <CALL '\1aELIMINATE 1 = TEMP22>
 297                     <PUTUV TEMP53 2 TEMP22>
 298                     <DEAD TEMP53 TEMP22>
 299                     <JUMP + PHRASE158>
 300 PHRASE88
 301                     <GVAL 'DONT-HACK = TEMP53>
 302                     <TYPE? TEMP53 <TYPE-CODE FALSE> - PHRASE126>
 303                     <DEAD TEMP53>
 304                     <GVAL 'CIRC-LOOP? = TEMP53>
 305                     <TYPE? TEMP53 <TYPE-CODE FALSE> - PHRASE126>
 306                     <DEAD TEMP53>
 307                     <FRAME '\1aMOVE?>
 308                     <PUSH ITM23>
 309                     <CALL '\1aMOVE? 1 = TEMP53>
 310                     <TYPE? TEMP53 <TYPE-CODE FALSE> + PHRASE126>
 311                     <DEAD TEMP53>
 312                     <FRAME '\1aMOVE-CHECK>
 313                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 314                     <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
 315                     <DEAD TEMP53>
 316                     <PUSH ITM23>
 317                     <CALL '\1aMOVE-CHECK 2>
 318                     <FRAME '\1aMOVE-NEEDED?>
 319                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 320                     <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
 321                     <DEAD TEMP53>
 322                     <PUSH ITM23>
 323                     <DEAD ITM23>
 324                     <CALL '\1aMOVE-NEEDED? 2>
 325                     <JUMP + PHRASE158>
 326 PHRASE126
 327                     <NTHUV ITM23 1 = TEMP53>
 328                     <EQUAL? TEMP53 'PUSH - PHRASE135>
 329                     <DEAD TEMP53>
 330                     <NTHUV ITM23 2 = TEMP53>
 331                     <TYPE? TEMP53 <TYPE-CODE ATOM> - PHRASE135>
 332                     <DEAD TEMP53>
 333                     <FRAME '\1aFINDZERO>
 334                     <CALL '\1aFINDZERO 0 = TEMP22>
 335                     <VEQUAL? TEMP22 0 + PHRASE135>
 336                     <FRAME '\1aPUSH-OPTIMIZE>
 337                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 338                     <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
 339                     <DEAD TEMP53>
 340                     <PUSH TEMP22>
 341                     <DEAD TEMP22>
 342                     <NTHUV ITM23 2 = STACK (TYPE ATOM)>
 343                     <DEAD ITM23>
 344                     <CALL '\1aPUSH-OPTIMIZE 3>
 345                     <JUMP + PHRASE158>
 346 PHRASE135
 347                     <NTHUV ITM23 1 = TEMP53>
 348                     <EQUAL? TEMP53 'ADDI + BOOL143>
 349                     <DEAD TEMP53>
 350                     <NTHUV ITM23 1 = TEMP53>
 351                     <EQUAL? TEMP53 'SUBI - PHRASE158>
 352                     <DEAD TEMP53>
 353 BOOL143
 354                     <NTHUV ITM23 3 = TEMP53>
 355                     <EQUAL? TEMP53 1 - PHRASE158>
 356                     <DEAD TEMP53>
 357                     <LENUV ITM23 = TEMP53 (TYPE FIX)>
 358                     <VEQUAL? TEMP53 3 - PHRASE158 (TYPE FIX)>
 359                     <DEAD TEMP53>
 360                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 361                     <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
 362                     <RESTUV TEMP53 1 = TEMP53 (TYPE VECTOR)>
 363                     <CHTYPE TEMP53 <TYPE-CODE VECTOR> = TEMP53>
 364                     <EMPUV? TEMP53 + PHRASE158 (TYPE VECTOR)>
 365                     <DEAD TEMP53>
 366                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 367                     <NTHR TEMP53 1 = TEMP53 (RECORD-TYPE LBIND)>
 368                     <NTHUV TEMP53 2 = TEMP48>
 369                     <DEAD TEMP53>
 370                     <TYPE? TEMP48 <TYPE-CODE INST> - PHRASE158>
 371                     <NTHUV TEMP48 1 = TEMP53>
 372                     <EQUAL? TEMP53 'JRST - PHRASE149>
 373                     <DEAD TEMP53>
 374                     <FRAME '\1aNEW-INST>
 375                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 376                     <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
 377                     <DEAD TEMP53>
 378                     <NTHUV ITM23 1 = TEMP53>
 379                     <EQUAL? TEMP53 'ADDI - PHRASE154>
 380                     <DEAD TEMP53>
 381                     <SET TEMP53 'AOJA (TYPE ATOM)>
 382                     <JUMP + PHRASE155>
 383 PHRASE154
 384                     <SET TEMP53 'SOJA (TYPE ATOM)>
 385 PHRASE155
 386                     <PUSH TEMP53>
 387                     <DEAD TEMP53>
 388                     <PUSH ITM23>
 389                     <PUSH TEMP48>
 390                     <DEAD TEMP48>
 391                     <PUSH 2>
 392                     <CALL '\1aNEW-INST 5>
 393                     <CHTYPE ITM23 <TYPE-CODE OLD-AND-USELESS> = TEMP53>
 394                     <DEAD ITM23>
 395                     <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 396                     <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
 397                     <PUTUV TEMP22 1 TEMP53>
 398                     <DEAD TEMP22 TEMP53>
 399                     <JUMP + PHRASE158>
 400 PHRASE149
 401                     <NTHUV TEMP48 1 = TEMP22>
 402                     <SET TEMP54 [JUMPL JUMPGE JUMPLE JUMPG JUMPE JUMPN] (TYPE VECTOR)>
 403                     <TYPE? TEMP22 <TYPE-CODE ATOM> - PHRASE158>
 404                     <LOOP (TEMP22 VALUE) (TEMP54 LENGTH VALUE)>
 405 TAG162
 406                     <NTHUV TEMP54 1 = TEMP53>
 407                     <VEQUAL? TEMP53 TEMP22 + TAG161>
 408                     <DEAD TEMP53>
 409                     <RESTUV TEMP54 1 = TEMP54 (TYPE VECTOR)>
 410                     <EMPUV? TEMP54 - TAG162>
 411                     <JUMP + PHRASE158>
 412 TAG161
 413                     <NTHUV TEMP48 2 = TEMP22>
 414                     <NTHUV ITM23 2 = TEMP53>
 415                     <EQUAL? TEMP22 TEMP53 - PHRASE158>
 416                     <DEAD TEMP22 TEMP53>
 417                     <FRAME '\1aNEW-INST>
 418                     <NTHR 'NEW-T 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 419                     <NTHR TEMP53 1 = STACK (RECORD-TYPE LBIND)>
 420                     <DEAD TEMP53>
 421                     <NTHUV ITM23 1 = TEMP53>
 422                     <EQUAL? TEMP53 'ADDI - PHRASE168>
 423                     <DEAD TEMP53>
 424                     <LENUV TEMP54 = TEMP53 (TYPE FIX)>
 425                     <DEAD TEMP54>
 426                     <NTHUV [AOJN AOJE AOJG AOJLE AOJGE AOJL] TEMP53 = TEMP53 (TYPE ATOM)>
 427                     <JUMP + PHRASE169>
 428 PHRASE168
 429                     <LENUV TEMP54 = TEMP22 (TYPE FIX)>
 430                     <DEAD TEMP54>
 431                     <NTHUV [SOJN SOJE SOJG SOJLE SOJGE SOJL] TEMP22 = TEMP53 (TYPE ATOM)>
 432                     <DEAD TEMP22>
 433 PHRASE169
 434                     <PUSH TEMP53>
 435                     <DEAD TEMP53>
 436                     <PUSH ITM23>
 437                     <PUSH TEMP48>
 438                     <DEAD TEMP48>
 439                     <PUSH 3>
 440                     <CALL '\1aNEW-INST 5>
 441                     <CHTYPE ITM23 <TYPE-CODE OLD-AND-USELESS> = TEMP53>
 442                     <DEAD ITM23>
 443                     <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 444                     <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
 445                     <PUTUV TEMP22 1 TEMP53>
 446                     <DEAD TEMP22 TEMP53>
 447 PHRASE158
 448                     <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 449                     <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
 450                     <NTHUV TEMP22 1 = TEMP22>
 451                     <TYPE? TEMP22 <TYPE-CODE OLD-AND-USELESS> + PHRASE173>
 452                     <DEAD TEMP22>
 453                     <NTHR 'PREVIOUS 2 = PREPREV6 (RECORD-TYPE ATOM) (TYPE LBIND)>
 454                     <NTHR PREPREV6 1 = PREPREV6 (RECORD-TYPE LBIND)>
 455                     <NTHR 'NEW-T 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
 456                     <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
 457                     <NTHUV TEMP22 1 = TEMP22>
 458                     <NTHR 'PREVIOUS 2 = TEMP53 (RECORD-TYPE ATOM) (TYPE LBIND)>
 459                     <PUTR TEMP53 1 TEMP22 (RECORD-TYPE LBIND)>
 460                     <DEAD TEMP53 TEMP22>
 461 PHRASE173
 462                     <UNBIND TEMP19>
 463                     <DEAD TEMP19>
 464                     <ADJ -9>
 465                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
 466                     <JUMP + MAP12>
 467 MAPAP15
 468                     <FRAME '\1aUNLABEL-THIS-TUPLE>
 469                     <PUSH CODE-L4>
 470                     <PUSH T5>
 471                     <DEAD T5>
 472                     <CALL '\1aUNLABEL-THIS-TUPLE 2>
 473                     <FRAME '\1aPRINTTYPE>
 474                     <PUSH 'REF>
 475                     <GVAL 'PRINT = STACK>
 476                     <CALL '\1aPRINTTYPE 2>
 477                     <UNBIND TEMP3>
 478                     <DEAD TEMP3>
 479                     <ADJ -9>
 480                     <RETURN CODE-L4>
 481                     <DEAD CODE-L4>
 482                     <END \1aPPOLE>
 483
 484 #WORD *34757315760*
 485 <GFCN \1aNEW-INST ("VALUE" <INST ATOM> <PRIMTYPE VECTOR> ATOM INST INST FIX) NEW-T4 NEW-OP5 CINST6 NXTINST7 BASE8>
 486                     <TEMP TEMP13 TEMP14 NEW9:VECTOR TEMP15>
 487                     <INTGO>
 488                     <LENUV NXTINST7 = TEMP13 (TYPE FIX)>
 489                     <LESS? BASE8 TEMP13 - PHRASE12 (TYPE FIX)>
 490                     <DEAD TEMP13>
 491                     <LENUV CINST6 = TEMP13 (TYPE FIX)>
 492                     <LENUV NXTINST7 = TEMP14 (TYPE FIX)>
 493                     <SUB TEMP14 BASE8 = TEMP14 (TYPE FIX)>
 494                     <ADD TEMP13 TEMP14 = TEMP13 (TYPE FIX)>
 495                     <DEAD TEMP14>
 496                     <UUBLOCK <TYPE-CODE VECTOR> TEMP13 = NEW9 (TYPE VECTOR)>
 497                     <DEAD TEMP13>
 498                     <LENUV CINST6 = TEMP13 (TYPE FIX)>
 499                     <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
 500                     <MOVE-WORDS CINST6 NEW9 TEMP13 (TYPE VECTOR) (DIRECTION %<>)>
 501                     <DEAD TEMP13>
 502                     <SUB BASE8 1 = TEMP13 (TYPE FIX)>
 503                     <RESTUV NXTINST7 TEMP13 = TEMP14>
 504                     <DEAD TEMP13>
 505                     <LENUV NXTINST7 = TEMP13 (TYPE FIX)>
 506                     <SUB BASE8 1 = TEMP15 (TYPE FIX)>
 507                     <DEAD BASE8>
 508                     <SUB TEMP13 TEMP15 = TEMP13 (TYPE FIX)>
 509                     <DEAD TEMP15>
 510                     <LENUV CINST6 = TEMP15 (TYPE FIX)>
 511                     <DEAD CINST6>
 512                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
 513                     <RESTUV NEW9 TEMP15 = TEMP15 (TYPE VECTOR)>
 514                     <MOVE-WORDS TEMP14 TEMP15 TEMP13 (TYPE VECTOR) (DIRECTION %<>)>
 515                     <DEAD TEMP14 TEMP15 TEMP13>
 516                     <CHTYPE NEW9 <TYPE-CODE INST> = CINST6>
 517                     <DEAD NEW9>
 518                     <PUTUV NEW-T4 2 CINST6>
 519                     <DEAD NEW-T4>
 520                     <JUMP + PHRASE16>
 521 PHRASE12
 522                     <NTHUV NXTINST7 BASE8 = TEMP15>
 523                     <DEAD BASE8>
 524                     <PUTUV CINST6 3 TEMP15>
 525                     <DEAD TEMP15>
 526                     <PUTUV NEW-T4 2 CINST6>
 527                     <DEAD NEW-T4>
 528 PHRASE16
 529                     <LENUV CINST6 = TEMP13 (TYPE FIX)>
 530                     <NTHUV CINST6 TEMP13 = TEMP14>
 531                     <DEAD TEMP13>
 532                     <TYPE? TEMP14 <TYPE-CODE REF> - MAPAP24>
 533                     <LENUV TEMP14 = TEMP13 (TYPE FIX)>
 534                     <LESS? TEMP13 3 + MAPAP24 (TYPE FIX)>
 535                     <DEAD TEMP13>
 536                     <NTHUV TEMP14 3 = TEMP14>
 537                     <CHTYPE TEMP14 <TYPE-CODE LIST> = TEMP14>
 538                     <LOOP>
 539 MAP21
 540                     <INTGO>
 541                     <EMPL? TEMP14 + MAPAP24>
 542                     <SET TEMP13 TEMP14>
 543                     <NTHL TEMP13 1 = TEMP15>
 544                     <EQUAL? TEMP15 NXTINST7 - PHRASE32>
 545                     <DEAD TEMP15>
 546                     <PUTL TEMP13 1 CINST6>
 547                     <DEAD TEMP13>
 548 PHRASE32
 549                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
 550                     <JUMP + MAP21>
 551 MAPAP24
 552                     <PUTUV CINST6 1 NEW-OP5>
 553                     <DEAD NEW-OP5>
 554                     <RETURN CINST6>
 555                     <DEAD CINST6>
 556                     <END \1aNEW-INST>
 557 #WORD *31430135575*
 558 <GFCN \1aGENERATE-CIRCULAR-REFERENCES ("VALUE" <OR FALSE <INST <OR GFRM SBFRM SGFRM>> <VECTOR ANY>> <PRIMTYPE VECTOR>) TUP4>
 559                     <TEMP TAGS5 TEMP13 TEMP17 ITEM18 TEMP20 CODE35 TEMP50 TEMP51>
 560                     <INTGO>
 561                     <SET TAGS5 () (TYPE LIST)>
 562                     <SET TEMP13 () (TYPE LIST)>
 563                     <GVAL 'LABELS = TEMP17>
 564                     <LOOP>
 565 MAP7
 566                     <INTGO>
 567                     <EMPL? TEMP17 + MAPAP10>
 568                     <NTHL TEMP17 1 = ITEM18>
 569                     <NTHUV ITEM18 1 = TEMP20 (TYPE ATOM)>
 570                     <CONS TEMP20 () = TEMP20 (TYPE LIST)>
 571                     <EMPL? TAGS5 - TAG21>
 572                     <SET TAGS5 TEMP20 (TYPE LIST)>
 573                     <JUMP + TAG22>
 574 TAG21
 575                     <PUTREST TEMP13 TEMP20>
 576                     <DEAD TEMP13>
 577 TAG22
 578                     <SET TEMP13 TEMP20 (TYPE LIST)>
 579                     <DEAD TEMP20>
 580                     <NTHUV ITEM18 1 = STACK (TYPE ATOM)>
 581                     <DEAD ITEM18>
 582                     <PUSH 'T>
 583                     <PUSH ()>
 584                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP20>
 585                     <CHTYPE TEMP20 <TYPE-CODE REF> = TEMP20>
 586                     <CONS TEMP20 () = TEMP20 (TYPE LIST)>
 587                     <EMPL? TAGS5 - TAG24>
 588                     <SET TAGS5 TEMP20 (TYPE LIST)>
 589                     <JUMP + TAG25>
 590 TAG24
 591                     <PUTREST TEMP13 TEMP20>
 592                     <DEAD TEMP13>
 593 TAG25
 594                     <SET TEMP13 TEMP20 (TYPE LIST)>
 595                     <DEAD TEMP20>
 596                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
 597                     <JUMP + MAP7>
 598 MAPAP10
 599                     <SET TEMP13 %<> (TYPE FALSE)>
 600                     <CHTYPE TUP4 <TYPE-CODE VECTOR> = TEMP17>
 601                     <DEAD TUP4>
 602                     <LOOP>
 603 MAP27
 604                     <INTGO>
 605                     <EMPUV? TEMP17 + MAPAP30>
 606                     <SET CODE35 TEMP17>
 607                     <NTHUV CODE35 1 = TEMP13>
 608                     <TYPE? TEMP13 <TYPE-CODE INST> - PHRASE41>
 609                     <LENUV TEMP13 = ITEM18 (TYPE FIX)>
 610                     <NTHUV TEMP13 ITEM18 = ITEM18>
 611                     <TYPE? ITEM18 <TYPE-CODE REF> - BOOL44>
 612                     <NTHUV ITEM18 1 = ITEM18>
 613                     <SET TEMP20 TAGS5>
 614                     <TYPE ITEM18 = TEMP50>
 615                     <EMPL? TEMP20 + TAG46>
 616                     <LOOP (ITEM18 VALUE) (TEMP50 VALUE) (TEMP20 VALUE)>
 617 TAG48
 618                     <NTHL TEMP20 1 = TEMP51>
 619                     <TYPE? TEMP51 TEMP50 - TAG49>
 620                     <VEQUAL? TEMP51 ITEM18 + TAG47>
 621                     <DEAD TEMP51>
 622 TAG49
 623                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
 624                     <EMPL? TEMP20 - TAG48>
 625 TAG46
 626                     <SET TEMP20 %<> (TYPE FALSE)>
 627 TAG47
 628                     <VEQUAL? TEMP20 0 - BOOL43>
 629 BOOL44
 630                     <NTHUV TEMP13 1 = TEMP50>
 631                     <EQUAL? TEMP50 'DISPATCH - BOOL52>
 632                     <DEAD TEMP50>
 633                     <NTHUV TEMP13 2 = TEMP50>
 634                     <SET ITEM18 TAGS5>
 635                     <TYPE TEMP50 = TEMP51>
 636                     <EMPL? ITEM18 + TAG53>
 637                     <LOOP (TEMP50 VALUE) (TEMP51 VALUE) (ITEM18 VALUE)>
 638 TAG55
 639                     <NTHL ITEM18 1 = TEMP20>
 640                     <TYPE? TEMP20 TEMP51 - TAG56>
 641                     <VEQUAL? TEMP20 TEMP50 + TAG54>
 642                     <DEAD TEMP20>
 643 TAG56
 644                     <RESTL ITEM18 1 = ITEM18 (TYPE LIST)>
 645                     <EMPL? ITEM18 - TAG55>
 646 TAG53
 647                     <SET TEMP20 %<> (TYPE FALSE)>
 648                     <JUMP + TAG58>
 649 TAG54
 650                     <SET TEMP20 ITEM18>
 651                     <DEAD ITEM18>
 652 TAG58
 653                     <VEQUAL? TEMP20 0 - BOOL43>
 654 BOOL52
 655                     <NTHUV TEMP13 1 = ITEM18>
 656                     <TYPE? ITEM18 <TYPE-CODE GFRM> + TAG60>
 657                     <TYPE? ITEM18 <TYPE-CODE SGFRM> + TAG60>
 658                     <TYPE? ITEM18 <TYPE-CODE SBFRM> - PHRASE41>
 659                     <DEAD ITEM18>
 660 TAG60
 661                     <NTHUV TEMP13 1 = ITEM18>
 662                     <CHTYPE ITEM18 <TYPE-CODE ATOM> = ITEM18>
 663                     <SET TEMP51 TAGS5>
 664                     <EMPL? TEMP51 + TAG61>
 665                     <LOOP (ITEM18 VALUE) (TEMP51 VALUE)>
 666 TAG63
 667                     <NTHL TEMP51 1 = TEMP50>
 668                     <TYPE? TEMP50 <TYPE-CODE ATOM> - TAG64>
 669                     <VEQUAL? TEMP50 ITEM18 + TAG62>
 670                     <DEAD TEMP50>
 671 TAG64
 672                     <RESTL TEMP51 1 = TEMP51 (TYPE LIST)>
 673                     <EMPL? TEMP51 - TAG63>
 674 TAG61
 675                     <SET TEMP20 %<> (TYPE FALSE)>
 676                     <JUMP + TAG65>
 677 TAG62
 678                     <SET TEMP20 TEMP51>
 679                     <DEAD TEMP51>
 680 TAG65
 681                     <VEQUAL? TEMP20 0 + PHRASE41>
 682 BOOL43
 683                     <RESTL TEMP20 1 = TEMP51 (TYPE LIST)>
 684                     <DEAD TEMP20>
 685                     <NTHL TEMP51 1 = CODE35 (TYPE REF)>
 686                     <DEAD TEMP51>
 687                     <PUSH TEMP13>
 688                     <SET ITEM18 1 (TYPE FIX)>
 689                     <NTHUV CODE35 3 = TEMP51>
 690                     <TYPE TEMP51 = TEMP20>
 691                     <AND TEMP20 7 = TEMP20>
 692                     <VEQUAL? TEMP20 1 + TAG67>
 693                     <DEAD TEMP20>
 694                     <LOOP (TEMP51 TYPE VALUE LENGTH) (ITEM18 VALUE)>
 695 TAG72
 696                     <INTGO>
 697                     <EMPTY? TEMP51 + TAG71>
 698                     <NTH1 TEMP51 = STACK>
 699                     <REST1 TEMP51 = TEMP51>
 700                     <ADD ITEM18 1 = ITEM18 (TYPE FIX)>
 701                     <JUMP + TAG72>
 702 TAG71
 703                     <LIST ITEM18 = TEMP50 (TYPE LIST)>
 704                     <DEAD ITEM18>
 705                     <JUMP + TAG68>
 706 TAG67
 707                     <LOOP>
 708 TAG70
 709                     <VEQUAL? ITEM18 0 + TAG69>
 710                     <POP = TEMP20>
 711                     <CONS TEMP20 TEMP51 = TEMP51 (TYPE LIST)>
 712                     <DEAD TEMP20>
 713                     <SUB ITEM18 1 = ITEM18 (TYPE FIX)>
 714                     <JUMP + TAG70>
 715 TAG69
 716                     <SET TEMP50 TEMP51>
 717                     <DEAD TEMP51>
 718 TAG68
 719                     <PUTUV CODE35 3 TEMP50>
 720                     <DEAD TEMP50>
 721                     <LENUV TEMP13 = TEMP51 (TYPE FIX)>
 722                     <PUTUV TEMP13 TEMP51 CODE35>
 723                     <DEAD TEMP51>
 724                     <NTHUV TEMP13 1 = TEMP51>
 725                     <TYPE? TEMP51 <TYPE-CODE GFRM> + TAG75>
 726                     <TYPE? TEMP51 <TYPE-CODE SGFRM> + TAG75>
 727                     <TYPE? TEMP51 <TYPE-CODE SBFRM> + TAG75>
 728                     <DEAD TEMP51>
 729                     <SET TEMP13 %<> (TYPE FALSE)>
 730                     <JUMP + PHRASE84>
 731 TAG75
 732                     <NTHUV CODE35 1 = TEMP51>
 733                     <DEAD CODE35>
 734                     <NTHUV TEMP13 1 = TEMP20>
 735                     <CHTYPE TEMP51 <TYPE TEMP20> = TEMP51>
 736                     <DEAD TEMP20>
 737                     <PUTUV TEMP13 1 TEMP51>
 738                     <DEAD TEMP51>
 739                     <JUMP + PHRASE84>
 740 PHRASE41
 741                     <TYPE? TEMP13 <TYPE-CODE ATOM> - PHRASE77>
 742                     <SET TEMP51 TAGS5>
 743                     <EMPL? TEMP51 + TAG79>
 744                     <LOOP (TEMP13 VALUE) (TEMP51 VALUE)>
 745 TAG81
 746                     <NTHL TEMP51 1 = TEMP20>
 747                     <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG82>
 748                     <VEQUAL? TEMP20 TEMP13 + TAG80>
 749                     <DEAD TEMP20>
 750 TAG82
 751                     <RESTL TEMP51 1 = TEMP51 (TYPE LIST)>
 752                     <EMPL? TEMP51 - TAG81>
 753 TAG79
 754                     <SET TEMP20 %<> (TYPE FALSE)>
 755                     <JUMP + TAG83>
 756 TAG80
 757                     <SET TEMP20 TEMP51>
 758                     <DEAD TEMP51>
 759 TAG83
 760                     <VEQUAL? TEMP20 0 + PHRASE77>
 761                     <RESTL TEMP20 1 = TEMP51 (TYPE LIST)>
 762                     <DEAD TEMP20>
 763                     <NTHL TEMP51 1 = TEMP51>
 764                     <PUTUV CODE35 1 TEMP51>
 765                     <DEAD TEMP51>
 766                     <SET TEMP13 CODE35>
 767                     <DEAD CODE35>
 768                     <JUMP + PHRASE84>
 769 PHRASE77
 770                     <TYPE? TEMP13 <TYPE-CODE ATOM> + TAG85>
 771                     <SET TEMP13 %<> (TYPE FALSE)>
 772                     <JUMP + PHRASE84>
 773 TAG85
 774                     <PUSH TEMP13>
 775                     <DEAD TEMP13>
 776                     <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP51>
 777                     <CHTYPE TEMP51 <TYPE-CODE OLD-AND-USELESS> = TEMP51>
 778                     <PUTUV CODE35 1 TEMP51>
 779                     <DEAD TEMP51>
 780                     <SET TEMP13 CODE35>
 781                     <DEAD CODE35>
 782 PHRASE84
 783                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
 784                     <JUMP + MAP27>
 785 MAPAP30
 786                     <RETURN TEMP13>
 787                     <DEAD TEMP13>
 788                     <END \1aGENERATE-CIRCULAR-REFERENCES>
 789 #WORD *6146220264*
 790 <GFCN \1aDELETE-ADJACENT-REFS ("VALUE" ATOM <PRIMTYPE VECTOR>) TUP4>
 791                     <TEMP ITM5 NXT6 TEMP25 INS26 TEMP29:FIX TEMP28 TEMP35>
 792                     <INTGO>
 793                     <NTHUV TUP4 1 = ITM5 (TYPE REF)>
 794                     <NTHUV TUP4 2 = NXT6>
 795                     <LOOP>
 796 AGAIN11
 797                     <INTGO>
 798                     <TYPE? NXT6 <TYPE-CODE REF> - PHRASE13>
 799                     <NTHUV NXT6 3 = TEMP25>
 800                     <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
 801                     <LOOP>
 802 MAP15
 803                     <INTGO>
 804                     <EMPL? TEMP25 + MAPAP18>
 805                     <NTHL TEMP25 1 = INS26>
 806                     <PUSH INS26>
 807                     <SET TEMP29 1 (TYPE FIX)>
 808                     <NTHUV ITM5 3 = TEMP28>
 809                     <TYPE TEMP28 = TEMP35>
 810                     <AND TEMP35 7 = TEMP35>
 811                     <VEQUAL? TEMP35 1 + TAG31>
 812                     <DEAD TEMP35>
 813                     <LOOP (TEMP28 TYPE VALUE LENGTH) (TEMP29 VALUE)>
 814 TAG37
 815                     <INTGO>
 816                     <EMPTY? TEMP28 + TAG36>
 817                     <NTH1 TEMP28 = STACK>
 818                     <REST1 TEMP28 = TEMP28>
 819                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
 820                     <JUMP + TAG37>
 821 TAG36
 822                     <LIST TEMP29 = TEMP28 (TYPE LIST)>
 823                     <DEAD TEMP29>
 824                     <JUMP + TAG32>
 825 TAG31
 826                     <LOOP>
 827 TAG34
 828                     <VEQUAL? TEMP29 0 + TAG33>
 829                     <POP = TEMP35>
 830                     <CONS TEMP35 TEMP28 = TEMP28 (TYPE LIST)>
 831                     <DEAD TEMP35>
 832                     <SUB TEMP29 1 = TEMP29 (TYPE FIX)>
 833                     <JUMP + TAG34>
 834 TAG33
 835 TAG32
 836                     <PUTUV ITM5 3 TEMP28>
 837                     <DEAD TEMP28>
 838                     <NTHUV INS26 1 = TEMP28>
 839                     <TYPE? TEMP28 <TYPE-CODE GFRM> + TAG40>
 840                     <TYPE? TEMP28 <TYPE-CODE SGFRM> + TAG40>
 841                     <TYPE? TEMP28 <TYPE-CODE SBFRM> - PHRASE39>
 842                     <DEAD TEMP28>
 843 TAG40
 844                     <NTHUV ITM5 1 = TEMP28>
 845                     <NTHUV INS26 1 = TEMP35>
 846                     <CHTYPE TEMP28 <TYPE TEMP35> = TEMP28>
 847                     <DEAD TEMP35>
 848                     <PUTUV INS26 1 TEMP28>
 849                     <DEAD TEMP28>
 850 PHRASE39
 851                     <LENUV INS26 = TEMP28 (TYPE FIX)>
 852                     <PUTUV INS26 TEMP28 ITM5>
 853                     <DEAD INS26 TEMP28>
 854                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
 855                     <JUMP + MAP15>
 856 MAPAP18
 857                     <PUTUV TUP4 2 ITM5>
 858                     <NTHUV NXT6 1 = STACK>
 859                     <DEAD NXT6>
 860                     <UBLOCK <TYPE-CODE VECTOR> 1 = NXT6>
 861                     <CHTYPE NXT6 <TYPE-CODE OLD-AND-USELESS> = NXT6>
 862                     <PUTUV TUP4 1 NXT6>
 863                     <DEAD NXT6>
 864                     <RESTUV TUP4 1 = TUP4 (TYPE VECTOR)>
 865                     <CHTYPE TUP4 <TYPE-CODE VECTOR> = TUP4>
 866                     <EMPUV? TUP4 - PHRASE43 (TYPE VECTOR)>
 867                     <RETURN 'T>
 868 PHRASE43
 869                     <NTHUV TUP4 2 = NXT6>
 870                     <JUMP + AGAIN11>
 871 PHRASE13
 872                     <RETURN 'T>
 873                     <END \1aDELETE-ADJACENT-REFS>
 874 #WORD *16054047543*
 875 <GFCN \1aPUSH-OPTIMIZE ("VALUE" <OR ATOM FALSE> <PRIMTYPE VECTOR> ANY ATOM) NEW-T4 ZERO5 AC6>
 876                     <TEMP (COUNT7:FIX 0) (AC28 'T*) TEMP17 TUP22 TEMP28>
 877                     <INTGO>
 878                     <VEQUAL? AC6 AC28 - PHRASE10>
 879                     <SET AC28 'B1* (TYPE ATOM)>
 880 PHRASE10
 881                     <CHTYPE NEW-T4 <TYPE-CODE VECTOR> = TEMP17>
 882                     <LOOP>
 883 MAP12
 884                     <INTGO>
 885                     <EMPUV? TEMP17 + MAPAP15>
 886                     <SET TUP22 TEMP17>
 887                     <NTHUV TUP22 1 = TUP22>
 888                     <NTHUV TUP22 1 = TEMP28>
 889                     <EQUAL? TEMP28 'PUSH - MAPAP15>
 890                     <DEAD TEMP28>
 891                     <NTHUV TUP22 2 = TEMP28>
 892                     <EQUAL? TEMP28 AC6 - MAPAP15>
 893                     <DEAD TEMP28>
 894                     <NTHUV TUP22 3 = TUP22>
 895                     <TYPE? TUP22 <TYPE-CODE REF> - MAPAP15>
 896                     <NTHUV TUP22 1 = TEMP28>
 897                     <DEAD TUP22>
 898                     <EQUAL? TEMP28 ZERO5 - MAPAP15>
 899                     <DEAD TEMP28>
 900                     <ADD COUNT7 1 = COUNT7 (TYPE FIX)>
 901                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
 902                     <JUMP + MAP12>
 903 MAPAP15
 904                     <LESS? COUNT7 5 - TAG32 (TYPE FIX)>
 905                     <RETURN %<>>
 906 TAG32
 907                     <PUSH 'XMOVEI>
 908                     <PUSH AC28>
 909                     <PUSH 2>
 910                     <CONS AC6 () = STACK>
 911                     <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP17>
 912                     <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
 913                     <PUTUV NEW-T4 1 TEMP17>
 914                     <DEAD TEMP17>
 915                     <PUSH 'ADJSP>
 916                     <PUSH AC6>
 917                     <PUSH COUNT7>
 918                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP17>
 919                     <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
 920                     <PUTUV NEW-T4 2 TEMP17>
 921                     <DEAD TEMP17>
 922                     <PUSH 'SETZM>
 923                     <PUSH -1>
 924                     <CONS AC28 () = STACK>
 925                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP17>
 926                     <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
 927                     <PUTUV NEW-T4 3 TEMP17>
 928                     <DEAD TEMP17>
 929                     <PUSH 'HRLI>
 930                     <PUSH AC28>
 931                     <PUSH -1>
 932                     <CONS AC28 () = STACK>
 933                     <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP17>
 934                     <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
 935                     <PUTUV NEW-T4 4 TEMP17>
 936                     <DEAD TEMP17>
 937                     <PUSH 'BLT>
 938                     <PUSH AC28>
 939                     <DEAD AC28>
 940                     <CONS AC6 () = STACK>
 941                     <DEAD AC6>
 942                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP17>
 943                     <CHTYPE TEMP17 <TYPE-CODE INST> = TEMP17>
 944                     <PUTUV NEW-T4 5 TEMP17>
 945                     <DEAD TEMP17>
 946                     <SUB COUNT7 4 = COUNT7 (TYPE FIX)>
 947                     <RESTUV NEW-T4 5 = AC28 (TYPE VECTOR)>
 948                     <DEAD NEW-T4>
 949                     <CHTYPE AC28 <TYPE-CODE VECTOR> = AC28>
 950                     <LOOP>
 951 AGAIN41
 952                     <INTGO>
 953                     <SUB COUNT7 1 = COUNT7 (TYPE FIX)>
 954                     <VEQUAL? COUNT7 0 - PHRASE43 (TYPE FIX)>
 955                     <RETURN 'T>
 956 PHRASE43
 957                     <FRAME '\1aELIMINATE>
 958                     <NTHUV AC28 1 = STACK>
 959                     <CALL '\1aELIMINATE 1 = TEMP17>
 960                     <PUTUV AC28 1 TEMP17>
 961                     <DEAD TEMP17>
 962                     <RESTUV AC28 1 = AC28 (TYPE VECTOR)>
 963                     <JUMP + AGAIN41>
 964                     <END \1aPUSH-OPTIMIZE>
 965 #WORD *4716644774*
 966 <GFCN \1aSKIP-MODIFY ("VALUE" <OR FALSE <<PRIMTYPE VECTOR> <OR INST OLD-AND-USELESS>>> <PRIMTYPE VECTOR> <OR OLD-AND-USELESS INST REF FALSE> ANY) NEW-T4 PREVIOUS5 PREPREV6>
 967                     <TEMP ITM7:INST TEMP14 NEXTLINE8 FOO10>
 968                     <INTGO>
 969                     <NTHUV NEW-T4 1 = ITM7 (TYPE INST)>
 970                     <RESTUV NEW-T4 1 = TEMP14 (TYPE VECTOR)>
 971                     <CHTYPE TEMP14 <TYPE-CODE VECTOR> = TEMP14>
 972                     <EMPUV? TEMP14 - TAG13 (TYPE VECTOR)>
 973                     <DEAD TEMP14>
 974                     <SET TEMP14 %<> (TYPE FALSE)>
 975                     <JUMP + BOOL11>
 976 TAG13
 977                     <NTHUV NEW-T4 2 = TEMP14>
 978 BOOL11
 979                     <SET NEXTLINE8 TEMP14>
 980                     <DEAD TEMP14>
 981                     <SET TEMP14 NEXTLINE8>
 982                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE33>
 983                     <SET TEMP14 PREVIOUS5>
 984                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE33>
 985                     <RESTUV NEW-T4 2 = TEMP14 (TYPE VECTOR)>
 986                     <CHTYPE TEMP14 <TYPE-CODE VECTOR> = TEMP14>
 987                     <EMPUV? TEMP14 - TAG18 (TYPE VECTOR)>
 988                     <DEAD TEMP14>
 989                     <RETURN %<>>
 990 TAG18
 991                     <LENUV ITM7 = TEMP14 (TYPE FIX)>
 992                     <NTHUV ITM7 TEMP14 = FOO10>
 993                     <DEAD TEMP14>
 994                     <NTHUV NEW-T4 3 = TEMP14>
 995                     <EQUAL? FOO10 TEMP14 + TAG20>
 996                     <DEAD TEMP14>
 997                     <EQUAL? FOO10 NEXTLINE8 + TAG20>
 998                     <DEAD FOO10>
 999                     <RETURN %<>>
1000 TAG20
1001                     <FRAME '\1aCONDITIONAL-SKIP?>
1002                     <PUSH PREVIOUS5>
1003                     <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP14>
1004                     <VEQUAL? TEMP14 0 + PHRASE22>
1005                     <DEAD TEMP14>
1006                     <FRAME '\1aUNCONDITIONAL-BRANCH?>
1007                     <PUSH NEXTLINE8>
1008                     <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP14>
1009                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
1010                     <DEAD TEMP14>
1011                     <TYPE? PREPREV6 <TYPE-CODE FALSE> + BOOL26>
1012                     <FRAME '\1aCONDITIONAL-SKIP?>
1013                     <PUSH PREPREV6>
1014                     <DEAD PREPREV6>
1015                     <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP14>
1016                     <VEQUAL? TEMP14 0 - PHRASE22>
1017                     <DEAD TEMP14>
1018 BOOL26
1019                     <FRAME '\1aGETPROP>
1020                     <NTHUV PREVIOUS5 1 = STACK>
1021                     <PUSH 'OPPOSITE>
1022                     <CALL '\1aGETPROP 2 = TEMP14>
1023                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
1024                     <PUTUV PREVIOUS5 1 TEMP14>
1025                     <DEAD PREVIOUS5 TEMP14>
1026                     <FRAME '\1aELIMINATE>
1027                     <NTHUV NEW-T4 1 = STACK>
1028                     <CALL '\1aELIMINATE 1 = TEMP14>
1029                     <PUTUV NEW-T4 1 TEMP14>
1030                     <DEAD TEMP14>
1031                     <RETURN NEW-T4>
1032                     <DEAD NEW-T4>
1033 PHRASE22
1034                     <TYPE? NEXTLINE8 <TYPE-CODE REF> + TAG31>
1035                     <TYPE? NEXTLINE8 <TYPE-CODE OLD-AND-USELESS> - PHRASE30>
1036                     <DEAD NEXTLINE8>
1037 TAG31
1038                     <FRAME '\1aELIMINATE>
1039                     <PUSH ITM7>
1040                     <DEAD ITM7>
1041                     <CALL '\1aELIMINATE 1 = TEMP14>
1042                     <PUTUV NEW-T4 1 TEMP14>
1043                     <DEAD TEMP14>
1044                     <RETURN NEW-T4>
1045                     <DEAD NEW-T4>
1046 PHRASE30
1047                     <PUSH 'CAIA>
1048                     <PUSH 'A1*>
1049                     <PUSH 'A1*>
1050                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP14>
1051                     <CHTYPE TEMP14 <TYPE-CODE INST> = TEMP14>
1052                     <PUTUV NEW-T4 1 TEMP14>
1053                     <DEAD TEMP14>
1054                     <SET TEMP14 NEW-T4>
1055                     <DEAD NEW-T4>
1056 PHRASE33
1057                     <RETURN TEMP14>
1058                     <DEAD TEMP14>
1059                     <END \1aSKIP-MODIFY>
1060 #WORD *24511720454*
1061 <GFCN \1aUNLABEL-THIS-TUPLE ("VALUE" LIST LIST <PRIMTYPE VECTOR>) L4 T5>
1062                     <TEMP TEMP8 STATEMENT20 TEMP25 RF6>
1063                     <INTGO>
1064                     <GVAL 'PEEP-CHANNEL = TEMP8>
1065                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
1066                     <DEAD TEMP8>
1067                     <FRAME '\1aCRLF>
1068                     <GVAL 'PEEP-CHANNEL = STACK>
1069                     <CALL '\1aCRLF 1>
1070 BOOL7
1071                     <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP8>
1072                     <DEAD T5>
1073                     <LOOP>
1074 MAP11
1075                     <INTGO>
1076                     <EMPUV? TEMP8 + MAPAP14>
1077                     <NTHUV TEMP8 1 = STATEMENT20>
1078                     <TYPE? STATEMENT20 <TYPE-CODE REF> - PHRASE22>
1079                     <GVAL 'PEEP-CHANNEL = TEMP25>
1080                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE24>
1081                     <DEAD TEMP25>
1082                     <FRAME '\1aPRINT>
1083                     <NTHUV STATEMENT20 1 = STACK>
1084                     <GVAL 'PEEP-CHANNEL = STACK>
1085                     <CALL '\1aPRINT 2>
1086 PHRASE24
1087                     <RESTL L4 1 = L4 (TYPE LIST)>
1088                     <NTHUV STATEMENT20 1 = TEMP25>
1089                     <DEAD STATEMENT20>
1090                     <PUTL L4 1 TEMP25>
1091                     <DEAD TEMP25>
1092                     <JUMP + PHRASE47>
1093 PHRASE22
1094                     <TYPE? STATEMENT20 <TYPE-CODE OLD-AND-USELESS> - PHRASE27>
1095                     <GVAL 'PEEP-CHANNEL = TEMP25>
1096                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE47>
1097                     <DEAD TEMP25>
1098                     <FRAME '\1aPRINT>
1099                     <PUSH STATEMENT20>
1100                     <DEAD STATEMENT20>
1101                     <GVAL 'PEEP-CHANNEL = STACK>
1102                     <CALL '\1aPRINT 2>
1103                     <JUMP + PHRASE47>
1104 PHRASE27
1105                     <NTHUV STATEMENT20 1 = TEMP25>
1106                     <EQUAL? TEMP25 'DISPATCH - PHRASE31>
1107                     <DEAD TEMP25>
1108                     <NTHUV STATEMENT20 2 = RF6>
1109                     <TYPE? RF6 <TYPE-CODE REF> - PHRASE31>
1110                     <NTHUV RF6 1 = TEMP25>
1111                     <DEAD RF6>
1112                     <PUTUV STATEMENT20 2 TEMP25>
1113                     <DEAD TEMP25>
1114                     <GVAL 'PEEP-CHANNEL = TEMP25>
1115                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE34>
1116                     <DEAD TEMP25>
1117                     <FRAME '\1aPRINT>
1118                     <PUSH STATEMENT20>
1119                     <GVAL 'PEEP-CHANNEL = STACK>
1120                     <CALL '\1aPRINT 2>
1121 PHRASE34
1122                     <RESTL L4 1 = L4 (TYPE LIST)>
1123                     <PUTL L4 1 STATEMENT20>
1124                     <DEAD STATEMENT20>
1125                     <JUMP + PHRASE47>
1126 PHRASE31
1127                     <LENUV STATEMENT20 = TEMP25 (TYPE FIX)>
1128                     <NTHUV STATEMENT20 TEMP25 = RF6>
1129                     <DEAD TEMP25>
1130                     <TYPE? RF6 <TYPE-CODE REF> - PHRASE36>
1131                     <NTHUV STATEMENT20 1 = TEMP25>
1132                     <TYPE? TEMP25 <TYPE-CODE SGFRM> + TAG40>
1133                     <TYPE? TEMP25 <TYPE-CODE GFRM> + TAG40>
1134                     <TYPE? TEMP25 <TYPE-CODE SBFRM> - PHRASE39>
1135                     <DEAD TEMP25>
1136 TAG40
1137                     <LENUV STATEMENT20 = TEMP25 (TYPE FIX)>
1138                     <PUTUV STATEMENT20 TEMP25 'T>
1139                     <DEAD TEMP25>
1140                     <JUMP + PHRASE41>
1141 PHRASE39
1142                     <LENUV STATEMENT20 = TEMP25 (TYPE FIX)>
1143                     <NTHUV RF6 1 = STACK>
1144                     <DEAD RF6>
1145                     <UBLOCK <TYPE-CODE VECTOR> 1 = RF6>
1146                     <CHTYPE RF6 <TYPE-CODE REF> = RF6>
1147                     <PUTUV STATEMENT20 TEMP25 RF6>
1148                     <DEAD TEMP25 RF6>
1149 PHRASE41
1150                     <GVAL 'PEEP-CHANNEL = RF6>
1151                     <TYPE? RF6 <TYPE-CODE FALSE> + PHRASE45>
1152                     <DEAD RF6>
1153                     <FRAME '\1aPRINT>
1154                     <PUSH STATEMENT20>
1155                     <GVAL 'PEEP-CHANNEL = STACK>
1156                     <CALL '\1aPRINT 2>
1157 PHRASE45
1158                     <RESTL L4 1 = L4 (TYPE LIST)>
1159                     <PUTL L4 1 STATEMENT20>
1160                     <DEAD STATEMENT20>
1161                     <JUMP + PHRASE47>
1162 PHRASE36
1163                     <GVAL 'PEEP-CHANNEL = RF6>
1164                     <TYPE? RF6 <TYPE-CODE FALSE> + PHRASE49>
1165                     <DEAD RF6>
1166                     <FRAME '\1aPRINT>
1167                     <PUSH STATEMENT20>
1168                     <GVAL 'PEEP-CHANNEL = STACK>
1169                     <CALL '\1aPRINT 2>
1170 PHRASE49
1171                     <RESTL L4 1 = L4 (TYPE LIST)>
1172                     <PUTL L4 1 STATEMENT20>
1173                     <DEAD STATEMENT20>
1174 PHRASE47
1175                     <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
1176                     <JUMP + MAP11>
1177 MAPAP14
1178                     <PUTREST L4 ()>
1179                     <RETURN L4>
1180                     <DEAD L4>
1181                     <END \1aUNLABEL-THIS-TUPLE>
1182 #WORD *27262016144*
1183 <GFCN \1aPOST-ACCESS ("VALUE" ANY <OR FALSE INST REF OLD-AND-USELESS> <PRIMTYPE VECTOR>) BACK04 TUP5>
1184                     <TEMP BACK16 TEMP8 BACK27>
1185                     <INTGO>
1186                     <BACKU TUP5 1 = TUP5>
1187                     <NTHUV TUP5 1 = BACK16>
1188                     <BACKU TUP5 1 = TEMP8>
1189                     <NTHUV TEMP8 1 = BACK27>
1190                     <DEAD TEMP8>
1191                     <TYPE? BACK04 <TYPE-CODE OLD-AND-USELESS> - PHRASE10>
1192                     <FRAME '\1aPOST-ACCESS>
1193                     <PUSH BACK04>
1194                     <DEAD BACK04>
1195                     <BACKU TUP5 1 = STACK>
1196                     <DEAD TUP5>
1197                     <CALL '\1aPOST-ACCESS 2 = TEMP8>
1198                     <RETURN TEMP8>
1199                     <DEAD TEMP8>
1200 PHRASE10
1201                     <FRAME '\1aUNCONDITIONAL-BRANCH?>
1202                     <PUSH BACK16>
1203                     <DEAD BACK16>
1204                     <CALL '\1aUNCONDITIONAL-BRANCH? 1 = BACK16>
1205                     <TYPE? BACK16 <TYPE-CODE FALSE> - TAG15>
1206                     <DEAD BACK16>
1207                     <RETURN 'T>
1208 TAG15
1209                     <FRAME '\1aCONDITIONAL-SKIP?>
1210                     <PUSH BACK27>
1211                     <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP8>
1212                     <VEQUAL? TEMP8 0 - PHRASE23>
1213                     <FRAME '\1aUNCONDITIONAL-SKIP?>
1214                     <PUSH BACK27>
1215                     <CALL '\1aUNCONDITIONAL-SKIP? 1 = TEMP8>
1216                     <VEQUAL? TEMP8 0 - PHRASE23>
1217                     <FRAME '\1aCONDITIONAL-BRANCH?>
1218                     <PUSH BACK27>
1219                     <CALL '\1aCONDITIONAL-BRANCH? 1 = BACK16>
1220                     <VEQUAL? BACK16 0 - BOOL19>
1221                     <DEAD BACK16>
1222                     <FRAME '\1aUNCONDITIONAL-BRANCH?>
1223                     <PUSH BACK27>
1224                     <CALL '\1aUNCONDITIONAL-BRANCH? 1 = BACK16>
1225                     <TYPE? BACK16 <TYPE-CODE FALSE> + TAG22>
1226                     <DEAD BACK16>
1227 BOOL19
1228                     <LENUV BACK27 = BACK16 (TYPE FIX)>
1229                     <NTHUV BACK27 BACK16 = BACK16>
1230                     <DEAD BACK27>
1231                     <EQUAL? BACK16 BACK04 - TAG22>
1232                     <DEAD BACK16>
1233                     <RETURN 'T>
1234 TAG22
1235                     <FRAME '\1aPUT>
1236                     <PUSH BACK04>
1237                     <DEAD BACK04>
1238                     <PUSH 2>
1239                     <PUSH %<>>
1240                     <CALL '\1aPUT 3 = TEMP8>
1241 PHRASE23
1242                     <RETURN TEMP8>
1243                     <DEAD TEMP8>
1244                     <END \1aPOST-ACCESS>\r\r
1245 #WORD *16736533507*
1246 <GFCN \1aCONDITIONAL-BRANCH? ("VALUE" <OR !<FALSE> <LIST ATOM [REST ATOM]>> <OR OLD-AND-USELESS INST REF>) ITEM4>
1247                     <TEMP TEMP9 TEMP10 TEMP11>
1248                     <INTGO>
1249                     <NTHUV ITEM4 1 = TEMP9>
1250                     <DEAD ITEM4>
1251                     <GVAL 'CJ-JUMP-LIST = TEMP10>
1252                     <TYPE? TEMP9 <TYPE-CODE ATOM> - TAG5>
1253                     <EMPL? TEMP10 + TAG5>
1254                     <LOOP (TEMP9 VALUE) (TEMP10 VALUE)>
1255 TAG7
1256                     <NTHL TEMP10 1 = TEMP11>
1257                     <VEQUAL? TEMP11 TEMP9 + TAG6>
1258                     <DEAD TEMP11>
1259                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
1260                     <EMPL? TEMP10 - TAG7>
1261 TAG5
1262                     <SET TEMP10 %<> (TYPE FALSE)>
1263 TAG6
1264                     <RETURN TEMP10>
1265                     <DEAD TEMP10>
1266                     <END \1aCONDITIONAL-BRANCH?>
1267 #WORD *16737173507*
1268 <GFCN \1aCONDITIONAL-SKIP? ("VALUE" <OR !<FALSE> <LIST ATOM [REST ATOM]>> <OR OLD-AND-USELESS INST REF>) ITEM4>
1269                     <TEMP TEMP9 TEMP10 TEMP11>
1270                     <INTGO>
1271                     <NTHUV ITEM4 1 = TEMP9>
1272                     <DEAD ITEM4>
1273                     <GVAL 'CS-JUMP-LIST = TEMP10>
1274                     <TYPE? TEMP9 <TYPE-CODE ATOM> - TAG5>
1275                     <EMPL? TEMP10 + TAG5>
1276                     <LOOP (TEMP9 VALUE) (TEMP10 VALUE)>
1277 TAG7
1278                     <NTHL TEMP10 1 = TEMP11>
1279                     <VEQUAL? TEMP11 TEMP9 + TAG6>
1280                     <DEAD TEMP11>
1281                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
1282                     <EMPL? TEMP10 - TAG7>
1283 TAG5
1284                     <SET TEMP10 %<> (TYPE FALSE)>
1285 TAG6
1286                     <RETURN TEMP10>
1287                     <DEAD TEMP10>
1288                     <END \1aCONDITIONAL-SKIP?>
1289 #WORD *33131715640*
1290 <GFCN \1aUNCONDITIONAL-BRANCH? ("VALUE" <OR ATOM FALSE> <OR OLD-AND-USELESS INST REF>) ITEM4>
1291                     <TEMP TEMP12 TEMP7 TEMP13>
1292                     <INTGO>
1293                     <NTHUV ITEM4 1 = TEMP12>
1294                     <GVAL 'UJ-JUMP-LIST = TEMP7>
1295                     <TYPE? TEMP12 <TYPE-CODE ATOM> - TAG8>
1296                     <EMPL? TEMP7 + TAG8>
1297                     <LOOP (TEMP12 VALUE) (TEMP7 VALUE)>
1298 TAG10
1299                     <NTHL TEMP7 1 = TEMP13>
1300                     <VEQUAL? TEMP13 TEMP12 + TAG9>
1301                     <DEAD TEMP13>
1302                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
1303                     <EMPL? TEMP7 - TAG10>
1304 TAG8
1305                     <RETURN %<>>
1306 TAG9
1307                     <LENUV ITEM4 = TEMP12 (TYPE FIX)>
1308                     <NTHUV ITEM4 TEMP12 = TEMP12>
1309                     <DEAD ITEM4>
1310                     <TYPE? TEMP12 <TYPE-CODE REF> + TAG14>
1311                     <RETURN %<>>
1312 TAG14
1313                     <NTHUV TEMP12 1 = TEMP12>
1314                     <EQUAL? TEMP12 'COMPERR + TAG16>
1315                     <DEAD TEMP12>
1316                     <RETURN 'T>
1317 TAG16
1318                     <RETURN %<>>
1319                     <END \1aUNCONDITIONAL-BRANCH?>
1320 #WORD *22113611562*
1321 <GFCN \1aUNCONDITIONAL-SKIP? ("VALUE" <OR ATOM !<FALSE>> <OR OLD-AND-USELESS INST REF>) ITEM4>
1322                     <TEMP TEMP6>
1323                     <INTGO>
1324                     <NTHUV ITEM4 1 = TEMP6>
1325                     <DEAD ITEM4>
1326                     <EQUAL? TEMP6 'CAIA - TAG5>
1327                     <DEAD TEMP6>
1328                     <RETURN 'T>
1329 TAG5
1330                     <RETURN %<>>
1331                     <END \1aUNCONDITIONAL-SKIP?>
1332 #WORD *31721626334*
1333 <GFCN \1aJUMP? ("VALUE" <OR ATOM FALSE <LIST ATOM [REST ATOM]>> <OR OLD-AND-USELESS INST REF>) INSTR4>
1334                     <TEMP TEMP6>
1335                     <INTGO>
1336                     <FRAME '\1aCONDITIONAL-BRANCH?>
1337                     <PUSH INSTR4>
1338                     <CALL '\1aCONDITIONAL-BRANCH? 1 = TEMP6>
1339                     <VEQUAL? TEMP6 0 - BOOL5>
1340                     <FRAME '\1aCONDITIONAL-SKIP?>
1341                     <PUSH INSTR4>
1342                     <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP6>
1343                     <VEQUAL? TEMP6 0 - BOOL5>
1344                     <FRAME '\1aUNCONDITIONAL-BRANCH?>
1345                     <PUSH INSTR4>
1346                     <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP6>
1347                     <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
1348                     <FRAME '\1aUNCONDITIONAL-SKIP?>
1349                     <PUSH INSTR4>
1350                     <DEAD INSTR4>
1351                     <CALL '\1aUNCONDITIONAL-SKIP? 1 = TEMP6>
1352 BOOL5
1353                     <RETURN TEMP6>
1354                     <DEAD TEMP6>
1355                     <END \1aJUMP?>
1356 <GDECL (UJ-JUMP-LIST US-JUMP-LIST CJ-JUMP-LIST CS-JUMP-LIST) <LIST [REST ATOM]> (JUMP-LIST) !<LIST [4 <LIST [REST ATOM]>]>>
1357
1358 <SETG JUMP-LIST (<SETG UJ-JUMP-LIST '(JUMPA AOJA SOJA JRST PUSHJ JSP UJ)> <SETG US-JUMP-LIST '(CAIA SKIPA AOSA SOSA US)> <SETG CJ-JUMP-LIST '(JUMPL JUMPGE JUMPE JUMPN JUMPLE JUMPG SOJL SOJGE SOJE SOJN SOJLE SOJG CJ)> <SETG CS-JUMP-LIST '(CAIL CAIGE CAIE CAIN CAILE CAIG CAML CAMGE CAME CAMN CAMLE CAMG SOSL SOSGE SOSE SOSN SOSLE SOSG AOSL AOSGE AOSE AOSN AOSLE AOSG SKIPL SKIPGE SKIPE SKIPN SKIPLE SKIPG TRNE TRNN TLNN TLNE CS)>)>
1359
1360 #WORD *10070054361*
1361 <GFCN \1aMAKE-OPPOSITES ("VALUE" ANY ATOM ATOM) ITEM-14 ITEM-25>
1362                     <TEMP TEMP8>
1363                     <INTGO>
1364                     <FRAME '\1aPUTPROP>
1365                     <PUSH ITEM-14>
1366                     <PUSH 'OPPOSITE>
1367                     <PUSH ITEM-25>
1368                     <CALL '\1aPUTPROP 3>
1369                     <FRAME '\1aPUTPROP>
1370                     <PUSH ITEM-25>
1371                     <DEAD ITEM-25>
1372                     <PUSH 'OPPOSITE>
1373                     <PUSH ITEM-14>
1374                     <DEAD ITEM-14>
1375                     <CALL '\1aPUTPROP 3 = TEMP8>
1376                     <RETURN TEMP8>
1377                     <DEAD TEMP8>
1378                     <END \1aMAKE-OPPOSITES>
1379 #WORD *36226525176*
1380 <GFCN \1aSINGLE-PATH-OPTIMIZE ("VALUE" <OR ATOM FALSE <LIST ANY> <VECTOR OLD-AND-USELESS>> <PRIMTYPE VECTOR> <PRIMTYPE VECTOR>) TOP-OF-TUP4 NEW-T5>
1381                     <TEMP (BACKREG-LIST6:LIST ()) LBL7 (ACS8:LIST (A1* A2* B1* B2* C1* C2* T* X* O*)) STATEMENT11 TEMP18 TEMP19 NTUP13 ACC?21 AC46>
1382                     <INTGO>
1383                     <NTHUV NEW-T5 1 = LBL7>
1384                     <NTHUV LBL7 3 = LBL7>
1385                     <NTH1 LBL7 = STATEMENT11>
1386                     <DEAD LBL7>
1387                     <CHTYPE TOP-OF-TUP4 <TYPE-CODE VECTOR> = LBL7>
1388                     <TYPE STATEMENT11 = TEMP18>
1389                     <EMPUV? LBL7 + TAG14>
1390                     <LOOP (STATEMENT11 VALUE) (TEMP18 VALUE) (LBL7 LENGTH VALUE)>
1391 TAG16
1392                     <NTHUV LBL7 1 = TEMP19>
1393                     <TYPE? TEMP19 TEMP18 - TAG17>
1394                     <VEQUAL? TEMP19 STATEMENT11 + TAG15>
1395                     <DEAD TEMP19>
1396 TAG17
1397                     <RESTUV LBL7 1 = LBL7 (TYPE VECTOR)>
1398                     <EMPUV? LBL7 - TAG16>
1399 TAG14
1400                     <SET NTUP13 %<> (TYPE FALSE)>
1401                     <JUMP + TAG20>
1402 TAG15
1403                     <SET NTUP13 LBL7>
1404                     <DEAD LBL7>
1405 TAG20
1406                     <LOOP>
1407 AGAIN22
1408                     <INTGO>
1409                     <TYPE? STATEMENT11 <TYPE-CODE REF> + EXIT9>
1410                     <TYPE? STATEMENT11 <TYPE-CODE INST> - PHRASE24>
1411                     <NTHUV STATEMENT11 1 = LBL7>
1412                     <EQUAL? LBL7 'PUSHJ + EXIT9>
1413                     <DEAD LBL7>
1414                     <NTHUV STATEMENT11 1 = LBL7>
1415                     <EQUAL? LBL7 'JSP + EXIT9>
1416                     <DEAD LBL7>
1417 PHRASE24
1418                     <FRAME '\1aMOVE?>
1419                     <PUSH STATEMENT11>
1420                     <CALL '\1aMOVE? 1 = LBL7>
1421                     <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE28>
1422                     <DEAD LBL7>
1423                     <NTHUV STATEMENT11 2 = ACC?21>
1424                     <SET LBL7 ACS8>
1425                     <TYPE ACC?21 = TEMP18>
1426                     <EMPL? LBL7 + PHRASE28>
1427                     <LOOP (ACC?21 VALUE) (TEMP18 VALUE) (LBL7 VALUE)>
1428 TAG32
1429                     <NTHL LBL7 1 = TEMP19>
1430                     <TYPE? TEMP19 TEMP18 - TAG33>
1431                     <VEQUAL? TEMP19 ACC?21 + TAG31>
1432                     <DEAD TEMP19>
1433 TAG33
1434                     <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1435                     <EMPL? LBL7 - TAG32>
1436                     <JUMP + PHRASE28>
1437 TAG31
1438                     <SET LBL7 BACKREG-LIST6>
1439                     <TYPE ACC?21 = TEMP18>
1440                     <EMPL? LBL7 + TAG34>
1441                     <LOOP (ACC?21 VALUE) (TEMP18 VALUE) (LBL7 VALUE)>
1442 TAG35
1443                     <NTHL LBL7 1 = TEMP19>
1444                     <TYPE? TEMP19 TEMP18 - TAG36>
1445                     <VEQUAL? TEMP19 ACC?21 + PHRASE28>
1446                     <DEAD TEMP19>
1447 TAG36
1448                     <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1449                     <EMPL? LBL7 - TAG35>
1450 TAG34
1451                     <SET TEMP19 () (TYPE LIST)>
1452                     <SET TEMP18 () (TYPE LIST)>
1453                     <SET LBL7 ACS8 (TYPE LIST)>
1454                     <DEAD ACS8>
1455                     <LOOP>
1456 MAP38
1457                     <INTGO>
1458                     <EMPL? LBL7 + MAPAP41>
1459                     <SET ACS8 LBL7>
1460                     <NTHL ACS8 1 = AC46 (TYPE ATOM)>
1461                     <EQUAL? ACC?21 AC46 - PHRASE48>
1462                     <RESTL ACS8 1 = ACS8 (TYPE LIST)>
1463                     <LOOP (ACS8 VALUE)>
1464 TAG54
1465                     <INTGO>
1466                     <EMPL? ACS8 + MAPAP41>
1467                     <NTHL ACS8 1 = AC46>
1468                     <CONS AC46 () = AC46 (TYPE LIST)>
1469                     <EMPL? TEMP19 - TAG56>
1470                     <SET TEMP19 AC46 (TYPE LIST)>
1471                     <JUMP + TAG57>
1472 TAG56
1473                     <PUTREST TEMP18 AC46>
1474                     <DEAD TEMP18>
1475 TAG57
1476                     <SET TEMP18 AC46 (TYPE LIST)>
1477                     <DEAD AC46>
1478                     <RESTL ACS8 1 = ACS8 (TYPE LIST)>
1479                     <JUMP + TAG54>
1480 PHRASE48
1481                     <CONS AC46 () = AC46 (TYPE LIST)>
1482                     <EMPL? TEMP19 - TAG60>
1483                     <SET TEMP19 AC46 (TYPE LIST)>
1484                     <JUMP + TAG61>
1485 TAG60
1486                     <PUTREST TEMP18 AC46>
1487                     <DEAD TEMP18>
1488 TAG61
1489                     <SET TEMP18 AC46 (TYPE LIST)>
1490                     <DEAD AC46>
1491                     <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1492                     <JUMP + MAP38>
1493 MAPAP41
1494                     <SET ACS8 TEMP19>
1495                     <DEAD TEMP19>
1496                     <CONS STATEMENT11 BACKREG-LIST6 = LBL7>
1497                     <DEAD STATEMENT11 BACKREG-LIST6>
1498                     <CONS ACC?21 LBL7 = BACKREG-LIST6>
1499                     <DEAD ACC?21 LBL7>
1500                     <JUMP + MAPEX72>
1501 PHRASE28
1502                     <LENUV STATEMENT11 = LBL7 (TYPE FIX)>
1503                     <GRTR? LBL7 1 - MAPEX72 (TYPE FIX)>
1504                     <DEAD LBL7>
1505                     <NTHUV STATEMENT11 2 = ACC?21>
1506                     <DEAD STATEMENT11>
1507                     <TYPE? ACC?21 <TYPE-CODE ATOM> - MAPEX72>
1508                     <SET LBL7 ACS8>
1509                     <EMPL? LBL7 + MAPEX72>
1510                     <LOOP (ACC?21 VALUE) (LBL7 VALUE)>
1511 TAG67
1512                     <NTHL LBL7 1 = AC46>
1513                     <TYPE? AC46 <TYPE-CODE ATOM> - TAG68>
1514                     <VEQUAL? AC46 ACC?21 + TAG66>
1515                     <DEAD AC46>
1516 TAG68
1517                     <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1518                     <EMPL? LBL7 - TAG67>
1519                     <JUMP + MAPEX72>
1520 TAG66
1521                     <SET STATEMENT11 () (TYPE LIST)>
1522                     <SET AC46 () (TYPE LIST)>
1523                     <SET LBL7 ACS8 (TYPE LIST)>
1524                     <DEAD ACS8>
1525                     <LOOP>
1526 MAP70
1527                     <INTGO>
1528                     <EMPL? LBL7 + MAPAP73>
1529                     <SET ACS8 LBL7>
1530                     <NTHL ACS8 1 = TEMP18 (TYPE ATOM)>
1531                     <VEQUAL? ACC?21 TEMP18 - PHRASE81>
1532                     <RESTL ACS8 1 = ACS8 (TYPE LIST)>
1533                     <LOOP (ACS8 VALUE)>
1534 TAG87
1535                     <INTGO>
1536                     <EMPL? ACS8 + MAPAP73>
1537                     <NTHL ACS8 1 = TEMP18>
1538                     <CONS TEMP18 () = TEMP18 (TYPE LIST)>
1539                     <EMPL? STATEMENT11 - TAG89>
1540                     <SET STATEMENT11 TEMP18 (TYPE LIST)>
1541                     <JUMP + TAG90>
1542 TAG89
1543                     <PUTREST AC46 TEMP18>
1544                     <DEAD AC46>
1545 TAG90
1546                     <SET AC46 TEMP18 (TYPE LIST)>
1547                     <DEAD TEMP18>
1548                     <RESTL ACS8 1 = ACS8 (TYPE LIST)>
1549                     <JUMP + TAG87>
1550 PHRASE81
1551                     <CONS TEMP18 () = TEMP18 (TYPE LIST)>
1552                     <EMPL? STATEMENT11 - TAG93>
1553                     <SET STATEMENT11 TEMP18 (TYPE LIST)>
1554                     <JUMP + TAG94>
1555 TAG93
1556                     <PUTREST AC46 TEMP18>
1557                     <DEAD AC46>
1558 TAG94
1559                     <SET AC46 TEMP18 (TYPE LIST)>
1560                     <DEAD TEMP18>
1561                     <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1562                     <JUMP + MAP70>
1563 MAPAP73
1564                     <SET ACS8 STATEMENT11>
1565                     <DEAD STATEMENT11>
1566 MAPEX72
1567                     <TYPE? NTUP13 <TYPE-CODE FALSE> + EXIT9>
1568                     <EQUAL? NTUP13 TOP-OF-TUP4 + EXIT9>
1569                     <BACKU NTUP13 1 = NTUP13>
1570                     <NTHUV NTUP13 1 = STATEMENT11>
1571                     <JUMP + AGAIN22>
1572 EXIT9
1573                     <SET ACS8 () (TYPE LIST)>
1574                     <SET LBL7 %<> (TYPE FALSE)>
1575                     <RESTUV NEW-T5 1 = STATEMENT11 (TYPE VECTOR)>
1576                     <DEAD NEW-T5>
1577                     <CHTYPE STATEMENT11 <TYPE-CODE VECTOR> = STATEMENT11>
1578                     <LOOP>
1579 MAP100
1580                     <INTGO>
1581                     <EMPUV? STATEMENT11 + MAPAP103>
1582                     <SET AC46 STATEMENT11>
1583                     <NTHUV AC46 1 = TEMP18>
1584                     <FRAME '\1aJUMP?>
1585                     <PUSH TEMP18>
1586                     <CALL '\1aJUMP? 1 = LBL7>
1587                     <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE113>
1588                     <DEAD LBL7>
1589                     <RETURN 'T>
1590 PHRASE113
1591                     <TYPE? TEMP18 <TYPE-CODE REF> - PHRASE116>
1592                     <RETURN 'T>
1593 PHRASE116
1594                     <FRAME '\1aMOVE?>
1595                     <PUSH TEMP18>
1596                     <CALL '\1aMOVE? 1 = LBL7>
1597                     <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE118>
1598                     <DEAD LBL7>
1599                     <NTHUV TEMP18 2 = LBL7>
1600                     <SET TEMP19 ACS8>
1601                     <TYPE LBL7 = NTUP13>
1602                     <EMPL? TEMP19 + TAG122>
1603                     <LOOP (LBL7 VALUE) (NTUP13 VALUE) (TEMP19 VALUE)>
1604 TAG123
1605                     <NTHL TEMP19 1 = ACC?21>
1606                     <TYPE? ACC?21 NTUP13 - TAG124>
1607                     <VEQUAL? ACC?21 LBL7 + PHRASE118>
1608                     <DEAD ACC?21>
1609 TAG124
1610                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1611                     <EMPL? TEMP19 - TAG123>
1612 TAG122
1613                     <SET LBL7 BACKREG-LIST6>
1614                     <TYPE TEMP18 = TEMP19>
1615                     <EMPL? LBL7 + TAG128>
1616                     <LOOP (TEMP18 VALUE) (TEMP19 VALUE) (LBL7 VALUE)>
1617 TAG130
1618                     <NTHL LBL7 1 = NTUP13>
1619                     <TYPE? NTUP13 TEMP19 - TAG131>
1620                     <VEQUAL? NTUP13 TEMP18 + TAG129>
1621                     <DEAD NTUP13>
1622 TAG131
1623                     <RESTL LBL7 1 = LBL7 (TYPE LIST)>
1624                     <EMPL? LBL7 - TAG130>
1625 TAG128
1626                     <SET LBL7 %<> (TYPE FALSE)>
1627 TAG129
1628                     <VEQUAL? LBL7 0 + PHRASE118>
1629                     <NTHUV TEMP18 2 = TEMP19>
1630                     <DEAD TEMP18>
1631                     <CONS TEMP19 ACS8 = ACS8>
1632                     <DEAD TEMP19>
1633                     <FRAME '\1aELIMINATE>
1634                     <NTHL LBL7 1 = STACK>
1635                     <CALL '\1aELIMINATE 1 = TEMP19>
1636                     <PUTL LBL7 1 TEMP19>
1637                     <DEAD LBL7 TEMP19>
1638                     <FRAME '\1aELIMINATE>
1639                     <NTHUV AC46 1 = STACK>
1640                     <CALL '\1aELIMINATE 1 = TEMP19>
1641                     <PUTUV AC46 1 TEMP19>
1642                     <DEAD TEMP19>
1643                     <SET LBL7 AC46>
1644                     <DEAD AC46>
1645                     <JUMP + PHRASE134>
1646 PHRASE118
1647                     <FRAME '\1aMOVE?>
1648                     <PUSH TEMP18>
1649                     <CALL '\1aMOVE? 1 = LBL7>
1650                     <TYPE? LBL7 <TYPE-CODE FALSE> + PHRASE134>
1651                     <NTHUV TEMP18 2 = TEMP19>
1652                     <DEAD TEMP18>
1653                     <CONS TEMP19 ACS8 = ACS8>
1654                     <DEAD TEMP19>
1655                     <SET LBL7 ACS8>
1656 PHRASE134
1657                     <RESTUV STATEMENT11 1 = STATEMENT11 (TYPE VECTOR)>
1658                     <JUMP + MAP100>
1659 MAPAP103
1660                     <RETURN LBL7>
1661                     <DEAD LBL7>
1662                     <END \1aSINGLE-PATH-OPTIMIZE>
1663 #WORD *13716172360*
1664 <GFCN \1aMOVE? ("VALUE" <OR FALSE <VECTOR ATOM [REST ATOM]>> <OR INST REF OLD-AND-USELESS>) ITM4>
1665                     <TEMP TEMP6 TEMP13 TEMP14>
1666                     <INTGO>
1667                     <TYPE? ITM4 <TYPE-CODE INST> + TAG7>
1668                     <RETURN %<>>
1669 TAG7
1670                     <NTHUV ITM4 1 = TEMP13>
1671                     <SET TEMP6 [MOVE DMOVE MOVSI MOVEI MOVNI] (TYPE VECTOR)>
1672                     <TYPE? TEMP13 <TYPE-CODE ATOM> - TAG9>
1673                     <LOOP (TEMP13 VALUE) (TEMP6 LENGTH VALUE)>
1674 TAG11
1675                     <NTHUV TEMP6 1 = TEMP14>
1676                     <VEQUAL? TEMP14 TEMP13 + TAG10>
1677                     <DEAD TEMP14>
1678                     <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
1679                     <EMPUV? TEMP6 - TAG11>
1680 TAG9
1681                     <RETURN %<>>
1682 TAG10
1683                     <FRAME '\1aIS-REAL-AC?>
1684                     <NTHUV ITM4 2 = STACK (TYPE ATOM)>
1685                     <DEAD ITM4>
1686                     <CALL '\1aIS-REAL-AC? 1 = TEMP6>
1687                     <RETURN TEMP6>
1688                     <DEAD TEMP6>
1689                     <END \1aMOVE?>
1690 #WORD *17062051606*
1691 <GFCN \1aFINDZERO ("VALUE" <OR !<FALSE> CONSTANT-BUCKET>)>
1692                     <TEMP NCV7:LIST TEMP4>
1693                     <INTGO>
1694                     <GVAL 'CONSTANT-VECTOR = NCV7>
1695                     <LOOP>
1696 AGAIN8
1697                     <INTGO>
1698                     <EMPL? NCV7 - PHRASE10 (TYPE LIST)>
1699                     <RETURN %<>>
1700 PHRASE10
1701                     <NTHL NCV7 1 = TEMP4 (TYPE CONSTANT-BUCKET)>
1702                     <NTHUV TEMP4 1 = TEMP4>
1703                     <EQUAL? TEMP4 #CONSTANT 0 - PHRASE11>
1704                     <DEAD TEMP4>
1705                     <NTHL NCV7 1 = TEMP4 (TYPE CONSTANT-BUCKET)>
1706                     <DEAD NCV7>
1707                     <RETURN TEMP4>
1708                     <DEAD TEMP4>
1709 PHRASE11
1710                     <RESTL NCV7 1 = NCV7 (TYPE LIST)>
1711                     <JUMP + AGAIN8>
1712                     <END \1aFINDZERO>
1713 #WORD *13544515541*
1714 <GFCN \1aMOVE-CHECK ("VALUE" <OR ATOM FALSE <<PRIMTYPE VECTOR> OLD-AND-USELESS>> <PRIMTYPE VECTOR> INST) NEW-T4 LINE5>
1715                     <TEMP LABEL6:ATOM DESTINATION7 TEMP14 SOURCE9 USEFUL-CODE11 TEMP32 NEW-TUP33 LINE34>
1716                     <INTGO>
1717                     <NTHUV LINE5 1 = LABEL6 (TYPE ATOM)>
1718                     <NTHUV LINE5 2 = DESTINATION7>
1719                     <NTHUV LINE5 3 = TEMP14>
1720                     <TYPE? TEMP14 <TYPE-CODE ATOM> + TAG15>
1721                     <DEAD TEMP14>
1722                     <SET TEMP14 %<> (TYPE FALSE)>
1723                     <JUMP + BOOL12>
1724 TAG15
1725                     <NTHUV LINE5 3 = TEMP14 (TYPE ATOM)>
1726                     <DEAD LINE5>
1727 BOOL12
1728                     <SET SOURCE9 TEMP14>
1729                     <DEAD TEMP14>
1730                     <FRAME '\1aIS-REAL-AC?>
1731                     <PUSH DESTINATION7>
1732                     <CALL '\1aIS-REAL-AC? 1 = TEMP14>
1733                     <VEQUAL? TEMP14 0 + PHRASE67>
1734                     <SET TEMP14 SOURCE9>
1735                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE67>
1736                     <FRAME '\1aIS-REAL-AC?>
1737                     <PUSH SOURCE9>
1738                     <CALL '\1aIS-REAL-AC? 1 = TEMP14>
1739                     <VEQUAL? TEMP14 0 + PHRASE67>
1740                     <SET USEFUL-CODE11 () (TYPE LIST)>
1741                     <SET TEMP14 () (TYPE LIST)>
1742                     <RESTUV NEW-T4 1 = TEMP32 (TYPE VECTOR)>
1743                     <CHTYPE TEMP32 <TYPE-CODE VECTOR> = TEMP32>
1744                     <LOOP>
1745 MAP23
1746                     <INTGO>
1747                     <EMPUV? TEMP32 + MAPAP26>
1748                     <SET NEW-TUP33 TEMP32>
1749                     <NTHUV NEW-TUP33 1 = LINE34>
1750                     <TYPE? LINE34 <TYPE-CODE REF> - PHRASE41>
1751                     <FRAME '\1aL-LOOP?>
1752                     <PUSH NEW-TUP33>
1753                     <DEAD NEW-TUP33>
1754                     <CALL '\1aL-LOOP? 1 = TEMP14>
1755                     <TYPE? TEMP14 <TYPE-CODE FALSE> + MAPAP26>
1756                     <DEAD TEMP14>
1757                     <SET USEFUL-CODE11 () (TYPE LIST)>
1758                     <JUMP + MAPEX25>
1759 PHRASE41
1760                     <FRAME '\1aCONDITIONAL-BRANCH?>
1761                     <PUSH LINE34>
1762                     <CALL '\1aCONDITIONAL-BRANCH? 1 = NEW-TUP33>
1763                     <VEQUAL? NEW-TUP33 0 + PHRASE43>
1764                     <DEAD NEW-TUP33>
1765                     <SET USEFUL-CODE11 () (TYPE LIST)>
1766                     <JUMP + MAPEX25>
1767 PHRASE43
1768                     <FRAME '\1aUNCONDITIONAL-BRANCH?>
1769                     <PUSH LINE34>
1770                     <CALL '\1aUNCONDITIONAL-BRANCH? 1 = NEW-TUP33>
1771                     <TYPE? NEW-TUP33 <TYPE-CODE FALSE> + PHRASE46>
1772                     <DEAD NEW-TUP33>
1773                     <CONS LINE34 () = NEW-TUP33 (TYPE LIST)>
1774                     <DEAD LINE34>
1775                     <EMPL? USEFUL-CODE11 - TAG50>
1776                     <SET USEFUL-CODE11 NEW-TUP33 (TYPE LIST)>
1777                     <JUMP + TAG51>
1778 TAG50
1779                     <PUTREST TEMP14 NEW-TUP33>
1780                     <DEAD TEMP14>
1781 TAG51
1782                     <SET TEMP14 NEW-TUP33 (TYPE LIST)>
1783                     <DEAD NEW-TUP33>
1784                     <JUMP + MAPAP26>
1785 PHRASE46
1786                     <NTHUV LINE34 1 = NEW-TUP33>
1787                     <EQUAL? NEW-TUP33 'JRST - BOOL54>
1788                     <DEAD NEW-TUP33>
1789                     <NTHUV LINE34 2 = NEW-TUP33>
1790                     <EQUAL? NEW-TUP33 '@ + BOOL53>
1791                     <DEAD NEW-TUP33>
1792 BOOL54
1793                     <NTHUV LINE34 1 = NEW-TUP33>
1794                     <EQUAL? NEW-TUP33 'PUSHJ + BOOL53>
1795                     <DEAD NEW-TUP33>
1796                     <NTHUV LINE34 1 = NEW-TUP33>
1797                     <EQUAL? NEW-TUP33 'JSP - PHRASE52>
1798                     <DEAD NEW-TUP33>
1799 BOOL53
1800                     <SET USEFUL-CODE11 () (TYPE LIST)>
1801                     <JUMP + MAPEX25>
1802 PHRASE52
1803                     <CONS LINE34 () = LINE34 (TYPE LIST)>
1804                     <EMPL? USEFUL-CODE11 - TAG58>
1805                     <SET USEFUL-CODE11 LINE34 (TYPE LIST)>
1806                     <JUMP + TAG59>
1807 TAG58
1808                     <PUTREST TEMP14 LINE34>
1809                     <DEAD TEMP14>
1810 TAG59
1811                     <SET TEMP14 LINE34 (TYPE LIST)>
1812                     <DEAD LINE34>
1813                     <RESTUV TEMP32 1 = TEMP32 (TYPE VECTOR)>
1814                     <JUMP + MAP23>
1815 MAPAP26
1816 MAPEX25
1817                     <EMPL? USEFUL-CODE11 - TAG61 (TYPE LIST)>
1818                     <RETURN 'T>
1819 TAG61
1820                     <VEQUAL? LABEL6 'MOVE - PHRASE62>
1821                     <FRAME '\1aIS-THIS-AC-USED?>
1822                     <PUSH SOURCE9>
1823                     <PUSH USEFUL-CODE11>
1824                     <PUSH DESTINATION7>
1825                     <CALL '\1aIS-THIS-AC-USED? 3 = TEMP32>
1826                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE62>
1827                     <DEAD TEMP32>
1828                     <FRAME '\1aREPLACE-ACS>
1829                     <PUSH SOURCE9>
1830                     <DEAD SOURCE9>
1831                     <PUSH DESTINATION7>
1832                     <DEAD DESTINATION7>
1833                     <PUSH USEFUL-CODE11>
1834                     <DEAD USEFUL-CODE11>
1835                     <CALL '\1aREPLACE-ACS 3>
1836                     <FRAME '\1aELIMINATE>
1837                     <NTHUV NEW-T4 1 = STACK>
1838                     <CALL '\1aELIMINATE 1 = TEMP32>
1839                     <PUTUV NEW-T4 1 TEMP32>
1840                     <DEAD TEMP32>
1841                     <RETURN NEW-T4>
1842                     <DEAD NEW-T4>
1843 PHRASE62
1844                     <VEQUAL? LABEL6 'DMOVE + TAG69>
1845                     <DEAD LABEL6>
1846                     <RETURN %<>>
1847 TAG69
1848                     <FRAME '\1aGETPROP>
1849                     <PUSH SOURCE9>
1850                     <PUSH 'AC-PAIR>
1851                     <CALL '\1aGETPROP 2 = LINE34>
1852                     <SET TEMP14 LINE34>
1853                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE67>
1854                     <FRAME '\1aGETPROP>
1855                     <PUSH DESTINATION7>
1856                     <PUSH 'AC-PAIR>
1857                     <CALL '\1aGETPROP 2 = NEW-TUP33>
1858                     <SET TEMP14 NEW-TUP33>
1859                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE67>
1860                     <FRAME '\1aIS-THIS-AC-USED?>
1861                     <PUSH SOURCE9>
1862                     <PUSH USEFUL-CODE11>
1863                     <PUSH DESTINATION7>
1864                     <CALL '\1aIS-THIS-AC-USED? 3 = TEMP32>
1865                     <TYPE? TEMP32 <TYPE-CODE FALSE> + TAG73>
1866                     <DEAD TEMP32>
1867                     <RETURN %<>>
1868 TAG73
1869                     <FRAME '\1aIS-THIS-AC-USED?>
1870                     <PUSH LINE34>
1871                     <PUSH USEFUL-CODE11>
1872                     <PUSH NEW-TUP33>
1873                     <CALL '\1aIS-THIS-AC-USED? 3 = TEMP32>
1874                     <TYPE? TEMP32 <TYPE-CODE FALSE> + TAG75>
1875                     <DEAD TEMP32>
1876                     <RETURN %<>>
1877 TAG75
1878                     <FRAME '\1aREPLACE-ACS>
1879                     <PUSH SOURCE9>
1880                     <DEAD SOURCE9>
1881                     <PUSH DESTINATION7>
1882                     <DEAD DESTINATION7>
1883                     <PUSH USEFUL-CODE11>
1884                     <CALL '\1aREPLACE-ACS 3>
1885                     <FRAME '\1aREPLACE-ACS>
1886                     <PUSH LINE34>
1887                     <DEAD LINE34>
1888                     <PUSH NEW-TUP33>
1889                     <DEAD NEW-TUP33>
1890                     <PUSH USEFUL-CODE11>
1891                     <DEAD USEFUL-CODE11>
1892                     <CALL '\1aREPLACE-ACS 3>
1893                     <FRAME '\1aELIMINATE>
1894                     <NTHUV NEW-T4 1 = STACK>
1895                     <CALL '\1aELIMINATE 1 = TEMP32>
1896                     <PUTUV NEW-T4 1 TEMP32>
1897                     <DEAD TEMP32>
1898                     <SET TEMP14 NEW-T4>
1899                     <DEAD NEW-T4>
1900 PHRASE67
1901                     <RETURN TEMP14>
1902                     <DEAD TEMP14>
1903                     <END \1aMOVE-CHECK>
1904 #WORD *6057656507*
1905 <GFCN \1aREPLACE-ACS ("VALUE" <OR FALSE <INST <OR ATOM LIST>> <OLD-AND-USELESS <OR ATOM LIST>> <REF <OR ATOM LIST>> <VECTOR <OR ATOM LIST>>> ATOM ATOM LIST) AC14 AC25 CODE6>
1906                     <TEMP LAC17:LIST LAC28:LIST TEMP18 TEMP15:LIST LINE20 SUBSET21 TEMP30>
1907                     <INTGO>
1908                     <CONS AC14 () = LAC17>
1909                     <CONS AC25 () = LAC28>
1910                     <SET TEMP18 %<> (TYPE FALSE)>
1911                     <SET TEMP15 CODE6 (TYPE LIST)>
1912                     <DEAD CODE6>
1913                     <LOOP>
1914 MAP10
1915                     <INTGO>
1916                     <EMPL? TEMP15 + MAPAP13>
1917                     <NTHL TEMP15 1 = LINE20>
1918                     <FRAME '\1aMEMBER>
1919                     <PUSH LAC28>
1920                     <PUSH LINE20>
1921                     <CALL '\1aMEMBER 2 = SUBSET21>
1922                     <TYPE? SUBSET21 <TYPE-CODE FALSE> + PHRASE23>
1923                     <PUTUV SUBSET21 1 LAC17>
1924                     <SET TEMP18 SUBSET21>
1925                     <DEAD SUBSET21>
1926                     <JUMP + PHRASE31>
1927 PHRASE23
1928                     <NTH1 LINE20 = SUBSET21>
1929                     <SET TEMP18 [MOVE DMOVE] (TYPE VECTOR)>
1930                     <TYPE? SUBSET21 <TYPE-CODE ATOM> - TAG26>
1931                     <LOOP (SUBSET21 VALUE) (TEMP18 LENGTH VALUE)>
1932 TAG27
1933                     <NTHUV TEMP18 1 = TEMP30>
1934                     <VEQUAL? TEMP30 SUBSET21 + PHRASE31>
1935                     <DEAD TEMP30>
1936                     <RESTUV TEMP18 1 = TEMP18 (TYPE VECTOR)>
1937                     <EMPUV? TEMP18 - TAG27>
1938 TAG26
1939                     <SET SUBSET21 LINE20>
1940                     <DEAD LINE20>
1941                     <EMPTY? SUBSET21 + TAG32>
1942                     <LOOP (AC25 VALUE) (SUBSET21 LENGTH VALUE TYPE)>
1943 TAG34
1944                     <NTH1 SUBSET21 = TEMP30>
1945                     <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG35>
1946                     <VEQUAL? TEMP30 AC25 + TAG33>
1947                     <DEAD TEMP30>
1948 TAG35
1949                     <REST1 SUBSET21 = SUBSET21>
1950                     <EMPTY? SUBSET21 - TAG34>
1951 TAG32
1952                     <SET SUBSET21 %<> (TYPE FALSE)>
1953                     <JUMP + TAG36>
1954 TAG33
1955 TAG36
1956                     <SET TEMP18 SUBSET21>
1957                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE31>
1958                     <PUTUV SUBSET21 1 AC14>
1959                     <SET TEMP18 SUBSET21>
1960                     <DEAD SUBSET21>
1961 PHRASE31
1962                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1963                     <JUMP + MAP10>
1964 MAPAP13
1965                     <RETURN TEMP18>
1966                     <DEAD TEMP18>
1967                     <END \1aREPLACE-ACS>
1968 #WORD *23257023133*
1969 <GFCN \1aIS-THIS-AC-USED? ("VALUE" <OR ATOM FALSE> ATOM LIST ANY) ACCUM4 CODE5 DEST6>
1970                     <TEMP ACCUM27 (MOVED?8 %<>) LDEST9:LIST DEST210 TEMP18 (SRC-USED12 %<>) (DST-USED13 %<>) TEMP27 TEMP38 TEMP39 TEMP40>
1971                     <INTGO>
1972                     <FRAME '\1aGETPROP>
1973                     <PUSH ACCUM4>
1974                     <PUSH 'AC-PAIR>
1975                     <CALL '\1aGETPROP 2 = ACCUM27>
1976                     <CONS DEST6 () = LDEST9>
1977                     <FRAME '\1aGETPROP>
1978                     <PUSH DEST6>
1979                     <PUSH 'AC-PAIR>
1980                     <CALL '\1aGETPROP 2 = DEST210>
1981                     <SET TEMP18 DEST210>
1982                     <TYPE? TEMP18 <TYPE-CODE FALSE> + BOOL17>
1983                     <CONS DEST210 () = TEMP18>
1984 BOOL17
1985                     <SET TEMP27 %<> (TYPE FALSE)>
1986                     <SET TEMP18 CODE5 (TYPE LIST)>
1987                     <DEAD CODE5>
1988                     <LOOP>
1989 MAP20
1990                     <INTGO>
1991                     <EMPL? TEMP18 + MAPAP23>
1992                     <NTHL TEMP18 1 = TEMP27>
1993                     <VEQUAL? MOVED?8 0 + PHRASE31>
1994                     <SET TEMP38 TEMP27>
1995                     <TYPE DEST6 = TEMP39>
1996                     <EMPUV? TEMP38 + TAG35>
1997                     <LOOP (DEST6 VALUE) (TEMP39 VALUE) (TEMP38 LENGTH VALUE)>
1998 TAG36
1999                     <NTHUV TEMP38 1 = TEMP40>
2000                     <TYPE? TEMP40 TEMP39 - TAG37>
2001                     <VEQUAL? TEMP40 DEST6 + TAG41>
2002                     <DEAD TEMP40>
2003 TAG37
2004                     <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2005                     <EMPUV? TEMP38 - TAG36>
2006 TAG35
2007                     <SET TEMP38 TEMP27>
2008                     <EMPUV? TEMP38 + PHRASE33>
2009                     <LOOP (LDEST9 VALUE) (TEMP38 LENGTH VALUE)>
2010 TAG42
2011                     <NTHUV TEMP38 1 = TEMP39>
2012                     <TYPE? TEMP39 <TYPE-CODE LIST> - TAG43>
2013                     <VEQUAL? TEMP39 LDEST9 + TAG41>
2014                     <DEAD TEMP39>
2015 TAG43
2016                     <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2017                     <EMPUV? TEMP38 - TAG42>
2018                     <JUMP + PHRASE33>
2019 TAG41
2020                     <RETURN 'T>
2021 PHRASE33
2022                     <TYPE? DEST210 <TYPE-CODE FALSE> + PHRASE44>
2023                     <SET TEMP39 TEMP27>
2024                     <TYPE DEST210 = TEMP40>
2025                     <EMPUV? TEMP39 + PHRASE44>
2026                     <LOOP (DEST210 VALUE) (TEMP40 VALUE) (TEMP39 LENGTH VALUE)>
2027 TAG47
2028                     <NTHUV TEMP39 1 = TEMP38>
2029                     <TYPE? TEMP38 TEMP40 - TAG48>
2030                     <VEQUAL? TEMP38 DEST210 + TAG46>
2031                     <DEAD TEMP38>
2032 TAG48
2033                     <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
2034                     <EMPUV? TEMP39 - TAG47>
2035                     <JUMP + PHRASE44>
2036 TAG46
2037                     <SET TEMP39 TEMP27>
2038                     <DEAD TEMP27>
2039                     <EMPUV? TEMP39 + PHRASE44>
2040                     <LOOP (LDEST9 VALUE) (TEMP39 LENGTH VALUE)>
2041 TAG51
2042                     <NTHUV TEMP39 1 = TEMP40>
2043                     <TYPE? TEMP40 <TYPE-CODE LIST> - TAG52>
2044                     <VEQUAL? TEMP40 LDEST9 + TAG50>
2045                     <DEAD TEMP40>
2046 TAG52
2047                     <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
2048                     <EMPUV? TEMP39 - TAG51>
2049                     <JUMP + PHRASE44>
2050 TAG50
2051                     <RETURN 'T>
2052 PHRASE44
2053                     <SET TEMP27 %<> (TYPE FALSE)>
2054                     <JUMP + PHRASE129>
2055 PHRASE31
2056                     <SET TEMP40 TEMP27>
2057                     <EMPUV? TEMP40 + TAG57>
2058                     <LOOP (ACCUM4 VALUE) (TEMP40 LENGTH VALUE)>
2059 TAG58
2060                     <NTHUV TEMP40 1 = TEMP38>
2061                     <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG59>
2062                     <VEQUAL? TEMP38 ACCUM4 + TAG61>
2063                     <DEAD TEMP38>
2064 TAG59
2065                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2066                     <EMPUV? TEMP40 - TAG58>
2067 TAG57
2068                     <TYPE? ACCUM27 <TYPE-CODE FALSE> + PHRASE54>
2069                     <SET TEMP40 TEMP27>
2070                     <TYPE ACCUM27 = TEMP38>
2071                     <EMPUV? TEMP40 + PHRASE54>
2072                     <LOOP (ACCUM27 VALUE) (TEMP38 VALUE) (TEMP40 LENGTH VALUE)>
2073 TAG62
2074                     <NTHUV TEMP40 1 = TEMP39>
2075                     <TYPE? TEMP39 TEMP38 - TAG63>
2076                     <VEQUAL? TEMP39 ACCUM27 + TAG61>
2077                     <DEAD TEMP39>
2078 TAG63
2079                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2080                     <EMPUV? TEMP40 - TAG62>
2081                     <JUMP + PHRASE54>
2082 TAG61
2083                     <NTHUV TEMP27 1 = TEMP40>
2084                     <SET TEMP38 [DMOVEM MOVEM] (TYPE VECTOR)>
2085                     <TYPE? TEMP40 <TYPE-CODE ATOM> - PHRASE54>
2086                     <LOOP (TEMP40 VALUE) (TEMP38 LENGTH VALUE)>
2087 TAG66
2088                     <NTHUV TEMP38 1 = TEMP39>
2089                     <VEQUAL? TEMP39 TEMP40 + TAG65>
2090                     <DEAD TEMP39>
2091                     <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2092                     <EMPUV? TEMP38 - TAG66>
2093                     <JUMP + PHRASE54>
2094 TAG65
2095                     <VEQUAL? DST-USED13 0 + PHRASE69>
2096                     <RETURN 'T>
2097 PHRASE69
2098                     <SET TEMP27 %<> (TYPE FALSE)>
2099                     <JUMP + PHRASE129>
2100 PHRASE54
2101                     <SET TEMP40 TEMP27>
2102                     <TYPE DEST6 = TEMP39>
2103                     <EMPUV? TEMP40 + TAG74>
2104                     <LOOP (DEST6 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
2105 TAG75
2106                     <NTHUV TEMP40 1 = TEMP38>
2107                     <TYPE? TEMP38 TEMP39 - TAG76>
2108                     <VEQUAL? TEMP38 DEST6 + TAG79>
2109                     <DEAD TEMP38>
2110 TAG76
2111                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2112                     <EMPUV? TEMP40 - TAG75>
2113 TAG74
2114                     <TYPE? DEST210 <TYPE-CODE FALSE> + PHRASE71>
2115                     <SET TEMP40 TEMP27>
2116                     <TYPE DEST210 = TEMP39>
2117                     <EMPUV? TEMP40 + PHRASE71>
2118                     <LOOP (DEST210 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
2119 TAG80
2120                     <NTHUV TEMP40 1 = TEMP38>
2121                     <TYPE? TEMP38 TEMP39 - TAG81>
2122                     <VEQUAL? TEMP38 DEST210 + TAG79>
2123                     <DEAD TEMP38>
2124 TAG81
2125                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2126                     <EMPUV? TEMP40 - TAG80>
2127                     <JUMP + PHRASE71>
2128 TAG79
2129                     <NTHUV TEMP27 1 = TEMP40>
2130                     <SET TEMP39 [DMOVEM MOVEM] (TYPE VECTOR)>
2131                     <TYPE? TEMP40 <TYPE-CODE ATOM> - PHRASE71>
2132                     <LOOP (TEMP40 VALUE) (TEMP39 LENGTH VALUE)>
2133 TAG83
2134                     <NTHUV TEMP39 1 = TEMP38>
2135                     <VEQUAL? TEMP38 TEMP40 + TAG82>
2136                     <DEAD TEMP38>
2137                     <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
2138                     <EMPUV? TEMP39 - TAG83>
2139                     <JUMP + PHRASE71>
2140 TAG82
2141                     <VEQUAL? SRC-USED12 0 + PHRASE86>
2142                     <RETURN 'T>
2143 PHRASE86
2144                     <SET TEMP27 %<> (TYPE FALSE)>
2145                     <JUMP + PHRASE129>
2146 PHRASE71
2147                     <SET TEMP40 TEMP27>
2148                     <EMPUV? TEMP40 + TAG91>
2149                     <LOOP (ACCUM4 VALUE) (TEMP40 LENGTH VALUE)>
2150 TAG92
2151                     <NTHUV TEMP40 1 = TEMP38>
2152                     <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG93>
2153                     <VEQUAL? TEMP38 ACCUM4 + TAG95>
2154                     <DEAD TEMP38>
2155 TAG93
2156                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2157                     <EMPUV? TEMP40 - TAG92>
2158 TAG91
2159                     <TYPE? ACCUM27 <TYPE-CODE FALSE> + PHRASE88>
2160                     <SET TEMP40 TEMP27>
2161                     <TYPE ACCUM27 = TEMP38>
2162                     <EMPUV? TEMP40 + PHRASE88>
2163                     <LOOP (ACCUM27 VALUE) (TEMP38 VALUE) (TEMP40 LENGTH VALUE)>
2164 TAG96
2165                     <NTHUV TEMP40 1 = TEMP39>
2166                     <TYPE? TEMP39 TEMP38 - TAG97>
2167                     <VEQUAL? TEMP39 ACCUM27 + TAG95>
2168                     <DEAD TEMP39>
2169 TAG97
2170                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2171                     <EMPUV? TEMP40 - TAG96>
2172                     <JUMP + PHRASE88>
2173 TAG95
2174                     <NTHUV TEMP27 1 = TEMP40>
2175                     <SET TEMP38 [DMOVE MOVE MOVSI MOVEI MOVNI] (TYPE VECTOR)>
2176                     <TYPE? TEMP40 <TYPE-CODE ATOM> - PHRASE88>
2177                     <LOOP (TEMP40 VALUE) (TEMP38 LENGTH VALUE)>
2178 TAG100
2179                     <NTHUV TEMP38 1 = TEMP39>
2180                     <VEQUAL? TEMP39 TEMP40 + TAG99>
2181                     <DEAD TEMP39>
2182                     <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2183                     <EMPUV? TEMP38 - TAG100>
2184                     <JUMP + PHRASE88>
2185 TAG99
2186                     <LENUV TEMP27 = TEMP38 (TYPE FIX)>
2187                     <NTHUV TEMP27 TEMP38 = TEMP39>
2188                     <DEAD TEMP38>
2189                     <TYPE? TEMP39 <TYPE-CODE LIST> - BOOL102>
2190                     <NTHL TEMP39 1 = TEMP38>
2191                     <EQUAL? TEMP38 ACCUM4 + PHRASE88>
2192                     <DEAD TEMP38>
2193                     <NTHL TEMP39 1 = TEMP38>
2194                     <DEAD TEMP39>
2195                     <EQUAL? TEMP38 ACCUM27 + PHRASE88>
2196                     <DEAD TEMP38>
2197 BOOL102
2198                     <SET MOVED?8 'T (TYPE ATOM)>
2199                     <SET TEMP27 %<> (TYPE FALSE)>
2200                     <JUMP + PHRASE129>
2201 PHRASE88
2202                     <SET TEMP38 TEMP27>
2203                     <EMPUV? TEMP38 + TAG106>
2204                     <LOOP (ACCUM4 VALUE) (TEMP38 LENGTH VALUE)>
2205 TAG107
2206                     <NTHUV TEMP38 1 = TEMP40>
2207                     <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG108>
2208                     <VEQUAL? TEMP40 ACCUM4 + TAG110>
2209                     <DEAD TEMP40>
2210 TAG108
2211                     <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2212                     <EMPUV? TEMP38 - TAG107>
2213 TAG106
2214                     <TYPE? ACCUM27 <TYPE-CODE FALSE> + PHRASE104>
2215                     <SET TEMP38 TEMP27>
2216                     <TYPE ACCUM27 = TEMP40>
2217                     <EMPUV? TEMP38 + PHRASE104>
2218                     <LOOP (ACCUM27 VALUE) (TEMP40 VALUE) (TEMP38 LENGTH VALUE)>
2219 TAG111
2220                     <NTHUV TEMP38 1 = TEMP39>
2221                     <TYPE? TEMP39 TEMP40 - TAG112>
2222                     <VEQUAL? TEMP39 ACCUM27 + TAG110>
2223                     <DEAD TEMP39>
2224 TAG112
2225                     <RESTUV TEMP38 1 = TEMP38 (TYPE VECTOR)>
2226                     <EMPUV? TEMP38 - TAG111>
2227                     <JUMP + PHRASE104>
2228 TAG110
2229                     <VEQUAL? DST-USED13 0 + PHRASE114>
2230                     <RETURN 'T>
2231 PHRASE114
2232                     <SET SRC-USED12 'T (TYPE ATOM)>
2233                     <SET TEMP27 %<> (TYPE FALSE)>
2234                     <JUMP + PHRASE129>
2235 PHRASE104
2236                     <SET TEMP40 TEMP27>
2237                     <TYPE DEST6 = TEMP39>
2238                     <EMPUV? TEMP40 + TAG118>
2239                     <LOOP (DEST6 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
2240 TAG119
2241                     <NTHUV TEMP40 1 = TEMP38>
2242                     <TYPE? TEMP38 TEMP39 - TAG120>
2243                     <VEQUAL? TEMP38 DEST6 + TAG123>
2244                     <DEAD TEMP38>
2245 TAG120
2246                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2247                     <EMPUV? TEMP40 - TAG119>
2248 TAG118
2249                     <TYPE? DEST210 <TYPE-CODE FALSE> + PHRASE116>
2250                     <SET TEMP40 TEMP27>
2251                     <DEAD TEMP27>
2252                     <TYPE DEST210 = TEMP39>
2253                     <EMPUV? TEMP40 + PHRASE116>
2254                     <LOOP (DEST210 VALUE) (TEMP39 VALUE) (TEMP40 LENGTH VALUE)>
2255 TAG124
2256                     <NTHUV TEMP40 1 = TEMP38>
2257                     <TYPE? TEMP38 TEMP39 - TAG125>
2258                     <VEQUAL? TEMP38 DEST210 + TAG123>
2259                     <DEAD TEMP38>
2260 TAG125
2261                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
2262                     <EMPUV? TEMP40 - TAG124>
2263                     <JUMP + PHRASE116>
2264 TAG123
2265                     <VEQUAL? SRC-USED12 0 + PHRASE127>
2266                     <RETURN 'T>
2267 PHRASE127
2268                     <SET DST-USED13 'T (TYPE ATOM)>
2269                     <SET TEMP27 %<> (TYPE FALSE)>
2270                     <JUMP + PHRASE129>
2271 PHRASE116
2272                     <SET TEMP27 %<> (TYPE FALSE)>
2273 PHRASE129
2274                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
2275                     <JUMP + MAP20>
2276 MAPAP23
2277                     <RETURN TEMP27>
2278                     <DEAD TEMP27>
2279                     <END \1aIS-THIS-AC-USED?>
2280 #WORD *1413243031*
2281 <GFCN \1aIS-REAL-AC? ("VALUE" <OR !<FALSE> <VECTOR ATOM [REST ATOM]>> ATOM) ITEM4>
2282                     <TEMP TEMP9 TEMP10>
2283                     <INTGO>
2284                     <SET TEMP9 [A1* A2* B1* B2* C1* C2* X* T*] (TYPE VECTOR)>
2285                     <LOOP (ITEM4 VALUE) (TEMP9 LENGTH VALUE)>
2286 TAG7
2287                     <NTHUV TEMP9 1 = TEMP10>
2288                     <VEQUAL? TEMP10 ITEM4 + TAG6>
2289                     <DEAD TEMP10>
2290                     <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
2291                     <EMPUV? TEMP9 - TAG7>
2292                     <SET TEMP9 %<> (TYPE FALSE)>
2293 TAG6
2294                     <RETURN TEMP9>
2295                     <DEAD TEMP9>
2296                     <END \1aIS-REAL-AC?>
2297 #WORD *35202355020*
2298 <GFCN \1aMOVE-NEEDED? ("VALUE" <OR ATOM FALSE <VECTOR OLD-AND-USELESS>> <PRIMTYPE VECTOR> INST) NEW-T4 ITM5>
2299                     <TEMP TEMP13 BOTH?6 REG7:ATOM INDEX8:LIST REG210 TEMP26 TEMP28 TT29:VECTOR OP31 TEMP43 TEMP53 TEMP54 AFT-SKIP9>
2300                     <INTGO>
2301                     <NTHUV ITM5 1 = TEMP13>
2302                     <EQUAL? TEMP13 'DMOVE - TAG12>
2303                     <DEAD TEMP13>
2304                     <SET BOTH?6 'T (TYPE ATOM)>
2305                     <JUMP + TAG14>
2306 TAG12
2307                     <SET BOTH?6 %<> (TYPE FALSE)>
2308 TAG14
2309                     <NTHUV ITM5 2 = REG7 (TYPE ATOM)>
2310                     <CONS REG7 () = INDEX8>
2311                     <SET TEMP13 BOTH?6>
2312                     <VEQUAL? TEMP13 0 + BOOL15>
2313                     <FRAME '\1aGETPROP>
2314                     <PUSH REG7>
2315                     <PUSH 'AC-PAIR>
2316                     <CALL '\1aGETPROP 2 = TEMP13>
2317 BOOL15
2318                     <SET REG210 TEMP13>
2319                     <DEAD TEMP13>
2320                     <SET TEMP13 BOTH?6>
2321                     <VEQUAL? TEMP13 0 + BOOL17>
2322                     <CONS REG210 () = TEMP13>
2323 BOOL17
2324                     <SET TEMP26 %<> (TYPE FALSE)>
2325                     <RESTUV NEW-T4 1 = TEMP28 (TYPE VECTOR)>
2326                     <CHTYPE TEMP28 <TYPE-CODE VECTOR> = TEMP28>
2327                     <LOOP>
2328 MAP19
2329                     <INTGO>
2330                     <EMPUV? TEMP28 + MAPAP22>
2331                     <SET TT29 TEMP28>
2332                     <NTHUV TT29 1 = TEMP26>
2333                     <NTHUV TEMP26 1 = OP31>
2334                     <TYPE? TEMP26 <TYPE-CODE REF> - PHRASE34>
2335                     <FRAME '\1aL-LOOP?>
2336                     <PUSH TT29>
2337                     <DEAD TT29>
2338                     <CALL '\1aL-LOOP? 1 = TEMP13>
2339                     <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE38>
2340                     <DEAD TEMP13>
2341                     <FRAME '\1aELIMINATE>
2342                     <NTHUV NEW-T4 1 = STACK>
2343                     <CALL '\1aELIMINATE 1 = TEMP13>
2344                     <PUTUV NEW-T4 1 TEMP13>
2345                     <DEAD NEW-T4 TEMP13>
2346 PHRASE38
2347                     <RETURN 'T>
2348 PHRASE34
2349                     <EQUAL? OP31 'PUSHJ + BOOL41>
2350                     <EQUAL? OP31 'JSP + BOOL41>
2351                     <EQUAL? OP31 'JRST - BOOL42>
2352                     <NTHUV TEMP26 2 = TEMP43>
2353                     <EQUAL? TEMP43 '@ + BOOL41>
2354                     <DEAD TEMP43>
2355 BOOL42
2356                     <EQUAL? OP31 'LDB - PHRASE40>
2357                     <FRAME '\1aLDB-REGISTER-USED?>
2358                     <PUSH TEMP26>
2359                     <PUSH REG7>
2360                     <PUSH REG210>
2361                     <CALL '\1aLDB-REGISTER-USED? 3 = TEMP43>
2362                     <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE40>
2363                     <DEAD TEMP43>
2364 BOOL41
2365                     <RETURN 'T>
2366 PHRASE40
2367                     <NTHUV TEMP26 1 = TEMP43>
2368                     <PUSH 'DMOVE>
2369                     <PUSH 'MOVE>
2370                     <PUSH 'MOVNI>
2371                     <PUSH 'MOVSI>
2372                     <PUSH 'MOVEI>
2373                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP53>
2374                     <TYPE? TEMP43 <TYPE-CODE ATOM> - PHRASE46>
2375                     <LOOP (TEMP43 VALUE) (TEMP53 LENGTH VALUE)>
2376 TAG49
2377                     <NTHUV TEMP53 1 = TEMP54>
2378                     <VEQUAL? TEMP54 TEMP43 + TAG48>
2379                     <DEAD TEMP54>
2380                     <RESTUV TEMP53 1 = TEMP53 (TYPE VECTOR)>
2381                     <EMPUV? TEMP53 - TAG49>
2382                     <JUMP + PHRASE46>
2383 TAG48
2384                     <NTHUV TEMP26 2 = TEMP53>
2385                     <EQUAL? TEMP53 REG7 - PHRASE46>
2386                     <DEAD TEMP53>
2387                     <FRAME '\1a=?>
2388                     <PUSH TEMP26>
2389                     <PUSH ITM5>
2390                     <CALL '\1a=? 2 = TEMP53>
2391                     <VEQUAL? TEMP53 0 + PHRASE46>
2392                     <DEAD TEMP53>
2393                     <LENUV TEMP26 = TEMP53 (TYPE FIX)>
2394                     <NTHUV TEMP26 TEMP53 = TEMP43>
2395                     <DEAD TEMP53>
2396                     <TYPE? TEMP43 <TYPE-CODE LIST> - BOOL56>
2397                     <NTHL TEMP43 1 = TEMP53>
2398                     <DEAD TEMP43>
2399                     <EQUAL? TEMP53 REG7 + PHRASE46>
2400                     <DEAD TEMP53>
2401 BOOL56
2402                     <SET AFT-SKIP9 %<> (TYPE FALSE)>
2403                     <FRAME '\1aELIMINATE>
2404                     <NTHUV TT29 1 = STACK>
2405                     <CALL '\1aELIMINATE 1 = TEMP53>
2406                     <PUTUV TT29 1 TEMP53>
2407                     <DEAD TEMP53>
2408                     <SET TEMP26 TT29>
2409                     <DEAD TT29>
2410                     <JUMP + PHRASE102>
2411 PHRASE46
2412                     <FRAME '\1aMEMBER>
2413                     <PUSH INDEX8>
2414                     <PUSH TEMP26>
2415                     <CALL '\1aMEMBER 2 = TEMP53>
2416                     <TYPE? TEMP53 <TYPE-CODE FALSE> + PHRASE58>
2417                     <DEAD TEMP53>
2418                     <RETURN 'T>
2419 PHRASE58
2420                     <EQUAL? OP31 'MOVEM - PHRASE60>
2421                     <SET TEMP43 TEMP26>
2422                     <EMPUV? TEMP43 + PHRASE60>
2423                     <LOOP (REG7 VALUE) (TEMP43 LENGTH VALUE)>
2424 TAG63
2425                     <NTHUV TEMP43 1 = TEMP54>
2426                     <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG64>
2427                     <VEQUAL? TEMP54 REG7 + TAG62>
2428                     <DEAD TEMP54>
2429 TAG64
2430                     <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
2431                     <EMPUV? TEMP43 - TAG63>
2432                     <JUMP + PHRASE60>
2433 TAG62
2434                     <NTHUV TEMP26 3 = TEMP43>
2435                     <TYPE? TEMP43 <TYPE-CODE LOCAL-NAME> - PHRASE66>
2436                     <DEAD TEMP43>
2437                     <FRAME '\1a=?>
2438                     <RESTUV TEMP26 2 = TEMP43 (TYPE VECTOR)>
2439                     <DEAD TEMP26>
2440                     <CHTYPE TEMP43 <TYPE-CODE VECTOR> = STACK>
2441                     <DEAD TEMP43>
2442                     <RESTUV ITM5 2 = TEMP54 (TYPE VECTOR)>
2443                     <DEAD ITM5>
2444                     <CHTYPE TEMP54 <TYPE-CODE VECTOR> = STACK>
2445                     <DEAD TEMP54>
2446                     <CALL '\1a=? 2 = TEMP13>
2447                     <VEQUAL? TEMP13 0 + PHRASE66>
2448                     <DEAD TEMP13>
2449                     <FRAME '\1aELIMINATE>
2450                     <NTHUV NEW-T4 1 = STACK>
2451                     <CALL '\1aELIMINATE 1 = TEMP13>
2452                     <PUTUV NEW-T4 1 TEMP13>
2453                     <DEAD NEW-T4 TEMP13>
2454                     <FRAME '\1aELIMINATE>
2455                     <NTHUV TT29 1 = STACK>
2456                     <CALL '\1aELIMINATE 1 = TEMP13>
2457                     <PUTUV TT29 1 TEMP13>
2458                     <DEAD TT29 TEMP13>
2459 PHRASE66
2460                     <RETURN 'T>
2461 PHRASE60
2462                     <EQUAL? OP31 'DMOVEM - PHRASE72>
2463                     <DEAD OP31>
2464                     <FRAME '\1aGETPROP>
2465                     <PUSH REG7>
2466                     <PUSH 'AC-PAIR>
2467                     <CALL '\1aGETPROP 2 = REG210>
2468                     <TYPE? REG210 <TYPE-CODE FALSE> + PHRASE72>
2469                     <SET OP31 TEMP26>
2470                     <EMPUV? OP31 + PHRASE72>
2471                     <LOOP (REG210 VALUE) (OP31 LENGTH VALUE)>
2472 TAG76
2473                     <NTHUV OP31 1 = TEMP43>
2474                     <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG77>
2475                     <VEQUAL? TEMP43 REG210 + TAG75>
2476                     <DEAD TEMP43>
2477 TAG77
2478                     <RESTUV OP31 1 = OP31 (TYPE VECTOR)>
2479                     <EMPUV? OP31 - TAG76>
2480                     <JUMP + PHRASE72>
2481 TAG75
2482                     <RETURN 'T>
2483 PHRASE72
2484                     <FRAME '\1aUNCONDITIONAL-BRANCH?>
2485                     <PUSH TEMP26>
2486                     <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP43>
2487                     <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE80>
2488                     <DEAD TEMP43>
2489                     <VEQUAL? AFT-SKIP9 0 - PHRASE80>
2490                     <DEAD AFT-SKIP9>
2491                     <FRAME '\1aELIMINATE>
2492                     <NTHUV NEW-T4 1 = STACK>
2493                     <CALL '\1aELIMINATE 1 = TEMP43>
2494                     <PUTUV NEW-T4 1 TEMP43>
2495                     <DEAD NEW-T4 TEMP43>
2496                     <RETURN 'T>
2497 PHRASE80
2498                     <VEQUAL? BOTH?6 0 + BOOL86>
2499                     <SET OP31 TEMP26>
2500                     <TYPE REG210 = TEMP43>
2501                     <EMPUV? OP31 + TAG88>
2502                     <LOOP (REG210 VALUE) (TEMP43 VALUE) (OP31 LENGTH VALUE)>
2503 TAG89
2504                     <NTHUV OP31 1 = TEMP53>
2505                     <TYPE? TEMP53 TEMP43 - TAG90>
2506                     <VEQUAL? TEMP53 REG210 + TAG95>
2507                     <DEAD TEMP53>
2508 TAG90
2509                     <RESTUV OP31 1 = OP31 (TYPE VECTOR)>
2510                     <EMPUV? OP31 - TAG89>
2511 TAG88
2512                     <FRAME '\1aMEMBER>
2513                     <PUSH TEMP13>
2514                     <PUSH TEMP26>
2515                     <CALL '\1aMEMBER 2 = OP31>
2516                     <TYPE? OP31 <TYPE-CODE FALSE> - TAG95>
2517                     <DEAD OP31>
2518 BOOL86
2519                     <SET OP31 TEMP26>
2520                     <EMPUV? OP31 + PHRASE84>
2521                     <LOOP (REG7 VALUE) (OP31 LENGTH VALUE)>
2522 TAG96
2523                     <NTHUV OP31 1 = TEMP43>
2524                     <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG97>
2525                     <VEQUAL? TEMP43 REG7 + TAG95>
2526                     <DEAD TEMP43>
2527 TAG97
2528                     <RESTUV OP31 1 = OP31 (TYPE VECTOR)>
2529                     <EMPUV? OP31 - TAG96>
2530                     <JUMP + PHRASE84>
2531 TAG95
2532                     <RETURN 'T>
2533 PHRASE84
2534                     <FRAME '\1aCONDITIONAL-SKIP?>
2535                     <PUSH TEMP26>
2536                     <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP43>
2537                     <VEQUAL? TEMP43 0 - BOOL99>
2538                     <DEAD TEMP43>
2539                     <FRAME '\1aUNCONDITIONAL-SKIP?>
2540                     <PUSH TEMP26>
2541                     <DEAD TEMP26>
2542                     <CALL '\1aUNCONDITIONAL-SKIP? 1 = TEMP43>
2543                     <VEQUAL? TEMP43 0 + PHRASE98>
2544                     <DEAD TEMP43>
2545 BOOL99
2546                     <SET AFT-SKIP9 'T (TYPE ATOM)>
2547                     <SET TEMP26 AFT-SKIP9>
2548                     <JUMP + PHRASE102>
2549 PHRASE98
2550                     <SET AFT-SKIP9 %<> (TYPE FALSE)>
2551                     <SET TEMP26 AFT-SKIP9>
2552 PHRASE102
2553                     <RESTUV TEMP28 1 = TEMP28 (TYPE VECTOR)>
2554                     <JUMP + MAP19>
2555 MAPAP22
2556                     <RETURN TEMP26>
2557                     <DEAD TEMP26>
2558                     <END \1aMOVE-NEEDED?>
2559 #WORD *30337661220*
2560 <GFCN \1aBRANCH-CHAIN ("VALUE" <OR FALSE <<PRIMTYPE VECTOR> ANY OLD-AND-USELESS>> <PRIMTYPE VECTOR>) NEW-T4>
2561                     <TEMP TAG15:REF JUMP16 TEMP9 (FLUSHIT8 'T) LINE21 TEMP24 TEMP30>
2562                     <INTGO>
2563                     <NTHUV NEW-T4 1 = TAG15 (TYPE REF)>
2564                     <NTHUV NEW-T4 2 = JUMP16 (TYPE INST)>
2565                     <LENUV JUMP16 = TEMP9 (TYPE FIX)>
2566                     <NTHUV JUMP16 TEMP9 = JUMP16 (TYPE REF)>
2567                     <DEAD TEMP9>
2568                     <NTHUV TAG15 3 = TEMP9>
2569                     <LOOP>
2570 MAP11
2571                     <INTGO>
2572                     <EMPTY? TEMP9 + MAPAP14>
2573                     <NTH1 TEMP9 = LINE21>
2574                     <NTHUV LINE21 1 = TEMP24>
2575                     <TYPE? TEMP24 <TYPE-CODE SGFRM> - PHRASE23>
2576                     <DEAD TEMP24>
2577                     <SET FLUSHIT8 %<> (TYPE FALSE)>
2578                     <JUMP + PHRASE25>
2579 PHRASE23
2580                     <NTHUV LINE21 1 = TEMP24>
2581                     <TYPE? TEMP24 <TYPE-CODE GFRM> + TAG28>
2582                     <TYPE? TEMP24 <TYPE-CODE SBFRM> - PHRASE27>
2583                     <DEAD TEMP24>
2584 TAG28
2585                     <NTHUV JUMP16 1 = TEMP24>
2586                     <NTHUV LINE21 1 = TEMP30>
2587                     <CHTYPE TEMP24 <TYPE TEMP30> = TEMP24>
2588                     <DEAD TEMP30>
2589                     <PUTUV LINE21 1 TEMP24>
2590                     <DEAD TEMP24>
2591 PHRASE27
2592                     <LENUV LINE21 = TEMP24 (TYPE FIX)>
2593                     <PUTUV LINE21 TEMP24 JUMP16>
2594                     <DEAD TEMP24>
2595                     <PUSH LINE21>
2596                     <DEAD LINE21>
2597                     <SET TEMP30 1 (TYPE FIX)>
2598                     <NTHUV JUMP16 3 = TEMP24>
2599                     <TYPE TEMP24 = LINE21>
2600                     <AND LINE21 7 = LINE21>
2601                     <VEQUAL? LINE21 1 + TAG33>
2602                     <DEAD LINE21>
2603                     <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP30 VALUE)>
2604 TAG39
2605                     <INTGO>
2606                     <EMPTY? TEMP24 + TAG38>
2607                     <NTH1 TEMP24 = STACK>
2608                     <REST1 TEMP24 = TEMP24>
2609                     <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
2610                     <JUMP + TAG39>
2611 TAG38
2612                     <LIST TEMP30 = TEMP24 (TYPE LIST)>
2613                     <DEAD TEMP30>
2614                     <JUMP + TAG35>
2615 TAG33
2616                     <LOOP>
2617 TAG36
2618                     <VEQUAL? TEMP30 0 + TAG35>
2619                     <POP = LINE21>
2620                     <CONS LINE21 TEMP24 = TEMP24 (TYPE LIST)>
2621                     <DEAD LINE21>
2622                     <SUB TEMP30 1 = TEMP30 (TYPE FIX)>
2623                     <JUMP + TAG36>
2624 TAG35
2625                     <PUTUV JUMP16 3 TEMP24>
2626                     <DEAD TEMP24>
2627 PHRASE25
2628                     <REST1 TEMP9 = TEMP9>
2629                     <JUMP + MAP11>
2630 MAPAP14
2631                     <SET TEMP9 FLUSHIT8>
2632                     <DEAD FLUSHIT8>
2633                     <VEQUAL? TEMP9 0 + PHRASE44>
2634                     <NTHUV TAG15 1 = STACK>
2635                     <DEAD TAG15>
2636                     <UBLOCK <TYPE-CODE VECTOR> 1 = FLUSHIT8>
2637                     <CHTYPE FLUSHIT8 <TYPE-CODE OLD-AND-USELESS> = FLUSHIT8>
2638                     <PUTUV NEW-T4 1 FLUSHIT8>
2639                     <DEAD FLUSHIT8>
2640                     <FRAME '\1aUNCONDITIONAL-BRANCH?>
2641                     <BACKU NEW-T4 1 = FLUSHIT8>
2642                     <NTHUV FLUSHIT8 1 = STACK>
2643                     <DEAD FLUSHIT8>
2644                     <CALL '\1aUNCONDITIONAL-BRANCH? 1 = TEMP9>
2645                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE44>
2646                     <FRAME '\1aCONDITIONAL-SKIP?>
2647                     <BACKU NEW-T4 2 = FLUSHIT8>
2648                     <NTHUV FLUSHIT8 1 = STACK>
2649                     <DEAD FLUSHIT8>
2650                     <CALL '\1aCONDITIONAL-SKIP? 1 = FLUSHIT8>
2651                     <VEQUAL? FLUSHIT8 0 + TAG48>
2652                     <DEAD FLUSHIT8>
2653                     <RETURN %<>>
2654 TAG48
2655                     <FRAME '\1aELIMINATE>
2656                     <NTHUV NEW-T4 2 = STACK>
2657                     <CALL '\1aELIMINATE 1 = FLUSHIT8>
2658                     <PUTUV NEW-T4 2 FLUSHIT8>
2659                     <DEAD FLUSHIT8>
2660                     <SET TEMP9 NEW-T4>
2661                     <DEAD NEW-T4>
2662 PHRASE44
2663                     <RETURN TEMP9>
2664                     <DEAD TEMP9>
2665                     <END \1aBRANCH-CHAIN>
2666 #WORD *21551514432*
2667 <GFCN \1aLDB-REGISTER-USED? ("VALUE" <OR ATOM FALSE> INST ATOM <OR FALSE ATOM>) ITM4 REG15 REG26>
2668                     <TEMP TEMP14 CNST7 CONSTANT8>
2669                     <INTGO>
2670                     <NTHUV ITM4 3 = TEMP14>
2671                     <TYPE? TEMP14 <TYPE-CODE REF> + TAG15>
2672                     <DEAD TEMP14>
2673                     <SET TEMP14 %<> (TYPE FALSE)>
2674                     <JUMP + BOOL12>
2675 TAG15
2676                     <NTHUV ITM4 3 = TEMP14 (TYPE REF)>
2677                     <DEAD ITM4>
2678                     <NTHUV TEMP14 1 = TEMP14>
2679 BOOL12
2680                     <SET CNST7 TEMP14>
2681                     <DEAD TEMP14>
2682                     <GVAL 'CONSTANT-VECTOR = CONSTANT8>
2683                     <TYPE? CNST7 <TYPE-CODE CONSTANT-BUCKET> - TAG20>
2684                     <EMPL? CONSTANT8 + TAG20>
2685                     <LOOP (CNST7 VALUE) (CONSTANT8 VALUE)>
2686 TAG22
2687                     <NTHL CONSTANT8 1 = TEMP14>
2688                     <VEQUAL? TEMP14 CNST7 + TAG21>
2689                     <DEAD TEMP14>
2690                     <RESTL CONSTANT8 1 = CONSTANT8 (TYPE LIST)>
2691                     <EMPL? CONSTANT8 - TAG22>
2692 TAG20
2693                     <SET CONSTANT8 %<> (TYPE FALSE)>
2694 TAG21
2695                     <VEQUAL? CONSTANT8 0 + PHRASE18>
2696                     <RESTL CONSTANT8 1 = TEMP14 (TYPE LIST)>
2697                     <DEAD CONSTANT8>
2698                     <NTHL TEMP14 1 = TEMP14 (TYPE CONSTANT-BUCKET)>
2699 PHRASE18
2700                     <RETURN 'T>
2701                     <END \1aLDB-REGISTER-USED?>
2702 <PUTPROP A1* AC-PAIR A2*>
2703
2704 <PUTPROP A2* AC-PAIR A1*>
2705
2706 <PUTPROP B1* AC-PAIR B2*>
2707
2708 <PUTPROP B2* AC-PAIR B1*>
2709
2710 <PUTPROP C1* AC-PAIR C2*>
2711
2712 <PUTPROP C2* AC-PAIR C1*>
2713
2714 #WORD *25356606457*
2715 <GFCN \1aL-LOOP? ("VALUE" <OR ATOM FALSE> <PRIMTYPE VECTOR>) TUP4>
2716                     <TEMP LAB5 TEMP15 TEMP17 TEMP28 TEMP29>
2717                     <INTGO>
2718                     <NTHUV TUP4 1 = LAB5>
2719                     <SET TEMP15 %<> (TYPE FALSE)>
2720                     <RESTUV TUP4 1 = TEMP17 (TYPE VECTOR)>
2721                     <DEAD TUP4>
2722                     <CHTYPE TEMP17 <TYPE-CODE VECTOR> = TEMP17>
2723                     <LOOP>
2724 MAP7
2725                     <INTGO>
2726                     <EMPUV? TEMP17 + MAPAP10>
2727                     <SET TEMP15 TEMP17>
2728                     <NTHUV TEMP15 1 = TEMP15>
2729                     <TYPE? TEMP15 <TYPE-CODE REF> - PHRASE21>
2730                     <RETURN %<>>
2731 PHRASE21
2732                     <TYPE LAB5 = TEMP28>
2733                     <EMPTY? TEMP15 + TAG24>
2734                     <LOOP (LAB5 VALUE) (TEMP28 VALUE) (TEMP15 LENGTH VALUE TYPE)>
2735 TAG26
2736                     <NTH1 TEMP15 = TEMP29>
2737                     <TYPE? TEMP29 TEMP28 - TAG27>
2738                     <VEQUAL? TEMP29 LAB5 + TAG25>
2739                     <DEAD TEMP29>
2740 TAG27
2741                     <REST1 TEMP15 = TEMP15>
2742                     <EMPTY? TEMP15 - TAG26>
2743 TAG24
2744                     <SET TEMP15 %<> (TYPE FALSE)>
2745                     <JUMP + PHRASE23>
2746 TAG25
2747                     <RETURN 'T>
2748 PHRASE23
2749                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
2750                     <JUMP + MAP7>
2751 MAPAP10
2752                     <RETURN TEMP15>
2753                     <DEAD TEMP15>
2754                     <END \1aL-LOOP?>
2755 <SETG CIRC-LOOP? <>>
2756
2757 #WORD *30633462417*
2758 <GFCN \1aELIMINATE ("VALUE" OLD-AND-USELESS ANY) STATEMENT4>
2759                     <TEMP TEMP9 LAST5 TEMP33 TEMP37 LINE38>
2760                     <INTGO>
2761                     <GEN-LVAL 'PREVIOUS = TEMP9>
2762                     <TYPE? TEMP9 <TYPE-CODE INST> - PHRASE7>
2763                     <DEAD TEMP9>
2764                     <FRAME '\1aCONDITIONAL-SKIP?>
2765                     <GEN-LVAL 'PREVIOUS = STACK>
2766                     <CALL '\1aCONDITIONAL-SKIP? 1 = TEMP9>
2767                     <VEQUAL? TEMP9 0 + PHRASE7>
2768                     <DEAD TEMP9>
2769                     <FRAME '\1aMOVE?>
2770                     <PUSH STATEMENT4>
2771                     <CALL '\1aMOVE? 1 = TEMP9>
2772                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE7>
2773                     <DEAD TEMP9>
2774                     <FRAME '\1aPUT>
2775                     <GEN-LVAL 'PREVIOUS = STACK>
2776                     <PUSH 1>
2777                     <PUSH 'MOVE>
2778                     <CALL '\1aPUT 3>
2779 PHRASE7
2780                     <TYPE? STATEMENT4 <TYPE-CODE REF> - PHRASE21>
2781                     <PUTUV STATEMENT4 3 ()>
2782                     <NTHUV STATEMENT4 1 = STACK>
2783                     <DEAD STATEMENT4>
2784                     <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP9>
2785                     <CHTYPE TEMP9 <TYPE-CODE OLD-AND-USELESS> = TEMP9>
2786                     <RETURN TEMP9>
2787                     <DEAD TEMP9>
2788 PHRASE21
2789                     <TYPE? STATEMENT4 <TYPE-CODE INST> - PHRASE24>
2790                     <LENUV STATEMENT4 = TEMP9 (TYPE FIX)>
2791                     <NTHUV STATEMENT4 TEMP9 = LAST5>
2792                     <DEAD TEMP9>
2793                     <TYPE? LAST5 <TYPE-CODE REF> - PHRASE24>
2794                     <LENUV LAST5 = TEMP9 (TYPE FIX)>
2795                     <VEQUAL? TEMP9 3 - PHRASE24 (TYPE FIX)>
2796                     <DEAD TEMP9>
2797                     <NTHUV LAST5 3 = TEMP9>
2798                     <TYPE? TEMP9 <TYPE-CODE LIST> - PHRASE24>
2799                     <DEAD TEMP9>
2800                     <SET TEMP9 () (TYPE LIST)>
2801                     <SET TEMP33 () (TYPE LIST)>
2802                     <NTHUV LAST5 3 = TEMP37 (TYPE LIST)>
2803                     <LOOP>
2804 MAP28
2805                     <INTGO>
2806                     <EMPL? TEMP37 + MAPAP31>
2807                     <NTHL TEMP37 1 = LINE38>
2808                     <EQUAL? LINE38 STATEMENT4 + PHRASE42>
2809                     <CONS LINE38 () = LINE38 (TYPE LIST)>
2810                     <EMPL? TEMP9 - TAG45>
2811                     <SET TEMP9 LINE38 (TYPE LIST)>
2812                     <JUMP + TAG46>
2813 TAG45
2814                     <PUTREST TEMP33 LINE38>
2815                     <DEAD TEMP33>
2816 TAG46
2817                     <SET TEMP33 LINE38 (TYPE LIST)>
2818                     <DEAD LINE38>
2819 PHRASE42
2820                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
2821                     <JUMP + MAP28>
2822 MAPAP31
2823                     <PUTUV LAST5 3 TEMP9 (TYPE LIST)>
2824                     <DEAD TEMP9>
2825                     <LENUV STATEMENT4 = TEMP37 (TYPE FIX)>
2826                     <NTHUV LAST5 1 = STACK>
2827                     <DEAD LAST5>
2828                     <UBLOCK <TYPE-CODE VECTOR> 1 = LINE38>
2829                     <CHTYPE LINE38 <TYPE-CODE REF> = LINE38>
2830                     <PUTUV STATEMENT4 TEMP37 LINE38>
2831                     <DEAD TEMP37 LINE38>
2832                     <CHTYPE STATEMENT4 <TYPE-CODE OLD-AND-USELESS> = TEMP9>
2833                     <DEAD STATEMENT4>
2834                     <RETURN TEMP9>
2835                     <DEAD TEMP9>
2836 PHRASE24
2837                     <CHTYPE STATEMENT4 <TYPE-CODE OLD-AND-USELESS> = TEMP9>
2838                     <DEAD STATEMENT4>
2839                     <RETURN TEMP9>
2840                     <DEAD TEMP9>
2841                     <END \1aELIMINATE>
2842 <PROG () <MAKE-OPPOSITES CAIGE CAIL> <MAKE-OPPOSITES CAIN CAIE> <MAKE-OPPOSITES CAIG CAILE> <MAKE-OPPOSITES CAMGE CAML> <MAKE-OPPOSITES CAMN CAME> <MAKE-OPPOSITES CAMG CAMLE> <MAKE-OPPOSITES SKIPLE SKIPG> <MAKE-OPPOSITES SKIPGE SKIPL> <MAKE-OPPOSITES SKIPN SKIPE> <MAKE-OPPOSITES TRNN TRNE> <MAKE-OPPOSITES TLNN TLNE> <MAKE-OPPOSITES JUMPGE JUMPL> <MAKE-OPPOSITES JUMPN JUMPE> <MAKE-OPPOSITES JUMPG JUMPLE> <MAKE-OPPOSITES SOJG SOJLE> <MAKE-OPPOSITES SOJL SOJGE> <MAKE-OPPOSITES SOJE SOJN>>