mim/development/mim/mimc/mapgen.mima

   1
   2 <PACKAGE "MAPGEN">
   3
   4 <ENTRY MAPFR-GEN MAPRET-STOP-GEN MAPLEAVE-GEN MTUPLE-GEN MBINDERS MPARGS-GEN MOPTG MOPTG2>
   5
   6 <USE "COMPDEC" "CODGEN" "CHKDCL" "CARGEN" "NEWREP" "STRGEN" "MIMGEN" "ADVMESS">
   7
   8 " Definitions of offsets into MAPINFO vector used by MAP hackers inferiors."
   9
  10 <SETG MAP-STRS 1>
  11
  12 <SETG MAP-FR 2>
  13
  14 <SETG MAP-TAG 3>
  15
  16 <SETG MAP-TEMPS 4>
  17
  18 <SETG MAP-F? 5>
  19
  20 <SETG MAP-FTMP 6>
  21
  22 <SETG MAP-EXTMP 7>
  23
  24 <SETG MAP-SEG? 8>
  25
  26 <MANIFEST MAP-FR MAP-TAG MAP-TGL MAP-SRC MAP-TEMPS MAP-F? MAP-FTMP MAP-EXTMP MAP-SEG? MAP-STRS>
  27
  28 <PUT-DECL MPINFO '<VECTOR <LIST [REST NODE]> <OR FALSE ATOM> ATOM <LIST [REST TEMP]> <OR FALSE ATOM> TEMP TEMP <LIST [REST <OR ATOM FALSE>]>>>
  29
  30 "\f"
  31
  32 #WORD *632430173*
  33                     <GFCN \1aMAPFR-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NF10 BR11 DIR12>
  34                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
  35 OPT4
  36                     <PUSH %<>>
  37 OPT5
  38                     <PUSH %<>>
  39 OPT6
  40                     <PUSH %<>>
  41 OPT7
  42                     <TEMP K13:LIST TEMP15 COD14:FIX FAP22:NODE TEMP21:LBIND INRAP24:NODE MAYBE-FALSE30 NARG31:FIX TEMP34 MAPEND36:ATOM MAPLP38:ATOM SUBRC40 FOONARG42 TEMP50 TEMP59 FTMP62:TEMP EXTMP64:TEMP TEMP80 TEMP78 X82 SEG?71:LIST FF?29 TMP70:TEMP>
  43                     <INTGO>
  44                     <NTHUV NOD8 5 = K13 (TYPE LIST)>
  45                     <RESTL K13 1 = TEMP15 (TYPE LIST)>
  46                     <NTHL TEMP15 1 = TEMP15 (TYPE NODE)>
  47                     <NTHUV TEMP15 1 = COD14 (TYPE FIX)>
  48                     <DEAD TEMP15>
  49                     <VEQUAL? COD14 51 - PHRASE17 (TYPE FIX)>
  50                     <FRAME '\1aHMAPFR>
  51                     <PUSH NOD8>
  52                     <DEAD NOD8>
  53                     <PUSH WHERE9>
  54                     <DEAD WHERE9>
  55                     <PUSH K13>
  56                     <DEAD K13>
  57                     <PUSH NF10>
  58                     <DEAD NF10>
  59                     <PUSH BR11>
  60                     <DEAD BR11>
  61                     <PUSH DIR12>
  62                     <DEAD DIR12>
  63                     <CALL '\1aHMAPFR 6 = TEMP15>
  64                     <RETURN TEMP15>
  65                     <DEAD TEMP15>
  66 PHRASE17
  67                     <NTHL K13 1 = FAP22 (TYPE NODE)>
  68                     <GETS 'BIND = TEMP21 (TYPE LBIND)>
  69                     <BBIND 'MPINFO 'MPINFO 'FIX>
  70                     <RESTL K13 1 = TEMP15 (TYPE LIST)>
  71                     <NTHL TEMP15 1 = INRAP24 (TYPE NODE)>
  72                     <DEAD TEMP15>
  73                     <BBIND 'STACKED 'FIX 'FIX 0>
  74                     <SET MAYBE-FALSE30 %<> (TYPE FALSE)>
  75                     <RESTL K13 1 = K13 (TYPE LIST)>
  76                     <RESTL K13 1 = K13 (TYPE LIST)>
  77                     <LENL K13 = NARG31 (TYPE FIX)>
  78                     <NTHUV NOD8 9 = TEMP15>
  79                     <GVAL 'MAPR = TEMP34>
  80                     <EQUAL? TEMP15 TEMP34 - TAG33>
  81                     <DEAD TEMP15 TEMP34>
  82                     <SET TEMP15 'T (TYPE ATOM)>
  83                     <JUMP + TAG35>
  84 TAG33
  85                     <SET TEMP15 %<> (TYPE FALSE)>
  86 TAG35
  87                     <FRAME '\1aMAKE-TAG>
  88                     <PUSH "MAP">
  89                     <CALL '\1aMAKE-TAG 1 = MAPEND36>
  90                     <FRAME '\1aMAKE-TAG>
  91                     <PUSH "MAP">
  92                     <CALL '\1aMAKE-TAG 1 = MAPLP38>
  93                     <FRAME '\1aAP?>
  94                     <PUSH FAP22>
  95                     <CALL '\1aAP? 1 = SUBRC40>
  96                     <SET FOONARG42 NARG31>
  97                     <SET TEMP50 () (TYPE LIST)>
  98                     <SET TEMP34 () (TYPE LIST)>
  99                     <LOOP>
 100 MAP45
 101                     <INTGO>
 102                     <SUB FOONARG42 1 = FOONARG42 (TYPE FIX)>
 103                     <LESS? FOONARG42 0 + MAPAP48 (TYPE FIX)>
 104                     <FRAME '\1aGEN-TEMP>
 105                     <PUSH %<>>
 106                     <CALL '\1aGEN-TEMP 1 = TEMP59>
 107                     <CONS TEMP59 () = TEMP59 (TYPE LIST)>
 108                     <EMPL? TEMP50 - TAG60>
 109                     <SET TEMP50 TEMP59 (TYPE LIST)>
 110                     <JUMP + TAG61>
 111 TAG60
 112                     <PUTREST TEMP34 TEMP59>
 113                     <DEAD TEMP34>
 114 TAG61
 115                     <SET TEMP34 TEMP59 (TYPE LIST)>
 116                     <DEAD TEMP59>
 117                     <JUMP + MAP45>
 118 MAPAP48
 119                     <SET FOONARG42 TEMP50>
 120                     <DEAD TEMP50>
 121                     <FRAME '\1aGEN-TEMP>
 122                     <PUSH %<>>
 123                     <CALL '\1aGEN-TEMP 1 = FTMP62>
 124                     <FRAME '\1aGEN-TEMP>
 125                     <PUSH %<>>
 126                     <CALL '\1aGEN-TEMP 1 = EXTMP64>
 127                     <SET TEMP34 %<> (TYPE FALSE)>
 128                     <EQUAL? WHERE9 'FLUSHED - TAG68>
 129                     <SET TEMP50 'T (TYPE ATOM)>
 130                     <JUMP + TAG69>
 131 TAG68
 132                     <SET TEMP50 %<> (TYPE FALSE)>
 133 TAG69
 134                     <SET TEMP80 () (TYPE LIST)>
 135                     <SET TEMP78 () (TYPE LIST)>
 136                     <SET TEMP59 FOONARG42 (TYPE LIST)>
 137                     <LOOP>
 138 MAP73
 139                     <INTGO>
 140                     <EMPL? TEMP59 + MAPAP76>
 141                     <CONS %<> () = X82 (TYPE LIST)>
 142                     <EMPL? TEMP80 - TAG84>
 143                     <SET TEMP80 X82 (TYPE LIST)>
 144                     <JUMP + TAG85>
 145 TAG84
 146                     <PUTREST TEMP78 X82>
 147                     <DEAD TEMP78>
 148 TAG85
 149                     <SET TEMP78 X82 (TYPE LIST)>
 150                     <DEAD X82>
 151                     <RESTL TEMP59 1 = TEMP59 (TYPE LIST)>
 152                     <JUMP + MAP73>
 153 MAPAP76
 154                     <SET SEG?71 TEMP80>
 155                     <DEAD TEMP80>
 156                     <SET TEMP80 %<> (TYPE FALSE)>
 157                     <EQUAL? WHERE9 'FLUSHED - PHRASE89>
 158                     <SET WHERE9 'FLUSHED (TYPE ATOM)>
 159                     <JUMP + PHRASE90>
 160 PHRASE89
 161                     <EQUAL? WHERE9 'DONT-CARE - PHRASE90>
 162                     <SET WHERE9 FTMP62>
 163 PHRASE90
 164                     <FRAME '\1aDO-FIRST-SETUP>
 165                     <PUSH FAP22>
 166                     <PUSH WHERE9>
 167                     <PUSH FTMP62>
 168                     <PUSH EXTMP64>
 169                     <PUSH TEMP50>
 170                     <CALL '\1aDO-FIRST-SETUP 5 = TEMP78>
 171                     <TYPE? TEMP78 <TYPE-CODE FALSE> - TAG95>
 172                     <NTHUV FAP22 1 = TEMP59 (TYPE FIX)>
 173                     <VEQUAL? TEMP59 71 - TAG94 (TYPE FIX)>
 174                     <DEAD TEMP59>
 175                     <SET FF?29 'T (TYPE ATOM)>
 176                     <JUMP + TAG95>
 177 TAG94
 178                     <SET FF?29 %<> (TYPE FALSE)>
 179 TAG95
 180                     <FRAME '\1aPUSH-STRUCS>
 181                     <PUSH K13>
 182                     <PUSH FOONARG42>
 183                     <PUSH SEG?71>
 184                     <CALL '\1aPUSH-STRUCS 3>
 185                     <TYPE? TEMP78 <TYPE-CODE FALSE> + PHRASE98>
 186                     <FRAME '\1aDO-FINAL-SETUP>
 187                     <PUSH FAP22>
 188                     <PUSH SUBRC40>
 189                     <PUSH FTMP62>
 190                     <PUSH EXTMP64>
 191                     <CALL '\1aDO-FINAL-SETUP 4 = MAYBE-FALSE30>
 192 PHRASE98
 193                     <VEQUAL? COD14 62 + PHRASE101 (TYPE FIX)>
 194                     <FRAME '\1aGEN>
 195                     <PUSH INRAP24>
 196                     <CALL '\1aGEN 1 = TEMP34>
 197 PHRASE101
 198                     <TYPE? TEMP78 <TYPE-CODE FALSE> + PHRASE114>
 199                     <TYPE? SUBRC40 <TYPE-CODE FALSE> + TAG107>
 200                     <SET TEMP59 [VECTOR UVECTOR TUPLE STRING BYTES] (TYPE VECTOR)>
 201                     <TYPE? SUBRC40 <TYPE-CODE ATOM> - TAG107>
 202                     <LOOP (SUBRC40 VALUE) (TEMP59 LENGTH VALUE)>
 203 TAG108
 204                     <NTHUV TEMP59 1 = X82>
 205                     <VEQUAL? X82 SUBRC40 + PHRASE114>
 206                     <DEAD X82>
 207                     <RESTUV TEMP59 1 = TEMP59 (TYPE VECTOR)>
 208                     <EMPUV? TEMP59 - TAG108>
 209 TAG107
 210                     <FRAME '\1aSTART-FRAME>
 211                     <SET TEMP59 SUBRC40>
 212                     <TYPE? TEMP59 <TYPE-CODE FALSE> - PHRASE112>
 213                     <SET TEMP59 'APPLY (TYPE ATOM)>
 214 PHRASE112
 215                     <PUSH TEMP59>
 216                     <DEAD TEMP59>
 217                     <CALL '\1aSTART-FRAME 1>
 218                     <TYPE? SUBRC40 <TYPE-CODE FALSE> - PHRASE114>
 219                     <FRAME '\1aPUSH>
 220                     <PUSH EXTMP64>
 221                     <CALL '\1aPUSH 1>
 222 PHRASE114
 223                     <FRAME '\1aIEMIT>
 224                     <PUSH '`LOOP>
 225                     <CALL '\1aIEMIT 1>
 226                     <FRAME '\1aLABEL-TAG>
 227                     <PUSH MAPLP38>
 228                     <CALL '\1aLABEL-TAG 1>
 229                     <FRAME '\1aIEMIT>
 230                     <PUSH '`INTGO>
 231                     <CALL '\1aIEMIT 1>
 232                     <FRAME '\1aEMPTY-MAPF-CHECK>
 233                     <PUSH K13>
 234                     <PUSH FOONARG42>
 235                     <PUSH MAPEND36>
 236                     <PUSH SEG?71>
 237                     <CALL '\1aEMPTY-MAPF-CHECK 4>
 238                     <PUSH K13>
 239                     <PUSH TEMP15>
 240                     <DEAD TEMP15>
 241                     <PUSH MAPEND36>
 242                     <PUSH FOONARG42>
 243                     <PUSH TEMP78>
 244                     <PUSH FTMP62>
 245                     <PUSH EXTMP64>
 246                     <PUSH SEG?71>
 247                     <UBLOCK <TYPE-CODE VECTOR> 8 = TEMP59>
 248                     <NTHR 'MPINFO 2 = X82 (RECORD-TYPE ATOM) (TYPE LBIND)>
 249                     <PUTR X82 1 TEMP59 (RECORD-TYPE LBIND)>
 250                     <DEAD X82 TEMP59>
 251                     <VEQUAL? COD14 62 - PHRASE124 (TYPE FIX)>
 252                     <DEAD COD14>
 253                     <FRAME '\1aOR?>
 254                     <SET X82 0 (TYPE FIX)>
 255                     <SET TEMP59 SEG?71>
 256                     <LOOP (TEMP59 VALUE) (X82 VALUE)>
 257 TAG127
 258                     <INTGO>
 259                     <EMPL? TEMP59 + TAG126>
 260                     <NTHL TEMP59 1 = STACK>
 261                     <RESTL TEMP59 1 = TEMP59 (TYPE LIST)>
 262                     <ADD X82 1 = X82 (TYPE FIX)>
 263                     <JUMP + TAG127>
 264 TAG126
 265                     <CALL '\1aOR? X82 = X82>
 266                     <TYPE? X82 <TYPE-CODE FALSE> - PHRASE124>
 267                     <DEAD X82>
 268                     <TYPE? TEMP78 <TYPE-CODE FALSE> + PHRASE130>
 269                     <FRAME '\1aGEN>
 270                     <NTHUV INRAP24 5 = X82 (TYPE LIST)>
 271                     <DEAD INRAP24>
 272                     <NTHL X82 1 = STACK (TYPE NODE)>
 273                     <DEAD X82>
 274                     <GVAL 'POP-STACK = STACK>
 275                     <CALL '\1aGEN 2>
 276                     <FRAME '\1aIEMIT>
 277                     <PUSH '`ADD>
 278                     <PUSH FTMP62>
 279                     <PUSH 1>
 280                     <PUSH '=>
 281                     <PUSH FTMP62>
 282                     <PUSH (`TYPE FIX)>
 283                     <CALL '\1aIEMIT 6>
 284                     <JUMP + PHRASE193>
 285 PHRASE130
 286                     <VEQUAL? FF?29 0 + PHRASE133>
 287                     <FRAME '\1aDO-FUNNY-HACK>
 288                     <FRAME '\1aGEN>
 289                     <NTHUV INRAP24 5 = X82 (TYPE LIST)>
 290                     <NTHL X82 1 = STACK (TYPE NODE)>
 291                     <DEAD X82>
 292                     <PUSH 'DONT-CARE>
 293                     <CALL '\1aGEN 2 = STACK>
 294                     <PUSH NOD8>
 295                     <DEAD NOD8>
 296                     <PUSH FAP22>
 297                     <DEAD FAP22>
 298                     <NTHUV INRAP24 5 = X82 (TYPE LIST)>
 299                     <DEAD INRAP24>
 300                     <NTHL X82 1 = STACK (TYPE NODE)>
 301                     <DEAD X82>
 302                     <PUSH FTMP62>
 303                     <PUSH EXTMP64>
 304                     <CALL '\1aDO-FUNNY-HACK 6>
 305                     <JUMP + PHRASE193>
 306 PHRASE133
 307                     <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE136>
 308                     <FRAME '\1aGEN>
 309                     <NTHUV INRAP24 5 = X82 (TYPE LIST)>
 310                     <DEAD INRAP24>
 311                     <NTHL X82 1 = STACK (TYPE NODE)>
 312                     <DEAD X82>
 313                     <PUSH FTMP62>
 314                     <CALL '\1aGEN 2>
 315                     <JUMP + PHRASE193>
 316 PHRASE136
 317                     <FRAME '\1aGEN>
 318                     <NTHUV INRAP24 5 = X82 (TYPE LIST)>
 319                     <DEAD INRAP24>
 320                     <NTHL X82 1 = STACK (TYPE NODE)>
 321                     <DEAD X82>
 322                     <PUSH 'FLUSHED>
 323                     <CALL '\1aGEN 2>
 324                     <JUMP + PHRASE193>
 325 PHRASE124
 326                     <FRAME '\1aOR?>
 327                     <SET TEMP59 0 (TYPE FIX)>
 328                     <SET X82 SEG?71>
 329                     <LOOP (X82 VALUE) (TEMP59 VALUE)>
 330 TAG144
 331                     <INTGO>
 332                     <EMPL? X82 + TAG143>
 333                     <NTHL X82 1 = STACK>
 334                     <RESTL X82 1 = X82 (TYPE LIST)>
 335                     <ADD TEMP59 1 = TEMP59 (TYPE FIX)>
 336                     <JUMP + TAG144>
 337 TAG143
 338                     <CALL '\1aOR? TEMP59 = TEMP59>
 339                     <TYPE? TEMP59 <TYPE-CODE FALSE> + PHRASE142>
 340                     <DEAD TEMP59>
 341                     <FRAME '\1aGEN-TEMP>
 342                     <CALL '\1aGEN-TEMP 0 = TEMP80>
 343                     <FRAME '\1aIEMIT>
 344                     <PUSH '`SET>
 345                     <PUSH TEMP80>
 346                     <SET TEMP15 0 (TYPE FIX)>
 347                     <SET TEMP59 SEG?71 (TYPE LIST)>
 348                     <LOOP>
 349 MAP149
 350                     <INTGO>
 351                     <EMPL? TEMP59 + MAPAP152>
 352                     <NTHL TEMP59 1 = X82>
 353                     <TYPE? X82 <TYPE-CODE FALSE> + PHRASE159>
 354                     <DEAD X82>
 355                     <SET COD14 0 (TYPE FIX)>
 356                     <JUMP + PHRASE161>
 357 PHRASE159
 358                     <SET COD14 1 (TYPE FIX)>
 359 PHRASE161
 360                     <ADD TEMP15 COD14 = TEMP15>
 361                     <DEAD COD14>
 362                     <RESTL TEMP59 1 = TEMP59 (TYPE LIST)>
 363                     <JUMP + MAP149>
 364 MAPAP152
 365                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE163>
 366                     <SET TEMP59 1 (TYPE FIX)>
 367                     <JUMP + PHRASE164>
 368 PHRASE163
 369                     <SET TEMP59 0 (TYPE FIX)>
 370 PHRASE164
 371                     <ADD TEMP15 TEMP59 = STACK (TYPE FIX)>
 372                     <DEAD TEMP15 TEMP59>
 373                     <CALL '\1aIEMIT 3>
 374 PHRASE142
 375                     <FRAME '\1aSTART-FRAME>
 376                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE167>
 377                     <SET TEMP59 'APPLY (TYPE ATOM)>
 378                     <JUMP + PHRASE168>
 379 PHRASE167
 380                     <NTHUV INRAP24 5 = TEMP15 (TYPE LIST)>
 381                     <NTHL TEMP15 1 = TEMP15 (TYPE NODE)>
 382                     <NTHUV TEMP15 4 = TEMP59>
 383                     <DEAD TEMP15>
 384 PHRASE168
 385                     <PUSH TEMP59>
 386                     <DEAD TEMP59>
 387                     <CALL '\1aSTART-FRAME 1>
 388                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE170>
 389                     <FRAME '\1aPUSH>
 390                     <PUSH TEMP34>
 391                     <CALL '\1aPUSH 1>
 392 PHRASE170
 393                     <SET COD14 NARG31>
 394                     <LOOP>
 395 AGAIN174
 396                     <INTGO>
 397                     <FRAME '\1aMPARGS-GEN>
 398                     <PUSH NOD8>
 399                     <GVAL 'POP-STACK = STACK>
 400                     <PUSH TEMP80>
 401                     <CALL '\1aMPARGS-GEN 3>
 402                     <SUB COD14 1 = COD14 (TYPE FIX)>
 403                     <VEQUAL? COD14 0 - AGAIN174 (TYPE FIX)>
 404                     <FRAME '\1aMSUBR-CALL>
 405                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE181>
 406                     <SET TEMP15 'APPLY (TYPE ATOM)>
 407                     <JUMP + PHRASE182>
 408 PHRASE181
 409                     <NTHUV INRAP24 5 = X82 (TYPE LIST)>
 410                     <NTHL X82 1 = X82 (TYPE NODE)>
 411                     <NTHUV X82 4 = TEMP15>
 412                     <DEAD X82>
 413 PHRASE182
 414                     <PUSH TEMP15>
 415                     <DEAD TEMP15>
 416                     <SET TEMP15 TEMP80>
 417                     <DEAD TEMP80>
 418                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE184>
 419                     <ADD NARG31 1 = TEMP15 (TYPE FIX)>
 420                     <DEAD NARG31>
 421 PHRASE184
 422                     <PUSH TEMP15>
 423                     <DEAD TEMP15>
 424                     <TYPE? TEMP78 <TYPE-CODE FALSE> - BOOL187>
 425                     <VEQUAL? FF?29 0 + PHRASE186>
 426 BOOL187
 427                     <FRAME '\1aGEN-TEMP>
 428                     <CALL '\1aGEN-TEMP 0 = TMP70>
 429                     <SET TEMP15 TMP70>
 430                     <JUMP + PHRASE189>
 431 PHRASE186
 432                     <SET TEMP15 WHERE9>
 433 PHRASE189
 434                     <PUSH TEMP15>
 435                     <DEAD TEMP15>
 436                     <CALL '\1aMSUBR-CALL 3>
 437                     <TYPE? TEMP78 <TYPE-CODE FALSE> + PHRASE191>
 438                     <FRAME '\1aDO-STACK-ARGS>
 439                     <PUSH MAYBE-FALSE30>
 440                     <PUSH TMP70>
 441                     <DEAD TMP70>
 442                     <PUSH EXTMP64>
 443                     <PUSH FTMP62>
 444                     <CALL '\1aDO-STACK-ARGS 4>
 445                     <JUMP + PHRASE193>
 446 PHRASE191
 447                     <VEQUAL? FF?29 0 + PHRASE193>
 448                     <FRAME '\1aDO-FUNNY-HACK>
 449                     <PUSH TMP70>
 450                     <DEAD TMP70>
 451                     <PUSH NOD8>
 452                     <DEAD NOD8>
 453                     <PUSH FAP22>
 454                     <DEAD FAP22>
 455                     <PUSH INRAP24>
 456                     <DEAD INRAP24>
 457                     <PUSH FTMP62>
 458                     <PUSH EXTMP64>
 459                     <CALL '\1aDO-FUNNY-HACK 6>
 460 PHRASE193
 461                     <FRAME '\1aREST-STRUCS>
 462                     <PUSH FOONARG42>
 463                     <PUSH K13>
 464                     <DEAD K13>
 465                     <PUSH SEG?71>
 466                     <CALL '\1aREST-STRUCS 3>
 467                     <FRAME '\1aBRANCH-TAG>
 468                     <PUSH MAPLP38>
 469                     <DEAD MAPLP38>
 470                     <CALL '\1aBRANCH-TAG 1>
 471                     <FRAME '\1aLABEL-TAG>
 472                     <PUSH MAPEND36>
 473                     <DEAD MAPEND36>
 474                     <CALL '\1aLABEL-TAG 1>
 475                     <SET TEMP15 FOONARG42 (TYPE LIST)>
 476                     <LOOP>
 477 MAP199
 478                     <INTGO>
 479                     <EMPL? TEMP15 + MAP198>
 480                     <FRAME '\1aFREE-TEMP>
 481                     <NTHL TEMP15 1 = STACK>
 482                     <CALL '\1aFREE-TEMP 1>
 483                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 484                     <JUMP + MAP199>
 485 MAP198
 486                     <TYPE? TEMP34 <TYPE-CODE UNBOUND> + PHRASE203>
 487                     <FRAME '\1aFREE-TEMP>
 488                     <PUSH TEMP34>
 489                     <DEAD TEMP34>
 490                     <CALL '\1aFREE-TEMP 1>
 491 PHRASE203
 492                     <TYPE? TEMP78 <TYPE-CODE FALSE> + PHRASE206>
 493                     <DEAD TEMP78>
 494                     <FRAME '\1aDO-LAST>
 495                     <PUSH SUBRC40>
 496                     <DEAD SUBRC40>
 497                     <PUSH MAYBE-FALSE30>
 498                     <DEAD MAYBE-FALSE30>
 499                     <PUSH WHERE9>
 500                     <DEAD WHERE9>
 501                     <PUSH EXTMP64>
 502                     <PUSH FTMP62>
 503                     <CALL '\1aDO-LAST 5 = WHERE9>
 504                     <FRAME '\1aFREE-TEMP>
 505                     <PUSH FTMP62>
 506                     <DEAD FTMP62>
 507                     <CALL '\1aFREE-TEMP 1>
 508                     <FRAME '\1aFREE-TEMP>
 509                     <PUSH EXTMP64>
 510                     <DEAD EXTMP64>
 511                     <CALL '\1aFREE-TEMP 1>
 512                     <JUMP + PHRASE216>
 513 PHRASE206
 514                     <VEQUAL? FF?29 0 + PHRASE210>
 515                     <DEAD FF?29>
 516                     <FRAME '\1aFREE-TEMP>
 517                     <PUSH EXTMP64>
 518                     <DEAD EXTMP64>
 519                     <CALL '\1aFREE-TEMP 1>
 520                     <FRAME '\1aMOVE-ARG>
 521                     <PUSH FTMP62>
 522                     <DEAD FTMP62>
 523                     <PUSH WHERE9>
 524                     <DEAD WHERE9>
 525                     <CALL '\1aMOVE-ARG 2 = WHERE9>
 526                     <JUMP + PHRASE216>
 527 PHRASE210
 528                     <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE213>
 529                     <DEAD TEMP50>
 530                     <FRAME '\1aMOVE-ARG>
 531                     <PUSH FTMP62>
 532                     <DEAD FTMP62>
 533                     <PUSH WHERE9>
 534                     <DEAD WHERE9>
 535                     <CALL '\1aMOVE-ARG 2 = WHERE9>
 536                     <FRAME '\1aFREE-TEMP>
 537                     <PUSH EXTMP64>
 538                     <DEAD EXTMP64>
 539                     <CALL '\1aFREE-TEMP 1>
 540                     <JUMP + PHRASE216>
 541 PHRASE213
 542                     <FRAME '\1aFREE-TEMP>
 543                     <PUSH FTMP62>
 544                     <DEAD FTMP62>
 545                     <CALL '\1aFREE-TEMP 1>
 546                     <FRAME '\1aFREE-TEMP>
 547                     <PUSH EXTMP64>
 548                     <DEAD EXTMP64>
 549                     <CALL '\1aFREE-TEMP 1>
 550 PHRASE216
 551                     <FRAME '\1aFLUSH-TUPLES>
 552                     <PUSH FOONARG42>
 553                     <DEAD FOONARG42>
 554                     <PUSH SEG?71>
 555                     <DEAD SEG?71>
 556                     <CALL '\1aFLUSH-TUPLES 2>
 557                     <SET TEMP15 WHERE9>
 558                     <DEAD WHERE9>
 559                     <UNBIND TEMP21>
 560                     <DEAD TEMP21>
 561                     <ADJ -18>
 562                     <RETURN TEMP15>
 563                     <DEAD TEMP15>
 564                     <END \1aMAPFR-GEN>
 565
 566 \\f
 567
 568 #WORD *25341135016*
 569                     <GFCN \1aPUSH-STRUCS ("VALUE" ATOM <LIST [REST NODE]> <LIST [REST TEMP]> <LIST [REST <OR ATOM FALSE>]>) K4 STMPS5 SEG?6>
 570                     <TEMP TEMP3:LBIND TEMP11 TEMP18:LIST TEMP19:LIST NP24 TMPP25 SEG26 TMP28 TEMP37 TT29>
 571                     <INTGO>
 572                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
 573                     <BBIND 'COUNTMP 'ANY 'FIX>
 574                     <FRAME '\1aMAKE-TAG>
 575                     <CALL '\1aMAKE-TAG 0 = TEMP11>
 576                     <BBIND 'SEGLABEL 'ANY 'FIX TEMP11>
 577                     <DEAD TEMP11>
 578                     <BBIND 'SEGCALLED 'ANY 'FIX %<>>
 579                     <SET TEMP11 K4 (TYPE LIST)>
 580                     <DEAD K4>
 581                     <SET TEMP18 STMPS5 (TYPE LIST)>
 582                     <DEAD STMPS5>
 583                     <SET TEMP19 SEG?6 (TYPE LIST)>
 584                     <DEAD SEG?6>
 585                     <LOOP>
 586 MAP13
 587                     <INTGO>
 588                     <EMPL? TEMP11 + MAPAP16>
 589                     <EMPL? TEMP18 + MAPAP16>
 590                     <EMPL? TEMP19 + MAPAP16>
 591                     <SET NP24 TEMP11>
 592                     <SET TMPP25 TEMP18>
 593                     <SET SEG26 TEMP19>
 594                     <NTHL NP24 1 = NP24 (TYPE NODE)>
 595                     <NTHL TMPP25 1 = TMP28 (TYPE TEMP)>
 596                     <NTHUV NP24 1 = TEMP37 (TYPE FIX)>
 597                     <VEQUAL? TEMP37 3 + BOOL36 (TYPE FIX)>
 598                     <DEAD TEMP37>
 599                     <NTHUV NP24 1 = TEMP37 (TYPE FIX)>
 600                     <VEQUAL? TEMP37 68 - PHRASE35 (TYPE FIX)>
 601                     <DEAD TEMP37>
 602 BOOL36
 603                     <NTHUV NP24 5 = TEMP37 (TYPE LIST)>
 604                     <DEAD NP24>
 605                     <NTHL TEMP37 1 = NP24 (TYPE NODE)>
 606                     <DEAD TEMP37>
 607                     <FRAME '\1aIEMIT>
 608                     <PUSH '`SET>
 609                     <FRAME '\1aGEN-TEMP>
 610                     <CALL '\1aGEN-TEMP 0 = TMPP25>
 611                     <NTHR 'COUNTMP 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
 612                     <PUTR TEMP37 1 TMPP25 (RECORD-TYPE LBIND)>
 613                     <DEAD TEMP37>
 614                     <PUSH TMPP25>
 615                     <PUSH 0>
 616                     <CALL '\1aIEMIT 3>
 617                     <FRAME '\1aGEN>
 618                     <PUSH NP24>
 619                     <PUSH 'DONT-CARE>
 620                     <CALL '\1aGEN 2 = TT29>
 621                     <GVAL 'NO-DATUM = TEMP37>
 622                     <EQUAL? TEMP37 TT29 + PHRASE44>
 623                     <DEAD TEMP37>
 624                     <TYPE? TT29 <TYPE-CODE TEMP> - BOOL46>
 625                     <NTHUV TT29 2 = TEMP37 (TYPE FIX)>
 626                     <GRTR? TEMP37 1 - PHRASE44 (TYPE FIX)>
 627                     <DEAD TEMP37>
 628 BOOL46
 629                     <FRAME '\1aIEMIT>
 630                     <PUSH '`SET>
 631                     <FRAME '\1aGEN-TEMP>
 632                     <CALL '\1aGEN-TEMP 0 = TEMP37>
 633                     <PUSH TEMP37>
 634                     <PUSH TT29>
 635                     <CALL '\1aIEMIT 3>
 636                     <FRAME '\1aFREE-TEMP>
 637                     <PUSH TT29>
 638                     <DEAD TT29>
 639                     <CALL '\1aFREE-TEMP 1>
 640                     <SET TT29 TEMP37>
 641                     <DEAD TEMP37>
 642 PHRASE44
 643                     <PUTL SEG26 1 'T>
 644                     <DEAD SEG26>
 645                     <GVAL 'NO-DATUM = TEMP37>
 646                     <EQUAL? TEMP37 TT29 + PHRASE53>
 647                     <DEAD TEMP37>
 648                     <FRAME '\1aSEGMENT-STACK>
 649                     <PUSH TT29>
 650                     <PUSH TMPP25>
 651                     <FRAME '\1aSTRUCTYP>
 652                     <NTHUV NP24 3 = STACK>
 653                     <CALL '\1aSTRUCTYP 1 = STACK>
 654                     <FRAME '\1aISTYPE?>
 655                     <NTHUV NP24 3 = STACK>
 656                     <DEAD NP24>
 657                     <CALL '\1aISTYPE? 1 = STACK>
 658                     <NTHR 'SEGLABEL 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
 659                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
 660                     <DEAD TEMP37>
 661                     <CALL '\1aSEGMENT-STACK 5>
 662                     <JUMP + PHRASE59>
 663 PHRASE53
 664                     <NTHR 'SEGCALLED 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
 665                     <NTHR TEMP37 1 = TEMP37 (RECORD-TYPE LBIND)>
 666                     <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE59>
 667                     <DEAD TEMP37>
 668                     <FRAME '\1aLABEL-TAG>
 669                     <NTHR 'SEGLABEL 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
 670                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
 671                     <DEAD TEMP37>
 672                     <CALL '\1aLABEL-TAG 1>
 673 PHRASE59
 674                     <FRAME '\1aMAKE-TAG>
 675                     <CALL '\1aMAKE-TAG 0 = TEMP37>
 676                     <NTHR 'SEGLABEL 2 = NP24 (RECORD-TYPE ATOM) (TYPE LBIND)>
 677                     <PUTR NP24 1 TEMP37 (RECORD-TYPE LBIND)>
 678                     <DEAD NP24 TEMP37>
 679                     <FRAME '\1aFREE-TEMP>
 680                     <PUSH TT29>
 681                     <DEAD TT29>
 682                     <CALL '\1aFREE-TEMP 1>
 683                     <FRAME '\1aUSE-TEMP>
 684                     <PUSH TMP28>
 685                     <CALL '\1aUSE-TEMP 1>
 686                     <FRAME '\1aIEMIT>
 687                     <PUSH '`TUPLE>
 688                     <PUSH TMPP25>
 689                     <PUSH '=>
 690                     <PUSH TMP28>
 691                     <DEAD TMP28>
 692                     <PUSH (`TYPE TUPLE)>
 693                     <CALL '\1aIEMIT 5>
 694                     <FRAME '\1aFREE-TEMP>
 695                     <PUSH TMPP25>
 696                     <DEAD TMPP25>
 697                     <CALL '\1aFREE-TEMP 1>
 698                     <JUMP + PHRASE94>
 699 PHRASE35
 700                     <FRAME '\1aGEN>
 701                     <PUSH NP24>
 702                     <PUSH 'DONT-CARE>
 703                     <CALL '\1aGEN 2 = TT29>
 704                     <FRAME '\1aSTRUCTYP>
 705                     <NTHUV NP24 3 = NP24>
 706                     <PUSH NP24>
 707                     <CALL '\1aSTRUCTYP 1 = SEG26>
 708                     <FRAME '\1aISTYPE?>
 709                     <PUSH NP24>
 710                     <DEAD NP24>
 711                     <CALL '\1aISTYPE? 1 = NP24>
 712                     <TYPE? TT29 <TYPE-CODE TEMP> - PHRASE78>
 713                     <NTHUV TT29 2 = TEMP37 (TYPE FIX)>
 714                     <GRTR? TEMP37 1 + PHRASE78 (TYPE FIX)>
 715                     <DEAD TEMP37>
 716                     <SET TMP28 TT29>
 717                     <DEAD TT29>
 718                     <PUTL TMPP25 1 TMP28>
 719                     <DEAD TMPP25>
 720                     <TYPE? SEG26 <TYPE-CODE FALSE> + PHRASE94>
 721                     <EQUAL? NP24 SEG26 + PHRASE94>
 722                     <DEAD NP24>
 723                     <FRAME '\1aIEMIT>
 724                     <PUSH '`CHTYPE>
 725                     <PUSH TMP28>
 726                     <FRAME '\1aFORM>
 727                     <PUSH '`TYPE-CODE>
 728                     <PUSH SEG26>
 729                     <DEAD SEG26>
 730                     <CALL '\1aFORM 2 = STACK>
 731                     <PUSH '=>
 732                     <PUSH TMP28>
 733                     <DEAD TMP28>
 734                     <CALL '\1aIEMIT 5>
 735                     <JUMP + PHRASE94>
 736 PHRASE78
 737                     <TYPE? SEG26 <TYPE-CODE FALSE> + PHRASE87>
 738                     <EQUAL? SEG26 NP24 + PHRASE87>
 739                     <FRAME '\1aUSE-TEMP>
 740                     <PUSH TMP28>
 741                     <PUSH SEG26>
 742                     <CALL '\1aUSE-TEMP 2>
 743                     <FRAME '\1aIEMIT>
 744                     <PUSH '`CHTYPE>
 745                     <PUSH TT29>
 746                     <DEAD TT29>
 747                     <FRAME '\1aFORM>
 748                     <PUSH '`TYPE-CODE>
 749                     <PUSH SEG26>
 750                     <DEAD SEG26>
 751                     <CALL '\1aFORM 2 = STACK>
 752                     <PUSH '=>
 753                     <PUSH TMP28>
 754                     <DEAD TMP28>
 755                     <CALL '\1aIEMIT 5>
 756                     <JUMP + PHRASE94>
 757 PHRASE87
 758                     <TYPE? SEG26 <TYPE-CODE FALSE> + PHRASE92>
 759                     <DEAD SEG26>
 760                     <FRAME '\1aMOVE-ARG>
 761                     <PUSH TT29>
 762                     <DEAD TT29>
 763                     <PUSH TMP28>
 764                     <DEAD TMP28>
 765                     <CONS NP24 () = TEMP37>
 766                     <DEAD NP24>
 767                     <CONS '`TYPE TEMP37 = STACK>
 768                     <DEAD TEMP37>
 769                     <CALL '\1aMOVE-ARG 3>
 770                     <JUMP + PHRASE94>
 771 PHRASE92
 772                     <FRAME '\1aMOVE-ARG>
 773                     <PUSH TT29>
 774                     <DEAD TT29>
 775                     <PUSH TMP28>
 776                     <DEAD TMP28>
 777                     <CALL '\1aMOVE-ARG 2>
 778 PHRASE94
 779                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
 780                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
 781                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
 782                     <JUMP + MAP13>
 783 MAPAP16
 784                     <UNBIND TEMP3>
 785                     <DEAD TEMP3>
 786                     <ADJ -27>
 787                     <RETURN 'T>
 788                     <END \1aPUSH-STRUCS>
 789
 790 #WORD *23346542400*
 791                     <GFCN \1aREST-STRUCS ("VALUE" ANY <LIST [REST TEMP]> <LIST [REST NODE]> <LIST [REST <OR ATOM FALSE>]>) STMPS4 K5 SEG?6>
 792                     <TEMP TEMP18 TEMP13:LIST TEMP14:LIST TEMP15:LIST TMP20 NOD21 ST23 STMP26:TEMP>
 793                     <INTGO>
 794                     <SET TEMP18 %<> (TYPE FALSE)>
 795                     <SET TEMP13 STMPS4 (TYPE LIST)>
 796                     <DEAD STMPS4>
 797                     <SET TEMP14 K5 (TYPE LIST)>
 798                     <DEAD K5>
 799                     <SET TEMP15 SEG?6 (TYPE LIST)>
 800                     <DEAD SEG?6>
 801                     <LOOP>
 802 MAP8
 803                     <INTGO>
 804                     <EMPL? TEMP13 + MAPAP11>
 805                     <EMPL? TEMP14 + MAPAP11>
 806                     <EMPL? TEMP15 + MAPAP11>
 807                     <NTHL TEMP13 1 = TMP20>
 808                     <NTHL TEMP14 1 = NOD21>
 809                     <NTHL TEMP15 1 = TEMP18>
 810                     <FRAME '\1aSTRUCTYP>
 811                     <NTHUV NOD21 3 = STACK>
 812                     <CALL '\1aSTRUCTYP 1 = ST23>
 813                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE31>
 814                     <DEAD TEMP18>
 815                     <FRAME '\1aIEMIT>
 816                     <PUSH '`SET>
 817                     <FRAME '\1aGEN-TEMP>
 818                     <CALL '\1aGEN-TEMP 0 = STMP26>
 819                     <PUSH STMP26>
 820                     <PUSH TMP20>
 821                     <DEAD TMP20>
 822                     <CALL '\1aIEMIT 3>
 823                     <FRAME '\1aSTRUCTYP>
 824                     <FRAME '\1aGET-ELE-TYPE>
 825                     <NTHUV NOD21 5 = TEMP18 (TYPE LIST)>
 826                     <DEAD NOD21>
 827                     <NTHL TEMP18 1 = TEMP18 (TYPE NODE)>
 828                     <NTHUV TEMP18 3 = STACK>
 829                     <DEAD TEMP18>
 830                     <PUSH 'ALL>
 831                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
 832                     <CALL '\1aSTRUCTYP 1 = ST23>
 833                     <TYPE? ST23 <TYPE-CODE FALSE> + PHRASE38>
 834                     <FRAME '\1aIEMIT>
 835                     <PUSH '`LOOP>
 836                     <CONS 'VALUE () = TEMP18>
 837                     <CONS 'LENGTH TEMP18 = TEMP18>
 838                     <NTHUV STMP26 1 = TMP20 (TYPE ATOM)>
 839                     <CONS TMP20 TEMP18 = STACK>
 840                     <DEAD TMP20 TEMP18>
 841                     <CALL '\1aIEMIT 2>
 842                     <JUMP + PHRASE41>
 843 PHRASE38
 844                     <FRAME '\1aIEMIT>
 845                     <PUSH '`LOOP>
 846                     <CALL '\1aIEMIT 1>
 847 PHRASE41
 848                     <FRAME '\1aLABEL-TAG>
 849                     <FRAME '\1aMAKE-TAG>
 850                     <CALL '\1aMAKE-TAG 0 = TEMP18>
 851                     <PUSH TEMP18>
 852                     <CALL '\1aLABEL-TAG 1>
 853                     <FRAME '\1aIEMIT>
 854                     <PUSH '`INTGO>
 855                     <CALL '\1aIEMIT 1>
 856                     <FRAME '\1aEMPTY-CHECK>
 857                     <PUSH 'TUPLE>
 858                     <PUSH STMP26>
 859                     <PUSH 'TUPLE>
 860                     <PUSH 'T>
 861                     <FRAME '\1aMAKE-TAG>
 862                     <CALL '\1aMAKE-TAG 0 = NOD21>
 863                     <PUSH NOD21>
 864                     <CALL '\1aEMPTY-CHECK 5>
 865                     <FRAME '\1aNTH-DO>
 866                     <PUSH 'TUPLE>
 867                     <PUSH STMP26>
 868                     <FRAME '\1aGEN-TEMP>
 869                     <CALL '\1aGEN-TEMP 0 = TMP20>
 870                     <PUSH TMP20>
 871                     <PUSH 1>
 872                     <CALL '\1aNTH-DO 4>
 873                     <TYPE? ST23 <TYPE-CODE FALSE> + PHRASE51>
 874                     <FRAME '\1aREST-DO>
 875                     <PUSH ST23>
 876                     <DEAD ST23>
 877                     <PUSH TMP20>
 878                     <PUSH TMP20>
 879                     <PUSH 1>
 880                     <CALL '\1aREST-DO 4>
 881                     <JUMP + PHRASE53>
 882 PHRASE51
 883                     <FRAME '\1aIEMIT>
 884                     <PUSH '`REST1>
 885                     <PUSH TMP20>
 886                     <PUSH '=>
 887                     <PUSH TMP20>
 888                     <CALL '\1aIEMIT 4>
 889 PHRASE53
 890                     <FRAME '\1aPUT-VECTOR>
 891                     <PUSH STMP26>
 892                     <PUSH 1>
 893                     <PUSH TMP20>
 894                     <CALL '\1aPUT-VECTOR 3>
 895                     <FRAME '\1aREST-DO>
 896                     <PUSH 'TUPLE>
 897                     <PUSH STMP26>
 898                     <PUSH STMP26>
 899                     <PUSH 1>
 900                     <CALL '\1aREST-DO 4>
 901                     <FRAME '\1aBRANCH-TAG>
 902                     <PUSH TEMP18>
 903                     <DEAD TEMP18>
 904                     <CALL '\1aBRANCH-TAG 1>
 905                     <FRAME '\1aLABEL-TAG>
 906                     <PUSH NOD21>
 907                     <DEAD NOD21>
 908                     <CALL '\1aLABEL-TAG 1>
 909                     <FRAME '\1aFREE-TEMP>
 910                     <PUSH STMP26>
 911                     <DEAD STMP26>
 912                     <CALL '\1aFREE-TEMP 1>
 913                     <FRAME '\1aFREE-TEMP>
 914                     <PUSH TMP20>
 915                     <DEAD TMP20>
 916                     <CALL '\1aFREE-TEMP 1 = TEMP18>
 917                     <JUMP + PHRASE63>
 918 PHRASE31
 919                     <TYPE? ST23 <TYPE-CODE FALSE> + PHRASE61>
 920                     <FRAME '\1aREST-DO>
 921                     <PUSH ST23>
 922                     <DEAD ST23>
 923                     <PUSH TMP20>
 924                     <PUSH TMP20>
 925                     <DEAD TMP20>
 926                     <PUSH 1>
 927                     <CALL '\1aREST-DO 4 = TEMP18>
 928                     <JUMP + PHRASE63>
 929 PHRASE61
 930                     <FRAME '\1aIEMIT>
 931                     <PUSH '`REST1>
 932                     <PUSH TMP20>
 933                     <PUSH '=>
 934                     <PUSH TMP20>
 935                     <DEAD TMP20>
 936                     <CALL '\1aIEMIT 4 = TEMP18>
 937 PHRASE63
 938                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
 939                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
 940                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 941                     <JUMP + MAP8>
 942 MAPAP11
 943                     <RETURN TEMP18>
 944                     <DEAD TEMP18>
 945                     <END \1aREST-STRUCS>
 946
 947 #WORD *35314562266*
 948                     <GFCN \1aDO-FINAL-SETUP ("VALUE" ANY NODE ANY ANY ANY) FAP4 SUBRC5 FTMP6 EXTMP7>
 949                     <TEMP TEMP12 MBYF8 TG1-9>
 950                     <INTGO>
 951                     <TYPE? SUBRC5 <TYPE-CODE FALSE> + TAG13>
 952                     <SET TEMP12 %<> (TYPE FALSE)>
 953                     <JUMP + BOOL11>
 954 TAG13
 955                     <GEN-LVAL 'REASONABLE = TEMP12>
 956                     <TYPE? TEMP12 <TYPE-CODE FALSE> + TAG18>
 957                     <DEAD TEMP12>
 958                     <NTHUV FAP4 1 = TEMP12 (TYPE FIX)>
 959                     <VEQUAL? TEMP12 66 - TAG18 (TYPE FIX)>
 960                     <DEAD TEMP12>
 961                     <SET TEMP12 %<> (TYPE FALSE)>
 962                     <JUMP + BOOL11>
 963 TAG18
 964                     <FRAME '\1aTYPE-OK?>
 965                     <NTHUV FAP4 3 = STACK>
 966                     <PUSH 'FALSE>
 967                     <CALL '\1aTYPE-OK? 2 = TEMP12>
 968 BOOL11
 969                     <SET MBYF8 TEMP12>
 970                     <DEAD TEMP12>
 971                     <TYPE? SUBRC5 <TYPE-CODE FALSE> - PHRASE21>
 972                     <FRAME '\1aGEN>
 973                     <PUSH FAP4>
 974                     <DEAD FAP4>
 975                     <PUSH EXTMP7>
 976                     <CALL '\1aGEN 2>
 977 PHRASE21
 978                     <TYPE? MBYF8 <TYPE-CODE FALSE> + PHRASE24>
 979                     <FRAME '\1aGEN-TYPE?>
 980                     <PUSH EXTMP7>
 981                     <DEAD EXTMP7>
 982                     <PUSH 'FALSE>
 983                     <FRAME '\1aMAKE-TAG>
 984                     <CALL '\1aMAKE-TAG 0 = TG1-9>
 985                     <PUSH TG1-9>
 986                     <PUSH 'T>
 987                     <CALL '\1aGEN-TYPE? 4>
 988 PHRASE24
 989                     <FRAME '\1aSET-TEMP>
 990                     <PUSH FTMP6>
 991                     <TYPE? SUBRC5 <TYPE-CODE FALSE> + PHRASE29>
 992                     <DEAD SUBRC5>
 993                     <SET TEMP12 0 (TYPE FIX)>
 994                     <JUMP + PHRASE30>
 995 PHRASE29
 996                     <SET TEMP12 1 (TYPE FIX)>
 997 PHRASE30
 998                     <PUSH TEMP12>
 999                     <DEAD TEMP12>
1000                     <PUSH (`TYPE FIX)>
1001                     <CALL '\1aSET-TEMP 3>
1002                     <TYPE? MBYF8 <TYPE-CODE FALSE> + PHRASE32>
1003                     <FRAME '\1aBRANCH-TAG>
1004                     <FRAME '\1aMAKE-TAG>
1005                     <CALL '\1aMAKE-TAG 0 = TEMP12>
1006                     <PUSH TEMP12>
1007                     <CALL '\1aBRANCH-TAG 1>
1008                     <FRAME '\1aLABEL-TAG>
1009                     <PUSH TG1-9>
1010                     <DEAD TG1-9>
1011                     <CALL '\1aLABEL-TAG 1>
1012                     <FRAME '\1aSET-TEMP>
1013                     <PUSH FTMP6>
1014                     <DEAD FTMP6>
1015                     <PUSH %<>>
1016                     <PUSH (`TYPE FALSE)>
1017                     <CALL '\1aSET-TEMP 3>
1018                     <FRAME '\1aLABEL-TAG>
1019                     <PUSH TEMP12>
1020                     <DEAD TEMP12>
1021                     <CALL '\1aLABEL-TAG 1>
1022 PHRASE32
1023                     <RETURN MBYF8>
1024                     <DEAD MBYF8>
1025                     <END \1aDO-FINAL-SETUP>
1026
1027 #WORD *33236211514*
1028                     <GFCN \1aDO-STACK-ARGS ("VALUE" <OR ATOM <LIST ANY>> ANY ANY ANY ANY) MAYBE-FALSE4 ARG5 SW6 COUNT7>
1029                     <TEMP TG1-8 TG2-9>
1030                     <INTGO>
1031                     <TYPE? MAYBE-FALSE4 <TYPE-CODE FALSE> + PHRASE11>
1032                     <DEAD MAYBE-FALSE4>
1033                     <FRAME '\1aGEN-TYPE?>
1034                     <PUSH SW6>
1035                     <DEAD SW6>
1036                     <PUSH 'FALSE>
1037                     <FRAME '\1aMAKE-TAG>
1038                     <CALL '\1aMAKE-TAG 0 = TG1-8>
1039                     <PUSH TG1-8>
1040                     <PUSH 'T>
1041                     <CALL '\1aGEN-TYPE? 4>
1042                     <FRAME '\1aPUSH>
1043                     <PUSH ARG5>
1044                     <CALL '\1aPUSH 1>
1045                     <FRAME '\1aIEMIT>
1046                     <PUSH '`ADD>
1047                     <PUSH COUNT7>
1048                     <PUSH 1>
1049                     <PUSH '=>
1050                     <PUSH COUNT7>
1051                     <PUSH (`TYPE FIX)>
1052                     <CALL '\1aIEMIT 6>
1053                     <FRAME '\1aBRANCH-TAG>
1054                     <FRAME '\1aMAKE-TAG>
1055                     <CALL '\1aMAKE-TAG 0 = TG2-9>
1056                     <PUSH TG2-9>
1057                     <CALL '\1aBRANCH-TAG 1>
1058                     <FRAME '\1aLABEL-TAG>
1059                     <PUSH TG1-8>
1060                     <DEAD TG1-8>
1061                     <CALL '\1aLABEL-TAG 1>
1062                     <FRAME '\1aMOVE-ARG>
1063                     <PUSH ARG5>
1064                     <DEAD ARG5>
1065                     <PUSH COUNT7>
1066                     <DEAD COUNT7>
1067                     <CALL '\1aMOVE-ARG 2>
1068                     <FRAME '\1aLABEL-TAG>
1069                     <PUSH TG2-9>
1070                     <DEAD TG2-9>
1071                     <CALL '\1aLABEL-TAG 1 = TG1-8>
1072                     <RETURN TG1-8>
1073                     <DEAD TG1-8>
1074 PHRASE11
1075                     <FRAME '\1aPUSH>
1076                     <PUSH ARG5>
1077                     <DEAD ARG5>
1078                     <CALL '\1aPUSH 1>
1079                     <FRAME '\1aIEMIT>
1080                     <PUSH '`ADD>
1081                     <PUSH COUNT7>
1082                     <PUSH 1>
1083                     <PUSH '=>
1084                     <PUSH COUNT7>
1085                     <DEAD COUNT7>
1086                     <PUSH (`TYPE FIX)>
1087                     <CALL '\1aIEMIT 6 = TG1-8>
1088                     <RETURN TG1-8>
1089                     <DEAD TG1-8>
1090                     <END \1aDO-STACK-ARGS>
1091
1092 #WORD *753447722*
1093                     <GFCN \1aDO-STACK-TUPLE ("VALUE" <OR ATOM <LIST ANY>> ANY ANY ANY ANY) MAYBE-FALSE4 NEW-COUNT5 SW6 COUNT7>
1094                     <TEMP TG1-8 TG2-9>
1095                     <INTGO>
1096                     <TYPE? MAYBE-FALSE4 <TYPE-CODE FALSE> + PHRASE11>
1097                     <DEAD MAYBE-FALSE4>
1098                     <FRAME '\1aLENGTH-VECTOR>
1099                     <PUSH NEW-COUNT5>
1100                     <PUSH NEW-COUNT5>
1101                     <CALL '\1aLENGTH-VECTOR 2>
1102                     <FRAME '\1aGEN-TYPE?>
1103                     <PUSH SW6>
1104                     <DEAD SW6>
1105                     <PUSH 'FALSE>
1106                     <FRAME '\1aMAKE-TAG>
1107                     <CALL '\1aMAKE-TAG 0 = TG1-8>
1108                     <PUSH TG1-8>
1109                     <PUSH 'T>
1110                     <CALL '\1aGEN-TYPE? 4>
1111                     <FRAME '\1aIEMIT>
1112                     <PUSH '`ADD>
1113                     <PUSH COUNT7>
1114                     <PUSH NEW-COUNT5>
1115                     <PUSH '=>
1116                     <PUSH COUNT7>
1117                     <PUSH (`TYPE FIX)>
1118                     <CALL '\1aIEMIT 6>
1119                     <FRAME '\1aBRANCH-TAG>
1120                     <FRAME '\1aMAKE-TAG>
1121                     <CALL '\1aMAKE-TAG 0 = TG2-9>
1122                     <PUSH TG2-9>
1123                     <CALL '\1aBRANCH-TAG 1>
1124                     <FRAME '\1aLABEL-TAG>
1125                     <PUSH TG1-8>
1126                     <DEAD TG1-8>
1127                     <CALL '\1aLABEL-TAG 1>
1128                     <FRAME '\1aPOP>
1129                     <PUSH COUNT7>
1130                     <DEAD COUNT7>
1131                     <CALL '\1aPOP 1>
1132                     <FRAME '\1aIEMIT>
1133                     <PUSH '`SUB>
1134                     <PUSH 1>
1135                     <PUSH NEW-COUNT5>
1136                     <PUSH '=>
1137                     <PUSH NEW-COUNT5>
1138                     <PUSH (`TYPE FIX)>
1139                     <CALL '\1aIEMIT 6>
1140                     <FRAME '\1aIEMIT>
1141                     <PUSH '`MUL>
1142                     <PUSH NEW-COUNT5>
1143                     <PUSH 2>
1144                     <PUSH '=>
1145                     <PUSH NEW-COUNT5>
1146                     <PUSH (`TYPE FIX)>
1147                     <CALL '\1aIEMIT 6>
1148                     <FRAME '\1aIEMIT>
1149                     <PUSH '`ADJ>
1150                     <PUSH NEW-COUNT5>
1151                     <DEAD NEW-COUNT5>
1152                     <CALL '\1aIEMIT 2>
1153                     <FRAME '\1aLABEL-TAG>
1154                     <PUSH TG2-9>
1155                     <DEAD TG2-9>
1156                     <CALL '\1aLABEL-TAG 1 = TG1-8>
1157                     <RETURN TG1-8>
1158                     <DEAD TG1-8>
1159 PHRASE11
1160                     <FRAME '\1aLENGTH-VECTOR>
1161                     <PUSH NEW-COUNT5>
1162                     <PUSH NEW-COUNT5>
1163                     <CALL '\1aLENGTH-VECTOR 2>
1164                     <FRAME '\1aIEMIT>
1165                     <PUSH '`ADD>
1166                     <PUSH COUNT7>
1167                     <PUSH NEW-COUNT5>
1168                     <DEAD NEW-COUNT5>
1169                     <PUSH '=>
1170                     <PUSH COUNT7>
1171                     <DEAD COUNT7>
1172                     <PUSH (`TYPE FIX)>
1173                     <CALL '\1aIEMIT 6 = TG1-8>
1174                     <RETURN TG1-8>
1175                     <DEAD TG1-8>
1176                     <END \1aDO-STACK-TUPLE>
1177
1178 \\f
1179
1180 <SETG MINS '[[`LESS? `GRTR? `MUL `ADD] [`LESS? `GRTR? `MULF `ADDF]]>
1181
1182 <GDECL (MINS) !<VECTOR [2 !<VECTOR [4 ATOM]>]>>
1183
1184 #WORD *27063221242*
1185                     <GFCN \1aDO-FUNNY-HACK ("VALUE" ATOM ANY NODE NODE NODE ANY ANY) DAT4 N5 FAP6 NN7 FTMP8 EXTMP9>
1186                     <TEMP COD10:FIX LMOD11 MOD12 T1-13>
1187                     <INTGO>
1188                     <NTHUV FAP6 9 = COD10 (TYPE FIX)>
1189                     <DEAD FAP6>
1190                     <FRAME '\1aISTYPE?>
1191                     <NTHUV NN7 3 = STACK>
1192                     <DEAD NN7>
1193                     <CALL '\1aISTYPE? 1 = LMOD11>
1194                     <FRAME '\1aISTYPE?>
1195                     <NTHUV N5 3 = STACK>
1196                     <DEAD N5>
1197                     <CALL '\1aISTYPE? 1 = MOD12>
1198                     <VEQUAL? COD10 5 - PHRASE20 (TYPE FIX)>
1199                     <FRAME '\1aFREE-TEMP>
1200                     <PUSH DAT4>
1201                     <PUSH %<>>
1202                     <CALL '\1aFREE-TEMP 2>
1203                     <FRAME '\1aGEN-TEMP>
1204                     <CALL '\1aGEN-TEMP 0 = LMOD11>
1205                     <FRAME '\1aIEMIT>
1206                     <PUSH '`CONS>
1207                     <PUSH DAT4>
1208                     <DEAD DAT4>
1209                     <PUSH ()>
1210                     <PUSH '=>
1211                     <PUSH LMOD11>
1212                     <PUSH (`TYPE LIST)>
1213                     <CALL '\1aIEMIT 6>
1214                     <FRAME '\1aEMPTY-LIST>
1215                     <PUSH FTMP8>
1216                     <FRAME '\1aMAKE-TAG>
1217                     <CALL '\1aMAKE-TAG 0 = T1-13>
1218                     <PUSH T1-13>
1219                     <PUSH %<>>
1220                     <CALL '\1aEMPTY-LIST 3>
1221                     <FRAME '\1aSET-TEMP>
1222                     <PUSH FTMP8>
1223                     <DEAD FTMP8>
1224                     <PUSH LMOD11>
1225                     <PUSH (`TYPE LIST)>
1226                     <CALL '\1aSET-TEMP 3>
1227                     <FRAME '\1aBRANCH-TAG>
1228                     <FRAME '\1aMAKE-TAG>
1229                     <CALL '\1aMAKE-TAG 0 = MOD12>
1230                     <PUSH MOD12>
1231                     <CALL '\1aBRANCH-TAG 1>
1232                     <FRAME '\1aLABEL-TAG>
1233                     <PUSH T1-13>
1234                     <DEAD T1-13>
1235                     <CALL '\1aLABEL-TAG 1>
1236                     <FRAME '\1aIEMIT>
1237                     <PUSH '`PUTREST>
1238                     <PUSH EXTMP9>
1239                     <PUSH LMOD11>
1240                     <CALL '\1aIEMIT 3>
1241                     <FRAME '\1aLABEL-TAG>
1242                     <PUSH MOD12>
1243                     <DEAD MOD12>
1244                     <CALL '\1aLABEL-TAG 1>
1245                     <FRAME '\1aFREE-TEMP>
1246                     <PUSH LMOD11>
1247                     <PUSH %<>>
1248                     <CALL '\1aFREE-TEMP 2>
1249                     <FRAME '\1aSET-TEMP>
1250                     <PUSH EXTMP9>
1251                     <DEAD EXTMP9>
1252                     <PUSH LMOD11>
1253                     <DEAD LMOD11>
1254                     <PUSH (`TYPE LIST)>
1255                     <CALL '\1aSET-TEMP 3>
1256                     <RETURN 'T>
1257 PHRASE20
1258                     <VEQUAL? MOD12 'FIX - BOOL37>
1259                     <DEAD MOD12>
1260                     <SET T1-13 1 (TYPE FIX)>
1261                     <JUMP + BOOL35>
1262 BOOL37
1263                     <SET T1-13 2 (TYPE FIX)>
1264 BOOL35
1265                     <SET MOD12 T1-13>
1266                     <DEAD T1-13>
1267                     <VEQUAL? MOD12 2 - PHRASE39 (TYPE FIX)>
1268                     <VEQUAL? LMOD11 'FIX - PHRASE39>
1269                     <DEAD LMOD11>
1270                     <FRAME '\1aGEN-FLOAT>
1271                     <PUSH DAT4>
1272                     <FRAME '\1aGEN-TEMP>
1273                     <CALL '\1aGEN-TEMP 0 = STACK>
1274                     <CALL '\1aGEN-FLOAT 2 = LMOD11>
1275                     <FRAME '\1aFREE-TEMP>
1276                     <PUSH DAT4>
1277                     <DEAD DAT4>
1278                     <CALL '\1aFREE-TEMP 1>
1279                     <SET DAT4 LMOD11>
1280                     <DEAD LMOD11>
1281 PHRASE39
1282                     <GVAL 'MINS = T1-13>
1283                     <NTHUV T1-13 MOD12 = LMOD11 (TYPE VECTOR)>
1284                     <DEAD T1-13>
1285                     <NTHUV LMOD11 COD10 = LMOD11 (TYPE ATOM)>
1286                     <LESS? COD10 3 - PHRASE46 (TYPE FIX)>
1287                     <DEAD COD10>
1288                     <FRAME '\1aIEMIT>
1289                     <PUSH LMOD11>
1290                     <DEAD LMOD11>
1291                     <PUSH DAT4>
1292                     <PUSH FTMP8>
1293                     <PUSH '->
1294                     <FRAME '\1aMAKE-TAG>
1295                     <CALL '\1aMAKE-TAG 0 = T1-13>
1296                     <PUSH T1-13>
1297                     <VEQUAL? MOD12 1 - PHRASE50 (TYPE FIX)>
1298                     <DEAD MOD12>
1299                     <SET LMOD11 'FIX (TYPE ATOM)>
1300                     <JUMP + PHRASE53>
1301 PHRASE50
1302                     <SET LMOD11 'FLOAT (TYPE ATOM)>
1303 PHRASE53
1304                     <CONS LMOD11 () = LMOD11>
1305                     <CONS '`TYPE LMOD11 = STACK>
1306                     <DEAD LMOD11>
1307                     <CALL '\1aIEMIT 6>
1308                     <FRAME '\1aMOVE-ARG>
1309                     <PUSH DAT4>
1310                     <DEAD DAT4>
1311                     <PUSH FTMP8>
1312                     <DEAD FTMP8>
1313                     <CALL '\1aMOVE-ARG 2>
1314                     <FRAME '\1aLABEL-TAG>
1315                     <PUSH T1-13>
1316                     <DEAD T1-13>
1317                     <CALL '\1aLABEL-TAG 1>
1318                     <RETURN 'T>
1319 PHRASE46
1320                     <FRAME '\1aFREE-TEMP>
1321                     <PUSH DAT4>
1322                     <PUSH %<>>
1323                     <CALL '\1aFREE-TEMP 2>
1324                     <FRAME '\1aIEMIT>
1325                     <PUSH LMOD11>
1326                     <DEAD LMOD11>
1327                     <PUSH FTMP8>
1328                     <PUSH DAT4>
1329                     <DEAD DAT4>
1330                     <PUSH '=>
1331                     <PUSH FTMP8>
1332                     <DEAD FTMP8>
1333                     <CALL '\1aIEMIT 5>
1334                     <RETURN 'T>
1335                     <END \1aDO-FUNNY-HACK>
1336
1337 #WORD *5501626125*
1338                     <GFCN \1aDO-LAST ("VALUE" ANY ANY ANY ANY ANY ANY) SUBRC4 MAYBE-FALSE5 WHERE6 EXTMP7 COUNT8>
1339                     <TEMP TG9 TG2-10>
1340                     <INTGO>
1341                     <TYPE? MAYBE-FALSE5 <TYPE-CODE FALSE> + PHRASE12>
1342                     <DEAD MAYBE-FALSE5>
1343                     <FRAME '\1aGEN-TYPE?>
1344                     <PUSH EXTMP7>
1345                     <DEAD EXTMP7>
1346                     <PUSH 'FALSE>
1347                     <FRAME '\1aMAKE-TAG>
1348                     <CALL '\1aMAKE-TAG 0 = TG9>
1349                     <PUSH TG9>
1350                     <PUSH 'T>
1351                     <CALL '\1aGEN-TYPE? 4>
1352                     <EQUAL? WHERE6 'DONT-CARE - PHRASE16>
1353                     <FRAME '\1aGEN-TEMP>
1354                     <CALL '\1aGEN-TEMP 0 = WHERE6>
1355                     <JUMP + PHRASE18>
1356 PHRASE16
1357                     <TYPE? WHERE6 <TYPE-CODE TEMP> - PHRASE18>
1358                     <FRAME '\1aUSE-TEMP>
1359                     <PUSH WHERE6>
1360                     <CALL '\1aUSE-TEMP 1>
1361 PHRASE18
1362                     <TYPE? SUBRC4 <TYPE-CODE FALSE> + PHRASE21>
1363                     <FRAME '\1aXMSUBR-CALL>
1364                     <PUSH SUBRC4>
1365                     <DEAD SUBRC4>
1366                     <PUSH COUNT8>
1367                     <PUSH WHERE6>
1368                     <CALL '\1aXMSUBR-CALL 3>
1369                     <JUMP + PHRASE23>
1370 PHRASE21
1371                     <FRAME '\1aMSUBR-CALL>
1372                     <PUSH 'APPLY>
1373                     <PUSH COUNT8>
1374                     <PUSH WHERE6>
1375                     <CALL '\1aMSUBR-CALL 3>
1376 PHRASE23
1377                     <FRAME '\1aBRANCH-TAG>
1378                     <FRAME '\1aMAKE-TAG>
1379                     <CALL '\1aMAKE-TAG 0 = TG2-10>
1380                     <PUSH TG2-10>
1381                     <CALL '\1aBRANCH-TAG 1>
1382                     <FRAME '\1aLABEL-TAG>
1383                     <PUSH TG9>
1384                     <DEAD TG9>
1385                     <CALL '\1aLABEL-TAG 1>
1386                     <FRAME '\1aMOVE-ARG>
1387                     <PUSH COUNT8>
1388                     <DEAD COUNT8>
1389                     <PUSH WHERE6>
1390                     <CALL '\1aMOVE-ARG 2>
1391                     <FRAME '\1aLABEL-TAG>
1392                     <PUSH TG2-10>
1393                     <DEAD TG2-10>
1394                     <CALL '\1aLABEL-TAG 1>
1395                     <RETURN WHERE6>
1396                     <DEAD WHERE6>
1397 PHRASE12
1398                     <EQUAL? WHERE6 'DONT-CARE - PHRASE32>
1399                     <FRAME '\1aGEN-TEMP>
1400                     <CALL '\1aGEN-TEMP 0 = WHERE6>
1401                     <JUMP + PHRASE34>
1402 PHRASE32
1403                     <TYPE? WHERE6 <TYPE-CODE TEMP> - PHRASE34>
1404                     <FRAME '\1aUSE-TEMP>
1405                     <PUSH WHERE6>
1406                     <CALL '\1aUSE-TEMP 1>
1407 PHRASE34
1408                     <TYPE? SUBRC4 <TYPE-CODE FALSE> + PHRASE37>
1409                     <FRAME '\1aXMSUBR-CALL>
1410                     <PUSH SUBRC4>
1411                     <DEAD SUBRC4>
1412                     <PUSH COUNT8>
1413                     <DEAD COUNT8>
1414                     <PUSH WHERE6>
1415                     <CALL '\1aXMSUBR-CALL 3>
1416                     <RETURN WHERE6>
1417                     <DEAD WHERE6>
1418 PHRASE37
1419                     <FRAME '\1aMSUBR-CALL>
1420                     <PUSH 'APPLY>
1421                     <PUSH COUNT8>
1422                     <DEAD COUNT8>
1423                     <PUSH WHERE6>
1424                     <CALL '\1aMSUBR-CALL 3>
1425                     <RETURN WHERE6>
1426                     <DEAD WHERE6>
1427                     <END \1aDO-LAST>
1428
1429 #WORD *6534126241*
1430                     <GFCN \1aXMSUBR-CALL ("VALUE" <OR ATOM FALSE <LIST ANY>> ANY ANY ANY) SUBRC4 NARGS5 WHERE6>
1431                     <TEMP TEMP12 TEMP13 TEMP26:FIX>
1432                     <INTGO>
1433                     <SET TEMP12 [VECTOR UVECTOR STRING BYTES] (TYPE VECTOR)>
1434                     <TYPE? SUBRC4 <TYPE-CODE ATOM> - PHRASE8>
1435                     <LOOP (SUBRC4 VALUE) (TEMP12 LENGTH VALUE)>
1436 TAG10
1437                     <NTHUV TEMP12 1 = TEMP13>
1438                     <VEQUAL? TEMP13 SUBRC4 + TAG9>
1439                     <DEAD TEMP13>
1440                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
1441                     <EMPUV? TEMP12 - TAG10>
1442                     <JUMP + PHRASE8>
1443 TAG9
1444                     <FRAME '\1aIEMIT>
1445                     <PUSH '`UBLOCK>
1446                     <FRAME '\1aFORM>
1447                     <PUSH '`TYPE-CODE>
1448                     <PUSH SUBRC4>
1449                     <CALL '\1aFORM 2 = STACK>
1450                     <PUSH NARGS5>
1451                     <DEAD NARGS5>
1452                     <PUSH '=>
1453                     <PUSH WHERE6>
1454                     <DEAD WHERE6>
1455                     <CONS SUBRC4 () = TEMP12>
1456                     <DEAD SUBRC4>
1457                     <CONS '`TYPE TEMP12 = STACK>
1458                     <DEAD TEMP12>
1459                     <CALL '\1aIEMIT 6 = TEMP12>
1460                     <RETURN TEMP12>
1461                     <DEAD TEMP12>
1462 PHRASE8
1463                     <EQUAL? SUBRC4 'LIST - PHRASE16>
1464                     <FRAME '\1aIEMIT>
1465                     <PUSH '`LIST>
1466                     <PUSH NARGS5>
1467                     <DEAD NARGS5>
1468                     <PUSH '=>
1469                     <PUSH WHERE6>
1470                     <DEAD WHERE6>
1471                     <PUSH (`TYPE LIST)>
1472                     <CALL '\1aIEMIT 5 = TEMP12>
1473                     <RETURN TEMP12>
1474                     <DEAD TEMP12>
1475 PHRASE16
1476                     <EQUAL? SUBRC4 'TUPLE - PHRASE18>
1477                     <FRAME '\1aIEMIT>
1478                     <PUSH '`TUPLE>
1479                     <PUSH NARGS5>
1480                     <DEAD NARGS5>
1481                     <PUSH '=>
1482                     <PUSH WHERE6>
1483                     <CALL '\1aIEMIT 4>
1484                     <GEN-ASSIGNED? 'LIST-TUPLE + TAG22>
1485                     <RETURN %<>>
1486 TAG22
1487                     <PUSH WHERE6>
1488                     <DEAD WHERE6>
1489                     <SET TEMP26 1 (TYPE FIX)>
1490                     <GEN-LVAL 'LIST-TUPLE = TEMP12>
1491                     <TYPE TEMP12 = TEMP13>
1492                     <AND TEMP13 7 = TEMP13>
1493                     <VEQUAL? TEMP13 1 + TAG29>
1494                     <DEAD TEMP13>
1495                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP26 VALUE)>
1496 TAG35
1497                     <INTGO>
1498                     <EMPTY? TEMP12 + TAG34>
1499                     <NTH1 TEMP12 = STACK>
1500                     <REST1 TEMP12 = TEMP12>
1501                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
1502                     <JUMP + TAG35>
1503 TAG34
1504                     <LIST TEMP26 = TEMP12 (TYPE LIST)>
1505                     <DEAD TEMP26>
1506                     <JUMP + TAG31>
1507 TAG29
1508                     <LOOP>
1509 TAG32
1510                     <VEQUAL? TEMP26 0 + TAG31>
1511                     <POP = TEMP13>
1512                     <CONS TEMP13 TEMP12 = TEMP12 (TYPE LIST)>
1513                     <DEAD TEMP13>
1514                     <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
1515                     <JUMP + TAG32>
1516 TAG31
1517                     <GEN-SET 'LIST-TUPLE TEMP12>
1518                     <RETURN TEMP12>
1519                     <DEAD TEMP12>
1520 PHRASE18
1521                     <FRAME '\1aMSUBR-CALL>
1522                     <PUSH SUBRC4>
1523                     <DEAD SUBRC4>
1524                     <PUSH NARGS5>
1525                     <DEAD NARGS5>
1526                     <PUSH WHERE6>
1527                     <DEAD WHERE6>
1528                     <CALL '\1aMSUBR-CALL 3 = TEMP12>
1529                     <RETURN TEMP12>
1530                     <DEAD TEMP12>
1531                     <END \1aXMSUBR-CALL>
1532
1533 <SETG SLOT-FIRST [<CHTYPE <MIN> FIX> <CHTYPE <MAX> FIX> 1 0]>
1534
1535 <COND (<GASSIGNED? MINFL> <SETG FSLOT-FIRST [,MINFL ,MAXFL 1.0 0.0]>)>
1536
1537 <GDECL (SLOT-FIRST) <VECTOR [REST FIX]> (FSLOT-FIRST) <VECTOR [REST FLOAT]>>
1538
1539 \\f
1540
1541 #WORD *15723102252*
1542                     <GFCN \1aDO-FIRST-SETUP ("VALUE" <OR ATOM FALSE> NODE ANY ANY ANY ANY) FAP4 W5 FTMP6 EXTMP7 FLS8>
1543                     <TEMP (COD9 0) TYP10>
1544                     <INTGO>
1545                     <FRAME '\1aISTYPE?>
1546                     <NTHUV FAP4 2 = COD9 (TYPE NODE)>
1547                     <NTHUV COD9 3 = STACK>
1548                     <DEAD COD9>
1549                     <CALL '\1aISTYPE? 1 = TYP10>
1550                     <NTHUV FAP4 1 = COD9 (TYPE FIX)>
1551                     <VEQUAL? COD9 71 - PHRASE14 (TYPE FIX)>
1552                     <DEAD COD9>
1553                     <NTHUV FAP4 9 = COD9 (TYPE FIX)>
1554                     <DEAD FAP4>
1555                     <VEQUAL? COD9 5 - PHRASE16 (TYPE FIX)>
1556                     <FRAME '\1aMOVE-ARG>
1557                     <FRAME '\1aREFERENCE>
1558                     <TYPE? TYP10 <TYPE-CODE FALSE> + PHRASE20>
1559                     <FRAME '\1aCHTYPE>
1560                     <PUSH ()>
1561                     <PUSH TYP10>
1562                     <DEAD TYP10>
1563                     <CALL '\1aCHTYPE 2 = COD9>
1564                     <JUMP + PHRASE22>
1565 PHRASE20
1566                     <SET COD9 () (TYPE LIST)>
1567 PHRASE22
1568                     <PUSH COD9>
1569                     <DEAD COD9>
1570                     <CALL '\1aREFERENCE 1 = STACK>
1571                     <PUSH FTMP6>
1572                     <DEAD FTMP6>
1573                     <CALL '\1aMOVE-ARG 2>
1574                     <FRAME '\1aMOVE-ARG>
1575                     <FRAME '\1aREFERENCE>
1576                     <PUSH ()>
1577                     <CALL '\1aREFERENCE 1 = STACK>
1578                     <PUSH EXTMP7>
1579                     <DEAD EXTMP7>
1580                     <CALL '\1aMOVE-ARG 2>
1581                     <RETURN %<>>
1582 PHRASE16
1583                     <FRAME '\1aMOVE-ARG>
1584                     <FRAME '\1aREFERENCE>
1585                     <VEQUAL? TYP10 'FLOAT - PHRASE29>
1586                     <DEAD TYP10>
1587                     <GVAL 'FSLOT-FIRST = TYP10>
1588                     <NTHUV TYP10 COD9 = COD9 (TYPE FLOAT)>
1589                     <DEAD TYP10>
1590                     <JUMP + PHRASE32>
1591 PHRASE29
1592                     <GVAL 'SLOT-FIRST = TYP10>
1593                     <NTHUV TYP10 COD9 = COD9 (TYPE FIX)>
1594                     <DEAD TYP10>
1595 PHRASE32
1596                     <PUSH COD9>
1597                     <DEAD COD9>
1598                     <CALL '\1aREFERENCE 1 = STACK>
1599                     <PUSH FTMP6>
1600                     <DEAD FTMP6>
1601                     <CALL '\1aMOVE-ARG 2>
1602                     <RETURN %<>>
1603 PHRASE14
1604                     <NTHUV FAP4 4 = COD9>
1605                     <DEAD FAP4>
1606                     <TYPE? COD9 <TYPE-CODE FALSE> + PHRASE33>
1607                     <DEAD COD9>
1608                     <RETURN 'T>
1609 PHRASE33
1610                     <TYPE? FLS8 <TYPE-CODE FALSE> + TAG35>
1611                     <DEAD FLS8>
1612                     <RETURN %<>>
1613 TAG35
1614                     <FRAME '\1aDEALLOCATE-TEMP>
1615                     <FRAME '\1aMOVE-ARG>
1616                     <FRAME '\1aREFERENCE>
1617                     <PUSH %<>>
1618                     <CALL '\1aREFERENCE 1 = STACK>
1619                     <PUSH FTMP6>
1620                     <DEAD FTMP6>
1621                     <CALL '\1aMOVE-ARG 2 = STACK>
1622                     <CALL '\1aDEALLOCATE-TEMP 1>
1623                     <RETURN %<>>
1624                     <END \1aDO-FIRST-SETUP>
1625
1626 \\f
1627
1628 #WORD *5544061030*
1629                     <GFCN \1aMPARGS-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) N6 W7 CNT8>
1630                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
1631 OPT4
1632                     <PUSH %<>>
1633 OPT5
1634                     <TEMP TEMP10 TEMP14:LIST>
1635                     <INTGO>
1636                     <GEN-LVAL 'MPINFO = TEMP10>
1637                     <FRAME '\1aSTACKM>
1638                     <NTHUV TEMP10 1 = TEMP14 (TYPE LIST)>
1639                     <NTHL TEMP14 1 = STACK (TYPE NODE)>
1640                     <DEAD TEMP14>
1641                     <NTHUV TEMP10 4 = TEMP14 (TYPE LIST)>
1642                     <NTHL TEMP14 1 = STACK (TYPE TEMP)>
1643                     <DEAD TEMP14>
1644                     <NTHUV TEMP10 2 = STACK>
1645                     <NTHUV TEMP10 3 = STACK (TYPE ATOM)>
1646                     <PUSH W7>
1647                     <DEAD W7>
1648                     <NTHUV TEMP10 8 = TEMP14 (TYPE LIST)>
1649                     <NTHL TEMP14 1 = STACK>
1650                     <DEAD TEMP14>
1651                     <PUSH CNT8>
1652                     <DEAD CNT8>
1653                     <CALL '\1aSTACKM 7 = W7>
1654                     <NTHUV TEMP10 1 = TEMP14 (TYPE LIST)>
1655                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1656                     <PUTUV TEMP10 1 TEMP14 (TYPE LIST)>
1657                     <DEAD TEMP14>
1658                     <NTHUV TEMP10 4 = TEMP14 (TYPE LIST)>
1659                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1660                     <PUTUV TEMP10 4 TEMP14 (TYPE LIST)>
1661                     <DEAD TEMP14>
1662                     <NTHUV TEMP10 8 = TEMP14 (TYPE LIST)>
1663                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1664                     <PUTUV TEMP10 8 TEMP14 (TYPE LIST)>
1665                     <DEAD TEMP10 TEMP14>
1666                     <RETURN W7>
1667                     <DEAD W7>
1668                     <END \1aMPARGS-GEN>
1669
1670 \\f
1671
1672 #WORD *14642711726*
1673                     <GFCN \1aSTACKM ("VALUE" ANY NODE ANY ANY ANY ANY ANY ANY) N4 SRC5 R?6 LBL7 W8 SEG9 CNT10>
1674                     <TEMP STY11 TEMP20 ETY16 STMP12:TEMP LBL2-15 ETMP13:TEMP>
1675                     <INTGO>
1676                     <FRAME '\1aSTRUCTYP>
1677                     <NTHUV N4 3 = STACK>
1678                     <CALL '\1aSTRUCTYP 1 = STY11>
1679                     <FRAME '\1aGET-ELE-TYPE>
1680                     <NTHUV N4 3 = STACK>
1681                     <PUSH 'ALL>
1682                     <SET TEMP20 R?6>
1683                     <TYPE? TEMP20 <TYPE-CODE FALSE> + TAG22>
1684                     <TYPE? SEG9 <TYPE-CODE FALSE> - TAG21>
1685                     <SET TEMP20 'T (TYPE ATOM)>
1686                     <JUMP + TAG22>
1687 TAG21
1688                     <SET TEMP20 %<> (TYPE FALSE)>
1689 TAG22
1690                     <PUSH TEMP20>
1691                     <DEAD TEMP20>
1692                     <CALL '\1aGET-ELE-TYPE 3 = ETY16>
1693                     <EQUAL? W8 'DONT-CARE - PHRASE24>
1694                     <FRAME '\1aGEN-TEMP>
1695                     <FRAME '\1aISTYPE?>
1696                     <PUSH ETY16>
1697                     <CALL '\1aISTYPE? 1 = TEMP20>
1698                     <TYPE? TEMP20 <TYPE-CODE FALSE> - COND26>
1699                     <SET TEMP20 'T (TYPE ATOM)>
1700 COND26
1701                     <PUSH TEMP20>
1702                     <DEAD TEMP20>
1703                     <CALL '\1aGEN-TEMP 1 = W8>
1704                     <JUMP + PHRASE28>
1705 PHRASE24
1706                     <TYPE? W8 <TYPE-CODE TEMP> - PHRASE28>
1707                     <FRAME '\1aUSE-TEMP>
1708                     <PUSH W8>
1709                     <FRAME '\1aISTYPE?>
1710                     <PUSH ETY16>
1711                     <CALL '\1aISTYPE? 1 = STACK>
1712                     <CALL '\1aUSE-TEMP 2>
1713 PHRASE28
1714                     <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE32>
1715                     <DEAD SEG9>
1716                     <FRAME '\1aIEMIT>
1717                     <PUSH '`SET>
1718                     <FRAME '\1aGEN-TEMP>
1719                     <CALL '\1aGEN-TEMP 0 = STMP12>
1720                     <PUSH STMP12>
1721                     <PUSH SRC5>
1722                     <DEAD SRC5>
1723                     <CALL '\1aIEMIT 3>
1724                     <FRAME '\1aIEMIT>
1725                     <PUSH '`LOOP>
1726                     <CONS 'VALUE () = TEMP20>
1727                     <CONS 'LENGTH TEMP20 = TEMP20>
1728                     <NTHUV STMP12 1 = STY11 (TYPE ATOM)>
1729                     <CONS STY11 TEMP20 = STACK>
1730                     <DEAD STY11 TEMP20>
1731                     <CALL '\1aIEMIT 2>
1732                     <FRAME '\1aLABEL-TAG>
1733                     <FRAME '\1aMAKE-TAG>
1734                     <CALL '\1aMAKE-TAG 0 = STY11>
1735                     <PUSH STY11>
1736                     <CALL '\1aLABEL-TAG 1>
1737                     <FRAME '\1aIEMIT>
1738                     <PUSH '`INTGO>
1739                     <CALL '\1aIEMIT 1>
1740                     <FRAME '\1aEMPTY-CHECK>
1741                     <PUSH 'TUPLE>
1742                     <PUSH STMP12>
1743                     <PUSH 'TUPLE>
1744                     <PUSH 'T>
1745                     <FRAME '\1aMAKE-TAG>
1746                     <CALL '\1aMAKE-TAG 0 = LBL2-15>
1747                     <PUSH LBL2-15>
1748                     <CALL '\1aEMPTY-CHECK 5>
1749                     <FRAME '\1aNTH-DO>
1750                     <PUSH 'TUPLE>
1751                     <PUSH STMP12>
1752                     <FRAME '\1aGEN-TEMP>
1753                     <CALL '\1aGEN-TEMP 0 = ETMP13>
1754                     <PUSH ETMP13>
1755                     <PUSH 1>
1756                     <CALL '\1aNTH-DO 4>
1757                     <FRAME '\1aGET-ELE-TYPE>
1758                     <NTHUV N4 5 = TEMP20 (TYPE LIST)>
1759                     <DEAD N4>
1760                     <NTHL TEMP20 1 = TEMP20 (TYPE NODE)>
1761                     <NTHUV TEMP20 3 = STACK>
1762                     <DEAD TEMP20>
1763                     <PUSH 'ALL>
1764                     <CALL '\1aGET-ELE-TYPE 2 = ETY16>
1765                     <TYPE? R?6 <TYPE-CODE FALSE> + PHRASE46>
1766                     <DEAD R?6>
1767                     <FRAME '\1aPUSH>
1768                     <PUSH ETMP13>
1769                     <CALL '\1aPUSH 1>
1770                     <JUMP + PHRASE51>
1771 PHRASE46
1772                     <FRAME '\1aSTRUCTYP>
1773                     <PUSH ETY16>
1774                     <DEAD ETY16>
1775                     <CALL '\1aSTRUCTYP 1 = ETY16>
1776                     <TYPE? ETY16 <TYPE-CODE FALSE> + PHRASE48>
1777                     <FRAME '\1aNTH-DO>
1778                     <PUSH ETY16>
1779                     <DEAD ETY16>
1780                     <PUSH ETMP13>
1781                     <GVAL 'POP-STACK = STACK>
1782                     <PUSH 1>
1783                     <CALL '\1aNTH-DO 4>
1784                     <JUMP + PHRASE51>
1785 PHRASE48
1786                     <FRAME '\1aIEMIT>
1787                     <PUSH '`NTH1>
1788                     <PUSH ETMP13>
1789                     <PUSH '=>
1790                     <GVAL 'POP-STACK = STACK>
1791                     <CALL '\1aIEMIT 4>
1792 PHRASE51
1793                     <FRAME '\1aIEMIT>
1794                     <PUSH '`ADD>
1795                     <PUSH CNT10>
1796                     <PUSH 1>
1797                     <PUSH '=>
1798                     <PUSH CNT10>
1799                     <DEAD CNT10>
1800                     <PUSH (`TYPE FIX)>
1801                     <CALL '\1aIEMIT 6>
1802                     <FRAME '\1aREST-DO>
1803                     <PUSH 'TUPLE>
1804                     <PUSH STMP12>
1805                     <PUSH STMP12>
1806                     <PUSH 1>
1807                     <CALL '\1aREST-DO 4>
1808                     <FRAME '\1aBRANCH-TAG>
1809                     <PUSH STY11>
1810                     <DEAD STY11>
1811                     <CALL '\1aBRANCH-TAG 1>
1812                     <FRAME '\1aLABEL-TAG>
1813                     <PUSH LBL2-15>
1814                     <DEAD LBL2-15>
1815                     <CALL '\1aLABEL-TAG 1>
1816                     <FRAME '\1aFREE-TEMP>
1817                     <PUSH ETMP13>
1818                     <DEAD ETMP13>
1819                     <CALL '\1aFREE-TEMP 1>
1820                     <FRAME '\1aFREE-TEMP>
1821                     <PUSH STMP12>
1822                     <DEAD STMP12>
1823                     <CALL '\1aFREE-TEMP 1>
1824                     <RETURN W8>
1825                     <DEAD W8>
1826 PHRASE32
1827                     <FRAME '\1aISTYPE?>
1828                     <PUSH ETY16>
1829                     <DEAD ETY16>
1830                     <CALL '\1aISTYPE? 1>
1831                     <TYPE? R?6 <TYPE-CODE FALSE> + PHRASE62>
1832                     <DEAD R?6>
1833                     <FRAME '\1aIEMIT>
1834                     <PUSH '`SET>
1835                     <PUSH W8>
1836                     <PUSH SRC5>
1837                     <DEAD SRC5>
1838                     <CALL '\1aIEMIT 3>
1839                     <RETURN W8>
1840                     <DEAD W8>
1841 PHRASE62
1842                     <TYPE? STY11 <TYPE-CODE FALSE> + PHRASE64>
1843                     <FRAME '\1aNTH-DO>
1844                     <PUSH STY11>
1845                     <DEAD STY11>
1846                     <PUSH SRC5>
1847                     <DEAD SRC5>
1848                     <PUSH W8>
1849                     <PUSH 1>
1850                     <CALL '\1aNTH-DO 4>
1851                     <RETURN W8>
1852                     <DEAD W8>
1853 PHRASE64
1854                     <FRAME '\1aIEMIT>
1855                     <PUSH '`NTH1>
1856                     <PUSH SRC5>
1857                     <DEAD SRC5>
1858                     <PUSH '=>
1859                     <PUSH W8>
1860                     <CALL '\1aIEMIT 4>
1861                     <RETURN W8>
1862                     <DEAD W8>
1863                     <END \1aSTACKM>
1864
1865 #WORD *622006372*
1866                     <GFCN \1aEMPTY-MAPF-CHECK ("VALUE" ANY <LIST [REST NODE]> <LIST [REST TEMP]> ANY <LIST [REST <OR ATOM FALSE>]>) K4 STMPS5 LBL6 SEG?7>
1867                     <TEMP TEMP24 TEMP19:LIST TEMP20:LIST TEMP21:LIST N26:NODE TMP27 STYP29 STMP8:TEMP LBL2-11>
1868                     <INTGO>
1869                     <SET TEMP24 %<> (TYPE FALSE)>
1870                     <SET TEMP19 K4 (TYPE LIST)>
1871                     <DEAD K4>
1872                     <SET TEMP20 STMPS5 (TYPE LIST)>
1873                     <DEAD STMPS5>
1874                     <SET TEMP21 SEG?7 (TYPE LIST)>
1875                     <DEAD SEG?7>
1876                     <LOOP>
1877 MAP14
1878                     <INTGO>
1879                     <EMPL? TEMP19 + MAPAP17>
1880                     <EMPL? TEMP20 + MAPAP17>
1881                     <EMPL? TEMP21 + MAPAP17>
1882                     <NTHL TEMP19 1 = N26>
1883                     <NTHL TEMP20 1 = TMP27>
1884                     <NTHL TEMP21 1 = TEMP24>
1885                     <FRAME '\1aSTRUCTYP>
1886                     <NTHUV N26 3 = STACK>
1887                     <CALL '\1aSTRUCTYP 1 = STYP29>
1888                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE32>
1889                     <DEAD TEMP24>
1890                     <FRAME '\1aIEMIT>
1891                     <PUSH '`SET>
1892                     <FRAME '\1aGEN-TEMP>
1893                     <CALL '\1aGEN-TEMP 0 = STMP8>
1894                     <PUSH STMP8>
1895                     <PUSH TMP27>
1896                     <DEAD TMP27>
1897                     <CALL '\1aIEMIT 3>
1898                     <FRAME '\1aIEMIT>
1899                     <PUSH '`LOOP>
1900                     <CONS 'LENGTH () = TEMP24>
1901                     <CONS 'VALUE TEMP24 = TEMP24>
1902                     <NTHUV STMP8 1 = TMP27 (TYPE ATOM)>
1903                     <CONS TMP27 TEMP24 = STACK>
1904                     <DEAD TMP27 TEMP24>
1905                     <CALL '\1aIEMIT 2>
1906                     <FRAME '\1aLABEL-TAG>
1907                     <FRAME '\1aMAKE-TAG>
1908                     <CALL '\1aMAKE-TAG 0 = STYP29>
1909                     <PUSH STYP29>
1910                     <CALL '\1aLABEL-TAG 1>
1911                     <FRAME '\1aIEMIT>
1912                     <PUSH '`INTGO>
1913                     <CALL '\1aIEMIT 1>
1914                     <FRAME '\1aEMPTY-CHECK>
1915                     <PUSH 'TUPLE>
1916                     <PUSH STMP8>
1917                     <PUSH 'TUPLE>
1918                     <PUSH 'T>
1919                     <FRAME '\1aMAKE-TAG>
1920                     <CALL '\1aMAKE-TAG 0 = LBL2-11>
1921                     <PUSH LBL2-11>
1922                     <CALL '\1aEMPTY-CHECK 5>
1923                     <FRAME '\1aSTRUCTYP>
1924                     <FRAME '\1aGET-ELE-TYPE>
1925                     <NTHUV N26 5 = TEMP24 (TYPE LIST)>
1926                     <DEAD N26>
1927                     <NTHL TEMP24 1 = TEMP24 (TYPE NODE)>
1928                     <NTHUV TEMP24 3 = STACK>
1929                     <DEAD TEMP24>
1930                     <PUSH 'ALL>
1931                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
1932                     <CALL '\1aSTRUCTYP 1 = TEMP24>
1933                     <FRAME '\1aNTH-DO>
1934                     <PUSH 'TUPLE>
1935                     <PUSH STMP8>
1936                     <FRAME '\1aGEN-TEMP>
1937                     <CALL '\1aGEN-TEMP 0 = TMP27>
1938                     <PUSH TMP27>
1939                     <PUSH 1>
1940                     <CALL '\1aNTH-DO 4>
1941                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE48>
1942                     <FRAME '\1aEMPTY-CHECK>
1943                     <PUSH TEMP24>
1944                     <PUSH TMP27>
1945                     <PUSH TEMP24>
1946                     <DEAD TEMP24>
1947                     <PUSH 'T>
1948                     <PUSH LBL6>
1949                     <CALL '\1aEMPTY-CHECK 5>
1950                     <JUMP + PHRASE50>
1951 PHRASE48
1952                     <FRAME '\1aIEMIT>
1953                     <PUSH '`EMPTY?>
1954                     <PUSH TMP27>
1955                     <PUSH '+>
1956                     <PUSH LBL6>
1957                     <CALL '\1aIEMIT 4>
1958 PHRASE50
1959                     <FRAME '\1aREST-DO>
1960                     <PUSH 'TUPLE>
1961                     <PUSH STMP8>
1962                     <PUSH STMP8>
1963                     <PUSH 1>
1964                     <CALL '\1aREST-DO 4>
1965                     <FRAME '\1aBRANCH-TAG>
1966                     <PUSH STYP29>
1967                     <DEAD STYP29>
1968                     <CALL '\1aBRANCH-TAG 1>
1969                     <FRAME '\1aLABEL-TAG>
1970                     <PUSH LBL2-11>
1971                     <DEAD LBL2-11>
1972                     <CALL '\1aLABEL-TAG 1>
1973                     <FRAME '\1aFREE-TEMP>
1974                     <PUSH STMP8>
1975                     <DEAD STMP8>
1976                     <CALL '\1aFREE-TEMP 1>
1977                     <FRAME '\1aFREE-TEMP>
1978                     <PUSH TMP27>
1979                     <DEAD TMP27>
1980                     <CALL '\1aFREE-TEMP 1 = TEMP24>
1981                     <JUMP + PHRASE59>
1982 PHRASE32
1983                     <TYPE? STYP29 <TYPE-CODE FALSE> + PHRASE57>
1984                     <FRAME '\1aEMPTY-CHECK>
1985                     <PUSH STYP29>
1986                     <PUSH TMP27>
1987                     <DEAD TMP27>
1988                     <PUSH STYP29>
1989                     <DEAD STYP29>
1990                     <PUSH 'T>
1991                     <PUSH LBL6>
1992                     <CALL '\1aEMPTY-CHECK 5 = TEMP24>
1993                     <JUMP + PHRASE59>
1994 PHRASE57
1995                     <FRAME '\1aIEMIT>
1996                     <PUSH '`EMPTY?>
1997                     <PUSH TMP27>
1998                     <DEAD TMP27>
1999                     <PUSH '+>
2000                     <PUSH LBL6>
2001                     <CALL '\1aIEMIT 4 = TEMP24>
2002 PHRASE59
2003                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2004                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
2005                     <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
2006                     <JUMP + MAP14>
2007 MAPAP17
2008                     <RETURN TEMP24>
2009                     <DEAD TEMP24>
2010                     <END \1aEMPTY-MAPF-CHECK>
2011
2012 #WORD *17510610437*
2013                     <GFCN \1aREM-TUPS ("VALUE" ANY)>
2014                     <TEMP TEMP6 TEMP13>
2015                     <INTGO>
2016                     <GEN-LVAL 'STK-CHARS8 = TEMP6>
2017                     <VEQUAL? TEMP6 0 + PHRASE5 (TYPE FIX)>
2018                     <DEAD TEMP6>
2019                     <GEN-LVAL 'STK-CHARS8 = TEMP6>
2020                     <GEN-LVAL 'STK = TEMP13>
2021                     <ADD TEMP6 TEMP13 = TEMP6 (TYPE FIX)>
2022                     <DEAD TEMP13>
2023                     <GEN-SET 'STK-CHARS8 TEMP6>
2024                     <DEAD TEMP6>
2025                     <GEN-LVAL 'STK-CHARS7 = TEMP6>
2026                     <GEN-LVAL 'STK = TEMP13>
2027                     <ADD TEMP6 TEMP13 = TEMP6 (TYPE FIX)>
2028                     <DEAD TEMP13>
2029                     <GEN-SET 'STK-CHARS7 TEMP6>
2030                     <DEAD TEMP6>
2031                     <GEN-SET 'STK 0>
2032 PHRASE5
2033                     <GEN-ASSIGNED? 'STKTMP - PHRASE27>
2034                     <GEN-LVAL 'STK = TEMP13>
2035                     <VEQUAL? TEMP13 0 + PHRASE29 (TYPE FIX)>
2036                     <DEAD TEMP13>
2037                     <FRAME '\1aIEMIT>
2038                     <PUSH '`SUB>
2039                     <GEN-LVAL 'STKTMP = STACK>
2040                     <GEN-LVAL 'STK = STACK>
2041                     <PUSH '=>
2042                     <GEN-LVAL 'STKTMP = STACK>
2043                     <CONS 'FIX () = TEMP6>
2044                     <CONS '`TYPE TEMP6 = STACK>
2045                     <DEAD TEMP6>
2046                     <CALL '\1aIEMIT 6>
2047                     <JUMP + PHRASE44>
2048 PHRASE29
2049                     <GEN-LVAL 'STK-CHARS7 = TEMP6>
2050                     <VEQUAL? TEMP6 0 + PHRASE44 (TYPE FIX)>
2051                     <DEAD TEMP6>
2052                     <FRAME '\1aIEMIT>
2053                     <PUSH '`IFSYS>
2054                     <PUSH "TOPS20">
2055                     <CALL '\1aIEMIT 2>
2056                     <FRAME '\1aIEMIT>
2057                     <PUSH '`SUB>
2058                     <GEN-LVAL 'STKTMP = STACK>
2059                     <GEN-LVAL 'STK-CHARS7 = STACK>
2060                     <PUSH '=>
2061                     <GEN-LVAL 'STKTMP = STACK>
2062                     <CALL '\1aIEMIT 5>
2063                     <FRAME '\1aIEMIT>
2064                     <PUSH '`ENDIF>
2065                     <PUSH "TOPS20">
2066                     <CALL '\1aIEMIT 2>
2067                     <FRAME '\1aIEMIT>
2068                     <PUSH '`IFSYS>
2069                     <PUSH "UNIX">
2070                     <CALL '\1aIEMIT 2>
2071                     <FRAME '\1aIEMIT>
2072                     <PUSH '`SUB>
2073                     <GEN-LVAL 'STKTMP = STACK>
2074                     <GEN-LVAL 'STK-CHARS8 = STACK>
2075                     <PUSH '=>
2076                     <GEN-LVAL 'STKTMP = STACK>
2077                     <CALL '\1aIEMIT 5>
2078                     <FRAME '\1aIEMIT>
2079                     <PUSH '`ENDIF>
2080                     <PUSH "UNIX">
2081                     <CALL '\1aIEMIT 2>
2082 PHRASE44
2083                     <FRAME '\1aIEMIT>
2084                     <PUSH '`ADJ>
2085                     <GEN-LVAL 'STKTMP = STACK>
2086                     <CALL '\1aIEMIT 2>
2087                     <FRAME '\1aFREE-TEMP>
2088                     <GEN-LVAL 'STKTMP = STACK>
2089                     <CALL '\1aFREE-TEMP 1 = TEMP6>
2090                     <RETURN TEMP6>
2091                     <DEAD TEMP6>
2092 PHRASE27
2093                     <GEN-LVAL 'STK = TEMP6>
2094                     <VEQUAL? TEMP6 0 + PHRASE81 (TYPE FIX)>
2095                     <DEAD TEMP6>
2096                     <FRAME '\1aIEMIT>
2097                     <PUSH '`ADJ>
2098                     <GEN-LVAL 'STK = TEMP6>
2099                     <SUB 0 TEMP6 = STACK (TYPE FIX)>
2100                     <DEAD TEMP6>
2101                     <CALL '\1aIEMIT 2 = TEMP6>
2102                     <RETURN TEMP6>
2103                     <DEAD TEMP6>
2104 PHRASE81
2105                     <GEN-LVAL 'STK-CHARS8 = TEMP6>
2106                     <VEQUAL? TEMP6 0 - TAG93 (TYPE FIX)>
2107                     <DEAD TEMP6>
2108                     <RETURN %<>>
2109 TAG93
2110                     <FRAME '\1aIEMIT>
2111                     <PUSH '`IFSYS>
2112                     <PUSH "TOPS20">
2113                     <CALL '\1aIEMIT 2>
2114                     <FRAME '\1aIEMIT>
2115                     <PUSH '`ADJ>
2116                     <GEN-LVAL 'STK-CHARS7 = TEMP6>
2117                     <SUB 0 TEMP6 = STACK (TYPE FIX)>
2118                     <DEAD TEMP6>
2119                     <CALL '\1aIEMIT 2>
2120                     <FRAME '\1aIEMIT>
2121                     <PUSH '`ENDIF>
2122                     <PUSH "TOPS20">
2123                     <CALL '\1aIEMIT 2>
2124                     <FRAME '\1aIEMIT>
2125                     <PUSH '`IFSYS>
2126                     <PUSH "UNIX">
2127                     <CALL '\1aIEMIT 2>
2128                     <FRAME '\1aIEMIT>
2129                     <PUSH '`ADJ>
2130                     <GEN-LVAL 'STK-CHARS8 = TEMP6>
2131                     <SUB 0 TEMP6 = STACK (TYPE FIX)>
2132                     <DEAD TEMP6>
2133                     <CALL '\1aIEMIT 2>
2134                     <FRAME '\1aIEMIT>
2135                     <PUSH '`ENDIF>
2136                     <PUSH "UNIX">
2137                     <CALL '\1aIEMIT 2 = TEMP6>
2138                     <RETURN TEMP6>
2139                     <DEAD TEMP6>
2140                     <END \1aREM-TUPS>
2141
2142 #WORD *12047442126*
2143                     <GFCN \1aFLUSH-TUPLES ("VALUE" ANY LIST LIST) STMPS4 SEG?5>
2144                     <TEMP TEMP16 TEMP12:LIST TEMP13:LIST SEGF19>
2145                     <INTGO>
2146                     <SET TEMP16 %<> (TYPE FALSE)>
2147                     <SET TEMP12 STMPS4 (TYPE LIST)>
2148                     <DEAD STMPS4>
2149                     <SET TEMP13 SEG?5 (TYPE LIST)>
2150                     <DEAD SEG?5>
2151                     <LOOP>
2152 MAP7
2153                     <INTGO>
2154                     <EMPL? TEMP12 + MAPAP10>
2155                     <EMPL? TEMP13 + MAPAP10>
2156                     <NTHL TEMP12 1 = TEMP16>
2157                     <NTHL TEMP13 1 = SEGF19>
2158                     <TYPE? SEGF19 <TYPE-CODE FALSE> + PHRASE21>
2159                     <DEAD SEGF19>
2160                     <FRAME '\1aLENGTH-VECTOR>
2161                     <PUSH TEMP16>
2162                     <PUSH TEMP16>
2163                     <CALL '\1aLENGTH-VECTOR 2>
2164                     <FRAME '\1aIEMIT>
2165                     <PUSH '`SUB>
2166                     <PUSH 0>
2167                     <PUSH TEMP16>
2168                     <PUSH '=>
2169                     <PUSH TEMP16>
2170                     <PUSH (`TYPE FIX)>
2171                     <CALL '\1aIEMIT 6>
2172                     <FRAME '\1aIEMIT>
2173                     <PUSH '`MUL>
2174                     <PUSH TEMP16>
2175                     <PUSH 2>
2176                     <PUSH '=>
2177                     <PUSH TEMP16>
2178                     <PUSH (`TYPE FIX)>
2179                     <CALL '\1aIEMIT 6>
2180                     <FRAME '\1aIEMIT>
2181                     <PUSH '`ADJ>
2182                     <PUSH TEMP16>
2183                     <CALL '\1aIEMIT 2>
2184 PHRASE21
2185                     <FRAME '\1aFREE-TEMP>
2186                     <PUSH TEMP16>
2187                     <DEAD TEMP16>
2188                     <CALL '\1aFREE-TEMP 1 = TEMP16>
2189                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2190                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
2191                     <JUMP + MAP7>
2192 MAPAP10
2193                     <RETURN TEMP16>
2194                     <DEAD TEMP16>
2195                     <END \1aFLUSH-TUPLES>
2196
2197 \\f
2198
2199 #WORD *35220652003*
2200                     <GFCN \1aHMAPFR ("VALUE" ANY NODE ANY <LIST [REST NODE]> ANY ANY ANY) MNOD4 MWHERE5 K6 NF7 BR8 DIR9>
2201                     <TEMP TEMP3:LBIND FAP11:NODE TEMP46 TEMP50 (FF?16 %<>) SUBRC20 FOONARG28 TEMP73 TEMP82 X97 SEG?34:LIST SEGCNT35 (FWHERE38 %<>) (ANY-EMPTY41 %<>) TEMP119 TEMP113 FEXIT31 K278:LIST STMPS281:LIST SEG?283:LIST TMP279:TEMP T-NAME284:ATOM VAL282>
2202                     <INTGO>
2203                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
2204                     <BBIND 'MNOD 'NODE %<> MNOD4>
2205                     <DEAD MNOD4>
2206                     <BBIND 'MWHERE 'ANY %<> MWHERE5>
2207                     <DEAD MWHERE5>
2208                     <BBIND 'BR 'ANY %<> BR8>
2209                     <DEAD BR8>
2210                     <BBIND 'DIR 'ANY %<> DIR9>
2211                     <DEAD DIR9>
2212                     <FIXBIND>
2213                     <BBIND 'SPECD <OR FALSE ATOM> 'FIX %<>>
2214                     <NTHL K6 1 = FAP11 (TYPE NODE)>
2215                     <RESTL K6 1 = TEMP46 (TYPE LIST)>
2216                     <NTHL TEMP46 1 = TEMP46 (TYPE NODE)>
2217                     <BBIND 'INRAP 'NODE 'FIX TEMP46>
2218                     <DEAD TEMP46>
2219                     <BBIND 'F? 'ANY 'FIX>
2220                     <RESTL K6 1 = K6 (TYPE LIST)>
2221                     <RESTL K6 1 = K6 (TYPE LIST)>
2222                     <LENL K6 = TEMP46 (TYPE FIX)>
2223                     <BBIND 'NARG 'FIX 'FIX TEMP46>
2224                     <DEAD TEMP46>
2225                     <NTHR 'MNOD 2 = TEMP46 (RECORD-TYPE ATOM) (TYPE LBIND)>
2226                     <NTHR TEMP46 1 = TEMP46 (RECORD-TYPE LBIND)>
2227                     <NTHUV TEMP46 9 = TEMP46>
2228                     <GVAL 'MAPR = TEMP50>
2229                     <EQUAL? TEMP46 TEMP50 - TAG47>
2230                     <DEAD TEMP46 TEMP50>
2231                     <SET TEMP46 'T (TYPE ATOM)>
2232                     <JUMP + TAG51>
2233 TAG47
2234                     <SET TEMP46 %<> (TYPE FALSE)>
2235 TAG51
2236                     <FRAME '\1aMAKE-TAG>
2237                     <PUSH "MAP">
2238                     <CALL '\1aMAKE-TAG 1 = TEMP50>
2239                     <BBIND 'MAPEND 'ATOM 'FIX TEMP50>
2240                     <DEAD TEMP50>
2241                     <FRAME '\1aMAKE-TAG>
2242                     <PUSH "MAP">
2243                     <CALL '\1aMAKE-TAG 1 = TEMP50>
2244                     <BBIND 'MAPLP 'ATOM 'FIX TEMP50>
2245                     <DEAD TEMP50>
2246                     <FRAME '\1aMAKE-TAG>
2247                     <PUSH "MAP">
2248                     <CALL '\1aMAKE-TAG 1 = TEMP50>
2249                     <BBIND 'REST-TAG 'ATOM 'FIX TEMP50>
2250                     <DEAD TEMP50>
2251                     <FRAME '\1aAP?>
2252                     <PUSH FAP11>
2253                     <CALL '\1aAP? 1 = SUBRC20>
2254                     <GEN-LVAL 'BASEF = TEMP50>
2255                     <BBIND 'BASEF 'NODE 'FIX TEMP50>
2256                     <DEAD TEMP50>
2257                     <BBIND 'MAYBE-FALSE 'ANY 'FIX %<>>
2258                     <FRAME '\1aMAKE-TAG>
2259                     <PUSH "MAPEX">
2260                     <CALL '\1aMAKE-TAG 1 = TEMP50>
2261                     <BBIND 'EXIT 'ATOM 'FIX TEMP50>
2262                     <DEAD TEMP50>
2263                     <FRAME '\1aMAKE-TAG>
2264                     <PUSH "MAPAP">
2265                     <CALL '\1aMAKE-TAG 1 = TEMP50>
2266                     <BBIND 'APPLTAG 'ATOM 'FIX TEMP50>
2267                     <DEAD TEMP50>
2268                     <NTHR 'MWHERE 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
2269                     <NTHR TEMP50 1 = TEMP50 (RECORD-TYPE LBIND)>
2270                     <EQUAL? TEMP50 'FLUSHED - TAG60>
2271                     <DEAD TEMP50>
2272                     <SET TEMP50 'T (TYPE ATOM)>
2273                     <JUMP + TAG63>
2274 TAG60
2275                     <SET TEMP50 %<> (TYPE FALSE)>
2276 TAG63
2277                     <BBIND 'FLS 'ANY 'FIX TEMP50>
2278                     <DEAD TEMP50>
2279                     <FRAME '\1aMAKE-TAG>
2280                     <PUSH "MAP">
2281                     <CALL '\1aMAKE-TAG 1 = TEMP50>
2282                     <BBIND 'RTAG 'ATOM 'FIX TEMP50>
2283                     <DEAD TEMP50>
2284                     <NTHR 'NARG 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
2285                     <NTHR TEMP50 1 = FOONARG28 (RECORD-TYPE LBIND)>
2286                     <DEAD TEMP50>
2287                     <SET TEMP73 () (TYPE LIST)>
2288                     <SET TEMP50 () (TYPE LIST)>
2289                     <LOOP>
2290 MAP68
2291                     <INTGO>
2292                     <SUB FOONARG28 1 = FOONARG28 (TYPE FIX)>
2293                     <LESS? FOONARG28 0 + MAPAP71 (TYPE FIX)>
2294                     <FRAME '\1aGEN-TEMP>
2295                     <PUSH %<>>
2296                     <CALL '\1aGEN-TEMP 1 = TEMP82>
2297                     <CONS TEMP82 () = TEMP82 (TYPE LIST)>
2298                     <EMPL? TEMP73 - TAG83>
2299                     <SET TEMP73 TEMP82 (TYPE LIST)>
2300                     <JUMP + TAG84>
2301 TAG83
2302                     <PUTREST TEMP50 TEMP82>
2303                     <DEAD TEMP50>
2304 TAG84
2305                     <SET TEMP50 TEMP82 (TYPE LIST)>
2306                     <DEAD TEMP82>
2307                     <JUMP + MAP68>
2308 MAPAP71
2309                     <SET FOONARG28 TEMP73>
2310                     <DEAD TEMP73>
2311                     <BBIND 'FTMP 'ANY 'FIX>
2312                     <FRAME '\1aGEN-TEMP>
2313                     <PUSH %<>>
2314                     <CALL '\1aGEN-TEMP 1 = TEMP82>
2315                     <BBIND 'EXTMP 'ANY 'FIX TEMP82>
2316                     <DEAD TEMP82>
2317                     <FRAME '\1aGEN-TEMP>
2318                     <PUSH %<>>
2319                     <CALL '\1aGEN-TEMP 1 = TEMP82>
2320                     <BBIND 'BNDTMP 'TEMP 'FIX TEMP82>
2321                     <DEAD TEMP82>
2322                     <SET TEMP50 () (TYPE LIST)>
2323                     <SET TEMP73 () (TYPE LIST)>
2324                     <SET TEMP82 FOONARG28 (TYPE LIST)>
2325                     <LOOP>
2326 MAP88
2327                     <INTGO>
2328                     <EMPL? TEMP82 + MAPAP91>
2329                     <CONS %<> () = X97 (TYPE LIST)>
2330                     <EMPL? TEMP50 - TAG99>
2331                     <SET TEMP50 X97 (TYPE LIST)>
2332                     <JUMP + TAG100>
2333 TAG99
2334                     <PUTREST TEMP73 X97>
2335                     <DEAD TEMP73>
2336 TAG100
2337                     <SET TEMP73 X97 (TYPE LIST)>
2338                     <DEAD X97>
2339                     <RESTL TEMP82 1 = TEMP82 (TYPE LIST)>
2340                     <JUMP + MAP88>
2341 MAPAP91
2342                     <SET SEG?34 TEMP50>
2343                     <DEAD TEMP50>
2344                     <FRAME '\1aISTYPE?>
2345                     <NTHR 'INRAP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
2346                     <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
2347                     <NTHUV TEMP82 3 = STACK>
2348                     <DEAD TEMP82>
2349                     <CALL '\1aISTYPE? 1 = TEMP50>
2350                     <BBIND 'LEAVE? 'TEMP 'FIX>
2351                     <GEN-LVAL 'FREE-TEMPS = TEMP73>
2352                     <BBIND 'STKTMP 'ANY 'FIX>
2353                     <BBIND 'STK 'FIX 'FIX 0>
2354                     <BBIND 'STK-CHARS7 'FIX 'FIX 0>
2355                     <BBIND 'STK-CHARS8 'FIX 'FIX 0>
2356                     <SET TEMP82 K6 (TYPE LIST)>
2357                     <LOOP>
2358 MAP107
2359                     <INTGO>
2360                     <EMPL? TEMP82 + MAPAP110>
2361                     <NTHL TEMP82 1 = X97>
2362                     <FRAME '\1aMINL>
2363                     <NTHUV X97 3 = STACK>
2364                     <DEAD X97>
2365                     <CALL '\1aMINL 1 = TEMP119>
2366                     <LESS? TEMP119 1 - PHRASE117 (TYPE FIX)>
2367                     <DEAD TEMP119>
2368                     <SET ANY-EMPTY41 'T (TYPE ATOM)>
2369                     <JUMP + MAPAP110>
2370 PHRASE117
2371                     <RESTL TEMP82 1 = TEMP82 (TYPE LIST)>
2372                     <JUMP + MAP107>
2373 MAPAP110
2374                     <TYPE? NF7 <TYPE-CODE FALSE> + PHRASE123>
2375                     <DEAD NF7>
2376                     <NTHR 'DIR 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
2377                     <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
2378                     <TYPE? TEMP82 <TYPE-CODE FALSE> - TAG124>
2379                     <DEAD TEMP82>
2380                     <SET TEMP82 'T (TYPE ATOM)>
2381                     <JUMP + TAG125>
2382 TAG124
2383                     <SET TEMP82 %<> (TYPE FALSE)>
2384 TAG125
2385                     <NTHR 'DIR 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2386                     <PUTR TEMP113 1 TEMP82 (RECORD-TYPE LBIND)>
2387                     <DEAD TEMP113 TEMP82>
2388 PHRASE123
2389                     <GETS 'BIND = TEMP82 (TYPE LBIND)>
2390                     <GEN-LVAL 'TMPS = TEMP113>
2391                     <BBIND 'TMPS 'FORM 'FIX TEMP113>
2392                     <DEAD TEMP113>
2393                     <GEN-LVAL 'TMPS-NEXT = TEMP113>
2394                     <BBIND 'TMPS-NEXT 'LIST 'FIX TEMP113>
2395                     <DEAD TEMP113>
2396                     <GEN-LVAL 'FREE-TEMPS = TEMP113>
2397                     <BBIND 'FREE-TEMPS 'LIST 'FIX TEMP113>
2398                     <DEAD TEMP113>
2399                     <GEN-LVAL 'ALL-TEMPS-LIST = TEMP113>
2400                     <BBIND 'ALL-TEMPS-LIST 'LIST 'FIX TEMP113>
2401                     <DEAD TEMP113>
2402                     <NTHR 'MWHERE 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2403                     <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
2404                     <EQUAL? TEMP113 'DONT-CARE - PHRASE145>
2405                     <DEAD TEMP113>
2406                     <FRAME '\1aGEN-TEMP>
2407                     <PUSH %<>>
2408                     <CALL '\1aGEN-TEMP 1 = TEMP113>
2409                     <NTHR 'MWHERE 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
2410                     <PUTR X97 1 TEMP113 (RECORD-TYPE LBIND)>
2411                     <DEAD X97>
2412                     <NTHR 'FTMP 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
2413                     <PUTR X97 1 TEMP113 (RECORD-TYPE LBIND)>
2414                     <DEAD X97 TEMP113>
2415                     <JUMP + PHRASE153>
2416 PHRASE145
2417                     <FRAME '\1aGEN-TEMP>
2418                     <PUSH %<>>
2419                     <CALL '\1aGEN-TEMP 1 = TEMP113>
2420                     <NTHR 'FTMP 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
2421                     <PUTR X97 1 TEMP113 (RECORD-TYPE LBIND)>
2422                     <DEAD X97 TEMP113>
2423 PHRASE153
2424                     <FRAME '\1aDO-FIRST-SETUP>
2425                     <PUSH FAP11>
2426                     <NTHR 'MWHERE 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2427                     <NTHR TEMP113 1 = STACK (RECORD-TYPE LBIND)>
2428                     <DEAD TEMP113>
2429                     <NTHR 'FTMP 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2430                     <NTHR TEMP113 1 = STACK (RECORD-TYPE LBIND)>
2431                     <DEAD TEMP113>
2432                     <NTHR 'EXTMP 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2433                     <NTHR TEMP113 1 = STACK (RECORD-TYPE LBIND)>
2434                     <DEAD TEMP113>
2435                     <NTHR 'FLS 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2436                     <NTHR TEMP113 1 = STACK (RECORD-TYPE LBIND)>
2437                     <DEAD TEMP113>
2438                     <CALL '\1aDO-FIRST-SETUP 5 = TEMP113>
2439                     <NTHR 'F? 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
2440                     <PUTR X97 1 TEMP113 (RECORD-TYPE LBIND)>
2441                     <DEAD X97 TEMP113>
2442                     <NTHR 'F? 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2443                     <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
2444                     <TYPE? TEMP113 <TYPE-CODE FALSE> - TAG172>
2445                     <DEAD TEMP113>
2446                     <NTHUV FAP11 1 = TEMP119 (TYPE FIX)>
2447                     <VEQUAL? TEMP119 71 - TAG171 (TYPE FIX)>
2448                     <DEAD TEMP119>
2449                     <SET FF?16 'T (TYPE ATOM)>
2450                     <JUMP + TAG172>
2451 TAG171
2452                     <SET FF?16 %<> (TYPE FALSE)>
2453 TAG172
2454                     <FRAME '\1aPUSH-STRUCS>
2455                     <PUSH K6>
2456                     <PUSH FOONARG28>
2457                     <PUSH SEG?34>
2458                     <CALL '\1aPUSH-STRUCS 3>
2459                     <NTHR 'F? 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2460                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2461                     <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE175>
2462                     <DEAD TEMP119>
2463                     <FRAME '\1aDO-FINAL-SETUP>
2464                     <PUSH FAP11>
2465                     <PUSH SUBRC20>
2466                     <NTHR 'FTMP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2467                     <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
2468                     <DEAD TEMP119>
2469                     <NTHR 'EXTMP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2470                     <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
2471                     <DEAD TEMP119>
2472                     <CALL '\1aDO-FINAL-SETUP 4 = TEMP119>
2473                     <NTHR 'MAYBE-FALSE 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2474                     <PUTR TEMP113 1 TEMP119 (RECORD-TYPE LBIND)>
2475                     <DEAD TEMP113 TEMP119>
2476 PHRASE175
2477                     <NTHR 'F? 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2478                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2479                     <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE198>
2480                     <DEAD TEMP119>
2481                     <TYPE? SUBRC20 <TYPE-CODE FALSE> + TAG191>
2482                     <SET TEMP119 [VECTOR UVECTOR TUPLE STRING BYTES] (TYPE VECTOR)>
2483                     <TYPE? SUBRC20 <TYPE-CODE ATOM> - TAG191>
2484                     <LOOP (SUBRC20 VALUE) (TEMP119 LENGTH VALUE)>
2485 TAG192
2486                     <NTHUV TEMP119 1 = TEMP113>
2487                     <VEQUAL? TEMP113 SUBRC20 + PHRASE198>
2488                     <DEAD TEMP113>
2489                     <RESTUV TEMP119 1 = TEMP119 (TYPE VECTOR)>
2490                     <EMPUV? TEMP119 - TAG192>
2491 TAG191
2492                     <FRAME '\1aSTART-FRAME>
2493                     <SET TEMP119 SUBRC20>
2494                     <TYPE? TEMP119 <TYPE-CODE FALSE> - PHRASE196>
2495                     <SET TEMP119 'APPLY (TYPE ATOM)>
2496 PHRASE196
2497                     <PUSH TEMP119>
2498                     <DEAD TEMP119>
2499                     <CALL '\1aSTART-FRAME 1>
2500                     <TYPE? SUBRC20 <TYPE-CODE FALSE> - PHRASE198>
2501                     <FRAME '\1aPUSH>
2502                     <NTHR 'EXTMP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2503                     <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
2504                     <DEAD TEMP119>
2505                     <CALL '\1aPUSH 1>
2506 PHRASE198
2507                     <VEQUAL? ANY-EMPTY41 0 + PHRASE203>
2508                     <DEAD ANY-EMPTY41>
2509                     <NTHR 'BR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2510                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2511                     <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE203>
2512                     <DEAD TEMP119>
2513                     <VEQUAL? TEMP50 'FALSE + PHRASE203>
2514                     <NTHR 'DIR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2515                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2516                     <TYPE? TEMP119 <TYPE-CODE FALSE> - PHRASE203>
2517                     <DEAD TEMP119>
2518                     <FRAME '\1aEMPTY-MAPF-CHECK>
2519                     <PUSH K6>
2520                     <PUSH FOONARG28>
2521                     <NTHR 'BR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2522                     <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
2523                     <DEAD TEMP119>
2524                     <PUSH SEG?34>
2525                     <CALL '\1aEMPTY-MAPF-CHECK 4>
2526 PHRASE203
2527                     <FRAME '\1aIEMIT>
2528                     <PUSH '`LOOP>
2529                     <CALL '\1aIEMIT 1>
2530                     <FRAME '\1aLABEL-TAG>
2531                     <NTHR 'MAPLP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2532                     <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
2533                     <DEAD TEMP119>
2534                     <CALL '\1aLABEL-TAG 1>
2535                     <FRAME '\1aIEMIT>
2536                     <PUSH '`INTGO>
2537                     <CALL '\1aIEMIT 1>
2538                     <FRAME '\1aEMPTY-MAPF-CHECK>
2539                     <PUSH K6>
2540                     <PUSH FOONARG28>
2541                     <NTHR 'BR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2542                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2543                     <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE219>
2544                     <DEAD TEMP119>
2545                     <NTHR 'DIR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2546                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2547                     <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE224>
2548                     <DEAD TEMP119>
2549                     <VEQUAL? TEMP50 'FALSE + PHRASE219>
2550                     <DEAD TEMP50>
2551                     <JUMP + PHRASE227>
2552 PHRASE224
2553                     <VEQUAL? TEMP50 'FALSE - PHRASE219>
2554                     <DEAD TEMP50>
2555 PHRASE227
2556                     <NTHR 'BR 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2557                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2558                     <JUMP + PHRASE230>
2559 PHRASE219
2560                     <NTHR 'APPLTAG 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2561                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2562 PHRASE230
2563                     <PUSH TEMP119>
2564                     <DEAD TEMP119>
2565                     <PUSH SEG?34>
2566                     <CALL '\1aEMPTY-MAPF-CHECK 4>
2567                     <NTHR 'INRAP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2568                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2569                     <NTHUV TEMP119 13 = TEMP119>
2570                     <TYPE? TEMP119 <TYPE-CODE FALSE> - BOOL236>
2571                     <DEAD TEMP119>
2572                     <FRAME '\1aOR?>
2573                     <SET TEMP113 0 (TYPE FIX)>
2574                     <SET TEMP119 SEG?34>
2575                     <LOOP (TEMP119 VALUE) (TEMP113 VALUE)>
2576 TAG240
2577                     <INTGO>
2578                     <EMPL? TEMP119 + TAG239>
2579                     <NTHL TEMP119 1 = STACK>
2580                     <RESTL TEMP119 1 = TEMP119 (TYPE LIST)>
2581                     <ADD TEMP113 1 = TEMP113 (TYPE FIX)>
2582                     <JUMP + TAG240>
2583 TAG239
2584                     <CALL '\1aOR? TEMP113 = TEMP113>
2585                     <TYPE? TEMP113 <TYPE-CODE FALSE> + PHRASE234>
2586                     <DEAD TEMP113>
2587 BOOL236
2588                     <NTHR 'INRAP 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2589                     <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
2590                     <NTHUV TEMP113 12 = TEMP113>
2591                     <TYPE? TEMP113 <TYPE-CODE FALSE> + PHRASE234>
2592                     <DEAD TEMP113>
2593                     <NTHR 'F? 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2594                     <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
2595                     <TYPE? TEMP113 <TYPE-CODE FALSE> + PHRASE234>
2596                     <DEAD TEMP113>
2597                     <VEQUAL? FF?16 0 - PHRASE234>
2598                     <FRAME '\1aGEN-TEMP>
2599                     <CALL '\1aGEN-TEMP 0 = TEMP113>
2600                     <NTHR 'LEAVE? 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2601                     <PUTR TEMP119 1 TEMP113 (RECORD-TYPE LBIND)>
2602                     <DEAD TEMP119 TEMP113>
2603                     <FRAME '\1aIEMIT>
2604                     <PUSH '`SET>
2605                     <NTHR 'LEAVE? 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2606                     <NTHR TEMP113 1 = STACK (RECORD-TYPE LBIND)>
2607                     <DEAD TEMP113>
2608                     <PUSH 0>
2609                     <CALL '\1aIEMIT 3>
2610                     <FRAME '\1aIEMIT>
2611                     <PUSH '`ICALL>
2612                     <FRAME '\1aMAKE-TAG>
2613                     <CALL '\1aMAKE-TAG 0 = FEXIT31>
2614                     <PUSH FEXIT31>
2615                     <PUSH '=>
2616                     <FRAME '\1aGEN-TEMP>
2617                     <CALL '\1aGEN-TEMP 0 = FWHERE38>
2618                     <PUSH FWHERE38>
2619                     <CALL '\1aIEMIT 4>
2620                     <NTHR 'ALL-TEMPS-LIST 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2621                     <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
2622                     <CONS %<> () = TEMP119>
2623                     <NTHR 'FREE-TEMPS 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
2624                     <NTHR X97 1 = X97 (RECORD-TYPE LBIND)>
2625                     <CONS X97 TEMP119 = TEMP119>
2626                     <DEAD X97>
2627                     <NTHR 'TMPS-NEXT 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
2628                     <NTHR X97 1 = X97 (RECORD-TYPE LBIND)>
2629                     <CONS X97 TEMP119 = TEMP119>
2630                     <DEAD X97>
2631                     <NTHR 'TMPS 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
2632                     <NTHR X97 1 = X97 (RECORD-TYPE LBIND)>
2633                     <CONS X97 TEMP119 = TEMP119>
2634                     <DEAD X97>
2635                     <CONS TEMP119 TEMP113 = TEMP113>
2636                     <DEAD TEMP119>
2637                     <NTHR 'ALL-TEMPS-LIST 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2638                     <PUTR TEMP119 1 TEMP113 (RECORD-TYPE LBIND)>
2639                     <DEAD TEMP119 TEMP113>
2640                     <FRAME '\1aMIM-TEMPS-HOLD>
2641                     <CALL '\1aMIM-TEMPS-HOLD 0>
2642                     <FRAME '\1aMIM-TEMPS-EMIT>
2643                     <CALL '\1aMIM-TEMPS-EMIT 0>
2644                     <NTHR 'FREE-TEMPS 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2645                     <PUTR TEMP113 1 () (RECORD-TYPE LBIND)>
2646                     <DEAD TEMP113>
2647                     <FRAME '\1aGEN-TEMP>
2648                     <CALL '\1aGEN-TEMP 0 = TEMP50>
2649                     <FRAME '\1aPREV-FRAME>
2650                     <PUSH TEMP50>
2651                     <CALL '\1aPREV-FRAME 1>
2652                     <FRAME '\1aPUT>
2653                     <NTHR 'ALL-TEMPS-LIST 2 = TEMP113 (RECORD-TYPE ATOM) (TYPE LBIND)>
2654                     <NTHR TEMP113 1 = TEMP113 (RECORD-TYPE LBIND)>
2655                     <NTHL TEMP113 1 = STACK>
2656                     <DEAD TEMP113>
2657                     <PUSH 4>
2658                     <PUSH TEMP50>
2659                     <DEAD TEMP50>
2660                     <CALL '\1aPUT 3>
2661 PHRASE234
2662                     <NTHR 'INRAP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2663                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2664                     <NTHUV TEMP119 10 = TEMP113 (TYPE LIST)>
2665                     <DEAD TEMP119>
2666                     <SET K278 K6>
2667                     <SET STMPS281 FOONARG28>
2668                     <SET SEG?283 SEG?34>
2669                     <LOOP>
2670 AGAIN287
2671                     <INTGO>
2672                     <EMPL? STMPS281 - PHRASE289 (TYPE LIST)>
2673                     <SET TEMP119 TEMP113 (TYPE LIST)>
2674                     <DEAD TEMP113>
2675                     <LOOP>
2676 MAP291
2677                     <INTGO>
2678                     <EMPL? TEMP119 + EXIT274>
2679                     <NTHL TEMP119 1 = TEMP46>
2680                     <NTHR 'SPECD 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
2681                     <NTHR TEMP50 1 = TEMP50 (RECORD-TYPE LBIND)>
2682                     <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE301>
2683                     <DEAD TEMP50>
2684                     <NTHUV TEMP46 3 = TEMP50>
2685                     <TYPE? TEMP50 <TYPE-CODE FALSE> + PHRASE301>
2686                     <DEAD TEMP50>
2687                     <FRAME '\1aSAVE-BINDING>
2688                     <NTHR 'BNDTMP 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
2689                     <NTHR TEMP50 1 = STACK (RECORD-TYPE LBIND)>
2690                     <DEAD TEMP50>
2691                     <CALL '\1aSAVE-BINDING 1>
2692                     <NTHR 'SPECD 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
2693                     <PUTR TEMP50 1 'T (RECORD-TYPE LBIND)>
2694                     <DEAD TEMP50>
2695 PHRASE301
2696                     <NTHUV TEMP46 3 = TEMP50>
2697                     <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE312>
2698                     <DEAD TEMP50>
2699                     <FRAME '\1aGEN-TEMP>
2700                     <PUSH %<>>
2701                     <NTHUV TEMP46 2 = STACK (TYPE ATOM)>
2702                     <PUSH 'T>
2703                     <NTHUV TEMP46 7 = STACK>
2704                     <CALL '\1aGEN-TEMP 4 = TMP279>
2705                     <PUTUV TEMP46 10 TMP279>
2706                     <NTHUV TMP279 1 = T-NAME284 (TYPE ATOM)>
2707 PHRASE312
2708                     <FRAME '\1aMBIND-GENERATE>
2709                     <PUSH TEMP46>
2710                     <CALL '\1aMBIND-GENERATE 1 = TEMP50>
2711                     <TYPE? TEMP50 <TYPE-CODE FALSE> + PHRASE315>
2712                     <DEAD TEMP50>
2713                     <NTHUV TEMP46 3 = TEMP50>
2714                     <DEAD TEMP46>
2715                     <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE315>
2716                     <DEAD TEMP50>
2717                     <NTHR 'TMPS-NEXT 2 = TEMP50 (RECORD-TYPE ATOM) (TYPE LBIND)>
2718                     <NTHR TEMP50 1 = TEMP50 (RECORD-TYPE LBIND)>
2719                     <CONS T-NAME284 () = X97>
2720                     <NTHR 'TMPS-NEXT 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2721                     <PUTR ANY-EMPTY41 1 X97 (RECORD-TYPE LBIND)>
2722                     <DEAD ANY-EMPTY41>
2723                     <PUTREST TEMP50 X97>
2724                     <DEAD TEMP50 X97>
2725                     <FRAME '\1aUSE-TEMP>
2726                     <PUSH TMP279>
2727                     <CALL '\1aUSE-TEMP 1>
2728                     <PUTUV TMP279 2 1 (TYPE FIX)>
2729 PHRASE315
2730                     <RESTL TEMP119 1 = TEMP119 (TYPE LIST)>
2731                     <JUMP + MAP291>
2732 PHRASE289
2733                     <NTHL TEMP113 1 = TEMP50>
2734                     <NTHUV TEMP50 3 = TEMP119>
2735                     <TYPE? TEMP119 <TYPE-CODE FALSE> + PHRASE327>
2736                     <DEAD TEMP119>
2737                     <NTHR 'SPECD 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2738                     <NTHR TEMP119 1 = TEMP119 (RECORD-TYPE LBIND)>
2739                     <TYPE? TEMP119 <TYPE-CODE FALSE> - PHRASE327>
2740                     <DEAD TEMP119>
2741                     <FRAME '\1aSAVE-BINDING>
2742                     <NTHR 'BNDTMP 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2743                     <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
2744                     <DEAD TEMP119>
2745                     <CALL '\1aSAVE-BINDING 1>
2746                     <NTHR 'SPECD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2747                     <PUTR ANY-EMPTY41 1 'T (RECORD-TYPE LBIND)>
2748                     <DEAD ANY-EMPTY41>
2749 PHRASE327
2750                     <NTHUV TEMP50 3 = ANY-EMPTY41>
2751                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> - PHRASE337>
2752                     <DEAD ANY-EMPTY41>
2753                     <FRAME '\1aGEN-TEMP>
2754                     <PUSH %<>>
2755                     <NTHUV TEMP50 2 = STACK (TYPE ATOM)>
2756                     <PUSH 'T>
2757                     <PUSH 'T>
2758                     <CALL '\1aGEN-TEMP 4 = TMP279>
2759                     <PUTUV TEMP50 10 TMP279>
2760                     <NTHR 'TMPS-NEXT 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2761                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
2762                     <NTHUV TEMP50 12 = TEMP119>
2763                     <TYPE? TEMP119 <TYPE-CODE FALSE> - PHRASE342>
2764                     <DEAD TEMP119>
2765                     <FRAME '\1aISTYPE?>
2766                     <NTHUV TEMP50 18 = STACK>
2767                     <CALL '\1aISTYPE? 1 = X97>
2768                     <TYPE? X97 <TYPE-CODE FALSE> + PHRASE342>
2769                     <FRAME '\1aTYPEPRIM>
2770                     <PUSH X97>
2771                     <CALL '\1aTYPEPRIM 1 = TEMP119>
2772                     <EQUAL? TEMP119 'FIX + BOOL345>
2773                     <EQUAL? TEMP119 'WORD + BOOL345>
2774                     <EQUAL? TEMP119 'LIST - PHRASE342>
2775                     <DEAD TEMP119>
2776 BOOL345
2777                     <NTHUV TMP279 1 = STACK (TYPE ATOM)>
2778                     <PUSH X97>
2779                     <DEAD X97>
2780                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP119>
2781                     <CHTYPE TEMP119 <TYPE-CODE ADECL> = TEMP119>
2782                     <JUMP + PHRASE348>
2783 PHRASE342
2784                     <NTHUV TMP279 1 = TEMP119 (TYPE ATOM)>
2785 PHRASE348
2786                     <CONS TEMP119 () = X97>
2787                     <DEAD TEMP119>
2788                     <NTHR 'TMPS-NEXT 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)>
2789                     <PUTR TEMP119 1 X97 (RECORD-TYPE LBIND)>
2790                     <DEAD TEMP119>
2791                     <PUTREST ANY-EMPTY41 X97>
2792                     <DEAD ANY-EMPTY41 X97>
2793                     <PUTUV TMP279 2 1 (TYPE FIX)>
2794 PHRASE337
2795                     <NTHL SEG?283 1 = ANY-EMPTY41>
2796                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE352>
2797                     <DEAD ANY-EMPTY41>
2798                     <NTHUV TEMP50 4 = ANY-EMPTY41 (TYPE FIX)>
2799                     <VEQUAL? ANY-EMPTY41 4 - PHRASE352 (TYPE FIX)>
2800                     <DEAD ANY-EMPTY41>
2801                     <FRAME '\1aIEMIT>
2802                     <PUSH '`SET>
2803                     <FRAME '\1aGEN-TEMP>
2804                     <CALL '\1aGEN-TEMP 0 = SEGCNT35>
2805                     <PUSH SEGCNT35>
2806                     <PUSH 0>
2807                     <CALL '\1aIEMIT 3>
2808                     <FRAME '\1aSTACKM>
2809                     <NTHL K278 1 = STACK (TYPE NODE)>
2810                     <NTHL STMPS281 1 = STACK (TYPE TEMP)>
2811                     <PUSH TEMP46>
2812                     <NTHR 'MAPEND 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2813                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
2814                     <DEAD ANY-EMPTY41>
2815                     <GVAL 'POP-STACK = STACK>
2816                     <PUSH 'T>
2817                     <PUSH SEGCNT35>
2818                     <CALL '\1aSTACKM 7>
2819                     <FRAME '\1aIEMIT>
2820                     <PUSH '`TUPLE>
2821                     <PUSH SEGCNT35>
2822                     <PUSH '=>
2823                     <NTHUV TEMP50 3 = ANY-EMPTY41>
2824                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE361>
2825                     <DEAD ANY-EMPTY41>
2826                     <FRAME '\1aGEN-TEMP>
2827                     <CALL '\1aGEN-TEMP 0 = VAL282>
2828                     <SET ANY-EMPTY41 VAL282>
2829                     <JUMP + PHRASE363>
2830 PHRASE361
2831                     <SET ANY-EMPTY41 TMP279>
2832 PHRASE363
2833                     <PUSH ANY-EMPTY41>
2834                     <DEAD ANY-EMPTY41>
2835                     <CALL '\1aIEMIT 4>
2836                     <JUMP + PHRASE366>
2837 PHRASE352
2838                     <NTHL SEG?283 1 = ANY-EMPTY41>
2839                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE364>
2840                     <DEAD ANY-EMPTY41>
2841                     <FRAME '\1aCOMPILE-LOSSAGE>
2842                     <PUSH "Not quite implemented SEGMENTS in MAPFS">
2843                     <CALL '\1aCOMPILE-LOSSAGE 1>
2844                     <JUMP + PHRASE366>
2845 PHRASE364
2846                     <FRAME '\1aSTACKM>
2847                     <NTHL K278 1 = STACK (TYPE NODE)>
2848                     <NTHL STMPS281 1 = STACK (TYPE TEMP)>
2849                     <PUSH TEMP46>
2850                     <NTHR 'MAPEND 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2851                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
2852                     <DEAD ANY-EMPTY41>
2853                     <NTHUV TEMP50 3 = ANY-EMPTY41>
2854                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE371>
2855                     <DEAD ANY-EMPTY41>
2856                     <SET ANY-EMPTY41 'DONT-CARE (TYPE ATOM)>
2857                     <JUMP + PHRASE372>
2858 PHRASE371
2859                     <SET ANY-EMPTY41 TMP279>
2860 PHRASE372
2861                     <PUSH ANY-EMPTY41>
2862                     <DEAD ANY-EMPTY41>
2863                     <PUSH %<>>
2864                     <PUSH %<>>
2865                     <CALL '\1aSTACKM 7 = VAL282>
2866 PHRASE366
2867                     <NTHUV TEMP50 3 = ANY-EMPTY41>
2868                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE374>
2869                     <DEAD ANY-EMPTY41>
2870                     <FRAME '\1aSPECIAL-BINDING>
2871                     <PUSH TEMP50>
2872                     <DEAD TEMP50>
2873                     <PUSH 'T>
2874                     <PUSH VAL282>
2875                     <CALL '\1aSPECIAL-BINDING 3>
2876                     <NTHR 'STK 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2877                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
2878                     <ADD ANY-EMPTY41 9 = ANY-EMPTY41 (TYPE FIX)>
2879                     <NTHR 'STK 2 = X97 (RECORD-TYPE ATOM) (TYPE LBIND)>
2880                     <PUTR X97 1 ANY-EMPTY41 (RECORD-TYPE LBIND)>
2881                     <DEAD X97 ANY-EMPTY41>
2882 PHRASE374
2883                     <RESTL STMPS281 1 = STMPS281 (TYPE LIST)>
2884                     <RESTL TEMP113 1 = TEMP113 (TYPE LIST)>
2885                     <RESTL K278 1 = K278 (TYPE LIST)>
2886                     <RESTL SEG?283 1 = SEG?283 (TYPE LIST)>
2887                     <JUMP + AGAIN287>
2888 EXIT274
2889                     <NTHR 'F? 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2890                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
2891                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE381>
2892                     <DEAD ANY-EMPTY41>
2893                     <FRAME '\1aSEQ-GEN>
2894                     <NTHR 'INRAP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2895                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
2896                     <NTHUV ANY-EMPTY41 5 = STACK (TYPE LIST)>
2897                     <DEAD ANY-EMPTY41>
2898                     <PUSH 'DONT-CARE>
2899                     <CALL '\1aSEQ-GEN 2 = TEMP46>
2900                     <GVAL 'NO-DATUM = ANY-EMPTY41>
2901                     <EQUAL? ANY-EMPTY41 TEMP46 + PHRASE471>
2902                     <DEAD ANY-EMPTY41>
2903                     <TYPE? FWHERE38 <TYPE-CODE FALSE> + PHRASE390>
2904                     <FRAME '\1aFREE-TEMP>
2905                     <PUSH TEMP46>
2906                     <PUSH %<>>
2907                     <CALL '\1aFREE-TEMP 2>
2908                     <FRAME '\1aPUSH>
2909                     <PUSH TEMP46>
2910                     <DEAD TEMP46>
2911                     <CALL '\1aPUSH 1>
2912                     <FRAME '\1aIEMIT>
2913                     <PUSH '`RTUPLE>
2914                     <PUSH 1>
2915                     <FRAME '\1aFREE-TEMP>
2916                     <FRAME '\1aCURRENT-FRAME>
2917                     <CALL '\1aCURRENT-FRAME 0 = STACK>
2918                     <PUSH %<>>
2919                     <CALL '\1aFREE-TEMP 2 = STACK>
2920                     <CALL '\1aIEMIT 3>
2921                     <JUMP + PHRASE471>
2922 PHRASE390
2923                     <NTHR 'SPECD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2924                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
2925                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE398>
2926                     <DEAD ANY-EMPTY41>
2927                     <FRAME '\1aIEMIT>
2928                     <PUSH '`UNBIND>
2929                     <NTHR 'BNDTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2930                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
2931                     <DEAD ANY-EMPTY41>
2932                     <CALL '\1aIEMIT 2>
2933 PHRASE398
2934                     <TYPE? SEGCNT35 <TYPE-CODE UNBOUND> + PHRASE405>
2935                     <FRAME '\1aIEMIT>
2936                     <PUSH '`SUB>
2937                     <PUSH 0>
2938                     <PUSH SEGCNT35>
2939                     <PUSH '=>
2940                     <PUSH SEGCNT35>
2941                     <PUSH (`TYPE FIX)>
2942                     <CALL '\1aIEMIT 6>
2943                     <FRAME '\1aIEMIT>
2944                     <PUSH '`MUL>
2945                     <PUSH SEGCNT35>
2946                     <PUSH 2>
2947                     <PUSH '=>
2948                     <PUSH SEGCNT35>
2949                     <PUSH (`TYPE FIX)>
2950                     <CALL '\1aIEMIT 6>
2951                     <FRAME '\1aIEMIT>
2952                     <PUSH '`ADJ>
2953                     <PUSH SEGCNT35>
2954                     <CALL '\1aIEMIT 2>
2955                     <FRAME '\1aFREE-TEMP>
2956                     <PUSH SEGCNT35>
2957                     <CALL '\1aFREE-TEMP 1>
2958 PHRASE405
2959                     <FRAME '\1aREM-TUPS>
2960                     <CALL '\1aREM-TUPS 0>
2961                     <FRAME '\1aDO-STACK-ARGS>
2962                     <NTHR 'MAYBE-FALSE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2963                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
2964                     <DEAD ANY-EMPTY41>
2965                     <PUSH TEMP46>
2966                     <NTHR 'EXTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2967                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
2968                     <DEAD ANY-EMPTY41>
2969                     <NTHR 'FTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2970                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
2971                     <DEAD ANY-EMPTY41>
2972                     <CALL '\1aDO-STACK-ARGS 4>
2973                     <FRAME '\1aFREE-TEMP>
2974                     <PUSH TEMP46>
2975                     <DEAD TEMP46>
2976                     <CALL '\1aFREE-TEMP 1>
2977                     <JUMP + PHRASE471>
2978 PHRASE381
2979                     <VEQUAL? FF?16 0 + PHRASE420>
2980                     <FRAME '\1aSEQ-GEN>
2981                     <NTHR 'INRAP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2982                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
2983                     <NTHUV ANY-EMPTY41 5 = STACK (TYPE LIST)>
2984                     <DEAD ANY-EMPTY41>
2985                     <PUSH 'DONT-CARE>
2986                     <CALL '\1aSEQ-GEN 2 = TEMP46>
2987                     <GVAL 'NO-DATUM = ANY-EMPTY41>
2988                     <EQUAL? ANY-EMPTY41 TEMP46 + PHRASE471>
2989                     <DEAD ANY-EMPTY41>
2990                     <NTHR 'SPECD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2991                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
2992                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE427>
2993                     <DEAD ANY-EMPTY41>
2994                     <FRAME '\1aIEMIT>
2995                     <PUSH '`UNBIND>
2996                     <NTHR 'BNDTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
2997                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
2998                     <DEAD ANY-EMPTY41>
2999                     <CALL '\1aIEMIT 2>
3000 PHRASE427
3001                     <TYPE? SEGCNT35 <TYPE-CODE UNBOUND> + PHRASE434>
3002                     <FRAME '\1aIEMIT>
3003                     <PUSH '`SUB>
3004                     <PUSH 0>
3005                     <PUSH SEGCNT35>
3006                     <PUSH '=>
3007                     <PUSH SEGCNT35>
3008                     <PUSH (`TYPE FIX)>
3009                     <CALL '\1aIEMIT 6>
3010                     <FRAME '\1aIEMIT>
3011                     <PUSH '`MUL>
3012                     <PUSH SEGCNT35>
3013                     <PUSH 2>
3014                     <PUSH '=>
3015                     <PUSH SEGCNT35>
3016                     <PUSH (`TYPE FIX)>
3017                     <CALL '\1aIEMIT 6>
3018                     <FRAME '\1aIEMIT>
3019                     <PUSH '`ADJ>
3020                     <PUSH SEGCNT35>
3021                     <CALL '\1aIEMIT 2>
3022                     <FRAME '\1aFREE-TEMP>
3023                     <PUSH SEGCNT35>
3024                     <CALL '\1aFREE-TEMP 1>
3025 PHRASE434
3026                     <FRAME '\1aREM-TUPS>
3027                     <CALL '\1aREM-TUPS 0>
3028                     <FRAME '\1aDO-FUNNY-HACK>
3029                     <PUSH TEMP46>
3030                     <DEAD TEMP46>
3031                     <NTHR 'MNOD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3032                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3033                     <DEAD ANY-EMPTY41>
3034                     <PUSH FAP11>
3035                     <DEAD FAP11>
3036                     <NTHR 'INRAP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3037                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3038                     <DEAD ANY-EMPTY41>
3039                     <NTHR 'FTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3040                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3041                     <DEAD ANY-EMPTY41>
3042                     <NTHR 'EXTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3043                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3044                     <DEAD ANY-EMPTY41>
3045                     <CALL '\1aDO-FUNNY-HACK 6>
3046                     <JUMP + PHRASE471>
3047 PHRASE420
3048                     <NTHR 'FLS 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3049                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
3050                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE450>
3051                     <DEAD ANY-EMPTY41>
3052                     <FRAME '\1aSEQ-GEN>
3053                     <NTHR 'INRAP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3054                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
3055                     <NTHUV ANY-EMPTY41 5 = STACK (TYPE LIST)>
3056                     <DEAD ANY-EMPTY41>
3057                     <PUSH 'FLUSHED>
3058                     <CALL '\1aSEQ-GEN 2>
3059                     <NTHR 'SPECD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3060                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
3061                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE457>
3062                     <DEAD ANY-EMPTY41>
3063                     <FRAME '\1aIEMIT>
3064                     <PUSH '`UNBIND>
3065                     <NTHR 'BNDTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3066                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3067                     <DEAD ANY-EMPTY41>
3068                     <CALL '\1aIEMIT 2>
3069 PHRASE457
3070                     <TYPE? SEGCNT35 <TYPE-CODE UNBOUND> + PHRASE464>
3071                     <FRAME '\1aIEMIT>
3072                     <PUSH '`SUB>
3073                     <PUSH 0>
3074                     <PUSH SEGCNT35>
3075                     <PUSH '=>
3076                     <PUSH SEGCNT35>
3077                     <PUSH (`TYPE FIX)>
3078                     <CALL '\1aIEMIT 6>
3079                     <FRAME '\1aIEMIT>
3080                     <PUSH '`MUL>
3081                     <PUSH SEGCNT35>
3082                     <PUSH 2>
3083                     <PUSH '=>
3084                     <PUSH SEGCNT35>
3085                     <PUSH (`TYPE FIX)>
3086                     <CALL '\1aIEMIT 6>
3087                     <FRAME '\1aIEMIT>
3088                     <PUSH '`ADJ>
3089                     <PUSH SEGCNT35>
3090                     <CALL '\1aIEMIT 2>
3091                     <FRAME '\1aFREE-TEMP>
3092                     <PUSH SEGCNT35>
3093                     <CALL '\1aFREE-TEMP 1>
3094 PHRASE464
3095                     <FRAME '\1aREM-TUPS>
3096                     <CALL '\1aREM-TUPS 0>
3097                     <JUMP + PHRASE471>
3098 PHRASE450
3099                     <FRAME '\1aSEQ-GEN>
3100                     <NTHR 'INRAP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3101                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
3102                     <NTHUV ANY-EMPTY41 5 = STACK (TYPE LIST)>
3103                     <DEAD ANY-EMPTY41>
3104                     <NTHR 'FTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3105                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3106                     <DEAD ANY-EMPTY41>
3107                     <CALL '\1aSEQ-GEN 2>
3108                     <NTHR 'SPECD 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3109                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
3110                     <TYPE? ANY-EMPTY41 <TYPE-CODE FALSE> + PHRASE478>
3111                     <DEAD ANY-EMPTY41>
3112                     <FRAME '\1aIEMIT>
3113                     <PUSH '`UNBIND>
3114                     <NTHR 'BNDTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3115                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3116                     <DEAD ANY-EMPTY41>
3117                     <CALL '\1aIEMIT 2>
3118 PHRASE478
3119                     <TYPE? SEGCNT35 <TYPE-CODE UNBOUND> + PHRASE485>
3120                     <FRAME '\1aIEMIT>
3121                     <PUSH '`SUB>
3122                     <PUSH 0>
3123                     <PUSH SEGCNT35>
3124                     <PUSH '=>
3125                     <PUSH SEGCNT35>
3126                     <PUSH (`TYPE FIX)>
3127                     <CALL '\1aIEMIT 6>
3128                     <FRAME '\1aIEMIT>
3129                     <PUSH '`MUL>
3130                     <PUSH SEGCNT35>
3131                     <PUSH 2>
3132                     <PUSH '=>
3133                     <PUSH SEGCNT35>
3134                     <PUSH (`TYPE FIX)>
3135                     <CALL '\1aIEMIT 6>
3136                     <FRAME '\1aIEMIT>
3137                     <PUSH '`ADJ>
3138                     <PUSH SEGCNT35>
3139                     <CALL '\1aIEMIT 2>
3140                     <FRAME '\1aFREE-TEMP>
3141                     <PUSH SEGCNT35>
3142                     <CALL '\1aFREE-TEMP 1>
3143 PHRASE485
3144                     <FRAME '\1aREM-TUPS>
3145                     <CALL '\1aREM-TUPS 0>
3146 PHRASE471
3147                     <NTHR 'LEAVE? 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3148                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
3149                     <TYPE? ANY-EMPTY41 <TYPE-CODE UNBOUND> - PHRASE493>
3150                     <DEAD ANY-EMPTY41>
3151                     <NTHR 'FREE-TEMPS 2 = TEMP73 (RECORD-TYPE ATOM) (TYPE LBIND)>
3152                     <NTHR TEMP73 1 = TEMP73 (RECORD-TYPE LBIND)>
3153 PHRASE493
3154                     <UNBIND TEMP82>
3155                     <DEAD TEMP82>
3156                     <ADJ -36>
3157                     <GEN-SET 'FREE-TEMPS TEMP73>
3158                     <DEAD TEMP73>
3159                     <GEN-LVAL 'TMPS = TEMP82>
3160                     <GEN-LVAL 'TMPS = ANY-EMPTY41>
3161                     <LENL ANY-EMPTY41 = ANY-EMPTY41 (TYPE FIX)>
3162                     <SUB ANY-EMPTY41 1 = ANY-EMPTY41 (TYPE FIX)>
3163                     <GRTR? ANY-EMPTY41 0 - RESTL504 (TYPE FIX)>
3164                     <LOOP (TEMP82 VALUE) (ANY-EMPTY41 VALUE)>
3165 RESTL503
3166                     <INTGO>
3167                     <RESTL TEMP82 1 = TEMP82 (TYPE LIST)>
3168                     <SUB ANY-EMPTY41 1 = ANY-EMPTY41 (TYPE FIX)>
3169                     <GRTR? ANY-EMPTY41 0 + RESTL503 (TYPE FIX)>
3170 RESTL504
3171                     <CHTYPE TEMP82 <TYPE-CODE LIST> = TEMP82>
3172                     <GEN-SET 'TMPS-NEXT TEMP82>
3173                     <DEAD TEMP82>
3174                     <TYPE? FWHERE38 <TYPE-CODE FALSE> + PHRASE508>
3175                     <NTHR 'F? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3176                     <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
3177                     <TYPE? TEMP82 <TYPE-CODE FALSE> + PHRASE508>
3178                     <DEAD TEMP82>
3179                     <FRAME '\1aLABEL-TAG>
3180                     <PUSH FEXIT31>
3181                     <DEAD FEXIT31>
3182                     <CALL '\1aLABEL-TAG 1>
3183                     <FRAME '\1aIEMIT>
3184                     <PUSH '`VEQUAL?>
3185                     <NTHR 'LEAVE? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3186                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3187                     <DEAD TEMP82>
3188                     <PUSH 2>
3189                     <PUSH '+>
3190                     <NTHR 'EXIT 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3191                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3192                     <DEAD TEMP82>
3193                     <CALL '\1aIEMIT 5>
3194                     <FRAME '\1aDO-STACK-TUPLE>
3195                     <NTHR 'MAYBE-FALSE 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3196                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3197                     <DEAD TEMP82>
3198                     <PUSH FWHERE38>
3199                     <DEAD FWHERE38>
3200                     <NTHR 'EXTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3201                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3202                     <DEAD TEMP82>
3203                     <NTHR 'FTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3204                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3205                     <DEAD TEMP82>
3206                     <CALL '\1aDO-STACK-TUPLE 4>
3207                     <FRAME '\1aIEMIT>
3208                     <PUSH '`VEQUAL?>
3209                     <NTHR 'LEAVE? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3210                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3211                     <DEAD TEMP82>
3212                     <PUSH 1>
3213                     <PUSH '+>
3214                     <NTHR 'APPLTAG 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3215                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3216                     <DEAD TEMP82>
3217                     <CALL '\1aIEMIT 5>
3218                     <FRAME '\1aFREE-TEMP>
3219                     <NTHR 'LEAVE? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3220                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3221                     <DEAD TEMP82>
3222                     <CALL '\1aFREE-TEMP 1>
3223 PHRASE508
3224                     <NTHR 'F? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3225                     <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
3226                     <TYPE? TEMP82 <TYPE-CODE FALSE> - PHRASE534>
3227                     <DEAD TEMP82>
3228                     <TYPE? SEGCNT35 <TYPE-CODE UNBOUND> + PHRASE534>
3229                     <FRAME '\1aIEMIT>
3230                     <PUSH '`SUB>
3231                     <PUSH 0>
3232                     <PUSH SEGCNT35>
3233                     <PUSH '=>
3234                     <PUSH SEGCNT35>
3235                     <PUSH (`TYPE FIX)>
3236                     <CALL '\1aIEMIT 6>
3237                     <FRAME '\1aIEMIT>
3238                     <PUSH '`MUL>
3239                     <PUSH SEGCNT35>
3240                     <PUSH 2>
3241                     <PUSH '=>
3242                     <PUSH SEGCNT35>
3243                     <PUSH (`TYPE FIX)>
3244                     <CALL '\1aIEMIT 6>
3245                     <FRAME '\1aIEMIT>
3246                     <PUSH '`ADJ>
3247                     <PUSH SEGCNT35>
3248                     <CALL '\1aIEMIT 2>
3249                     <FRAME '\1aFREE-TEMP>
3250                     <PUSH SEGCNT35>
3251                     <DEAD SEGCNT35>
3252                     <CALL '\1aFREE-TEMP 1>
3253 PHRASE534
3254                     <FRAME '\1aLABEL-TAG>
3255                     <NTHR 'REST-TAG 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3256                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3257                     <DEAD TEMP82>
3258                     <CALL '\1aLABEL-TAG 1>
3259                     <FRAME '\1aREST-STRUCS>
3260                     <PUSH FOONARG28>
3261                     <PUSH K6>
3262                     <DEAD K6>
3263                     <PUSH SEG?34>
3264                     <CALL '\1aREST-STRUCS 3>
3265                     <FRAME '\1aBRANCH-TAG>
3266                     <NTHR 'MAPLP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3267                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3268                     <DEAD TEMP82>
3269                     <CALL '\1aBRANCH-TAG 1>
3270                     <FRAME '\1aLABEL-TAG>
3271                     <NTHR 'APPLTAG 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3272                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3273                     <DEAD TEMP82>
3274                     <CALL '\1aLABEL-TAG 1>
3275                     <NTHR 'F? 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3276                     <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
3277                     <TYPE? TEMP82 <TYPE-CODE FALSE> + PHRASE553>
3278                     <DEAD TEMP82>
3279                     <FRAME '\1aDO-LAST>
3280                     <PUSH SUBRC20>
3281                     <DEAD SUBRC20>
3282                     <NTHR 'MAYBE-FALSE 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3283                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3284                     <DEAD TEMP82>
3285                     <NTHR 'MWHERE 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3286                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3287                     <DEAD TEMP82>
3288                     <NTHR 'EXTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3289                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3290                     <DEAD TEMP82>
3291                     <NTHR 'FTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3292                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3293                     <DEAD TEMP82>
3294                     <CALL '\1aDO-LAST 5 = TEMP82>
3295                     <NTHR 'MWHERE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3296                     <PUTR ANY-EMPTY41 1 TEMP82 (RECORD-TYPE LBIND)>
3297                     <DEAD ANY-EMPTY41 TEMP82>
3298                     <FRAME '\1aFREE-TEMP>
3299                     <NTHR 'EXTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3300                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3301                     <DEAD TEMP82>
3302                     <CALL '\1aFREE-TEMP 1>
3303                     <FRAME '\1aFREE-TEMP>
3304                     <NTHR 'FTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3305                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3306                     <DEAD TEMP82>
3307                     <CALL '\1aFREE-TEMP 1>
3308                     <JUMP + PHRASE601>
3309 PHRASE553
3310                     <VEQUAL? FF?16 0 + PHRASE573>
3311                     <DEAD FF?16>
3312                     <FRAME '\1aFREE-TEMP>
3313                     <NTHR 'EXTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3314                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3315                     <DEAD TEMP82>
3316                     <CALL '\1aFREE-TEMP 1>
3317                     <FRAME '\1aMOVE-ARG>
3318                     <NTHR 'FTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3319                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3320                     <DEAD TEMP82>
3321                     <NTHR 'MWHERE 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3322                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3323                     <DEAD TEMP82>
3324                     <CALL '\1aMOVE-ARG 2 = TEMP82>
3325                     <NTHR 'MWHERE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3326                     <PUTR ANY-EMPTY41 1 TEMP82 (RECORD-TYPE LBIND)>
3327                     <DEAD ANY-EMPTY41 TEMP82>
3328                     <JUMP + PHRASE601>
3329 PHRASE573
3330                     <NTHR 'MWHERE 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3331                     <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
3332                     <EQUAL? TEMP82 'FLUSHED + PHRASE584>
3333                     <DEAD TEMP82>
3334                     <FRAME '\1aFREE-TEMP>
3335                     <NTHR 'EXTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3336                     <NTHR TEMP82 1 = STACK (RECORD-TYPE LBIND)>
3337                     <DEAD TEMP82>
3338                     <CALL '\1aFREE-TEMP 1>
3339                     <NTHR 'FTMP 2 = TEMP82 (RECORD-TYPE ATOM) (TYPE LBIND)>
3340                     <NTHR TEMP82 1 = TEMP82 (RECORD-TYPE LBIND)>
3341                     <NTHR 'MWHERE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3342                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
3343                     <EQUAL? TEMP82 ANY-EMPTY41 + PHRASE601>
3344                     <DEAD TEMP82 ANY-EMPTY41>
3345                     <FRAME '\1aMOVE-ARG>
3346                     <NTHR 'FTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3347                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3348                     <DEAD ANY-EMPTY41>
3349                     <NTHR 'MWHERE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3350                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3351                     <DEAD ANY-EMPTY41>
3352                     <CALL '\1aMOVE-ARG 2>
3353                     <JUMP + PHRASE601>
3354 PHRASE584
3355                     <FRAME '\1aFREE-TEMP>
3356                     <NTHR 'EXTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3357                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3358                     <DEAD ANY-EMPTY41>
3359                     <CALL '\1aFREE-TEMP 1>
3360                     <FRAME '\1aFREE-TEMP>
3361                     <NTHR 'FTMP 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3362                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3363                     <DEAD ANY-EMPTY41>
3364                     <CALL '\1aFREE-TEMP 1>
3365 PHRASE601
3366                     <FRAME '\1aLABEL-TAG>
3367                     <NTHR 'EXIT 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3368                     <NTHR ANY-EMPTY41 1 = STACK (RECORD-TYPE LBIND)>
3369                     <DEAD ANY-EMPTY41>
3370                     <CALL '\1aLABEL-TAG 1>
3371                     <FRAME '\1aFLUSH-TUPLES>
3372                     <PUSH FOONARG28>
3373                     <DEAD FOONARG28>
3374                     <PUSH SEG?34>
3375                     <DEAD SEG?34>
3376                     <CALL '\1aFLUSH-TUPLES 2>
3377                     <NTHR 'MWHERE 2 = ANY-EMPTY41 (RECORD-TYPE ATOM) (TYPE LBIND)>
3378                     <NTHR ANY-EMPTY41 1 = ANY-EMPTY41 (RECORD-TYPE LBIND)>
3379                     <UNBIND TEMP3>
3380                     <DEAD TEMP3>
3381                     <ADJ -225>
3382                     <RETURN ANY-EMPTY41>
3383                     <DEAD ANY-EMPTY41>
3384                     <END \1aHMAPFR>
3385
3386 #WORD *12044755363*
3387                     <GFCN \1aSAVE-BINDING ("VALUE" ATOM ANY) BNDTMP4>
3388                     <TEMP TEMP7:ATOM>
3389                     <INTGO>
3390                     <FRAME '\1aUSE-TEMP>
3391                     <PUSH BNDTMP4>
3392                     <CALL '\1aUSE-TEMP 1>
3393                     <FRAME '\1aGET-BINDING>
3394                     <PUSH BNDTMP4>
3395                     <DEAD BNDTMP4>
3396                     <CALL '\1aGET-BINDING 1 = TEMP7>
3397                     <RETURN TEMP7>
3398                     <DEAD TEMP7>
3399                     <END \1aSAVE-BINDING>
3400
3401 #WORD *2303506701*
3402                     <GFCN \1aNO-INTERFERE ("VALUE" <OR ATOM FALSE> NODE <LIST [REST SYMTAB]>) N4 B5>
3403                     <TEMP TEMP9 TEMP13 TEMP14>
3404                     <INTGO>
3405                     <NTHUV N4 1 = TEMP9 (TYPE FIX)>
3406                     <VEQUAL? TEMP9 10 - PHRASE7 (TYPE FIX)>
3407                     <DEAD TEMP9>
3408                     <NTHUV N4 4 = TEMP9>
3409                     <SET TEMP13 B5>
3410                     <TYPE? TEMP9 <TYPE-CODE SYMTAB> - PHRASE7>
3411                     <EMPL? TEMP13 + PHRASE7>
3412                     <LOOP (TEMP9 VALUE) (TEMP13 VALUE)>
3413 TAG11
3414                     <NTHL TEMP13 1 = TEMP14>
3415                     <VEQUAL? TEMP14 TEMP9 + TAG10>
3416                     <DEAD TEMP14>
3417                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3418                     <EMPL? TEMP13 - TAG11>
3419                     <JUMP + PHRASE7>
3420 TAG10
3421                     <RETURN %<>>
3422 PHRASE7
3423                     <NTHUV N4 1 = TEMP9 (TYPE FIX)>
3424                     <GVAL 'SNODES = TEMP14>
3425                     <EMPUU? TEMP14 + PHRASE15>
3426                     <LOOP (TEMP9 VALUE) (TEMP14 LENGTH VALUE)>
3427 TAG17
3428                     <NTHUU TEMP14 1 = TEMP13>
3429                     <VEQUAL? TEMP13 TEMP9 + TAG16>
3430                     <DEAD TEMP13>
3431                     <RESTUU TEMP14 1 = TEMP14 (TYPE UVECTOR)>
3432                     <EMPUU? TEMP14 - TAG17>
3433                     <JUMP + PHRASE15>
3434 TAG16
3435                     <RETURN 'T>
3436 PHRASE15
3437                     <NTHUV N4 1 = TEMP14 (TYPE FIX)>
3438                     <VEQUAL? TEMP14 7 - PHRASE20 (TYPE FIX)>
3439                     <DEAD TEMP14>
3440                     <FRAME '\1aNO-INTERFERE>
3441                     <NTHUV N4 4 = STACK (TYPE NODE)>
3442                     <PUSH B5>
3443                     <CALL '\1aNO-INTERFERE 2 = TEMP14>
3444                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE20>
3445                     <DEAD TEMP14>
3446                     <RETURN %<>>
3447 PHRASE20
3448                     <SET TEMP9 %<> (TYPE FALSE)>
3449                     <NTHUV N4 5 = TEMP13 (TYPE LIST)>
3450                     <DEAD N4>
3451                     <LOOP>
3452 MAP25
3453                     <INTGO>
3454                     <EMPL? TEMP13 + MAPAP28>
3455                     <NTHL TEMP13 1 = TEMP9>
3456                     <FRAME '\1aNO-INTERFERE>
3457                     <PUSH TEMP9>
3458                     <DEAD TEMP9>
3459                     <PUSH B5>
3460                     <CALL '\1aNO-INTERFERE 2 = TEMP9>
3461                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE35>
3462                     <DEAD TEMP9>
3463                     <SET TEMP9 'T (TYPE ATOM)>
3464                     <JUMP + PHRASE38>
3465 PHRASE35
3466                     <RETURN %<>>
3467 PHRASE38
3468                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3469                     <JUMP + MAP25>
3470 MAPAP28
3471                     <RETURN TEMP9>
3472                     <DEAD TEMP9>
3473                     <END \1aNO-INTERFERE>
3474
3475 \\f
3476
3477 #WORD *24527460216*
3478                     <GFCN \1aNOTIMP ("VALUE" ANY ANY) ARG4>
3479                     <TEMP TEMP6>
3480                     <INTGO>
3481                     <FRAME '\1aCOMPILE-ERROR>
3482                     <PUSH "NOT IMPLEMENTED MAPF/R TUPLES">
3483                     <CALL '\1aCOMPILE-ERROR 1 = TEMP6>
3484                     <RETURN TEMP6>
3485                     <DEAD TEMP6>
3486                     <END \1aNOTIMP>
3487
3488 #WORD *24572033427*
3489                     <GFCN \1aMENTROPY ("VALUE" ATOM ANY) SYM4>
3490                     <TEMP>
3491                     <INTGO>
3492                     <RETURN 'T>
3493                     <END \1aMENTROPY>
3494
3495 #WORD *25434044011*
3496                     <GFCN \1aMBIND-GENERATE ("VALUE" ANY SYMTAB) SYM4>
3497                     <TEMP COD5>
3498                     <INTGO>
3499                     <NTHUV SYM4 4 = COD5 (TYPE FIX)>
3500                     <DISPATCH COD5 1 CASE8 CASE9 CASE10 CASE11 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASE18 CASE19 CASE20>
3501                     <DEAD COD5>
3502                     <RETURN %<>>
3503 CASE8
3504                     <FRAME '\1aACT-B>
3505                     <PUSH SYM4>
3506                     <DEAD SYM4>
3507                     <CALL '\1aACT-B 1 = COD5>
3508                     <RETURN COD5>
3509                     <DEAD COD5>
3510 CASE9
3511                     <FRAME '\1aAUX1-B>
3512                     <PUSH SYM4>
3513                     <DEAD SYM4>
3514                     <PUSH 'T>
3515                     <CALL '\1aAUX1-B 2 = COD5>
3516                     <RETURN COD5>
3517                     <DEAD COD5>
3518 CASE10
3519                     <FRAME '\1aAUX2-B>
3520                     <PUSH SYM4>
3521                     <DEAD SYM4>
3522                     <PUSH 'T>
3523                     <CALL '\1aAUX2-B 2 = COD5>
3524                     <RETURN COD5>
3525                     <DEAD COD5>
3526 CASE11
3527                     <FRAME '\1aNOTIMP>
3528                     <PUSH SYM4>
3529                     <DEAD SYM4>
3530                     <CALL '\1aNOTIMP 1 = COD5>
3531                     <RETURN COD5>
3532                     <DEAD COD5>
3533 CASE12
3534                     <FRAME '\1aMENTROPY>
3535                     <PUSH SYM4>
3536                     <DEAD SYM4>
3537                     <CALL '\1aMENTROPY 1 = COD5>
3538                     <RETURN COD5>
3539                     <DEAD COD5>
3540 CASE13
3541                     <FRAME '\1aAUX1-B>
3542                     <PUSH SYM4>
3543                     <DEAD SYM4>
3544                     <PUSH 'T>
3545                     <CALL '\1aAUX1-B 2 = COD5>
3546                     <RETURN COD5>
3547                     <DEAD COD5>
3548 CASE14
3549                     <FRAME '\1aAUX1-B>
3550                     <PUSH SYM4>
3551                     <DEAD SYM4>
3552                     <PUSH 'T>
3553                     <CALL '\1aAUX1-B 2 = COD5>
3554                     <RETURN COD5>
3555                     <DEAD COD5>
3556 CASE15
3557                     <FRAME '\1aAUX2-B>
3558                     <PUSH SYM4>
3559                     <DEAD SYM4>
3560                     <PUSH 'T>
3561                     <CALL '\1aAUX2-B 2 = COD5>
3562                     <RETURN COD5>
3563                     <DEAD COD5>
3564 CASE16
3565                     <FRAME '\1aAUX2-B>
3566                     <PUSH SYM4>
3567                     <DEAD SYM4>
3568                     <PUSH 'T>
3569                     <CALL '\1aAUX2-B 2 = COD5>
3570                     <RETURN COD5>
3571                     <DEAD COD5>
3572 CASE17
3573                     <FRAME '\1aMENTROPY>
3574                     <PUSH SYM4>
3575                     <DEAD SYM4>
3576                     <CALL '\1aMENTROPY 1 = COD5>
3577                     <RETURN COD5>
3578                     <DEAD COD5>
3579 CASE18
3580                     <FRAME '\1aBIND-B>
3581                     <PUSH SYM4>
3582                     <DEAD SYM4>
3583                     <CALL '\1aBIND-B 1 = COD5>
3584                     <RETURN COD5>
3585                     <DEAD COD5>
3586 CASE19
3587                     <FRAME '\1aMENTROPY>
3588                     <PUSH SYM4>
3589                     <DEAD SYM4>
3590                     <CALL '\1aMENTROPY 1 = COD5>
3591                     <RETURN COD5>
3592                     <DEAD COD5>
3593 CASE20
3594                     <FRAME '\1aMENTROPY>
3595                     <PUSH SYM4>
3596                     <DEAD SYM4>
3597                     <CALL '\1aMENTROPY 1 = COD5>
3598                     <RETURN COD5>
3599                     <DEAD COD5>
3600                     <END \1aMBIND-GENERATE>
3601
3602 #WORD *11036113255*
3603                     <GFCN \1aMAPLEAVE-GEN ("VALUE" ANY NODE ANY) N4 W5>
3604                     <TEMP TEMP14 BR8 DIR9 FRAME?11 TEMP25 FOK12 TRUE-OK13>
3605                     <INTGO>
3606                     <FRAME '\1aGEN-TEMP>
3607                     <PUSH %<>>
3608                     <CALL '\1aGEN-TEMP 1 = TEMP14>
3609                     <GEN-LVAL 'BR = BR8>
3610                     <GEN-LVAL 'DIR = DIR9>
3611                     <GEN-ASSIGNED? 'LEAVE? - TAG22>
3612                     <SET FRAME?11 'T (TYPE ATOM)>
3613                     <JUMP + TAG23>
3614 TAG22
3615                     <SET FRAME?11 %<> (TYPE FALSE)>
3616 TAG23
3617                     <FRAME '\1aTYPE-AND>
3618                     <NTHUV N4 5 = TEMP25 (TYPE LIST)>
3619                     <DEAD N4>
3620                     <NTHL TEMP25 1 = N4 (TYPE NODE)>
3621                     <DEAD TEMP25>
3622                     <NTHUV N4 3 = TEMP25>
3623                     <PUSH TEMP25>
3624                     <PUSH 'FALSE>
3625                     <CALL '\1aTYPE-AND 2 = FOK12>
3626                     <FRAME '\1aISTYPE?>
3627                     <PUSH TEMP25>
3628                     <DEAD TEMP25>
3629                     <CALL '\1aISTYPE? 1 = TEMP25>
3630                     <VEQUAL? TEMP25 'FALSE + TAG26>
3631                     <DEAD TEMP25>
3632                     <SET TRUE-OK13 'T (TYPE ATOM)>
3633                     <JUMP + TAG28>
3634 TAG26
3635                     <SET TRUE-OK13 %<> (TYPE FALSE)>
3636 TAG28
3637                     <GEN-LVAL 'MWHERE = TEMP25>
3638                     <EQUAL? TEMP25 'FLUSHED - PHRASE30>
3639                     <DEAD TEMP25>
3640                     <TYPE? BR8 <TYPE-CODE FALSE> + PHRASE34>
3641                     <TYPE? FOK12 <TYPE-CODE FALSE> + PHRASE36>
3642                     <VEQUAL? TRUE-OK13 0 + PHRASE36>
3643                     <DEAD TRUE-OK13>
3644                     <FRAME '\1aPRED-BRANCH-GEN>
3645                     <PUSH BR8>
3646                     <DEAD BR8>
3647                     <PUSH N4>
3648                     <DEAD N4>
3649                     <PUSH DIR9>
3650                     <DEAD DIR9>
3651                     <CALL '\1aPRED-BRANCH-GEN 3>
3652                     <JUMP + PHRASE49>
3653 PHRASE36
3654                     <FRAME '\1aGEN>
3655                     <PUSH N4>
3656                     <DEAD N4>
3657                     <PUSH 'FLUSHED>
3658                     <CALL '\1aGEN 2>
3659                     <TYPE? FOK12 <TYPE-CODE FALSE> + PHRASE44>
3660                     <DEAD FOK12>
3661                     <TYPE? DIR9 <TYPE-CODE FALSE> - PHRASE49>
3662                     <DEAD DIR9>
3663                     <JUMP + PHRASE45>
3664 PHRASE44
3665                     <TYPE? DIR9 <TYPE-CODE FALSE> + PHRASE49>
3666                     <DEAD DIR9>
3667 PHRASE45
3668                     <FRAME '\1aBRANCH-TAG>
3669                     <PUSH BR8>
3670                     <DEAD BR8>
3671                     <CALL '\1aBRANCH-TAG 1>
3672                     <JUMP + PHRASE49>
3673 PHRASE34
3674                     <FRAME '\1aGEN>
3675                     <PUSH N4>
3676                     <DEAD N4>
3677                     <PUSH 'FLUSHED>
3678                     <CALL '\1aGEN 2>
3679                     <JUMP + PHRASE49>
3680 PHRASE30
3681                     <GEN-LVAL 'F? = TEMP25>
3682                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE51>
3683                     <DEAD TEMP25>
3684                     <GEN-LVAL 'MWHERE = TEMP25>
3685                     <GEN-LVAL 'FTMP = BR8>
3686                     <EQUAL? TEMP25 BR8 - PHRASE51>
3687                     <DEAD TEMP25 BR8>
3688                     <VEQUAL? FRAME?11 0 - PHRASE51>
3689                     <FRAME '\1aSET-TEMP>
3690                     <PUSH TEMP14>
3691                     <GEN-LVAL 'FTMP = STACK>
3692                     <CALL '\1aSET-TEMP 2>
3693                     <JUMP + PHRASE63>
3694 PHRASE51
3695                     <GEN-LVAL 'FTMP = TEMP14>
3696 PHRASE63
3697                     <FRAME '\1aGEN>
3698                     <PUSH N4>
3699                     <DEAD N4>
3700                     <GEN-LVAL 'MWHERE = STACK>
3701                     <CALL '\1aGEN 2 = BR8>
3702                     <GEN-SET 'MWHERE BR8>
3703                     <DEAD BR8>
3704                     <FRAME '\1aDEALLOCATE-TEMP>
3705                     <GEN-LVAL 'MWHERE = STACK>
3706                     <CALL '\1aDEALLOCATE-TEMP 1>
3707 PHRASE49
3708                     <VEQUAL? FRAME?11 0 + PHRASE77>
3709                     <DEAD FRAME?11>
3710                     <FRAME '\1aSET-TEMP>
3711                     <GEN-LVAL 'LEAVE? = STACK>
3712                     <PUSH 2>
3713                     <CALL '\1aSET-TEMP 2>
3714                     <JUMP + PHRASE82>
3715 PHRASE77
3716                     <FRAME '\1aREM-TUPS>
3717                     <CALL '\1aREM-TUPS 0>
3718                     <FRAME '\1aMAP-UNBIND>
3719                     <PUSH TEMP14>
3720                     <GEN-LVAL 'F? = STACK>
3721                     <GEN-LVAL 'BNDTMP = STACK>
3722                     <GEN-LVAL 'SPECD = STACK>
3723                     <CALL '\1aMAP-UNBIND 4>
3724                     <GEN-LVAL 'FTMP = BR8>
3725                     <EQUAL? BR8 TEMP14 + PHRASE95>
3726                     <DEAD BR8>
3727                     <FRAME '\1aFREE-TEMP>
3728                     <PUSH TEMP14>
3729                     <DEAD TEMP14>
3730                     <CALL '\1aFREE-TEMP 1>
3731 PHRASE95
3732                     <FRAME '\1aBRANCH-TAG>
3733                     <GEN-LVAL 'EXIT = STACK>
3734                     <CALL '\1aBRANCH-TAG 1>
3735 PHRASE82
3736                     <GVAL 'NO-DATUM = TEMP14>
3737                     <RETURN TEMP14>
3738                     <DEAD TEMP14>
3739                     <END \1aMAPLEAVE-GEN>
3740
3741 #WORD *14352141552*
3742                     <GFCN \1aMAP-UNBIND ("VALUE" ATOM ANY ANY ANY ANY) EXTMP4 F?5 BNDTMP6 SPECD7>
3743                     <TEMP>
3744                     <INTGO>
3745                     <TYPE? F?5 <TYPE-CODE FALSE> + PHRASE9>
3746                     <DEAD F?5>
3747                     <FRAME '\1aIEMIT>
3748                     <PUSH '`SUB>
3749                     <PUSH 0>
3750                     <PUSH EXTMP4>
3751                     <PUSH '=>
3752                     <PUSH EXTMP4>
3753                     <PUSH (`TYPE FIX)>
3754                     <CALL '\1aIEMIT 6>
3755                     <FRAME '\1aIEMIT>
3756                     <PUSH '`MUL>
3757                     <PUSH EXTMP4>
3758                     <PUSH 2>
3759                     <PUSH '=>
3760                     <PUSH EXTMP4>
3761                     <PUSH (`TYPE FIX)>
3762                     <CALL '\1aIEMIT 6>
3763                     <FRAME '\1aIEMIT>
3764                     <PUSH '`ADJ>
3765                     <PUSH EXTMP4>
3766                     <DEAD EXTMP4>
3767                     <CALL '\1aIEMIT 2>
3768 PHRASE9
3769                     <TYPE? SPECD7 <TYPE-CODE FALSE> + PHRASE14>
3770                     <DEAD SPECD7>
3771                     <FRAME '\1aIEMIT>
3772                     <PUSH '`UNBIND>
3773                     <PUSH BNDTMP6>
3774                     <DEAD BNDTMP6>
3775                     <CALL '\1aIEMIT 2>
3776 PHRASE14
3777                     <RETURN 'T>
3778                     <END \1aMAP-UNBIND>
3779
3780 \\f
3781
3782 #WORD *207353144*
3783                     <GFCN \1aMAPRET-STOP-GEN ("VALUE" ANY NODE ANY) N4 W5>
3784                     <TEMP SG6 K7 LN8:FIX TEMP23 FAP9:NODE FF?12 TEMP29 EXTMP14 FTMP15 F?16 MAYBE-FALSE17 SEGTMP18 FRAME?19 TEMP3:LBIND TG90 STYP91>
3785                     <INTGO>
3786                     <NTHUV N4 6 = SG6>
3787                     <NTHUV N4 5 = K7 (TYPE LIST)>
3788                     <LENL K7 = LN8 (TYPE FIX)>
3789                     <GEN-LVAL 'MNOD = TEMP23>
3790                     <NTHUV TEMP23 5 = TEMP23 (TYPE LIST)>
3791                     <NTHL TEMP23 1 = FAP9 (TYPE NODE)>
3792                     <DEAD TEMP23>
3793                     <NTHUV FAP9 1 = TEMP23 (TYPE FIX)>
3794                     <VEQUAL? TEMP23 71 - TAG26 (TYPE FIX)>
3795                     <DEAD TEMP23>
3796                     <SET FF?12 'T (TYPE ATOM)>
3797                     <JUMP + TAG27>
3798 TAG26
3799                     <SET FF?12 %<> (TYPE FALSE)>
3800 TAG27
3801                     <NTHUV N4 9 = TEMP23>
3802                     <GVAL 'MAPSTOP = TEMP29>
3803                     <EQUAL? TEMP23 TEMP29 - TAG28>
3804                     <DEAD TEMP23 TEMP29>
3805                     <SET TEMP29 'T (TYPE ATOM)>
3806                     <JUMP + TAG30>
3807 TAG28
3808                     <SET TEMP29 %<> (TYPE FALSE)>
3809 TAG30
3810                     <GEN-LVAL 'EXTMP = EXTMP14>
3811                     <GEN-LVAL 'FTMP = FTMP15>
3812                     <GEN-LVAL 'F? = F?16>
3813                     <GEN-LVAL 'MAYBE-FALSE = MAYBE-FALSE17>
3814                     <GEN-ASSIGNED? 'LEAVE? - TAG39>
3815                     <SET FRAME?19 'T (TYPE ATOM)>
3816                     <JUMP + TAG40>
3817 TAG39
3818                     <SET FRAME?19 %<> (TYPE FALSE)>
3819 TAG40
3820                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
3821                     <FRAME '\1aMAKE-TAG>
3822                     <CALL '\1aMAKE-TAG 0 = TEMP23>
3823                     <BBIND 'SEGLABEL 'ANY 'FIX TEMP23>
3824                     <DEAD TEMP23>
3825                     <BBIND 'COUNTMP 'ANY 'FIX FTMP15>
3826                     <BBIND 'SEGCALLED 'ANY 'FIX %<>>
3827                     <TYPE? SG6 <TYPE-CODE FALSE> - PHRASE43>
3828                     <DEAD SG6>
3829                     <LESS? LN8 2 - PHRASE43 (TYPE FIX)>
3830                     <VEQUAL? LN8 0 + PHRASE46 (TYPE FIX)>
3831                     <DEAD LN8>
3832                     <FRAME '\1aGEN>
3833                     <NTHL K7 1 = STACK (TYPE NODE)>
3834                     <CALL '\1aGEN 1 = SG6>
3835                     <VEQUAL? FF?12 0 + PHRASE51>
3836                     <DEAD FF?12>
3837                     <FRAME '\1aREM-TUPS>
3838                     <CALL '\1aREM-TUPS 0>
3839                     <FRAME '\1aDO-FUNNY-HACK>
3840                     <PUSH SG6>
3841                     <DEAD SG6>
3842                     <NTHL K7 1 = STACK (TYPE NODE)>
3843                     <DEAD K7>
3844                     <PUSH FAP9>
3845                     <DEAD FAP9>
3846                     <GEN-LVAL 'INRAP = STACK>
3847                     <PUSH FTMP15>
3848                     <DEAD FTMP15>
3849                     <PUSH EXTMP14>
3850                     <DEAD EXTMP14>
3851                     <CALL '\1aDO-FUNNY-HACK 6>
3852                     <JUMP + PHRASE153>
3853 PHRASE51
3854                     <TYPE? F?16 <TYPE-CODE FALSE> + PHRASE153>
3855                     <DEAD F?16>
3856                     <VEQUAL? FRAME?19 0 + PHRASE58>
3857                     <FRAME '\1aPUSH>
3858                     <PUSH SG6>
3859                     <CALL '\1aPUSH 1>
3860                     <FRAME '\1aIEMIT>
3861                     <PUSH '`RTUPLE>
3862                     <PUSH 1>
3863                     <FRAME '\1aFREE-TEMP>
3864                     <FRAME '\1aCURRENT-FRAME>
3865                     <CALL '\1aCURRENT-FRAME 0 = STACK>
3866                     <PUSH %<>>
3867                     <CALL '\1aFREE-TEMP 2 = STACK>
3868                     <CALL '\1aIEMIT 3>
3869                     <JUMP + PHRASE63>
3870 PHRASE58
3871                     <FRAME '\1aREM-TUPS>
3872                     <CALL '\1aREM-TUPS 0>
3873                     <FRAME '\1aPUSH>
3874                     <PUSH SG6>
3875                     <CALL '\1aPUSH 1>
3876                     <FRAME '\1aIEMIT>
3877                     <PUSH '`ADD>
3878                     <PUSH FTMP15>
3879                     <PUSH 1>
3880                     <PUSH '=>
3881                     <PUSH FTMP15>
3882                     <DEAD FTMP15>
3883                     <PUSH (`TYPE FIX)>
3884                     <CALL '\1aIEMIT 6>
3885 PHRASE63
3886                     <FRAME '\1aFREE-TEMP>
3887                     <PUSH SG6>
3888                     <DEAD SG6>
3889                     <CALL '\1aFREE-TEMP 1>
3890                     <JUMP + PHRASE153>
3891 PHRASE46
3892                     <FRAME '\1aREM-TUPS>
3893                     <CALL '\1aREM-TUPS 0>
3894                     <JUMP + PHRASE153>
3895 PHRASE43
3896                     <VEQUAL? FF?12 0 + PHRASE70>
3897                     <DEAD FF?12>
3898                     <FRAME '\1aDO-FUNNY-MAPRET>
3899                     <PUSH N4>
3900                     <DEAD N4>
3901                     <PUSH K7>
3902                     <DEAD K7>
3903                     <PUSH FAP9>
3904                     <DEAD FAP9>
3905                     <CALL '\1aDO-FUNNY-MAPRET 3>
3906                     <FRAME '\1aREM-TUPS>
3907                     <CALL '\1aREM-TUPS 0>
3908                     <JUMP + PHRASE153>
3909 PHRASE70
3910                     <VEQUAL? FRAME?19 0 + PHRASE75>
3911                     <FRAME '\1aGEN-TEMP>
3912                     <CALL '\1aGEN-TEMP 0 = FTMP15>
3913                     <FRAME '\1aIEMIT>
3914                     <PUSH '`SET>
3915                     <PUSH FTMP15>
3916                     <PUSH 0>
3917                     <CALL '\1aIEMIT 3>
3918 PHRASE75
3919                     <SET SG6 K7 (TYPE LIST)>
3920                     <DEAD K7>
3921                     <LOOP>
3922 MAP79
3923                     <INTGO>
3924                     <EMPL? SG6 + MAPAP82>
3925                     <NTHL SG6 1 = FAP9>
3926                     <NTHUV FAP9 1 = TEMP23 (TYPE FIX)>
3927                     <VEQUAL? TEMP23 3 - PHRASE96 (TYPE FIX)>
3928                     <DEAD TEMP23>
3929                     <TYPE? SEGTMP18 <TYPE-CODE UNBOUND> - PHRASE99>
3930                     <FRAME '\1aGEN-TEMP>
3931                     <PUSH %<>>
3932                     <CALL '\1aGEN-TEMP 1 = SEGTMP18>
3933 PHRASE99
3934                     <FRAME '\1aGEN>
3935                     <NTHUV FAP9 5 = TEMP23 (TYPE LIST)>
3936                     <DEAD FAP9>
3937                     <NTHL TEMP23 1 = FAP9 (TYPE NODE)>
3938                     <DEAD TEMP23>
3939                     <PUSH FAP9>
3940                     <PUSH SEGTMP18>
3941                     <CALL '\1aGEN 2 = FF?12>
3942                     <TYPE? MAYBE-FALSE17 <TYPE-CODE FALSE> + PHRASE103>
3943                     <FRAME '\1aGEN-TYPE?>
3944                     <PUSH EXTMP14>
3945                     <PUSH 'FALSE>
3946                     <FRAME '\1aMAKE-TAG>
3947                     <CALL '\1aMAKE-TAG 0 = TG90>
3948                     <PUSH TG90>
3949                     <PUSH 'T>
3950                     <CALL '\1aGEN-TYPE? 4>
3951 PHRASE103
3952                     <GVAL 'NO-DATUM = TEMP23>
3953                     <EQUAL? TEMP23 FF?12 + PHRASE107>
3954                     <DEAD TEMP23 FF?12>
3955                     <FRAME '\1aSEGMENT-STACK>
3956                     <PUSH SEGTMP18>
3957                     <PUSH FTMP15>
3958                     <FRAME '\1aSTRUCTYP>
3959                     <NTHUV FAP9 3 = STACK>
3960                     <CALL '\1aSTRUCTYP 1 = STYP91>
3961                     <PUSH STYP91>
3962                     <FRAME '\1aISTYPE?>
3963                     <NTHUV FAP9 3 = STACK>
3964                     <CALL '\1aISTYPE? 1 = STACK>
3965                     <NTHR 'SEGLABEL 2 = TEMP23 (RECORD-TYPE ATOM) (TYPE LBIND)>
3966                     <NTHR TEMP23 1 = STACK (RECORD-TYPE LBIND)>
3967                     <DEAD TEMP23>
3968                     <CALL '\1aSEGMENT-STACK 5>
3969                     <JUMP + PHRASE113>
3970 PHRASE107
3971                     <NTHR 'SEGCALLED 2 = TEMP23 (RECORD-TYPE ATOM) (TYPE LBIND)>
3972                     <NTHR TEMP23 1 = TEMP23 (RECORD-TYPE LBIND)>
3973                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE113>
3974                     <DEAD TEMP23>
3975                     <FRAME '\1aLABEL-TAG>
3976                     <NTHR 'SEGLABEL 2 = TEMP23 (RECORD-TYPE ATOM) (TYPE LBIND)>
3977                     <NTHR TEMP23 1 = STACK (RECORD-TYPE LBIND)>
3978                     <DEAD TEMP23>
3979                     <CALL '\1aLABEL-TAG 1>
3980 PHRASE113
3981                     <FRAME '\1aMAKE-TAG>
3982                     <CALL '\1aMAKE-TAG 0 = TEMP23>
3983                     <NTHR 'SEGLABEL 2 = K7 (RECORD-TYPE ATOM) (TYPE LBIND)>
3984                     <PUTR K7 1 TEMP23 (RECORD-TYPE LBIND)>
3985                     <DEAD K7 TEMP23>
3986                     <TYPE? MAYBE-FALSE17 <TYPE-CODE FALSE> + PHRASE149>
3987                     <FRAME '\1aBRANCH-TAG>
3988                     <FRAME '\1aMAKE-TAG>
3989                     <CALL '\1aMAKE-TAG 0 = TEMP23>
3990                     <PUSH TEMP23>
3991                     <CALL '\1aBRANCH-TAG 1>
3992                     <FRAME '\1aLABEL-TAG>
3993                     <PUSH TG90>
3994                     <CALL '\1aLABEL-TAG 1>
3995                     <TYPE? STYP91 <TYPE-CODE FALSE> + PHRASE129>
3996                     <FRAME '\1aEMPTY-CHECK>
3997                     <PUSH STYP91>
3998                     <PUSH SEGTMP18>
3999                     <PUSH STYP91>
4000                     <PUSH 'T>
4001                     <PUSH TEMP23>
4002                     <CALL '\1aEMPTY-CHECK 5>
4003                     <JUMP + PHRASE131>
4004 PHRASE129
4005                     <FRAME '\1aIEMIT>
4006                     <PUSH '`EMPTY?>
4007                     <PUSH SEGTMP18>
4008                     <PUSH '+>
4009                     <PUSH TEMP23>
4010                     <CALL '\1aIEMIT 4>
4011 PHRASE131
4012                     <FRAME '\1aSTACKM>
4013                     <PUSH FAP9>
4014                     <DEAD FAP9>
4015                     <PUSH SEGTMP18>
4016                     <PUSH %<>>
4017                     <PUSH %<>>
4018                     <PUSH FTMP15>
4019                     <PUSH %<>>
4020                     <PUSH %<>>
4021                     <CALL '\1aSTACKM 7>
4022                     <FRAME '\1aLABEL-TAG>
4023                     <PUSH TEMP23>
4024                     <DEAD TEMP23>
4025                     <CALL '\1aLABEL-TAG 1>
4026                     <JUMP + PHRASE149>
4027 PHRASE96
4028                     <TYPE? MAYBE-FALSE17 <TYPE-CODE FALSE> + PHRASE137>
4029                     <FRAME '\1aGEN>
4030                     <PUSH FAP9>
4031                     <DEAD FAP9>
4032                     <CALL '\1aGEN 1 = FF?12>
4033                     <FRAME '\1aGEN-TYPE?>
4034                     <PUSH EXTMP14>
4035                     <PUSH 'FALSE>
4036                     <FRAME '\1aMAKE-TAG>
4037                     <CALL '\1aMAKE-TAG 0 = TG90>
4038                     <PUSH TG90>
4039                     <PUSH 'T>
4040                     <CALL '\1aGEN-TYPE? 4>
4041                     <FRAME '\1aPUSH>
4042                     <PUSH FF?12>
4043                     <CALL '\1aPUSH 1>
4044                     <FRAME '\1aIEMIT>
4045                     <PUSH '`ADD>
4046                     <PUSH FTMP15>
4047                     <PUSH 1>
4048                     <PUSH '=>
4049                     <PUSH FTMP15>
4050                     <PUSH (`TYPE FIX)>
4051                     <CALL '\1aIEMIT 6>
4052                     <FRAME '\1aBRANCH-TAG>
4053                     <FRAME '\1aMAKE-TAG>
4054                     <CALL '\1aMAKE-TAG 0 = TEMP23>
4055                     <PUSH TEMP23>
4056                     <CALL '\1aBRANCH-TAG 1>
4057                     <FRAME '\1aLABEL-TAG>
4058                     <PUSH TG90>
4059                     <CALL '\1aLABEL-TAG 1>
4060                     <FRAME '\1aSET-TEMP>
4061                     <PUSH FTMP15>
4062                     <PUSH FF?12>
4063                     <CALL '\1aSET-TEMP 2>
4064                     <FRAME '\1aLABEL-TAG>
4065                     <PUSH TEMP23>
4066                     <DEAD TEMP23>
4067                     <CALL '\1aLABEL-TAG 1>
4068                     <FRAME '\1aFREE-TEMP>
4069                     <PUSH FF?12>
4070                     <DEAD FF?12>
4071                     <CALL '\1aFREE-TEMP 1>
4072                     <JUMP + PHRASE149>
4073 PHRASE137
4074                     <FRAME '\1aGEN>
4075                     <PUSH FAP9>
4076                     <DEAD FAP9>
4077                     <GVAL 'POP-STACK = STACK>
4078                     <CALL '\1aGEN 2>
4079                     <FRAME '\1aIEMIT>
4080                     <PUSH '`ADD>
4081                     <PUSH FTMP15>
4082                     <PUSH 1>
4083                     <PUSH '=>
4084                     <PUSH FTMP15>
4085                     <PUSH (`TYPE FIX)>
4086                     <CALL '\1aIEMIT 6>
4087 PHRASE149
4088                     <RESTL SG6 1 = SG6 (TYPE LIST)>
4089                     <JUMP + MAP79>
4090 MAPAP82
4091                     <VEQUAL? FRAME?19 0 + PHRASE153>
4092                     <VEQUAL? TEMP29 0 + PHRASE155>
4093                     <FRAME '\1aSET-TEMP>
4094                     <GEN-LVAL 'LEAVE? = STACK>
4095                     <PUSH 1>
4096                     <CALL '\1aSET-TEMP 2>
4097 PHRASE155
4098                     <FRAME '\1aIEMIT>
4099                     <PUSH '`RTUPLE>
4100                     <PUSH FTMP15>
4101                     <DEAD FTMP15>
4102                     <FRAME '\1aFREE-TEMP>
4103                     <FRAME '\1aCURRENT-FRAME>
4104                     <CALL '\1aCURRENT-FRAME 0 = STACK>
4105                     <PUSH %<>>
4106                     <CALL '\1aFREE-TEMP 2 = STACK>
4107                     <CALL '\1aIEMIT 3>
4108 PHRASE153
4109                     <VEQUAL? FRAME?19 0 - PHRASE163>
4110                     <DEAD FRAME?19>
4111                     <FRAME '\1aBRANCH-TAG>
4112                     <VEQUAL? TEMP29 0 + PHRASE166>
4113                     <DEAD TEMP29>
4114                     <GEN-LVAL 'APPLTAG = SG6>
4115                     <JUMP + PHRASE169>
4116 PHRASE166
4117                     <GEN-LVAL 'REST-TAG = SG6>
4118 PHRASE169
4119                     <PUSH SG6>
4120                     <DEAD SG6>
4121                     <CALL '\1aBRANCH-TAG 1>
4122 PHRASE163
4123                     <GVAL 'NO-DATUM = SG6>
4124                     <UNBIND TEMP3>
4125                     <DEAD TEMP3>
4126                     <ADJ -27>
4127                     <RETURN SG6>
4128                     <DEAD SG6>
4129                     <END \1aMAPRET-STOP-GEN>
4130
4131 \\f
4132
4133 #WORD *12127604203*
4134                     <GFCN \1aDO-FUNNY-MAPRET ("VALUE" ANY NODE <LIST [REST NODE]> NODE) N4 K5 FAP6>
4135                     <TEMP SEGTMP7 TEMP3:LBIND TEMP21 TEMP18:LIST NN23:NODE TEMP37 TEM29 TG2-25:ATOM STYP27 TMPX28:TEMP>
4136                     <INTGO>
4137                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
4138                     <BBIND 'SEGLABEL 'ANY 'FIX>
4139                     <BBIND 'COUNTMP 'ANY 'FIX>
4140                     <BBIND 'SEGCALLED 'ANY 'FIX %<>>
4141                     <SET TEMP21 %<> (TYPE FALSE)>
4142                     <SET TEMP18 K5 (TYPE LIST)>
4143                     <DEAD K5>
4144                     <LOOP>
4145 MAP13
4146                     <INTGO>
4147                     <EMPL? TEMP18 + MAPAP16>
4148                     <NTHL TEMP18 1 = NN23>
4149                     <NTHUV NN23 1 = TEMP21 (TYPE FIX)>
4150                     <VEQUAL? TEMP21 68 + BOOL32 (TYPE FIX)>
4151                     <DEAD TEMP21>
4152                     <NTHUV NN23 1 = TEMP21 (TYPE FIX)>
4153                     <VEQUAL? TEMP21 3 - PHRASE31 (TYPE FIX)>
4154                     <DEAD TEMP21>
4155 BOOL32
4156                     <FRAME '\1aGEN-TEMP>
4157                     <CALL '\1aGEN-TEMP 0 = TEMP21>
4158                     <NTHR 'COUNTMP 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
4159                     <PUTR TEMP37 1 TEMP21 (RECORD-TYPE LBIND)>
4160                     <DEAD TEMP37 TEMP21>
4161                     <FRAME '\1aMAKE-TAG>
4162                     <CALL '\1aMAKE-TAG 0 = TEMP21>
4163                     <NTHR 'SEGLABEL 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
4164                     <PUTR TEMP37 1 TEMP21 (RECORD-TYPE LBIND)>
4165                     <DEAD TEMP37 TEMP21>
4166                     <FRAME '\1aGEN>
4167                     <NTHUV NN23 5 = TEMP21 (TYPE LIST)>
4168                     <DEAD NN23>
4169                     <NTHL TEMP21 1 = NN23 (TYPE NODE)>
4170                     <DEAD TEMP21>
4171                     <PUSH NN23>
4172                     <CALL '\1aGEN 1 = TEM29>
4173                     <TYPE? TEM29 <TYPE-CODE TEMP> - PHRASE43>
4174                     <NTHUV TEM29 2 = TEMP21 (TYPE FIX)>
4175                     <GRTR? TEMP21 1 + PHRASE43 (TYPE FIX)>
4176                     <DEAD TEMP21>
4177                     <SET SEGTMP7 TEM29>
4178                     <JUMP + PHRASE47>
4179 PHRASE43
4180                     <GVAL 'NO-DATUM = TEMP21>
4181                     <EQUAL? TEMP21 TEM29 + PHRASE47>
4182                     <DEAD TEMP21>
4183                     <TYPE? SEGTMP7 <TYPE-CODE UNBOUND> - PHRASE49>
4184                     <FRAME '\1aGEN-TEMP>
4185                     <PUSH %<>>
4186                     <CALL '\1aGEN-TEMP 1 = SEGTMP7>
4187 PHRASE49
4188                     <FRAME '\1aSET-TEMP>
4189                     <PUSH SEGTMP7>
4190                     <PUSH TEM29>
4191                     <CALL '\1aSET-TEMP 2>
4192                     <FRAME '\1aFREE-TEMP>
4193                     <PUSH TEM29>
4194                     <CALL '\1aFREE-TEMP 1>
4195 PHRASE47
4196                     <FRAME '\1aMAKE-TAG>
4197                     <CALL '\1aMAKE-TAG 0 = TG2-25>
4198                     <GVAL 'NO-DATUM = TEMP21>
4199                     <EQUAL? TEMP21 TEM29 + PHRASE55>
4200                     <DEAD TEMP21>
4201                     <FRAME '\1aSTRUCTYP>
4202                     <NTHUV NN23 3 = STACK>
4203                     <CALL '\1aSTRUCTYP 1 = STYP27>
4204                     <EQUAL? STYP27 'LIST - PHRASE58>
4205                     <FRAME '\1aIEMIT>
4206                     <PUSH '`LOOP>
4207                     <CONS 'VALUE () = TEMP21>
4208                     <NTHUV SEGTMP7 1 = TEMP37 (TYPE ATOM)>
4209                     <CONS TEMP37 TEMP21 = STACK>
4210                     <DEAD TEMP37 TEMP21>
4211                     <CALL '\1aIEMIT 2>
4212                     <JUMP + PHRASE60>
4213 PHRASE58
4214                     <FRAME '\1aIEMIT>
4215                     <PUSH '`LOOP>
4216                     <CONS 'LENGTH () = TEMP21>
4217                     <CONS 'VALUE TEMP21 = TEMP21>
4218                     <NTHUV SEGTMP7 1 = TEMP37 (TYPE ATOM)>
4219                     <CONS TEMP37 TEMP21 = STACK>
4220                     <DEAD TEMP37 TEMP21>
4221                     <CALL '\1aIEMIT 2>
4222 PHRASE60
4223                     <FRAME '\1aLABEL-TAG>
4224                     <FRAME '\1aMAKE-TAG>
4225                     <CALL '\1aMAKE-TAG 0 = TEMP21>
4226                     <PUSH TEMP21>
4227                     <CALL '\1aLABEL-TAG 1>
4228                     <FRAME '\1aIEMIT>
4229                     <PUSH '`INTGO>
4230                     <CALL '\1aIEMIT 1>
4231                     <FRAME '\1aGEN-TEMP>
4232                     <CALL '\1aGEN-TEMP 0 = TMPX28>
4233                     <TYPE? STYP27 <TYPE-CODE FALSE> + PHRASE67>
4234                     <FRAME '\1aEMPTY-CHECK>
4235                     <PUSH STYP27>
4236                     <PUSH SEGTMP7>
4237                     <PUSH STYP27>
4238                     <PUSH 'T>
4239                     <PUSH TG2-25>
4240                     <CALL '\1aEMPTY-CHECK 5>
4241                     <FRAME '\1aNTH-DO>
4242                     <PUSH STYP27>
4243                     <PUSH SEGTMP7>
4244                     <PUSH TMPX28>
4245                     <PUSH 1>
4246                     <CALL '\1aNTH-DO 4>
4247                     <JUMP + PHRASE70>
4248 PHRASE67
4249                     <FRAME '\1aIEMIT>
4250                     <PUSH '`EMPTY?>
4251                     <PUSH SEGTMP7>
4252                     <PUSH '+>
4253                     <PUSH TG2-25>
4254                     <CALL '\1aIEMIT 4>
4255                     <FRAME '\1aIEMIT>
4256                     <PUSH '`NTH1>
4257                     <PUSH SEGTMP7>
4258                     <PUSH '=>
4259                     <PUSH TMPX28>
4260                     <CALL '\1aIEMIT 4>
4261 PHRASE70
4262                     <FRAME '\1aDO-FUNNY-HACK>
4263                     <PUSH TMPX28>
4264                     <DEAD TMPX28>
4265                     <GEN-LVAL 'MNOD = STACK>
4266                     <PUSH FAP6>
4267                     <PUSH NN23>
4268                     <GEN-LVAL 'FTMP = STACK>
4269                     <GEN-LVAL 'EXTMP = STACK>
4270                     <CALL '\1aDO-FUNNY-HACK 6>
4271                     <TYPE? STYP27 <TYPE-CODE FALSE> + PHRASE82>
4272                     <FRAME '\1aREST-DO>
4273                     <PUSH STYP27>
4274                     <DEAD STYP27>
4275                     <PUSH SEGTMP7>
4276                     <PUSH SEGTMP7>
4277                     <PUSH 1>
4278                     <CALL '\1aREST-DO 4>
4279                     <JUMP + PHRASE84>
4280 PHRASE82
4281                     <FRAME '\1aIEMIT>
4282                     <PUSH '`REST1>
4283                     <PUSH SEGTMP7>
4284                     <PUSH '=>
4285                     <PUSH SEGTMP7>
4286                     <CALL '\1aIEMIT 4>
4287 PHRASE84
4288                     <FRAME '\1aBRANCH-TAG>
4289                     <PUSH TEMP21>
4290                     <DEAD TEMP21>
4291                     <CALL '\1aBRANCH-TAG 1>
4292 PHRASE55
4293                     <NTHR 'SEGCALLED 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
4294                     <NTHR TEMP21 1 = TEMP21 (RECORD-TYPE LBIND)>
4295                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE88>
4296                     <DEAD TEMP21>
4297                     <FRAME '\1aGEN-TEMP>
4298                     <CALL '\1aGEN-TEMP 0 = TMPX28>
4299                     <FRAME '\1aLABEL-TAG>
4300                     <NTHR 'SEGLABEL 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
4301                     <NTHR TEMP21 1 = STACK (RECORD-TYPE LBIND)>
4302                     <DEAD TEMP21>
4303                     <CALL '\1aLABEL-TAG 1>
4304                     <FRAME '\1aIEMIT>
4305                     <PUSH '`LOOP>
4306                     <CALL '\1aIEMIT 1>
4307                     <FRAME '\1aLABEL-TAG>
4308                     <FRAME '\1aMAKE-TAG>
4309                     <CALL '\1aMAKE-TAG 0 = TEMP37>
4310                     <PUSH TEMP37>
4311                     <CALL '\1aLABEL-TAG 1>
4312                     <FRAME '\1aIEMIT>
4313                     <PUSH '`VEQUAL?>
4314                     <NTHR 'COUNTMP 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
4315                     <NTHR TEMP21 1 = STACK (RECORD-TYPE LBIND)>
4316                     <DEAD TEMP21>
4317                     <PUSH 0>
4318                     <PUSH '+>
4319                     <PUSH TG2-25>
4320                     <CALL '\1aIEMIT 5>
4321                     <FRAME '\1aPOP>
4322                     <PUSH TMPX28>
4323                     <CALL '\1aPOP 1>
4324                     <FRAME '\1aDO-FUNNY-HACK>
4325                     <PUSH TMPX28>
4326                     <GEN-LVAL 'MNOD = STACK>
4327                     <PUSH FAP6>
4328                     <PUSH NN23>
4329                     <DEAD NN23>
4330                     <GEN-LVAL 'FTMP = STACK>
4331                     <GEN-LVAL 'EXTMP = STACK>
4332                     <CALL '\1aDO-FUNNY-HACK 6>
4333                     <FRAME '\1aIEMIT>
4334                     <PUSH '`SUB>
4335                     <NTHR 'COUNTMP 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
4336                     <NTHR TEMP21 1 = STACK (RECORD-TYPE LBIND)>
4337                     <DEAD TEMP21>
4338                     <PUSH 1>
4339                     <PUSH '=>
4340                     <NTHR 'COUNTMP 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
4341                     <NTHR TEMP21 1 = STACK (RECORD-TYPE LBIND)>
4342                     <DEAD TEMP21>
4343                     <CALL '\1aIEMIT 5>
4344                     <FRAME '\1aBRANCH-TAG>
4345                     <PUSH TEMP37>
4346                     <DEAD TEMP37>
4347                     <CALL '\1aBRANCH-TAG 1>
4348                     <FRAME '\1aLABEL-TAG>
4349                     <PUSH TG2-25>
4350                     <DEAD TG2-25>
4351                     <CALL '\1aLABEL-TAG 1>
4352                     <FRAME '\1aFREE-TEMP>
4353                     <NTHR 'COUNTMP 2 = TEMP21 (RECORD-TYPE ATOM) (TYPE LBIND)>
4354                     <NTHR TEMP21 1 = STACK (RECORD-TYPE LBIND)>
4355                     <DEAD TEMP21>
4356                     <CALL '\1aFREE-TEMP 1>
4357                     <FRAME '\1aFREE-TEMP>
4358                     <PUSH TMPX28>
4359                     <DEAD TMPX28>
4360                     <CALL '\1aFREE-TEMP 1 = TEMP21>
4361                     <JUMP + PHRASE127>
4362 PHRASE88
4363                     <GVAL 'NO-DATUM = TEMP21>
4364                     <EQUAL? TEMP21 TEM29 - TAG125>
4365                     <DEAD TEMP21 TEM29>
4366                     <SET TEMP21 %<> (TYPE FALSE)>
4367                     <JUMP + PHRASE127>
4368 TAG125
4369                     <FRAME '\1aLABEL-TAG>
4370                     <PUSH TG2-25>
4371                     <DEAD TG2-25>
4372                     <CALL '\1aLABEL-TAG 1 = TEMP21>
4373                     <JUMP + PHRASE127>
4374 PHRASE31
4375                     <FRAME '\1aGEN>
4376                     <PUSH NN23>
4377                     <PUSH 'DONT-CARE>
4378                     <CALL '\1aGEN 2 = TEMP21>
4379                     <FRAME '\1aDO-FUNNY-HACK>
4380                     <PUSH TEMP21>
4381                     <DEAD TEMP21>
4382                     <GEN-LVAL 'MNOD = STACK>
4383                     <PUSH FAP6>
4384                     <PUSH NN23>
4385                     <DEAD NN23>
4386                     <GEN-LVAL 'FTMP = STACK>
4387                     <GEN-LVAL 'EXTMP = STACK>
4388                     <CALL '\1aDO-FUNNY-HACK 6 = TEMP21>
4389 PHRASE127
4390                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
4391                     <JUMP + MAP13>
4392 MAPAP16
4393                     <UNBIND TEMP3>
4394                     <DEAD TEMP3>
4395                     <ADJ -27>
4396                     <RETURN TEMP21>
4397                     <DEAD TEMP21>
4398                     <END \1aDO-FUNNY-MAPRET>
4399
4400 #WORD *35266271771*
4401                     <GFCN \1aAP? ("VALUE" ANY NODE) N4>
4402                     <TEMP TEMP8 TEMP7 AT5>
4403                     <INTGO>
4404                     <NTHUV N4 1 = TEMP8 (TYPE FIX)>
4405                     <VEQUAL? TEMP8 66 + TAG9 (TYPE FIX)>
4406                     <DEAD TEMP8>
4407                     <RETURN %<>>
4408 TAG9
4409                     <NTHUV N4 5 = TEMP8 (TYPE LIST)>
4410                     <DEAD N4>
4411                     <NTHL TEMP8 1 = N4 (TYPE NODE)>
4412                     <DEAD TEMP8>
4413                     <NTHUV N4 1 = TEMP8 (TYPE FIX)>
4414                     <VEQUAL? TEMP8 2 + TAG10 (TYPE FIX)>
4415                     <DEAD TEMP8>
4416                     <RETURN %<>>
4417 TAG10
4418                     <NTHUV N4 4 = AT5>
4419                     <DEAD N4>
4420                     <SET TEMP7 AT5>
4421                     <TYPE? TEMP7 <TYPE-CODE FALSE> + BOOL6>
4422                     <GEN-LVAL 'REASONABLE = TEMP8>
4423                     <TYPE? TEMP8 <TYPE-CODE FALSE> - TAG29>
4424                     <DEAD TEMP8>
4425                     <NTHR AT5 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL14)>
4426                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL14>
4427                     <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
4428                     <TYPE? TEMP8 <TYPE-CODE UNBOUND> + BOOL14>
4429                     <DEAD TEMP8>
4430                     <GVAL AT5 = TEMP8>
4431                     <TYPE? TEMP8 <TYPE-CODE MSUBR> + TAG29>
4432                     <DEAD TEMP8>
4433 BOOL14
4434                     <NTHR AT5 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG17)>
4435                     <TYPE? TEMP8 <TYPE-CODE FALSE> + TAG17>
4436                     <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
4437                     <TYPE? TEMP8 <TYPE-CODE UNBOUND> - TAG16>
4438                     <DEAD TEMP8>
4439 TAG17
4440                     <RETURN %<>>
4441 TAG16
4442                     <GVAL AT5 = TEMP8>
4443                     <TYPE? TEMP8 <TYPE-CODE FUNCTION> + TAG18>
4444                     <DEAD TEMP8>
4445                     <RETURN %<>>
4446 TAG18
4447                     <GEN-LVAL 'FCNS = TEMP8>
4448                     <EQUAL? TEMP8 AT5 + TAG29>
4449                     <DEAD TEMP8>
4450                     <GEN-LVAL 'FCNS = TEMP8>
4451                     <TYPE? TEMP8 <TYPE-CODE LIST> + TAG26>
4452                     <DEAD TEMP8>
4453                     <RETURN %<>>
4454 TAG26
4455                     <GEN-LVAL 'FCNS = TEMP7>
4456                     <EMPTY? TEMP7 + TAG28>
4457                     <LOOP (AT5 VALUE) (TEMP7 LENGTH VALUE TYPE)>
4458 TAG30
4459                     <NTH1 TEMP7 = TEMP8>
4460                     <TYPE? TEMP8 <TYPE-CODE ATOM> - TAG31>
4461                     <VEQUAL? TEMP8 AT5 + TAG29>
4462                     <DEAD TEMP8>
4463 TAG31
4464                     <REST1 TEMP7 = TEMP7>
4465                     <EMPTY? TEMP7 - TAG30>
4466 TAG28
4467                     <RETURN %<>>
4468 TAG29
4469                     <SET TEMP7 AT5>
4470                     <DEAD AT5>
4471 BOOL6
4472                     <RETURN TEMP7>
4473                     <DEAD TEMP7>
4474                     <END \1aAP?>
4475
4476 <ENDPACKAGE>