mim/development/mim/mimc/strana.mima

   1
   2 <PACKAGE "STRANA">
   3
   4 <ENTRY LENGTH-ANA EMPTY?-ANA LENGTH?-ANA NTH-ANA REST-ANA PUT-ANA PUTREST-ANA MEMQ-ANA NTH-REST-ANA MONAD-ANA BACK-ANA TOP-ANA>
   5
   6 <USE "SYMANA" "CHKDCL" "COMPDEC" "ADVMESS">
   7
   8 "Structure hackers for the compiler (analyzers)"
   9
  10 #WORD *16412023243*
  11 <GFCN \1aLNTH-MT-ANA ("VALUE" ANY NODE ANY FIX) NOD4 RTYP5 COD6>
  12                     <TEMP K7:LIST LN8 TEMP3:LBIND (TY11 'BOOLEAN) TEMP22 TEMP27>
  13                     <INTGO>
  14                     <NTHUV NOD4 5 = K7 (TYPE LIST)>
  15                     <LENL K7 = LN8 (TYPE FIX)>
  16                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
  17                     <BBIND 'WHO 'LIST 'FIX ()>
  18                     <VEQUAL? COD6 25 - BOOL16 (TYPE FIX)>
  19                     <GEN-ASSIGNED? 'GLN - BOOL16>
  20                     <FRAME '\1aANCEST>
  21                     <GEN-LVAL 'GLN = STACK>
  22                     <NTHUV NOD4 2 = STACK (TYPE NODE)>
  23                     <CALL '\1aANCEST 2 = TEMP22>
  24                     <TYPE? TEMP22 <TYPE-CODE FALSE> - TAG28>
  25                     <DEAD TEMP22>
  26 BOOL16
  27                     <GEN-LVAL 'PRED = TEMP22>
  28                     <NTHUV NOD4 2 = TEMP27>
  29                     <EQUAL? TEMP22 TEMP27 + TAG24>
  30                     <DEAD TEMP22 TEMP27>
  31                     <SET TEMP22 %<> (TYPE FALSE)>
  32                     <JUMP + BOOL13>
  33 TAG24
  34                     <VEQUAL? COD6 26 + TAG28 (TYPE FIX)>
  35                     <SET TEMP22 %<> (TYPE FALSE)>
  36                     <JUMP + BOOL13>
  37 TAG28
  38                     <SET TEMP22 NOD4>
  39 BOOL13
  40                     <BBIND 'WHON <OR NODE FALSE> 'FIX TEMP22>
  41                     <DEAD TEMP22>
  42                     <FRAME '\1aSEGFLUSH>
  43                     <PUSH NOD4>
  44                     <PUSH RTYP5>
  45                     <CALL '\1aSEGFLUSH 2 = TEMP22>
  46                     <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE38>
  47                     <DEAD TEMP22>
  48                     <FRAME '\1aARGCHK>
  49                     <PUSH LN8>
  50                     <DEAD LN8>
  51                     <PUSH 1>
  52                     <NTHUV NOD4 4 = STACK>
  53                     <PUSH NOD4>
  54                     <CALL '\1aARGCHK 4>
  55                     <FRAME '\1aSTRUCTYP>
  56                     <FRAME '\1aEANA>
  57                     <NTHL K7 1 = STACK (TYPE NODE)>
  58                     <PUSH 'STRUCTURED>
  59                     <NTHUV NOD4 4 = STACK>
  60                     <CALL '\1aEANA 3 = STACK>
  61                     <CALL '\1aSTRUCTYP 1 = TEMP22>
  62                     <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL37>
  63                     <DEAD TEMP22>
  64                     <VEQUAL? COD6 26 - PHRASE36 (TYPE FIX)>
  65 BOOL37
  66                     <PUTUV NOD4 1 COD6 (TYPE FIX)>
  67                     <SET TY11 'BOOLEAN (TYPE ATOM)>
  68                     <JUMP + PHRASE38>
  69 PHRASE36
  70                     <GEN-LVAL 'VERBOSE = TEMP22>
  71                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE40>
  72                     <DEAD TEMP22>
  73                     <FRAME '\1aADDVMESS>
  74                     <PUSH NOD4>
  75                     <NTHL K7 1 = TEMP22 (TYPE NODE)>
  76                     <DEAD K7>
  77                     <NTHUV TEMP22 3 = TEMP22>
  78                     <CONS TEMP22 () = TEMP22>
  79                     <CONS "Not open compiled because type is:  " TEMP22 = STACK>
  80                     <DEAD TEMP22>
  81                     <CALL '\1aADDVMESS 2>
  82 PHRASE40
  83                     <PUTUV NOD4 1 52 (TYPE FIX)>
  84 PHRASE38
  85                     <VEQUAL? COD6 26 - PHRASE45 (TYPE FIX)>
  86                     <DEAD COD6>
  87                     <NTHR 'WHO 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
  88                     <NTHR TEMP27 1 = TEMP22 (RECORD-TYPE LBIND)>
  89                     <DEAD TEMP27>
  90                     <LOOP>
  91 MAP47
  92                     <INTGO>
  93                     <EMPL? TEMP22 + PHRASE67>
  94                     <NTHL TEMP22 1 = K7>
  95                     <RESTL K7 1 = TEMP27 (TYPE LIST)>
  96                     <NTHL TEMP27 1 = TEMP27 (TYPE SYMTAB)>
  97                     <NTHL K7 1 = LN8>
  98                     <FRAME '\1aADD-TYPE-LIST>
  99                     <PUSH TEMP27>
 100                     <DEAD TEMP27>
 101                     <PUSH <STRUCTURED ANY>>
 102                     <GEN-LVAL 'UNTRUTH = STACK>
 103                     <PUSH LN8>
 104                     <DEAD LN8>
 105                     <RESTL K7 1 = TEMP27 (TYPE LIST)>
 106                     <DEAD K7>
 107                     <RESTL TEMP27 1 = STACK (TYPE LIST)>
 108                     <DEAD TEMP27>
 109                     <CALL '\1aADD-TYPE-LIST 5 = TEMP27>
 110                     <GEN-SET 'UNTRUTH TEMP27>
 111                     <DEAD TEMP27>
 112                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
 113                     <JUMP + MAP47>
 114 PHRASE45
 115                     <NTHR 'WHO 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
 116                     <NTHR TEMP27 1 = TEMP22 (RECORD-TYPE LBIND)>
 117                     <DEAD TEMP27>
 118                     <GEN-SET 'GLE TEMP22>
 119                     <DEAD TEMP22>
 120 PHRASE67
 121                     <FRAME '\1aTYPE-OK?>
 122                     <NTHUV NOD4 9 = TEMP22>
 123                     <DEAD NOD4>
 124                     <GVAL 'LENGTH = TEMP27>
 125                     <EQUAL? TEMP22 TEMP27 - PHRASE74>
 126                     <DEAD TEMP22 TEMP27>
 127                     <FRAME '\1aFORM>
 128                     <PUSH 'FIX>
 129                     <GVAL 'PLUSINF = TEMP27>
 130                     <CONS TEMP27 () = TEMP27>
 131                     <CONS 0 TEMP27 = STACK>
 132                     <DEAD TEMP27>
 133                     <CALL '\1aFORM 2 = TEMP27>
 134                     <JUMP + PHRASE76>
 135 PHRASE74
 136                     <SET TEMP27 TY11>
 137                     <DEAD TY11>
 138 PHRASE76
 139                     <PUSH TEMP27>
 140                     <DEAD TEMP27>
 141                     <PUSH RTYP5>
 142                     <DEAD RTYP5>
 143                     <CALL '\1aTYPE-OK? 2 = TEMP27>
 144                     <UNBIND TEMP3>
 145                     <DEAD TEMP3>
 146                     <ADJ -18>
 147                     <RETURN TEMP27>
 148                     <DEAD TEMP27>
 149                     <END \1aLNTH-MT-ANA>
 150 #WORD *3466570113*
 151 <GFCN \1aANCEST ("VALUE" <OR ATOM FALSE> NODE NODE) N14 N25>
 152                     <TEMP TEMP6>
 153                     <INTGO>
 154                     <LOOP>
 155 AGAIN9
 156                     <INTGO>
 157                     <VEQUAL? N14 N25 - PHRASE11>
 158                     <RETURN 'T>
 159 PHRASE11
 160                     <NTHUV N25 1 = TEMP6 (TYPE FIX)>
 161                     <VEQUAL? TEMP6 11 + BOOL12 (TYPE FIX)>
 162                     <DEAD TEMP6>
 163                     <RETURN %<>>
 164 BOOL12
 165                     <NTHUV N25 2 = TEMP6>
 166                     <TYPE? TEMP6 <TYPE-CODE NODE> - PHRASE15>
 167                     <DEAD TEMP6>
 168                     <NTHUV N25 2 = N25 (TYPE NODE)>
 169                     <JUMP + AGAIN9>
 170 PHRASE15
 171                     <RETURN %<>>
 172                     <END \1aANCEST>
 173 #WORD *20205646632*
 174 <GFCN \1aLENGTH-ANA ("VALUE" ANY ANY ANY) N4 R5>
 175                     <TEMP TEMP7>
 176                     <INTGO>
 177                     <FRAME '\1aLNTH-MT-ANA>
 178                     <PUSH N4>
 179                     <DEAD N4>
 180                     <PUSH R5>
 181                     <DEAD R5>
 182                     <PUSH 25>
 183                     <CALL '\1aLNTH-MT-ANA 3 = TEMP7>
 184                     <RETURN TEMP7>
 185                     <DEAD TEMP7>
 186                     <END \1aLENGTH-ANA>
 187 #WORD *20124717570*
 188 <GFCN \1aEMPTY?-ANA ("VALUE" ANY ANY ANY) N4 R5>
 189                     <TEMP TEMP7>
 190                     <INTGO>
 191                     <FRAME '\1aLNTH-MT-ANA>
 192                     <PUSH N4>
 193                     <DEAD N4>
 194                     <PUSH R5>
 195                     <DEAD R5>
 196                     <PUSH 26>
 197                     <CALL '\1aLNTH-MT-ANA 3 = TEMP7>
 198                     <RETURN TEMP7>
 199                     <DEAD TEMP7>
 200                     <END \1aEMPTY?-ANA>
 201 <COND (<GASSIGNED? LENGTH-ANA> <PUTPROP ,EMPTY? ANALYSIS ,EMPTY?-ANA> <PUTPROP ,LENGTH ANALYSIS ,LENGTH-ANA>)>
 202
 203 #WORD *2370326125*
 204 <GFCN \1aLENGTH?-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
 205                     <TEMP K6:LIST TEMP3:LBIND TEMP13 TEMP16 TEMP37 L40:LIST FLG42>
 206                     <INTGO>
 207                     <NTHUV NOD4 5 = K6 (TYPE LIST)>
 208                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
 209                     <BBIND 'WHO 'LIST 'FIX ()>
 210                     <GEN-LVAL 'PRED = TEMP13>
 211                     <NTHUV NOD4 2 = TEMP16>
 212                     <EQUAL? TEMP13 TEMP16 + TAG12>
 213                     <DEAD TEMP13 TEMP16>
 214                     <SET TEMP13 %<> (TYPE FALSE)>
 215                     <JUMP + BOOL10>
 216 TAG12
 217                     <SET TEMP13 NOD4>
 218 BOOL10
 219                     <BBIND 'WHON 'ANY 'FIX TEMP13>
 220                     <DEAD TEMP13>
 221                     <FRAME '\1aSEGFLUSH>
 222                     <PUSH NOD4>
 223                     <PUSH RTYP5>
 224                     <CALL '\1aSEGFLUSH 2 = TEMP13>
 225                     <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE19>
 226                     <FRAME '\1aARGCHK>
 227                     <LENL K6 = STACK (TYPE FIX)>
 228                     <PUSH 2>
 229                     <PUSH 'LENGTH?>
 230                     <PUSH NOD4>
 231                     <CALL '\1aARGCHK 4>
 232                     <FRAME '\1aEANA>
 233                     <NTHL K6 1 = STACK (TYPE NODE)>
 234                     <PUSH 'STRUCTURED>
 235                     <PUSH 'LENGTH?>
 236                     <CALL '\1aEANA 3 = TEMP13>
 237                     <NTHR 'WHON 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
 238                     <PUTR TEMP16 1 %<> (RECORD-TYPE LBIND)>
 239                     <DEAD TEMP16>
 240                     <FRAME '\1aEANA>
 241                     <RESTL K6 1 = TEMP16 (TYPE LIST)>
 242                     <NTHL TEMP16 1 = STACK (TYPE NODE)>
 243                     <DEAD TEMP16>
 244                     <PUSH 'FIX>
 245                     <PUSH 'LENGTH?>
 246                     <CALL '\1aEANA 3>
 247                     <RESTL K6 1 = TEMP16 (TYPE LIST)>
 248                     <NTHL TEMP16 1 = TEMP16 (TYPE NODE)>
 249                     <NTHUV TEMP16 1 = TEMP16 (TYPE FIX)>
 250                     <VEQUAL? TEMP16 2 - MAPAP31 (TYPE FIX)>
 251                     <DEAD TEMP16>
 252                     <NTHR 'WHO 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
 253                     <NTHR TEMP37 1 = TEMP16 (RECORD-TYPE LBIND)>
 254                     <DEAD TEMP37>
 255                     <LOOP>
 256 MAP28
 257                     <INTGO>
 258                     <EMPL? TEMP16 + MAPAP31>
 259                     <NTHL TEMP16 1 = L40>
 260                     <RESTL L40 1 = TEMP37 (TYPE LIST)>
 261                     <NTHL TEMP37 1 = TEMP37 (TYPE SYMTAB)>
 262                     <NTHL L40 1 = FLG42>
 263                     <FRAME '\1aADD-TYPE-LIST>
 264                     <PUSH TEMP37>
 265                     <DEAD TEMP37>
 266                     <FRAME '\1aFORM>
 267                     <PUSH 'STRUCTURED>
 268                     <RESTL K6 1 = TEMP37 (TYPE LIST)>
 269                     <NTHL TEMP37 1 = TEMP37 (TYPE NODE)>
 270                     <NTHUV TEMP37 4 = STACK>
 271                     <DEAD TEMP37>
 272                     <PUSH 'ANY>
 273                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 274                     <CALL '\1aFORM 2 = STACK>
 275                     <GEN-LVAL 'TRUTH = STACK>
 276                     <PUSH FLG42>
 277                     <DEAD FLG42>
 278                     <RESTL L40 1 = TEMP37 (TYPE LIST)>
 279                     <DEAD L40>
 280                     <RESTL TEMP37 1 = STACK (TYPE LIST)>
 281                     <DEAD TEMP37>
 282                     <CALL '\1aADD-TYPE-LIST 5 = TEMP37>
 283                     <GEN-SET 'UNTRUTH TEMP37>
 284                     <DEAD TEMP37>
 285                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
 286                     <JUMP + MAP28>
 287 MAPAP31
 288                     <FRAME '\1aSTRUCTYP>
 289                     <PUSH TEMP13>
 290                     <DEAD TEMP13>
 291                     <CALL '\1aSTRUCTYP 1 = TEMP13>
 292                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE52>
 293                     <DEAD TEMP13>
 294                     <PUTUV NOD4 1 69 (TYPE FIX)>
 295                     <JUMP + PHRASE54>
 296 PHRASE52
 297                     <GEN-LVAL 'VERBOSE = TEMP16>
 298                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE56>
 299                     <DEAD TEMP16>
 300                     <FRAME '\1aADDVMESS>
 301                     <PUSH NOD4>
 302                     <NTHL K6 1 = TEMP13 (TYPE NODE)>
 303                     <NTHUV TEMP13 3 = TEMP13>
 304                     <CONS TEMP13 () = TEMP37>
 305                     <DEAD TEMP13>
 306                     <CONS "Not open compiled because type is:  " TEMP37 = STACK>
 307                     <DEAD TEMP37>
 308                     <CALL '\1aADDVMESS 2>
 309 PHRASE56
 310                     <PUTUV NOD4 1 52 (TYPE FIX)>
 311 PHRASE54
 312                     <FRAME '\1aTYPE-OK?>
 313                     <FRAME '\1aFORM>
 314                     <PUSH 'OR>
 315                     <FRAME '\1aFORM>
 316                     <PUSH 'FIX>
 317                     <RESTL K6 1 = TEMP37 (TYPE LIST)>
 318                     <DEAD K6>
 319                     <NTHL TEMP37 1 = TEMP37 (TYPE NODE)>
 320                     <NTHUV TEMP37 1 = TEMP37 (TYPE FIX)>
 321                     <VEQUAL? TEMP37 2 - PHRASE64 (TYPE FIX)>
 322                     <DEAD TEMP37>
 323                     <NTHUV NOD4 4 = TEMP37>
 324                     <DEAD NOD4>
 325                     <JUMP + PHRASE65>
 326 PHRASE64
 327                     <GVAL 'PLUSINF = TEMP37>
 328 PHRASE65
 329                     <CONS TEMP37 () = TEMP37>
 330                     <CONS 0 TEMP37 = STACK>
 331                     <DEAD TEMP37>
 332                     <CALL '\1aFORM 2 = STACK>
 333                     <PUSH 'FALSE>
 334                     <CALL '\1aFORM 3 = STACK>
 335                     <PUSH RTYP5>
 336                     <DEAD RTYP5>
 337                     <CALL '\1aTYPE-OK? 2 = TEMP13>
 338 PHRASE19
 339                     <UNBIND TEMP3>
 340                     <DEAD TEMP3>
 341                     <ADJ -18>
 342                     <RETURN TEMP13>
 343                     <DEAD TEMP13>
 344                     <END \1aLENGTH?-ANA>
 345 <COND (<GASSIGNED? LENGTH?-ANA> <PUTPROP ,LENGTH? ANALYSIS ,LENGTH?-ANA>)>
 346
 347 #WORD *35310042237*
 348 <GFCN \1aMONAD-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
 349                     <TEMP K6:LIST LN7:FIX TEMP12>
 350                     <INTGO>
 351                     <NTHUV NOD4 5 = K6 (TYPE LIST)>
 352                     <LENL K6 = LN7 (TYPE FIX)>
 353                     <FRAME '\1aSEGFLUSH>
 354                     <PUSH NOD4>
 355                     <PUSH RTYP5>
 356                     <CALL '\1aSEGFLUSH 2 = TEMP12>
 357                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE10>
 358                     <DEAD TEMP12>
 359                     <FRAME '\1aTYPE-OK?>
 360                     <PUSH RTYP5>
 361                     <DEAD RTYP5>
 362                     <PUSH 'BOOLEAN>
 363                     <CALL '\1aTYPE-OK? 2 = TEMP12>
 364                     <RETURN TEMP12>
 365                     <DEAD TEMP12>
 366 PHRASE10
 367                     <FRAME '\1aARGCHK>
 368                     <PUSH LN7>
 369                     <DEAD LN7>
 370                     <PUSH 1>
 371                     <PUSH 'MONAD?>
 372                     <PUSH NOD4>
 373                     <CALL '\1aARGCHK 4>
 374                     <FRAME '\1aEANA>
 375                     <NTHL K6 1 = STACK (TYPE NODE)>
 376                     <DEAD K6>
 377                     <PUSH 'STRUCTURED>
 378                     <NTHUV NOD4 4 = STACK>
 379                     <CALL '\1aEANA 3>
 380                     <PUTUV NOD4 1 91 (TYPE FIX)>
 381                     <DEAD NOD4>
 382                     <FRAME '\1aTYPE-OK?>
 383                     <PUSH RTYP5>
 384                     <DEAD RTYP5>
 385                     <PUSH 'BOOLEAN>
 386                     <CALL '\1aTYPE-OK? 2 = TEMP12>
 387                     <RETURN TEMP12>
 388                     <DEAD TEMP12>
 389                     <END \1aMONAD-ANA>
 390 <COND (<GASSIGNED? MONAD-ANA> <PUTPROP ,MONAD? ANALYSIS ,MONAD-ANA>)>
 391
 392 #WORD *13070412356*
 393 <GFCN \1aNTH-REST-ANA ("VALUE" ANY NODE ANY FIX "OPTIONAL" ANY) NOD6 RTYP7 COD8 TF9>
 394                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 395 OPT4
 396                     <PUSH %<>>
 397 OPT5
 398                     <TEMP K10:LIST LN11 TEMP24 TEMP26 RV15 (SVWHO16:LIST ()) AMT17 NM19 TEMP35 OWHON21 TPS14 NUMB22>
 399                     <INTGO>
 400                     <NTHUV NOD6 5 = K10 (TYPE LIST)>
 401                     <LENL K10 = LN11 (TYPE FIX)>
 402                     <SET TEMP24 TF9>
 403                     <TYPE? TEMP24 <TYPE-CODE FALSE> - TAG27>
 404                     <NTHUV NOD6 4 = TEMP26>
 405                     <EQUAL? TEMP26 'INTH - TAG25>
 406                     <DEAD TEMP26>
 407                     <SET TEMP24 'T (TYPE ATOM)>
 408                     <JUMP + TAG27>
 409 TAG25
 410                     <SET TEMP24 %<> (TYPE FALSE)>
 411 TAG27
 412                     <SET RV15 TEMP24>
 413                     <DEAD TEMP24>
 414                     <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE29>
 415                     <SET NM19 'NTH (TYPE ATOM)>
 416                     <JUMP + PHRASE30>
 417 PHRASE29
 418                     <NTHUV NOD6 4 = NM19>
 419 PHRASE30
 420                     <GEN-LVAL 'WHON = TEMP26>
 421                     <NTHUV NOD6 2 = TEMP35>
 422                     <EQUAL? TEMP26 TEMP35 + TAG32>
 423                     <DEAD TEMP26 TEMP35>
 424                     <SET TEMP24 %<> (TYPE FALSE)>
 425                     <JUMP + BOOL31>
 426 TAG32
 427                     <SET TEMP24 NOD6>
 428 BOOL31
 429                     <SET OWHON21 TEMP24>
 430                     <DEAD TEMP24>
 431                     <GETS 'BIND = TEMP24 (TYPE LBIND)>
 432                     <BBIND 'WHO 'LIST 'FIX ()>
 433                     <BBIND 'WHON 'ANY 'FIX %<>>
 434                     <FRAME '\1aSEGFLUSH>
 435                     <PUSH NOD6>
 436                     <PUSH RTYP7>
 437                     <CALL '\1aSEGFLUSH 2 = TEMP26>
 438                     <TYPE? TEMP26 <TYPE-CODE FALSE> - PHRASE42>
 439                     <VEQUAL? LN11 1 - PHRASE44 (TYPE FIX)>
 440                     <NTHL K10 1 = TEMP35 (TYPE NODE)>
 441                     <DEAD K10>
 442                     <CONS TEMP35 () = TEMP35>
 443                     <FRAME '\1aNODE1>
 444                     <PUSH 2>
 445                     <PUSH NOD6>
 446                     <PUSH 'FIX>
 447                     <PUSH 1>
 448                     <PUSH ()>
 449                     <CALL '\1aNODE1 5 = TEMP26>
 450                     <CONS TEMP26 () = TEMP26>
 451                     <PUTREST TEMP35 TEMP26>
 452                     <DEAD TEMP26>
 453                     <SET K10 TEMP35>
 454                     <DEAD TEMP35>
 455                     <PUTUV NOD6 5 K10 (TYPE LIST)>
 456                     <JUMP + PHRASE48>
 457 PHRASE44
 458                     <FRAME '\1aARGCHK>
 459                     <PUSH LN11>
 460                     <DEAD LN11>
 461                     <PUSH 2>
 462                     <NTHUV NOD6 4 = STACK>
 463                     <PUSH NOD6>
 464                     <CALL '\1aARGCHK 4>
 465 PHRASE48
 466                     <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE51>
 467                     <DEAD RV15>
 468                     <TYPE? TF9 <TYPE-CODE FALSE> - BOOL52>
 469                     <FRAME '\1aEANA>
 470                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 471                     <NTHL TEMP35 1 = STACK (TYPE NODE)>
 472                     <DEAD TEMP35>
 473                     <PUSH <OR FIX OFFSET>>
 474                     <PUSH NM19>
 475                     <CALL '\1aEANA 3 = TF9>
 476 BOOL52
 477                     <NTHR 'WHON 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
 478                     <PUTR TEMP35 1 NOD6 (RECORD-TYPE LBIND)>
 479                     <DEAD TEMP35>
 480                     <FRAME '\1aEANA>
 481                     <NTHL K10 1 = STACK (TYPE NODE)>
 482                     <PUSH 'STRUCTURED>
 483                     <PUSH NM19>
 484                     <CALL '\1aEANA 3 = TEMP26>
 485                     <JUMP + BOOL63>
 486 PHRASE51
 487                     <NTHR 'WHON 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
 488                     <PUTR TEMP35 1 NOD6 (RECORD-TYPE LBIND)>
 489                     <DEAD TEMP35>
 490                     <FRAME '\1aEANA>
 491                     <NTHL K10 1 = STACK (TYPE NODE)>
 492                     <PUSH 'STRUCTURED>
 493                     <PUSH NM19>
 494                     <CALL '\1aEANA 3 = TEMP26>
 495                     <NTHR 'WHON 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
 496                     <PUTR TEMP35 1 %<> (RECORD-TYPE LBIND)>
 497                     <DEAD TEMP35>
 498                     <TYPE? TF9 <TYPE-CODE FALSE> - BOOL63>
 499                     <FRAME '\1aEANA>
 500                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 501                     <NTHL TEMP35 1 = STACK (TYPE NODE)>
 502                     <DEAD TEMP35>
 503                     <PUSH <OR FIX OFFSET>>
 504                     <PUSH NM19>
 505                     <CALL '\1aEANA 3 = TF9>
 506 BOOL63
 507                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 508                     <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
 509                     <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
 510                     <VEQUAL? TEMP35 2 - PHRASE66 (TYPE FIX)>
 511                     <DEAD TEMP35>
 512                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 513                     <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
 514                     <NTHUV TEMP35 4 = AMT17>
 515                     <DEAD TEMP35>
 516                     <TYPE? AMT17 <TYPE-CODE FALSE> + PHRASE66>
 517                     <FRAME '\1aISTYPE?>
 518                     <PUSH TF9>
 519                     <CALL '\1aISTYPE? 1 = TEMP35>
 520                     <VEQUAL? TEMP35 'OFFSET - PHRASE66>
 521                     <DEAD TEMP35>
 522                     <FRAME '\1aTYPE-AND>
 523                     <PUSH TEMP26>
 524                     <DEAD TEMP26>
 525                     <FRAME '\1aGET-DECL>
 526                     <PUSH AMT17>
 527                     <CALL '\1aGET-DECL 1 = STACK>
 528                     <CALL '\1aTYPE-AND 2 = TEMP26>
 529                     <NTHUV AMT17 1 = AMT17>
 530                     <NTHL K10 1 = TEMP35 (TYPE NODE)>
 531                     <PUTUV TEMP35 3 TEMP26>
 532                     <DEAD TEMP35>
 533 PHRASE66
 534                     <TYPE? AMT17 <TYPE-CODE UNBOUND> + PHRASE72>
 535                     <VEQUAL? COD8 27 - PHRASE74 (TYPE FIX)>
 536                     <EQUAL? AMT17 1 - PHRASE76>
 537                     <FRAME '\1aTYPE-AND>
 538                     <PUSH TEMP26>
 539                     <DEAD TEMP26>
 540                     <FRAME '\1aFORM>
 541                     <PUSH 'STRUCTURED>
 542                     <PUSH RTYP7>
 543                     <CALL '\1aFORM 2 = STACK>
 544                     <CALL '\1aTYPE-AND 2 = TEMP26>
 545                     <JUMP + PHRASE102>
 546 PHRASE76
 547                     <FRAME '\1aTYPE-AND>
 548                     <PUSH TEMP26>
 549                     <DEAD TEMP26>
 550                     <FRAME '\1aFORM>
 551                     <PUSH 'STRUCTURED>
 552                     <FRAME '\1a->
 553                     <PUSH AMT17>
 554                     <DEAD AMT17>
 555                     <PUSH 1>
 556                     <CALL '\1a- 2 = STACK>
 557                     <PUSH 'ANY>
 558                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 559                     <PUSH RTYP7>
 560                     <CALL '\1aFORM 3 = STACK>
 561                     <CALL '\1aTYPE-AND 2 = TEMP26>
 562                     <JUMP + PHRASE102>
 563 PHRASE74
 564                     <FRAME '\1aSTRUCTYP>
 565                     <PUSH RTYP7>
 566                     <CALL '\1aSTRUCTYP 1 = RV15>
 567                     <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE84>
 568                     <EQUAL? AMT17 0 - PHRASE87>
 569                     <FRAME '\1aTYPE-AND>
 570                     <PUSH TEMP26>
 571                     <DEAD TEMP26>
 572                     <FRAME '\1aFORM>
 573                     <PUSH 'PRIMTYPE>
 574                     <PUSH RV15>
 575                     <DEAD RV15>
 576                     <CALL '\1aFORM 2 = STACK>
 577                     <CALL '\1aTYPE-AND 2 = TEMP26>
 578                     <JUMP + PHRASE102>
 579 PHRASE87
 580                     <FRAME '\1aTYPE-AND>
 581                     <PUSH TEMP26>
 582                     <DEAD TEMP26>
 583                     <FRAME '\1aFORM>
 584                     <FRAME '\1aFORM>
 585                     <PUSH 'PRIMTYPE>
 586                     <PUSH RV15>
 587                     <DEAD RV15>
 588                     <CALL '\1aFORM 2 = STACK>
 589                     <PUSH AMT17>
 590                     <DEAD AMT17>
 591                     <PUSH 'ANY>
 592                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 593                     <CALL '\1aFORM 2 = STACK>
 594                     <CALL '\1aTYPE-AND 2 = TEMP26>
 595                     <JUMP + PHRASE102>
 596 PHRASE84
 597                     <EQUAL? AMT17 0 + PHRASE102>
 598                     <FRAME '\1aTYPE-AND>
 599                     <PUSH TEMP26>
 600                     <DEAD TEMP26>
 601                     <FRAME '\1aFORM>
 602                     <PUSH 'STRUCTURED>
 603                     <PUSH AMT17>
 604                     <DEAD AMT17>
 605                     <PUSH 'ANY>
 606                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
 607                     <CALL '\1aFORM 2 = STACK>
 608                     <CALL '\1aTYPE-AND 2 = TEMP26>
 609                     <JUMP + PHRASE102>
 610 PHRASE72
 611                     <VEQUAL? COD8 27 - PHRASE99 (TYPE FIX)>
 612                     <FRAME '\1aTYPE-AND>
 613                     <PUSH TEMP26>
 614                     <DEAD TEMP26>
 615                     <FRAME '\1aFORM>
 616                     <PUSH 'STRUCTURED>
 617                     <PUSH 'ANY>
 618                     <CALL '\1aFORM 2 = STACK>
 619                     <CALL '\1aTYPE-AND 2 = TEMP26>
 620                     <JUMP + PHRASE102>
 621 PHRASE99
 622                     <FRAME '\1aSTRUCTYP>
 623                     <PUSH RTYP7>
 624                     <CALL '\1aSTRUCTYP 1 = RV15>
 625                     <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE102>
 626                     <FRAME '\1aTYPE-AND>
 627                     <PUSH TEMP26>
 628                     <DEAD TEMP26>
 629                     <FRAME '\1aFORM>
 630                     <PUSH 'PRIMTYPE>
 631                     <PUSH RV15>
 632                     <DEAD RV15>
 633                     <CALL '\1aFORM 2 = STACK>
 634                     <CALL '\1aTYPE-AND 2 = TEMP26>
 635 PHRASE102
 636                     <NTHL K10 1 = TEMP35 (TYPE NODE)>
 637                     <PUTUV TEMP35 3 TEMP26>
 638                     <DEAD TEMP35>
 639                     <FRAME '\1aSTRUCTYP>
 640                     <PUSH TEMP26>
 641                     <CALL '\1aSTRUCTYP 1 = TPS14>
 642                     <TYPE? TPS14 <TYPE-CODE FALSE> + PHRASE108>
 643                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 644                     <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
 645                     <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
 646                     <VEQUAL? TEMP35 2 - PHRASE108 (TYPE FIX)>
 647                     <DEAD TEMP35>
 648                     <NTHR 'WHO 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
 649                     <NTHR TEMP35 1 = SVWHO16 (RECORD-TYPE LBIND)>
 650 PHRASE108
 651                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 652                     <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
 653                     <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
 654                     <VEQUAL? TEMP35 2 - BOOL115 (TYPE FIX)>
 655                     <DEAD TEMP35>
 656                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 657                     <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
 658                     <NTHUV TEMP35 4 = TEMP35>
 659                     <EQUAL? TEMP35 1 + BOOL117>
 660                     <DEAD TEMP35>
 661 BOOL115
 662                     <TYPE? TPS14 <TYPE-CODE FALSE> + PHRASE113>
 663                     <FRAME '\1aISTYPE?>
 664                     <PUSH TF9>
 665                     <CALL '\1aISTYPE? 1 = TEMP35>
 666                     <VEQUAL? TEMP35 'FIX + BOOL117>
 667                     <DEAD TEMP35>
 668                     <FRAME '\1aISTYPE?>
 669                     <PUSH TF9>
 670                     <CALL '\1aISTYPE? 1 = TEMP35>
 671                     <VEQUAL? TEMP35 'OFFSET - BOOL119>
 672                     <DEAD TEMP35>
 673                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 674                     <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
 675                     <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
 676                     <VEQUAL? TEMP35 2 + BOOL117 (TYPE FIX)>
 677                     <DEAD TEMP35>
 678 BOOL119
 679                     <FRAME '\1aTYPE-OK?>
 680                     <PUSH TF9>
 681                     <PUSH 'FIX>
 682                     <CALL '\1aTYPE-OK? 2 = TEMP35>
 683                     <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE113>
 684                     <DEAD TEMP35>
 685                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 686                     <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
 687                     <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
 688                     <VEQUAL? TEMP35 2 + PHRASE113 (TYPE FIX)>
 689                     <DEAD TEMP35>
 690 BOOL117
 691                     <PUTUV NOD6 1 COD8 (TYPE FIX)>
 692                     <JUMP + PHRASE123>
 693 PHRASE113
 694                     <VEQUAL? COD8 27 - BOOL124 (TYPE FIX)>
 695                     <PUTUV NOD6 4 'NTH>
 696 BOOL124
 697                     <GEN-LVAL 'VERBOSE = TEMP35>
 698                     <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE126>
 699                     <DEAD TEMP35>
 700                     <FRAME '\1aADDVMESS>
 701                     <PUSH NOD6>
 702                     <CONS TEMP26 () = TEMP35>
 703                     <CONS "Not open compiled because type is:  " TEMP35 = STACK>
 704                     <DEAD TEMP35>
 705                     <CALL '\1aADDVMESS 2>
 706 PHRASE126
 707                     <PUTUV NOD6 1 52 (TYPE FIX)>
 708 PHRASE123
 709                     <FRAME '\1aTYPE-OK?>
 710                     <FRAME '\1aGET-ELE-TYPE>
 711                     <PUSH TEMP26>
 712                     <DEAD TEMP26>
 713                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 714                     <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
 715                     <NTHUV TEMP35 1 = TEMP35 (TYPE FIX)>
 716                     <VEQUAL? TEMP35 2 - PHRASE133 (TYPE FIX)>
 717                     <DEAD TEMP35>
 718                     <FRAME '\1aISTYPE?>
 719                     <PUSH TF9>
 720                     <DEAD TF9>
 721                     <CALL '\1aISTYPE? 1 = TEMP35>
 722                     <VEQUAL? TEMP35 'OFFSET - PHRASE135>
 723                     <DEAD TEMP35>
 724                     <RESTL K10 1 = TEMP35 (TYPE LIST)>
 725                     <NTHL TEMP35 1 = TEMP35 (TYPE NODE)>
 726                     <NTHUV TEMP35 4 = TEMP35 (TYPE OFFSET)>
 727                     <NTHUV TEMP35 1 = TEMP35>
 728                     <JUMP + PHRASE137>
 729 PHRASE135
 730                     <RESTL K10 1 = TEMP26 (TYPE LIST)>
 731                     <NTHL TEMP26 1 = TEMP26 (TYPE NODE)>
 732                     <NTHUV TEMP26 4 = TEMP35 (TYPE FIX)>
 733                     <DEAD TEMP26>
 734 PHRASE137
 735                     <SET NUMB22 TEMP35>
 736                     <DEAD TEMP35>
 737                     <SET TEMP35 NUMB22>
 738                     <JUMP + PHRASE138>
 739 PHRASE133
 740                     <SET TEMP35 'ALL (TYPE ATOM)>
 741 PHRASE138
 742                     <PUSH TEMP35>
 743                     <DEAD TEMP35>
 744                     <NTHUV NOD6 9 = TEMP35>
 745                     <GVAL 'REST = TEMP26>
 746                     <EQUAL? TEMP35 TEMP26 - TAG139>
 747                     <DEAD TEMP35 TEMP26>
 748                     <PUSH 'T>
 749                     <JUMP + TAG140>
 750 TAG139
 751                     <PUSH %<>>
 752 TAG140
 753                     <CALL '\1aGET-ELE-TYPE 3 = STACK>
 754                     <PUSH RTYP7>
 755                     <DEAD RTYP7>
 756                     <CALL '\1aTYPE-OK? 2 = TEMP26>
 757 PHRASE42
 758                     <UNBIND TEMP24>
 759                     <DEAD TEMP24>
 760                     <ADJ -18>
 761                     <SET TEMP24 SVWHO16 (TYPE LIST)>
 762                     <DEAD SVWHO16>
 763                     <LOOP>
 764 MAP142
 765                     <INTGO>
 766                     <EMPL? TEMP24 + MAPAP145>
 767                     <NTHL TEMP24 1 = SVWHO16>
 768                     <RESTL SVWHO16 1 = RV15 (TYPE LIST)>
 769                     <NTHL RV15 1 = AMT17 (TYPE SYMTAB)>
 770                     <DEAD RV15>
 771                     <NTHL SVWHO16 1 = TEMP35>
 772                     <RESTL SVWHO16 1 = LN11 (TYPE LIST)>
 773                     <DEAD SVWHO16>
 774                     <RESTL LN11 1 = RV15 (TYPE LIST)>
 775                     <DEAD LN11>
 776                     <CONS NUMB22 RV15 = SVWHO16>
 777                     <DEAD RV15>
 778                     <CONS NM19 SVWHO16 = SVWHO16>
 779                     <FRAME '\1aSET-CURRENT-TYPE>
 780                     <PUSH AMT17>
 781                     <FRAME '\1aTYPE-AND>
 782                     <FRAME '\1aGET-CURRENT-TYPE>
 783                     <PUSH AMT17>
 784                     <CALL '\1aGET-CURRENT-TYPE 1 = STACK>
 785                     <FRAME '\1aTYPE-NTH-REST>
 786                     <PUSH TEMP26>
 787                     <PUSH SVWHO16>
 788                     <CALL '\1aTYPE-NTH-REST 2 = STACK>
 789                     <CALL '\1aTYPE-AND 2 = STACK>
 790                     <CALL '\1aSET-CURRENT-TYPE 2>
 791                     <TYPE? OWHON21 <TYPE-CODE FALSE> + PHRASE161>
 792                     <GEN-LVAL 'WHO = RV15>
 793                     <CONS AMT17 SVWHO16 = LN11>
 794                     <CONS TEMP35 LN11 = LN11>
 795                     <CONS LN11 RV15 = LN11>
 796                     <DEAD RV15>
 797                     <GEN-SET 'WHO LN11>
 798                     <DEAD LN11>
 799 PHRASE161
 800                     <GEN-LVAL 'PRED = LN11>
 801                     <NTHUV NOD6 2 = RV15>
 802                     <EQUAL? LN11 RV15 - PHRASE167>
 803                     <DEAD LN11 RV15>
 804                     <FRAME '\1aTYPE-OK?>
 805                     <PUSH TEMP26>
 806                     <PUSH 'FALSE>
 807                     <CALL '\1aTYPE-OK? 2 = RV15>
 808                     <TYPE? RV15 <TYPE-CODE FALSE> + PHRASE167>
 809                     <FRAME '\1aTYPE-OK?>
 810                     <PUSH TEMP26>
 811                     <PUSH <NOT FALSE>>
 812                     <CALL '\1aTYPE-OK? 2 = LN11>
 813                     <TYPE? LN11 <TYPE-CODE FALSE> + PHRASE167>
 814                     <FRAME '\1aADD-TYPE-LIST>
 815                     <PUSH AMT17>
 816                     <PUSH LN11>
 817                     <DEAD LN11>
 818                     <GEN-LVAL 'TRUTH = STACK>
 819                     <PUSH TEMP35>
 820                     <PUSH SVWHO16>
 821                     <CALL '\1aADD-TYPE-LIST 5 = LN11>
 822                     <GEN-SET 'TRUTH LN11>
 823                     <DEAD LN11>
 824                     <FRAME '\1aADD-TYPE-LIST>
 825                     <PUSH AMT17>
 826                     <DEAD AMT17>
 827                     <PUSH RV15>
 828                     <DEAD RV15>
 829                     <GEN-LVAL 'UNTRUTH = STACK>
 830                     <PUSH TEMP35>
 831                     <DEAD TEMP35>
 832                     <PUSH SVWHO16>
 833                     <DEAD SVWHO16>
 834                     <CALL '\1aADD-TYPE-LIST 5 = RV15>
 835                     <GEN-SET 'UNTRUTH RV15>
 836                     <DEAD RV15>
 837 PHRASE167
 838                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
 839                     <JUMP + MAP142>
 840 MAPAP145
 841                     <EQUAL? TPS14 'LIST - PHRASE185>
 842                     <NTHL K10 1 = TEMP24 (TYPE NODE)>
 843                     <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
 844                     <VEQUAL? TEMP24 10 + BOOL187 (TYPE FIX)>
 845                     <DEAD TEMP24>
 846                     <NTHL K10 1 = TEMP24 (TYPE NODE)>
 847                     <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
 848                     <VEQUAL? TEMP24 11 - PHRASE185 (TYPE FIX)>
 849                     <DEAD TEMP24>
 850 BOOL187
 851                     <FRAME '\1aLOOK-FOR>
 852                     <PUSH NOD6>
 853                     <NTHL K10 1 = STACK (TYPE NODE)>
 854                     <RESTL K10 1 = RV15 (TYPE LIST)>
 855                     <NTHL RV15 1 = STACK (TYPE NODE)>
 856                     <DEAD RV15>
 857                     <NTHUV NOD6 9 = RV15>
 858                     <GVAL 'REST = TEMP24>
 859                     <EQUAL? RV15 TEMP24 - TAG189>
 860                     <DEAD RV15 TEMP24>
 861                     <PUSH 'T>
 862                     <JUMP + TAG190>
 863 TAG189
 864                     <PUSH %<>>
 865 TAG190
 866                     <CALL '\1aLOOK-FOR 4 = TEMP24>
 867                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE185>
 868                     <DEAD TEMP24>
 869                     <PUTUV NOD6 1 79 (TYPE FIX)>
 870                     <DEAD NOD6>
 871                     <RETURN TEMP26>
 872                     <DEAD TEMP26>
 873 PHRASE185
 874                     <EQUAL? TPS14 'LIST - PHRASE191>
 875                     <DEAD TPS14>
 876                     <VEQUAL? COD8 28 - PHRASE191 (TYPE FIX)>
 877                     <DEAD COD8>
 878                     <NTHR 'PUT-SAME-CODE 1 = TEMP24 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE191)>
 879                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE191>
 880                     <NTHR TEMP24 1 = TEMP24 (RECORD-TYPE GBIND)>
 881                     <TYPE? TEMP24 <TYPE-CODE UNBOUND> + PHRASE191>
 882                     <DEAD TEMP24>
 883                     <NTHL K10 1 = TEMP24 (TYPE NODE)>
 884                     <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
 885                     <VEQUAL? TEMP24 30 - PHRASE191 (TYPE FIX)>
 886                     <DEAD TEMP24>
 887                     <RESTL K10 1 = TEMP24 (TYPE LIST)>
 888                     <DEAD K10>
 889                     <NTHL TEMP24 1 = TEMP24 (TYPE NODE)>
 890                     <NTHUV TEMP24 1 = TEMP24 (TYPE FIX)>
 891                     <VEQUAL? TEMP24 2 - PHRASE191 (TYPE FIX)>
 892                     <DEAD TEMP24>
 893                     <VEQUAL? NUMB22 1 - PHRASE191 (TYPE FIX)>
 894                     <DEAD NUMB22>
 895                     <PUTUV NOD6 1 30 (TYPE FIX)>
 896                     <DEAD NOD6>
 897 PHRASE191
 898                     <RETURN TEMP26>
 899                     <DEAD TEMP26>
 900                     <END \1aNTH-REST-ANA>
 901 #WORD *26274540541*
 902 <GFCN \1aLOOK-FOR ("VALUE" <OR FALSE NODE> NODE NODE NODE ANY) MN4 N15 N6 RFLG7>
 903                     <TEMP (S10:LIST ()) TEMP12:LIST TEMP17 TT8>
 904                     <INTGO>
 905                     <CONS () () = TEMP12>
 906                     <CONS () TEMP12 = TEMP12>
 907                     <CONS () TEMP12 = TEMP12>
 908                     <LOOP>
 909 AGAIN14
 910                     <INTGO>
 911                     <NTHUV N15 1 = TEMP17 (TYPE FIX)>
 912                     <VEQUAL? TEMP17 10 - PHRASE16 (TYPE FIX)>
 913                     <DEAD TEMP17>
 914                     <CONS N15 S10 = S10>
 915                     <DEAD N15>
 916                     <JUMP + EXIT13>
 917 PHRASE16
 918                     <NTHUV N15 1 = TEMP17 (TYPE FIX)>
 919                     <VEQUAL? TEMP17 11 - EXIT13 (TYPE FIX)>
 920                     <DEAD TEMP17>
 921                     <CONS N15 S10 = S10>
 922                     <NTHUV N15 5 = TEMP17 (TYPE LIST)>
 923                     <DEAD N15>
 924                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
 925                     <NTHL TEMP17 1 = N15 (TYPE NODE)>
 926                     <DEAD TEMP17>
 927                     <JUMP + AGAIN14>
 928 EXIT13
 929                     <TYPE? RFLG7 <TYPE-CODE FALSE> + BOOL22>
 930                     <FRAME '\1aSET-SEARCH>
 931                     <PUSH N6>
 932                     <PUSH 18>
 933                     <PUSH S10>
 934                     <PUSH TEMP12>
 935                     <CALL '\1aSET-SEARCH 4 = TT8>
 936                     <VEQUAL? TT8 0 + BOOL22>
 937                     <SET N6 TT8>
 938                     <DEAD TT8>
 939                     <NTHUV N6 9 = TEMP17>
 940                     <GVAL '- = TT8>
 941                     <EQUAL? TEMP17 TT8 - BOOL22>
 942                     <DEAD TEMP17 TT8>
 943                     <NTHUV N6 5 = TEMP17 (TYPE LIST)>
 944                     <EMPL? TEMP17 + BOOL22>
 945                     <RESTL TEMP17 1 = TT8 (TYPE LIST)>
 946                     <EMPL? TT8 + BOOL22>
 947                     <RESTL TT8 1 = TT8 (TYPE LIST)>
 948                     <EMPL? TT8 - BOOL22>
 949                     <DEAD TT8>
 950                     <RESTL TEMP17 1 = TT8 (TYPE LIST)>
 951                     <NTHL TT8 1 = TT8 (TYPE NODE)>
 952                     <NTHUV TT8 1 = TT8 (TYPE FIX)>
 953                     <VEQUAL? TT8 2 - BOOL22 (TYPE FIX)>
 954                     <DEAD TT8>
 955                     <RESTL TEMP17 1 = TT8 (TYPE LIST)>
 956                     <NTHL TT8 1 = TT8 (TYPE NODE)>
 957                     <NTHUV TT8 4 = TT8>
 958                     <EQUAL? TT8 1 - BOOL22>
 959                     <DEAD TT8>
 960                     <NTHL TEMP17 1 = N6 (TYPE NODE)>
 961                     <DEAD TEMP17>
 962                     <JUMP + TAG26>
 963 BOOL22
 964                     <TYPE? RFLG7 <TYPE-CODE FALSE> + TAG26>
 965                     <DEAD RFLG7>
 966                     <RETURN %<>>
 967 TAG26
 968                     <FRAME '\1aSET-SEARCH>
 969                     <PUSH N6>
 970                     <DEAD N6>
 971                     <PUSH 25>
 972                     <PUSH S10>
 973                     <RESTL TEMP12 1 = STACK (TYPE LIST)>
 974                     <CALL '\1aSET-SEARCH 4 = TT8>
 975                     <SET TEMP17 TT8>
 976                     <VEQUAL? TEMP17 0 + BOOL20>
 977                     <FRAME '\1aSET-SEARCH>
 978                     <NTHUV TT8 5 = TT8 (TYPE LIST)>
 979                     <NTHL TT8 1 = STACK (TYPE NODE)>
 980                     <DEAD TT8>
 981                     <PUSH 10>
 982                     <PUSH S10>
 983                     <RESTL TEMP12 1 = TT8 (TYPE LIST)>
 984                     <RESTL TT8 1 = STACK (TYPE LIST)>
 985                     <DEAD TT8>
 986                     <CALL '\1aSET-SEARCH 4 = TT8>
 987                     <SET TEMP17 TT8>
 988                     <VEQUAL? TEMP17 0 + BOOL20>
 989                     <FRAME '\1aSMEMQ>
 990                     <NTHUV TT8 4 = STACK (TYPE SYMTAB)>
 991                     <DEAD TT8>
 992                     <PUSH S10>
 993                     <DEAD S10>
 994                     <CALL '\1aSMEMQ 2 = TEMP17>
 995                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL20>
 996                     <PUTUV MN4 7 TEMP12 (TYPE LIST)>
 997                     <DEAD TEMP12>
 998                     <SET TEMP17 MN4>
 999                     <DEAD MN4>
1000 BOOL20
1001                     <RETURN TEMP17>
1002                     <DEAD TEMP17>
1003                     <END \1aLOOK-FOR>
1004 #WORD *353675534*
1005 <GFCN \1aSET-SEARCH ("VALUE" <OR !<FALSE> NODE> NODE FIX <LIST [REST NODE]> LIST) N4 C5 S6 SS7>
1006                     <TEMP (L8:LIST ()) TEMP15>
1007                     <INTGO>
1008                     <LOOP>
1009 AGAIN12
1010                     <INTGO>
1011                     <NTHUV N4 1 = TEMP15 (TYPE FIX)>
1012                     <VEQUAL? C5 TEMP15 - PHRASE14 (TYPE FIX)>
1013                     <DEAD TEMP15>
1014                     <PUTL SS7 1 L8>
1015                     <DEAD SS7 L8>
1016                     <RETURN N4>
1017                     <DEAD N4>
1018 PHRASE14
1019                     <NTHUV N4 1 = TEMP15 (TYPE FIX)>
1020                     <VEQUAL? TEMP15 11 - BOOL18 (TYPE FIX)>
1021                     <DEAD TEMP15>
1022                     <FRAME '\1aSMEMQ>
1023                     <NTHUV N4 4 = STACK (TYPE SYMTAB)>
1024                     <PUSH S6>
1025                     <CALL '\1aSMEMQ 2 = TEMP15>
1026                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE17>
1027                     <DEAD TEMP15>
1028 BOOL18
1029                     <RETURN %<>>
1030 PHRASE17
1031                     <CONS N4 L8 = L8>
1032                     <NTHUV N4 5 = TEMP15 (TYPE LIST)>
1033                     <DEAD N4>
1034                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1035                     <NTHL TEMP15 1 = N4 (TYPE NODE)>
1036                     <DEAD TEMP15>
1037                     <JUMP + AGAIN12>
1038                     <END \1aSET-SEARCH>
1039 #WORD *14034376247*
1040 <GFCN \1aSMEMQ ("VALUE" <OR FALSE <LIST NODE>> SYMTAB LIST) SYM4 L5>
1041                     <TEMP TEMP15 TEMP12:LIST LL17:LIST>
1042                     <INTGO>
1043                     <SET TEMP15 %<> (TYPE FALSE)>
1044                     <SET TEMP12 L5 (TYPE LIST)>
1045                     <DEAD L5>
1046                     <LOOP>
1047 MAP7
1048                     <INTGO>
1049                     <EMPL? TEMP12 + MAPAP10>
1050                     <SET LL17 TEMP12>
1051                     <NTHL LL17 1 = TEMP15 (TYPE NODE)>
1052                     <NTHUV TEMP15 4 = TEMP15>
1053                     <EQUAL? TEMP15 SYM4 + TAG21>
1054                     <DEAD TEMP15>
1055                     <SET TEMP15 %<> (TYPE FALSE)>
1056                     <JUMP + PHRASE20>
1057 TAG21
1058                     <RETURN LL17>
1059                     <DEAD LL17>
1060 PHRASE20
1061                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
1062                     <JUMP + MAP7>
1063 MAPAP10
1064                     <RETURN TEMP15>
1065                     <DEAD TEMP15>
1066                     <END \1aSMEMQ>
1067 #WORD *3627215064*
1068 <GFCN \1aNTH-ANA ("VALUE" ANY ANY ANY) N4 R5>
1069                     <TEMP TEMP7>
1070                     <INTGO>
1071                     <FRAME '\1aNTH-REST-ANA>
1072                     <PUSH N4>
1073                     <DEAD N4>
1074                     <PUSH R5>
1075                     <DEAD R5>
1076                     <PUSH 27>
1077                     <CALL '\1aNTH-REST-ANA 3 = TEMP7>
1078                     <RETURN TEMP7>
1079                     <DEAD TEMP7>
1080                     <END \1aNTH-ANA>
1081 #WORD *2476062604*
1082 <GFCN \1aREST-ANA ("VALUE" ANY ANY ANY) N4 R5>
1083                     <TEMP TEMP7>
1084                     <INTGO>
1085                     <FRAME '\1aNTH-REST-ANA>
1086                     <PUSH N4>
1087                     <DEAD N4>
1088                     <PUSH R5>
1089                     <DEAD R5>
1090                     <PUSH 28>
1091                     <CALL '\1aNTH-REST-ANA 3 = TEMP7>
1092                     <RETURN TEMP7>
1093                     <DEAD TEMP7>
1094                     <END \1aREST-ANA>
1095 <COND (<GASSIGNED? NTH-ANA> <PUTPROP ,NTH ANALYSIS ,NTH-ANA> <PUTPROP ,REST ANALYSIS ,REST-ANA>)>
1096
1097 #WORD *17724564216*
1098                     <GFCN \1aPUT-ANA ("VALUE" ANY NODE ANY "OPTIONAL" ANY) NOD6 RTYP7 TF8>
1099                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
1100 OPT4
1101                     <PUSH %<>>
1102 OPT5
1103                     <TEMP K9:LIST LN10 (TS11 'ANY) (TPS13 %<>) (SVWHO15:LIST ()) (P20:LIST ()) TEMP27 TEMP29 RV23 AMT24 WHICH16 TEMP115 TEMP118 L148:LIST ND150 TEMP152 TEMP153>
1104                     <INTGO>
1105                     <NTHUV NOD6 5 = K9 (TYPE LIST)>
1106                     <LENL K9 = LN10 (TYPE FIX)>
1107                     <SET TEMP27 TF8>
1108                     <TYPE? TEMP27 <TYPE-CODE FALSE> - TAG30>
1109                     <NTHUV NOD6 4 = TEMP29>
1110                     <EQUAL? TEMP29 'IPUT - TAG28>
1111                     <DEAD TEMP29>
1112                     <SET TEMP27 'T (TYPE ATOM)>
1113                     <JUMP + TAG30>
1114 TAG28
1115                     <SET TEMP27 %<> (TYPE FALSE)>
1116 TAG30
1117                     <SET RV23 TEMP27>
1118                     <DEAD TEMP27>
1119                     <GETS 'BIND = TEMP27 (TYPE LBIND)>
1120                     <BBIND 'WHO 'LIST 'FIX ()>
1121                     <BBIND 'WHON <OR FALSE NODE> 'FIX %<>>
1122                     <FRAME '\1aSEGFLUSH>
1123                     <PUSH NOD6>
1124                     <PUSH RTYP7>
1125                     <CALL '\1aSEGFLUSH 2 = TEMP29>
1126                     <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE204>
1127                     <DEAD TEMP29>
1128                     <FRAME '\1aARGCHK>
1129                     <PUSH LN10>
1130                     <DEAD LN10>
1131                     <PUSH 3>
1132                     <NTHUV NOD6 4 = STACK>
1133                     <PUSH NOD6>
1134                     <CALL '\1aARGCHK 4>
1135                     <TYPE? RV23 <TYPE-CODE FALSE> + PHRASE43>
1136                     <DEAD RV23>
1137                     <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1138                     <PUTR TEMP29 1 %<> (RECORD-TYPE LBIND)>
1139                     <DEAD TEMP29>
1140                     <TYPE? TF8 <TYPE-CODE FALSE> - BOOL46>
1141                     <FRAME '\1aEANA>
1142                     <RESTL K9 1 = TEMP29 (TYPE LIST)>
1143                     <NTHL TEMP29 1 = STACK (TYPE NODE)>
1144                     <DEAD TEMP29>
1145                     <PUSH <OR FIX OFFSET>>
1146                     <PUSH 'PUT>
1147                     <CALL '\1aEANA 3 = TEMP29>
1148                     <SET TF8 TEMP29>
1149                     <DEAD TEMP29>
1150 BOOL46
1151                     <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1152                     <PUTR TEMP29 1 NOD6 (RECORD-TYPE LBIND)>
1153                     <DEAD TEMP29>
1154                     <FRAME '\1aANA>
1155                     <NTHL K9 1 = STACK (TYPE NODE)>
1156                     <PUSH 'STRUCTURED>
1157                     <CALL '\1aANA 2 = TS11>
1158                     <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1159                     <PUTR TEMP29 1 %<> (RECORD-TYPE LBIND)>
1160                     <DEAD TEMP29>
1161                     <JUMP + BOOL59>
1162 PHRASE43
1163                     <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1164                     <PUTR TEMP29 1 NOD6 (RECORD-TYPE LBIND)>
1165                     <DEAD TEMP29>
1166                     <FRAME '\1aANA>
1167                     <NTHL K9 1 = STACK (TYPE NODE)>
1168                     <PUSH 'STRUCTURED>
1169                     <CALL '\1aANA 2 = TS11>
1170                     <NTHR 'WHON 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1171                     <PUTR TEMP29 1 %<> (RECORD-TYPE LBIND)>
1172                     <DEAD TEMP29>
1173                     <TYPE? TF8 <TYPE-CODE FALSE> - BOOL59>
1174                     <FRAME '\1aEANA>
1175                     <RESTL K9 1 = TEMP29 (TYPE LIST)>
1176                     <NTHL TEMP29 1 = STACK (TYPE NODE)>
1177                     <DEAD TEMP29>
1178                     <PUSH <OR FIX OFFSET>>
1179                     <PUSH 'PUT>
1180                     <CALL '\1aEANA 3 = TF8>
1181 BOOL59
1182                     <FRAME '\1aANA>
1183                     <RESTL K9 1 = TEMP29 (TYPE LIST)>
1184                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
1185                     <NTHL TEMP29 1 = STACK (TYPE NODE)>
1186                     <DEAD TEMP29>
1187                     <PUSH 'ANY>
1188                     <CALL '\1aANA 2 = RV23>
1189                     <RESTL K9 1 = TEMP29 (TYPE LIST)>
1190                     <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
1191                     <NTHUV TEMP29 1 = TEMP29 (TYPE FIX)>
1192                     <VEQUAL? TEMP29 2 - PHRASE63 (TYPE FIX)>
1193                     <DEAD TEMP29>
1194                     <RESTL K9 1 = TEMP29 (TYPE LIST)>
1195                     <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
1196                     <NTHUV TEMP29 4 = AMT24>
1197                     <DEAD TEMP29>
1198                     <TYPE? AMT24 <TYPE-CODE FALSE> + PHRASE63>
1199                     <FRAME '\1aISTYPE?>
1200                     <PUSH TF8>
1201                     <CALL '\1aISTYPE? 1 = TEMP29>
1202                     <VEQUAL? TEMP29 'OFFSET - PHRASE63>
1203                     <DEAD TEMP29>
1204                     <FRAME '\1aTYPE-AND>
1205                     <PUSH TS11>
1206                     <DEAD TS11>
1207                     <FRAME '\1aGET-DECL>
1208                     <RESTL K9 1 = TEMP29 (TYPE LIST)>
1209                     <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
1210                     <NTHUV TEMP29 4 = STACK>
1211                     <DEAD TEMP29>
1212                     <CALL '\1aGET-DECL 1 = STACK>
1213                     <CALL '\1aTYPE-AND 2 = TS11>
1214                     <NTHUV AMT24 1 = AMT24>
1215                     <NTHL K9 1 = TEMP29 (TYPE NODE)>
1216                     <PUTUV TEMP29 3 TS11>
1217                     <DEAD TEMP29>
1218 PHRASE63
1219                     <FRAME '\1aISTYPE?>
1220                     <PUSH TF8>
1221                     <CALL '\1aISTYPE? 1 = TEMP29>
1222                     <VEQUAL? TEMP29 'FIX + BOOL70>
1223                     <DEAD TEMP29>
1224                     <FRAME '\1aISTYPE?>
1225                     <PUSH TF8>
1226                     <CALL '\1aISTYPE? 1 = TEMP29>
1227                     <VEQUAL? TEMP29 'OFFSET - BOOL69>
1228                     <DEAD TEMP29>
1229                     <RESTL K9 1 = TEMP29 (TYPE LIST)>
1230                     <NTHL TEMP29 1 = TEMP29 (TYPE NODE)>
1231                     <NTHUV TEMP29 1 = TEMP29 (TYPE FIX)>
1232                     <VEQUAL? TEMP29 2 - BOOL69 (TYPE FIX)>
1233                     <DEAD TEMP29>
1234 BOOL70
1235                     <NTHUV NOD6 9 = TEMP29>
1236                     <GVAL 'PUT = LN10>
1237                     <EQUAL? TEMP29 LN10 + BOOL68>
1238                     <DEAD TEMP29 LN10>
1239 BOOL69
1240                     <SET TF8 %<> (TYPE FALSE)>
1241 BOOL68
1242                     <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE76>
1243                     <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE76>
1244                     <TYPE? AMT24 <TYPE-CODE UNBOUND> + PHRASE76>
1245                     <SET WHICH16 AMT24>
1246                     <DEAD AMT24>
1247                     <FRAME '\1aFORM>
1248                     <PUSH 'STRUCTURED>
1249                     <SET TEMP29 1 (TYPE FIX)>
1250                     <TYPE? WHICH16 <TYPE-CODE FLOAT> - TAG81>
1251                     <VEQUAL? WHICH16 1.0 + TAG82 (TYPE FLOAT)>
1252                     <JUMP + PHRASE80>
1253 TAG81
1254                     <TYPE? WHICH16 <TYPE-CODE FIX> - COMPERR>
1255                     <VEQUAL? WHICH16 1 - PHRASE80 (TYPE FIX)>
1256 TAG82
1257                     <CONS 'ANY () = LN10>
1258                     <JUMP + PHRASE83>
1259 PHRASE80
1260                     <CONS 'ANY () = LN10>
1261                     <FRAME '\1a->
1262                     <PUSH WHICH16>
1263                     <PUSH 1>
1264                     <CALL '\1a- 2 = STACK>
1265                     <PUSH 'ANY>
1266                     <UBLOCK <TYPE-CODE VECTOR> 2 = AMT24>
1267                     <CONS AMT24 LN10 = LN10>
1268                     <DEAD AMT24>
1269 PHRASE83
1270                     <LOOP (LN10 VALUE) (TEMP29 VALUE)>
1271 TAG87
1272                     <INTGO>
1273                     <EMPL? LN10 + TAG78>
1274                     <NTHL LN10 1 = STACK>
1275                     <RESTL LN10 1 = LN10 (TYPE LIST)>
1276                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
1277                     <JUMP + TAG87>
1278 TAG78
1279                     <CALL '\1aFORM TEMP29 = AMT24>
1280                     <DEAD TEMP29>
1281                     <JUMP + PHRASE89>
1282 PHRASE76
1283                     <SET WHICH16 'ALL (TYPE ATOM)>
1284                     <SET AMT24 <STRUCTURED ANY> (TYPE FORM)>
1285 PHRASE89
1286                     <FRAME '\1aTYPE-AND>
1287                     <PUSH TS11>
1288                     <DEAD TS11>
1289                     <PUSH AMT24>
1290                     <CALL '\1aTYPE-AND 2 = TS11>
1291                     <EQUAL? WHICH16 'ALL + PHRASE126>
1292                     <EQUAL? RV23 'ANY + PHRASE126>
1293                     <TYPE? TS11 <TYPE-CODE FORM> + TAG97>
1294                     <TYPE? TS11 <TYPE-CODE SEGMENT> - PHRASE121>
1295 TAG97
1296                     <NTHL TS11 1 = TEMP29>
1297                     <EQUAL? TEMP29 'OR - PHRASE99>
1298                     <DEAD TEMP29>
1299                     <RESTL TS11 1 = TEMP29 (TYPE LIST)>
1300                     <CHTYPE TEMP29 <TYPE-CODE LIST> = TEMP29>
1301                     <EMPL? TEMP29 + PHRASE95>
1302                     <LOOP>
1303 MAP101
1304                     <INTGO>
1305                     <EMPL? TEMP29 + PHRASE121>
1306                     <NTHL TEMP29 1 = LN10>
1307                     <TYPE? LN10 <TYPE-CODE FORM> - PHRASE111>
1308                     <LOOP (LN10 VALUE)>
1309 TAG114
1310                     <RESTL LN10 1 = TEMP115 (TYPE LIST)>
1311                     <EMPL? TEMP115 + TAG116>
1312                     <SET LN10 TEMP115>
1313                     <DEAD TEMP115>
1314                     <JUMP + TAG114>
1315 TAG116
1316                     <SET TEMP115 AMT24>
1317                     <LOOP (TEMP115 VALUE)>
1318 TAG117
1319                     <RESTL TEMP115 1 = TEMP118 (TYPE LIST)>
1320                     <EMPL? TEMP118 + TAG119>
1321                     <SET TEMP115 TEMP118>
1322                     <DEAD TEMP118>
1323                     <JUMP + TAG117>
1324 TAG119
1325                     <VEQUAL? LN10 TEMP115 + PHRASE95>
1326                     <DEAD LN10 TEMP115>
1327 PHRASE111
1328                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
1329                     <JUMP + MAP101>
1330 PHRASE99
1331                     <SET TEMP29 AMT24>
1332                     <LOOP (TEMP29 VALUE)>
1333 TAG122
1334                     <RESTL TEMP29 1 = TEMP115 (TYPE LIST)>
1335                     <EMPL? TEMP115 + TAG123>
1336                     <SET TEMP29 TEMP115>
1337                     <DEAD TEMP115>
1338                     <JUMP + TAG122>
1339 TAG123
1340                     <SET TEMP115 TS11>
1341                     <LOOP (TEMP115 VALUE)>
1342 TAG124
1343                     <RESTL TEMP115 1 = LN10 (TYPE LIST)>
1344                     <EMPL? LN10 + TAG125>
1345                     <SET TEMP115 LN10>
1346                     <DEAD LN10>
1347                     <JUMP + TAG124>
1348 TAG125
1349                     <VEQUAL? TEMP29 TEMP115 + PHRASE95>
1350                     <DEAD TEMP29 TEMP115>
1351 PHRASE121
1352                     <LENL AMT24 = LN10 (TYPE FIX)>
1353                     <PUTL AMT24 LN10 RV23>
1354                     <DEAD LN10>
1355                     <JUMP + PHRASE126>
1356 PHRASE95
1357                     <FRAME '\1aFORM>
1358                     <SET TEMP118 0 (TYPE FIX)>
1359                     <SET LN10 AMT24>
1360                     <DEAD AMT24>
1361                     <LOOP (LN10 VALUE) (TEMP118 VALUE)>
1362 TAG128
1363                     <INTGO>
1364                     <EMPL? LN10 + TAG127>
1365                     <NTHL LN10 1 = STACK>
1366                     <RESTL LN10 1 = LN10 (TYPE LIST)>
1367                     <ADD TEMP118 1 = TEMP118 (TYPE FIX)>
1368                     <JUMP + TAG128>
1369 TAG127
1370                     <CALL '\1aFORM TEMP118 = AMT24>
1371                     <DEAD TEMP118>
1372                     <LENL AMT24 = TEMP118 (TYPE FIX)>
1373                     <PUTL AMT24 TEMP118 RV23>
1374                     <DEAD TEMP118>
1375 PHRASE126
1376                     <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE131>
1377                     <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE131>
1378                     <NTHR 'WHO 2 = TEMP118 (RECORD-TYPE ATOM) (TYPE LBIND)>
1379                     <NTHR TEMP118 1 = TEMP118 (RECORD-TYPE LBIND)>
1380                     <EMPL? TEMP118 + PHRASE131 (TYPE LIST)>
1381                     <DEAD TEMP118>
1382                     <NTHR 'WHO 2 = LN10 (RECORD-TYPE ATOM) (TYPE LBIND)>
1383                     <NTHR LN10 1 = TEMP29 (RECORD-TYPE LBIND)>
1384                     <DEAD LN10>
1385                     <SET TEMP115 0 (TYPE FIX)>
1386                     <FRAME '\1aTYPE-MERGE>
1387                     <LOOP>
1388 MAP136
1389                     <INTGO>
1390                     <EMPL? TEMP29 + MAPAP139>
1391                     <NTHL TEMP29 1 = L148>
1392                     <RESTL L148 1 = LN10 (TYPE LIST)>
1393                     <NTHL LN10 1 = TEMP118 (TYPE SYMTAB)>
1394                     <DEAD LN10>
1395                     <NTHUV TEMP118 7 = ND150>
1396                     <FRAME '\1aDECL-DOWN>
1397                     <PUSH ND150>
1398                     <DEAD ND150>
1399                     <SET TEMP152 1 (TYPE FIX)>
1400                     <RESTL L148 1 = TEMP153 (TYPE LIST)>
1401                     <RESTL TEMP153 1 = LN10 (TYPE LIST)>
1402                     <DEAD TEMP153>
1403                     <LOOP (LN10 VALUE) (TEMP152 VALUE)>
1404 TAG154
1405                     <INTGO>
1406                     <EMPL? LN10 + TAG151>
1407                     <NTHL LN10 1 = STACK>
1408                     <RESTL LN10 1 = LN10 (TYPE LIST)>
1409                     <ADD TEMP152 1 = TEMP152 (TYPE FIX)>
1410                     <JUMP + TAG154>
1411 TAG151
1412                     <CALL '\1aDECL-DOWN TEMP152 = ND150>
1413                     <DEAD TEMP152>
1414                     <FRAME '\1aTYPE-AND>
1415                     <PUSH ND150>
1416                     <DEAD ND150>
1417                     <PUSH AMT24>
1418                     <CALL '\1aTYPE-AND 2 = ND150>
1419                     <TYPE? ND150 <TYPE-CODE FALSE> - PHRASE157>
1420                     <FRAME '\1aCOMPILE-ERROR>
1421                     <PUSH "Bad argument to PUT ">
1422                     <PUSH NOD6>
1423                     <CALL '\1aCOMPILE-ERROR 2>
1424 PHRASE157
1425                     <FRAME '\1aTYPE-AND>
1426                     <FRAME '\1aTOP-TYPE>
1427                     <FRAME '\1aDECL-DOWN>
1428                     <FRAME '\1aGET-CURRENT-TYPE>
1429                     <PUSH TEMP118>
1430                     <DEAD TEMP118>
1431                     <CALL '\1aGET-CURRENT-TYPE 1 = STACK>
1432                     <SET LN10 1 (TYPE FIX)>
1433                     <RESTL L148 1 = TEMP153 (TYPE LIST)>
1434                     <DEAD L148>
1435                     <RESTL TEMP153 1 = TEMP152 (TYPE LIST)>
1436                     <DEAD TEMP153>
1437                     <LOOP (TEMP152 VALUE) (LN10 VALUE)>
1438 TAG164
1439                     <INTGO>
1440                     <EMPL? TEMP152 + TAG162>
1441                     <NTHL TEMP152 1 = STACK>
1442                     <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1443                     <ADD LN10 1 = LN10 (TYPE FIX)>
1444                     <JUMP + TAG164>
1445 TAG162
1446                     <CALL '\1aDECL-DOWN LN10 = STACK>
1447                     <DEAD LN10>
1448                     <CALL '\1aTOP-TYPE 1 = STACK>
1449                     <PUSH ND150>
1450                     <DEAD ND150>
1451                     <CALL '\1aTYPE-AND 2 = ND150>
1452                     <PUSH ND150>
1453                     <DEAD ND150>
1454                     <ADD TEMP115 1 = TEMP115 (TYPE FIX)>
1455                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
1456                     <JUMP + MAP136>
1457 MAPAP139
1458                     <CALL '\1aTYPE-MERGE TEMP115 = AMT24>
1459                     <DEAD TEMP115>
1460                     <FRAME '\1aTYPE-AND>
1461                     <PUSH RV23>
1462                     <DEAD RV23>
1463                     <FRAME '\1aGET-ELE-TYPE>
1464                     <PUSH AMT24>
1465                     <PUSH WHICH16>
1466                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
1467                     <CALL '\1aTYPE-AND 2 = RV23>
1468                     <JUMP + PHRASE168>
1469 PHRASE131
1470                     <NTHR 'WHO 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
1471                     <NTHR TEMP115 1 = TEMP29 (RECORD-TYPE LBIND)>
1472                     <DEAD TEMP115>
1473                     <EMPL? TEMP29 + PHRASE168 (TYPE LIST)>
1474                     <DEAD TEMP29>
1475                     <SET RV23 'ANY (TYPE ATOM)>
1476 PHRASE168
1477                     <TYPE? TS11 <TYPE-CODE FALSE> + BOOL171>
1478                     <NTHL K9 1 = TEMP29 (TYPE NODE)>
1479                     <FRAME '\1aTYPE-AND>
1480                     <FRAME '\1aTOP-TYPE>
1481                     <PUSH AMT24>
1482                     <DEAD AMT24>
1483                     <CALL '\1aTOP-TYPE 1 = STACK>
1484                     <PUSH TS11>
1485                     <DEAD TS11>
1486                     <CALL '\1aTYPE-AND 2 = TS11>
1487                     <PUTUV TEMP29 3 TS11>
1488                     <DEAD TEMP29>
1489 BOOL171
1490                     <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE175>
1491                     <FRAME '\1aGET-ELE-TYPE>
1492                     <PUSH TS11>
1493                     <PUSH WHICH16>
1494                     <CALL '\1aGET-ELE-TYPE 2>
1495                     <FRAME '\1aGET-ELE-TYPE>
1496                     <PUSH TS11>
1497                     <DEAD TS11>
1498                     <PUSH WHICH16>
1499                     <PUSH %<>>
1500                     <PUSH RV23>
1501                     <DEAD RV23>
1502                     <CALL '\1aGET-ELE-TYPE 4 = TS11>
1503 PHRASE175
1504                     <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE179>
1505                     <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE179>
1506                     <RESTL K9 1 = TEMP153 (TYPE LIST)>
1507                     <NTHL TEMP153 1 = TEMP153 (TYPE NODE)>
1508                     <NTHUV TEMP153 1 = TEMP153 (TYPE FIX)>
1509                     <VEQUAL? TEMP153 2 - PHRASE179 (TYPE FIX)>
1510                     <DEAD TEMP153>
1511                     <NTHR 'WHO 2 = TEMP153 (RECORD-TYPE ATOM) (TYPE LBIND)>
1512                     <NTHR TEMP153 1 = SVWHO15 (RECORD-TYPE LBIND)>
1513 PHRASE179
1514                     <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE184>
1515                     <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE184>
1516                     <PUSH NOD6>
1517                     <SET TEMP29 1 (TYPE FIX)>
1518                     <NTHUV NOD6 8 = TEMP153>
1519                     <TYPE TEMP153 = LN10>
1520                     <AND LN10 7 = LN10>
1521                     <VEQUAL? LN10 1 + TAG187>
1522                     <DEAD LN10>
1523                     <LOOP (TEMP153 TYPE VALUE LENGTH) (TEMP29 VALUE)>
1524 TAG192
1525                     <INTGO>
1526                     <EMPTY? TEMP153 + TAG191>
1527                     <NTH1 TEMP153 = STACK>
1528                     <REST1 TEMP153 = TEMP153>
1529                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
1530                     <JUMP + TAG192>
1531 TAG191
1532                     <LIST TEMP29 = TEMP115 (TYPE LIST)>
1533                     <DEAD TEMP29>
1534                     <JUMP + TAG188>
1535 TAG187
1536                     <LOOP>
1537 TAG190
1538                     <VEQUAL? TEMP29 0 + TAG189>
1539                     <POP = LN10>
1540                     <CONS LN10 TEMP153 = TEMP153 (TYPE LIST)>
1541                     <DEAD LN10>
1542                     <SUB TEMP29 1 = TEMP29 (TYPE FIX)>
1543                     <JUMP + TAG190>
1544 TAG189
1545                     <SET TEMP115 TEMP153>
1546                     <DEAD TEMP153>
1547 TAG188
1548                     <PUTUV NOD6 8 TEMP115>
1549                     <DEAD TEMP115>
1550 PHRASE184
1551                     <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE194>
1552                     <TYPE? TF8 <TYPE-CODE FALSE> + PHRASE194>
1553                     <FRAME '\1aSTRUCTYP>
1554                     <PUSH TS11>
1555                     <CALL '\1aSTRUCTYP 1 = TPS13>
1556                     <TYPE? TPS13 <TYPE-CODE FALSE> + PHRASE194>
1557                     <FRAME '\1aISTYPE?>
1558                     <PUSH TF8>
1559                     <CALL '\1aISTYPE? 1 = TEMP153>
1560                     <VEQUAL? TEMP153 'FIX + BOOL197>
1561                     <DEAD TEMP153>
1562                     <FRAME '\1aISTYPE?>
1563                     <PUSH TF8>
1564                     <DEAD TF8>
1565                     <CALL '\1aISTYPE? 1 = TEMP153>
1566                     <VEQUAL? TEMP153 'OFFSET - PHRASE194>
1567                     <DEAD TEMP153>
1568 BOOL197
1569                     <PUTUV NOD6 1 29 (TYPE FIX)>
1570                     <NTHL K9 1 = TEMP153 (TYPE NODE)>
1571                     <NTHUV TEMP153 1 = TEMP153 (TYPE FIX)>
1572                     <VEQUAL? TEMP153 2 - PHRASE204 (TYPE FIX)>
1573                     <DEAD TEMP153>
1574                     <GVAL 'INTERPRETER-IMPLEMENTOR? = TEMP153>
1575                     <TYPE? TEMP153 <TYPE-CODE FALSE> - PHRASE204>
1576                     <DEAD TEMP153>
1577                     <FRAME '\1aCOMPILE-ERROR>
1578                     <PUSH "Attempt to PUT in quoted object ">
1579                     <PUSH NOD6>
1580                     <CALL '\1aCOMPILE-ERROR 2>
1581                     <JUMP + PHRASE204>
1582 PHRASE194
1583                     <GEN-LVAL 'VERBOSE = TEMP153>
1584                     <TYPE? TEMP153 <TYPE-CODE FALSE> + PHRASE206>
1585                     <DEAD TEMP153>
1586                     <NTHUV NOD6 9 = TEMP153>
1587                     <GVAL 'PUT = LN10>
1588                     <EQUAL? TEMP153 LN10 - PHRASE206>
1589                     <DEAD TEMP153 LN10>
1590                     <FRAME '\1aADDVMESS>
1591                     <PUSH NOD6>
1592                     <CONS TS11 () = LN10>
1593                     <CONS "Not open compiled because type is: " LN10 = STACK>
1594                     <DEAD LN10>
1595                     <CALL '\1aADDVMESS 2>
1596 PHRASE206
1597                     <PUTUV NOD6 1 58 (TYPE FIX)>
1598                     <PUTUV NOD6 4 'PUT>
1599 PHRASE204
1600                     <FRAME '\1aPUT-FLUSH>
1601                     <SET LN10 TPS13>
1602                     <TYPE? LN10 <TYPE-CODE FALSE> - BOOL212>
1603                     <SET LN10 'ALL (TYPE ATOM)>
1604 BOOL212
1605                     <PUSH LN10>
1606                     <DEAD LN10>
1607                     <CALL '\1aPUT-FLUSH 1>
1608                     <FRAME '\1aTYPE-OK?>
1609                     <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE215>
1610                     <SET LN10 TS11>
1611                     <JUMP + PHRASE216>
1612 PHRASE215
1613                     <SET LN10 'ANY (TYPE ATOM)>
1614 PHRASE216
1615                     <PUSH LN10>
1616                     <DEAD LN10>
1617                     <PUSH RTYP7>
1618                     <DEAD RTYP7>
1619                     <CALL '\1aTYPE-OK? 2 = TEMP29>
1620                     <UNBIND TEMP27>
1621                     <DEAD TEMP27>
1622                     <ADJ -18>
1623                     <NTHUV NOD6 1 = TEMP27 (TYPE FIX)>
1624                     <VEQUAL? TEMP27 29 - MAPAP223 (TYPE FIX)>
1625                     <DEAD TEMP27>
1626                     <SET TEMP27 SVWHO15 (TYPE LIST)>
1627                     <DEAD SVWHO15>
1628                     <LOOP>
1629 MAP220
1630                     <INTGO>
1631                     <EMPL? TEMP27 + MAPAP223>
1632                     <NTHL TEMP27 1 = SVWHO15>
1633                     <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
1634                     <NTHL TEMP152 1 = RV23 (TYPE SYMTAB)>
1635                     <DEAD TEMP152>
1636                     <FRAME '\1aSET-CURRENT-TYPE>
1637                     <PUSH RV23>
1638                     <FRAME '\1aPUT-TYPE-HACK>
1639                     <FRAME '\1aGET-CURRENT-TYPE>
1640                     <PUSH RV23>
1641                     <DEAD RV23>
1642                     <CALL '\1aGET-CURRENT-TYPE 1 = STACK>
1643                     <PUSH TS11>
1644                     <FRAME '\1aLPR>
1645                     <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
1646                     <DEAD SVWHO15>
1647                     <RESTL TEMP152 1 = STACK (TYPE LIST)>
1648                     <DEAD TEMP152>
1649                     <CALL '\1aLPR 1 = STACK>
1650                     <PUSH WHICH16>
1651                     <PUSH 0>
1652                     <CALL '\1aPUT-TYPE-HACK 5 = STACK>
1653                     <CALL '\1aSET-CURRENT-TYPE 2>
1654                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1655                     <JUMP + MAP220>
1656 MAPAP223
1657                     <NTHUV NOD6 1 = TEMP27 (TYPE FIX)>
1658                     <VEQUAL? TEMP27 29 - PHRASE233 (TYPE FIX)>
1659                     <DEAD TEMP27>
1660                     <NTHR 'PUT-SAME-CODE 1 = TEMP27 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE233)>
1661                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE233>
1662                     <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE GBIND)>
1663                     <TYPE? TEMP27 <TYPE-CODE UNBOUND> + PHRASE233>
1664                     <DEAD TEMP27>
1665                     <SET TEMP27 [LIST VECTOR UVECTOR TUPLE STRING BYTES] (TYPE VECTOR)>
1666                     <TYPE? TPS13 <TYPE-CODE ATOM> - PHRASE233>
1667                     <LOOP (TPS13 VALUE) (TEMP27 LENGTH VALUE)>
1668 TAG236
1669                     <NTHUV TEMP27 1 = LN10>
1670                     <VEQUAL? LN10 TPS13 + TAG235>
1671                     <DEAD LN10>
1672                     <RESTUV TEMP27 1 = TEMP27 (TYPE VECTOR)>
1673                     <EMPUV? TEMP27 - TAG236>
1674                     <RETURN TEMP29>
1675                     <DEAD TEMP29>
1676 TAG235
1677                     <SET TEMP27 K9 (TYPE LIST)>
1678                     <EMPL? TEMP27 + PHRASE233>
1679                     <LOOP>
1680 MAP239
1681                     <INTGO>
1682                     <EMPL? TEMP27 + MAPAP242>
1683                     <NTHL TEMP27 1 = LN10>
1684                     <LENUV LN10 = TS11 (TYPE FIX)>
1685                     <LESS? TS11 8 + PHRASE247 (TYPE FIX)>
1686                     <DEAD TS11>
1687                     <NTHUV LN10 8 = TS11>
1688                     <DEAD LN10>
1689                     <TYPE? TS11 <TYPE-CODE FALSE> + PHRASE247>
1690                     <DEAD TS11>
1691                     <RETURN TEMP29>
1692                     <DEAD TEMP29>
1693 PHRASE247
1694                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1695                     <JUMP + MAP239>
1696 MAPAP242
1697                     <RESTL K9 1 = TEMP27 (TYPE LIST)>
1698                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1699                     <NTHL TEMP27 1 = TEMP27 (TYPE NODE)>
1700                     <NTHUV TEMP27 1 = TEMP27 (TYPE FIX)>
1701                     <GVAL 'HACK-NODES = TEMP152>
1702                     <EMPTY? TEMP152 + PHRASE233>
1703                     <LOOP (TEMP27 VALUE) (TEMP152 LENGTH VALUE TYPE)>
1704 TAG252
1705                     <NTH1 TEMP152 = LN10>
1706                     <TYPE? LN10 <TYPE-CODE FIX> - TAG253>
1707                     <VEQUAL? LN10 TEMP27 + TAG251>
1708                     <DEAD LN10>
1709 TAG253
1710                     <REST1 TEMP152 = TEMP152>
1711                     <EMPTY? TEMP152 - TAG252>
1712                     <RETURN TEMP29>
1713                     <DEAD TEMP29>
1714 TAG251
1715                     <FRAME '\1aISTYPE?>
1716                     <RESTL K9 1 = TEMP152 (TYPE LIST)>
1717                     <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1718                     <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
1719                     <NTHUV TEMP152 3 = STACK>
1720                     <DEAD TEMP152>
1721                     <CALL '\1aISTYPE? 1 = TEMP152>
1722                     <VEQUAL? TEMP152 'FIX - PHRASE233>
1723                     <DEAD TEMP152>
1724                     <RESTL K9 1 = TEMP152 (TYPE LIST)>
1725                     <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1726                     <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
1727                     <NTHUV TEMP152 5 = SVWHO15 (TYPE LIST)>
1728                     <DEAD TEMP152>
1729                     <EMPL? SVWHO15 + PHRASE233 (TYPE LIST)>
1730                     <RESTL K9 1 = TEMP152 (TYPE LIST)>
1731                     <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1732                     <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
1733                     <NTHUV TEMP152 9 = TEMP152>
1734                     <GVAL '/ = TEMP27>
1735                     <EQUAL? TEMP152 TEMP27 + PHRASE233>
1736                     <DEAD TEMP152 TEMP27>
1737                     <RESTL K9 1 = TEMP27 (TYPE LIST)>
1738                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1739                     <NTHL TEMP27 1 = TEMP27 (TYPE NODE)>
1740                     <NTHUV TEMP27 9 = TEMP27>
1741                     <GVAL '- = TEMP152>
1742                     <EQUAL? TEMP27 TEMP152 - BOOL256>
1743                     <DEAD TEMP27 TEMP152>
1744                     <EMPL? SVWHO15 + PHRASE233>
1745                     <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
1746                     <EMPL? TEMP152 + PHRASE233>
1747                     <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1748                     <EMPL? TEMP152 - PHRASE233>
1749                     <DEAD TEMP152>
1750                     <RESTL SVWHO15 1 = TEMP152 (TYPE LIST)>
1751                     <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
1752                     <NTHUV TEMP152 4 = TEMP152>
1753                     <EQUAL? TEMP152 1 - PHRASE233>
1754                     <DEAD TEMP152>
1755 BOOL256
1756                     <SET TEMP152 SVWHO15 (TYPE LIST)>
1757                     <LOOP>
1758 MAP259
1759                     <INTGO>
1760                     <EMPL? TEMP152 + PHRASE233>
1761                     <SET L148 TEMP152>
1762                     <NTHL L148 1 = TS11>
1763                     <NTHUV TS11 1 = TPS13 (TYPE FIX)>
1764                     <VEQUAL? TPS13 27 - PHRASE268 (TYPE FIX)>
1765                     <DEAD TPS13>
1766                     <FRAME '\1aSAME-OBJ>
1767                     <NTHL K9 1 = STACK (TYPE NODE)>
1768                     <NTHUV TS11 5 = TPS13 (TYPE LIST)>
1769                     <NTHL TPS13 1 = STACK (TYPE NODE)>
1770                     <DEAD TPS13>
1771                     <CALL '\1aSAME-OBJ 2 = TPS13>
1772                     <TYPE? TPS13 <TYPE-CODE FALSE> + PHRASE268>
1773                     <DEAD TPS13>
1774                     <FRAME '\1aSAME-OBJ>
1775                     <RESTL K9 1 = TPS13 (TYPE LIST)>
1776                     <NTHL TPS13 1 = STACK (TYPE NODE)>
1777                     <DEAD TPS13>
1778                     <NTHUV TS11 5 = TPS13 (TYPE LIST)>
1779                     <RESTL TPS13 1 = TPS13 (TYPE LIST)>
1780                     <NTHL TPS13 1 = STACK (TYPE NODE)>
1781                     <DEAD TPS13>
1782                     <CALL '\1aSAME-OBJ 2 = TPS13>
1783                     <TYPE? TPS13 <TYPE-CODE FALSE> + PHRASE268>
1784                     <DEAD TPS13>
1785                     <EMPL? P20 + MAPAP262 (TYPE LIST)>
1786                     <RESTL L148 1 = TPS13 (TYPE LIST)>
1787                     <DEAD L148>
1788                     <PUTREST P20 TPS13>
1789                     <DEAD P20 TPS13>
1790                     <CONS TS11 SVWHO15 = SVWHO15>
1791                     <DEAD TS11>
1792                     <JUMP + MAPAP262>
1793 PHRASE268
1794                     <SET P20 L148>
1795                     <DEAD L148>
1796                     <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1797                     <JUMP + MAP259>
1798 MAPAP262
1799                     <RESTL K9 1 = TEMP152 (TYPE LIST)>
1800                     <DEAD K9>
1801                     <RESTL TEMP152 1 = TEMP152 (TYPE LIST)>
1802                     <NTHL TEMP152 1 = TEMP152 (TYPE NODE)>
1803                     <PUTUV TEMP152 5 SVWHO15 (TYPE LIST)>
1804                     <DEAD TEMP152 SVWHO15>
1805                     <PUTUV NOD6 1 85 (TYPE FIX)>
1806                     <DEAD NOD6>
1807 PHRASE233
1808                     <RETURN TEMP29>
1809                     <DEAD TEMP29>
1810                     <END \1aPUT-ANA>
1811
1812 #WORD *26332460573*
1813 <GFCN \1aPUT-TYPE-HACK ("VALUE" ANY ANY ANY <LIST [REST FIX ATOM]> ANY ANY) TY4 TS5 L6 WHICH7 EX8>
1814                     <TEMP TEMP11>
1815                     <INTGO>
1816                     <EMPL? L6 - PHRASE10 (TYPE LIST)>
1817                     <RETURN TS5>
1818                     <DEAD TS5>
1819 PHRASE10
1820                     <RESTL L6 1 = TEMP11 (TYPE LIST)>
1821                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1822                     <EMPL? TEMP11 - PHRASE12 (TYPE LIST)>
1823                     <DEAD TEMP11>
1824                     <RESTL L6 1 = TEMP11 (TYPE LIST)>
1825                     <NTHL TEMP11 1 = TEMP11 (TYPE ATOM)>
1826                     <VEQUAL? TEMP11 'REST - PHRASE12>
1827                     <DEAD TEMP11>
1828                     <FRAME '\1aGET-ELE-TYPE>
1829                     <PUSH TY4>
1830                     <DEAD TY4>
1831                     <FRAME '\1a+>
1832                     <NTHL L6 1 = STACK (TYPE FIX)>
1833                     <PUSH WHICH7>
1834                     <CALL '\1a+ 2 = STACK>
1835                     <PUSH %<>>
1836                     <FRAME '\1aPUT-TYPE-HACK>
1837                     <FRAME '\1aGET-ELE-TYPE>
1838                     <PUSH TS5>
1839                     <PUSH WHICH7>
1840                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
1841                     <PUSH TS5>
1842                     <DEAD TS5>
1843                     <RESTL L6 1 = TEMP11 (TYPE LIST)>
1844                     <DEAD L6>
1845                     <RESTL TEMP11 1 = STACK (TYPE LIST)>
1846                     <DEAD TEMP11>
1847                     <PUSH WHICH7>
1848                     <DEAD WHICH7>
1849                     <PUSH 0>
1850                     <CALL '\1aPUT-TYPE-HACK 5 = STACK>
1851                     <CALL '\1aGET-ELE-TYPE 4 = TEMP11>
1852                     <RETURN TEMP11>
1853                     <DEAD TEMP11>
1854 PHRASE12
1855                     <RESTL L6 1 = TEMP11 (TYPE LIST)>
1856                     <NTHL TEMP11 1 = TEMP11 (TYPE ATOM)>
1857                     <VEQUAL? TEMP11 'REST - PHRASE20>
1858                     <DEAD TEMP11>
1859                     <FRAME '\1aPUT-TYPE-HACK>
1860                     <PUSH TY4>
1861                     <DEAD TY4>
1862                     <PUSH TS5>
1863                     <DEAD TS5>
1864                     <RESTL L6 1 = TEMP11 (TYPE LIST)>
1865                     <RESTL TEMP11 1 = STACK (TYPE LIST)>
1866                     <DEAD TEMP11>
1867                     <PUSH WHICH7>
1868                     <DEAD WHICH7>
1869                     <NTHL L6 1 = STACK (TYPE FIX)>
1870                     <DEAD L6>
1871                     <CALL '\1aPUT-TYPE-HACK 5 = TEMP11>
1872                     <RETURN TEMP11>
1873                     <DEAD TEMP11>
1874 PHRASE20
1875                     <FRAME '\1aGET-ELE-TYPE>
1876                     <PUSH TY4>
1877                     <FRAME '\1a+>
1878                     <NTHL L6 1 = STACK (TYPE FIX)>
1879                     <PUSH EX8>
1880                     <CALL '\1a+ 2 = STACK>
1881                     <PUSH %<>>
1882                     <FRAME '\1aPUT-TYPE-HACK>
1883                     <FRAME '\1aGET-ELE-TYPE>
1884                     <PUSH TY4>
1885                     <DEAD TY4>
1886                     <FRAME '\1a+>
1887                     <NTHL L6 1 = STACK (TYPE FIX)>
1888                     <PUSH EX8>
1889                     <DEAD EX8>
1890                     <CALL '\1a+ 2 = STACK>
1891                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
1892                     <PUSH TS5>
1893                     <DEAD TS5>
1894                     <RESTL L6 1 = TEMP11 (TYPE LIST)>
1895                     <DEAD L6>
1896                     <RESTL TEMP11 1 = STACK (TYPE LIST)>
1897                     <DEAD TEMP11>
1898                     <PUSH WHICH7>
1899                     <DEAD WHICH7>
1900                     <PUSH 0>
1901                     <CALL '\1aPUT-TYPE-HACK 5 = STACK>
1902                     <CALL '\1aGET-ELE-TYPE 4 = TEMP11>
1903                     <RETURN TEMP11>
1904                     <DEAD TEMP11>
1905                     <END \1aPUT-TYPE-HACK>
1906 #WORD *22172647154*
1907 <GFCN \1aLPR ("VALUE" LIST LIST) L4>
1908                     <TEMP TEMP7 TEMP9 TEMP13 TEMP14 TEMP15>
1909                     <INTGO>
1910                     <EMPL? L4 - PHRASE6 (TYPE LIST)>
1911                     <RETURN L4>
1912                     <DEAD L4>
1913 PHRASE6
1914                     <NTHL L4 1 = TEMP9>
1915                     <CONS TEMP9 () = TEMP7>
1916                     <DEAD TEMP9>
1917                     <FRAME '\1aLPR>
1918                     <RESTL L4 1 = STACK (TYPE LIST)>
1919                     <DEAD L4>
1920                     <CALL '\1aLPR 1 = TEMP9>
1921                     <SET TEMP13 TEMP7>
1922                     <EMPL? TEMP9 + TAG11>
1923                     <NTHL TEMP9 1 = TEMP14>
1924                     <CONS TEMP14 TEMP7 = TEMP14>
1925                     <SET TEMP13 TEMP14>
1926                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1927                     <EMPL? TEMP9 + TAG11>
1928                     <LOOP (TEMP9 VALUE) (TEMP14 VALUE) (TEMP7 VALUE)>
1929 TAG10
1930                     <NTHL TEMP9 1 = TEMP15>
1931                     <CONS TEMP15 TEMP7 = TEMP15>
1932                     <PUTREST TEMP14 TEMP15>
1933                     <DEAD TEMP14>
1934                     <SET TEMP14 TEMP15>
1935                     <DEAD TEMP15>
1936                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1937                     <EMPL? TEMP9 - TAG10>
1938 TAG11
1939                     <RETURN TEMP13>
1940                     <DEAD TEMP13>
1941                     <END \1aLPR>
1942 <SETG HACK-NODES [,ABS-CODE ,ARITH-CODE]>
1943
1944 <COND (<GASSIGNED? PUT-ANA> <PUTPROP ,PUT ANALYSIS ,PUT-ANA>)>
1945
1946 #WORD *16535270617*
1947 <GFCN \1aSAME-OBJ ("VALUE" ANY NODE NODE) N14 N25>
1948                     <TEMP TEMP9 TEMP10 TEMP17 N433:NODE>
1949                     <INTGO>
1950                     <NTHUV N14 1 = TEMP9 (TYPE FIX)>
1951                     <NTHUV N25 1 = TEMP10 (TYPE FIX)>
1952                     <VEQUAL? TEMP9 TEMP10 + TAG11 (TYPE FIX)>
1953                     <DEAD TEMP9 TEMP10>
1954                     <RETURN %<>>
1955 TAG11
1956                     <NTHUV N14 1 = TEMP9 (TYPE FIX)>
1957                     <GVAL 'SNODES = TEMP10>
1958                     <EMPUU? TEMP10 + PHRASE13>
1959                     <LOOP (TEMP9 VALUE) (TEMP10 LENGTH VALUE)>
1960 TAG15
1961                     <NTHUU TEMP10 1 = TEMP17>
1962                     <VEQUAL? TEMP17 TEMP9 + TAG14>
1963                     <DEAD TEMP17>
1964                     <RESTUU TEMP10 1 = TEMP10 (TYPE UVECTOR)>
1965                     <EMPUU? TEMP10 - TAG15>
1966                     <JUMP + PHRASE13>
1967 TAG14
1968                     <NTHUV N14 4 = TEMP10>
1969                     <DEAD N14>
1970                     <NTHUV N25 4 = TEMP9>
1971                     <DEAD N25>
1972                     <EQUAL? TEMP10 TEMP9 - TAG18>
1973                     <DEAD TEMP10 TEMP9>
1974                     <RETURN 'T>
1975 TAG18
1976                     <RETURN %<>>
1977 PHRASE13
1978                     <SET TEMP9 %<> (TYPE FALSE)>
1979                     <NTHUV N14 5 = TEMP10 (TYPE LIST)>
1980                     <DEAD N14>
1981                     <NTHUV N25 5 = TEMP17 (TYPE LIST)>
1982                     <DEAD N25>
1983                     <LOOP>
1984 MAP22
1985                     <INTGO>
1986                     <EMPL? TEMP10 + MAPAP25>
1987                     <EMPL? TEMP17 + MAPAP25>
1988                     <NTHL TEMP10 1 = TEMP9>
1989                     <NTHL TEMP17 1 = N433>
1990                     <FRAME '\1aSAME-OBJ>
1991                     <PUSH TEMP9>
1992                     <DEAD TEMP9>
1993                     <PUSH N433>
1994                     <DEAD N433>
1995                     <CALL '\1aSAME-OBJ 2 = TEMP9>
1996                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE36>
1997                     <RETURN %<>>
1998 PHRASE36
1999                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
2000                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
2001                     <JUMP + MAP22>
2002 MAPAP25
2003                     <RETURN TEMP9>
2004                     <DEAD TEMP9>
2005                     <END \1aSAME-OBJ>
2006 #WORD *26530024774*
2007 <GFCN \1aDECL-DOWN ("VALUE" ANY "TUPLE" TUPLE)>
2008                     <MAKTUP TUP4:TUPLE ND5 TEMP7 = TUP4>
2009                     <INTGO>
2010                     <NTHUV TUP4 1 = ND5>
2011                     <LENUV TUP4 = TEMP7 (TYPE FIX)>
2012                     <SUB TEMP7 1 = TEMP7 (TYPE FIX)>
2013                     <LOOP>
2014 AGAIN10
2015                     <INTGO>
2016                     <LESS? TEMP7 2 - PHRASE12 (TYPE FIX)>
2017                     <RETURN ND5>
2018                     <DEAD ND5>
2019 PHRASE12
2020                     <FRAME '\1aGET-ELE-TYPE>
2021                     <PUSH ND5>
2022                     <DEAD ND5>
2023                     <ADD TEMP7 1 = ND5 (TYPE FIX)>
2024                     <NTHUV TUP4 ND5 = STACK>
2025                     <DEAD ND5>
2026                     <NTHUV TUP4 TEMP7 = ND5>
2027                     <EQUAL? ND5 'REST - TAG16>
2028                     <DEAD ND5>
2029                     <PUSH 'T>
2030                     <JUMP + TAG17>
2031 TAG16
2032                     <PUSH %<>>
2033 TAG17
2034                     <CALL '\1aGET-ELE-TYPE 3 = ND5>
2035                     <SUB TEMP7 2 = TEMP7 (TYPE FIX)>
2036                     <JUMP + AGAIN10>
2037                     <END \1aDECL-DOWN>
2038 #WORD *4136747447*
2039 <GFCN \1aDECL-UP ("VALUE" ANY ANY LIST) NX4 L5>
2040                     <TEMP FIRST9 NUM10:FIX TEMP16 TEMP18>
2041                     <INTGO>
2042                     <SET FIRST9 'T (TYPE ATOM)>
2043                     <SET NUM10 0 (TYPE FIX)>
2044                     <LOOP>
2045 AGAIN11
2046                     <INTGO>
2047                     <EMPL? L5 - PHRASE13 (TYPE LIST)>
2048                     <RETURN NX4>
2049                     <DEAD NX4>
2050 PHRASE13
2051                     <NTHL L5 1 = TEMP16>
2052                     <EQUAL? TEMP16 'NTH - PHRASE15>
2053                     <DEAD TEMP16>
2054                     <FRAME '\1aFORM>
2055                     <PUSH 'STRUCTURED>
2056                     <SET TEMP18 2 (TYPE FIX)>
2057                     <RESTL L5 1 = FIRST9 (TYPE LIST)>
2058                     <NTHL FIRST9 1 = FIRST9 (TYPE FIX)>
2059                     <ADD FIRST9 NUM10 = FIRST9 (TYPE FIX)>
2060                     <DEAD NUM10>
2061                     <ADD FIRST9 -1 = NUM10 (TYPE FIX)>
2062                     <DEAD FIRST9>
2063                     <VEQUAL? NUM10 0 - PHRASE20 (TYPE FIX)>
2064                     <SET TEMP16 () (TYPE LIST)>
2065                     <JUMP + PHRASE27>
2066 PHRASE20
2067                     <VEQUAL? NUM10 1 - PHRASE24 (TYPE FIX)>
2068                     <CONS 'ANY () = TEMP16>
2069                     <JUMP + PHRASE27>
2070 PHRASE24
2071                     <PUSH NUM10>
2072                     <DEAD NUM10>
2073                     <PUSH 'ANY>
2074                     <UBLOCK <TYPE-CODE VECTOR> 2 = FIRST9>
2075                     <CONS FIRST9 () = TEMP16>
2076                     <DEAD FIRST9>
2077 PHRASE27
2078                     <LOOP (TEMP16 VALUE) (TEMP18 VALUE)>
2079 TAG29
2080                     <INTGO>
2081                     <EMPL? TEMP16 + TAG17>
2082                     <NTHL TEMP16 1 = STACK>
2083                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2084                     <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
2085                     <JUMP + TAG29>
2086 TAG17
2087                     <PUSH NX4>
2088                     <DEAD NX4>
2089                     <CALL '\1aFORM TEMP18 = NX4>
2090                     <DEAD TEMP18>
2091                     <SET NUM10 0 (TYPE FIX)>
2092                     <SET FIRST9 %<> (TYPE FALSE)>
2093                     <JUMP + PHRASE33>
2094 PHRASE15
2095                     <VEQUAL? FIRST9 0 + PHRASE31>
2096                     <FRAME '\1aREST-DECL>
2097                     <PUSH NX4>
2098                     <DEAD NX4>
2099                     <RESTL L5 1 = TEMP18 (TYPE LIST)>
2100                     <NTHL TEMP18 1 = STACK (TYPE FIX)>
2101                     <DEAD TEMP18>
2102                     <CALL '\1aREST-DECL 2 = NX4>
2103                     <JUMP + PHRASE33>
2104 PHRASE31
2105                     <RESTL L5 1 = TEMP18 (TYPE LIST)>
2106                     <NTHL TEMP18 1 = TEMP18 (TYPE FIX)>
2107                     <ADD TEMP18 NUM10 = NUM10 (TYPE FIX)>
2108                     <DEAD TEMP18>
2109 PHRASE33
2110                     <RESTL L5 1 = L5 (TYPE LIST)>
2111                     <RESTL L5 1 = L5 (TYPE LIST)>
2112                     <JUMP + AGAIN11>
2113                     <END \1aDECL-UP>
2114 #WORD *17554644444*
2115 <GFCN \1aPUTREST-ANA ("VALUE" ANY NODE ANY) NOD4 RTYP5>
2116                     <TEMP K6 TEMP11 TEMP12 T17>
2117                     <INTGO>
2118                     <NTHUV NOD4 5 = K6 (TYPE LIST)>
2119                     <NTHUV NOD4 9 = TEMP11>
2120                     <GVAL 'REST = TEMP12>
2121                     <EQUAL? TEMP11 TEMP12 - PHRASE10>
2122                     <DEAD TEMP11 TEMP12>
2123                     <FRAME '\1aREST-ANA>
2124                     <PUSH NOD4>
2125                     <DEAD NOD4>
2126                     <PUSH RTYP5>
2127                     <DEAD RTYP5>
2128                     <CALL '\1aREST-ANA 2 = TEMP12>
2129                     <RETURN TEMP12>
2130                     <DEAD TEMP12>
2131 PHRASE10
2132                     <FRAME '\1aSEGFLUSH>
2133                     <PUSH NOD4>
2134                     <PUSH RTYP5>
2135                     <CALL '\1aSEGFLUSH 2 = TEMP11>
2136                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE14>
2137                     <DEAD TEMP11>
2138                     <PUSH NOD4>
2139                     <SET K6 1 (TYPE FIX)>
2140                     <NTHUV NOD4 8 = TEMP11>
2141                     <TYPE TEMP11 = TEMP12>
2142                     <AND TEMP12 7 = TEMP12>
2143                     <VEQUAL? TEMP12 1 + TAG19>
2144                     <DEAD TEMP12>
2145                     <LOOP (TEMP11 TYPE VALUE LENGTH) (K6 VALUE)>
2146 TAG25
2147                     <INTGO>
2148                     <EMPTY? TEMP11 + TAG24>
2149                     <NTH1 TEMP11 = STACK>
2150                     <REST1 TEMP11 = TEMP11>
2151                     <ADD K6 1 = K6 (TYPE FIX)>
2152                     <JUMP + TAG25>
2153 TAG24
2154                     <LIST K6 = TEMP11 (TYPE LIST)>
2155                     <DEAD K6>
2156                     <JUMP + TAG21>
2157 TAG19
2158                     <LOOP>
2159 TAG22
2160                     <VEQUAL? K6 0 + TAG21>
2161                     <POP = TEMP12>
2162                     <CONS TEMP12 TEMP11 = TEMP11 (TYPE LIST)>
2163                     <DEAD TEMP12>
2164                     <SUB K6 1 = K6 (TYPE FIX)>
2165                     <JUMP + TAG22>
2166 TAG21
2167                     <PUTUV NOD4 8 TEMP11>
2168                     <DEAD NOD4 TEMP11>
2169                     <FRAME '\1aTYPE-OK?>
2170                     <PUSH <PRIMTYPE LIST>>
2171                     <PUSH RTYP5>
2172                     <DEAD RTYP5>
2173                     <CALL '\1aTYPE-OK? 2 = TEMP12>
2174                     <RETURN TEMP12>
2175                     <DEAD TEMP12>
2176 PHRASE14
2177                     <FRAME '\1aARGCHK>
2178                     <LENL K6 = STACK (TYPE FIX)>
2179                     <PUSH 2>
2180                     <PUSH 'PUTREST>
2181                     <PUSH NOD4>
2182                     <CALL '\1aARGCHK 4>
2183                     <FRAME '\1aEANA>
2184                     <NTHL K6 1 = STACK (TYPE NODE)>
2185                     <PUSH <PRIMTYPE LIST>>
2186                     <PUSH 'PUTREST>
2187                     <CALL '\1aEANA 3 = T17>
2188                     <FRAME '\1aEANA>
2189                     <RESTL K6 1 = TEMP11 (TYPE LIST)>
2190                     <NTHL TEMP11 1 = STACK (TYPE NODE)>
2191                     <DEAD TEMP11>
2192                     <PUSH <PRIMTYPE LIST>>
2193                     <PUSH 'PUTREST>
2194                     <CALL '\1aEANA 3>
2195                     <NTHL K6 1 = TEMP11 (TYPE NODE)>
2196                     <DEAD K6>
2197                     <NTHUV TEMP11 1 = TEMP11 (TYPE FIX)>
2198                     <VEQUAL? TEMP11 2 - PHRASE32 (TYPE FIX)>
2199                     <DEAD TEMP11>
2200                     <FRAME '\1aCOMPILE-ERROR>
2201                     <PUSH "Attempt to PUTREST in quoted object ">
2202                     <PUSH NOD4>
2203                     <CALL '\1aCOMPILE-ERROR 2>
2204 PHRASE32
2205                     <PUTUV NOD4 1 30 (TYPE FIX)>
2206                     <PUSH NOD4>
2207                     <SET TEMP12 1 (TYPE FIX)>
2208                     <NTHUV NOD4 8 = TEMP11>
2209                     <TYPE TEMP11 = K6>
2210                     <AND K6 7 = K6>
2211                     <VEQUAL? K6 1 + TAG36>
2212                     <DEAD K6>
2213                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
2214 TAG42
2215                     <INTGO>
2216                     <EMPTY? TEMP11 + TAG41>
2217                     <NTH1 TEMP11 = STACK>
2218                     <REST1 TEMP11 = TEMP11>
2219                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
2220                     <JUMP + TAG42>
2221 TAG41
2222                     <LIST TEMP12 = TEMP11 (TYPE LIST)>
2223                     <DEAD TEMP12>
2224                     <JUMP + TAG38>
2225 TAG36
2226                     <LOOP>
2227 TAG39
2228                     <VEQUAL? TEMP12 0 + TAG38>
2229                     <POP = K6>
2230                     <CONS K6 TEMP11 = TEMP11 (TYPE LIST)>
2231                     <DEAD K6>
2232                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
2233                     <JUMP + TAG39>
2234 TAG38
2235                     <PUTUV NOD4 8 TEMP11>
2236                     <DEAD NOD4 TEMP11>
2237                     <FRAME '\1aTYPE-OK?>
2238                     <PUSH T17>
2239                     <DEAD T17>
2240                     <PUSH RTYP5>
2241                     <DEAD RTYP5>
2242                     <CALL '\1aTYPE-OK? 2 = TEMP12>
2243                     <RETURN TEMP12>
2244                     <DEAD TEMP12>
2245                     <END \1aPUTREST-ANA>
2246 <COND (<GASSIGNED? PUTREST-ANA> <PUTPROP ,PUTREST ANALYSIS ,PUTREST-ANA>)>
2247
2248 #WORD *30233541320*
2249 <GFCN \1aMEMQ-ANA ("VALUE" ANY NODE ANY) N4 R5>
2250                     <TEMP K6 TEMP12 TYP7 STYP9>
2251                     <INTGO>
2252                     <NTHUV N4 5 = K6 (TYPE LIST)>
2253                     <FRAME '\1aSEGFLUSH>
2254                     <PUSH N4>
2255                     <PUSH R5>
2256                     <CALL '\1aSEGFLUSH 2 = TEMP12>
2257                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
2258                     <FRAME '\1aARGCHK>
2259                     <LENL K6 = STACK (TYPE FIX)>
2260                     <PUSH 2>
2261                     <PUSH 'MEMQ>
2262                     <PUSH N4>
2263                     <CALL '\1aARGCHK 4>
2264                     <FRAME '\1aEANA>
2265                     <NTHL K6 1 = STACK (TYPE NODE)>
2266                     <PUSH 'ANY>
2267                     <PUSH 'MEMQ>
2268                     <CALL '\1aEANA 3 = TEMP12>
2269                     <FRAME '\1aEANA>
2270                     <RESTL K6 1 = K6 (TYPE LIST)>
2271                     <NTHL K6 1 = STACK (TYPE NODE)>
2272                     <DEAD K6>
2273                     <PUSH 'STRUCTURED>
2274                     <PUSH 'MEMQ>
2275                     <CALL '\1aEANA 3 = TYP7>
2276                     <FRAME '\1aTYPE-OK?>
2277                     <PUSH TEMP12>
2278                     <DEAD TEMP12>
2279                     <FRAME '\1aGET-ELE-TYPE>
2280                     <PUSH TYP7>
2281                     <PUSH 'ALL>
2282                     <CALL '\1aGET-ELE-TYPE 2 = TEMP12>
2283                     <PUSH TEMP12>
2284                     <CALL '\1aTYPE-OK? 2 = K6>
2285                     <TYPE? K6 <TYPE-CODE FALSE> - PHRASE20>
2286                     <DEAD K6>
2287                     <FRAME '\1aCOMPILE-WARNING>
2288                     <PUSH "MEMQ never true ">
2289                     <PUSH N4>
2290                     <CALL '\1aCOMPILE-WARNING 2>
2291 PHRASE20
2292                     <FRAME '\1aSTRUCTYP>
2293                     <PUSH TYP7>
2294                     <CALL '\1aSTRUCTYP 1 = STYP9>
2295                     <TYPE? STYP9 <TYPE-CODE FALSE> + PHRASE25>
2296                     <EQUAL? STYP9 'TEMPLATE + PHRASE25>
2297                     <PUTUV N4 1 73 (TYPE FIX)>
2298                     <DEAD N4>
2299                     <JUMP + PHRASE28>
2300 PHRASE25
2301                     <GEN-LVAL 'VERBOSE = K6>
2302                     <TYPE? K6 <TYPE-CODE FALSE> + PHRASE30>
2303                     <DEAD K6>
2304                     <FRAME '\1aADDVMESS>
2305                     <PUSH N4>
2306                     <CONS TYP7 () = K6>
2307                     <DEAD TYP7>
2308                     <CONS "Not efficiently  open compiled because type is:  " K6 = STACK>
2309                     <DEAD K6>
2310                     <CALL '\1aADDVMESS 2>
2311 PHRASE30
2312                     <PUTUV N4 1 73 (TYPE FIX)>
2313                     <DEAD N4>
2314 PHRASE28
2315                     <FRAME '\1aTYPE-OK?>
2316                     <FRAME '\1aTYPE-MERGE>
2317                     <PUSH 'BOOL-FALSE>
2318                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE37>
2319                     <EQUAL? TEMP12 'ANY + PHRASE37>
2320                     <FRAME '\1aFORM>
2321                     <SET K6 STYP9>
2322                     <DEAD STYP9>
2323                     <TYPE? K6 <TYPE-CODE FALSE> - COND40>
2324                     <SET K6 'STRUCTURED (TYPE ATOM)>
2325 COND40
2326                     <PUSH K6>
2327                     <DEAD K6>
2328                     <PUSH TEMP12>
2329                     <PUSH 'REST>
2330                     <PUSH TEMP12>
2331                     <DEAD TEMP12>
2332                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
2333                     <CALL '\1aFORM 3 = K6>
2334                     <JUMP + COND36>
2335 PHRASE37
2336                     <TYPE? STYP9 <TYPE-CODE FALSE> + PHRASE42>
2337                     <FRAME '\1aFORM>
2338                     <PUSH STYP9>
2339                     <DEAD STYP9>
2340                     <PUSH 'ANY>
2341                     <CALL '\1aFORM 2 = K6>
2342                     <JUMP + COND36>
2343 PHRASE42
2344                     <SET K6 <STRUCTURED ANY> (TYPE FORM)>
2345 COND36
2346                     <PUSH K6>
2347                     <DEAD K6>
2348                     <CALL '\1aTYPE-MERGE 2 = STACK>
2349                     <PUSH R5>
2350                     <DEAD R5>
2351                     <CALL '\1aTYPE-OK? 2 = TEMP12>
2352 PHRASE14
2353                     <RETURN TEMP12>
2354                     <DEAD TEMP12>
2355                     <END \1aMEMQ-ANA>
2356 #WORD *32440360540*
2357 <GFCN \1aTOP-ANA ("VALUE" ANY NODE ANY) N4 R5>
2358                     <TEMP K6:LIST TEMP8>
2359                     <INTGO>
2360                     <NTHUV N4 5 = K6 (TYPE LIST)>
2361                     <FRAME '\1aSEGFLUSH>
2362                     <PUSH N4>
2363                     <PUSH R5>
2364                     <CALL '\1aSEGFLUSH 2 = TEMP8>
2365                     <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE10>
2366                     <FRAME '\1aARGCHK>
2367                     <LENL K6 = STACK (TYPE FIX)>
2368                     <PUSH 1>
2369                     <PUSH 'TOP>
2370                     <PUSH N4>
2371                     <CALL '\1aARGCHK 4>
2372                     <FRAME '\1aEANA>
2373                     <NTHL K6 1 = STACK (TYPE NODE)>
2374                     <DEAD K6>
2375                     <PUSH 'STRUCTURED>
2376                     <PUSH 'TOP>
2377                     <CALL '\1aEANA 3 = TEMP8>
2378                     <GEN-SET 'TYP TEMP8>
2379                     <DEAD TEMP8>
2380                     <FRAME '\1aSTRUCTYP>
2381                     <GEN-LVAL 'TYP = STACK>
2382                     <CALL '\1aSTRUCTYP 1 = TEMP8>
2383                     <GEN-SET 'TYP TEMP8>
2384                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE17>
2385                     <DEAD TEMP8>
2386                     <GEN-LVAL 'TYP = TEMP8>
2387                     <EQUAL? TEMP8 'LIST - PHRASE17>
2388                     <DEAD TEMP8>
2389                     <FRAME '\1aCOMPIL-ERROR>
2390                     <PUSH "Cant TOP a list: ">
2391                     <PUSH N4>
2392                     <CALL '\1aCOMPIL-ERROR 2>
2393 PHRASE17
2394                     <PUTUV N4 1 83 (TYPE FIX)>
2395                     <DEAD N4>
2396                     <FRAME '\1aTYPE-OK?>
2397                     <GEN-LVAL 'TYP = TEMP8>
2398                     <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE32>
2399                     <SET TEMP8 'STRUCTURED (TYPE ATOM)>
2400 PHRASE32
2401                     <PUSH TEMP8>
2402                     <DEAD TEMP8>
2403                     <PUSH R5>
2404                     <DEAD R5>
2405                     <CALL '\1aTYPE-OK? 2 = TEMP8>
2406 PHRASE10
2407                     <RETURN TEMP8>
2408                     <DEAD TEMP8>
2409                     <END \1aTOP-ANA>\r\r
2410 #WORD *556012733*
2411 <GFCN \1aBACK-ANA ("VALUE" ANY NODE ANY) N4 R5>
2412                     <TEMP K6:LIST TEMP8>
2413                     <INTGO>
2414                     <NTHUV N4 5 = K6 (TYPE LIST)>
2415                     <FRAME '\1aSEGFLUSH>
2416                     <PUSH N4>
2417                     <PUSH R5>
2418                     <CALL '\1aSEGFLUSH 2 = TEMP8>
2419                     <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE10>
2420                     <FRAME '\1aARGCHK>
2421                     <LENL K6 = STACK (TYPE FIX)>
2422                     <PUSH (1 2)>
2423                     <PUSH 'BACK>
2424                     <PUSH N4>
2425                     <CALL '\1aARGCHK 4>
2426                     <FRAME '\1aEANA>
2427                     <NTHL K6 1 = STACK (TYPE NODE)>
2428                     <PUSH 'STRUCTURED>
2429                     <PUSH 'TOP>
2430                     <CALL '\1aEANA 3 = TEMP8>
2431                     <GEN-SET 'TYP TEMP8>
2432                     <DEAD TEMP8>
2433                     <FRAME '\1aSTRUCTYP>
2434                     <GEN-LVAL 'TYP = STACK>
2435                     <CALL '\1aSTRUCTYP 1 = TEMP8>
2436                     <GEN-SET 'TYP TEMP8>
2437                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE17>
2438                     <DEAD TEMP8>
2439                     <GEN-LVAL 'TYP = TEMP8>
2440                     <EQUAL? TEMP8 'LIST - PHRASE17>
2441                     <DEAD TEMP8>
2442                     <FRAME '\1aCOMPIL-ERROR>
2443                     <PUSH "Cant BACK a list: ">
2444                     <PUSH N4>
2445                     <CALL '\1aCOMPIL-ERROR 2>
2446 PHRASE17
2447                     <RESTL K6 1 = TEMP8 (TYPE LIST)>
2448                     <EMPL? TEMP8 + PHRASE29 (TYPE LIST)>
2449                     <DEAD TEMP8>
2450                     <FRAME '\1aEANA>
2451                     <RESTL K6 1 = TEMP8 (TYPE LIST)>
2452                     <DEAD K6>
2453                     <NTHL TEMP8 1 = STACK (TYPE NODE)>
2454                     <DEAD TEMP8>
2455                     <PUSH 'FIX>
2456                     <PUSH 'BACK>
2457                     <CALL '\1aEANA 3>
2458 PHRASE29
2459                     <PUTUV N4 1 82 (TYPE FIX)>
2460                     <DEAD N4>
2461                     <FRAME '\1aTYPE-OK?>
2462                     <GEN-LVAL 'TYP = TEMP8>
2463                     <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE35>
2464                     <SET TEMP8 'STRUCTURED (TYPE ATOM)>
2465 PHRASE35
2466                     <PUSH TEMP8>
2467                     <DEAD TEMP8>
2468                     <PUSH R5>
2469                     <DEAD R5>
2470                     <CALL '\1aTYPE-OK? 2 = TEMP8>
2471 PHRASE10
2472                     <RETURN TEMP8>
2473                     <DEAD TEMP8>
2474                     <END \1aBACK-ANA>
2475 <COND (<GASSIGNED? BACK-ANA> <PUTPROP ,BACK ANALYSIS ,BACK-ANA>)>
2476
2477 <COND (<GASSIGNED? TOP-ANA> <PUTPROP ,TOP ANALYSIS ,TOP-ANA>)>
2478
2479 <COND (<GASSIGNED? MEMQ-ANA> <PUTPROP ,MEMQ ANALYSIS ,MEMQ-ANA>)>
2480
2481 <ENDPACKAGE>