mim/development/mim/mimc/chkdcl.mima

   1
   2 <PACKAGE "CHKDCL">
   3
   4 <ENTRY MTYPR TYPE-AND TYPE-OK? TASTEFUL-DECL GET-ELE-TYPE STRUCTYP STRUCTYP-SEG TYPE-ATOM-OK? ISTYPE-GOOD? TYPE-MERGE DEFERN TOP-TYPE ISTYPE? TYPESAME ANY-PAT STRUC GETBSYZ GEN-DECL REST-DECL MINL GET-RANGE PRIMITIVE-TYPE INTERPRETER-IMPLEMENTOR? DECL-GET BOOLEAN BOOL-TRUE BOOL-FALSE MAXL>
   5
   6 <PUT-DECL BOOLEAN '<OR ATOM !<FALSE>>>
   7
   8 <PUT-DECL BOOL-TRUE ATOM>
   9
  10 <PUT-DECL BOOL-FALSE '!<FALSE>>
  11
  12 <USE "COMPDEC" "ADVMESS">
  13
  14 <SETG INTERPRETER-IMPLEMENTOR? T>
  15
  16 <SETG DECL-RESTED 1>
  17
  18 <SETG DECL-ELEMENT 2>
  19
  20 <SETG DECL-ITEM-COUNT 3>
  21
  22 <SETG DECL-IN-REST 4>
  23
  24 <SETG DECL-IN-COUNT-VEC 5>
  25
  26 <SETG DECL-REST-VEC 6>
  27
  28 <MANIFEST DECL-RESTED DECL-ELEMENT DECL-ITEM-COUNT DECL-IN-REST DECL-IN-COUNT-VEC DECL-REST-VEC>
  29
  30 <SETG HIGHBOUND 2>
  31
  32 <SETG LOWBOUND 1>
  33
  34 <MANIFEST HIGHBOUND LOWBOUND>
  35
  36 <SETG ALLWORDS '<PRIMTYPE WORD>>
  37
  38 #WORD *14505653666*
  39 <GFCN \1aTASTEFUL-DECL ("VALUE" ANY ANY) D4>
  40                     <TEMP TEMP10 TT6 TEMP40 TEMP43 TEMP66:VECTOR>
  41                     <INTGO>
  42                     <TYPE? D4 <TYPE-CODE FALSE> + BOOL9>
  43                     <EQUAL? D4 'NO-RETURN - PHRASE8>
  44 BOOL9
  45                     <RETURN 'ANY>
  46 PHRASE8
  47                     <TYPE? D4 <TYPE-CODE ATOM> - PHRASE11>
  48                     <NTHR D4 5 = TEMP10 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE11)>
  49                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE11>
  50                     <DEAD TEMP10>
  51                     <RETURN D4>
  52                     <DEAD D4>
  53 PHRASE11
  54                     <SET TEMP10 D4>
  55                     <TYPE? TEMP10 <TYPE-CODE ATOM> + BOOL16>
  56                     <FRAME '\1aISTYPE?>
  57                     <PUSH D4>
  58                     <CALL '\1aISTYPE? 1 = TEMP10>
  59                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE14>
  60 BOOL16
  61                     <FRAME '\1aDECL-GET>
  62                     <PUSH TEMP10>
  63                     <CALL '\1aDECL-GET 1 = TT6>
  64                     <TYPE? TT6 <TYPE-CODE FALSE> + PHRASE14>
  65                     <VEQUAL? TEMP10 'BOOLEAN + BOOL21>
  66                     <VEQUAL? TEMP10 'BOOL-FALSE + BOOL21>
  67                     <VEQUAL? TEMP10 'BOOL-TRUE - PHRASE20>
  68 BOOL21
  69                     <RETURN TT6>
  70                     <DEAD TT6>
  71 PHRASE20
  72                     <RETURN TEMP10>
  73                     <DEAD TEMP10>
  74 PHRASE14
  75                     <TYPE? D4 <TYPE-CODE FORM> + TAG24>
  76                     <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE23>
  77 TAG24
  78                     <SET TEMP10 D4>
  79                     <SET TT6 1 (TYPE FIX)>
  80                     <LOOP (TEMP10 VALUE) (TT6 VALUE)>
  81 TAG29
  82                     <EMPL? TEMP10 + TAG27>
  83                     <SUB TT6 1 = TT6 (TYPE FIX)>
  84                     <LESS? TT6 0 + PHRASE26>
  85                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
  86                     <JUMP + TAG29>
  87 TAG27
  88                     <EMPL? D4 - BOOL32>
  89                     <RETURN 'ANY>
  90 BOOL32
  91                     <FRAME '\1aTASTEFUL-DECL>
  92                     <NTHL D4 1 = STACK>
  93                     <DEAD D4>
  94                     <CALL '\1aTASTEFUL-DECL 1 = TEMP10>
  95                     <RETURN TEMP10>
  96                     <DEAD TEMP10>
  97 PHRASE26
  98                     <NTHL D4 1 = TT6>
  99                     <EQUAL? TT6 'FIX - PHRASE34>
 100                     <DEAD TT6>
 101                     <RETURN 'FIX>
 102 PHRASE34
 103                     <EMPL? D4 + PHRASE35>
 104                     <RESTL D4 1 = TT6 (TYPE LIST)>
 105                     <EMPL? TT6 + PHRASE35>
 106                     <RESTL TT6 1 = TT6 (TYPE LIST)>
 107                     <EMPL? TT6 - PHRASE35>
 108                     <DEAD TT6>
 109                     <NTHL D4 1 = TT6>
 110                     <EQUAL? TT6 'NOT - PHRASE35>
 111                     <DEAD TT6>
 112                     <RETURN 'ANY>
 113 PHRASE35
 114                     <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE37>
 115                     <SET TEMP10 () (TYPE LIST)>
 116                     <SET TEMP40 () (TYPE LIST)>
 117                     <CHTYPE D4 <TYPE-CODE LIST> = TT6>
 118                     <DEAD D4>
 119                     <LOOP>
 120 MAP39
 121                     <INTGO>
 122                     <EMPL? TT6 + MAP38>
 123                     <FRAME '\1aTASTEFUL-DECL>
 124                     <NTHL TT6 1 = STACK>
 125                     <CALL '\1aTASTEFUL-DECL 1 = TEMP43>
 126                     <CONS TEMP43 () = TEMP43 (TYPE LIST)>
 127                     <EMPL? TEMP10 - TAG44>
 128                     <SET TEMP10 TEMP43 (TYPE LIST)>
 129                     <JUMP + TAG45>
 130 TAG44
 131                     <PUTREST TEMP40 TEMP43>
 132                     <DEAD TEMP40>
 133 TAG45
 134                     <SET TEMP40 TEMP43 (TYPE LIST)>
 135                     <DEAD TEMP43>
 136                     <RESTL TT6 1 = TT6 (TYPE LIST)>
 137                     <JUMP + MAP39>
 138 MAP38
 139                     <CHTYPE TEMP10 <TYPE-CODE SEGMENT> = TEMP10>
 140                     <RETURN TEMP10>
 141                     <DEAD TEMP10>
 142 PHRASE37
 143                     <SET TEMP43 () (TYPE LIST)>
 144                     <SET TEMP10 () (TYPE LIST)>
 145                     <CHTYPE D4 <TYPE-CODE LIST> = TT6>
 146                     <DEAD D4>
 147                     <LOOP>
 148 MAP48
 149                     <INTGO>
 150                     <EMPL? TT6 + MAP47>
 151                     <FRAME '\1aTASTEFUL-DECL>
 152                     <NTHL TT6 1 = STACK>
 153                     <CALL '\1aTASTEFUL-DECL 1 = TEMP40>
 154                     <CONS TEMP40 () = TEMP40 (TYPE LIST)>
 155                     <EMPL? TEMP43 - TAG53>
 156                     <SET TEMP43 TEMP40 (TYPE LIST)>
 157                     <JUMP + TAG54>
 158 TAG53
 159                     <PUTREST TEMP10 TEMP40>
 160                     <DEAD TEMP10>
 161 TAG54
 162                     <SET TEMP10 TEMP40 (TYPE LIST)>
 163                     <DEAD TEMP40>
 164                     <RESTL TT6 1 = TT6 (TYPE LIST)>
 165                     <JUMP + MAP48>
 166 MAP47
 167                     <CHTYPE TEMP43 <TYPE-CODE FORM> = TEMP10>
 168                     <DEAD TEMP43>
 169                     <RETURN TEMP10>
 170                     <DEAD TEMP10>
 171 PHRASE23
 172                     <TYPE? D4 <TYPE-CODE VECTOR> - PHRASE55>
 173                     <NTHUV D4 1 = TT6>
 174                     <EQUAL? TT6 'OPT - PHRASE58>
 175                     <DEAD TT6>
 176                     <SET TT6 'OPTIONAL (TYPE ATOM)>
 177                     <JUMP + PHRASE59>
 178 PHRASE58
 179                     <NTHUV D4 1 = TT6>
 180 PHRASE59
 181                     <PUSH TT6>
 182                     <DEAD TT6>
 183                     <SET TEMP40 1 (TYPE FIX)>
 184                     <SET TT6 () (TYPE LIST)>
 185                     <SET TEMP10 () (TYPE LIST)>
 186                     <RESTUV D4 1 = TEMP66 (TYPE VECTOR)>
 187                     <DEAD D4>
 188                     <LOOP>
 189 MAP61
 190                     <INTGO>
 191                     <EMPUV? TEMP66 + MAP60>
 192                     <FRAME '\1aTASTEFUL-DECL>
 193                     <NTHUV TEMP66 1 = STACK>
 194                     <CALL '\1aTASTEFUL-DECL 1 = TEMP43>
 195                     <CONS TEMP43 () = TEMP43 (TYPE LIST)>
 196                     <EMPL? TT6 - TAG69>
 197                     <SET TT6 TEMP43 (TYPE LIST)>
 198                     <JUMP + TAG70>
 199 TAG69
 200                     <PUTREST TEMP10 TEMP43>
 201                     <DEAD TEMP10>
 202 TAG70
 203                     <SET TEMP10 TEMP43 (TYPE LIST)>
 204                     <DEAD TEMP43>
 205                     <RESTUV TEMP66 1 = TEMP66 (TYPE VECTOR)>
 206                     <JUMP + MAP61>
 207 MAP60
 208                     <LOOP (TT6 VALUE) (TEMP40 VALUE)>
 209 TAG71
 210                     <INTGO>
 211                     <EMPL? TT6 + TAG56>
 212                     <NTHL TT6 1 = STACK>
 213                     <RESTL TT6 1 = TT6 (TYPE LIST)>
 214                     <ADD TEMP40 1 = TEMP40 (TYPE FIX)>
 215                     <JUMP + TAG71>
 216 TAG56
 217                     <UBLOCK <TYPE-CODE VECTOR> TEMP40 = TEMP10>
 218                     <DEAD TEMP40>
 219                     <RETURN TEMP10>
 220                     <DEAD TEMP10>
 221 PHRASE55
 222                     <RETURN D4>
 223                     <DEAD D4>
 224                     <END \1aTASTEFUL-DECL>\r\r
 225 #WORD *10237073025*
 226 <GFCN \1aTMERGE ("VALUE" ANY ANY ANY) P14 P25>
 227                     <TEMP TEMP10>
 228                     <INTGO>
 229                     <EQUAL? P14 'ANY + BOOL9>
 230                     <EQUAL? P25 'ANY - PHRASE8>
 231 BOOL9
 232                     <RETURN 'ANY>
 233 PHRASE8
 234                     <EQUAL? P14 P25 - PHRASE11>
 235                     <RETURN P14>
 236                     <DEAD P14>
 237 PHRASE11
 238                     <TYPE? P14 <TYPE-CODE FORM> - BOOL12>
 239                     <EMPL? P14 + BOOL12>
 240                     <RESTL P14 1 = TEMP10 (TYPE LIST)>
 241                     <EMPL? TEMP10 + BOOL12>
 242                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
 243                     <EMPL? TEMP10 - BOOL12>
 244                     <DEAD TEMP10>
 245                     <NTHL P14 1 = TEMP10>
 246                     <EQUAL? TEMP10 'NOT - BOOL12>
 247                     <DEAD TEMP10>
 248                     <RESTL P14 1 = TEMP10 (TYPE LIST)>
 249                     <DEAD P14>
 250                     <NTHL TEMP10 1 = TEMP10>
 251                     <EQUAL? TEMP10 'ANY - BOOL15>
 252                     <DEAD TEMP10>
 253                     <SET TEMP10 P25>
 254                     <DEAD P25>
 255                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE31>
 256 BOOL15
 257                     <RETURN 'ANY>
 258 BOOL12
 259                     <TYPE? P25 <TYPE-CODE FORM> - BOOL16>
 260                     <EMPL? P25 + BOOL16>
 261                     <RESTL P25 1 = TEMP10 (TYPE LIST)>
 262                     <EMPL? TEMP10 + BOOL16>
 263                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
 264                     <EMPL? TEMP10 - BOOL16>
 265                     <DEAD TEMP10>
 266                     <NTHL P25 1 = TEMP10>
 267                     <EQUAL? TEMP10 'NOT - BOOL16>
 268                     <DEAD TEMP10>
 269                     <RESTL P25 1 = TEMP10 (TYPE LIST)>
 270                     <DEAD P25>
 271                     <NTHL TEMP10 1 = TEMP10>
 272                     <EQUAL? TEMP10 'ANY - BOOL18>
 273                     <DEAD TEMP10>
 274                     <SET TEMP10 P14>
 275                     <DEAD P14>
 276                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE31>
 277 BOOL18
 278                     <RETURN 'ANY>
 279 BOOL16
 280                     <TYPE? P14 <TYPE-CODE ATOM> - PHRASE19>
 281                     <TYPE? P25 <TYPE-CODE ATOM> - PHRASE19>
 282                     <VEQUAL? P14 'BOOL-TRUE + BOOL21>
 283                     <VEQUAL? P14 'BOOL-FALSE + BOOL21>
 284                     <VEQUAL? P14 'BOOLEAN - PHRASE19>
 285 BOOL21
 286                     <VEQUAL? P25 'BOOL-TRUE + BOOL22>
 287                     <VEQUAL? P25 'BOOL-FALSE + BOOL22>
 288                     <VEQUAL? P25 'BOOLEAN - PHRASE19>
 289 BOOL22
 290                     <RETURN 'BOOLEAN>
 291 PHRASE19
 292                     <TYPE? P14 <TYPE-CODE FORM> + TAG26>
 293                     <TYPE? P14 <TYPE-CODE SEGMENT> - BOOL25>
 294 TAG26
 295                     <EMPL? P14 + BOOL25>
 296                     <RESTL P14 1 = TEMP10 (TYPE LIST)>
 297                     <EMPL? TEMP10 + BOOL25>
 298                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
 299                     <EMPL? TEMP10 - BOOL25>
 300                     <DEAD TEMP10>
 301                     <RESTL P14 1 = TEMP10 (TYPE LIST)>
 302                     <NTHL TEMP10 1 = TEMP10>
 303                     <TYPE? TEMP10 <TYPE-CODE LIST> + BOOL24>
 304                     <DEAD TEMP10>
 305 BOOL25
 306                     <TYPE? P25 <TYPE-CODE FORM> + TAG28>
 307                     <TYPE? P25 <TYPE-CODE SEGMENT> - BOOL27>
 308 TAG28
 309                     <EMPL? P25 + BOOL27>
 310                     <RESTL P25 1 = TEMP10 (TYPE LIST)>
 311                     <EMPL? TEMP10 + BOOL27>
 312                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
 313                     <EMPL? TEMP10 - BOOL27>
 314                     <DEAD TEMP10>
 315                     <RESTL P25 1 = TEMP10 (TYPE LIST)>
 316                     <NTHL TEMP10 1 = TEMP10>
 317                     <TYPE? TEMP10 <TYPE-CODE LIST> + BOOL24>
 318                     <DEAD TEMP10>
 319 BOOL27
 320                     <FRAME '\1aCTMATCH>
 321                     <PUSH P14>
 322                     <PUSH P25>
 323                     <PUSH %<>>
 324                     <PUSH %<>>
 325                     <PUSH 'T>
 326                     <CALL '\1aCTMATCH 5 = TEMP10>
 327                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE23>
 328                     <DEAD TEMP10>
 329 BOOL24
 330                     <FRAME '\1aCTMATCH>
 331                     <PUSH P14>
 332                     <DEAD P14>
 333                     <PUSH P25>
 334                     <DEAD P25>
 335                     <PUSH 'T>
 336                     <PUSH 'T>
 337                     <PUSH %<>>
 338                     <CALL '\1aCTMATCH 5 = TEMP10>
 339                     <RETURN TEMP10>
 340                     <DEAD TEMP10>
 341 PHRASE23
 342                     <FRAME '\1aPUT-IN>
 343                     <FRAME '\1aPUT-IN>
 344                     <PUSH ()>
 345                     <PUSH P14>
 346                     <DEAD P14>
 347                     <CALL '\1aPUT-IN 2 = STACK>
 348                     <PUSH P25>
 349                     <DEAD P25>
 350                     <CALL '\1aPUT-IN 2 = TEMP10>
 351                     <CONS 'OR TEMP10 = TEMP10>
 352                     <CHTYPE TEMP10 <TYPE-CODE FORM> = TEMP10>
 353 PHRASE31
 354                     <RETURN TEMP10>
 355                     <DEAD TEMP10>
 356                     <END \1aTMERGE>
 357 #WORD *30534464622*
 358 <GFCN \1aTYPE-AND ("VALUE" ANY ANY ANY) P14 P25>
 359                     <TEMP TEMP12>
 360                     <INTGO>
 361                     <TYPE? P14 <TYPE-CODE FALSE> - PHRASE7>
 362                     <SET P14 'ANY (TYPE ATOM)>
 363 PHRASE7
 364                     <TYPE? P25 <TYPE-CODE FALSE> - PHRASE9>
 365                     <SET P25 'ANY (TYPE ATOM)>
 366 PHRASE9
 367                     <EQUAL? P14 'ANY - PHRASE11>
 368                     <RETURN P25>
 369                     <DEAD P25>
 370 PHRASE11
 371                     <EQUAL? P25 'ANY - PHRASE13>
 372                     <RETURN P14>
 373                     <DEAD P14>
 374 PHRASE13
 375                     <EQUAL? P14 P25 - PHRASE14>
 376                     <RETURN P14>
 377                     <DEAD P14>
 378 PHRASE14
 379                     <FRAME '\1aCTMATCH>
 380                     <PUSH P14>
 381                     <DEAD P14>
 382                     <PUSH P25>
 383                     <DEAD P25>
 384                     <PUSH 'T>
 385                     <PUSH %<>>
 386                     <PUSH %<>>
 387                     <CALL '\1aCTMATCH 5 = TEMP12>
 388                     <RETURN TEMP12>
 389                     <DEAD TEMP12>
 390                     <END \1aTYPE-AND>
 391 #WORD *31240662624*
 392 <GFCN \1aTMATCH ("VALUE" ANY ANY ANY) P14 P25>
 393                     <TEMP TEMP8>
 394                     <INTGO>
 395                     <EQUAL? P14 'ANY - PHRASE7>
 396                     <RETURN P25>
 397                     <DEAD P25>
 398 PHRASE7
 399                     <EQUAL? P25 'ANY - PHRASE9>
 400                     <RETURN P14>
 401                     <DEAD P14>
 402 PHRASE9
 403                     <EQUAL? P14 P25 - PHRASE10>
 404                     <RETURN P14>
 405                     <DEAD P14>
 406 PHRASE10
 407                     <FRAME '\1aCTMATCH>
 408                     <PUSH P14>
 409                     <DEAD P14>
 410                     <PUSH P25>
 411                     <DEAD P25>
 412                     <PUSH %<>>
 413                     <PUSH %<>>
 414                     <PUSH %<>>
 415                     <CALL '\1aCTMATCH 5 = TEMP8>
 416                     <RETURN TEMP8>
 417                     <DEAD TEMP8>
 418                     <END \1aTMATCH>
 419 #WORD *17523375662*
 420 <GFCN \1aCTMATCH ("VALUE" ANY ANY ANY <OR FALSE ATOM> <OR FALSE ATOM> <OR FALSE ATOM>) P14 P25 ANDF6 ORF7 MAYBEF8>
 421                     <TEMP TEMP3:LBIND TEMP11>
 422                     <INTGO>
 423                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
 424                     <BBIND 'ANDF <OR FALSE ATOM> %<> ANDF6>
 425                     <DEAD ANDF6>
 426                     <BBIND 'ORF <OR FALSE ATOM> %<> ORF7>
 427                     <DEAD ORF7>
 428                     <BBIND 'MAYBEF <OR FALSE ATOM> %<> MAYBEF8>
 429                     <DEAD MAYBEF8>
 430                     <FIXBIND>
 431                     <FRAME '\1aDTMATCH>
 432                     <PUSH P14>
 433                     <DEAD P14>
 434                     <PUSH P25>
 435                     <DEAD P25>
 436                     <CALL '\1aDTMATCH 2 = TEMP11>
 437                     <UNBIND TEMP3>
 438                     <DEAD TEMP3>
 439                     <ADJ -27>
 440                     <RETURN TEMP11>
 441                     <DEAD TEMP11>
 442                     <END \1aCTMATCH>
 443 #WORD *37535633362*
 444 <GFCN \1aDTMATCH ("VALUE" ANY ANY ANY) PAT14 PAT25>
 445                     <TEMP ORF6 TEMP24 TEMP25 FP17 FP28>
 446                     <INTGO>
 447                     <GEN-LVAL 'ORF = ORF6>
 448                     <TYPE? PAT14 <TYPE-CODE FALSE> - BOOL11>
 449                     <SET PAT14 'ANY (TYPE ATOM)>
 450 BOOL11
 451                     <TYPE? PAT25 <TYPE-CODE FALSE> - BOOL12>
 452                     <SET PAT25 'ANY (TYPE ATOM)>
 453 BOOL12
 454                     <EQUAL? PAT25 'BOOLEAN - PHRASE14>
 455                     <SET PAT25 PAT14>
 456                     <DEAD PAT14>
 457                     <SET PAT14 'BOOLEAN (TYPE ATOM)>
 458                     <JUMP + PHRASE16>
 459 PHRASE14
 460                     <EQUAL? PAT25 'BOOL-TRUE - PHRASE15>
 461                     <SET PAT25 PAT14>
 462                     <DEAD PAT14>
 463                     <SET PAT14 'BOOL-TRUE (TYPE ATOM)>
 464                     <JUMP + PHRASE16>
 465 PHRASE15
 466                     <EQUAL? PAT25 'BOOL-FALSE - PHRASE16>
 467                     <SET PAT25 PAT14>
 468                     <DEAD PAT14>
 469                     <SET PAT14 'BOOL-FALSE (TYPE ATOM)>
 470 PHRASE16
 471                     <EQUAL? PAT14 PAT25 + BOOL19>
 472                     <TYPE? PAT14 <TYPE-CODE FORM> - BOOL22>
 473                     <TYPE? PAT25 <TYPE-CODE FORM> + BOOL21>
 474 BOOL22
 475                     <TYPE? PAT14 <TYPE-CODE SEGMENT> - PHRASE18>
 476                     <TYPE? PAT25 <TYPE-CODE SEGMENT> - PHRASE18>
 477 BOOL21
 478                     <LENL PAT14 = TEMP24 (TYPE FIX)>
 479                     <LENL PAT25 = TEMP25 (TYPE FIX)>
 480                     <VEQUAL? TEMP24 TEMP25 - PHRASE18 (TYPE FIX)>
 481                     <DEAD TEMP24 TEMP25>
 482                     <NTHL PAT14 1 = FP17>
 483                     <TYPE FP17 = TEMP24>
 484                     <NTHL PAT25 1 = FP28>
 485                     <TYPE FP28 = TEMP25>
 486                     <VEQUAL? TEMP24 TEMP25 - PHRASE18 (TYPE FIX)>
 487                     <DEAD TEMP24 TEMP25>
 488                     <TYPE? FP17 <TYPE-CODE ATOM> - PHRASE27>
 489                     <EQUAL? FP17 FP28 - PHRASE18>
 490                     <DEAD FP17 FP28>
 491 PHRASE27
 492                     <FRAME '\1a=?>
 493                     <PUSH PAT14>
 494                     <PUSH PAT25>
 495                     <CALL '\1a=? 2 = TEMP24>
 496                     <VEQUAL? TEMP24 0 + PHRASE18>
 497                     <DEAD TEMP24>
 498 BOOL19
 499                     <RETURN PAT14>
 500                     <DEAD PAT14>
 501 PHRASE18
 502                     <EQUAL? PAT14 'BOOLEAN - BOOL37>
 503                     <TYPE? ORF6 <TYPE-CODE FALSE> + BOOL32>
 504                     <EQUAL? PAT25 'BOOL-TRUE + BOOL33>
 505                     <EQUAL? PAT25 'BOOL-FALSE - BOOL32>
 506 BOOL33
 507                     <RETURN 'BOOLEAN>
 508 BOOL32
 509                     <TYPE? ORF6 <TYPE-CODE FALSE> - BOOL37>
 510                     <EQUAL? PAT14 'BOOL-TRUE - BOOL36>
 511                     <RETURN 'BOOL-TRUE>
 512 BOOL36
 513                     <EQUAL? PAT25 'BOOL-FALSE - BOOL37>
 514                     <RETURN 'BOOL-FALSE>
 515 BOOL37
 516                     <TYPE? ORF6 <TYPE-CODE FALSE> - PHRASE38>
 517                     <EQUAL? PAT14 'BOOL-FALSE - PHRASE38>
 518                     <FRAME '\1aTEXP1>
 519                     <PUSH !<FALSE>>
 520                     <PUSH PAT25>
 521                     <DEAD PAT25>
 522                     <CALL '\1aTEXP1 2 = TEMP24>
 523                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE71>
 524                     <RETURN 'BOOL-FALSE>
 525 PHRASE38
 526                     <TYPE? ORF6 <TYPE-CODE FALSE> - PHRASE43>
 527                     <EQUAL? PAT14 'BOOL-TRUE - PHRASE43>
 528                     <FRAME '\1aTYPMAT>
 529                     <PUSH 'ATOM>
 530                     <PUSH PAT25>
 531                     <DEAD PAT25>
 532                     <CALL '\1aTYPMAT 2 = TEMP24>
 533                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE71>
 534                     <RETURN 'BOOL-TRUE>
 535 PHRASE43
 536                     <TYPE? ORF6 <TYPE-CODE FALSE> - PHRASE48>
 537                     <DEAD ORF6>
 538                     <EQUAL? PAT14 'BOOLEAN - PHRASE48>
 539                     <FRAME '\1aTYPMAT>
 540                     <PUSH 'ATOM>
 541                     <PUSH PAT25>
 542                     <CALL '\1aTYPMAT 2 = TEMP25>
 543                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE51>
 544                     <DEAD TEMP25>
 545                     <FRAME '\1aTEXP1>
 546                     <PUSH !<FALSE>>
 547                     <PUSH PAT25>
 548                     <DEAD PAT25>
 549                     <CALL '\1aTEXP1 2 = TEMP25>
 550                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE54>
 551                     <DEAD TEMP25>
 552                     <RETURN 'BOOLEAN>
 553 PHRASE54
 554                     <RETURN 'BOOL-TRUE>
 555 PHRASE51
 556                     <FRAME '\1aTEXP1>
 557                     <PUSH !<FALSE>>
 558                     <PUSH PAT25>
 559                     <DEAD PAT25>
 560                     <CALL '\1aTEXP1 2 = TEMP24>
 561                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE71>
 562                     <RETURN 'BOOL-FALSE>
 563 PHRASE48
 564                     <FRAME '\1aVTS>
 565                     <PUSH PAT14>
 566                     <DEAD PAT14>
 567                     <CALL '\1aVTS 1 = PAT14>
 568                     <TYPE? PAT14 <TYPE-CODE ATOM> - PHRASE59>
 569                     <FRAME '\1aTYPMAT>
 570                     <PUSH PAT14>
 571                     <DEAD PAT14>
 572                     <FRAME '\1aVTS>
 573                     <PUSH PAT25>
 574                     <DEAD PAT25>
 575                     <CALL '\1aVTS 1 = STACK>
 576                     <CALL '\1aTYPMAT 2 = TEMP24>
 577                     <RETURN TEMP24>
 578                     <DEAD TEMP24>
 579 PHRASE59
 580                     <FRAME '\1aVTS>
 581                     <PUSH PAT25>
 582                     <DEAD PAT25>
 583                     <CALL '\1aVTS 1 = PAT25>
 584                     <TYPE? PAT25 <TYPE-CODE ATOM> - PHRASE63>
 585                     <FRAME '\1aTYPMAT>
 586                     <PUSH PAT25>
 587                     <DEAD PAT25>
 588                     <PUSH PAT14>
 589                     <DEAD PAT14>
 590                     <CALL '\1aTYPMAT 2 = TEMP24>
 591                     <RETURN TEMP24>
 592                     <DEAD TEMP24>
 593 PHRASE63
 594                     <TYPE? PAT14 <TYPE-CODE FORM> + TAG68>
 595                     <TYPE? PAT14 <TYPE-CODE SEGMENT> - PHRASE66>
 596 TAG68
 597                     <TYPE? PAT25 <TYPE-CODE FORM> + TAG69>
 598                     <TYPE? PAT25 <TYPE-CODE SEGMENT> - PHRASE66>
 599 TAG69
 600                     <FRAME '\1aTEXP1>
 601                     <PUSH PAT14>
 602                     <DEAD PAT14>
 603                     <PUSH PAT25>
 604                     <DEAD PAT25>
 605                     <CALL '\1aTEXP1 2 = TEMP24>
 606                     <RETURN TEMP24>
 607                     <DEAD TEMP24>
 608 PHRASE66
 609                     <SET TEMP24 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
 610 PHRASE71
 611                     <RETURN TEMP24>
 612                     <DEAD TEMP24>
 613                     <END \1aDTMATCH>
 614 #WORD *10527553701*
 615 <GFCN \1aVTS ("VALUE" ANY ANY) X4>
 616                     <TEMP TEMP9>
 617                     <INTGO>
 618                     <TYPE? X4 <TYPE-CODE ATOM> - BOOL7>
 619                     <NTHR X4 5 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE - BOOL8)>
 620                     <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL8>
 621                     <DEAD TEMP9>
 622                     <VEQUAL? X4 'ANY + BOOL8>
 623                     <VEQUAL? X4 'STRUCTURED + BOOL8>
 624                     <VEQUAL? X4 'MULTI + BOOL8>
 625                     <VEQUAL? X4 'APPLICABLE - BOOL7>
 626 BOOL8
 627                     <RETURN X4>
 628                     <DEAD X4>
 629 BOOL7
 630                     <TYPE? X4 <TYPE-CODE ATOM> - BOOL10>
 631                     <FRAME '\1aDECL-GET>
 632                     <PUSH X4>
 633                     <CALL '\1aDECL-GET 1 = TEMP9>
 634                     <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL5>
 635 BOOL10
 636                     <SET TEMP9 X4>
 637                     <DEAD X4>
 638 BOOL5
 639                     <RETURN TEMP9>
 640                     <DEAD TEMP9>
 641                     <END \1aVTS>
 642 #WORD *1604514727*
 643 <GFCN \1a2-ELEM ("VALUE" <OR ATOM FALSE> <PRIMTYPE LIST>) OBJ4>
 644                     <TEMP TEMP6>
 645                     <INTGO>
 646                     <EMPL? OBJ4 - TAG7>
 647                     <RETURN %<>>
 648 TAG7
 649                     <RESTL OBJ4 1 = TEMP6 (TYPE LIST)>
 650                     <DEAD OBJ4>
 651                     <CHTYPE TEMP6 <TYPE-CODE LIST> = TEMP6>
 652                     <EMPL? TEMP6 - TAG8 (TYPE LIST)>
 653                     <DEAD TEMP6>
 654                     <RETURN %<>>
 655 TAG8
 656                     <RETURN 'T>
 657                     <END \1a2-ELEM>
 658 #WORD *5765452656*
 659 <GFCN \1aTYPMAT ("VALUE" ANY ATOM ANY) TYP4 PAT5>
 660                     <TEMP ORF8 TEM6 TEMP27 TEMP28:FRAME>
 661                     <INTGO>
 662                     <GEN-LVAL 'ORF = ORF8>
 663                     <TYPE? PAT5 <TYPE-CODE ATOM> - PHRASE14>
 664                     <VEQUAL? PAT5 'ANY - BOOL16>
 665                     <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE18>
 666                     <DEAD ORF8>
 667                     <SET TEM6 'ANY (TYPE ATOM)>
 668                     <JUMP + PHRASE43>
 669 PHRASE18
 670                     <SET TEM6 TYP4>
 671                     <JUMP + PHRASE43>
 672 BOOL16
 673                     <VEQUAL? TYP4 'ANY - BOOL20>
 674                     <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE22>
 675                     <DEAD ORF8>
 676                     <SET TEM6 'ANY (TYPE ATOM)>
 677                     <JUMP + PHRASE43>
 678 PHRASE22
 679                     <SET TEM6 PAT5>
 680                     <JUMP + PHRASE43>
 681 BOOL20
 682                     <VEQUAL? PAT5 TYP4 - BOOL24>
 683                     <SET TEM6 TYP4>
 684                     <JUMP + PHRASE43>
 685 BOOL24
 686                     <FRAME '\1aGETPROP>
 687                     <PUSH PAT5>
 688                     <PUSH 'ALT-DECL>
 689                     <CFRAME = STACK (TYPE FRAME)>
 690                     <CALL '\1aGETPROP 3 = TEMP27>
 691                     <CFRAME = TEMP28 (TYPE FRAME)>
 692                     <EQUAL? TEMP28 TEMP27 - TAG29>
 693                     <DEAD TEMP28>
 694                     <SET TEMP27 PAT5>
 695 TAG29
 696                     <FRAME '\1aGETPROP>
 697                     <PUSH TYP4>
 698                     <PUSH 'ALT-DECL>
 699                     <CFRAME = STACK (TYPE FRAME)>
 700                     <CALL '\1aGETPROP 3 = TEM6>
 701                     <CFRAME = TEMP28 (TYPE FRAME)>
 702                     <EQUAL? TEMP28 TEM6 - TAG31>
 703                     <DEAD TEMP28>
 704                     <SET TEM6 TYP4>
 705 TAG31
 706                     <EQUAL? TEMP27 TEM6 - PHRASE37>
 707                     <DEAD TEMP27>
 708                     <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE33>
 709                     <DEAD ORF8>
 710                     <EQUAL? TEM6 TYP4 - PHRASE35>
 711                     <DEAD TEM6>
 712                     <SET TEM6 PAT5>
 713                     <JUMP + PHRASE43>
 714 PHRASE35
 715                     <SET TEM6 TYP4>
 716                     <JUMP + PHRASE43>
 717 PHRASE33
 718                     <TYPE? TEM6 <TYPE-CODE FALSE> - PHRASE43>
 719 PHRASE37
 720                     <FRAME '\1aSTRUC>
 721                     <PUSH TYP4>
 722                     <PUSH PAT5>
 723                     <PUSH 'T>
 724                     <CALL '\1aSTRUC 3 = TEM6>
 725                     <TYPE? TEM6 <TYPE-CODE FALSE> - PHRASE43>
 726                     <FRAME '\1aSTRUC>
 727                     <PUSH PAT5>
 728                     <PUSH TYP4>
 729                     <PUSH %<>>
 730                     <CALL '\1aSTRUC 3 = TEM6>
 731                     <JUMP + PHRASE43>
 732 PHRASE14
 733                     <TYPE? PAT5 <TYPE-CODE FORM> + TAG41>
 734                     <TYPE? PAT5 <TYPE-CODE SEGMENT> - PHRASE40>
 735 TAG41
 736                     <FRAME '\1aTEXP1>
 737                     <PUSH PAT5>
 738                     <PUSH TYP4>
 739                     <CALL '\1aTEXP1 2 = TEM6>
 740                     <JUMP + PHRASE43>
 741 PHRASE40
 742                     <SET TEM6 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
 743 PHRASE43
 744                     <SET ORF8 TEM6>
 745                     <TYPE? ORF8 <TYPE-CODE FALSE> - BOOL50>
 746                     <EMPL? TEM6 + TAG45 (TYPE FALSE)>
 747                     <DEAD TEM6>
 748                     <RETURN %<>>
 749 TAG45
 750                     <FRAME '\1aVTS>
 751                     <PUSH TYP4>
 752                     <CALL '\1aVTS 1 = TEM6>
 753                     <EQUAL? TEM6 TYP4 + BOOL47>
 754                     <FRAME '\1aDTMATCH>
 755                     <PUSH TEM6>
 756                     <DEAD TEM6>
 757                     <PUSH PAT5>
 758                     <CALL '\1aDTMATCH 2 = ORF8>
 759                     <TYPE? ORF8 <TYPE-CODE FALSE> - BOOL50>
 760 BOOL47
 761                     <FRAME '\1aVTS>
 762                     <PUSH PAT5>
 763                     <CALL '\1aVTS 1 = TEM6>
 764                     <EQUAL? TEM6 PAT5 - TAG51>
 765                     <DEAD PAT5>
 766                     <RETURN %<>>
 767 TAG51
 768                     <FRAME '\1aTYPMAT>
 769                     <PUSH TYP4>
 770                     <DEAD TYP4>
 771                     <PUSH TEM6>
 772                     <DEAD TEM6>
 773                     <CALL '\1aTYPMAT 2 = ORF8>
 774 BOOL50
 775                     <RETURN ORF8>
 776                     <DEAD ORF8>
 777                     <END \1aTYPMAT>
 778 "\f"
 779
 780 #WORD *27624336163*
 781 <GFCN \1aTEXP1 ("VALUE" ANY <OR FORM SEGMENT> ANY) FORT4 PAT5>
 782                     <TEMP TEMP9>
 783                     <INTGO>
 784                     <EMPL? FORT4 - PHRASE8>
 785                     <RETURN #FALSE (EMPTY-TYPE-FORM!-ERRORS)>
 786 PHRASE8
 787                     <NTHL FORT4 1 = TEMP9>
 788                     <EQUAL? TEMP9 'OR + BOOL11>
 789                     <EQUAL? TEMP9 'AND + BOOL11>
 790                     <EQUAL? TEMP9 'NOT + BOOL11>
 791                     <EQUAL? TEMP9 'PRIMTYPE - PHRASE10>
 792 BOOL11
 793                     <FRAME '\1aACTORT>
 794                     <PUSH FORT4>
 795                     <DEAD FORT4>
 796                     <PUSH PAT5>
 797                     <DEAD PAT5>
 798                     <CALL '\1aACTORT 2 = TEMP9>
 799                     <RETURN TEMP9>
 800                     <DEAD TEMP9>
 801 PHRASE10
 802                     <EQUAL? TEMP9 'QUOTE - PHRASE13>
 803                     <DEAD TEMP9>
 804                     <EMPL? FORT4 + PHRASE13>
 805                     <RESTL FORT4 1 = TEMP9 (TYPE LIST)>
 806                     <EMPL? TEMP9 + PHRASE13>
 807                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
 808                     <EMPL? TEMP9 - PHRASE13>
 809                     <DEAD TEMP9>
 810                     <FRAME '\1aDTMATCH>
 811                     <FRAME '\1aGEN-DECL>
 812                     <RESTL FORT4 1 = TEMP9 (TYPE LIST)>
 813                     <DEAD FORT4>
 814                     <NTHL TEMP9 1 = STACK>
 815                     <DEAD TEMP9>
 816                     <CALL '\1aGEN-DECL 1 = STACK>
 817                     <PUSH PAT5>
 818                     <DEAD PAT5>
 819                     <CALL '\1aDTMATCH 2 = TEMP9>
 820                     <RETURN TEMP9>
 821                     <DEAD TEMP9>
 822 PHRASE13
 823                     <FRAME '\1aFORMATCH>
 824                     <PUSH FORT4>
 825                     <DEAD FORT4>
 826                     <PUSH PAT5>
 827                     <DEAD PAT5>
 828                     <CALL '\1aFORMATCH 2 = TEMP9>
 829                     <RETURN TEMP9>
 830                     <DEAD TEMP9>
 831                     <END \1aTEXP1>
 832 #WORD *21046205254*
 833 <GFCN \1aACTORT ("VALUE" ANY <PRIMTYPE LIST> ANY) FORT4 PAT5>
 834                     <TEMP ACTOR6 ORF8 ANDF9 AL23:LIST TEM22 TEMP33>
 835                     <INTGO>
 836                     <NTHL FORT4 1 = ACTOR6>
 837                     <GEN-LVAL 'ORF = ORF8>
 838                     <GEN-LVAL 'ANDF = ANDF9>
 839                     <EQUAL? ACTOR6 'OR - PHRASE15>
 840                     <RESTL FORT4 1 = FORT4 (TYPE LIST)>
 841                     <CHTYPE FORT4 <TYPE-CODE LIST> = FORT4>
 842                     <EMPL? FORT4 - PHRASE17 (TYPE LIST)>
 843                     <RETURN #FALSE (EMPTY-OR-MATCH!-ERRORS)>
 844 PHRASE17
 845                     <SET AL23 () (TYPE LIST)>
 846                     <LOOP>
 847 AGAIN24
 848                     <INTGO>
 849                     <NTHL FORT4 1 = TEM22>
 850                     <TYPE? TEM22 <TYPE-CODE ATOM> - BOOL28>
 851                     <LOOP>
 852 AGAIN31
 853                     <INTGO>
 854                     <NTHR TEM22 5 = TEMP33 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE34)>
 855                     <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE34>
 856                     <DEAD TEMP33>
 857                     <FRAME '\1aDECL-GET>
 858                     <PUSH TEM22>
 859                     <CALL '\1aDECL-GET 1 = TEMP33>
 860                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE34>
 861                     <SET TEM22 TEMP33>
 862                     <DEAD TEMP33>
 863                     <TYPE? TEM22 <TYPE-CODE ATOM> - BOOL28>
 864                     <JUMP + AGAIN31>
 865 PHRASE34
 866                     <FRAME '\1aTYPMAT>
 867                     <PUSH TEM22>
 868                     <DEAD TEM22>
 869                     <PUSH PAT5>
 870                     <CALL '\1aTYPMAT 2 = TEM22>
 871                     <TYPE? TEM22 <TYPE-CODE FALSE> - BOOL27>
 872 BOOL28
 873                     <TYPE? TEM22 <TYPE-CODE FORM> + TAG40>
 874                     <TYPE? TEM22 <TYPE-CODE SEGMENT> - PHRASE26>
 875 TAG40
 876                     <FRAME '\1aTEXP1>
 877                     <PUSH TEM22>
 878                     <DEAD TEM22>
 879                     <PUSH PAT5>
 880                     <CALL '\1aTEXP1 2 = TEM22>
 881                     <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE26>
 882 BOOL27
 883                     <TYPE? ANDF9 <TYPE-CODE FALSE> + PHRASE43>
 884                     <EQUAL? TEM22 'ANY - PHRASE47>
 885                     <RETURN 'ANY>
 886 PHRASE47
 887                     <TYPE? ORF8 <TYPE-CODE FALSE> + PHRASE49>
 888                     <FRAME '\1aPUT-IN>
 889                     <PUSH AL23>
 890                     <DEAD AL23>
 891                     <PUSH TEM22>
 892                     <DEAD TEM22>
 893                     <CALL '\1aPUT-IN 2 = AL23>
 894                     <JUMP + PHRASE55>
 895 PHRASE49
 896                     <FRAME '\1aMEMBER>
 897                     <PUSH TEM22>
 898                     <PUSH AL23>
 899                     <CALL '\1aMEMBER 2 = TEMP33>
 900                     <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE55>
 901                     <DEAD TEMP33>
 902                     <CONS TEM22 AL23 = AL23>
 903                     <DEAD TEM22>
 904                     <JUMP + PHRASE55>
 905 PHRASE43
 906                     <RETURN 'T>
 907 PHRASE26
 908                     <EMPTY? TEM22 + PHRASE55>
 909                     <RETURN TEM22>
 910                     <DEAD TEM22>
 911 PHRASE55
 912                     <RESTL FORT4 1 = FORT4 (TYPE LIST)>
 913                     <EMPL? FORT4 - AGAIN24 (TYPE LIST)>
 914                     <EMPL? AL23 - TAG59 (TYPE LIST)>
 915                     <RETURN %<>>
 916 TAG59
 917                     <RESTL AL23 1 = ORF8 (TYPE LIST)>
 918                     <EMPL? ORF8 - PHRASE61 (TYPE LIST)>
 919                     <DEAD ORF8>
 920                     <NTHL AL23 1 = TEMP33>
 921                     <DEAD AL23>
 922                     <RETURN TEMP33>
 923                     <DEAD TEMP33>
 924 PHRASE61
 925                     <FRAME '\1aORSORT>
 926                     <CONS ACTOR6 AL23 = ORF8>
 927                     <DEAD ACTOR6 AL23>
 928                     <CHTYPE ORF8 <TYPE-CODE FORM> = STACK>
 929                     <DEAD ORF8>
 930                     <CALL '\1aORSORT 1 = TEMP33>
 931                     <RETURN TEMP33>
 932                     <DEAD TEMP33>
 933 PHRASE15
 934                     <EQUAL? ACTOR6 'NOT - PHRASE65>
 935                     <DEAD ACTOR6>
 936                     <FRAME '\1aNOT-IT>
 937                     <PUSH FORT4>
 938                     <DEAD FORT4>
 939                     <PUSH PAT5>
 940                     <DEAD PAT5>
 941                     <CALL '\1aNOT-IT 2 = ACTOR6>
 942                     <RETURN ACTOR6>
 943                     <DEAD ACTOR6>
 944 PHRASE65
 945                     <FRAME '\1aPTACT>
 946                     <PUSH FORT4>
 947                     <DEAD FORT4>
 948                     <PUSH PAT5>
 949                     <DEAD PAT5>
 950                     <CALL '\1aPTACT 2 = ACTOR6>
 951                     <RETURN ACTOR6>
 952                     <DEAD ACTOR6>
 953                     <END \1aACTORT>
 954 #WORD *35010167222*
 955 <GFCN \1aPTACT ("VALUE" ANY ANY ANY) FORTYP4 PAT5>
 956                     <TEMP TEMP12>
 957                     <INTGO>
 958                     <TYPE? FORTYP4 <TYPE-CODE FORM> + TAG8>
 959                     <TYPE? FORTYP4 <TYPE-CODE SEGMENT> - PHRASE7>
 960 TAG8
 961                     <EMPL? FORTYP4 + PHRASE10>
 962                     <RESTL FORTYP4 1 = TEMP12 (TYPE LIST)>
 963                     <EMPL? TEMP12 + PHRASE10>
 964                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 965                     <EMPL? TEMP12 - PHRASE10>
 966                     <DEAD TEMP12>
 967                     <NTHL FORTYP4 1 = TEMP12>
 968                     <EQUAL? TEMP12 'PRIMTYPE - PHRASE10>
 969                     <DEAD TEMP12>
 970                     <FRAME '\1aPRIMATCH>
 971                     <PUSH FORTYP4>
 972                     <DEAD FORTYP4>
 973                     <PUSH PAT5>
 974                     <DEAD PAT5>
 975                     <CALL '\1aPRIMATCH 2 = TEMP12>
 976                     <RETURN TEMP12>
 977                     <DEAD TEMP12>
 978 PHRASE10
 979                     <RETURN #FALSE (BAD-SYNTAX!-ERRORS)>
 980 PHRASE7
 981                     <TYPE? FORTYP4 <TYPE-CODE ATOM> - PHRASE15>
 982                     <FRAME '\1aTYPMAT>
 983                     <PUSH FORTYP4>
 984                     <DEAD FORTYP4>
 985                     <PUSH PAT5>
 986                     <DEAD PAT5>
 987                     <CALL '\1aTYPMAT 2 = TEMP12>
 988                     <RETURN TEMP12>
 989                     <DEAD TEMP12>
 990 PHRASE15
 991                     <RETURN #FALSE (BAD-SYNTAX!-ERRORS)>
 992                     <END \1aPTACT>
 993 "\f"
 994
 995 #WORD *21523151277*
 996 <GFCN \1aSTRUC ("VALUE" ANY ANY ATOM ANY) WRD4 TYP5 ACTAND6>
 997                     <TEMP TEMP21 TC7>
 998                     <INTGO>
 999                     <EQUAL? WRD4 'STRUCTURED - PHRASE16>
1000                     <VEQUAL? TYP5 'APPLICABLE - PHRASE18>
1001                     <GEN-LVAL 'ORF = TEMP21>
1002                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE20>
1003                     <DEAD TEMP21>
1004                     <RETURN <OR APPLICABLE STRUCTURED>>
1005 PHRASE20
1006                     <RETURN <OR MSUBR T$MSUBR FUNCTION T$FUNCTION MACRO T$MACRO>>
1007 PHRASE18
1008                     <NTHR TYP5 5 = TC7 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE14)>
1009                     <TYPE? TC7 <TYPE-CODE FALSE> + PHRASE14>
1010                     <AND TC7 #WORD *7* = TC7>
1011                     <VEQUAL? TC7 1 + TAG38 (TYPE FIX)>
1012                     <GRTR? TC7 3 + TAG38 (TYPE FIX)>
1013                     <GVAL 'INTERPRETER-IMPLEMENTOR? = TEMP21>
1014                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE14>
1015                     <DEAD TEMP21>
1016                     <VEQUAL? TC7 2 - PHRASE14 (TYPE FIX)>
1017                     <DEAD TC7>
1018                     <FRAME '\1aGC-PRIMTYPE>
1019                     <NTHR TYP5 5 = TEMP21 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
1020                     <PUSH TEMP21>
1021                     <DEAD TEMP21>
1022                     <CALL '\1aGC-PRIMTYPE 1 = TEMP21>
1023                     <VEQUAL? TEMP21 'ATOM + TAG38>
1024                     <VEQUAL? TEMP21 'GBIND + TAG38>
1025                     <VEQUAL? TEMP21 'LBIND + TAG38>
1026                     <VEQUAL? TEMP21 'FRAME - PHRASE14>
1027                     <DEAD TEMP21>
1028                     <JUMP + TAG38>
1029 PHRASE16
1030                     <EQUAL? WRD4 'APPLICABLE - PHRASE14>
1031                     <VEQUAL? TYP5 'STRUCTURED - PHRASE36>
1032                     <FRAME '\1aSTRUC>
1033                     <PUSH TYP5>
1034                     <DEAD TYP5>
1035                     <PUSH WRD4>
1036                     <DEAD WRD4>
1037                     <PUSH ACTAND6>
1038                     <DEAD ACTAND6>
1039                     <CALL '\1aSTRUC 3 = TEMP21>
1040                     <RETURN TEMP21>
1041                     <DEAD TEMP21>
1042 PHRASE36
1043                     <SET TEMP21 [MSUBR T$MSUBR FUNCTION T$FUNCTION MACRO T$MACRO OFFSET T$OFFSET FIX] (TYPE VECTOR)>
1044                     <LOOP (TYP5 VALUE) (TEMP21 LENGTH VALUE)>
1045 TAG39
1046                     <NTHUV TEMP21 1 = TC7>
1047                     <VEQUAL? TC7 TYP5 + TAG38>
1048                     <DEAD TC7>
1049                     <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
1050                     <EMPUV? TEMP21 - TAG39>
1051                     <JUMP + PHRASE14>
1052 TAG38
1053                     <GEN-LVAL 'ORF = TEMP21>
1054                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE43>
1055                     <DEAD TEMP21>
1056                     <RETURN WRD4>
1057                     <DEAD WRD4>
1058 PHRASE43
1059                     <RETURN TYP5>
1060                     <DEAD TYP5>
1061 PHRASE14
1062                     <GEN-LVAL 'ORF = TEMP21>
1063                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE49>
1064                     <DEAD TEMP21>
1065                     <TYPE? ACTAND6 <TYPE-CODE FALSE> - PHRASE49>
1066                     <DEAD ACTAND6>
1067                     <FRAME '\1aORSORT>
1068                     <FRAME '\1aFORM>
1069                     <PUSH 'OR>
1070                     <PUSH WRD4>
1071                     <DEAD WRD4>
1072                     <PUSH TYP5>
1073                     <DEAD TYP5>
1074                     <CALL '\1aFORM 3 = STACK>
1075                     <CALL '\1aORSORT 1 = TEMP21>
1076                     <RETURN TEMP21>
1077                     <DEAD TEMP21>
1078 PHRASE49
1079                     <RETURN %<>>
1080                     <END \1aSTRUC>
1081 #WORD *23025106577*
1082 <GFCN \1aPRIMATCH ("VALUE" ANY <OR <FORM ANY ANY> <SEGMENT ANY ANY>> ANY) PTYP4 PAT5>
1083                     <TEMP ORF9 ANDF10 PAT16 TEMP19 TEM8>
1084                     <INTGO>
1085                     <GEN-LVAL 'ORF = ORF9>
1086                     <GEN-LVAL 'ANDF = ANDF10>
1087                     <TYPE? PAT5 <TYPE-CODE FORM> + TAG18>
1088                     <TYPE? PAT5 <TYPE-CODE SEGMENT> - PHRASE16>
1089 TAG18
1090                     <SET PAT16 PAT5>
1091                     <EMPL? PAT16 + PHRASE16>
1092                     <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
1093                     <EMPL? TEMP19 + PHRASE16>
1094                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1095                     <EMPL? TEMP19 - PHRASE16>
1096                     <DEAD TEMP19>
1097                     <NTHL PAT16 1 = TEMP19>
1098                     <EQUAL? TEMP19 'PRIMTYPE - PHRASE16>
1099                     <DEAD TEMP19>
1100                     <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
1101                     <NTHL TEMP19 1 = TEMP19>
1102                     <RESTL PTYP4 1 = ANDF10 (TYPE LIST)>
1103                     <NTHL ANDF10 1 = ANDF10>
1104                     <EQUAL? TEMP19 ANDF10 + BOOL22>
1105                     <DEAD TEMP19 ANDF10>
1106                     <FRAME '\1aGC-PRIMTYPE>
1107                     <RESTL PAT16 1 = ANDF10 (TYPE LIST)>
1108                     <NTHL ANDF10 1 = ANDF10 (TYPE ATOM)>
1109                     <NTHR ANDF10 5 = ANDF10 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
1110                     <PUSH ANDF10>
1111                     <DEAD ANDF10>
1112                     <CALL '\1aGC-PRIMTYPE 1 = ANDF10>
1113                     <FRAME '\1aGC-PRIMTYPE>
1114                     <RESTL PTYP4 1 = TEMP19 (TYPE LIST)>
1115                     <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
1116                     <NTHR TEMP19 5 = TEMP19 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
1117                     <PUSH TEMP19>
1118                     <DEAD TEMP19>
1119                     <CALL '\1aGC-PRIMTYPE 1 = TEMP19>
1120                     <VEQUAL? ANDF10 TEMP19 - PHRASE21>
1121                     <DEAD ANDF10 TEMP19>
1122 BOOL22
1123                     <RETURN PAT16>
1124                     <DEAD PAT16>
1125 PHRASE21
1126                     <SET TEMP19 ORF9>
1127                     <DEAD ORF9>
1128                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE102>
1129                     <FRAME '\1aORSORT>
1130                     <FRAME '\1aFORM>
1131                     <PUSH 'OR>
1132                     <PUSH PAT16>
1133                     <DEAD PAT16>
1134                     <PUSH PTYP4>
1135                     <DEAD PTYP4>
1136                     <CALL '\1aFORM 3 = STACK>
1137                     <CALL '\1aORSORT 1 = TEMP19>
1138                     <RETURN TEMP19>
1139                     <DEAD TEMP19>
1140 PHRASE16
1141                     <TYPE? PAT5 <TYPE-CODE ATOM> - PHRASE31>
1142                     <VEQUAL? PAT5 'ANY - PHRASE33>
1143                     <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE35>
1144                     <DEAD ORF9>
1145                     <RETURN 'ANY>
1146 PHRASE35
1147                     <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE36>
1148                     <DEAD ANDF10>
1149                     <RETURN PTYP4>
1150                     <DEAD PTYP4>
1151 PHRASE36
1152                     <RETURN 'T>
1153 PHRASE33
1154                     <VEQUAL? PAT5 'STRUCTURED + BOOL39>
1155                     <VEQUAL? PAT5 'APPLICABLE - PHRASE38>
1156 BOOL39
1157                     <FRAME '\1aSTRUC>
1158                     <PUSH PAT5>
1159                     <RESTL PTYP4 1 = ANDF10 (TYPE LIST)>
1160                     <NTHL ANDF10 1 = STACK (TYPE ATOM)>
1161                     <DEAD ANDF10>
1162                     <PUSH 'T>
1163                     <CALL '\1aSTRUC 3 = ANDF10>
1164                     <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE41>
1165                     <DEAD ANDF10>
1166                     <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE44>
1167                     <DEAD ORF9>
1168                     <RETURN PAT5>
1169                     <DEAD PAT5>
1170 PHRASE44
1171                     <RETURN PTYP4>
1172                     <DEAD PTYP4>
1173 PHRASE41
1174                     <SET TEMP19 ORF9>
1175                     <DEAD ORF9>
1176                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE66>
1177                     <FRAME '\1aORSORT>
1178                     <FRAME '\1aFORM>
1179                     <PUSH 'OR>
1180                     <PUSH PAT5>
1181                     <DEAD PAT5>
1182                     <PUSH PTYP4>
1183                     <DEAD PTYP4>
1184                     <CALL '\1aFORM 3 = STACK>
1185                     <CALL '\1aORSORT 1 = TEMP19>
1186                     <RETURN TEMP19>
1187                     <DEAD TEMP19>
1188 PHRASE38
1189                     <NTHR PAT5 5 = ANDF10 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE52)>
1190                     <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE52>
1191                     <DEAD ANDF10>
1192                     <FRAME '\1aGC-PRIMTYPE>
1193                     <NTHR PAT5 5 = ANDF10 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
1194                     <PUSH ANDF10>
1195                     <DEAD ANDF10>
1196                     <CALL '\1aGC-PRIMTYPE 1 = ANDF10>
1197                     <FRAME '\1aGC-PRIMTYPE>
1198                     <RESTL PTYP4 1 = TEMP19 (TYPE LIST)>
1199                     <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
1200                     <NTHR TEMP19 5 = TEMP19 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
1201                     <PUSH TEMP19>
1202                     <DEAD TEMP19>
1203                     <CALL '\1aGC-PRIMTYPE 1 = TEMP19>
1204                     <VEQUAL? ANDF10 TEMP19 - PHRASE61>
1205                     <DEAD ANDF10 TEMP19>
1206                     <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE59>
1207                     <DEAD ORF9>
1208                     <RETURN PTYP4>
1209                     <DEAD PTYP4>
1210 PHRASE59
1211                     <RETURN PAT5>
1212                     <DEAD PAT5>
1213 PHRASE52
1214                     <FRAME '\1aDECL-GET>
1215                     <PUSH PAT5>
1216                     <CALL '\1aDECL-GET 1 = TEM8>
1217                     <EQUAL? TEM8 PAT5 + PHRASE61>
1218                     <FRAME '\1aPRIMATCH>
1219                     <PUSH PTYP4>
1220                     <PUSH TEM8>
1221                     <DEAD TEM8>
1222                     <CALL '\1aPRIMATCH 2 = TEMP19>
1223                     <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE102>
1224 PHRASE61
1225                     <SET TEMP19 ORF9>
1226                     <DEAD ORF9>
1227                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE102>
1228                     <FRAME '\1aORSORT>
1229                     <FRAME '\1aFORM>
1230                     <PUSH 'OR>
1231                     <PUSH PTYP4>
1232                     <DEAD PTYP4>
1233                     <PUSH PAT5>
1234                     <DEAD PAT5>
1235                     <CALL '\1aFORM 3 = STACK>
1236                     <CALL '\1aORSORT 1 = TEMP19>
1237 PHRASE66
1238                     <RETURN TEMP19>
1239                     <DEAD TEMP19>
1240 PHRASE31
1241                     <TYPE? PAT5 <TYPE-CODE FORM> + TAG71>
1242                     <TYPE? PAT5 <TYPE-CODE SEGMENT> + TAG71>
1243                     <RETURN %<>>
1244 TAG71
1245                     <SET PAT16 PAT5>
1246                     <EMPL? PAT16 - TAG73>
1247                     <RETURN %<>>
1248 TAG73
1249                     <NTHL PAT16 1 = TEMP19>
1250                     <EQUAL? TEMP19 'OR - PHRASE75>
1251                     <FRAME '\1aACTORT>
1252                     <PUSH PAT5>
1253                     <DEAD PAT5>
1254                     <PUSH PTYP4>
1255                     <DEAD PTYP4>
1256                     <CALL '\1aACTORT 2 = TEMP19>
1257                     <RETURN TEMP19>
1258                     <DEAD TEMP19>
1259 PHRASE75
1260                     <EQUAL? TEMP19 'NOT - PHRASE77>
1261                     <DEAD TEMP19>
1262                     <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE79>
1263                     <DEAD ORF9>
1264                     <FRAME '\1aNOT-IT>
1265                     <PUSH PAT5>
1266                     <DEAD PAT5>
1267                     <PUSH PTYP4>
1268                     <DEAD PTYP4>
1269                     <CALL '\1aNOT-IT 2 = TEMP19>
1270                     <RETURN TEMP19>
1271                     <DEAD TEMP19>
1272 PHRASE79
1273                     <FRAME '\1aPRIMATCH>
1274                     <PUSH PTYP4>
1275                     <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
1276                     <DEAD PAT16>
1277                     <NTHL TEMP19 1 = STACK>
1278                     <DEAD TEMP19>
1279                     <CALL '\1aPRIMATCH 2 = TEM8>
1280                     <TYPE? TEM8 <TYPE-CODE FALSE> - PHRASE84>
1281                     <EMPL? TEM8 - PHRASE84 (TYPE FALSE)>
1282                     <RETURN PTYP4>
1283                     <DEAD PTYP4>
1284 PHRASE84
1285                     <TYPE? TEM8 <TYPE-CODE FALSE> - PHRASE86>
1286                     <RETURN TEM8>
1287                     <DEAD TEM8>
1288 PHRASE86
1289                     <TYPE? TEM8 <TYPE-CODE FORM> + TAG89>
1290                     <TYPE? TEM8 <TYPE-CODE SEGMENT> - TAG90>
1291 TAG89
1292                     <EMPL? TEM8 + TAG90>
1293                     <RESTL TEM8 1 = TEMP19 (TYPE LIST)>
1294                     <EMPL? TEMP19 + TAG90>
1295                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1296                     <EMPL? TEMP19 - TAG90>
1297                     <DEAD TEMP19>
1298                     <NTHL TEM8 1 = TEMP19>
1299                     <EQUAL? TEMP19 'PRIMTYPE - TAG90>
1300                     <DEAD TEMP19>
1301                     <RESTL TEM8 1 = TEMP19 (TYPE LIST)>
1302                     <DEAD TEM8>
1303                     <NTHL TEMP19 1 = TEMP19>
1304                     <RESTL PTYP4 1 = ANDF10 (TYPE LIST)>
1305                     <DEAD PTYP4>
1306                     <NTHL ANDF10 1 = ANDF10>
1307                     <EQUAL? TEMP19 ANDF10 - TAG90>
1308                     <DEAD TEMP19 ANDF10>
1309                     <RETURN %<>>
1310 TAG90
1311                     <RETURN 'ANY>
1312 PHRASE77
1313                     <FRAME '\1aPRIMATCH>
1314                     <PUSH PTYP4>
1315                     <DEAD PTYP4>
1316                     <NTHL PAT16 1 = STACK>
1317                     <CALL '\1aPRIMATCH 2 = TEM8>
1318                     <SET TEMP19 TEM8>
1319                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE102>
1320                     <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE94>
1321                     <DEAD ORF9>
1322                     <RETURN TEM8>
1323                     <DEAD TEM8>
1324 PHRASE94
1325                     <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE95>
1326                     <DEAD ANDF10>
1327                     <TYPE? PAT5 <TYPE-CODE FORM> - PHRASE97>
1328                     <DEAD PAT5>
1329                     <FRAME '\1aFORM>
1330                     <PUSH TEM8>
1331                     <DEAD TEM8>
1332                     <SET TEMP19 1 (TYPE FIX)>
1333                     <RESTL PAT16 1 = ANDF10 (TYPE LIST)>
1334                     <DEAD PAT16>
1335                     <CHTYPE ANDF10 <TYPE-CODE LIST> = ANDF10>
1336                     <LOOP (ANDF10 VALUE) (TEMP19 VALUE)>
1337 TAG99
1338                     <INTGO>
1339                     <EMPL? ANDF10 + TAG98>
1340                     <NTHL ANDF10 1 = STACK>
1341                     <RESTL ANDF10 1 = ANDF10 (TYPE LIST)>
1342                     <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
1343                     <JUMP + TAG99>
1344 TAG98
1345                     <CALL '\1aFORM TEMP19 = TEMP19>
1346                     <RETURN TEMP19>
1347                     <DEAD TEMP19>
1348 PHRASE97
1349                     <RESTL PAT16 1 = TEMP19 (TYPE LIST)>
1350                     <DEAD PAT16>
1351                     <CHTYPE TEMP19 <TYPE-CODE LIST> = TEMP19>
1352                     <CONS TEM8 TEMP19 = TEMP19>
1353                     <DEAD TEM8>
1354                     <CHTYPE TEMP19 <TYPE-CODE SEGMENT> = TEMP19>
1355                     <RETURN TEMP19>
1356                     <DEAD TEMP19>
1357 PHRASE95
1358                     <SET TEMP19 'T (TYPE ATOM)>
1359 PHRASE102
1360                     <RETURN TEMP19>
1361                     <DEAD TEMP19>
1362                     <END \1aPRIMATCH>
1363 "\f"
1364
1365 #WORD *34270304753*
1366 <GFCN \1aNOT-IT ("VALUE" ANY <OR FORM SEGMENT> ANY) NF4 PAT5>
1367                     <TEMP TEMP12 T16 TEMP46:FIX>
1368                     <INTGO>
1369                     <TYPE? PAT5 <TYPE-CODE FORM> + TAG10>
1370                     <TYPE? PAT5 <TYPE-CODE SEGMENT> - PHRASE8>
1371 TAG10
1372                     <EMPL? PAT5 + PHRASE8>
1373                     <NTHL PAT5 1 = TEMP12>
1374                     <EQUAL? TEMP12 'OR + BOOL11>
1375                     <DEAD TEMP12>
1376                     <NTHL PAT5 1 = TEMP12>
1377                     <EQUAL? TEMP12 'AND - PHRASE8>
1378                     <DEAD TEMP12>
1379 BOOL11
1380                     <FRAME '\1aACTORT>
1381                     <PUSH PAT5>
1382                     <DEAD PAT5>
1383                     <PUSH NF4>
1384                     <DEAD NF4>
1385                     <CALL '\1aACTORT 2 = TEMP12>
1386                     <RETURN TEMP12>
1387                     <DEAD TEMP12>
1388 PHRASE8
1389                     <EMPL? NF4 + PHRASE16>
1390                     <RESTL NF4 1 = TEMP12 (TYPE LIST)>
1391                     <EMPL? TEMP12 + PHRASE16>
1392                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
1393                     <EMPL? TEMP12 - PHRASE16>
1394                     <DEAD TEMP12>
1395                     <FRAME '\1aTYPE-AND>
1396                     <RESTL NF4 1 = TEMP12 (TYPE LIST)>
1397                     <NTHL TEMP12 1 = STACK>
1398                     <DEAD TEMP12>
1399                     <PUSH PAT5>
1400                     <CALL '\1aTYPE-AND 2 = T16>
1401                     <TYPE? T16 <TYPE-CODE FALSE> - PHRASE19>
1402                     <GEN-LVAL 'ORF = TEMP12>
1403                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE22>
1404                     <DEAD TEMP12>
1405                     <RETURN NF4>
1406                     <DEAD NF4>
1407 PHRASE22
1408                     <GEN-LVAL 'ANDF = TEMP12>
1409                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE25>
1410                     <DEAD TEMP12>
1411                     <RETURN PAT5>
1412                     <DEAD PAT5>
1413 PHRASE25
1414                     <RETURN 'T>
1415 PHRASE19
1416                     <RESTL NF4 1 = TEMP12 (TYPE LIST)>
1417                     <DEAD NF4>
1418                     <NTHL TEMP12 1 = TEMP12>
1419                     <EQUAL? TEMP12 'ANY - PHRASE29>
1420                     <DEAD TEMP12>
1421                     <GEN-LVAL 'ORF = TEMP12>
1422                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE59>
1423                     <RETURN PAT5>
1424                     <DEAD PAT5>
1425 PHRASE29
1426                     <FRAME '\1aVTS>
1427                     <PUSH T16>
1428                     <DEAD T16>
1429                     <CALL '\1aVTS 1 = T16>
1430                     <FRAME '\1aVTS>
1431                     <PUSH PAT5>
1432                     <DEAD PAT5>
1433                     <CALL '\1aVTS 1 = PAT5>
1434                     <EQUAL? T16 PAT5 - PHRASE34>
1435                     <GEN-LVAL 'ORF = TEMP12>
1436                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE59>
1437                     <RETURN 'ANY>
1438 PHRASE34
1439                     <TYPE? PAT5 <TYPE-CODE ATOM> - BOOL43>
1440                     <TYPE? T16 <TYPE-CODE ATOM> + BOOL42>
1441 BOOL43
1442                     <TYPE T16 = TEMP12>
1443                     <TYPE PAT5 = TEMP46>
1444                     <VEQUAL? TEMP12 TEMP46 - BOOL45 (TYPE FIX)>
1445                     <DEAD TEMP12 TEMP46>
1446                     <FRAME '\1aN=?>
1447                     <PUSH T16>
1448                     <PUSH PAT5>
1449                     <CALL '\1aN=? 2 = TEMP12>
1450                     <VEQUAL? TEMP12 0 + PHRASE41>
1451                     <DEAD TEMP12>
1452 BOOL45
1453                     <FRAME '\1aN=?>
1454                     <FRAME '\1aCANONICAL-DECL>
1455                     <PUSH PAT5>
1456                     <CALL '\1aCANONICAL-DECL 1 = STACK>
1457                     <FRAME '\1aCANONICAL-DECL>
1458                     <PUSH T16>
1459                     <DEAD T16>
1460                     <CALL '\1aCANONICAL-DECL 1 = STACK>
1461                     <CALL '\1aN=? 2 = TEMP12>
1462                     <VEQUAL? TEMP12 0 + PHRASE41>
1463                     <DEAD TEMP12>
1464 BOOL42
1465                     <GEN-LVAL 'ANDF = TEMP12>
1466                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE52>
1467                     <DEAD TEMP12>
1468                     <RETURN PAT5>
1469                     <DEAD PAT5>
1470 PHRASE52
1471                     <GEN-LVAL 'ORF = TEMP12>
1472                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE55>
1473                     <DEAD TEMP12>
1474                     <RETURN 'ANY>
1475 PHRASE55
1476                     <RETURN 'T>
1477 PHRASE41
1478                     <GEN-LVAL 'ORF = TEMP12>
1479                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE62>
1480                     <SET TEMP12 'ANY (TYPE ATOM)>
1481 PHRASE59
1482                     <RETURN TEMP12>
1483                     <DEAD TEMP12>
1484 PHRASE16
1485                     <SET TEMP12 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
1486 PHRASE62
1487                     <RETURN TEMP12>
1488                     <DEAD TEMP12>
1489                     <END \1aNOT-IT>
1490 #WORD *13126141067*
1491 <GFCN \1aNOTIFY ("VALUE" ANY ANY) D4>
1492                     <TEMP TEMP9>
1493                     <INTGO>
1494                     <TYPE? D4 <TYPE-CODE FORM> + TAG8>
1495                     <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE6>
1496 TAG8
1497                     <EMPL? D4 + PHRASE6>
1498                     <RESTL D4 1 = TEMP9 (TYPE LIST)>
1499                     <EMPL? TEMP9 + PHRASE6>
1500                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1501                     <EMPL? TEMP9 - PHRASE6>
1502                     <DEAD TEMP9>
1503                     <NTHL D4 1 = TEMP9>
1504                     <EQUAL? TEMP9 'NOT - PHRASE6>
1505                     <DEAD TEMP9>
1506                     <RESTL D4 1 = TEMP9 (TYPE LIST)>
1507                     <DEAD D4>
1508                     <NTHL TEMP9 1 = TEMP9>
1509                     <RETURN TEMP9>
1510                     <DEAD TEMP9>
1511 PHRASE6
1512                     <FRAME '\1aFORM>
1513                     <PUSH 'NOT>
1514                     <PUSH D4>
1515                     <DEAD D4>
1516                     <CALL '\1aFORM 2 = TEMP9>
1517                     <RETURN TEMP9>
1518                     <DEAD TEMP9>
1519                     <END \1aNOTIFY>
1520 "\f"
1521
1522 #WORD *10645163361*
1523 <GFCN \1aFORMATCH ("VALUE" ANY <OR <FORM ANY> <SEGMENT ANY>> <OR ATOM FORM LIST SEGMENT VECTOR FIX>) FRM4 RPAT5>
1524                     <TEMP PAT7 EX8 ORF9 ANDF10 TEMP18 TEM6>
1525                     <INTGO>
1526                     <SET PAT7 RPAT5>
1527                     <GEN-LVAL 'ORF = ORF9>
1528                     <GEN-LVAL 'ANDF = ANDF10>
1529                     <TYPE? RPAT5 <TYPE-CODE ATOM> - PHRASE16>
1530                     <NTHL FRM4 1 = TEMP18>
1531                     <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE16>
1532                     <DEAD TEMP18>
1533                     <NTHL FRM4 1 = TEMP18 (TYPE ATOM)>
1534                     <VEQUAL? TEMP18 RPAT5 - PHRASE16>
1535                     <DEAD TEMP18>
1536                     <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE20>
1537                     <DEAD ORF9>
1538                     <RETURN RPAT5>
1539                     <DEAD RPAT5>
1540 PHRASE20
1541                     <RETURN FRM4>
1542                     <DEAD FRM4>
1543 PHRASE16
1544                     <TYPE? RPAT5 <TYPE-CODE ATOM> - PHRASE24>
1545                     <FRAME '\1aDECL-GET>
1546                     <PUSH RPAT5>
1547                     <PUSH RPAT5>
1548                     <CALL '\1aDECL-GET 2 = EX8>
1549                     <SET PAT7 EX8>
1550                     <JUMP + PHRASE26>
1551 PHRASE24
1552                     <NTH1 PAT7 = RPAT5>
1553 PHRASE26
1554                     <TYPE? PAT7 <TYPE-CODE ATOM> - PHRASE28>
1555                     <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE30>
1556                     <FRAME '\1aCTMATCH>
1557                     <PUSH PAT7>
1558                     <NTHL FRM4 1 = STACK>
1559                     <PUSH %<>>
1560                     <PUSH %<>>
1561                     <PUSH 'T>
1562                     <CALL '\1aCTMATCH 5 = TEMP18>
1563                     <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE30>
1564                     <DEAD TEMP18>
1565                     <FRAME '\1aORSORT>
1566                     <FRAME '\1aFORM>
1567                     <PUSH 'OR>
1568                     <PUSH RPAT5>
1569                     <DEAD RPAT5>
1570                     <PUSH FRM4>
1571                     <CALL '\1aFORM 3 = STACK>
1572                     <CALL '\1aORSORT 1 = TEM6>
1573                     <JUMP + PHRASE40>
1574 PHRASE30
1575                     <NTHL FRM4 1 = TEMP18>
1576                     <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE38>
1577                     <DEAD TEMP18>
1578                     <FRAME '\1aTYPMAT>
1579                     <NTHL FRM4 1 = STACK (TYPE ATOM)>
1580                     <PUSH PAT7>
1581                     <DEAD PAT7>
1582                     <CALL '\1aTYPMAT 2 = TEM6>
1583                     <JUMP + PHRASE40>
1584 PHRASE38
1585                     <NTHL FRM4 1 = TEMP18>
1586                     <TYPE? TEMP18 <TYPE-CODE FORM> + TAG41>
1587                     <DEAD TEMP18>
1588                     <SET TEM6 %<> (TYPE FALSE)>
1589                     <JUMP + PHRASE40>
1590 TAG41
1591                     <FRAME '\1aACTORT>
1592                     <NTHL FRM4 1 = STACK (TYPE FORM)>
1593                     <PUSH PAT7>
1594                     <DEAD PAT7>
1595                     <CALL '\1aACTORT 2 = TEM6>
1596 PHRASE40
1597                     <TYPE? ANDF10 <TYPE-CODE FALSE> + PHRASE45>
1598                     <DEAD ANDF10>
1599                     <TYPE? ORF9 <TYPE-CODE FALSE> - PHRASE45>
1600                     <DEAD ORF9>
1601                     <TYPE? TEM6 <TYPE-CODE FALSE> + PHRASE45>
1602                     <TYPE? FRM4 <TYPE-CODE FORM> - PHRASE48>
1603                     <RESTL FRM4 1 = TEMP18 (TYPE LIST)>
1604                     <DEAD FRM4>
1605                     <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
1606                     <CONS TEM6 TEMP18 = TEMP18>
1607                     <DEAD TEM6>
1608                     <CHTYPE TEMP18 <TYPE-CODE FORM> = TEMP18>
1609                     <RETURN TEMP18>
1610                     <DEAD TEMP18>
1611 PHRASE48
1612                     <RESTL FRM4 1 = TEMP18 (TYPE LIST)>
1613                     <DEAD FRM4>
1614                     <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
1615                     <CONS TEM6 TEMP18 = TEMP18>
1616                     <DEAD TEM6>
1617                     <CHTYPE TEMP18 <TYPE-CODE SEGMENT> = TEMP18>
1618                     <RETURN TEMP18>
1619                     <DEAD TEMP18>
1620 PHRASE45
1621                     <RETURN TEM6>
1622                     <DEAD TEM6>
1623 PHRASE28
1624                     <TYPE? PAT7 <TYPE-CODE FORM> + TAG52>
1625                     <TYPE? PAT7 <TYPE-CODE SEGMENT> + TAG52>
1626                     <RETURN %<>>
1627 TAG52
1628                     <NTHL PAT7 1 = TEM6>
1629                     <EQUAL? TEM6 'OR + BOOL56>
1630                     <EQUAL? TEM6 'AND + BOOL56>
1631                     <EQUAL? TEM6 'NOT + BOOL56>
1632                     <EQUAL? TEM6 'PRIMTYPE - PHRASE55>
1633                     <DEAD TEM6>
1634 BOOL56
1635                     <FRAME '\1aACTORT>
1636                     <PUSH PAT7>
1637                     <DEAD PAT7>
1638                     <PUSH FRM4>
1639                     <DEAD FRM4>
1640                     <CALL '\1aACTORT 2 = TEMP18>
1641                     <RETURN TEMP18>
1642                     <DEAD TEMP18>
1643 PHRASE55
1644                     <EMPL? PAT7 + PHRASE60>
1645                     <RESTL PAT7 1 = TEMP18 (TYPE LIST)>
1646                     <EMPL? TEMP18 + PHRASE60>
1647                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1648                     <EMPL? TEMP18 - PHRASE60>
1649                     <DEAD TEMP18>
1650                     <RESTL PAT7 1 = TEMP18 (TYPE LIST)>
1651                     <NTHL TEMP18 1 = TEMP18>
1652                     <TYPE? TEMP18 <TYPE-CODE LIST> - PHRASE60>
1653                     <DEAD TEMP18>
1654                     <FRAME '\1aWRDFX>
1655                     <PUSH PAT7>
1656                     <DEAD PAT7>
1657                     <PUSH FRM4>
1658                     <DEAD FRM4>
1659                     <PUSH RPAT5>
1660                     <DEAD RPAT5>
1661                     <CALL '\1aWRDFX 3 = TEMP18>
1662                     <RETURN TEMP18>
1663                     <DEAD TEMP18>
1664 PHRASE60
1665                     <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE63>
1666                     <TYPE? EX8 <TYPE-CODE UNBOUND> + PHRASE63>
1667                     <FRAME '\1aCTMATCH>
1668                     <PUSH RPAT5>
1669                     <PUSH FRM4>
1670                     <PUSH %<>>
1671                     <PUSH %<>>
1672                     <PUSH 'T>
1673                     <CALL '\1aCTMATCH 5 = TEMP18>
1674                     <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE63>
1675                     <DEAD TEMP18>
1676                     <FRAME '\1aORSORT>
1677                     <FRAME '\1aFORM>
1678                     <PUSH 'OR>
1679                     <PUSH RPAT5>
1680                     <DEAD RPAT5>
1681                     <PUSH FRM4>
1682                     <DEAD FRM4>
1683                     <CALL '\1aFORM 3 = STACK>
1684                     <CALL '\1aORSORT 1 = TEMP18>
1685                     <RETURN TEMP18>
1686                     <DEAD TEMP18>
1687 PHRASE63
1688                     <TYPE? ORF9 <TYPE-CODE FALSE> + PHRASE68>
1689                     <DEAD ORF9>
1690                     <FRAME '\1aCTMATCH>
1691                     <PUSH PAT7>
1692                     <PUSH FRM4>
1693                     <PUSH %<>>
1694                     <PUSH %<>>
1695                     <PUSH 'T>
1696                     <CALL '\1aCTMATCH 5 = TEMP18>
1697                     <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE68>
1698                     <DEAD TEMP18>
1699                     <FRAME '\1aORSORT>
1700                     <FRAME '\1aFORM>
1701                     <PUSH 'OR>
1702                     <PUSH PAT7>
1703                     <DEAD PAT7>
1704                     <PUSH FRM4>
1705                     <DEAD FRM4>
1706                     <CALL '\1aFORM 3 = STACK>
1707                     <CALL '\1aORSORT 1 = TEMP18>
1708                     <RETURN TEMP18>
1709                     <DEAD TEMP18>
1710 PHRASE68
1711                     <FRAME '\1aELETYPE>
1712                     <PUSH PAT7>
1713                     <DEAD PAT7>
1714                     <PUSH FRM4>
1715                     <DEAD FRM4>
1716                     <PUSH RPAT5>
1717                     <CALL '\1aELETYPE 3 = TEM6>
1718                     <TYPE? EX8 <TYPE-CODE UNBOUND> + MAPAP81>
1719                     <TYPE? TEM6 <TYPE-CODE FORM> + TAG76>
1720                     <TYPE? TEM6 <TYPE-CODE SEGMENT> - MAPAP81>
1721 TAG76
1722                     <EMPL? TEM6 + MAPAP81>
1723                     <RESTL TEM6 1 = TEMP18 (TYPE LIST)>
1724                     <EMPL? TEMP18 + MAPAP81>
1725                     <DEAD TEMP18>
1726                     <NTHL TEM6 1 = TEMP18>
1727                     <EQUAL? TEMP18 'OR - MAPAP81>
1728                     <DEAD TEMP18>
1729                     <RESTL TEM6 1 = ORF9 (TYPE LIST)>
1730                     <CHTYPE ORF9 <TYPE-CODE LIST> = ORF9>
1731                     <LOOP>
1732 MAP78
1733                     <INTGO>
1734                     <EMPL? ORF9 + MAPAP81>
1735                     <SET ANDF10 ORF9>
1736                     <FRAME '\1a=?>
1737                     <NTHL ANDF10 1 = STACK>
1738                     <PUSH EX8>
1739                     <CALL '\1a=? 2 = PAT7>
1740                     <VEQUAL? PAT7 0 + BOOL89>
1741                     <DEAD PAT7>
1742                     <PUTL ANDF10 1 RPAT5>
1743                     <DEAD ANDF10 RPAT5>
1744                     <JUMP + MAPAP81>
1745 BOOL89
1746                     <RESTL ORF9 1 = ORF9 (TYPE LIST)>
1747                     <JUMP + MAP78>
1748 MAPAP81
1749                     <RETURN TEM6>
1750                     <DEAD TEM6>
1751                     <END \1aFORMATCH>\r\r
1752 "\f"
1753
1754 #WORD *16572067077*
1755 <GFCN \1aFOSE ("VALUE" <OR FORM SEGMENT> "TUPLE" ANY)>
1756                     <MAKTUP TUP4 FLG5 TEMP12 TEMP13 = TUP4>
1757                     <INTGO>
1758                     <NTHUV TUP4 1 = FLG5>
1759                     <TYPE? FLG5 <TYPE-CODE FALSE> + PHRASE7>
1760                     <DEAD FLG5>
1761                     <RESTUV TUP4 1 = FLG5 (TYPE VECTOR)>
1762                     <DEAD TUP4>
1763                     <CHTYPE FLG5 <TYPE-CODE VECTOR> = FLG5>
1764                     <SET TUP4 () (TYPE LIST)>
1765                     <EMPUV? FLG5 + TAG9>
1766                     <NTHUV FLG5 1 = TEMP12>
1767                     <CONS TEMP12 () = TEMP12>
1768                     <SET TUP4 TEMP12>
1769                     <RESTUV FLG5 1 = FLG5 (TYPE VECTOR)>
1770                     <EMPUV? FLG5 + TAG9>
1771                     <LOOP (FLG5 VALUE LENGTH) (TEMP12 VALUE)>
1772 TAG8
1773                     <NTHUV FLG5 1 = TEMP13>
1774                     <CONS TEMP13 () = TEMP13>
1775                     <PUTREST TEMP12 TEMP13>
1776                     <DEAD TEMP12>
1777                     <SET TEMP12 TEMP13>
1778                     <DEAD TEMP13>
1779                     <RESTUV FLG5 1 = FLG5 (TYPE VECTOR)>
1780                     <EMPUV? FLG5 - TAG8>
1781 TAG9
1782                     <CHTYPE TUP4 <TYPE-CODE SEGMENT> = TUP4>
1783                     <RETURN TUP4>
1784                     <DEAD TUP4>
1785 PHRASE7
1786                     <RESTUV TUP4 1 = TEMP12 (TYPE VECTOR)>
1787                     <DEAD TUP4>
1788                     <CHTYPE TEMP12 <TYPE-CODE VECTOR> = TEMP12>
1789                     <SET FLG5 () (TYPE LIST)>
1790                     <EMPUV? TEMP12 + TAG16>
1791                     <NTHUV TEMP12 1 = TEMP13>
1792                     <CONS TEMP13 () = TEMP13>
1793                     <SET FLG5 TEMP13>
1794                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
1795                     <EMPUV? TEMP12 + TAG16>
1796                     <LOOP (TEMP12 VALUE LENGTH) (TEMP13 VALUE)>
1797 TAG15
1798                     <NTHUV TEMP12 1 = TUP4>
1799                     <CONS TUP4 () = TUP4>
1800                     <PUTREST TEMP13 TUP4>
1801                     <DEAD TEMP13>
1802                     <SET TEMP13 TUP4>
1803                     <DEAD TUP4>
1804                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
1805                     <EMPUV? TEMP12 - TAG15>
1806 TAG16
1807                     <CHTYPE FLG5 <TYPE-CODE FORM> = TUP4>
1808                     <DEAD FLG5>
1809                     <RETURN TUP4>
1810                     <DEAD TUP4>
1811                     <END \1aFOSE>
1812 #WORD *4163561316*
1813 <GFCN \1aSEGANDOR ("VALUE" <OR ATOM FALSE> ANY ANY ANY) F14 F25 ORF6>
1814                     <TEMP TEMP12>
1815                     <INTGO>
1816                     <FRAME '\1aREAL-SEG?>
1817                     <PUSH F14>
1818                     <DEAD F14>
1819                     <CALL '\1aREAL-SEG? 1 = F14>
1820                     <FRAME '\1aREAL-SEG?>
1821                     <PUSH F25>
1822                     <DEAD F25>
1823                     <CALL '\1aREAL-SEG? 1 = F25>
1824                     <TYPE? ORF6 <TYPE-CODE FALSE> + PHRASE10>
1825                     <DEAD ORF6>
1826                     <TYPE? F14 <TYPE-CODE SEGMENT> + TAG13>
1827                     <DEAD F14>
1828                     <RETURN %<>>
1829 TAG13
1830                     <TYPE? F25 <TYPE-CODE SEGMENT> - TAG16>
1831                     <DEAD F25>
1832                     <RETURN 'SEGMENT>
1833 TAG16
1834                     <RETURN %<>>
1835 PHRASE10
1836                     <TYPE? F14 <TYPE-CODE SEGMENT> - TAG21>
1837                     <DEAD F14>
1838                     <RETURN 'SEGMENT>
1839 TAG21
1840                     <TYPE? F25 <TYPE-CODE SEGMENT> - TAG23>
1841                     <DEAD F25>
1842                     <RETURN 'SEGMENT>
1843 TAG23
1844                     <RETURN %<>>
1845                     <END \1aSEGANDOR>
1846 #WORD *15017737110*
1847 <GFCN \1aREAL-SEG? ("VALUE" ANY ANY) F4>
1848                     <TEMP TEMP9 LAST5>
1849                     <INTGO>
1850                     <TYPE? F4 <TYPE-CODE SEGMENT> - PHRASE7>
1851                     <EMPL? F4 + PHRASE7>
1852                     <RESTL F4 1 = TEMP9 (TYPE LIST)>
1853                     <EMPL? TEMP9 + PHRASE7>
1854                     <DEAD TEMP9>
1855                     <SET LAST5 F4>
1856                     <LOOP (LAST5 VALUE)>
1857 TAG10
1858                     <RESTL LAST5 1 = TEMP9 (TYPE LIST)>
1859                     <EMPL? TEMP9 + TAG11>
1860                     <SET LAST5 TEMP9>
1861                     <DEAD TEMP9>
1862                     <JUMP + TAG10>
1863 TAG11
1864                     <NTHL LAST5 1 = LAST5>
1865                     <TYPE? LAST5 <TYPE-CODE VECTOR> - PHRASE7>
1866                     <NTHUV LAST5 1 = TEMP9>
1867                     <DEAD LAST5>
1868                     <EQUAL? TEMP9 'REST - PHRASE7>
1869                     <DEAD TEMP9>
1870                     <CHTYPE F4 <TYPE-CODE FORM> = TEMP9>
1871                     <DEAD F4>
1872                     <RETURN TEMP9>
1873                     <DEAD TEMP9>
1874 PHRASE7
1875                     <RETURN F4>
1876                     <DEAD F4>
1877                     <END \1aREAL-SEG?>
1878 #WORD *34770515377*
1879 <GFCN \1aWRDFX ("VALUE" ANY <OR FORM SEGMENT> <OR FORM SEGMENT> ANY) F114 F225 RPAT6>
1880                     <TEMP F17 F28:FORM TEMP18 FST9 TEMP44:FIX>
1881                     <INTGO>
1882                     <CHTYPE F114 <TYPE-CODE FORM> = F17>
1883                     <CHTYPE F225 <TYPE-CODE FORM> = F28>
1884                     <TYPE? RPAT6 <TYPE-CODE ATOM> - PHRASE15>
1885                     <NTHL F28 1 = TEMP18>
1886                     <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE17>
1887                     <DEAD TEMP18>
1888                     <FRAME '\1aTYPMAT>
1889                     <NTHL F28 1 = STACK (TYPE ATOM)>
1890                     <PUSH RPAT6>
1891                     <CALL '\1aTYPMAT 2 = FST9>
1892                     <JUMP + PHRASE25>
1893 PHRASE17
1894                     <NTHL F28 1 = TEMP18>
1895                     <TYPE? TEMP18 <TYPE-CODE FORM> - PHRASE20>
1896                     <DEAD TEMP18>
1897                     <FRAME '\1aACTORT>
1898                     <NTHL F28 1 = STACK (TYPE FORM)>
1899                     <PUSH RPAT6>
1900                     <CALL '\1aACTORT 2 = FST9>
1901                     <JUMP + PHRASE25>
1902 PHRASE20
1903                     <SET FST9 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
1904                     <JUMP + PHRASE25>
1905 PHRASE15
1906                     <TYPE? RPAT6 <TYPE-CODE FORM> - PHRASE23>
1907                     <FRAME '\1aACTORT>
1908                     <PUSH RPAT6>
1909                     <NTHL F28 1 = STACK>
1910                     <CALL '\1aACTORT 2 = FST9>
1911                     <JUMP + PHRASE25>
1912 PHRASE23
1913                     <SET FST9 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
1914 PHRASE25
1915                     <TYPE? FST9 <TYPE-CODE FALSE> - PHRASE27>
1916                     <RETURN FST9>
1917                     <DEAD FST9>
1918 PHRASE27
1919                     <FRAME '\1aCTMATCH>
1920                     <PUSH RPAT6>
1921                     <DEAD RPAT6>
1922                     <GVAL 'ALLWORDS = STACK>
1923                     <PUSH %<>>
1924                     <PUSH %<>>
1925                     <PUSH %<>>
1926                     <CALL '\1aCTMATCH 5 = TEMP18>
1927                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE30>
1928                     <DEAD TEMP18>
1929                     <EMPL? F28 + PHRASE34>
1930                     <RESTL F28 1 = TEMP18 (TYPE LIST)>
1931                     <EMPL? TEMP18 + PHRASE34>
1932                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1933                     <EMPL? TEMP18 - PHRASE34>
1934                     <DEAD TEMP18>
1935                     <RESTL F28 1 = TEMP18 (TYPE LIST)>
1936                     <NTHL TEMP18 1 = TEMP18>
1937                     <TYPE? TEMP18 <TYPE-CODE LIST> - PHRASE34>
1938                     <DEAD TEMP18>
1939                     <FRAME '\1aCTMATCH>
1940                     <NTHL F28 1 = STACK>
1941                     <GVAL 'ALLWORDS = STACK>
1942                     <PUSH %<>>
1943                     <PUSH %<>>
1944                     <PUSH %<>>
1945                     <CALL '\1aCTMATCH 5 = TEMP18>
1946                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE37>
1947                     <DEAD TEMP18>
1948                     <GEN-LVAL 'ORF = TEMP18>
1949                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE40>
1950                     <DEAD TEMP18>
1951                     <FRAME '\1aMAP-MERGE>
1952                     <SET TEMP44 0 (TYPE FIX)>
1953                     <RESTL F17 1 = TEMP18 (TYPE LIST)>
1954                     <DEAD F17>
1955                     <NTHL TEMP18 1 = TEMP18>
1956                     <LOOP (TEMP18 TYPE VALUE LENGTH) (TEMP44 VALUE)>
1957 TAG46
1958                     <INTGO>
1959                     <EMPTY? TEMP18 + TAG43>
1960                     <NTH1 TEMP18 = STACK>
1961                     <REST1 TEMP18 = TEMP18>
1962                     <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
1963                     <JUMP + TAG46>
1964 TAG43
1965                     <RESTL F28 1 = TEMP18 (TYPE LIST)>
1966                     <DEAD F28>
1967                     <NTHL TEMP18 1 = TEMP18>
1968                     <LOOP (TEMP18 TYPE VALUE LENGTH) (TEMP44 VALUE)>
1969 TAG48
1970                     <INTGO>
1971                     <EMPTY? TEMP18 + TAG47>
1972                     <NTH1 TEMP18 = STACK>
1973                     <REST1 TEMP18 = TEMP18>
1974                     <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
1975                     <JUMP + TAG48>
1976 TAG47
1977                     <CALL '\1aMAP-MERGE TEMP44 = F17>
1978                     <DEAD TEMP44>
1979                     <EMPL? F17 - PHRASE51 (TYPE LIST)>
1980                     <RETURN FST9>
1981                     <DEAD FST9>
1982 PHRASE51
1983                     <FRAME '\1aFORM>
1984                     <PUSH FST9>
1985                     <DEAD FST9>
1986                     <PUSH F17>
1987                     <DEAD F17>
1988                     <CALL '\1aFORM 2 = TEMP18>
1989                     <RETURN TEMP18>
1990                     <DEAD TEMP18>
1991 PHRASE40
1992                     <FRAME '\1aAND-MERGE>
1993                     <RESTL F17 1 = TEMP18 (TYPE LIST)>
1994                     <DEAD F17>
1995                     <NTHL TEMP18 1 = STACK (TYPE LIST)>
1996                     <DEAD TEMP18>
1997                     <RESTL F28 1 = TEMP18 (TYPE LIST)>
1998                     <DEAD F28>
1999                     <NTHL TEMP18 1 = STACK (TYPE LIST)>
2000                     <DEAD TEMP18>
2001                     <CALL '\1aAND-MERGE 2 = F17>
2002                     <SET TEMP18 F17>
2003                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE66>
2004                     <FRAME '\1aFORM>
2005                     <PUSH FST9>
2006                     <DEAD FST9>
2007                     <PUSH F17>
2008                     <DEAD F17>
2009                     <CALL '\1aFORM 2 = TEMP18>
2010                     <RETURN TEMP18>
2011                     <DEAD TEMP18>
2012 PHRASE37
2013                     <RETURN #FALSE (BAD-SYNTAX!-ERRORS)>
2014 PHRASE34
2015                     <GEN-LVAL 'ORF = TEMP18>
2016                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE60>
2017                     <DEAD TEMP18>
2018                     <FRAME '\1aORSORT>
2019                     <FRAME '\1aFORM>
2020                     <PUSH 'OR>
2021                     <PUSH F114>
2022                     <DEAD F114>
2023                     <PUSH F225>
2024                     <DEAD F225>
2025                     <CALL '\1aFORM 3 = STACK>
2026                     <CALL '\1aORSORT 1 = TEMP18>
2027                     <RETURN TEMP18>
2028                     <DEAD TEMP18>
2029 PHRASE60
2030                     <RETURN %<>>
2031 PHRASE30
2032                     <SET TEMP18 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
2033 PHRASE66
2034                     <RETURN TEMP18>
2035                     <DEAD TEMP18>
2036                     <END \1aWRDFX>
2037 #WORD *2512630615*
2038 <GFCN \1aMAP-MERGE ("VALUE" LIST "TUPLE" <<PRIMTYPE VECTOR> [REST FIX]>)>
2039                     <MAKTUP PAIRS4 HIGH5:FIX LOW6:FIX TEMP12:FIX = PAIRS4>
2040                     <INTGO>
2041                     <NTHUV PAIRS4 2 = HIGH5 (TYPE FIX)>
2042                     <NTHUV PAIRS4 1 = LOW6 (TYPE FIX)>
2043                     <LOOP>
2044 AGAIN9
2045                     <INTGO>
2046                     <RESTUV PAIRS4 2 = PAIRS4 (TYPE VECTOR)>
2047                     <CHTYPE PAIRS4 <TYPE-CODE VECTOR> = PAIRS4>
2048                     <EMPUV? PAIRS4 + EXIT7 (TYPE VECTOR)>
2049                     <NTHUV PAIRS4 2 = TEMP12 (TYPE FIX)>
2050                     <LESS? TEMP12 HIGH5 - TAG13>
2051                     <SET TEMP12 HIGH5 (TYPE FIX)>
2052                     <DEAD HIGH5>
2053 TAG13
2054                     <SET HIGH5 TEMP12>
2055                     <DEAD TEMP12>
2056                     <NTHUV PAIRS4 1 = TEMP12 (TYPE FIX)>
2057                     <GRTR? TEMP12 LOW6 - TAG15>
2058                     <SET TEMP12 LOW6 (TYPE FIX)>
2059                     <DEAD LOW6>
2060 TAG15
2061                     <SET LOW6 TEMP12>
2062                     <DEAD TEMP12>
2063                     <JUMP + AGAIN9>
2064 EXIT7
2065                     <VEQUAL? HIGH5 %<CHTYPE <MIN> FIX> - PHRASE17 (TYPE FIX)>
2066                     <VEQUAL? LOW6 %<CHTYPE <MAX> FIX> - PHRASE17 (TYPE FIX)>
2067                     <RETURN ()>
2068 PHRASE17
2069                     <CONS HIGH5 () = PAIRS4>
2070                     <DEAD HIGH5>
2071                     <CONS LOW6 PAIRS4 = PAIRS4>
2072                     <DEAD LOW6>
2073                     <RETURN PAIRS4>
2074                     <DEAD PAIRS4>
2075                     <END \1aMAP-MERGE>
2076 #WORD *3603653053*
2077 <GFCN \1aAND-MERGE ("VALUE" <OR !<FALSE> <LIST [REST FIX]>> <LIST [REST FIX]> <LIST [REST FIX]>) L14 L25>
2078                     <TEMP (FLG6 %<>) L10:LIST LL11:LIST TEMP14 TEMP15:FIX TEM9:LIST HI22:FIX TEMP26 LO21:FIX>
2079                     <INTGO>
2080                     <CONS 0 () = L10>
2081                     <SET LL11 L10>
2082                     <LENL L14 = TEMP14 (TYPE FIX)>
2083                     <LENL L25 = TEMP15 (TYPE FIX)>
2084                     <GRTR? TEMP14 TEMP15 - PHRASE13 (TYPE FIX)>
2085                     <DEAD TEMP14 TEMP15>
2086                     <SET TEM9 L14>
2087                     <DEAD L14>
2088                     <SET L14 L25>
2089                     <DEAD L25>
2090                     <SET L25 TEM9>
2091                     <DEAD TEM9>
2092 PHRASE13
2093                     <LOOP>
2094 AGAIN17
2095                     <INTGO>
2096                     <NTHL L25 1 = TEMP14 (TYPE FIX)>
2097                     <RESTL L25 1 = TEM9 (TYPE LIST)>
2098                     <NTHL TEM9 1 = TEMP15 (TYPE FIX)>
2099                     <DEAD TEM9>
2100                     <SET TEM9 L14>
2101                     <LOOP>
2102 AGAIN23
2103                     <INTGO>
2104                     <EMPL? TEM9 + EXIT19 (TYPE LIST)>
2105                     <RESTL TEM9 1 = TEMP26 (TYPE LIST)>
2106                     <NTHL TEMP26 1 = HI22 (TYPE FIX)>
2107                     <DEAD TEMP26>
2108                     <NTHL TEM9 1 = LO21 (TYPE FIX)>
2109                     <LESS? LO21 TEMP14 + BOOL30 (TYPE FIX)>
2110                     <GRTR? LO21 TEMP15 - BOOL29 (TYPE FIX)>
2111 BOOL30
2112                     <GRTR? HI22 TEMP15 + BOOL31 (TYPE FIX)>
2113                     <LESS? HI22 TEMP14 - BOOL29 (TYPE FIX)>
2114 BOOL31
2115                     <LESS? TEMP14 LO21 + BOOL32 (TYPE FIX)>
2116                     <GRTR? TEMP14 HI22 - BOOL29 (TYPE FIX)>
2117 BOOL32
2118                     <GRTR? TEMP15 HI22 + PHRASE28 (TYPE FIX)>
2119                     <LESS? TEMP15 LO21 + PHRASE28 (TYPE FIX)>
2120 BOOL29
2121                     <SET TEMP26 TEMP14>
2122                     <DEAD TEMP14>
2123                     <LESS? TEMP26 LO21 - TAG34>
2124                     <SET TEMP26 LO21 (TYPE FIX)>
2125                     <DEAD LO21>
2126 TAG34
2127                     <SET TEMP14 TEMP26>
2128                     <DEAD TEMP26>
2129                     <GRTR? TEMP15 HI22 - TAG36>
2130                     <SET TEMP15 HI22 (TYPE FIX)>
2131                     <DEAD HI22>
2132 TAG36
2133                     <CONS TEMP15 () = TEM9>
2134                     <DEAD TEMP15>
2135                     <CONS TEMP14 TEM9 = TEM9>
2136                     <DEAD TEMP14>
2137                     <PUTREST L10 TEM9>
2138                     <DEAD TEM9>
2139                     <RESTL L10 1 = L10 (TYPE LIST)>
2140                     <RESTL L10 1 = L10 (TYPE LIST)>
2141                     <SET FLG6 'T (TYPE ATOM)>
2142                     <JUMP + EXIT19>
2143 PHRASE28
2144                     <RESTL TEM9 1 = TEM9 (TYPE LIST)>
2145                     <RESTL TEM9 1 = TEM9 (TYPE LIST)>
2146                     <JUMP + AGAIN23>
2147 EXIT19
2148                     <RESTL L25 1 = L25 (TYPE LIST)>
2149                     <RESTL L25 1 = L25 (TYPE LIST)>
2150                     <EMPL? L25 - AGAIN17 (TYPE LIST)>
2151                     <VEQUAL? FLG6 0 + PHRASE41>
2152                     <DEAD FLG6>
2153                     <RESTL LL11 1 = TEMP14 (TYPE LIST)>
2154                     <DEAD LL11>
2155                     <RETURN TEMP14>
2156                     <DEAD TEMP14>
2157 PHRASE41
2158                     <RETURN %<>>
2159                     <END \1aAND-MERGE>
2160 "\f"
2161
2162 #WORD *33403367740*
2163 <GFCN \1aGET-RANGE ("VALUE" <OR FALSE <LIST ANY>> ANY) L14>
2164                     <TEMP TEMP8 TEMP20:FIX>
2165                     <INTGO>
2166                     <TYPE? L14 <TYPE-CODE FORM> + TAG10>
2167                     <RETURN %<>>
2168 TAG10
2169                     <FRAME '\1aTMATCH>
2170                     <PUSH L14>
2171                     <GVAL 'ALLWORDS = STACK>
2172                     <CALL '\1aTMATCH 2 = TEMP8>
2173                     <TYPE? TEMP8 <TYPE-CODE FALSE> + TAG18>
2174                     <RESTL L14 1 = TEMP8 (TYPE LIST)>
2175                     <NTHL TEMP8 1 = TEMP8>
2176                     <TYPE? TEMP8 <TYPE-CODE LIST> + TAG14>
2177                     <DEAD TEMP8>
2178                     <RETURN %<>>
2179 TAG14
2180                     <FRAME '\1aMAP-MERGE>
2181                     <SET TEMP20 0 (TYPE FIX)>
2182                     <RESTL L14 1 = TEMP8 (TYPE LIST)>
2183                     <DEAD L14>
2184                     <NTHL TEMP8 1 = TEMP8 (TYPE LIST)>
2185                     <LOOP (TEMP8 VALUE) (TEMP20 VALUE)>
2186 TAG22
2187                     <INTGO>
2188                     <EMPL? TEMP8 + TAG19>
2189                     <NTHL TEMP8 1 = STACK>
2190                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
2191                     <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
2192                     <JUMP + TAG22>
2193 TAG19
2194                     <CALL '\1aMAP-MERGE TEMP20 = TEMP8>
2195                     <DEAD TEMP20>
2196                     <EMPL? TEMP8 - TAG18 (TYPE LIST)>
2197                     <RETURN %<>>
2198 TAG18
2199                     <RETURN TEMP8>
2200                     <DEAD TEMP8>
2201                     <END \1aGET-RANGE>
2202 "\f"
2203
2204 #WORD *15261512131*
2205 <GFCN \1aELETYPE ("VALUE" ANY <PRIMTYPE LIST> <PRIMTYPE LIST> ANY) F14 F25 RTYP6>
2206                     <TEMP S17:VECTOR (FAIL8 %<>) S29:VECTOR (FL10:LIST ()) (FP11 <>) (INOPT12 %<>) ORF16 ANDF17 SEGF14 TEMP28 FSTL13 TEM257 T259 TEMP85 TEM60 RTEM15>
2207                     <INTGO>
2208                     <PUSH F14>
2209                     <PUSH %<>>
2210                     <PUSH 0>
2211                     <PUSH %<>>
2212                     <PUSH %<>>
2213                     <PUSH []>
2214                     <SBLOCK <TYPE-CODE VECTOR> 6 = S17 (TYPE VECTOR)>
2215                     <PUSH F25>
2216                     <PUSH %<>>
2217                     <PUSH 0>
2218                     <PUSH %<>>
2219                     <PUSH %<>>
2220                     <PUSH []>
2221                     <SBLOCK <TYPE-CODE VECTOR> 6 = S29 (TYPE VECTOR)>
2222                     <GEN-LVAL 'ORF = ORF16>
2223                     <GEN-LVAL 'ANDF = ANDF17>
2224                     <FRAME '\1aSEGANDOR>
2225                     <PUSH F14>
2226                     <PUSH F25>
2227                     <PUSH ORF16>
2228                     <CALL '\1aSEGANDOR 3 = SEGF14>
2229                     <EMPL? F14 + BOOL27>
2230                     <EMPL? F25 - PHRASE26>
2231 BOOL27
2232                     <SET TEMP28 #FALSE (EMPTY-FORM-IN-DECL!-ERRORS) (TYPE FALSE)>
2233                     <JUMP + EXIT55>
2234 PHRASE26
2235                     <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE29>
2236                     <TYPE? ORF16 <TYPE-CODE FALSE> + PHRASE29>
2237                     <FRAME '\1aTMATCH>
2238                     <NTHL F25 1 = STACK>
2239                     <PUSH RTYP6>
2240                     <CALL '\1aTMATCH 2 = TEMP28>
2241                     <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE29>
2242                     <DEAD TEMP28>
2243                     <FRAME '\1aORSORT>
2244                     <FRAME '\1aFORM>
2245                     <PUSH 'OR>
2246                     <PUSH F14>
2247                     <DEAD F14>
2248                     <PUSH F25>
2249                     <DEAD F25>
2250                     <CALL '\1aFORM 3 = STACK>
2251                     <CALL '\1aORSORT 1 = TEMP28>
2252                     <JUMP + EXIT55>
2253 PHRASE29
2254                     <TYPE? RTYP6 <TYPE-CODE ATOM> - PHRASE39>
2255                     <NTHL F25 1 = TEMP28>
2256                     <TYPE? TEMP28 <TYPE-CODE ATOM> - PHRASE41>
2257                     <DEAD TEMP28>
2258                     <FRAME '\1aTYPMAT>
2259                     <PUSH RTYP6>
2260                     <DEAD RTYP6>
2261                     <NTHL F25 1 = STACK (TYPE ATOM)>
2262                     <CALL '\1aTYPMAT 2 = FSTL13>
2263                     <JUMP + PHRASE48>
2264 PHRASE41
2265                     <NTHL F25 1 = TEMP28>
2266                     <TYPE? TEMP28 <TYPE-CODE FORM> - PHRASE43>
2267                     <DEAD TEMP28>
2268                     <FRAME '\1aACTORT>
2269                     <NTHL F25 1 = STACK (TYPE FORM)>
2270                     <PUSH RTYP6>
2271                     <DEAD RTYP6>
2272                     <CALL '\1aACTORT 2 = FSTL13>
2273                     <JUMP + PHRASE48>
2274 PHRASE43
2275                     <SET FSTL13 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
2276                     <JUMP + PHRASE48>
2277 PHRASE39
2278                     <TYPE? RTYP6 <TYPE-CODE FORM> - PHRASE46>
2279                     <FRAME '\1aACTORT>
2280                     <PUSH RTYP6>
2281                     <DEAD RTYP6>
2282                     <NTHL F25 1 = STACK>
2283                     <CALL '\1aACTORT 2 = FSTL13>
2284                     <JUMP + PHRASE48>
2285 PHRASE46
2286                     <SET FSTL13 #FALSE (BAD-SYNTAX!-ERRORS) (TYPE FALSE)>
2287 PHRASE48
2288                     <SET TEMP28 FSTL13>
2289                     <TYPE? TEMP28 <TYPE-CODE FALSE> + EXIT55>
2290                     <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE50>
2291                     <TYPE? SEGF14 <TYPE-CODE FALSE> + PHRASE52>
2292                     <CONS FSTL13 () = TEMP28>
2293                     <DEAD FSTL13>
2294                     <CHTYPE TEMP28 <TYPE-CODE SEGMENT> = TEMP28>
2295                     <JUMP + PHRASE53>
2296 PHRASE52
2297                     <FRAME '\1aFORM>
2298                     <PUSH FSTL13>
2299                     <DEAD FSTL13>
2300                     <CALL '\1aFORM 1 = TEMP28>
2301 PHRASE53
2302                     <SET FP11 TEMP28>
2303                     <DEAD TEMP28>
2304                     <CHTYPE FP11 <TYPE-CODE LIST> = FL10>
2305 PHRASE50
2306                     <RESTL F14 1 = TEMP28 (TYPE LIST)>
2307                     <CHTYPE TEMP28 <TYPE-CODE LIST> = TEMP28>
2308                     <PUTUV S17 1 TEMP28>
2309                     <DEAD TEMP28>
2310                     <RESTL F25 1 = TEMP28 (TYPE LIST)>
2311                     <CHTYPE TEMP28 <TYPE-CODE LIST> = TEMP28>
2312                     <PUTUV S29 1 TEMP28>
2313                     <DEAD TEMP28>
2314                     <SET TEM257 %<> (TYPE FALSE)>
2315                     <LOOP>
2316 AGAIN62
2317                     <INTGO>
2318                     <FRAME '\1aNEXTP>
2319                     <PUSH S17>
2320                     <CALL '\1aNEXTP 1 = FSTL13>
2321                     <TYPE? FSTL13 <TYPE-CODE FALSE> + BOOL67>
2322                     <NTHUV S17 2 = TEMP28>
2323                     <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL66>
2324 BOOL67
2325                     <EMPTY? FSTL13 - PHRASE64>
2326                     <SET TEMP28 'ANY (TYPE ATOM)>
2327 BOOL66
2328                     <FRAME '\1aNEXTP>
2329                     <PUSH S29>
2330                     <CALL '\1aNEXTP 1 = TEM257>
2331                     <TYPE? TEM257 <TYPE-CODE FALSE> + BOOL71>
2332                     <NTHUV S29 2 = T259>
2333                     <TYPE? T259 <TYPE-CODE FALSE> - BOOL70>
2334 BOOL71
2335                     <TYPE? FSTL13 <TYPE-CODE FALSE> + PHRASE64>
2336                     <EMPTY? TEM257 - PHRASE64>
2337                     <SET T259 'ANY (TYPE ATOM)>
2338 BOOL70
2339                     <TYPE? ORF16 <TYPE-CODE FALSE> + PHRASE75>
2340                     <TYPE? FSTL13 <TYPE-CODE FALSE> + BOOL77>
2341                     <TYPE? TEM257 <TYPE-CODE FALSE> - PHRASE75>
2342 BOOL77
2343                     <FRAME '\1aONE-CHECK>
2344                     <PUSH FP11>
2345                     <DEAD FP11>
2346                     <PUSH SEGF14>
2347                     <DEAD SEGF14>
2348                     <CALL '\1aONE-CHECK 2 = TEMP28>
2349                     <JUMP + EXIT55>
2350 PHRASE75
2351                     <TYPE? FSTL13 <TYPE-CODE FALSE> - PHRASE81>
2352                     <TYPE? F14 <TYPE-CODE FORM> + BOOL84>
2353                     <NTHUV S29 4 = TEMP85>
2354                     <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL84>
2355                     <DEAD TEMP85>
2356                     <NTHUV S29 5 = TEMP85>
2357                     <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE83>
2358                     <DEAD TEMP85>
2359 BOOL84
2360                     <SET TEM60 T259>
2361                     <JUMP + PHRASE92>
2362 PHRASE83
2363                     <SET FAIL8 'T (TYPE ATOM)>
2364                     <SET TEM60 %<> (TYPE FALSE)>
2365                     <JUMP + PHRASE92>
2366 PHRASE81
2367                     <TYPE? TEM257 <TYPE-CODE FALSE> - PHRASE87>
2368                     <TYPE? F25 <TYPE-CODE FORM> + BOOL90>
2369                     <NTHUV S17 4 = TEMP85>
2370                     <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL90>
2371                     <DEAD TEMP85>
2372                     <NTHUV S17 5 = TEMP85>
2373                     <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE89>
2374                     <DEAD TEMP85>
2375 BOOL90
2376                     <SET TEM60 TEMP28>
2377                     <JUMP + PHRASE92>
2378 PHRASE89
2379                     <SET FAIL8 'T (TYPE ATOM)>
2380                     <SET TEM60 %<> (TYPE FALSE)>
2381                     <JUMP + PHRASE92>
2382 PHRASE87
2383                     <FRAME '\1aDTMATCH>
2384                     <PUSH TEMP28>
2385                     <PUSH T259>
2386                     <CALL '\1aDTMATCH 2 = TEM60>
2387 PHRASE92
2388                     <SET RTEM15 TEM60>
2389                     <TYPE? RTEM15 <TYPE-CODE FALSE> - PHRASE104>
2390                     <TYPE? ORF16 <TYPE-CODE FALSE> + PHRASE95>
2391                     <FRAME '\1aORSORT>
2392                     <FRAME '\1aFORM>
2393                     <PUSH 'OR>
2394                     <PUSH TEMP28>
2395                     <DEAD TEMP28>
2396                     <PUSH T259>
2397                     <DEAD T259>
2398                     <CALL '\1aFORM 3 = STACK>
2399                     <CALL '\1aORSORT 1 = TEM60>
2400                     <JUMP + PHRASE104>
2401 PHRASE95
2402                     <GEN-LVAL 'MAYBEF = TEMP85>
2403                     <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE98>
2404                     <DEAD TEMP85>
2405                     <VEQUAL? FAIL8 0 + PHRASE102>
2406                     <DEAD FAIL8>
2407                     <SET TEMP28 %<> (TYPE FALSE)>
2408                     <JUMP + EXIT55>
2409 PHRASE102
2410                     <SET FAIL8 'T (TYPE ATOM)>
2411                     <JUMP + PHRASE104>
2412 PHRASE98
2413                     <SET TEMP28 %<> (TYPE FALSE)>
2414                     <JUMP + EXIT55>
2415 PHRASE104
2416                     <TYPE? INOPT12 <TYPE-CODE FALSE> - PHRASE106>
2417                     <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL109>
2418                     <NTHUV S17 5 = TEMP85>
2419                     <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL108>
2420                     <DEAD TEMP85>
2421                     <NTHUV S29 5 = TEMP85>
2422                     <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL108>
2423                     <DEAD TEMP85>
2424 BOOL109
2425                     <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE106>
2426                     <TYPE? ORF16 <TYPE-CODE FALSE> - PHRASE106>
2427                     <NTHUV S17 5 = TEMP85>
2428                     <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE106>
2429                     <DEAD TEMP85>
2430                     <NTHUV S29 5 = TEMP85>
2431                     <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE106>
2432                     <DEAD TEMP85>
2433 BOOL108
2434                     <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE113>
2435                     <CONS TEM60 () = TEMP85>
2436                     <CONS 'OPTIONAL TEMP85 = INOPT12>
2437                     <DEAD TEMP85>
2438                     <JUMP + PHRASE115>
2439 PHRASE113
2440                     <SET INOPT12 () (TYPE LIST)>
2441                     <JUMP + PHRASE115>
2442 PHRASE106
2443                     <TYPE? INOPT12 <TYPE-CODE FALSE> + PHRASE115>
2444                     <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE115>
2445                     <SET TEMP85 INOPT12>
2446                     <LOOP (TEMP85 VALUE)>
2447 TAG117
2448                     <RESTL TEMP85 1 = T259 (TYPE LIST)>
2449                     <EMPL? T259 + TAG119>
2450                     <SET TEMP85 T259>
2451                     <DEAD T259>
2452                     <JUMP + TAG117>
2453 TAG119
2454                     <CONS TEM60 () = T259>
2455                     <PUTREST TEMP85 T259>
2456                     <DEAD TEMP85 T259>
2457 PHRASE115
2458                     <TYPE? INOPT12 <TYPE-CODE FALSE> + PHRASE121>
2459                     <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL124>
2460                     <NTHUV S17 3 = T259 (TYPE FIX)>
2461                     <VEQUAL? T259 0 + BOOL123 (TYPE FIX)>
2462                     <DEAD T259>
2463                     <NTHUV S29 3 = T259 (TYPE FIX)>
2464                     <VEQUAL? T259 0 + BOOL123 (TYPE FIX)>
2465                     <DEAD T259>
2466 BOOL124
2467                     <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE121>
2468                     <NTHUV S17 3 = T259 (TYPE FIX)>
2469                     <VEQUAL? T259 0 - PHRASE121 (TYPE FIX)>
2470                     <DEAD T259>
2471                     <NTHUV S29 3 = T259 (TYPE FIX)>
2472                     <VEQUAL? T259 0 - PHRASE121 (TYPE FIX)>
2473                     <DEAD T259>
2474 BOOL123
2475                     <TYPE? ANDF17 <TYPE-CODE FALSE> + BOOL135>
2476                     <SET TEMP28 0 (TYPE FIX)>
2477                     <SET T259 INOPT12>
2478                     <DEAD INOPT12>
2479                     <LOOP (T259 VALUE) (TEMP28 VALUE)>
2480 TAG138
2481                     <INTGO>
2482                     <EMPL? T259 + TAG136>
2483                     <NTHL T259 1 = STACK>
2484                     <RESTL T259 1 = T259 (TYPE LIST)>
2485                     <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
2486                     <JUMP + TAG138>
2487 TAG136
2488                     <UBLOCK <TYPE-CODE VECTOR> TEMP28 = TEM60>
2489                     <DEAD TEMP28>
2490 BOOL135
2491                     <SET INOPT12 %<> (TYPE FALSE)>
2492 PHRASE121
2493                     <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL143>
2494                     <NTHUV S17 4 = T259>
2495                     <TYPE? T259 <TYPE-CODE FALSE> - BOOL151>
2496                     <DEAD T259>
2497                     <NTHUV S29 4 = T259>
2498                     <TYPE? T259 <TYPE-CODE FALSE> - BOOL151>
2499                     <DEAD T259>
2500 BOOL143
2501                     <NTHUV S17 4 = T259>
2502                     <TYPE? T259 <TYPE-CODE FALSE> - BOOL148>
2503                     <DEAD T259>
2504                     <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE141>
2505                     <TYPE? FSTL13 <TYPE-CODE FALSE> + BOOL148>
2506                     <NTHUV S17 5 = T259>
2507                     <TYPE? T259 <TYPE-CODE FALSE> + PHRASE141>
2508                     <DEAD T259>
2509 BOOL148
2510                     <NTHUV S29 4 = T259>
2511                     <TYPE? T259 <TYPE-CODE FALSE> - BOOL151>
2512                     <DEAD T259>
2513                     <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE141>
2514                     <TYPE? TEM257 <TYPE-CODE FALSE> + BOOL151>
2515                     <NTHUV S29 5 = T259>
2516                     <TYPE? T259 <TYPE-CODE FALSE> + PHRASE141>
2517                     <DEAD T259>
2518 BOOL151
2519                     <TYPE? ORF16 <TYPE-CODE FALSE> - BOOL154>
2520                     <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE153>
2521 BOOL154
2522                     <FRAME '\1aRESTER?>
2523                     <PUSH S17>
2524                     <PUSH S29>
2525                     <PUSH FL10>
2526                     <PUSH RTEM15>
2527                     <TYPE? F25 <TYPE-CODE SEGMENT> - TAG159>
2528                     <SET T259 'SEGMENT (TYPE ATOM)>
2529                     <JUMP + TAG160>
2530 TAG159
2531                     <SET T259 %<> (TYPE FALSE)>
2532 TAG160
2533                     <PUSH T259>
2534                     <DEAD T259>
2535                     <CALL '\1aRESTER? 5 = TEMP28>
2536                     <EQUAL? TEMP28 0 + PHRASE164>
2537                     <EQUAL? TEMP28 'T - PHRASE162>
2538                     <FRAME '\1aONE-CHECK>
2539                     <PUSH FP11>
2540                     <DEAD FP11>
2541                     <PUSH SEGF14>
2542                     <DEAD SEGF14>
2543                     <CALL '\1aONE-CHECK 2 = TEMP28>
2544                     <JUMP + EXIT55>
2545 PHRASE162
2546                     <TYPE? TEMP28 <TYPE-CODE FORM> + TAG168>
2547                     <TYPE? TEMP28 <TYPE-CODE SEGMENT> - EXIT55>
2548 TAG168
2549                     <SET T259 FP11>
2550                     <DEAD FP11>
2551                     <SET TEMP85 1 (TYPE FIX)>
2552                     <LOOP (T259 VALUE) (TEMP85 VALUE)>
2553 TAG171
2554                     <EMPL? T259 + TAG169>
2555                     <SUB TEMP85 1 = TEMP85 (TYPE FIX)>
2556                     <LESS? TEMP85 0 + EXIT55>
2557                     <RESTL T259 1 = T259 (TYPE LIST)>
2558                     <JUMP + TAG171>
2559 TAG169
2560                     <NTHL TEMP28 1 = TEMP28>
2561                     <JUMP + EXIT55>
2562 PHRASE164
2563                     <FRAME '\1aRESTER?>
2564                     <PUSH S29>
2565                     <PUSH S17>
2566                     <PUSH FL10>
2567                     <PUSH RTEM15>
2568                     <DEAD RTEM15>
2569                     <TYPE? F14 <TYPE-CODE SEGMENT> - TAG177>
2570                     <SET TEMP85 'SEGMENT (TYPE ATOM)>
2571                     <JUMP + TAG178>
2572 TAG177
2573                     <SET TEMP85 %<> (TYPE FALSE)>
2574 TAG178
2575                     <PUSH TEMP85>
2576                     <DEAD TEMP85>
2577                     <CALL '\1aRESTER? 5 = TEMP28>
2578                     <EQUAL? TEMP28 0 + PHRASE189>
2579                     <EQUAL? TEMP28 'T - PHRASE180>
2580                     <FRAME '\1aONE-CHECK>
2581                     <PUSH FP11>
2582                     <DEAD FP11>
2583                     <PUSH SEGF14>
2584                     <DEAD SEGF14>
2585                     <CALL '\1aONE-CHECK 2 = TEMP28>
2586                     <JUMP + EXIT55>
2587 PHRASE180
2588                     <TYPE? TEMP28 <TYPE-CODE FORM> + TAG185>
2589                     <TYPE? TEMP28 <TYPE-CODE SEGMENT> - EXIT55>
2590 TAG185
2591                     <FRAME '\1aONE-CHECK>
2592                     <PUSH TEMP28>
2593                     <DEAD TEMP28>
2594                     <PUSH SEGF14>
2595                     <DEAD SEGF14>
2596                     <CALL '\1aONE-CHECK 2 = TEMP28>
2597                     <JUMP + EXIT55>
2598 PHRASE153
2599                     <SET TEMP28 'T (TYPE ATOM)>
2600                     <JUMP + EXIT55>
2601 PHRASE141
2602                     <TYPE? ANDF17 <TYPE-CODE FALSE> - PHRASE189>
2603                     <NTHUV S17 4 = TEMP85>
2604                     <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL191>
2605                     <DEAD TEMP85>
2606                     <TYPE? FSTL13 <TYPE-CODE FALSE> - PHRASE189>
2607                     <DEAD FSTL13>
2608 BOOL191
2609                     <NTHUV S29 4 = TEMP85>
2610                     <TYPE? TEMP85 <TYPE-CODE FALSE> - BOOL192>
2611                     <DEAD TEMP85>
2612                     <TYPE? TEM257 <TYPE-CODE FALSE> - PHRASE189>
2613 BOOL192
2614                     <SET TEMP28 'T (TYPE ATOM)>
2615                     <JUMP + EXIT55>
2616 PHRASE189
2617                     <TYPE? INOPT12 <TYPE-CODE FALSE> - AGAIN62>
2618                     <TYPE? ANDF17 <TYPE-CODE FALSE> + AGAIN62>
2619                     <TYPE? ORF16 <TYPE-CODE FALSE> + BOOL196>
2620                     <NTHUV S17 4 = TEMP85>
2621                     <TYPE? TEMP85 <TYPE-CODE FALSE> - AGAIN62>
2622                     <DEAD TEMP85>
2623                     <NTHUV S29 4 = T259>
2624                     <TYPE? T259 <TYPE-CODE FALSE> - AGAIN62>
2625                     <DEAD T259>
2626 BOOL196
2627                     <NTHL FL10 1 = TEMP28>
2628                     <TYPE? TEMP28 <TYPE-CODE VECTOR> - PHRASE199>
2629                     <DEAD TEMP28>
2630                     <FRAME '\1a=?>
2631                     <NTHL FL10 1 = FSTL13 (TYPE VECTOR)>
2632                     <NTHUV FSTL13 2 = STACK>
2633                     <PUSH TEM60>
2634                     <CALL '\1a=? 2 = TEMP28>
2635                     <VEQUAL? TEMP28 0 + PHRASE199>
2636                     <DEAD TEMP28>
2637                     <NTHUV FSTL13 1 = TEMP28 (TYPE FIX)>
2638                     <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
2639                     <PUTUV FSTL13 1 TEMP28 (TYPE FIX)>
2640                     <DEAD FSTL13 TEMP28>
2641                     <JUMP + AGAIN62>
2642 PHRASE199
2643                     <CHTYPE FP11 <TYPE-CODE LIST> = TEMP28>
2644                     <VEQUAL? TEMP28 FL10 + PHRASE203>
2645                     <DEAD TEMP28>
2646                     <FRAME '\1a=?>
2647                     <PUSH TEM60>
2648                     <NTHL FL10 1 = STACK>
2649                     <CALL '\1a=? 2 = TEMP28>
2650                     <VEQUAL? TEMP28 0 + PHRASE203>
2651                     <DEAD TEMP28>
2652                     <PUSH 2>
2653                     <PUSH TEM60>
2654                     <DEAD TEM60>
2655                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP28>
2656                     <PUTL FL10 1 TEMP28>
2657                     <DEAD TEMP28>
2658                     <JUMP + AGAIN62>
2659 PHRASE203
2660                     <CONS TEM60 () = TEMP28>
2661                     <DEAD TEM60>
2662                     <PUTREST FL10 TEMP28>
2663                     <DEAD FL10>
2664                     <SET FL10 TEMP28>
2665                     <DEAD TEMP28>
2666                     <JUMP + AGAIN62>
2667 PHRASE64
2668                     <EMPTY? FSTL13 - PHRASE215>
2669                     <SET FSTL13 TEM257>
2670                     <DEAD TEM257>
2671                     <EMPTY? FSTL13 - PHRASE215>
2672                     <TYPE? ANDF17 <TYPE-CODE FALSE> + PHRASE213>
2673                     <DEAD ANDF17>
2674                     <FRAME '\1aONE-CHECK>
2675                     <PUSH FP11>
2676                     <DEAD FP11>
2677                     <PUSH SEGF14>
2678                     <DEAD SEGF14>
2679                     <CALL '\1aONE-CHECK 2 = TEMP28>
2680                     <JUMP + EXIT55>
2681 PHRASE213
2682                     <SET TEMP28 'T (TYPE ATOM)>
2683                     <JUMP + EXIT55>
2684 PHRASE215
2685                     <SET TEMP28 FSTL13>
2686                     <DEAD FSTL13>
2687 EXIT55
2688                     <ADJ -28>
2689                     <RETURN TEMP28>
2690                     <DEAD TEMP28>
2691                     <END \1aELETYPE>
2692 #WORD *26246050514*
2693                     <GFCN \1aONE-CHECK ("VALUE" ANY <OR FORM SEGMENT> ANY) FP4 SEGF5>
2694                     <TEMP TEMP9>
2695                     <INTGO>
2696                     <TYPE? SEGF5 <TYPE-CODE FALSE> - PHRASE7>
2697                     <DEAD SEGF5>
2698                     <RESTL FP4 1 = TEMP9 (TYPE LIST)>
2699                     <CHTYPE TEMP9 <TYPE-CODE LIST> = TEMP9>
2700                     <EMPL? TEMP9 - PHRASE7 (TYPE LIST)>
2701                     <DEAD TEMP9>
2702                     <NTHL FP4 1 = TEMP9>
2703                     <DEAD FP4>
2704                     <RETURN TEMP9>
2705                     <DEAD TEMP9>
2706 PHRASE7
2707                     <RETURN FP4>
2708                     <DEAD FP4>
2709                     <END \1aONE-CHECK>
2710
2711 "\f"
2712
2713 #WORD *15255452506*
2714 <GFCN \1aRESTER? ("VALUE" ANY <VECTOR ANY ANY ANY ANY ANY VECTOR> <VECTOR ANY ANY ANY ANY ANY VECTOR> <LIST ANY> ANY ANY) S14 S25 FL6 FST7 SEGF8>
2715                     <TEMP TT9 (TEM110 'T) (TEM211 'T) (OPTIT12 %<>) TEMP17 TEMP30 TEMP41:VECTOR SO45:VECTOR>
2716                     <INTGO>
2717                     <NTHUV S14 6 = TT9 (TYPE VECTOR)>
2718                     <GEN-LVAL 'ORF = TEMP17>
2719                     <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL16>
2720                     <DEAD TEMP17>
2721                     <NTHUV S25 5 = TEMP17>
2722                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE14>
2723                     <DEAD TEMP17>
2724 BOOL16
2725                     <NTHUV S25 1 = TEMP17>
2726                     <EMPTY? TEMP17 - PHRASE14>
2727                     <DEAD TEMP17>
2728                     <NTHUV S25 4 = TEMP17>
2729                     <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE14>
2730                     <DEAD TEMP17>
2731                     <SET OPTIT12 'T (TYPE ATOM)>
2732 PHRASE14
2733                     <TYPE? SEGF8 <TYPE-CODE FALSE> + PHRASE21>
2734                     <DEAD SEGF8>
2735                     <GEN-LVAL 'ORF = TEMP17>
2736                     <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE21>
2737                     <DEAD TEMP17>
2738                     <NTHUV S14 4 = TEMP17>
2739                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL25>
2740                     <DEAD TEMP17>
2741                     <NTHUV S25 4 = TEMP17>
2742                     <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE21>
2743                     <DEAD TEMP17>
2744 BOOL25
2745                     <RETURN 'T>
2746 PHRASE21
2747                     <EMPUV? TT9 + PHRASE26 (TYPE VECTOR)>
2748                     <NTHUV S25 4 = TEMP17>
2749                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL28>
2750                     <DEAD TEMP17>
2751                     <LENUV TT9 = TEMP17 (TYPE FIX)>
2752                     <NTHUV S25 6 = TEMP30 (TYPE VECTOR)>
2753                     <TOPU TEMP30 = TEMP30>
2754                     <RESTUV TEMP30 1 = TEMP30 (TYPE VECTOR)>
2755                     <LENUV TEMP30 = TEMP30 (TYPE FIX)>
2756                     <LESS? TEMP17 TEMP30 + PHRASE26 (TYPE FIX)>
2757                     <DEAD TEMP17 TEMP30>
2758 BOOL28
2759                     <TOPU TT9 = TEMP17>
2760                     <DEAD TT9>
2761                     <RESTUV TEMP17 1 = TT9 (TYPE VECTOR)>
2762                     <DEAD TEMP17>
2763                     <PUSH 'REST>
2764                     <PUSH FST7>
2765                     <DEAD FST7>
2766                     <SET TEMP17 2 (TYPE FIX)>
2767                     <RESTUV TT9 1 = TEMP41 (TYPE VECTOR)>
2768                     <DEAD TT9>
2769                     <LOOP (TEMP41 VALUE LENGTH) (TEMP17 VALUE)>
2770 TAG43
2771                     <INTGO>
2772                     <EMPUV? TEMP41 + TAG40>
2773                     <NTHUV TEMP41 1 = STACK>
2774                     <RESTUV TEMP41 1 = TEMP41 (TYPE VECTOR)>
2775                     <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
2776                     <JUMP + TAG43>
2777 TAG40
2778                     <UBLOCK <TYPE-CODE VECTOR> TEMP17 = TT9>
2779                     <DEAD TEMP17>
2780                     <RESTUV TT9 2 = TEMP41 (TYPE VECTOR)>
2781                     <LOOP>
2782 MAP32
2783                     <INTGO>
2784                     <EMPUV? TEMP41 + MAPAP35>
2785                     <SET SO45 TEMP41>
2786                     <FRAME '\1aNEXTP>
2787                     <PUSH S25>
2788                     <CALL '\1aNEXTP 1 = TEM110>
2789                     <TYPE? TEM110 <TYPE-CODE FALSE> + BOOL48>
2790                     <NTHUV S25 2 = TEMP17>
2791                     <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE57>
2792 BOOL48
2793                     <EMPTY? TEM110 + TAG51>
2794                     <SET TEMP17 %<> (TYPE FALSE)>
2795                     <JUMP + PHRASE57>
2796 TAG51
2797                     <GEN-LVAL 'ORF = TEMP30>
2798                     <TYPE? TEMP30 <TYPE-CODE FALSE> - MAPAP35>
2799                     <DEAD TEMP30>
2800                     <SET TEMP17 'ANY (TYPE ATOM)>
2801 PHRASE57
2802                     <GEN-LVAL 'ORF = TEMP30>
2803                     <TYPE? TEMP30 <TYPE-CODE FALSE> - BOOL59>
2804                     <DEAD TEMP30>
2805                     <NTHUV S25 5 = TEMP30>
2806                     <TYPE? TEMP30 <TYPE-CODE FALSE> + BOOL58>
2807                     <DEAD TEMP30>
2808 BOOL59
2809                     <NTHUV S25 1 = TEMP30>
2810                     <EMPTY? TEMP30 - BOOL58>
2811                     <DEAD TEMP30>
2812                     <NTHUV S25 4 = TEMP30>
2813                     <TYPE? TEMP30 <TYPE-CODE FALSE> - BOOL58>
2814                     <DEAD TEMP30>
2815                     <SET OPTIT12 'T (TYPE ATOM)>
2816 BOOL58
2817                     <TYPE? TEM110 <TYPE-CODE FALSE> - BOOL64>
2818                     <EMPL? TEM110 - BOOL64 (TYPE FALSE)>
2819                     <SET TEM110 'T (TYPE ATOM)>
2820 BOOL64
2821                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE66>
2822                     <FRAME '\1aDTMATCH>
2823                     <FRAME '\1aNEXTP>
2824                     <PUSH S14>
2825                     <CALL '\1aNEXTP 1 = TEMP30>
2826                     <TYPE? TEMP30 <TYPE-CODE FALSE> + BOOL68>
2827                     <NTHUV S14 2 = TEMP30>
2828 BOOL68
2829                     <PUSH TEMP30>
2830                     <DEAD TEMP30>
2831                     <PUSH TEMP17>
2832                     <CALL '\1aDTMATCH 2 = TEM211>
2833                     <PUTUV SO45 1 TEM211>
2834                     <DEAD SO45>
2835 PHRASE66
2836                     <TYPE? TEMP17 <TYPE-CODE FALSE> + MAPAP35>
2837                     <DEAD TEMP17>
2838                     <TYPE? TEM211 <TYPE-CODE FALSE> + MAPAP35>
2839                     <RESTUV TEMP41 1 = TEMP41 (TYPE VECTOR)>
2840                     <JUMP + MAP32>
2841 MAPAP35
2842                     <VEQUAL? OPTIT12 0 + PHRASE73>
2843                     <DEAD OPTIT12>
2844                     <PUTUV TT9 1 'OPTIONAL>
2845                     <JUMP + PHRASE74>
2846 PHRASE73
2847                     <FRAME '\1aUNIQUE-VECTOR-CHECK>
2848                     <PUSH TT9>
2849                     <DEAD TT9>
2850                     <CALL '\1aUNIQUE-VECTOR-CHECK 1 = TT9>
2851 PHRASE74
2852                     <TYPE? TEM110 <TYPE-CODE FALSE> + PHRASE77>
2853                     <TYPE? TEM211 <TYPE-CODE FALSE> + PHRASE77>
2854                     <CONS TT9 () = TT9>
2855                     <PUTREST FL6 TT9>
2856                     <DEAD FL6 TT9>
2857                     <RETURN 'T>
2858 PHRASE77
2859                     <TYPE? TEM110 <TYPE-CODE FALSE> - PHRASE79>
2860                     <EMPL? TEM110 + PHRASE79 (TYPE FALSE)>
2861                     <RETURN TEM110>
2862                     <DEAD TEM110>
2863 PHRASE79
2864                     <RETURN TEM211>
2865                     <DEAD TEM211>
2866 PHRASE26
2867                     <RETURN 0>
2868                     <END \1aRESTER?>
2869 #WORD *30766215475*
2870 <GFCN \1aUNIQUE-VECTOR-CHECK ("VALUE" <VECTOR [2 ANY]> <VECTOR [2 ANY]>) V4>
2871                     <TEMP FRST5 TEMP17 TEMP19:VECTOR>
2872                     <INTGO>
2873                     <NTHUV V4 2 = FRST5>
2874                     <SET TEMP17 %<> (TYPE FALSE)>
2875                     <RESTUV V4 2 = TEMP19 (TYPE VECTOR)>
2876                     <LOOP>
2877 MAP9
2878                     <INTGO>
2879                     <EMPUV? TEMP19 + MAPAP12>
2880                     <NTHUV TEMP19 1 = TEMP17>
2881                     <FRAME '\1aN=?>
2882                     <PUSH TEMP17>
2883                     <DEAD TEMP17>
2884                     <PUSH FRST5>
2885                     <CALL '\1aN=? 2 = TEMP17>
2886                     <VEQUAL? TEMP17 0 + PHRASE22>
2887                     <SET TEMP17 V4>
2888                     <DEAD V4>
2889                     <JUMP + MAPAP12>
2890 PHRASE22
2891                     <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
2892                     <JUMP + MAP9>
2893 MAPAP12
2894                     <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE25>
2895                     <PUSH 'REST>
2896                     <PUSH FRST5>
2897                     <DEAD FRST5>
2898                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP17>
2899 PHRASE25
2900                     <RETURN TEMP17>
2901                     <DEAD TEMP17>
2902                     <END \1aUNIQUE-VECTOR-CHECK>
2903 #WORD *14400236133*
2904 <GFCN \1aNEXTP ("VALUE" <OR FALSE <VECTOR [6 ANY]>> <VECTOR <PRIMTYPE LIST> ANY FIX ANY ANY ANY>) S4>
2905                     <TEMP TEMP10 TEM5 N7:FIX>
2906                     <INTGO>
2907                     <NTHUV S4 3 = TEMP10 (TYPE FIX)>
2908                     <VEQUAL? TEMP10 0 - PHRASE9 (TYPE FIX)>
2909                     <DEAD TEMP10>
2910                     <PUTUV S4 5 %<>>
2911 PHRASE9
2912                     <NTHUV S4 4 = TEMP10>
2913                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE14>
2914                     <DEAD TEMP10>
2915                     <FRAME '\1aNTHREST>
2916                     <PUSH S4>
2917                     <DEAD S4>
2918                     <CALL '\1aNTHREST 1 = TEMP10>
2919                     <RETURN TEMP10>
2920                     <DEAD TEMP10>
2921 PHRASE14
2922                     <NTHUV S4 3 = TEMP10 (TYPE FIX)>
2923                     <VEQUAL? TEMP10 0 + PHRASE16 (TYPE FIX)>
2924                     <DEAD TEMP10>
2925                     <NTHUV S4 3 = TEMP10 (TYPE FIX)>
2926                     <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
2927                     <PUTUV S4 3 TEMP10 (TYPE FIX)>
2928                     <DEAD TEMP10>
2929                     <FRAME '\1aNTHREST>
2930                     <PUSH S4>
2931                     <DEAD S4>
2932                     <CALL '\1aNTHREST 1 = TEMP10>
2933                     <RETURN TEMP10>
2934                     <DEAD TEMP10>
2935 PHRASE16
2936                     <NTHUV S4 1 = TEM5>
2937                     <EMPL? TEM5 - PHRASE21>
2938                     <RETURN %<>>
2939 PHRASE21
2940                     <NTHL TEM5 1 = TEMP10>
2941                     <TYPE? TEMP10 <TYPE-CODE ATOM> + TAG23>
2942                     <TYPE? TEMP10 <TYPE-CODE FORM> + TAG23>
2943                     <TYPE? TEMP10 <TYPE-CODE SEGMENT> - PHRASE22>
2944                     <DEAD TEMP10>
2945 TAG23
2946                     <NTHL TEM5 1 = TEM5>
2947                     <NTHUV S4 1 = TEMP10>
2948                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
2949                     <CHTYPE TEMP10 <TYPE-CODE LIST> = TEMP10>
2950                     <PUTUV S4 1 TEMP10>
2951                     <DEAD TEMP10>
2952                     <PUTUV S4 2 TEM5>
2953                     <DEAD TEM5>
2954                     <RETURN S4>
2955                     <DEAD S4>
2956 PHRASE22
2957                     <NTHL TEM5 1 = TEMP10>
2958                     <TYPE? TEMP10 <TYPE-CODE VECTOR> - PHRASE25>
2959                     <DEAD TEMP10>
2960                     <NTHL TEM5 1 = TEM5 (TYPE VECTOR)>
2961                     <NTHUV S4 1 = TEMP10>
2962                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
2963                     <CHTYPE TEMP10 <TYPE-CODE LIST> = TEMP10>
2964                     <PUTUV S4 1 TEMP10>
2965                     <DEAD TEMP10>
2966                     <RESTUV TEM5 1 = TEMP10 (TYPE VECTOR)>
2967                     <PUTUV S4 6 TEMP10>
2968                     <DEAD TEMP10>
2969                     <LENUV TEM5 = TEMP10 (TYPE FIX)>
2970                     <GRTR? TEMP10 1 - PHRASE27 (TYPE FIX)>
2971                     <DEAD TEMP10>
2972                     <NTHUV TEM5 1 = TEMP10>
2973                     <EQUAL? TEMP10 'REST - PHRASE31>
2974                     <DEAD TEMP10>
2975                     <LENUV TEM5 = TEMP10 (TYPE FIX)>
2976                     <VEQUAL? TEMP10 2 - PHRASE33 (TYPE FIX)>
2977                     <DEAD TEMP10>
2978                     <NTHUV TEM5 2 = TEMP10>
2979                     <EQUAL? TEMP10 'ANY - PHRASE33>
2980                     <DEAD TEMP10>
2981                     <RETURN %<>>
2982 PHRASE33
2983                     <PUTUV S4 4 'T>
2984                     <NTHUV TEM5 2 = TEMP10>
2985                     <DEAD TEM5>
2986                     <PUTUV S4 2 TEMP10>
2987                     <DEAD TEMP10>
2988                     <RETURN S4>
2989                     <DEAD S4>
2990 PHRASE31
2991                     <NTHUV TEM5 1 = TEMP10>
2992                     <TYPE? TEMP10 <TYPE-CODE FIX> - BOOL38>
2993                     <DEAD TEMP10>
2994                     <NTHUV TEM5 1 = N7 (TYPE FIX)>
2995                     <JUMP + BOOL37>
2996 BOOL38
2997                     <NTHUV TEM5 1 = TEMP10>
2998                     <EQUAL? TEMP10 'OPT + BOOL40>
2999                     <DEAD TEMP10>
3000                     <NTHUV TEM5 1 = TEMP10>
3001                     <EQUAL? TEMP10 'OPTIONAL - PHRASE36>
3002                     <DEAD TEMP10>
3003 BOOL40
3004                     <SET N7 1 (TYPE FIX)>
3005 BOOL37
3006                     <NTHUV TEM5 1 = TEMP10>
3007                     <TYPE? TEMP10 <TYPE-CODE FIX> + BOOL41>
3008                     <DEAD TEMP10>
3009                     <PUTUV S4 5 'T>
3010 BOOL41
3011                     <LENUV TEM5 = TEMP10 (TYPE FIX)>
3012                     <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
3013                     <MUL TEMP10 N7 = TEMP10 (TYPE FIX)>
3014                     <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
3015                     <PUTUV S4 3 TEMP10 (TYPE FIX)>
3016                     <DEAD TEMP10>
3017                     <NTHUV TEM5 2 = TEMP10>
3018                     <DEAD TEM5>
3019                     <PUTUV S4 2 TEMP10>
3020                     <DEAD TEMP10>
3021                     <GRTR? N7 0 + PHRASE43 (TYPE FIX)>
3022                     <DEAD N7>
3023                     <RETURN %<>>
3024 PHRASE43
3025                     <RETURN S4>
3026                     <DEAD S4>
3027 PHRASE36
3028                     <RETURN #FALSE (BAD-VECTOR-SYNTAX!-ERRORS)>
3029 PHRASE27
3030                     <RETURN #FALSE (BAD-FORM-SYNTAX!-ERRORS)>
3031 PHRASE25
3032                     <RETURN #FALSE (BAD-FORM-SYNTAX!-ERRORS)>
3033                     <END \1aNEXTP>
3034 "\f"
3035
3036 #WORD *26732775663*
3037 <GFCN \1aNTHREST ("VALUE" <VECTOR ANY ANY ANY ANY ANY VECTOR> <VECTOR ANY ANY ANY ANY ANY VECTOR>) S4>
3038                     <TEMP TEMP6>
3039                     <INTGO>
3040                     <NTHUV S4 6 = TEMP6 (TYPE VECTOR)>
3041                     <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
3042                     <EMPUV? TEMP6 - PHRASE8 (TYPE VECTOR)>
3043                     <TOPU TEMP6 = TEMP6>
3044                     <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
3045 PHRASE8
3046                     <PUTUV S4 6 TEMP6>
3047                     <NTHUV TEMP6 1 = TEMP6>
3048                     <PUTUV S4 2 TEMP6>
3049                     <DEAD TEMP6>
3050                     <RETURN S4>
3051                     <DEAD S4>
3052                     <END \1aNTHREST>
3053 "\f"
3054
3055 #WORD *14024525424*
3056 <GFCN \1aGET-ELE-TYPE ("VALUE" ANY ANY ANY "OPTIONAL" ANY ANY) DCL27 NN8 RST9 PT10>
3057                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
3058 OPT4
3059                     <PUSH %<>>
3060 OPT5
3061                     <PUSH %<>>
3062 OPT6
3063                     <TEMP (ET15 'FIX) TEMP19 VT14 TEMP39:FIX>
3064                     <INTGO>
3065                     <GVAL 'MIM = TEMP19>
3066                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
3067                     <DEAD TEMP19>
3068                     <FRAME '\1aISTYPE?>
3069                     <PUSH DCL27>
3070                     <CALL '\1aISTYPE? 1 = TEMP19>
3071                     <TYPE? TEMP19 <TYPE-CODE FALSE> + BOOL21>
3072                     <NTHR TEMP19 5 = VT14 (RECORD-TYPE ATOM) (BRANCH-FALSE - BOOL20)>
3073                     <TYPE? VT14 <TYPE-CODE FALSE> - BOOL20>
3074 BOOL21
3075                     <FRAME '\1aSTRUCTYP>
3076                     <PUSH DCL27>
3077                     <CALL '\1aSTRUCTYP 1 = TEMP19>
3078                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
3079                     <NTHR TEMP19 5 = VT14 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE17)>
3080                     <TYPE? VT14 <TYPE-CODE FALSE> + PHRASE17>
3081                     <FRAME '\1aFORM>
3082                     <PUSH 'PRIMTYPE>
3083                     <PUSH TEMP19>
3084                     <DEAD TEMP19>
3085                     <CALL '\1aFORM 2 = TEMP19>
3086 BOOL20
3087                     <AND VT14 #WORD *7* = VT14>
3088                     <VEQUAL? VT14 4 + BOOL30 (TYPE FIX)>
3089                     <VEQUAL? VT14 5 - BOOL31 (TYPE FIX)>
3090                     <SET ET15 'CHARACTER (TYPE ATOM)>
3091                     <JUMP + BOOL30>
3092 BOOL31
3093                     <VEQUAL? VT14 6 - PHRASE17 (TYPE FIX)>
3094 BOOL30
3095                     <TYPE? PT10 <TYPE-CODE FALSE> + PHRASE40>
3096                     <EQUAL? NN8 'ALL + BOOL36>
3097                     <TYPE? NN8 <TYPE-CODE FIX> - PHRASE35>
3098                     <FRAME '\1aMINL>
3099                     <PUSH DCL27>
3100                     <CALL '\1aMINL 1 = TEMP39>
3101                     <GRTR? NN8 TEMP39 + PHRASE35 (TYPE FIX)>
3102                     <DEAD TEMP39>
3103 BOOL36
3104                     <SET TEMP19 DCL27>
3105                     <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE73>
3106                     <JUMP + PHRASE40>
3107 PHRASE35
3108                     <TYPE? NN8 <TYPE-CODE FIX> - PHRASE40>
3109                     <GRTR? NN8 0 - PHRASE40 (TYPE FIX)>
3110                     <FRAME '\1aFORM>
3111                     <PUSH TEMP19>
3112                     <DEAD TEMP19>
3113                     <PUSH NN8>
3114                     <DEAD NN8>
3115                     <PUSH ET15>
3116                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3117                     <PUSH 'REST>
3118                     <PUSH ET15>
3119                     <DEAD ET15>
3120                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3121                     <CALL '\1aFORM 3 = TEMP19>
3122                     <RETURN TEMP19>
3123                     <DEAD TEMP19>
3124 PHRASE40
3125                     <TYPE? RST9 <TYPE-CODE FALSE> + PHRASE62>
3126                     <VEQUAL? VT14 5 - PHRASE49 (TYPE FIX)>
3127                     <SET TEMP19 'STRING (TYPE ATOM)>
3128                     <JUMP + PHRASE51>
3129 PHRASE49
3130                     <VEQUAL? VT14 4 - PHRASE50 (TYPE FIX)>
3131                     <DEAD VT14>
3132                     <SET TEMP19 'BYTES (TYPE ATOM)>
3133                     <JUMP + PHRASE51>
3134 PHRASE50
3135                     <SET TEMP19 'UVECTOR (TYPE ATOM)>
3136 PHRASE51
3137                     <EQUAL? NN8 'ALL - PHRASE53>
3138                     <RETURN TEMP19>
3139                     <DEAD TEMP19>
3140 PHRASE53
3141                     <TYPE? NN8 <TYPE-CODE FIX> - PHRASE54>
3142                     <FRAME '\1aMINL>
3143                     <PUSH DCL27>
3144                     <CALL '\1aMINL 1 = TEMP39>
3145                     <SUB TEMP39 NN8 = TEMP39 (TYPE FIX)>
3146                     <GRTR? TEMP39 0 - PHRASE54 (TYPE FIX)>
3147                     <FRAME '\1aFORM>
3148                     <PUSH TEMP19>
3149                     <DEAD TEMP19>
3150                     <PUSH TEMP39>
3151                     <DEAD TEMP39>
3152                     <PUSH ET15>
3153                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3154                     <PUSH 'REST>
3155                     <PUSH ET15>
3156                     <DEAD ET15>
3157                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3158                     <CALL '\1aFORM 3 = TEMP19>
3159                     <RETURN TEMP19>
3160                     <DEAD TEMP19>
3161 PHRASE54
3162                     <TYPE? NN8 <TYPE-CODE FIX> - PHRASE62>
3163                     <LESS? NN8 0 + PHRASE62 (TYPE FIX)>
3164                     <RETURN TEMP19>
3165                     <DEAD TEMP19>
3166 PHRASE62
3167                     <EQUAL? NN8 'ALL + BOOL67>
3168                     <TYPE? NN8 <TYPE-CODE FIX> - PHRASE66>
3169                     <GRTR? NN8 0 - PHRASE66 (TYPE FIX)>
3170 BOOL67
3171                     <RETURN ET15>
3172                     <DEAD ET15>
3173 PHRASE66
3174                     <FRAME '\1aERROR>
3175                     <PUSH 'BAD-CALL-TO-GET-ELE-TYPE>
3176                     <PUSH DCL27>
3177                     <DEAD DCL27>
3178                     <PUSH NN8>
3179                     <DEAD NN8>
3180                     <PUSH RST9>
3181                     <DEAD RST9>
3182                     <PUSH PT10>
3183                     <DEAD PT10>
3184                     <CALL '\1aERROR 5 = TEMP19>
3185                     <RETURN TEMP19>
3186                     <DEAD TEMP19>
3187 PHRASE17
3188                     <FRAME '\1aREAL-GET-ELE-TYPE>
3189                     <PUSH DCL27>
3190                     <DEAD DCL27>
3191                     <PUSH NN8>
3192                     <DEAD NN8>
3193                     <PUSH RST9>
3194                     <DEAD RST9>
3195                     <PUSH PT10>
3196                     <DEAD PT10>
3197                     <CALL '\1aREAL-GET-ELE-TYPE 4 = TEMP19>
3198 PHRASE73
3199                     <RETURN TEMP19>
3200                     <DEAD TEMP19>
3201                     <END \1aGET-ELE-TYPE>
3202 #WORD *12012663434*
3203 <GFCN \1aREAL-GET-ELE-TYPE ("VALUE" ANY ANY ANY ANY ANY) DCL24 NN5 RST6 PT7>
3204                     <TEMP (LN8 0) (CNT9:FIX 0) SDC12 (N14 0) (QOK16 %<>) (FMOK17 %<>) (GD19 <>) (GP20:LIST ()) (K21:FIX 0) (SEGF23 %<>) STRU18 DCL13 TEMP62 DC11 X151 ITYP10>
3205                     <INTGO>
3206                     <SET N14 DCL24>
3207                     <LOOP>
3208 AGAIN28
3209                     <INTGO>
3210                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE30>
3211                     <FRAME '\1aISTYPE?>
3212                     <PUSH N14>
3213                     <CALL '\1aISTYPE? 1 = LN8>
3214                     <TYPE? LN8 <TYPE-CODE FALSE> + PHRASE30>
3215                     <FRAME '\1aTYPE-AND>
3216                     <FRAME '\1aGET-ELE-TYPE>
3217                     <PUSH LN8>
3218                     <DEAD LN8>
3219                     <PUSH NN5>
3220                     <CALL '\1aGET-ELE-TYPE 2 = STACK>
3221                     <PUSH PT7>
3222                     <DEAD PT7>
3223                     <CALL '\1aTYPE-AND 2 = PT7>
3224 PHRASE30
3225                     <TYPE? N14 <TYPE-CODE ATOM> - BOOL35>
3226                     <FRAME '\1aDECL-GET>
3227                     <PUSH N14>
3228                     <PUSH N14>
3229                     <DEAD N14>
3230                     <CALL '\1aDECL-GET 2 = N14>
3231 BOOL35
3232                     <TYPE? N14 <TYPE-CODE SEGMENT> - PHRASE38>
3233                     <SET SEGF23 'T (TYPE ATOM)>
3234 PHRASE38
3235                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE40>
3236                     <FRAME '\1aSTRUCTYP>
3237                     <PUSH N14>
3238                     <CALL '\1aSTRUCTYP 1 = STRU18>
3239                     <TYPE? STRU18 <TYPE-CODE FALSE> - PHRASE44>
3240                     <SET STRU18 'STRUCTURED (TYPE ATOM)>
3241                     <JUMP + PHRASE44>
3242 PHRASE40
3243                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE44>
3244                     <FRAME '\1aISTYPE?>
3245                     <PUSH DCL24>
3246                     <CALL '\1aISTYPE? 1 = LN8>
3247                     <TYPE? LN8 <TYPE-CODE FALSE> - PHRASE51>
3248                     <FRAME '\1aSTRUCTYP>
3249                     <PUSH N14>
3250                     <CALL '\1aSTRUCTYP 1 = STRU18>
3251                     <TYPE? STRU18 <TYPE-CODE FALSE> + PHRASE48>
3252                     <FRAME '\1aFORM>
3253                     <PUSH 'PRIMTYPE>
3254                     <PUSH STRU18>
3255                     <DEAD STRU18>
3256                     <CALL '\1aFORM 2 = LN8>
3257                     <JUMP + PHRASE51>
3258 PHRASE48
3259                     <SET LN8 'STRUCTURED (TYPE ATOM)>
3260 PHRASE51
3261                     <SET STRU18 LN8>
3262                     <DEAD LN8>
3263 PHRASE44
3264                     <TYPE? N14 <TYPE-CODE FORM> + TAG55>
3265                     <TYPE? N14 <TYPE-CODE SEGMENT> - PHRASE53>
3266 TAG55
3267                     <SET DCL13 N14>
3268                     <LENL DCL13 = LN8 (TYPE FIX)>
3269                     <GRTR? LN8 1 - PHRASE53 (TYPE FIX)>
3270                     <DEAD LN8>
3271                     <NTHL DCL13 1 = LN8>
3272                     <SET TEMP62 [OR AND NOT] (TYPE VECTOR)>
3273                     <TYPE? LN8 <TYPE-CODE ATOM> - TAG59>
3274                     <LOOP (LN8 VALUE) (TEMP62 LENGTH VALUE)>
3275 TAG60
3276                     <NTHUV TEMP62 1 = FMOK17>
3277                     <VEQUAL? FMOK17 LN8 + TAG58>
3278                     <DEAD FMOK17>
3279                     <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
3280                     <EMPUV? TEMP62 - TAG60>
3281                     <JUMP + TAG59>
3282 TAG58
3283                     <SET FMOK17 TEMP62>
3284                     <DEAD TEMP62>
3285                     <JUMP + PHRASE53>
3286 TAG59
3287                     <SET FMOK17 %<> (TYPE FALSE)>
3288                     <SET QOK16 %<> (TYPE FALSE)>
3289                     <NTHL DCL13 1 = TEMP62>
3290                     <EQUAL? TEMP62 'QUOTE - TAG64>
3291                     <DEAD TEMP62>
3292                     <SET QOK16 'T (TYPE ATOM)>
3293                     <JUMP + PHRASE53>
3294 TAG64
3295                     <NTHL DCL13 1 = TEMP62>
3296                     <EQUAL? TEMP62 'PRIMTYPE + PHRASE53>
3297                     <DEAD TEMP62>
3298                     <EQUAL? NN5 'ALL - PHRASE66>
3299                     <TYPE? PT7 <TYPE-CODE FALSE> + BOOL67>
3300                     <FRAME '\1aFOSE>
3301                     <PUSH SEGF23>
3302                     <PUSH STRU18>
3303                     <CALL '\1aFOSE 2 = GD19>
3304                     <CHTYPE GD19 <TYPE-CODE LIST> = GP20>
3305 BOOL67
3306                     <RESTL DCL13 1 = TEMP62 (TYPE LIST)>
3307                     <NTHL TEMP62 1 = QOK16>
3308                     <DEAD TEMP62>
3309                     <TYPE? QOK16 <TYPE-CODE VECTOR> - PHRASE103>
3310                     <SET DC11 QOK16>
3311                     <DEAD QOK16>
3312                     <LENUV DC11 = TEMP62 (TYPE FIX)>
3313                     <LESS? TEMP62 2 + PHRASE103 (TYPE FIX)>
3314                     <DEAD TEMP62>
3315                     <NTHUV DC11 1 = TEMP62>
3316                     <EQUAL? TEMP62 'REST - PHRASE103>
3317                     <DEAD TEMP62>
3318                     <LENUV DC11 = TEMP62 (TYPE FIX)>
3319                     <VEQUAL? TEMP62 2 - PHRASE72 (TYPE FIX)>
3320                     <DEAD TEMP62>
3321                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE74>
3322                     <FRAME '\1aFORM>
3323                     <PUSH STRU18>
3324                     <DEAD STRU18>
3325                     <PUSH 'REST>
3326                     <NTHUV DC11 2 = STACK>
3327                     <DEAD DC11>
3328                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3329                     <CALL '\1aFORM 2 = SDC12>
3330                     <RETURN SDC12>
3331                     <DEAD SDC12>
3332 PHRASE74
3333                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE77>
3334                     <FRAME '\1aFORM>
3335                     <PUSH STRU18>
3336                     <DEAD STRU18>
3337                     <PUSH 'REST>
3338                     <FRAME '\1aTYPE-MERGE>
3339                     <NTHUV DC11 2 = STACK>
3340                     <DEAD DC11>
3341                     <PUSH PT7>
3342                     <DEAD PT7>
3343                     <CALL '\1aTYPE-MERGE 2 = STACK>
3344                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3345                     <CALL '\1aFORM 2 = SDC12>
3346                     <RETURN SDC12>
3347                     <DEAD SDC12>
3348 PHRASE77
3349                     <NTHUV DC11 2 = SDC12>
3350                     <DEAD DC11>
3351                     <TYPE? SDC12 <TYPE-CODE FALSE> - EXIT174>
3352                     <JUMP + PHRASE103>
3353 PHRASE72
3354                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE82>
3355                     <FRAME '\1aFORM>
3356                     <PUSH STRU18>
3357                     <DEAD STRU18>
3358                     <PUSH 'REST>
3359                     <FRAME '\1aTYPE-MERGE>
3360                     <SET LN8 0 (TYPE FIX)>
3361                     <RESTUV DC11 1 = TEMP62 (TYPE VECTOR)>
3362                     <DEAD DC11>
3363                     <LOOP (TEMP62 VALUE LENGTH) (LN8 VALUE)>
3364 TAG86
3365                     <INTGO>
3366                     <EMPUV? TEMP62 + TAG85>
3367                     <NTHUV TEMP62 1 = STACK>
3368                     <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
3369                     <ADD LN8 1 = LN8 (TYPE FIX)>
3370                     <JUMP + TAG86>
3371 TAG85
3372                     <CALL '\1aTYPE-MERGE LN8 = STACK>
3373                     <DEAD LN8>
3374                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3375                     <CALL '\1aFORM 2 = SDC12>
3376                     <RETURN SDC12>
3377                     <DEAD SDC12>
3378 PHRASE82
3379                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE88>
3380                     <FRAME '\1aFORM>
3381                     <PUSH STRU18>
3382                     <DEAD STRU18>
3383                     <PUSH 'REST>
3384                     <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
3385                     <DEAD DC11>
3386                     <SET LN8 0 (TYPE FIX)>
3387                     <FRAME '\1aTYPE-MERGE>
3388                     <LOOP>
3389 MAP92
3390                     <INTGO>
3391                     <EMPUV? SDC12 + MAPAP95>
3392                     <NTHUV SDC12 1 = QOK16>
3393                     <FRAME '\1aTYPE-MERGE>
3394                     <PUSH QOK16>
3395                     <DEAD QOK16>
3396                     <PUSH PT7>
3397                     <CALL '\1aTYPE-MERGE 2 = QOK16>
3398                     <PUSH QOK16>
3399                     <DEAD QOK16>
3400                     <ADD LN8 1 = LN8 (TYPE FIX)>
3401                     <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
3402                     <JUMP + MAP92>
3403 MAPAP95
3404                     <CALL '\1aTYPE-MERGE LN8 = STACK>
3405                     <DEAD LN8>
3406                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3407                     <CALL '\1aFORM 2 = SDC12>
3408                     <RETURN SDC12>
3409                     <DEAD SDC12>
3410 PHRASE88
3411                     <FRAME '\1aTYPE-MERGE>
3412                     <SET LN8 0 (TYPE FIX)>
3413                     <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
3414                     <DEAD DC11>
3415                     <LOOP (SDC12 VALUE LENGTH) (LN8 VALUE)>
3416 TAG105
3417                     <INTGO>
3418                     <EMPUV? SDC12 + TAG104>
3419                     <NTHUV SDC12 1 = STACK>
3420                     <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
3421                     <ADD LN8 1 = LN8 (TYPE FIX)>
3422                     <JUMP + TAG105>
3423 TAG104
3424                     <CALL '\1aTYPE-MERGE LN8 = SDC12>
3425                     <DEAD LN8>
3426                     <TYPE? SDC12 <TYPE-CODE FALSE> - EXIT174>
3427 PHRASE103
3428                     <FRAME '\1aDCX>
3429                     <RESTL DCL13 1 = SDC12 (TYPE LIST)>
3430                     <NTHL SDC12 1 = FMOK17>
3431                     <DEAD SDC12>
3432                     <PUSH FMOK17>
3433                     <CALL '\1aDCX 1 = N14>
3434                     <LOOP>
3435 AGAIN113
3436                     <INTGO>
3437                     <RESTL DCL13 1 = DCL13 (TYPE LIST)>
3438                     <CHTYPE DCL13 <TYPE-CODE LIST> = DCL13>
3439                     <EMPL? DCL13 - PHRASE115 (TYPE LIST)>
3440                     <TYPE? SEGF23 <TYPE-CODE FALSE> - TAG121>
3441                     <TYPE? FMOK17 <TYPE-CODE VECTOR> + TAG118>
3442                     <SET SEGF23 %<> (TYPE FALSE)>
3443                     <JUMP + TAG121>
3444 TAG118
3445                     <NTHUV FMOK17 1 = SDC12>
3446                     <DEAD FMOK17>
3447                     <EQUAL? SDC12 'REST - TAG120>
3448                     <DEAD SDC12>
3449                     <SET SEGF23 'T (TYPE ATOM)>
3450                     <JUMP + TAG121>
3451 TAG120
3452                     <SET SEGF23 %<> (TYPE FALSE)>
3453 TAG121
3454                     <TYPE? SEGF23 <TYPE-CODE FALSE> + PHRASE123>
3455                     <DEAD SEGF23>
3456                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE125>
3457                     <DEAD RST6>
3458                     <FRAME '\1aFORM>
3459                     <PUSH STRU18>
3460                     <DEAD STRU18>
3461                     <PUSH 'REST>
3462                     <PUSH N14>
3463                     <DEAD N14>
3464                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3465                     <CALL '\1aFORM 2 = SDC12>
3466                     <RETURN SDC12>
3467                     <DEAD SDC12>
3468 PHRASE125
3469                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE128>
3470                     <DEAD PT7>
3471                     <RETURN GD19>
3472                     <DEAD GD19>
3473 PHRASE128
3474                     <RETURN N14>
3475                     <DEAD N14>
3476 PHRASE123
3477                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE130>
3478                     <DEAD PT7>
3479                     <RETURN GD19>
3480                     <DEAD GD19>
3481 PHRASE130
3482                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE131>
3483                     <DEAD RST6>
3484                     <RETURN STRU18>
3485                     <DEAD STRU18>
3486 PHRASE131
3487                     <RETURN 'ANY>
3488 PHRASE115
3489                     <FRAME '\1aTYPE-MERGE>
3490                     <PUSH N14>
3491                     <DEAD N14>
3492                     <FRAME '\1aDCX>
3493                     <NTHL DCL13 1 = FMOK17>
3494                     <PUSH FMOK17>
3495                     <CALL '\1aDCX 1 = STACK>
3496                     <CALL '\1aTYPE-MERGE 2 = N14>
3497                     <TYPE? PT7 <TYPE-CODE FALSE> + AGAIN113>
3498                     <SET SDC12 GP20>
3499                     <DEAD GP20>
3500                     <TYPE? FMOK17 <TYPE-CODE VECTOR> - PHRASE137>
3501                     <NTHUV FMOK17 1 = STACK>
3502                     <SET QOK16 1 (TYPE FIX)>
3503                     <SET TEMP62 () (TYPE LIST)>
3504                     <SET LN8 () (TYPE LIST)>
3505                     <RESTUV FMOK17 1 = DC11 (TYPE VECTOR)>
3506                     <LOOP>
3507 MAP140
3508                     <INTGO>
3509                     <EMPUV? DC11 + MAPAP143>
3510                     <NTHUV DC11 1 = X151>
3511                     <FRAME '\1aTYPE-MERGE>
3512                     <PUSH X151>
3513                     <DEAD X151>
3514                     <PUSH PT7>
3515                     <CALL '\1aTYPE-MERGE 2 = X151>
3516                     <CONS X151 () = X151 (TYPE LIST)>
3517                     <EMPL? TEMP62 - TAG154>
3518                     <SET TEMP62 X151 (TYPE LIST)>
3519                     <JUMP + TAG155>
3520 TAG154
3521                     <PUTREST LN8 X151>
3522                     <DEAD LN8>
3523 TAG155
3524                     <SET LN8 X151 (TYPE LIST)>
3525                     <DEAD X151>
3526                     <RESTUV DC11 1 = DC11 (TYPE VECTOR)>
3527                     <JUMP + MAP140>
3528 MAPAP143
3529                     <LOOP (TEMP62 VALUE) (QOK16 VALUE)>
3530 TAG156
3531                     <INTGO>
3532                     <EMPL? TEMP62 + TAG138>
3533                     <NTHL TEMP62 1 = STACK>
3534                     <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
3535                     <ADD QOK16 1 = QOK16 (TYPE FIX)>
3536                     <JUMP + TAG156>
3537 TAG138
3538                     <UBLOCK <TYPE-CODE VECTOR> QOK16 = DC11>
3539                     <DEAD QOK16>
3540                     <JUMP + PHRASE158>
3541 PHRASE137
3542                     <FRAME '\1aTYPE-MERGE>
3543                     <PUSH PT7>
3544                     <PUSH FMOK17>
3545                     <CALL '\1aTYPE-MERGE 2 = DC11>
3546 PHRASE158
3547                     <CONS DC11 () = DC11>
3548                     <PUTREST SDC12 DC11>
3549                     <DEAD SDC12>
3550                     <SET GP20 DC11>
3551                     <DEAD DC11>
3552                     <JUMP + AGAIN113>
3553 PHRASE66
3554                     <SET N14 NN5>
3555                     <DEAD NN5>
3556                     <TYPE? PT7 <TYPE-CODE FALSE> + BOOL161>
3557                     <FRAME '\1aFOSE>
3558                     <PUSH SEGF23>
3559                     <PUSH STRU18>
3560                     <CALL '\1aFOSE 2 = GD19>
3561                     <CHTYPE GD19 <TYPE-CODE LIST> = GP20>
3562 BOOL161
3563                     <TYPE? RST6 <TYPE-CODE FALSE> + BOOL163>
3564                     <ADD N14 1 = N14 (TYPE FIX)>
3565 BOOL163
3566                     <RESTL DCL13 1 = DCL13 (TYPE LIST)>
3567                     <CHTYPE DCL13 <TYPE-CODE LIST> = DCL13>
3568                     <EMPL? DCL13 - PHRASE165 (TYPE LIST)>
3569                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE167>
3570                     <DEAD RST6>
3571                     <RETURN STRU18>
3572                     <DEAD STRU18>
3573 PHRASE167
3574                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE168>
3575                     <FRAME '\1aFOSE>
3576                     <PUSH SEGF23>
3577                     <DEAD SEGF23>
3578                     <PUSH STRU18>
3579                     <DEAD STRU18>
3580                     <SET SDC12 3 (TYPE FIX)>
3581                     <FRAME '\1aANY-PAT>
3582                     <SUB N14 1 = STACK (TYPE FIX)>
3583                     <DEAD N14>
3584                     <CALL '\1aANY-PAT 1 = DC11>
3585                     <LOOP (DC11 VALUE) (SDC12 VALUE)>
3586 TAG171
3587                     <INTGO>
3588                     <EMPL? DC11 + TAG169>
3589                     <NTHL DC11 1 = STACK>
3590                     <RESTL DC11 1 = DC11 (TYPE LIST)>
3591                     <ADD SDC12 1 = SDC12 (TYPE FIX)>
3592                     <JUMP + TAG171>
3593 TAG169
3594                     <PUSH PT7>
3595                     <DEAD PT7>
3596                     <CALL '\1aFOSE SDC12 = SDC12>
3597                     <RETURN SDC12>
3598                     <DEAD SDC12>
3599 PHRASE168
3600                     <RETURN 'ANY>
3601 PHRASE165
3602                     <LOOP>
3603 AGAIN175
3604                     <INTGO>
3605                     <VEQUAL? CNT9 0 + PHRASE177 (TYPE FIX)>
3606                     <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
3607                     <EMPUV? SDC12 - PHRASE196 (TYPE VECTOR)>
3608                     <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
3609                     <SUB CNT9 1 = CNT9 (TYPE FIX)>
3610                     <VEQUAL? CNT9 0 - PHRASE196 (TYPE FIX)>
3611                     <RESTL DCL13 1 = DCL13 (TYPE LIST)>
3612                     <EMPL? DCL13 - AGAIN175 (TYPE LIST)>
3613                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE188>
3614                     <DEAD RST6>
3615                     <RETURN STRU18>
3616                     <DEAD STRU18>
3617 PHRASE188
3618                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE189>
3619                     <CONS PT7 () = DC11>
3620                     <DEAD PT7>
3621                     <FRAME '\1aANY-PAT>
3622                     <SUB N14 1 = STACK (TYPE FIX)>
3623                     <DEAD N14>
3624                     <CALL '\1aANY-PAT 1 = TEMP62>
3625                     <SET X151 DC11>
3626                     <EMPL? TEMP62 + TAG191>
3627                     <NTHL TEMP62 1 = SDC12>
3628                     <CONS SDC12 DC11 = SDC12>
3629                     <SET X151 SDC12>
3630                     <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
3631                     <EMPL? TEMP62 + TAG191>
3632                     <LOOP (TEMP62 VALUE) (SDC12 VALUE) (DC11 VALUE)>
3633 TAG190
3634                     <NTHL TEMP62 1 = QOK16>
3635                     <CONS QOK16 DC11 = QOK16>
3636                     <PUTREST SDC12 QOK16>
3637                     <DEAD SDC12>
3638                     <SET SDC12 QOK16>
3639                     <DEAD QOK16>
3640                     <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
3641                     <EMPL? TEMP62 - TAG190>
3642 TAG191
3643                     <PUTREST GP20 X151>
3644                     <DEAD GP20 X151>
3645                     <RETURN GD19>
3646                     <DEAD GD19>
3647 PHRASE189
3648                     <RETURN 'ANY>
3649 PHRASE196
3650                     <NTHUV SDC12 1 = ITYP10>
3651                     <JUMP + PHRASE261>
3652 PHRASE177
3653                     <NTHL DCL13 1 = X151>
3654                     <TYPE? X151 <TYPE-CODE ATOM> + TAG198>
3655                     <TYPE? X151 <TYPE-CODE FORM> + TAG198>
3656                     <TYPE? X151 <TYPE-CODE SEGMENT> - PHRASE197>
3657                     <DEAD X151>
3658 TAG198
3659                     <NTHL DCL13 1 = ITYP10>
3660                     <RESTL DCL13 1 = DCL13 (TYPE LIST)>
3661                     <JUMP + PHRASE261>
3662 PHRASE197
3663                     <NTHL DCL13 1 = QOK16>
3664                     <TYPE? QOK16 <TYPE-CODE VECTOR> - PHRASE261>
3665                     <SET DC11 QOK16>
3666                     <DEAD QOK16>
3667                     <NTHUV DC11 1 = X151>
3668                     <EQUAL? X151 'REST - PHRASE201>
3669                     <DEAD X151>
3670                     <TYPE? RST6 <TYPE-CODE FALSE> + BOOL204>
3671                     <VEQUAL? N14 1 - BOOL203 (TYPE FIX)>
3672 BOOL204
3673                     <TYPE? PT7 <TYPE-CODE FALSE> + BOOL202>
3674 BOOL203
3675                     <LENUV DC11 = X151 (TYPE FIX)>
3676                     <VEQUAL? X151 2 - BOOL202 (TYPE FIX)>
3677                     <DEAD X151>
3678                     <FRAME '\1a=?>
3679                     <NTHUV DC11 2 = STACK>
3680                     <PUSH <NOT ANY>>
3681                     <CALL '\1a=? 2 = X151>
3682                     <VEQUAL? X151 0 + BOOL202>
3683                     <DEAD X151>
3684                     <RETURN %<>>
3685 BOOL202
3686                     <SUB N14 1 = X151 (TYPE FIX)>
3687                     <LENUV DC11 = SDC12 (TYPE FIX)>
3688                     <SUB SDC12 1 = SDC12 (TYPE FIX)>
3689                     <MOD X151 SDC12 = K21 (TYPE FIX)>
3690                     <DEAD X151 SDC12>
3691                     <SUB N14 1 = SDC12 (TYPE FIX)>
3692                     <DEAD N14>
3693                     <LENUV DC11 = X151 (TYPE FIX)>
3694                     <SUB X151 1 = X151 (TYPE FIX)>
3695                     <DIV SDC12 X151 = N14 (TYPE FIX)>
3696                     <DEAD SDC12 X151>
3697                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE209>
3698                     <DEAD RST6>
3699                     <FRAME '\1aFOSE>
3700                     <PUSH SEGF23>
3701                     <DEAD SEGF23>
3702                     <PUSH STRU18>
3703                     <DEAD STRU18>
3704                     <VEQUAL? K21 0 - PHRASE212 (TYPE FIX)>
3705                     <DEAD K21>
3706                     <SET X151 DC11>
3707                     <DEAD DC11>
3708                     <JUMP + PHRASE215>
3709 PHRASE212
3710                     <PUSH 'REST>
3711                     <FRAME '\1aTYPE-MERGE>
3712                     <SET TEMP62 0 (TYPE FIX)>
3713                     <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
3714                     <DEAD DC11>
3715                     <LOOP (SDC12 VALUE LENGTH) (TEMP62 VALUE)>
3716 TAG218
3717                     <INTGO>
3718                     <EMPUV? SDC12 + TAG217>
3719                     <NTHUV SDC12 1 = STACK>
3720                     <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
3721                     <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
3722                     <JUMP + TAG218>
3723 TAG217
3724                     <CALL '\1aTYPE-MERGE TEMP62 = STACK>
3725                     <DEAD TEMP62>
3726                     <UBLOCK <TYPE-CODE VECTOR> 2 = X151>
3727 PHRASE215
3728                     <PUSH X151>
3729                     <DEAD X151>
3730                     <CALL '\1aFOSE 3 = SDC12>
3731                     <RETURN SDC12>
3732                     <DEAD SDC12>
3733 PHRASE209
3734                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE220>
3735                     <CONS DC11 () = X151>
3736                     <SET TEMP62 () (TYPE LIST)>
3737                     <SET QOK16 () (TYPE LIST)>
3738                     <RESTUV DC11 1 = SDC12 (TYPE VECTOR)>
3739                     <LOOP>
3740 MAP224
3741                     <INTGO>
3742                     <EMPUV? SDC12 + MAPAP227>
3743                     <NTHUV SDC12 1 = FMOK17>
3744                     <SUB K21 1 = K21 (TYPE FIX)>
3745                     <VEQUAL? K21 -1 - PHRASE235 (TYPE FIX)>
3746                     <SET FMOK17 PT7>
3747 PHRASE235
3748                     <CONS FMOK17 () = FMOK17 (TYPE LIST)>
3749                     <EMPL? TEMP62 - TAG240>
3750                     <SET TEMP62 FMOK17 (TYPE LIST)>
3751                     <JUMP + TAG241>
3752 TAG240
3753                     <PUTREST QOK16 FMOK17>
3754                     <DEAD QOK16>
3755 TAG241
3756                     <SET QOK16 FMOK17 (TYPE LIST)>
3757                     <DEAD FMOK17>
3758                     <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
3759                     <JUMP + MAP224>
3760 MAPAP227
3761                     <SET SDC12 X151>
3762                     <EMPL? TEMP62 + TAG222>
3763                     <NTHL TEMP62 1 = FMOK17>
3764                     <CONS FMOK17 X151 = FMOK17>
3765                     <SET SDC12 FMOK17>
3766                     <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
3767                     <EMPL? TEMP62 + TAG222>
3768                     <LOOP (TEMP62 VALUE) (FMOK17 VALUE) (X151 VALUE)>
3769 TAG221
3770                     <NTHL TEMP62 1 = QOK16>
3771                     <CONS QOK16 X151 = QOK16>
3772                     <PUTREST FMOK17 QOK16>
3773                     <DEAD FMOK17>
3774                     <SET FMOK17 QOK16>
3775                     <DEAD QOK16>
3776                     <RESTL TEMP62 1 = TEMP62 (TYPE LIST)>
3777                     <EMPL? TEMP62 - TAG221>
3778 TAG222
3779                     <GRTR? N14 0 + PHRASE246 (TYPE FIX)>
3780                     <SET FMOK17 () (TYPE LIST)>
3781                     <JUMP + PHRASE256>
3782 PHRASE246
3783                     <VEQUAL? N14 1 - PHRASE249 (TYPE FIX)>
3784                     <RESTUV DC11 1 = TEMP62 (TYPE VECTOR)>
3785                     <DEAD DC11>
3786                     <SET QOK16 () (TYPE LIST)>
3787                     <EMPUV? TEMP62 + TAG253>
3788                     <NTHUV TEMP62 1 = FMOK17>
3789                     <CONS FMOK17 () = FMOK17>
3790                     <SET QOK16 FMOK17>
3791                     <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
3792                     <EMPUV? TEMP62 + TAG253>
3793                     <LOOP (TEMP62 VALUE LENGTH) (FMOK17 VALUE)>
3794 TAG252
3795                     <NTHUV TEMP62 1 = N14>
3796                     <CONS N14 () = N14>
3797                     <PUTREST FMOK17 N14>
3798                     <DEAD FMOK17>
3799                     <SET FMOK17 N14>
3800                     <DEAD N14>
3801                     <RESTUV TEMP62 1 = TEMP62 (TYPE VECTOR)>
3802                     <EMPUV? TEMP62 - TAG252>
3803 TAG253
3804                     <SET FMOK17 QOK16>
3805                     <DEAD QOK16>
3806                     <JUMP + PHRASE256>
3807 PHRASE249
3808                     <PUSH N14>
3809                     <DEAD N14>
3810                     <SET FMOK17 1 (TYPE FIX)>
3811                     <RESTUV DC11 1 = QOK16 (TYPE VECTOR)>
3812                     <DEAD DC11>
3813                     <LOOP (QOK16 VALUE LENGTH) (FMOK17 VALUE)>
3814 TAG258
3815                     <INTGO>
3816                     <EMPUV? QOK16 + TAG257>
3817                     <NTHUV QOK16 1 = STACK>
3818                     <RESTUV QOK16 1 = QOK16 (TYPE VECTOR)>
3819                     <ADD FMOK17 1 = FMOK17 (TYPE FIX)>
3820                     <JUMP + TAG258>
3821 TAG257
3822                     <UBLOCK <TYPE-CODE VECTOR> FMOK17 = QOK16>
3823                     <DEAD FMOK17>
3824                     <CONS QOK16 () = FMOK17>
3825                     <DEAD QOK16>
3826 PHRASE256
3827                     <SET QOK16 SDC12>
3828                     <EMPL? FMOK17 + TAG244>
3829                     <NTHL FMOK17 1 = TEMP62>
3830                     <CONS TEMP62 SDC12 = TEMP62>
3831                     <SET QOK16 TEMP62>
3832                     <RESTL FMOK17 1 = FMOK17 (TYPE LIST)>
3833                     <EMPL? FMOK17 + TAG244>
3834                     <LOOP (FMOK17 VALUE) (TEMP62 VALUE) (SDC12 VALUE)>
3835 TAG243
3836                     <NTHL FMOK17 1 = N14>
3837                     <CONS N14 SDC12 = N14>
3838                     <PUTREST TEMP62 N14>
3839                     <DEAD TEMP62>
3840                     <SET TEMP62 N14>
3841                     <DEAD N14>
3842                     <RESTL FMOK17 1 = FMOK17 (TYPE LIST)>
3843                     <EMPL? FMOK17 - TAG243>
3844 TAG244
3845                     <PUTREST GP20 QOK16>
3846                     <DEAD GP20 QOK16>
3847                     <RETURN GD19>
3848                     <DEAD GD19>
3849 PHRASE220
3850                     <ADD K21 2 = QOK16 (TYPE FIX)>
3851                     <DEAD K21>
3852                     <NTHUV DC11 QOK16 = SDC12>
3853                     <DEAD DC11 QOK16>
3854                     <RETURN SDC12>
3855                     <DEAD SDC12>
3856 PHRASE201
3857                     <NTHUV DC11 1 = QOK16>
3858                     <TYPE? QOK16 <TYPE-CODE FIX> + BOOL262>
3859                     <DEAD QOK16>
3860                     <NTHUV DC11 1 = QOK16>
3861                     <EQUAL? QOK16 'OPT + BOOL262>
3862                     <DEAD QOK16>
3863                     <NTHUV DC11 1 = QOK16>
3864                     <EQUAL? QOK16 'OPTIONAL - PHRASE261>
3865                     <DEAD QOK16>
3866 BOOL262
3867                     <NTHUV DC11 1 = QOK16>
3868                     <TYPE? QOK16 <TYPE-CODE FIX> - PHRASE264>
3869                     <DEAD QOK16>
3870                     <NTHUV DC11 1 = QOK16 (TYPE FIX)>
3871                     <JUMP + PHRASE265>
3872 PHRASE264
3873                     <SET QOK16 1 (TYPE FIX)>
3874 PHRASE265
3875                     <SET CNT9 QOK16>
3876                     <DEAD QOK16>
3877                     <SET SDC12 DC11>
3878                     <JUMP + AGAIN175>
3879 PHRASE261
3880                     <SUB N14 1 = N14 (TYPE FIX)>
3881                     <VEQUAL? N14 0 - BOOL266 (TYPE FIX)>
3882                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE270>
3883                     <DEAD RST6>
3884                     <EMPL? DCL13 - PHRASE272 (TYPE LIST)>
3885                     <VEQUAL? CNT9 0 - PHRASE272 (TYPE FIX)>
3886                     <RETURN STRU18>
3887                     <DEAD STRU18>
3888 PHRASE272
3889                     <FRAME '\1aFOSE>
3890                     <PUSH SEGF23>
3891                     <DEAD SEGF23>
3892                     <PUSH STRU18>
3893                     <DEAD STRU18>
3894                     <SET TEMP62 2 (TYPE FIX)>
3895                     <VEQUAL? CNT9 0 - PHRASE278 (TYPE FIX)>
3896                     <CONS ITYP10 DCL13 = QOK16>
3897                     <DEAD ITYP10 DCL13>
3898                     <JUMP + PHRASE298>
3899 PHRASE278
3900                     <RESTUV DC11 1 = FMOK17 (TYPE VECTOR)>
3901                     <VEQUAL? FMOK17 SDC12 + PHRASE281>
3902                     <DEAD FMOK17>
3903                     <SUB CNT9 1 = CNT9 (TYPE FIX)>
3904                     <VEQUAL? CNT9 0 - PHRASE283 (TYPE FIX)>
3905                     <RESTL DCL13 1 = FMOK17 (TYPE LIST)>
3906                     <DEAD DCL13>
3907                     <SET N14 SDC12>
3908                     <DEAD SDC12>
3909                     <SET GD19 FMOK17>
3910                     <EMPUV? N14 + TAG287>
3911                     <NTHUV N14 1 = SEGF23>
3912                     <CONS SEGF23 FMOK17 = SEGF23>
3913                     <SET GD19 SEGF23>
3914                     <RESTUV N14 1 = N14 (TYPE VECTOR)>
3915                     <EMPUV? N14 + TAG287>
3916                     <LOOP (N14 VALUE LENGTH) (SEGF23 VALUE) (FMOK17 VALUE)>
3917 TAG286
3918                     <NTHUV N14 1 = LN8>
3919                     <CONS LN8 FMOK17 = LN8>
3920                     <PUTREST SEGF23 LN8>
3921                     <DEAD SEGF23>
3922                     <SET SEGF23 LN8>
3923                     <DEAD LN8>
3924                     <RESTUV N14 1 = N14 (TYPE VECTOR)>
3925                     <EMPUV? N14 - TAG286>
3926 TAG287
3927                     <SET QOK16 GD19>
3928                     <DEAD GD19>
3929                     <JUMP + PHRASE298>
3930 PHRASE283
3931                     <RESTL DCL13 1 = GD19 (TYPE LIST)>
3932                     <DEAD DCL13>
3933                     <PUSH CNT9>
3934                     <DEAD CNT9>
3935                     <SET N14 1 (TYPE FIX)>
3936                     <RESTUV DC11 1 = SEGF23 (TYPE VECTOR)>
3937                     <DEAD DC11>
3938                     <LOOP (SEGF23 VALUE LENGTH) (N14 VALUE)>
3939 TAG293
3940                     <INTGO>
3941                     <EMPUV? SEGF23 + TAG292>
3942                     <NTHUV SEGF23 1 = STACK>
3943                     <RESTUV SEGF23 1 = SEGF23 (TYPE VECTOR)>
3944                     <ADD N14 1 = N14 (TYPE FIX)>
3945                     <JUMP + TAG293>
3946 TAG292
3947                     <UBLOCK <TYPE-CODE VECTOR> N14 = SEGF23>
3948                     <DEAD N14>
3949                     <CONS SEGF23 GD19 = QOK16>
3950                     <DEAD SEGF23 GD19>
3951                     <SET GD19 SDC12>
3952                     <DEAD SDC12>
3953                     <SET SEGF23 QOK16>
3954                     <EMPUV? GD19 + TAG296>
3955                     <NTHUV GD19 1 = LN8>
3956                     <CONS LN8 QOK16 = LN8>
3957                     <SET SEGF23 LN8>
3958                     <RESTUV GD19 1 = GD19 (TYPE VECTOR)>
3959                     <EMPUV? GD19 + TAG296>
3960                     <LOOP (GD19 VALUE LENGTH) (LN8 VALUE) (QOK16 VALUE)>
3961 TAG295
3962                     <NTHUV GD19 1 = SDC12>
3963                     <CONS SDC12 QOK16 = SDC12>
3964                     <PUTREST LN8 SDC12>
3965                     <DEAD LN8>
3966                     <SET LN8 SDC12>
3967                     <DEAD SDC12>
3968                     <RESTUV GD19 1 = GD19 (TYPE VECTOR)>
3969                     <EMPUV? GD19 - TAG295>
3970 TAG296
3971                     <SET QOK16 SEGF23>
3972                     <DEAD SEGF23>
3973                     <JUMP + PHRASE298>
3974 PHRASE281
3975                     <RESTL DCL13 1 = SEGF23 (TYPE LIST)>
3976                     <DEAD DCL13>
3977                     <PUSH CNT9>
3978                     <DEAD CNT9>
3979                     <SET GD19 1 (TYPE FIX)>
3980                     <SET LN8 SDC12>
3981                     <DEAD SDC12>
3982                     <LOOP (LN8 VALUE LENGTH) (GD19 VALUE)>
3983 TAG300
3984                     <INTGO>
3985                     <EMPUV? LN8 + TAG299>
3986                     <NTHUV LN8 1 = STACK>
3987                     <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
3988                     <ADD GD19 1 = GD19 (TYPE FIX)>
3989                     <JUMP + TAG300>
3990 TAG299
3991                     <UBLOCK <TYPE-CODE VECTOR> GD19 = LN8>
3992                     <DEAD GD19>
3993                     <CONS LN8 SEGF23 = QOK16>
3994                     <DEAD LN8 SEGF23>
3995 PHRASE298
3996                     <LOOP (QOK16 VALUE) (TEMP62 VALUE)>
3997 TAG302
3998                     <INTGO>
3999                     <EMPL? QOK16 + TAG276>
4000                     <NTHL QOK16 1 = STACK>
4001                     <RESTL QOK16 1 = QOK16 (TYPE LIST)>
4002                     <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
4003                     <JUMP + TAG302>
4004 TAG276
4005                     <CALL '\1aFOSE TEMP62 = SDC12>
4006                     <DEAD TEMP62>
4007                     <RETURN SDC12>
4008                     <DEAD SDC12>
4009 PHRASE270
4010                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE304>
4011                     <CONS PT7 () = TEMP62>
4012                     <DEAD PT7>
4013                     <PUTREST GP20 TEMP62>
4014                     <DEAD GP20>
4015                     <SET GP20 TEMP62>
4016                     <DEAD TEMP62>
4017                     <TYPE? SDC12 <TYPE-CODE UNBOUND> + BOOL305>
4018                     <RESTUV SDC12 1 = SDC12 (TYPE VECTOR)>
4019 BOOL305
4020                     <EMPL? DCL13 - PHRASE307 (TYPE LIST)>
4021                     <VEQUAL? CNT9 0 - PHRASE307 (TYPE FIX)>
4022                     <RETURN GD19>
4023                     <DEAD GD19>
4024 PHRASE307
4025                     <VEQUAL? CNT9 0 + BOOL314 (TYPE FIX)>
4026                     <VEQUAL? CNT9 1 - PHRASE313 (TYPE FIX)>
4027                     <RESTUV DC11 1 = TEMP62 (TYPE VECTOR)>
4028                     <VEQUAL? TEMP62 SDC12 - PHRASE313>
4029                     <DEAD TEMP62>
4030 BOOL314
4031                     <SET TEMP62 DCL13>
4032                     <DEAD DCL13>
4033                     <JUMP + PHRASE332>
4034 PHRASE313
4035                     <RESTUV DC11 1 = SEGF23 (TYPE VECTOR)>
4036                     <VEQUAL? SEGF23 SDC12 - PHRASE320>
4037                     <DEAD SEGF23>
4038                     <RESTL DCL13 1 = SEGF23 (TYPE LIST)>
4039                     <DEAD DCL13>
4040                     <PUSH CNT9>
4041                     <DEAD CNT9>
4042                     <SET SDC12 1 (TYPE FIX)>
4043                     <RESTUV DC11 1 = LN8 (TYPE VECTOR)>
4044                     <DEAD DC11>
4045                     <LOOP (LN8 VALUE LENGTH) (SDC12 VALUE)>
4046 TAG322
4047                     <INTGO>
4048                     <EMPUV? LN8 + TAG321>
4049                     <NTHUV LN8 1 = STACK>
4050                     <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
4051                     <ADD SDC12 1 = SDC12 (TYPE FIX)>
4052                     <JUMP + TAG322>
4053 TAG321
4054                     <UBLOCK <TYPE-CODE VECTOR> SDC12 = LN8>
4055                     <DEAD SDC12>
4056                     <CONS LN8 SEGF23 = TEMP62>
4057                     <DEAD LN8 SEGF23>
4058                     <JUMP + PHRASE332>
4059 PHRASE320
4060                     <SUB CNT9 1 = CNT9 (TYPE FIX)>
4061                     <GRTR? CNT9 0 + PHRASE324 (TYPE FIX)>
4062                     <RESTL DCL13 1 = SEGF23 (TYPE LIST)>
4063                     <DEAD DCL13>
4064                     <SET LN8 SDC12>
4065                     <DEAD SDC12>
4066                     <SET QOK16 SEGF23>
4067                     <EMPUV? LN8 + TAG328>
4068                     <NTHUV LN8 1 = FMOK17>
4069                     <CONS FMOK17 SEGF23 = FMOK17>
4070                     <SET QOK16 FMOK17>
4071                     <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
4072                     <EMPUV? LN8 + TAG328>
4073                     <LOOP (LN8 VALUE LENGTH) (FMOK17 VALUE) (SEGF23 VALUE)>
4074 TAG327
4075                     <NTHUV LN8 1 = SDC12>
4076                     <CONS SDC12 SEGF23 = SDC12>
4077                     <PUTREST FMOK17 SDC12>
4078                     <DEAD FMOK17>
4079                     <SET FMOK17 SDC12>
4080                     <DEAD SDC12>
4081                     <RESTUV LN8 1 = LN8 (TYPE VECTOR)>
4082                     <EMPUV? LN8 - TAG327>
4083 TAG328
4084                     <SET TEMP62 QOK16>
4085                     <DEAD QOK16>
4086                     <JUMP + PHRASE332>
4087 PHRASE324
4088                     <RESTL DCL13 1 = QOK16 (TYPE LIST)>
4089                     <DEAD DCL13>
4090                     <PUSH CNT9>
4091                     <DEAD CNT9>
4092                     <SET LN8 1 (TYPE FIX)>
4093                     <RESTUV DC11 1 = FMOK17 (TYPE VECTOR)>
4094                     <DEAD DC11>
4095                     <LOOP (FMOK17 VALUE LENGTH) (LN8 VALUE)>
4096 TAG334
4097                     <INTGO>
4098                     <EMPUV? FMOK17 + TAG333>
4099                     <NTHUV FMOK17 1 = STACK>
4100                     <RESTUV FMOK17 1 = FMOK17 (TYPE VECTOR)>
4101                     <ADD LN8 1 = LN8 (TYPE FIX)>
4102                     <JUMP + TAG334>
4103 TAG333
4104                     <UBLOCK <TYPE-CODE VECTOR> LN8 = FMOK17>
4105                     <DEAD LN8>
4106                     <CONS FMOK17 QOK16 = TEMP62>
4107                     <DEAD FMOK17 QOK16>
4108                     <SET QOK16 SDC12>
4109                     <DEAD SDC12>
4110                     <SET FMOK17 TEMP62>
4111                     <EMPUV? QOK16 + TAG337>
4112                     <NTHUV QOK16 1 = SDC12>
4113                     <CONS SDC12 TEMP62 = SDC12>
4114                     <SET FMOK17 SDC12>
4115                     <RESTUV QOK16 1 = QOK16 (TYPE VECTOR)>
4116                     <EMPUV? QOK16 + TAG337>
4117                     <LOOP (QOK16 VALUE LENGTH) (SDC12 VALUE) (TEMP62 VALUE)>
4118 TAG336
4119                     <NTHUV QOK16 1 = N14>
4120                     <CONS N14 TEMP62 = N14>
4121                     <PUTREST SDC12 N14>
4122                     <DEAD SDC12>
4123                     <SET SDC12 N14>
4124                     <DEAD N14>
4125                     <RESTUV QOK16 1 = QOK16 (TYPE VECTOR)>
4126                     <EMPUV? QOK16 - TAG336>
4127 TAG337
4128                     <SET TEMP62 FMOK17>
4129                     <DEAD FMOK17>
4130 PHRASE332
4131                     <PUTREST GP20 TEMP62>
4132                     <DEAD GP20 TEMP62>
4133                     <RETURN GD19>
4134                     <DEAD GD19>
4135 PHRASE304
4136                     <RETURN ITYP10>
4137                     <DEAD ITYP10>
4138 BOOL266
4139                     <TYPE? PT7 <TYPE-CODE FALSE> - BOOL341>
4140                     <TYPE? RST6 <TYPE-CODE FALSE> + BOOL340>
4141 BOOL341
4142                     <FRAME '\1a=?>
4143                     <PUSH ITYP10>
4144                     <PUSH <NOT ANY>>
4145                     <CALL '\1a=? 2 = FMOK17>
4146                     <VEQUAL? FMOK17 0 + BOOL340>
4147                     <DEAD FMOK17>
4148                     <RETURN %<>>
4149 BOOL340
4150                     <TYPE? PT7 <TYPE-CODE FALSE> + BOOL343>
4151                     <CONS ITYP10 () = FMOK17>
4152                     <PUTREST GP20 FMOK17>
4153                     <DEAD GP20>
4154                     <SET GP20 FMOK17>
4155                     <DEAD FMOK17>
4156 BOOL343
4157                     <EMPL? DCL13 - AGAIN175 (TYPE LIST)>
4158                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE347>
4159                     <DEAD RST6>
4160                     <RETURN STRU18>
4161                     <DEAD STRU18>
4162 PHRASE347
4163                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE348>
4164                     <CONS PT7 () = FMOK17>
4165                     <DEAD PT7>
4166                     <FRAME '\1aANY-PAT>
4167                     <SUB N14 1 = STACK (TYPE FIX)>
4168                     <DEAD N14>
4169                     <CALL '\1aANY-PAT 1 = SDC12>
4170                     <SET QOK16 FMOK17>
4171                     <EMPL? SDC12 + TAG350>
4172                     <NTHL SDC12 1 = N14>
4173                     <CONS N14 FMOK17 = N14>
4174                     <SET QOK16 N14>
4175                     <RESTL SDC12 1 = SDC12 (TYPE LIST)>
4176                     <EMPL? SDC12 + TAG350>
4177                     <LOOP (SDC12 VALUE) (N14 VALUE) (FMOK17 VALUE)>
4178 TAG349
4179                     <NTHL SDC12 1 = SEGF23>
4180                     <CONS SEGF23 FMOK17 = SEGF23>
4181                     <PUTREST N14 SEGF23>
4182                     <DEAD N14>
4183                     <SET N14 SEGF23>
4184                     <DEAD SEGF23>
4185                     <RESTL SDC12 1 = SDC12 (TYPE LIST)>
4186                     <EMPL? SDC12 - TAG349>
4187 TAG350
4188                     <PUTREST GP20 QOK16>
4189                     <DEAD GP20 QOK16>
4190                     <RETURN GD19>
4191                     <DEAD GD19>
4192 PHRASE348
4193                     <RETURN 'ANY>
4194 EXIT174
4195                     <RETURN SDC12>
4196                     <DEAD SDC12>
4197 PHRASE53
4198                     <VEQUAL? QOK16 0 + PHRASE354>
4199                     <DEAD QOK16>
4200                     <FRAME '\1aGEN-DECL>
4201                     <RESTL DCL13 1 = QOK16 (TYPE LIST)>
4202                     <NTHL QOK16 1 = STACK>
4203                     <DEAD QOK16>
4204                     <CALL '\1aGEN-DECL 1 = N14>
4205                     <SET QOK16 %<> (TYPE FALSE)>
4206                     <JUMP + AGAIN28>
4207 PHRASE354
4208                     <TYPE? FMOK17 <TYPE-CODE FALSE> + PHRASE356>
4209                     <NTHUV FMOK17 1 = QOK16>
4210                     <EQUAL? QOK16 'OR - PHRASE356>
4211                     <DEAD QOK16>
4212                     <RESTL DCL13 1 = SDC12 (TYPE LIST)>
4213                     <DEAD DCL13>
4214                     <CHTYPE SDC12 <TYPE-CODE LIST> = SDC12>
4215                     <SET SEGF23 0 (TYPE FIX)>
4216                     <FRAME '\1aTYPE-MERGE>
4217                     <LOOP>
4218 MAP359
4219                     <INTGO>
4220                     <EMPL? SDC12 + MAPAP362>
4221                     <NTHL SDC12 1 = QOK16>
4222                     <FRAME '\1aGET-ELE-TYPE>
4223                     <PUSH QOK16>
4224                     <DEAD QOK16>
4225                     <PUSH NN5>
4226                     <PUSH RST6>
4227                     <PUSH PT7>
4228                     <CALL '\1aGET-ELE-TYPE 4 = QOK16>
4229                     <TYPE? QOK16 <TYPE-CODE FALSE> + MAP360>
4230                     <EQUAL? QOK16 'ANY - BOOL371>
4231                     <SET SDC12 'ANY (TYPE ATOM)>
4232                     <SUB 0 SEGF23 = SEGF23 (TYPE FIX)>
4233                     <MUL SEGF23 2 = SEGF23 (TYPE FIX)>
4234                     <ADJ SEGF23>
4235                     <DEAD SEGF23>
4236                     <RETURN SDC12>
4237                     <DEAD SDC12>
4238 BOOL371
4239                     <PUSH QOK16>
4240                     <DEAD QOK16>
4241                     <ADD SEGF23 1 = SEGF23 (TYPE FIX)>
4242 MAP360
4243                     <RESTL SDC12 1 = SDC12 (TYPE LIST)>
4244                     <JUMP + MAP359>
4245 MAPAP362
4246                     <CALL '\1aTYPE-MERGE SEGF23 = SDC12>
4247                     <DEAD SEGF23>
4248                     <RETURN SDC12>
4249                     <DEAD SDC12>
4250 PHRASE356
4251                     <TYPE? FMOK17 <TYPE-CODE FALSE> + PHRASE376>
4252                     <NTHUV FMOK17 1 = SDC12>
4253                     <DEAD FMOK17>
4254                     <EQUAL? SDC12 'AND - PHRASE376>
4255                     <DEAD SDC12>
4256                     <SET ITYP10 'ANY (TYPE ATOM)>
4257                     <RESTL DCL13 1 = SDC12 (TYPE LIST)>
4258                     <DEAD DCL13>
4259                     <CHTYPE SDC12 <TYPE-CODE LIST> = SDC12>
4260                     <LOOP>
4261 MAP379
4262                     <INTGO>
4263                     <EMPL? SDC12 + MAPAP382>
4264                     <NTHL SDC12 1 = QOK16>
4265                     <FRAME '\1aTYPE-OK?>
4266                     <PUSH ITYP10>
4267                     <DEAD ITYP10>
4268                     <FRAME '\1aGET-ELE-TYPE>
4269                     <PUSH QOK16>
4270                     <DEAD QOK16>
4271                     <PUSH NN5>
4272                     <PUSH RST6>
4273                     <CALL '\1aGET-ELE-TYPE 3 = STACK>
4274                     <CALL '\1aTYPE-OK? 2 = ITYP10>
4275                     <RESTL SDC12 1 = SDC12 (TYPE LIST)>
4276                     <JUMP + MAP379>
4277 MAPAP382
4278                     <RETURN ITYP10>
4279                     <DEAD ITYP10>
4280 PHRASE376
4281                     <TYPE? RST6 <TYPE-CODE FALSE> + PHRASE389>
4282                     <DEAD RST6>
4283                     <FRAME '\1aSTRUCTYP>
4284                     <PUSH N14>
4285                     <DEAD N14>
4286                     <CALL '\1aSTRUCTYP 1 = SDC12>
4287                     <TYPE? SDC12 <TYPE-CODE FALSE> - PHRASE392>
4288                     <SET SDC12 'STRUCTURED (TYPE ATOM)>
4289 PHRASE392
4290                     <RETURN SDC12>
4291                     <DEAD SDC12>
4292 PHRASE389
4293                     <TYPE? PT7 <TYPE-CODE FALSE> + PHRASE393>
4294                     <EQUAL? NN5 'ALL - PHRASE395>
4295                     <RETURN N14>
4296                     <DEAD N14>
4297 PHRASE395
4298                     <FRAME '\1aFOSE>
4299                     <PUSH SEGF23>
4300                     <DEAD SEGF23>
4301                     <PUSH N14>
4302                     <DEAD N14>
4303                     <SET QOK16 3 (TYPE FIX)>
4304                     <FRAME '\1aANY-PAT>
4305                     <SUB NN5 1 = STACK (TYPE FIX)>
4306                     <DEAD NN5>
4307                     <CALL '\1aANY-PAT 1 = SDC12>
4308                     <LOOP (SDC12 VALUE) (QOK16 VALUE)>
4309 TAG399
4310                     <INTGO>
4311                     <EMPL? SDC12 + TAG397>
4312                     <NTHL SDC12 1 = STACK>
4313                     <RESTL SDC12 1 = SDC12 (TYPE LIST)>
4314                     <ADD QOK16 1 = QOK16 (TYPE FIX)>
4315                     <JUMP + TAG399>
4316 TAG397
4317                     <PUSH PT7>
4318                     <DEAD PT7>
4319                     <CALL '\1aFOSE QOK16 = SDC12>
4320                     <DEAD QOK16>
4321                     <RETURN SDC12>
4322                     <DEAD SDC12>
4323 PHRASE393
4324                     <RETURN 'ANY>
4325                     <END \1aREAL-GET-ELE-TYPE>
4326 "\f"
4327
4328 #WORD *35341206656*
4329 <GFCN \1aMINL ("VALUE" FIX ANY) DCL4>
4330                     <TEMP TEMP6:FIX>
4331                     <INTGO>
4332                     <FRAME '\1aMIN-MAX-L>
4333                     <PUSH DCL4>
4334                     <DEAD DCL4>
4335                     <PUSH %<>>
4336                     <CALL '\1aMIN-MAX-L 2 = TEMP6>
4337                     <RETURN TEMP6>
4338                     <DEAD TEMP6>
4339                     <END \1aMINL>
4340 #WORD *36747210362*
4341 <GFCN \1aMAXL ("VALUE" FIX ANY) DCL4>
4342                     <TEMP TEMP6:FIX>
4343                     <INTGO>
4344                     <FRAME '\1aMIN-MAX-L>
4345                     <PUSH DCL4>
4346                     <DEAD DCL4>
4347                     <PUSH 'T>
4348                     <CALL '\1aMIN-MAX-L 2 = TEMP6>
4349                     <RETURN TEMP6>
4350                     <DEAD TEMP6>
4351                     <END \1aMAXL>
4352 #WORD *27422404653*
4353 <GFCN \1aMIN-MAX-L ("VALUE" FIX ANY ANY) DCL4 MAXF5>
4354                     <TEMP (N6:FIX 0) (LN10:FIX 0) (QOK11 %<>) (ANDOK12 %<>) (OROK14 %<>) DC9 TEMP26>
4355                     <INTGO>
4356                     <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE17>
4357                     <SET LN10 0 (TYPE FIX)>
4358                     <JUMP + PHRASE18>
4359 PHRASE17
4360                     <SET LN10 65535 (TYPE FIX)>
4361 PHRASE18
4362                     <TYPE? DCL4 <TYPE-CODE ATOM> - PHRASE20>
4363                     <FRAME '\1aDECL-GET>
4364                     <PUSH DCL4>
4365                     <PUSH DCL4>
4366                     <DEAD DCL4>
4367                     <CALL '\1aDECL-GET 2 = DCL4>
4368 PHRASE20
4369                     <TYPE? DCL4 <TYPE-CODE FORM> + TAG25>
4370                     <TYPE? DCL4 <TYPE-CODE SEGMENT> - PHRASE23>
4371 TAG25
4372                     <SET DC9 DCL4>
4373                     <EMPL? DC9 + PHRASE23>
4374                     <RESTL DC9 1 = TEMP26 (TYPE LIST)>
4375                     <EMPL? TEMP26 + PHRASE23>
4376                     <DEAD TEMP26>
4377                     <NTHL DC9 1 = TEMP26>
4378                     <EQUAL? TEMP26 'PRIMTYPE + PHRASE23>
4379                     <SET OROK14 %<> (TYPE FALSE)>
4380                     <EQUAL? TEMP26 'OR - TAG27>
4381                     <SET OROK14 'T (TYPE ATOM)>
4382                     <JUMP + PHRASE23>
4383 TAG27
4384                     <SET QOK11 %<> (TYPE FALSE)>
4385                     <EQUAL? TEMP26 'QUOTE - TAG28>
4386                     <SET QOK11 'T (TYPE ATOM)>
4387                     <JUMP + PHRASE23>
4388 TAG28
4389                     <SET ANDOK12 %<> (TYPE FALSE)>
4390                     <EQUAL? TEMP26 'AND - TAG29>
4391                     <SET ANDOK12 'T (TYPE ATOM)>
4392                     <JUMP + PHRASE23>
4393 TAG29
4394                     <EQUAL? TEMP26 'NOT + PHRASE23>
4395                     <DEAD TEMP26>
4396                     <RESTL DC9 1 = DC9 (TYPE LIST)>
4397                     <CHTYPE DC9 <TYPE-CODE LIST> = DC9>
4398                     <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE31>
4399                     <TYPE? DCL4 <TYPE-CODE FORM> - PHRASE31>
4400                     <RETURN 65535>
4401 PHRASE31
4402                     <LOOP>
4403 AGAIN37
4404                     <INTGO>
4405                     <NTHL DC9 1 = QOK11>
4406                     <TYPE? QOK11 <TYPE-CODE VECTOR> - PHRASE39>
4407                     <SET ANDOK12 QOK11>
4408                     <LENUV ANDOK12 = OROK14 (TYPE FIX)>
4409                     <GRTR? OROK14 1 - PHRASE39 (TYPE FIX)>
4410                     <DEAD OROK14>
4411                     <NTHUV ANDOK12 1 = QOK11>
4412                     <EQUAL? QOK11 'REST + BOOL46>
4413                     <EQUAL? QOK11 'OPT + BOOL46>
4414                     <EQUAL? QOK11 'OPTIONAL - PHRASE45>
4415 BOOL46
4416                     <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE48>
4417                     <EQUAL? QOK11 'REST - PHRASE50>
4418                     <DEAD QOK11>
4419                     <RETURN 65535>
4420 PHRASE50
4421                     <LENUV ANDOK12 = OROK14 (TYPE FIX)>
4422                     <DEAD ANDOK12>
4423                     <SUB OROK14 1 = OROK14 (TYPE FIX)>
4424                     <ADD OROK14 N6 = N6 (TYPE FIX)>
4425                     <DEAD OROK14>
4426                     <JUMP + PHRASE58>
4427 PHRASE48
4428                     <RETURN N6>
4429                     <DEAD N6>
4430 PHRASE45
4431                     <NTHUV ANDOK12 1 = OROK14>
4432                     <TYPE? OROK14 <TYPE-CODE FIX> - PHRASE53>
4433                     <DEAD OROK14>
4434                     <NTHUV ANDOK12 1 = LN10 (TYPE FIX)>
4435                     <LENUV ANDOK12 = OROK14 (TYPE FIX)>
4436                     <DEAD ANDOK12>
4437                     <SUB OROK14 1 = OROK14 (TYPE FIX)>
4438                     <MUL OROK14 LN10 = OROK14 (TYPE FIX)>
4439                     <DEAD LN10>
4440                     <ADD OROK14 N6 = N6 (TYPE FIX)>
4441                     <DEAD OROK14>
4442                     <JUMP + PHRASE58>
4443 PHRASE53
4444                     <FRAME '\1aCOMPILE-ERROR>
4445                     <PUSH "Bad DECL syntax">
4446                     <PUSH DCL4>
4447                     <CALL '\1aCOMPILE-ERROR 2>
4448                     <JUMP + PHRASE58>
4449 PHRASE39
4450                     <TYPE? QOK11 <TYPE-CODE ATOM> + TAG57>
4451                     <TYPE? QOK11 <TYPE-CODE FORM> + TAG57>
4452                     <TYPE? QOK11 <TYPE-CODE SEGMENT> - PHRASE56>
4453                     <DEAD QOK11>
4454 TAG57
4455                     <ADD N6 1 = N6 (TYPE FIX)>
4456                     <JUMP + PHRASE58>
4457 PHRASE56
4458                     <FRAME '\1aCOMPILE-ERROR>
4459                     <PUSH "Bad DECL syntax">
4460                     <PUSH DCL4>
4461                     <CALL '\1aCOMPILE-ERROR 2>
4462 PHRASE58
4463                     <RESTL DC9 1 = DC9 (TYPE LIST)>
4464                     <EMPL? DC9 - AGAIN37 (TYPE LIST)>
4465                     <RETURN N6>
4466                     <DEAD N6>
4467 PHRASE23
4468                     <VEQUAL? OROK14 0 - BOOL63>
4469                     <VEQUAL? ANDOK12 0 + PHRASE62>
4470                     <DEAD ANDOK12>
4471 BOOL63
4472                     <RESTL DC9 1 = ANDOK12 (TYPE LIST)>
4473                     <DEAD DC9>
4474                     <CHTYPE ANDOK12 <TYPE-CODE LIST> = ANDOK12>
4475                     <LOOP>
4476 MAP65
4477                     <INTGO>
4478                     <EMPL? ANDOK12 + MAPAP68>
4479                     <NTHL ANDOK12 1 = QOK11>
4480                     <VEQUAL? OROK14 0 + PHRASE77>
4481                     <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE79>
4482                     <FRAME '\1aMIN-MAX-L>
4483                     <PUSH QOK11>
4484                     <DEAD QOK11>
4485                     <PUSH MAXF5>
4486                     <CALL '\1aMIN-MAX-L 2 = N6>
4487                     <LESS? LN10 N6 - PHRASE92>
4488                     <SET LN10 N6 (TYPE FIX)>
4489                     <DEAD N6>
4490                     <JUMP + PHRASE92>
4491 PHRASE79
4492                     <SET N6 LN10>
4493                     <DEAD LN10>
4494                     <FRAME '\1aMIN-MAX-L>
4495                     <PUSH QOK11>
4496                     <DEAD QOK11>
4497                     <PUSH MAXF5>
4498                     <CALL '\1aMIN-MAX-L 2 = LN10>
4499                     <GRTR? N6 LN10 - TAG87>
4500                     <SET N6 LN10 (TYPE FIX)>
4501                     <DEAD LN10>
4502 TAG87
4503                     <SET LN10 N6>
4504                     <DEAD N6>
4505                     <JUMP + PHRASE92>
4506 PHRASE77
4507                     <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE88>
4508                     <FRAME '\1aMIN-MAX-L>
4509                     <PUSH QOK11>
4510                     <DEAD QOK11>
4511                     <PUSH MAXF5>
4512                     <CALL '\1aMIN-MAX-L 2 = N6>
4513                     <GRTR? LN10 N6 - PHRASE92>
4514                     <SET LN10 N6 (TYPE FIX)>
4515                     <DEAD N6>
4516                     <JUMP + PHRASE92>
4517 PHRASE88
4518                     <SET N6 LN10>
4519                     <DEAD LN10>
4520                     <FRAME '\1aMIN-MAX-L>
4521                     <PUSH QOK11>
4522                     <DEAD QOK11>
4523                     <PUSH MAXF5>
4524                     <CALL '\1aMIN-MAX-L 2 = LN10>
4525                     <LESS? N6 LN10 - TAG95>
4526                     <SET N6 LN10 (TYPE FIX)>
4527                     <DEAD LN10>
4528 TAG95
4529                     <SET LN10 N6>
4530                     <DEAD N6>
4531 PHRASE92
4532                     <RESTL ANDOK12 1 = ANDOK12 (TYPE LIST)>
4533                     <JUMP + MAP65>
4534 MAPAP68
4535                     <RETURN LN10>
4536                     <DEAD LN10>
4537 PHRASE62
4538                     <VEQUAL? QOK11 0 + PHRASE96>
4539                     <DEAD QOK11>
4540                     <FRAME '\1aSTRUCTURED?>
4541                     <RESTL DC9 1 = ANDOK12 (TYPE LIST)>
4542                     <NTHL ANDOK12 1 = STACK>
4543                     <DEAD ANDOK12>
4544                     <CALL '\1aSTRUCTURED? 1 = QOK11>
4545                     <TYPE? QOK11 <TYPE-CODE FALSE> + PHRASE98>
4546                     <DEAD QOK11>
4547                     <FRAME '\1aLENGTH>
4548                     <RESTL DC9 1 = ANDOK12 (TYPE LIST)>
4549                     <DEAD DC9>
4550                     <NTHL ANDOK12 1 = STACK>
4551                     <DEAD ANDOK12>
4552                     <CALL '\1aLENGTH 1 = TEMP26>
4553                     <RETURN TEMP26>
4554                     <DEAD TEMP26>
4555 PHRASE98
4556                     <RETURN 0>
4557 PHRASE96
4558                     <TYPE? DCL4 <TYPE-CODE ATOM> + TAG103>
4559                     <TYPE? DCL4 <TYPE-CODE FALSE> + TAG103>
4560                     <TYPE? DCL4 <TYPE-CODE FORM> + TAG103>
4561                     <TYPE? DCL4 <TYPE-CODE SEGMENT> - PHRASE102>
4562 TAG103
4563                     <TYPE? MAXF5 <TYPE-CODE FALSE> + PHRASE105>
4564                     <DEAD MAXF5>
4565                     <RETURN 65535>
4566 PHRASE105
4567                     <RETURN 0>
4568 PHRASE102
4569                     <FRAME '\1aCOMPILE-ERROR>
4570                     <PUSH "Bad DECL syntax">
4571                     <PUSH DCL4>
4572                     <DEAD DCL4>
4573                     <CALL '\1aCOMPILE-ERROR 2 = TEMP26>
4574                     <RETURN TEMP26>
4575                     <DEAD TEMP26>
4576                     <END \1aMIN-MAX-L>
4577 #WORD *36533044*
4578 <GFCN \1aSTRUCTYP-SEG ("VALUE" ANY ANY) DCL4>
4579                     <TEMP TEMP6>
4580                     <INTGO>
4581                     <FRAME '\1aSTRUCTYP>
4582                     <PUSH DCL4>
4583                     <CALL '\1aSTRUCTYP 1 = TEMP6>
4584                     <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL9>
4585                     <EQUAL? DCL4 'MULTI - BOOL8>
4586                     <RETURN 'MULTI>
4587 BOOL8
4588                     <TYPE? DCL4 <TYPE-CODE FORM> + TAG10>
4589                     <TYPE? DCL4 <TYPE-CODE SEGMENT> + TAG10>
4590                     <RETURN %<>>
4591 TAG10
4592                     <EMPL? DCL4 - TAG12>
4593                     <RETURN %<>>
4594 TAG12
4595                     <NTHL DCL4 1 = TEMP6>
4596                     <DEAD DCL4>
4597                     <EQUAL? TEMP6 'MULTI + TAG13>
4598                     <DEAD TEMP6>
4599                     <RETURN %<>>
4600 TAG13
4601                     <SET TEMP6 'MULTI (TYPE ATOM)>
4602 BOOL9
4603                     <RETURN TEMP6>
4604                     <DEAD TEMP6>
4605                     <END \1aSTRUCTYP-SEG>
4606 #WORD *22010237024*
4607 <GFCN \1aSTRUCTYP ("VALUE" ANY ANY) DCL4>
4608                     <TEMP VT5 TEMP10>
4609                     <INTGO>
4610                     <FRAME '\1aTYPE-AND>
4611                     <PUSH DCL4>
4612                     <DEAD DCL4>
4613                     <PUSH 'STRUCTURED>
4614                     <CALL '\1aTYPE-AND 2 = DCL4>
4615                     <TYPE? DCL4 <TYPE-CODE ATOM> - PHRASE8>
4616                     <NTHR DCL4 5 = VT5 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG12)>
4617                     <DEAD DCL4>
4618                     <TYPE? VT5 <TYPE-CODE FALSE> + TAG12>
4619                     <JUMP + TAG11>
4620 TAG12
4621                     <SET VT5 %<> (TYPE FALSE)>
4622 TAG11
4623                     <SET TEMP10 VT5>
4624                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE19>
4625                     <FRAME '\1aGC-PRIMTYPE>
4626                     <PUSH VT5>
4627                     <DEAD VT5>
4628                     <CALL '\1aGC-PRIMTYPE 1 = TEMP10>
4629                     <RETURN TEMP10>
4630                     <DEAD TEMP10>
4631 PHRASE8
4632                     <TYPE? DCL4 <TYPE-CODE FORM> + TAG15>
4633                     <TYPE? DCL4 <TYPE-CODE SEGMENT> + TAG15>
4634                     <RETURN %<>>
4635 TAG15
4636                     <FRAME '\1aPRIMHK>
4637                     <PUSH DCL4>
4638                     <PUSH 'T>
4639                     <CALL '\1aPRIMHK 2 = TEMP10>
4640                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE19>
4641                     <NTHL DCL4 1 = VT5>
4642                     <TYPE? VT5 <TYPE-CODE FORM> + TAG21>
4643                     <DEAD VT5>
4644                     <RETURN %<>>
4645 TAG21
4646                     <FRAME '\1aPRIMHK>
4647                     <NTHL DCL4 1 = STACK (TYPE FORM)>
4648                     <DEAD DCL4>
4649                     <PUSH %<>>
4650                     <CALL '\1aPRIMHK 2 = TEMP10>
4651 PHRASE19
4652                     <RETURN TEMP10>
4653                     <DEAD TEMP10>
4654                     <END \1aSTRUCTYP>
4655 #WORD *16062653076*
4656 <GFCN \1aPRIMHK ("VALUE" ANY <OR FORM SEGMENT> ANY) FRM4 FLG5>
4657                     <TEMP LN7 TEM6 D36>
4658                     <INTGO>
4659                     <LENL FRM4 = LN7 (TYPE FIX)>
4660                     <VEQUAL? LN7 2 - PHRASE16 (TYPE FIX)>
4661                     <NTHL FRM4 1 = TEM6>
4662                     <EQUAL? TEM6 'PRIMTYPE - PHRASE12>
4663                     <RESTL FRM4 1 = TEM6 (TYPE LIST)>
4664                     <NTHL TEM6 1 = TEM6>
4665                     <TYPE? TEM6 <TYPE-CODE ATOM> - PHRASE16>
4666                     <NTHR TEM6 5 = TEM6 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE16)>
4667                     <TYPE? TEM6 <TYPE-CODE FALSE> + PHRASE16>
4668                     <DEAD TEM6>
4669                     <FRAME '\1aSTRUCTYP>
4670                     <RESTL FRM4 1 = TEM6 (TYPE LIST)>
4671                     <NTHL TEM6 1 = STACK (TYPE ATOM)>
4672                     <DEAD TEM6>
4673                     <CALL '\1aSTRUCTYP 1 = TEM6>
4674                     <TYPE? TEM6 <TYPE-CODE FALSE> - PHRASE61>
4675                     <JUMP + PHRASE16>
4676 PHRASE12
4677                     <EQUAL? TEM6 'QUOTE - PHRASE16>
4678                     <DEAD TEM6>
4679                     <FRAME '\1aPRIMTYPE>
4680                     <RESTL FRM4 1 = TEM6 (TYPE LIST)>
4681                     <DEAD FRM4>
4682                     <NTHL TEM6 1 = STACK>
4683                     <DEAD TEM6>
4684                     <CALL '\1aPRIMTYPE 1 = TEM6>
4685                     <RETURN TEM6>
4686                     <DEAD TEM6>
4687 PHRASE16
4688                     <VEQUAL? LN7 0 - TAG20 (TYPE FIX)>
4689                     <DEAD LN7>
4690                     <RETURN %<>>
4691 TAG20
4692                     <NTHL FRM4 1 = TEM6>
4693                     <EQUAL? TEM6 'OR - PHRASE24>
4694                     <SET TEM6 'NO-RETURN (TYPE ATOM)>
4695                     <RESTL FRM4 1 = LN7 (TYPE LIST)>
4696                     <DEAD FRM4>
4697                     <CHTYPE LN7 <TYPE-CODE LIST> = LN7>
4698                     <LOOP>
4699 MAP26
4700                     <INTGO>
4701                     <EMPL? LN7 + MAPAP29>
4702                     <NTHL LN7 1 = D36>
4703                     <FRAME '\1aTYPE-MERGE>
4704                     <FRAME '\1aSTRUCTYP>
4705                     <PUSH D36>
4706                     <DEAD D36>
4707                     <CALL '\1aSTRUCTYP 1 = STACK>
4708                     <PUSH TEM6>
4709                     <DEAD TEM6>
4710                     <CALL '\1aTYPE-MERGE 2 = TEM6>
4711                     <RESTL LN7 1 = LN7 (TYPE LIST)>
4712                     <JUMP + MAP26>
4713 MAPAP29
4714                     <TYPE? TEM6 <TYPE-CODE ATOM> + TAG42>
4715                     <RETURN %<>>
4716 TAG42
4717                     <NTHR TEM6 5 = LN7 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG44)>
4718                     <TYPE? LN7 <TYPE-CODE FALSE> - TAG44>
4719                     <DEAD LN7>
4720                     <RETURN %<>>
4721 TAG44
4722                     <RETURN TEM6>
4723                     <DEAD TEM6>
4724 PHRASE24
4725                     <EQUAL? TEM6 'AND - PHRASE46>
4726                     <RESTL FRM4 1 = LN7 (TYPE LIST)>
4727                     <DEAD FRM4>
4728                     <CHTYPE LN7 <TYPE-CODE LIST> = LN7>
4729                     <LOOP>
4730 MAP48
4731                     <INTGO>
4732                     <EMPL? LN7 + MAPAP51>
4733                     <NTHL LN7 1 = TEM6>
4734                     <FRAME '\1aSTRUCTYP>
4735                     <PUSH TEM6>
4736                     <DEAD TEM6>
4737                     <CALL '\1aSTRUCTYP 1 = TEM6>
4738                     <TYPE? TEM6 <TYPE-CODE FALSE> - MAPAP51>
4739                     <RESTL LN7 1 = LN7 (TYPE LIST)>
4740                     <JUMP + MAP48>
4741 MAPAP51
4742                     <RETURN TEM6>
4743                     <DEAD TEM6>
4744 PHRASE46
4745                     <TYPE? TEM6 <TYPE-CODE ATOM> + TAG63>
4746                     <RETURN %<>>
4747 TAG63
4748                     <NTHR TEM6 5 = LN7 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG65)>
4749                     <TYPE? LN7 <TYPE-CODE FALSE> - TAG65>
4750                     <DEAD LN7>
4751                     <RETURN %<>>
4752 TAG65
4753                     <FRAME '\1aMTYPR>
4754                     <PUSH TEM6>
4755                     <DEAD TEM6>
4756                     <CALL '\1aMTYPR 1 = TEM6>
4757 PHRASE61
4758                     <RETURN TEM6>
4759                     <DEAD TEM6>
4760                     <END \1aPRIMHK>
4761 "\f"
4762
4763 #WORD *13605243771*
4764 <GFCN \1aTYPESAME ("VALUE" <OR ATOM FALSE> ANY ANY) T14 T25>
4765                     <TEMP TEMP7 TEMP16 TEMP19:FRAME>
4766                     <INTGO>
4767                     <FRAME '\1aISTYPE?>
4768                     <PUSH T14>
4769                     <DEAD T14>
4770                     <CALL '\1aISTYPE? 1 = T14>
4771                     <TYPE? T14 <TYPE-CODE FALSE> + TAG10>
4772                     <FRAME '\1aISTYPE?>
4773                     <PUSH T25>
4774                     <DEAD T25>
4775                     <CALL '\1aISTYPE? 1 = T25>
4776                     <VEQUAL? T14 T25 - TAG10>
4777                     <RETURN 'T>
4778 TAG10
4779                     <SET TEMP7 T14>
4780                     <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG21>
4781                     <SET TEMP7 T25>
4782                     <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG21>
4783                     <FRAME '\1aGETPROP>
4784                     <PUSH T14>
4785                     <PUSH 'ALT-DECL>
4786                     <CFRAME = STACK (TYPE FRAME)>
4787                     <CALL '\1aGETPROP 3 = TEMP7>
4788                     <CFRAME = TEMP16 (TYPE FRAME)>
4789                     <EQUAL? TEMP16 TEMP7 - TAG17>
4790                     <DEAD TEMP16>
4791                     <SET TEMP7 T14>
4792                     <DEAD T14>
4793 TAG17
4794                     <FRAME '\1aGETPROP>
4795                     <PUSH T25>
4796                     <PUSH 'ALT-DECL>
4797                     <CFRAME = STACK (TYPE FRAME)>
4798                     <CALL '\1aGETPROP 3 = TEMP16>
4799                     <CFRAME = TEMP19 (TYPE FRAME)>
4800                     <EQUAL? TEMP19 TEMP16 - TAG20>
4801                     <DEAD TEMP19>
4802                     <SET TEMP16 T25>
4803                     <DEAD T25>
4804 TAG20
4805                     <EQUAL? TEMP7 TEMP16 - TAG13>
4806                     <DEAD TEMP7 TEMP16>
4807                     <RETURN 'T>
4808 TAG13
4809                     <SET TEMP7 %<> (TYPE FALSE)>
4810 TAG21
4811                     <RETURN TEMP7>
4812                     <DEAD TEMP7>
4813                     <END \1aTYPESAME>
4814 #WORD *21237253351*
4815 <GFCN \1aISTYPE-GOOD? ("VALUE" <OR ATOM FALSE> ANY "OPTIONAL" ANY) TYP6 STRICT7>
4816                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
4817 OPT4
4818                     <PUSH %<>>
4819 OPT5
4820                     <TEMP TEMP9 TEMP16 TEMP17>
4821                     <INTGO>
4822                     <FRAME '\1aISTYPE?>
4823                     <PUSH TYP6>
4824                     <DEAD TYP6>
4825                     <PUSH STRICT7>
4826                     <DEAD STRICT7>
4827                     <CALL '\1aISTYPE? 2 = TYP6>
4828                     <SET TEMP9 TYP6>
4829                     <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL8>
4830                     <FRAME '\1aMTYPR>
4831                     <PUSH TYP6>
4832                     <CALL '\1aMTYPR 1 = TEMP16>
4833                     <SET TEMP9 [BYTES STRING LOCD TUPLE FRAME] (TYPE VECTOR)>
4834                     <TYPE? TEMP16 <TYPE-CODE ATOM> - TAG12>
4835                     <LOOP (TEMP16 VALUE) (TEMP9 LENGTH VALUE)>
4836 TAG13
4837                     <NTHUV TEMP9 1 = TEMP17>
4838                     <VEQUAL? TEMP17 TEMP16 + TAG11>
4839                     <DEAD TEMP17>
4840                     <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
4841                     <EMPUV? TEMP9 - TAG13>
4842                     <JUMP + TAG12>
4843 TAG11
4844                     <RETURN %<>>
4845 TAG12
4846                     <SET TEMP9 TYP6>
4847                     <DEAD TYP6>
4848 BOOL8
4849                     <RETURN TEMP9>
4850                     <DEAD TEMP9>
4851                     <END \1aISTYPE-GOOD?>
4852 #WORD *332765412*
4853 <GFCN \1aTOP-TYPE ("VALUE" ANY ANY) TYP4>
4854                     <TEMP TEMP9 TEMP13>
4855                     <INTGO>
4856                     <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE7>
4857                     <NTHR TYP4 5 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE7)>
4858                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
4859                     <DEAD TEMP9>
4860                     <SET TEMP9 [STRUCTURED APPLICABLE ANY LOCATIVE] (TYPE VECTOR)>
4861                     <LOOP (TYP4 VALUE) (TEMP9 LENGTH VALUE)>
4862 TAG11
4863                     <NTHUV TEMP9 1 = TEMP13>
4864                     <VEQUAL? TEMP13 TYP4 + PHRASE7>
4865                     <DEAD TEMP13>
4866                     <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
4867                     <EMPUV? TEMP9 - TAG11>
4868                     <FRAME '\1aDECL-GET>
4869                     <PUSH TYP4>
4870                     <PUSH TYP4>
4871                     <DEAD TYP4>
4872                     <CALL '\1aDECL-GET 2 = TYP4>
4873 PHRASE7
4874                     <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE16>
4875                     <RETURN TYP4>
4876                     <DEAD TYP4>
4877 PHRASE16
4878                     <TYPE? TYP4 <TYPE-CODE FORM> + TAG19>
4879                     <TYPE? TYP4 <TYPE-CODE SEGMENT> + TAG19>
4880                     <RETURN %<>>
4881 TAG19
4882                     <SET TEMP13 TYP4>
4883                     <SET TEMP9 1 (TYPE FIX)>
4884                     <LOOP (TEMP13 VALUE) (TEMP9 VALUE)>
4885 TAG24
4886                     <EMPL? TEMP13 + TAG22>
4887                     <SUB TEMP9 1 = TEMP9 (TYPE FIX)>
4888                     <LESS? TEMP9 0 + TAG21>
4889                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
4890                     <JUMP + TAG24>
4891 TAG22
4892                     <RETURN %<>>
4893 TAG21
4894                     <NTHL TYP4 1 = TEMP9>
4895                     <EQUAL? TEMP9 'OR - PHRASE27>
4896                     <RESTL TYP4 1 = TEMP9 (TYPE LIST)>
4897                     <DEAD TYP4>
4898                     <CHTYPE TEMP9 <TYPE-CODE LIST> = TEMP9>
4899                     <SET TEMP13 0 (TYPE FIX)>
4900                     <FRAME '\1aTYPE-MERGE>
4901                     <LOOP>
4902 MAP29
4903                     <INTGO>
4904                     <EMPL? TEMP9 + MAP28>
4905                     <FRAME '\1aTOP-TYPE>
4906                     <NTHL TEMP9 1 = STACK>
4907                     <CALL '\1aTOP-TYPE 1 = STACK>
4908                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
4909                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
4910                     <JUMP + MAP29>
4911 MAP28
4912                     <CALL '\1aTYPE-MERGE TEMP13 = TEMP9>
4913                     <DEAD TEMP13>
4914                     <RETURN TEMP9>
4915                     <DEAD TEMP9>
4916 PHRASE27
4917                     <EQUAL? TEMP9 'NOT - PHRASE34>
4918                     <RETURN 'ANY>
4919 PHRASE34
4920                     <EQUAL? TEMP9 'QUOTE - PHRASE35>
4921                     <FRAME '\1aTYPE>
4922                     <RESTL TYP4 1 = TEMP9 (TYPE LIST)>
4923                     <DEAD TYP4>
4924                     <NTHL TEMP9 1 = STACK>
4925                     <DEAD TEMP9>
4926                     <CALL '\1aTYPE 1 = TEMP9>
4927                     <RETURN TEMP9>
4928                     <DEAD TEMP9>
4929 PHRASE35
4930                     <EQUAL? TEMP9 'PRIMTYPE - PHRASE37>
4931                     <RETURN TYP4>
4932                     <DEAD TYP4>
4933 PHRASE37
4934                     <RETURN TEMP9>
4935                     <DEAD TEMP9>
4936                     <END \1aTOP-TYPE>
4937 #WORD *15143766017*
4938 <GFCN \1aPRIMITIVE-TYPE ("VALUE" ANY ANY) TYP4>
4939                     <TEMP TEMP11 TEMP15>
4940                     <INTGO>
4941                     <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE9>
4942                     <NTHR TYP4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE9)>
4943                     <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE9>
4944                     <DEAD TEMP11>
4945                     <SET TEMP11 [STRUCTURED APPLICABLE ANY] (TYPE VECTOR)>
4946                     <LOOP (TYP4 VALUE) (TEMP11 LENGTH VALUE)>
4947 TAG13
4948                     <NTHUV TEMP11 1 = TEMP15>
4949                     <VEQUAL? TEMP15 TYP4 + PHRASE9>
4950                     <DEAD TEMP15>
4951                     <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
4952                     <EMPUV? TEMP11 - TAG13>
4953                     <FRAME '\1aDECL-GET>
4954                     <PUSH TYP4>
4955                     <PUSH TYP4>
4956                     <DEAD TYP4>
4957                     <CALL '\1aDECL-GET 2 = TYP4>
4958 PHRASE9
4959                     <TYPE? TYP4 <TYPE-CODE ATOM> - PHRASE18>
4960                     <NTHR TYP4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE20)>
4961                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE20>
4962                     <FRAME '\1aGC-PRIMTYPE>
4963                     <PUSH TEMP11>
4964                     <DEAD TEMP11>
4965                     <CALL '\1aGC-PRIMTYPE 1 = TEMP11>
4966                     <RETURN TEMP11>
4967                     <DEAD TEMP11>
4968 PHRASE20
4969                     <RETURN TYP4>
4970                     <DEAD TYP4>
4971 PHRASE18
4972                     <TYPE? TYP4 <TYPE-CODE FORM> + TAG27>
4973                     <TYPE? TYP4 <TYPE-CODE SEGMENT> + TAG27>
4974                     <RETURN %<>>
4975 TAG27
4976                     <SET TEMP15 TYP4>
4977                     <SET TEMP11 1 (TYPE FIX)>
4978                     <LOOP (TEMP15 VALUE) (TEMP11 VALUE)>
4979 TAG32
4980                     <EMPL? TEMP15 + TAG30>
4981                     <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
4982                     <LESS? TEMP11 0 + TAG29>
4983                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
4984                     <JUMP + TAG32>
4985 TAG30
4986                     <RETURN %<>>
4987 TAG29
4988                     <NTHL TYP4 1 = TEMP11>
4989                     <EQUAL? TEMP11 'OR - PHRASE35>
4990                     <RESTL TYP4 1 = TEMP11 (TYPE LIST)>
4991                     <DEAD TYP4>
4992                     <CHTYPE TEMP11 <TYPE-CODE LIST> = TEMP11>
4993                     <SET TEMP15 0 (TYPE FIX)>
4994                     <FRAME '\1aTYPE-MERGE>
4995                     <LOOP>
4996 MAP37
4997                     <INTGO>
4998                     <EMPL? TEMP11 + MAP36>
4999                     <FRAME '\1aPRIMITIVE-TYPE>
5000                     <NTHL TEMP11 1 = STACK>
5001                     <CALL '\1aPRIMITIVE-TYPE 1 = STACK>
5002                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
5003                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
5004                     <JUMP + MAP37>
5005 MAP36
5006                     <CALL '\1aTYPE-MERGE TEMP15 = TEMP11>
5007                     <DEAD TEMP15>
5008                     <TYPE? TEMP11 <TYPE-CODE ATOM> - PHRASE43>
5009                     <RETURN TEMP11>
5010                     <DEAD TEMP11>
5011 PHRASE43
5012                     <RETURN 'ANY>
5013 PHRASE35
5014                     <EQUAL? TEMP11 'NOT - PHRASE45>
5015                     <RETURN 'ANY>
5016 PHRASE45
5017                     <EQUAL? TEMP11 'QUOTE - PHRASE46>
5018                     <FRAME '\1aPRIMTYPE>
5019                     <RESTL TYP4 1 = TEMP11 (TYPE LIST)>
5020                     <DEAD TYP4>
5021                     <NTHL TEMP11 1 = STACK>
5022                     <DEAD TEMP11>
5023                     <CALL '\1aPRIMTYPE 1 = TEMP11>
5024                     <RETURN TEMP11>
5025                     <DEAD TEMP11>
5026 PHRASE46
5027                     <EQUAL? TEMP11 'PRIMTYPE - PHRASE48>
5028                     <DEAD TEMP11>
5029                     <RESTL TYP4 1 = TEMP11 (TYPE LIST)>
5030                     <DEAD TYP4>
5031                     <NTHL TEMP11 1 = TEMP11>
5032                     <RETURN TEMP11>
5033                     <DEAD TEMP11>
5034 PHRASE48
5035                     <FRAME '\1aPRIMITIVE-TYPE>
5036                     <NTHL TYP4 1 = STACK>
5037                     <DEAD TYP4>
5038                     <CALL '\1aPRIMITIVE-TYPE 1 = TEMP11>
5039                     <RETURN TEMP11>
5040                     <DEAD TEMP11>
5041                     <END \1aPRIMITIVE-TYPE>
5042 #WORD *21271233255*
5043 <GFCN \1aISTYPE? ("VALUE" <OR ATOM FALSE> ANY "OPTIONAL" ANY) TYP6 STRICT7>
5044                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
5045 OPT4
5046                     <PUSH %<>>
5047 OPT5
5048                     <TEMP TEMP17 TEMP21>
5049                     <INTGO>
5050                     <LOOP>
5051 AGAIN12
5052                     <INTGO>
5053                     <TYPE? STRICT7 <TYPE-CODE FALSE> - PHRASE14>
5054                     <TYPE? TYP6 <TYPE-CODE FORM> + TAG16>
5055                     <TYPE? TYP6 <TYPE-CODE SEGMENT> - PHRASE14>
5056 TAG16
5057                     <EMPL? TYP6 + PHRASE14>
5058                     <NTHL TYP6 1 = TEMP17>
5059                     <EQUAL? TEMP17 'OR - PHRASE14>
5060                     <DEAD TEMP17>
5061                     <RESTL TYP6 1 = TEMP17 (TYPE LIST)>
5062                     <CHTYPE TEMP17 <TYPE-CODE LIST> = TEMP17>
5063                     <EMPL? TEMP17 + PHRASE14>
5064                     <LOOP (TEMP17 VALUE)>
5065 TAG19
5066                     <NTHL TEMP17 1 = TEMP21>
5067                     <TYPE? TEMP21 <TYPE-CODE ATOM> - TAG20>
5068                     <VEQUAL? TEMP21 'UNBOUND + TAG18>
5069                     <DEAD TEMP21>
5070 TAG20
5071                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
5072                     <EMPL? TEMP17 - TAG19>
5073                     <JUMP + PHRASE14>
5074 TAG18
5075                     <FRAME '\1aTYPE-AND>
5076                     <PUSH TYP6>
5077                     <DEAD TYP6>
5078                     <PUSH <NOT UNBOUND>>
5079                     <CALL '\1aTYPE-AND 2 = TYP6>
5080 PHRASE14
5081                     <TYPE? TYP6 <TYPE-CODE FORM> + TAG25>
5082                     <TYPE? TYP6 <TYPE-CODE SEGMENT> - PHRASE47>
5083 TAG25
5084                     <EMPL? TYP6 + PHRASE27>
5085                     <RESTL TYP6 1 = TEMP17 (TYPE LIST)>
5086                     <EMPL? TEMP17 + PHRASE27>
5087                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
5088                     <EMPL? TEMP17 - PHRASE27>
5089                     <DEAD TEMP17>
5090                     <NTHL TYP6 1 = TEMP17>
5091                     <EQUAL? TEMP17 'QUOTE - PHRASE27>
5092                     <DEAD TEMP17>
5093                     <FRAME '\1aTYPE>
5094                     <RESTL TYP6 1 = TEMP17 (TYPE LIST)>
5095                     <DEAD TYP6>
5096                     <NTHL TEMP17 1 = STACK>
5097                     <DEAD TEMP17>
5098                     <CALL '\1aTYPE 1 = TYP6>
5099                     <JUMP + PHRASE47>
5100 PHRASE27
5101                     <NTHL TYP6 1 = TEMP17>
5102                     <EQUAL? TEMP17 'OR - PHRASE30>
5103                     <DEAD TEMP17>
5104                     <FRAME '\1aISTYPE?>
5105                     <SET TEMP21 TYP6>
5106                     <DEAD TYP6>
5107                     <RESTL TEMP21 1 = TEMP17 (TYPE LIST)>
5108                     <NTHL TEMP17 1 = STACK>
5109                     <DEAD TEMP17>
5110                     <CALL '\1aISTYPE? 1 = TYP6>
5111                     <RESTL TEMP21 1 = TEMP17 (TYPE LIST)>
5112                     <DEAD TEMP21>
5113                     <RESTL TEMP17 1 = TEMP21 (TYPE LIST)>
5114                     <DEAD TEMP17>
5115                     <CHTYPE TEMP21 <TYPE-CODE LIST> = TEMP21>
5116                     <LOOP>
5117 MAP33
5118                     <INTGO>
5119                     <EMPL? TEMP21 + PHRASE47>
5120                     <NTHL TEMP21 1 = TEMP17>
5121                     <FRAME '\1aISTYPE?>
5122                     <PUSH TEMP17>
5123                     <DEAD TEMP17>
5124                     <CALL '\1aISTYPE? 1 = TEMP17>
5125                     <EQUAL? TYP6 TEMP17 + PHRASE45>
5126                     <DEAD TEMP17>
5127                     <SET TYP6 %<> (TYPE FALSE)>
5128                     <JUMP + PHRASE47>
5129 PHRASE45
5130                     <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
5131                     <JUMP + MAP33>
5132 PHRASE30
5133                     <NTHL TYP6 1 = TYP6>
5134 PHRASE47
5135                     <TYPE? TYP6 <TYPE-CODE ATOM> + TAG49>
5136                     <RETURN %<>>
5137 TAG49
5138                     <NTHR TYP6 5 = TEMP21 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE52)>
5139                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE52>
5140                     <DEAD TEMP21>
5141                     <RETURN TYP6>
5142                     <DEAD TYP6>
5143 PHRASE52
5144                     <FRAME '\1aDECL-GET>
5145                     <PUSH TYP6>
5146                     <DEAD TYP6>
5147                     <CALL '\1aDECL-GET 1 = TYP6>
5148                     <SET TEMP17 TYP6>
5149                     <TYPE? TEMP17 <TYPE-CODE FALSE> - AGAIN12>
5150                     <RETURN TEMP17>
5151                     <DEAD TEMP17>
5152                     <END \1aISTYPE?>
5153 #WORD *21062570142*
5154 <GFCN \1aDCX ("VALUE" ANY ANY) IT4>
5155                     <TEMP LN6:FIX TT5>
5156                     <INTGO>
5157                     <TYPE? IT4 <TYPE-CODE VECTOR> - PHRASE12>
5158                     <SET TT5 IT4>
5159                     <LENUV TT5 = LN6 (TYPE FIX)>
5160                     <LESS? LN6 2 + PHRASE12 (TYPE FIX)>
5161                     <VEQUAL? LN6 2 - PHRASE11 (TYPE FIX)>
5162                     <DEAD LN6>
5163                     <NTHUV TT5 2 = TT5>
5164                     <TYPE? TT5 <TYPE-CODE FALSE> - PHRASE18>
5165                     <JUMP + PHRASE12>
5166 PHRASE11
5167                     <FRAME '\1aTYPE-MERGE>
5168                     <SET LN6 0 (TYPE FIX)>
5169                     <RESTUV TT5 1 = TT5 (TYPE VECTOR)>
5170                     <LOOP (TT5 VALUE LENGTH) (LN6 VALUE)>
5171 TAG16
5172                     <INTGO>
5173                     <EMPUV? TT5 + TAG13>
5174                     <NTHUV TT5 1 = STACK>
5175                     <RESTUV TT5 1 = TT5 (TYPE VECTOR)>
5176                     <ADD LN6 1 = LN6 (TYPE FIX)>
5177                     <JUMP + TAG16>
5178 TAG13
5179                     <CALL '\1aTYPE-MERGE LN6 = TT5>
5180                     <DEAD LN6>
5181                     <TYPE? TT5 <TYPE-CODE FALSE> - PHRASE18>
5182 PHRASE12
5183                     <SET TT5 IT4>
5184                     <DEAD IT4>
5185 PHRASE18
5186                     <RETURN TT5>
5187                     <DEAD TT5>
5188                     <END \1aDCX>
5189 " Define a decl for a given quoted object for maximum winnage."
5190
5191 "\f"
5192
5193 #WORD *5565041142*
5194 <GFCN \1aGEN-DECL ("VALUE" <OR ATOM SEGMENT> ANY) OBJ4>
5195                     <TEMP TEMP7 CNT20:FIX TEMP23 FRM21:SEGMENT FRME24 TT25>
5196                     <INTGO>
5197                     <EQUAL? OBJ4 %<> - PHRASE6>
5198                     <RETURN 'BOOL-FALSE>
5199 PHRASE6
5200                     <MONAD? OBJ4 - TAG10>
5201                     <SET TEMP7 'T (TYPE ATOM)>
5202                     <JUMP + TAG12>
5203 TAG10
5204                     <SET TEMP7 %<> (TYPE FALSE)>
5205 TAG12
5206                     <VEQUAL? TEMP7 0 - TAG14>
5207                     <DEAD TEMP7>
5208                     <FRAME '\1aAPPLICABLE?>
5209                     <PUSH OBJ4>
5210                     <CALL '\1aAPPLICABLE? 1 = TEMP7>
5211                     <TYPE? TEMP7 <TYPE-CODE FALSE> - TAG14>
5212                     <DEAD TEMP7>
5213                     <TYPE? OBJ4 <TYPE-CODE STRING> + TAG14>
5214                     <TYPE? OBJ4 <TYPE-CODE BYTES> - PHRASE8>
5215 TAG14
5216                     <FRAME '\1aTYPE>
5217                     <PUSH OBJ4>
5218                     <DEAD OBJ4>
5219                     <CALL '\1aTYPE 1 = TEMP7>
5220                     <RETURN TEMP7>
5221                     <DEAD TEMP7>
5222 PHRASE8
5223                     <FRAME '\1aGEN-DECL>
5224                     <NTH1 OBJ4 = STACK>
5225                     <CALL '\1aGEN-DECL 1 = TEMP7>
5226                     <SET CNT20 1 (TYPE FIX)>
5227                     <FRAME '\1aTYPE>
5228                     <PUSH OBJ4>
5229                     <CALL '\1aTYPE 1 = TEMP23>
5230                     <CONS TEMP23 () = TEMP23>
5231                     <CHTYPE TEMP23 <TYPE-CODE SEGMENT> = FRM21>
5232                     <DEAD TEMP23>
5233                     <SET FRME24 FRM21>
5234                     <LOOP>
5235 AGAIN27
5236                     <INTGO>
5237                     <REST1 OBJ4 = OBJ4>
5238                     <EMPTY? OBJ4 - PHRASE29>
5239                     <GRTR? CNT20 1 - PHRASE31 (TYPE FIX)>
5240                     <PUSH CNT20>
5241                     <DEAD CNT20>
5242                     <PUSH TEMP7>
5243                     <DEAD TEMP7>
5244                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP23>
5245                     <CONS TEMP23 () = TEMP23>
5246                     <PUTREST FRME24 TEMP23>
5247                     <DEAD FRME24 TEMP23>
5248                     <RETURN FRM21>
5249                     <DEAD FRM21>
5250 PHRASE31
5251                     <CONS TEMP7 () = TEMP23>
5252                     <DEAD TEMP7>
5253                     <PUTREST FRME24 TEMP23>
5254                     <DEAD FRME24 TEMP23>
5255                     <RETURN FRM21>
5256                     <DEAD FRM21>
5257 PHRASE29
5258                     <FRAME '\1a=?>
5259                     <FRAME '\1aGEN-DECL>
5260                     <NTH1 OBJ4 = STACK>
5261                     <CALL '\1aGEN-DECL 1 = TT25>
5262                     <PUSH TT25>
5263                     <PUSH TEMP7>
5264                     <CALL '\1a=? 2 = TEMP23>
5265                     <VEQUAL? TEMP23 0 + PHRASE36>
5266                     <DEAD TEMP23>
5267                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE36>
5268                     <ADD CNT20 1 = CNT20 (TYPE FIX)>
5269                     <JUMP + AGAIN27>
5270 PHRASE36
5271                     <GRTR? CNT20 1 - PHRASE42 (TYPE FIX)>
5272                     <PUSH CNT20>
5273                     <DEAD CNT20>
5274                     <PUSH TEMP7>
5275                     <DEAD TEMP7>
5276                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP23>
5277                     <CONS TEMP23 () = TEMP23>
5278                     <PUTREST FRME24 TEMP23>
5279                     <DEAD FRME24>
5280                     <SET FRME24 TEMP23>
5281                     <DEAD TEMP23>
5282                     <JUMP + PHRASE46>
5283 PHRASE42
5284                     <CONS TEMP7 () = TEMP23>
5285                     <DEAD TEMP7>
5286                     <PUTREST FRME24 TEMP23>
5287                     <DEAD FRME24>
5288                     <SET FRME24 TEMP23>
5289                     <DEAD TEMP23>
5290 PHRASE46
5291                     <SET TEMP7 TT25>
5292                     <DEAD TT25>
5293                     <SET CNT20 1 (TYPE FIX)>
5294                     <JUMP + AGAIN27>
5295                     <END \1aGEN-DECL>
5296 "\f"
5297
5298 #WORD *1735472143*
5299 <GFCN \1aREST-DECL ("VALUE" ANY ANY FIX) DC4 N5>
5300                     <TEMP TT6 TEMP23 TEMP21 TEMP25 D26>
5301                     <INTGO>
5302                     <TYPE? DC4 <TYPE-CODE FORM> + TAG10>
5303                     <TYPE? DC4 <TYPE-CODE SEGMENT> - PHRASE9>
5304 TAG10
5305                     <NTHL DC4 1 = TT6>
5306                     <EQUAL? TT6 'OR + BOOL13>
5307                     <EQUAL? TT6 'AND - PHRASE12>
5308 BOOL13
5309                     <SET TEMP23 () (TYPE LIST)>
5310                     <SET TEMP21 () (TYPE LIST)>
5311                     <RESTL DC4 1 = TEMP25 (TYPE LIST)>
5312                     <DEAD DC4>
5313                     <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
5314                     <LOOP>
5315 MAP15
5316                     <INTGO>
5317                     <EMPL? TEMP25 + MAPAP18>
5318                     <NTHL TEMP25 1 = D26>
5319                     <FRAME '\1aREST-DECL>
5320                     <PUSH D26>
5321                     <DEAD D26>
5322                     <PUSH N5>
5323                     <CALL '\1aREST-DECL 2 = D26>
5324                     <EQUAL? D26 'ANY - PHRASE34>
5325                     <EQUAL? TT6 'OR - MAP16>
5326                     <CONS 'ANY () = TEMP23>
5327                     <JUMP + MAPAP18>
5328 PHRASE34
5329                     <CONS D26 () = D26 (TYPE LIST)>
5330                     <EMPL? TEMP23 - TAG38>
5331                     <SET TEMP23 D26 (TYPE LIST)>
5332                     <JUMP + TAG39>
5333 TAG38
5334                     <PUTREST TEMP21 D26>
5335                     <DEAD TEMP21>
5336 TAG39
5337                     <SET TEMP21 D26 (TYPE LIST)>
5338                     <DEAD D26>
5339 MAP16
5340                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
5341                     <JUMP + MAP15>
5342 MAPAP18
5343                     <CONS TT6 TEMP23 = TEMP25>
5344                     <DEAD TT6 TEMP23>
5345                     <CHTYPE TEMP25 <TYPE-CODE FORM> = TT6>
5346                     <DEAD TEMP25>
5347                     <RESTL TT6 1 = TEMP25 (TYPE LIST)>
5348                     <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
5349                     <EMPL? TEMP25 - PHRASE41 (TYPE LIST)>
5350                     <DEAD TEMP25>
5351                     <RETURN 'ANY>
5352 PHRASE41
5353                     <RESTL TT6 1 = TEMP23 (TYPE LIST)>
5354                     <RESTL TEMP23 1 = D26 (TYPE LIST)>
5355                     <DEAD TEMP23>
5356                     <CHTYPE D26 <TYPE-CODE LIST> = D26>
5357                     <EMPL? D26 - PHRASE42 (TYPE LIST)>
5358                     <DEAD D26>
5359                     <RESTL TT6 1 = TEMP23 (TYPE LIST)>
5360                     <DEAD TT6>
5361                     <NTHL TEMP23 1 = TEMP25>
5362                     <DEAD TEMP23>
5363                     <RETURN TEMP25>
5364                     <DEAD TEMP25>
5365 PHRASE42
5366                     <RETURN TT6>
5367                     <DEAD TT6>
5368 PHRASE12
5369                     <EQUAL? TT6 'NOT - PHRASE45>
5370                     <RETURN 'ANY>
5371 PHRASE45
5372                     <EQUAL? TT6 'PRIMTYPE - PHRASE46>
5373                     <VEQUAL? N5 0 - PHRASE48 (TYPE FIX)>
5374                     <RETURN DC4>
5375                     <DEAD DC4>
5376 PHRASE48
5377                     <FRAME '\1aANY-PAT>
5378                     <PUSH N5>
5379                     <DEAD N5>
5380                     <CALL '\1aANY-PAT 1 = TEMP23>
5381                     <CONS DC4 TEMP23 = TEMP23>
5382                     <DEAD DC4>
5383                     <CHTYPE TEMP23 <TYPE-CODE FORM> = TEMP25>
5384                     <DEAD TEMP23>
5385                     <RETURN TEMP25>
5386                     <DEAD TEMP25>
5387 PHRASE46
5388                     <FRAME '\1aFOSE>
5389                     <TYPE? DC4 <TYPE-CODE SEGMENT> - TAG56>
5390                     <SET TEMP23 'SEGMENT (TYPE ATOM)>
5391                     <JUMP + TAG57>
5392 TAG56
5393                     <SET TEMP23 %<> (TYPE FALSE)>
5394 TAG57
5395                     <PUSH TEMP23>
5396                     <DEAD TEMP23>
5397                     <FRAME '\1aSTRUCTYP>
5398                     <PUSH TT6>
5399                     <DEAD TT6>
5400                     <CALL '\1aSTRUCTYP 1 = TT6>
5401                     <TYPE? TT6 <TYPE-CODE FALSE> + PHRASE59>
5402                     <FRAME '\1aFORM>
5403                     <PUSH 'PRIMTYPE>
5404                     <PUSH TT6>
5405                     <DEAD TT6>
5406                     <CALL '\1aFORM 2 = TEMP23>
5407                     <JUMP + PHRASE62>
5408 PHRASE59
5409                     <SET TEMP23 'STRUCTURED (TYPE ATOM)>
5410 PHRASE62
5411                     <PUSH TEMP23>
5412                     <DEAD TEMP23>
5413                     <SET D26 2 (TYPE FIX)>
5414                     <FRAME '\1aANY-PAT>
5415                     <PUSH N5>
5416                     <DEAD N5>
5417                     <CALL '\1aANY-PAT 1 = TEMP23>
5418                     <LOOP (TEMP23 VALUE) (D26 VALUE)>
5419 TAG64
5420                     <INTGO>
5421                     <EMPL? TEMP23 + TAG54>
5422                     <NTHL TEMP23 1 = STACK>
5423                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
5424                     <ADD D26 1 = D26 (TYPE FIX)>
5425                     <JUMP + TAG64>
5426 TAG54
5427                     <RESTL DC4 1 = TEMP23 (TYPE LIST)>
5428                     <DEAD DC4>
5429                     <CHTYPE TEMP23 <TYPE-CODE LIST> = TEMP23>
5430                     <LOOP (TEMP23 VALUE) (D26 VALUE)>
5431 TAG66
5432                     <INTGO>
5433                     <EMPL? TEMP23 + TAG65>
5434                     <NTHL TEMP23 1 = STACK>
5435                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
5436                     <ADD D26 1 = D26 (TYPE FIX)>
5437                     <JUMP + TAG66>
5438 TAG65
5439                     <CALL '\1aFOSE D26 = TEMP25>
5440                     <DEAD D26>
5441                     <RETURN TEMP25>
5442                     <DEAD TEMP25>
5443 PHRASE9
5444                     <FRAME '\1aSTRUCTYP>
5445                     <PUSH DC4>
5446                     <DEAD DC4>
5447                     <CALL '\1aSTRUCTYP 1 = TT6>
5448                     <TYPE? TT6 <TYPE-CODE FALSE> + PHRASE68>
5449                     <VEQUAL? N5 0 - PHRASE71 (TYPE FIX)>
5450                     <FRAME '\1aFORM>
5451                     <PUSH 'PRIMTYPE>
5452                     <PUSH TT6>
5453                     <DEAD TT6>
5454                     <CALL '\1aFORM 2 = TEMP25>
5455                     <RETURN TEMP25>
5456                     <DEAD TEMP25>
5457 PHRASE71
5458                     <FRAME '\1aFORM>
5459                     <PUSH 'PRIMTYPE>
5460                     <PUSH TT6>
5461                     <DEAD TT6>
5462                     <CALL '\1aFORM 2 = D26>
5463                     <CONS D26 () = D26>
5464                     <FRAME '\1aANY-PAT>
5465                     <PUSH N5>
5466                     <DEAD N5>
5467                     <CALL '\1aANY-PAT 1 = TT6>
5468                     <PUTREST D26 TT6>
5469                     <DEAD TT6>
5470                     <CHTYPE D26 <TYPE-CODE FORM> = TEMP25>
5471                     <DEAD D26>
5472                     <RETURN TEMP25>
5473                     <DEAD TEMP25>
5474 PHRASE68
5475                     <VEQUAL? N5 0 - PHRASE81 (TYPE FIX)>
5476                     <RETURN 'STRUCTURED>
5477 PHRASE81
5478                     <FRAME '\1aANY-PAT>
5479                     <PUSH N5>
5480                     <DEAD N5>
5481                     <CALL '\1aANY-PAT 1 = TT6>
5482                     <CONS 'STRUCTURED TT6 = TT6>
5483                     <CHTYPE TT6 <TYPE-CODE FORM> = TEMP25>
5484                     <DEAD TT6>
5485                     <RETURN TEMP25>
5486                     <DEAD TEMP25>
5487                     <END \1aREST-DECL>\r\r
5488 #WORD *11561334011*
5489 <GFCN \1aANY-PAT ("VALUE" LIST FIX) N4>
5490                     <TEMP TEMP9>
5491                     <INTGO>
5492                     <GRTR? N4 0 + PHRASE6 (TYPE FIX)>
5493                     <RETURN ()>
5494 PHRASE6
5495                     <VEQUAL? N4 1 - PHRASE10 (TYPE FIX)>
5496                     <CONS 'ANY () = TEMP9>
5497                     <RETURN TEMP9>
5498                     <DEAD TEMP9>
5499 PHRASE10
5500                     <PUSH N4>
5501                     <DEAD N4>
5502                     <PUSH 'ANY>
5503                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP9>
5504                     <CONS TEMP9 () = TEMP9>
5505                     <RETURN TEMP9>
5506                     <DEAD TEMP9>
5507                     <END \1aANY-PAT>
5508 " TYPE-OK? are two type patterns compatible.  If the patterns
5509   don't parse, send user a message."
5510
5511 #WORD *34163567202*
5512 <GFCN \1aTYPE-OK? ("VALUE" ANY ANY ANY) P14 P25>
5513                     <TEMP TEMP10>
5514                     <INTGO>
5515                     <EQUAL? P14 'NO-RETURN + BOOL9>
5516                     <EQUAL? P25 'NO-RETURN - PHRASE8>
5517 BOOL9
5518                     <RETURN 'NO-RETURN>
5519 PHRASE8
5520                     <FRAME '\1aTYPE-AND>
5521                     <PUSH P14>
5522                     <PUSH P25>
5523                     <CALL '\1aTYPE-AND 2 = TEMP10>
5524                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE11>
5525                     <RETURN TEMP10>
5526                     <DEAD TEMP10>
5527 PHRASE11
5528                     <EMPL? TEMP10 - PHRASE13 (TYPE FALSE)>
5529                     <RETURN TEMP10>
5530                     <DEAD TEMP10>
5531 PHRASE13
5532                     <FRAME '\1aCOMPILE-ERROR>
5533                     <NTHL TEMP10 1 = STACK>
5534                     <DEAD TEMP10>
5535                     <PUSH P14>
5536                     <DEAD P14>
5537                     <PUSH P25>
5538                     <DEAD P25>
5539                     <CALL '\1aCOMPILE-ERROR 3 = TEMP10>
5540                     <RETURN TEMP10>
5541                     <DEAD TEMP10>
5542                     <END \1aTYPE-OK?>
5543 " TYPE-ATOM-OK? does an atom's initial value agree with its DECL?"
5544
5545 #WORD *4017240130*
5546 <GFCN \1aTYPE-ATOM-OK? ("VALUE" ANY ANY ANY ATOM) P14 P25 ATM6>
5547                     <TEMP TEMP8>
5548                     <INTGO>
5549                     <FRAME '\1aTYPE-OK?>
5550                     <PUSH P14>
5551                     <DEAD P14>
5552                     <PUSH P25>
5553                     <DEAD P25>
5554                     <CALL '\1aTYPE-OK? 2 = TEMP8>
5555                     <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE10>
5556                     <FRAME '\1aCOMPILE-ERROR>
5557                     <PUSH "Atom's intial value disagrees with DECL">
5558                     <PUSH ATM6>
5559                     <DEAD ATM6>
5560                     <CALL '\1aCOMPILE-ERROR 2 = TEMP8>
5561 PHRASE10
5562                     <RETURN TEMP8>
5563                     <DEAD TEMP8>
5564                     <END \1aTYPE-ATOM-OK?>
5565 " Merge a group of type specs into an OR."
5566
5567 "\f"
5568
5569 #WORD *14261474361*
5570 <GFCN \1aTYPE-MERGE ("VALUE" ANY "TUPLE" <PRIMTYPE VECTOR>)>
5571                     <MAKTUP TYPS4 ORS11 TEMP17 = TYPS4>
5572                     <INTGO>
5573                     <EMPUV? TYPS4 - PHRASE6 (TYPE TUPLE)>
5574                     <RETURN %<>>
5575 PHRASE6
5576                     <NTHUV TYPS4 1 = ORS11>
5577                     <LOOP>
5578 AGAIN12
5579                     <INTGO>
5580                     <RESTUV TYPS4 1 = TYPS4 (TYPE VECTOR)>
5581                     <CHTYPE TYPS4 <TYPE-CODE VECTOR> = TYPS4>
5582                     <EMPUV? TYPS4 - PHRASE14 (TYPE VECTOR)>
5583                     <RETURN ORS11>
5584                     <DEAD ORS11>
5585 PHRASE14
5586                     <NTHUV TYPS4 1 = TEMP17>
5587                     <EQUAL? TEMP17 'NO-RETURN + AGAIN12>
5588                     <DEAD TEMP17>
5589                     <EQUAL? ORS11 'NO-RETURN - PHRASE18>
5590                     <NTHUV TYPS4 1 = ORS11>
5591                     <JUMP + AGAIN12>
5592 PHRASE18
5593                     <FRAME '\1aTMERGE>
5594                     <PUSH ORS11>
5595                     <DEAD ORS11>
5596                     <NTHUV TYPS4 1 = STACK>
5597                     <CALL '\1aTMERGE 2 = ORS11>
5598                     <JUMP + AGAIN12>
5599                     <END \1aTYPE-MERGE>
5600 #WORD *7635721237*
5601 <GFCN \1aPUT-IN ("VALUE" LIST <PRIMTYPE LIST> ANY) LST4 ELE5>
5602                     <TEMP TEMP10 TEMP12 TEMP23 L125 A33:LIST TEMP39 B34>
5603                     <INTGO>
5604                     <TYPE? ELE5 <TYPE-CODE FORM> + TAG9>
5605                     <TYPE? ELE5 <TYPE-CODE SEGMENT> - PHRASE7>
5606 TAG9
5607                     <EMPL? ELE5 + PHRASE7>
5608                     <NTHL ELE5 1 = TEMP10>
5609                     <EQUAL? TEMP10 'OR - PHRASE7>
5610                     <DEAD TEMP10>
5611                     <SET TEMP12 0 (TYPE FIX)>
5612                     <RESTL ELE5 1 = TEMP10 (TYPE LIST)>
5613                     <DEAD ELE5>
5614                     <CHTYPE TEMP10 <TYPE-CODE LIST> = TEMP10>
5615                     <LOOP (TEMP10 VALUE) (TEMP12 VALUE)>
5616 TAG13
5617                     <INTGO>
5618                     <EMPL? TEMP10 + TAG11>
5619                     <NTHL TEMP10 1 = STACK>
5620                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
5621                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
5622                     <JUMP + TAG13>
5623 TAG11
5624                     <LIST TEMP12 = ELE5 (TYPE LIST)>
5625                     <DEAD TEMP12>
5626                     <JUMP + PHRASE15>
5627 PHRASE7
5628                     <CONS ELE5 () = ELE5>
5629 PHRASE15
5630                     <SET TEMP23 () (TYPE LIST)>
5631                     <SET TEMP10 () (TYPE LIST)>
5632                     <CHTYPE LST4 <TYPE-CODE LIST> = TEMP12>
5633                     <DEAD LST4>
5634                     <LOOP>
5635 MAP17
5636                     <INTGO>
5637                     <EMPL? TEMP12 + MAPAP20>
5638                     <NTHL TEMP12 1 = L125>
5639                     <EMPL? ELE5 + PHRASE30 (TYPE LIST)>
5640                     <SET A33 ELE5>
5641                     <LOOP>
5642 AGAIN35
5643                     <INTGO>
5644                     <FRAME '\1aTMATCH>
5645                     <NTHL A33 1 = STACK>
5646                     <PUSH L125>
5647                     <CALL '\1aTMATCH 2 = TEMP39>
5648                     <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE37>
5649                     <DEAD TEMP39>
5650                     <FRAME '\1aTMERGE>
5651                     <NTHL A33 1 = STACK>
5652                     <PUSH L125>
5653                     <DEAD L125>
5654                     <CALL '\1aTMERGE 2 = L125>
5655                     <VEQUAL? A33 ELE5 - PHRASE42>
5656                     <RESTL ELE5 1 = ELE5 (TYPE LIST)>
5657                     <JUMP + PHRASE30>
5658 PHRASE42
5659                     <RESTL A33 1 = TEMP39 (TYPE LIST)>
5660                     <DEAD A33>
5661                     <PUTREST B34 TEMP39>
5662                     <DEAD TEMP39>
5663                     <JUMP + PHRASE30>
5664 PHRASE37
5665                     <SET B34 A33>
5666                     <DEAD A33>
5667                     <RESTL B34 1 = A33 (TYPE LIST)>
5668                     <EMPL? A33 - AGAIN35 (TYPE LIST)>
5669 PHRASE30
5670                     <CONS L125 () = L125 (TYPE LIST)>
5671                     <EMPL? TEMP23 - TAG46>
5672                     <SET TEMP23 L125 (TYPE LIST)>
5673                     <JUMP + TAG47>
5674 TAG46
5675                     <PUTREST TEMP10 L125>
5676                     <DEAD TEMP10>
5677 TAG47
5678                     <SET TEMP10 L125 (TYPE LIST)>
5679                     <DEAD L125>
5680                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
5681                     <JUMP + MAP17>
5682 MAPAP20
5683                     <SET LST4 TEMP23>
5684                     <DEAD TEMP23>
5685                     <FRAME '\1aLSORT>
5686                     <EMPL? ELE5 - PHRASE50 (TYPE LIST)>
5687                     <SET TEMP12 LST4>
5688                     <DEAD LST4>
5689                     <JUMP + PHRASE51>
5690 PHRASE50
5691                     <SET L125 ELE5>
5692                     <LOOP (L125 VALUE)>
5693 TAG52
5694                     <RESTL L125 1 = TEMP39 (TYPE LIST)>
5695                     <EMPL? TEMP39 + TAG53>
5696                     <SET L125 TEMP39>
5697                     <DEAD TEMP39>
5698                     <JUMP + TAG52>
5699 TAG53
5700                     <PUTREST L125 LST4>
5701                     <DEAD L125 LST4>
5702                     <SET TEMP12 ELE5>
5703                     <DEAD ELE5>
5704 PHRASE51
5705                     <PUSH TEMP12>
5706                     <DEAD TEMP12>
5707                     <CALL '\1aLSORT 1 = TEMP12>
5708                     <RETURN TEMP12>
5709                     <DEAD TEMP12>
5710                     <END \1aPUT-IN>
5711 #WORD *31130553411*
5712 <GFCN \1aORSORT ("VALUE" <FORM ANY ANY> <FORM ANY ANY>) F4>
5713                     <TEMP TEMP6:LIST>
5714                     <INTGO>
5715                     <FRAME '\1aLSORT>
5716                     <RESTL F4 1 = TEMP6 (TYPE LIST)>
5717                     <CHTYPE TEMP6 <TYPE-CODE LIST> = STACK>
5718                     <DEAD TEMP6>
5719                     <CALL '\1aLSORT 1 = TEMP6>
5720                     <PUTREST F4 TEMP6>
5721                     <DEAD TEMP6>
5722                     <RETURN F4>
5723                     <DEAD F4>
5724                     <END \1aORSORT>
5725 #WORD *12105151366*
5726 <GFCN \1aLSORT ("VALUE" LIST LIST) L4>
5727                     <TEMP (M5:LIST ()) (B6:LIST ()) (TMP7:LIST ()) (IT8 ()) (N9:FIX 0) A211 TEMP43 TEMP46 TEMP47>
5728                     <INTGO>
5729                     <LENL L4 = N9 (TYPE FIX)>
5730                     <LESS? N9 2 - PHRASE17 (TYPE FIX)>
5731                     <RETURN L4>
5732                     <DEAD L4>
5733 PHRASE17
5734                     <DIV N9 2 = IT8 (TYPE FIX)>
5735                     <DEAD N9>
5736                     <SUB IT8 1 = IT8 (TYPE FIX)>
5737                     <SET TMP7 L4>
5738                     <GRTR? IT8 0 - RESTL21 (TYPE FIX)>
5739                     <LOOP (TMP7 VALUE) (IT8 VALUE)>
5740 RESTL19
5741                     <INTGO>
5742                     <RESTL TMP7 1 = TMP7 (TYPE LIST)>
5743                     <SUB IT8 1 = IT8 (TYPE FIX)>
5744                     <GRTR? IT8 0 + RESTL19 (TYPE FIX)>
5745 RESTL21
5746                     <RESTL TMP7 1 = B6 (TYPE LIST)>
5747                     <PUTREST TMP7 ()>
5748                     <DEAD TMP7>
5749                     <FRAME '\1aLSORT>
5750                     <PUSH L4>
5751                     <DEAD L4>
5752                     <CALL '\1aLSORT 1 = L4>
5753                     <FRAME '\1aLSORT>
5754                     <PUSH B6>
5755                     <DEAD B6>
5756                     <CALL '\1aLSORT 1 = B6>
5757                     <SET TMP7 () (TYPE LIST)>
5758                     <LOOP>
5759 AGAIN25
5760                     <INTGO>
5761                     <EMPL? L4 - PHRASE30 (TYPE LIST)>
5762                     <EMPL? TMP7 - PHRASE29 (TYPE LIST)>
5763                     <RETURN B6>
5764                     <DEAD B6>
5765 PHRASE29
5766                     <PUTREST TMP7 B6>
5767                     <DEAD TMP7 B6>
5768                     <RETURN M5>
5769                     <DEAD M5>
5770 PHRASE30
5771                     <EMPL? B6 - PHRASE34 (TYPE LIST)>
5772                     <EMPL? TMP7 - PHRASE33 (TYPE LIST)>
5773                     <RETURN L4>
5774                     <DEAD L4>
5775 PHRASE33
5776                     <PUTREST TMP7 L4>
5777                     <DEAD TMP7 L4>
5778                     <RETURN M5>
5779                     <DEAD M5>
5780 PHRASE34
5781                     <NTHL L4 1 = IT8>
5782                     <NTHL B6 1 = A211>
5783                     <TYPE? IT8 <TYPE-CODE ATOM> - PHRASE39>
5784                     <TYPE? A211 <TYPE-CODE ATOM> - PHRASE39>
5785                     <NTHR IT8 3 = IT8 (RECORD-TYPE ATOM)>
5786                     <NTHR A211 3 = A211 (RECORD-TYPE ATOM)>
5787                     <IFCAN "STRCOMP">
5788                     <STRCOMP IT8 A211 = TEMP43>
5789                     <ENDIF "STRCOMP">
5790                     <IFCANNOT "STRCOMP">
5791                     <LENUS IT8 = TEMP43 (TYPE FIX)>
5792                     <LENUS A211 = N9 (TYPE FIX)>
5793                     <LOOP (IT8 VALUE LENGTH) (A211 VALUE LENGTH) (TEMP43 VALUE) (N9 VALUE)>
5794 TAG48
5795                     <NTHUS IT8 1 = TEMP46>
5796                     <NTHUS A211 1 = TEMP47>
5797                     <VEQUAL? TEMP46 TEMP47 - TAG42>
5798                     <RESTUS IT8 1 = IT8 (TYPE STRING)>
5799                     <RESTUS A211 1 = A211 (TYPE STRING)>
5800                     <SUB N9 1 = N9 (TYPE FIX)>
5801                     <GRTR? N9 0 - TAG49 (TYPE FIX)>
5802                     <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
5803                     <GRTR? TEMP43 0 + TAG48 (TYPE FIX)>
5804                     <SET TEMP43 1 (TYPE FIX)>
5805                     <JUMP + TAG50>
5806 TAG49
5807                     <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
5808                     <VEQUAL TEMP43 0 - TAG51>
5809                     <DEAD TEMP43>
5810                     <SET TEMP43 0 (TYPE FIX)>
5811                     <JUMP + TAG50>
5812 TAG51
5813                     <SET TEMP43 -1 (TYPE FIX)>
5814                     <JUMP + TAG50>
5815 TAG42
5816                     <GRTR? TEMP46 TEMP47 - TAG51>
5817                     <DEAD TEMP46 TEMP47>
5818                     <SET TEMP43 1 (TYPE FIX)>
5819 TAG50
5820                     <ENDIF "STRCOMP">
5821                     <LESS? TEMP43 0 - PHRASE37 (TYPE FIX)>
5822                     <JUMP + COND38>
5823 PHRASE39
5824                     <TYPE? IT8 <TYPE-CODE ATOM> + COND38>
5825                     <TYPE? A211 <TYPE-CODE ATOM> + PHRASE37>
5826                     <FRAME '\1aFCOMPARE>
5827                     <PUSH IT8>
5828                     <DEAD IT8>
5829                     <PUSH A211>
5830                     <DEAD A211>
5831                     <CALL '\1aFCOMPARE 2 = A211>
5832                     <LESS? A211 0 - PHRASE37 (TYPE FIX)>
5833                     <DEAD A211>
5834 COND38
5835                     <SET IT8 L4>
5836                     <DEAD L4>
5837                     <RESTL IT8 1 = L4 (TYPE LIST)>
5838                     <JUMP + PHRASE59>
5839 PHRASE37
5840                     <SET IT8 B6>
5841                     <DEAD B6>
5842                     <RESTL IT8 1 = B6 (TYPE LIST)>
5843 PHRASE59
5844                     <PUTREST IT8 ()>
5845                     <EMPL? M5 - PHRASE61 (TYPE LIST)>
5846                     <SET TMP7 IT8>
5847                     <DEAD IT8>
5848                     <SET M5 TMP7>
5849                     <JUMP + AGAIN25>
5850 PHRASE61
5851                     <PUTREST TMP7 IT8>
5852                     <DEAD TMP7>
5853                     <SET TMP7 IT8>
5854                     <DEAD IT8>
5855                     <JUMP + AGAIN25>
5856                     <END \1aLSORT>
5857 "\f"
5858
5859 #WORD *25501672133*
5860 <GFCN \1aFCOMPARE ("VALUE" FIX <PRIMTYPE LIST> <PRIMTYPE LIST>) F14 F25>
5861                     <TEMP L18:FIX L29 TEMP24 TEMP20 TEMP21 E126 E227>
5862                     <INTGO>
5863                     <LENL F14 = L18 (TYPE FIX)>
5864                     <LENL F25 = L29 (TYPE FIX)>
5865                     <VEQUAL? L18 L29 - PHRASE11 (TYPE FIX)>
5866                     <TYPE F14 = L18>
5867                     <TYPE F25 = L29>
5868                     <VEQUAL? L18 L29 - PHRASE13 (TYPE FIX)>
5869                     <SET TEMP24 %<> (TYPE FALSE)>
5870                     <CHTYPE F14 <TYPE-CODE LIST> = TEMP20>
5871                     <DEAD F14>
5872                     <CHTYPE F25 <TYPE-CODE LIST> = TEMP21>
5873                     <DEAD F25>
5874                     <LOOP>
5875 MAP15
5876                     <INTGO>
5877                     <EMPL? TEMP20 + MAPAP18>
5878                     <EMPL? TEMP21 + MAPAP18>
5879                     <NTHL TEMP20 1 = E126>
5880                     <NTHL TEMP21 1 = E227>
5881                     <EQUAL? E126 E227 + PHRASE29>
5882                     <TYPE E126 = L18>
5883                     <TYPE E227 = L29>
5884                     <VEQUAL? L18 L29 + PHRASE31 (TYPE FIX)>
5885                     <LESS? L18 L29 - PHRASE33 (TYPE FIX)>
5886                     <DEAD L18 L29>
5887                     <SET TEMP24 -1 (TYPE FIX)>
5888                     <JUMP + PHRASE53>
5889 PHRASE33
5890                     <RETURN 1>
5891 PHRASE31
5892                     <TYPE? E126 <TYPE-CODE ATOM> - PHRASE36>
5893                     <NTHR E126 3 = L29 (RECORD-TYPE ATOM)>
5894                     <DEAD E126>
5895                     <NTHR E227 3 = TEMP20 (RECORD-TYPE ATOM)>
5896                     <DEAD E227>
5897                     <IFCAN "STRCOMP">
5898                     <STRCOMP L29 TEMP20 = TEMP24>
5899                     <ENDIF "STRCOMP">
5900                     <IFCANNOT "STRCOMP">
5901                     <LENUS L29 = TEMP24 (TYPE FIX)>
5902                     <LENUS TEMP20 = L18 (TYPE FIX)>
5903                     <LOOP (L29 VALUE LENGTH) (TEMP20 VALUE LENGTH) (TEMP24 VALUE) (L18 VALUE)>
5904 TAG45
5905                     <NTHUS L29 1 = TEMP21>
5906                     <NTHUS TEMP20 1 = E126>
5907                     <VEQUAL? TEMP21 E126 - TAG40>
5908                     <RESTUS L29 1 = L29 (TYPE STRING)>
5909                     <RESTUS TEMP20 1 = TEMP20 (TYPE STRING)>
5910                     <SUB L18 1 = L18 (TYPE FIX)>
5911                     <GRTR? L18 0 - TAG46 (TYPE FIX)>
5912                     <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
5913                     <GRTR? TEMP24 0 + TAG45 (TYPE FIX)>
5914                     <SET TEMP24 1 (TYPE FIX)>
5915                     <JUMP + TAG47>
5916 TAG46
5917                     <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
5918                     <VEQUAL TEMP24 0 - TAG48>
5919                     <DEAD TEMP24>
5920                     <SET TEMP24 0 (TYPE FIX)>
5921                     <JUMP + TAG47>
5922 TAG48
5923                     <SET TEMP24 -1 (TYPE FIX)>
5924                     <JUMP + TAG47>
5925 TAG40
5926                     <GRTR? TEMP21 E126 - TAG48>
5927                     <DEAD TEMP21 E126>
5928                     <SET TEMP24 1 (TYPE FIX)>
5929 TAG47
5930                     <ENDIF "STRCOMP">
5931                     <RETURN TEMP24>
5932                     <DEAD TEMP24>
5933 PHRASE36
5934                     <TYPE? E126 <TYPE-CODE VECTOR> - PHRASE49>
5935                     <FRAME '\1aVCOMP>
5936                     <PUSH E126>
5937                     <DEAD E126>
5938                     <PUSH E227>
5939                     <DEAD E227>
5940                     <CALL '\1aVCOMP 2 = TEMP24>
5941                     <RETURN TEMP24>
5942                     <DEAD TEMP24>
5943 PHRASE49
5944                     <FRAME '\1aFCOMPARE>
5945                     <PUSH E126>
5946                     <DEAD E126>
5947                     <PUSH E227>
5948                     <DEAD E227>
5949                     <CALL '\1aFCOMPARE 2 = TEMP24>
5950                     <RETURN TEMP24>
5951                     <DEAD TEMP24>
5952 PHRASE29
5953                     <SET TEMP24 0 (TYPE FIX)>
5954 PHRASE53
5955                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
5956                     <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
5957                     <JUMP + MAP15>
5958 MAPAP18
5959                     <RETURN TEMP24>
5960                     <DEAD TEMP24>
5961 PHRASE13
5962                     <LESS? L18 L29 - PHRASE54 (TYPE FIX)>
5963                     <DEAD L18 L29>
5964                     <RETURN -1>
5965 PHRASE54
5966                     <RETURN 1>
5967 PHRASE11
5968                     <LESS? L18 L29 - PHRASE56 (TYPE FIX)>
5969                     <DEAD L18 L29>
5970                     <RETURN -1>
5971 PHRASE56
5972                     <RETURN 1>
5973                     <END \1aFCOMPARE>
5974 #WORD *23604411244*
5975 <GFCN \1aVCOMP ("VALUE" FIX <VECTOR ANY> <VECTOR ANY>) V14 V25>
5976                     <TEMP L16 L27 TEMP12 E18 E29 TEMP25:STRING>
5977                     <INTGO>
5978                     <LENUV V14 = L16 (TYPE FIX)>
5979                     <LENUV V25 = L27 (TYPE FIX)>
5980                     <GRTR? L16 L27 - PHRASE11 (TYPE FIX)>
5981                     <RETURN 1>
5982 PHRASE11
5983                     <LESS? L16 L27 - PHRASE13 (TYPE FIX)>
5984                     <DEAD L16 L27>
5985                     <RETURN -1>
5986 PHRASE13
5987                     <NTHUV V14 1 = E18>
5988                     <NTHUV V25 1 = E29>
5989                     <EQUAL? E18 E29 + PHRASE14>
5990                     <TYPE? E18 <TYPE-CODE FIX> - PHRASE16>
5991                     <TYPE? E29 <TYPE-CODE FIX> - PHRASE16>
5992                     <GRTR? E18 E29 - PHRASE19 (TYPE FIX)>
5993                     <DEAD E18 E29>
5994                     <RETURN 1>
5995 PHRASE19
5996                     <RETURN -1>
5997 PHRASE16
5998                     <TYPE? E18 <TYPE-CODE FIX> - PHRASE21>
5999                     <RETURN 1>
6000 PHRASE21
6001                     <TYPE? E29 <TYPE-CODE FIX> - PHRASE22>
6002                     <RETURN -1>
6003 PHRASE22
6004                     <NTHR E18 3 = L27 (RECORD-TYPE ATOM)>
6005                     <DEAD E18>
6006                     <NTHR E29 3 = TEMP25 (RECORD-TYPE ATOM)>
6007                     <DEAD E29>
6008                     <IFCAN "STRCOMP">
6009                     <STRCOMP L27 TEMP25 = TEMP12>
6010                     <ENDIF "STRCOMP">
6011                     <IFCANNOT "STRCOMP">
6012                     <LENUS L27 = TEMP12 (TYPE FIX)>
6013                     <LENUS TEMP25 = L16 (TYPE FIX)>
6014                     <LOOP (L27 VALUE LENGTH) (TEMP25 VALUE LENGTH) (TEMP12 VALUE) (L16 VALUE)>
6015 TAG31
6016                     <NTHUS L27 1 = E18>
6017                     <NTHUS TEMP25 1 = E29>
6018                     <VEQUAL? E18 E29 - TAG26>
6019                     <RESTUS L27 1 = L27 (TYPE STRING)>
6020                     <RESTUS TEMP25 1 = TEMP25 (TYPE STRING)>
6021                     <SUB L16 1 = L16 (TYPE FIX)>
6022                     <GRTR? L16 0 - TAG32 (TYPE FIX)>
6023                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
6024                     <GRTR? TEMP12 0 + TAG31 (TYPE FIX)>
6025                     <SET TEMP12 1 (TYPE FIX)>
6026                     <JUMP + TAG33>
6027 TAG32
6028                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
6029                     <VEQUAL TEMP12 0 - TAG34>
6030                     <DEAD TEMP12>
6031                     <SET TEMP12 0 (TYPE FIX)>
6032                     <JUMP + TAG33>
6033 TAG34
6034                     <SET TEMP12 -1 (TYPE FIX)>
6035                     <JUMP + TAG33>
6036 TAG26
6037                     <GRTR? E18 E29 - TAG34>
6038                     <DEAD E18 E29>
6039                     <SET TEMP12 1 (TYPE FIX)>
6040 TAG33
6041                     <ENDIF "STRCOMP">
6042                     <RETURN TEMP12>
6043                     <DEAD TEMP12>
6044 PHRASE14
6045                     <SET E18 %<> (TYPE FALSE)>
6046                     <RESTUV V14 1 = L16 (TYPE VECTOR)>
6047                     <DEAD V14>
6048                     <RESTUV V25 1 = L27 (TYPE VECTOR)>
6049                     <DEAD V25>
6050                     <LOOP>
6051 MAP37
6052                     <INTGO>
6053                     <EMPUV? L16 + MAPAP40>
6054                     <EMPUV? L27 + MAPAP40>
6055                     <NTHUV L16 1 = E18>
6056                     <NTHUV L27 1 = E29>
6057                     <EQUAL? E18 E29 - PHRASE51>
6058                     <SET E18 0 (TYPE FIX)>
6059                     <JUMP + PHRASE70>
6060 PHRASE51
6061                     <TYPE E18 = L16>
6062                     <TYPE E29 = L27>
6063                     <VEQUAL? L16 L27 - PHRASE67 (TYPE FIX)>
6064                     <TYPE? E18 <TYPE-CODE ATOM> - PHRASE54>
6065                     <NTHR E18 3 = L27 (RECORD-TYPE ATOM)>
6066                     <DEAD E18>
6067                     <NTHR E29 3 = TEMP25 (RECORD-TYPE ATOM)>
6068                     <DEAD E29>
6069                     <IFCAN "STRCOMP">
6070                     <STRCOMP L27 TEMP25 = TEMP12>
6071                     <ENDIF "STRCOMP">
6072                     <IFCANNOT "STRCOMP">
6073                     <LENUS L27 = TEMP12 (TYPE FIX)>
6074                     <LENUS TEMP25 = L16 (TYPE FIX)>
6075                     <LOOP (L27 VALUE LENGTH) (TEMP25 VALUE LENGTH) (TEMP12 VALUE) (L16 VALUE)>
6076 TAG63
6077                     <NTHUS L27 1 = E18>
6078                     <NTHUS TEMP25 1 = E29>
6079                     <VEQUAL? E18 E29 - TAG58>
6080                     <RESTUS L27 1 = L27 (TYPE STRING)>
6081                     <RESTUS TEMP25 1 = TEMP25 (TYPE STRING)>
6082                     <SUB L16 1 = L16 (TYPE FIX)>
6083                     <GRTR? L16 0 - TAG64 (TYPE FIX)>
6084                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
6085                     <GRTR? TEMP12 0 + TAG63 (TYPE FIX)>
6086                     <SET TEMP12 1 (TYPE FIX)>
6087                     <JUMP + TAG65>
6088 TAG64
6089                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
6090                     <VEQUAL TEMP12 0 - TAG66>
6091                     <DEAD TEMP12>
6092                     <SET TEMP12 0 (TYPE FIX)>
6093                     <JUMP + TAG65>
6094 TAG66
6095                     <SET TEMP12 -1 (TYPE FIX)>
6096                     <JUMP + TAG65>
6097 TAG58
6098                     <GRTR? E18 E29 - TAG66>
6099                     <DEAD E18 E29>
6100                     <SET TEMP12 1 (TYPE FIX)>
6101 TAG65
6102                     <ENDIF "STRCOMP">
6103                     <RETURN TEMP12>
6104                     <DEAD TEMP12>
6105 PHRASE54
6106                     <FRAME '\1aFCOMPARE>
6107                     <PUSH E18>
6108                     <DEAD E18>
6109                     <PUSH E29>
6110                     <DEAD E29>
6111                     <CALL '\1aFCOMPARE 2 = TEMP12>
6112                     <RETURN TEMP12>
6113                     <DEAD TEMP12>
6114 PHRASE67
6115                     <GRTR? L16 L27 - PHRASE69 (TYPE FIX)>
6116                     <DEAD L16 L27>
6117                     <RETURN 1>
6118 PHRASE69
6119                     <RETURN -1>
6120 PHRASE70
6121                     <RESTUV L16 1 = L16 (TYPE VECTOR)>
6122                     <RESTUV L27 1 = L27 (TYPE VECTOR)>
6123                     <JUMP + MAP37>
6124 MAPAP40
6125                     <RETURN E18>
6126                     <DEAD E18>
6127                     <END \1aVCOMP>
6128 #WORD *24270115767*
6129 <GFCN \1aCANONICAL-DECL ("VALUE" ANY ANY) D4>
6130                     <TEMP TEMP12 TEMP15 TEMP20 TEMP22:LIST TEMP24>
6131                     <INTGO>
6132                     <FRAME '\1aVTS>
6133                     <PUSH D4>
6134                     <DEAD D4>
6135                     <CALL '\1aVTS 1 = D4>
6136                     <TYPE? D4 <TYPE-CODE FORM> + TAG9>
6137                     <TYPE? D4 <TYPE-CODE SEGMENT> - PHRASE7>
6138 TAG9
6139                     <EMPL? D4 + PHRASE7>
6140                     <NTHL D4 1 = TEMP12>
6141                     <EQUAL? TEMP12 'OR - PHRASE11>
6142                     <DEAD TEMP12>
6143                     <FRAME '\1aORSORT>
6144                     <FRAME '\1aFORM>
6145                     <PUSH 'OR>
6146                     <SET TEMP15 1 (TYPE FIX)>
6147                     <SET TEMP12 () (TYPE LIST)>
6148                     <SET TEMP20 () (TYPE LIST)>
6149                     <RESTL D4 1 = TEMP22 (TYPE LIST)>
6150                     <DEAD D4>
6151                     <CHTYPE TEMP22 <TYPE-CODE LIST> = TEMP22>
6152                     <LOOP>
6153 MAP17
6154                     <INTGO>
6155                     <EMPL? TEMP22 + MAP16>
6156                     <FRAME '\1aCANONICAL-DECL>
6157                     <NTHL TEMP22 1 = STACK>
6158                     <CALL '\1aCANONICAL-DECL 1 = TEMP24>
6159                     <CONS TEMP24 () = TEMP24 (TYPE LIST)>
6160                     <EMPL? TEMP12 - TAG25>
6161                     <SET TEMP12 TEMP24 (TYPE LIST)>
6162                     <JUMP + TAG26>
6163 TAG25
6164                     <PUTREST TEMP20 TEMP24>
6165                     <DEAD TEMP20>
6166 TAG26
6167                     <SET TEMP20 TEMP24 (TYPE LIST)>
6168                     <DEAD TEMP24>
6169                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
6170                     <JUMP + MAP17>
6171 MAP16
6172                     <LOOP (TEMP12 VALUE) (TEMP15 VALUE)>
6173 TAG27
6174                     <INTGO>
6175                     <EMPL? TEMP12 + TAG14>
6176                     <NTHL TEMP12 1 = STACK>
6177                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
6178                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
6179                     <JUMP + TAG27>
6180 TAG14
6181                     <CALL '\1aFORM TEMP15 = STACK>
6182                     <DEAD TEMP15>
6183                     <CALL '\1aORSORT 1 = TEMP15>
6184                     <RETURN TEMP15>
6185                     <DEAD TEMP15>
6186 PHRASE11
6187                     <NTHL D4 1 = TEMP12>
6188                     <EQUAL? TEMP12 'QUOTE - PHRASE29>
6189                     <DEAD TEMP12>
6190                     <FRAME '\1aCANONICAL-DECL>
6191                     <FRAME '\1aGEN-DECL>
6192                     <RESTL D4 1 = TEMP22 (TYPE LIST)>
6193                     <DEAD D4>
6194                     <NTHL TEMP22 1 = STACK>
6195                     <DEAD TEMP22>
6196                     <CALL '\1aGEN-DECL 1 = STACK>
6197                     <CALL '\1aCANONICAL-DECL 1 = TEMP15>
6198                     <RETURN TEMP15>
6199                     <DEAD TEMP15>
6200 PHRASE29
6201                     <FRAME '\1aCAN-ELE>
6202                     <PUSH D4>
6203                     <DEAD D4>
6204                     <CALL '\1aCAN-ELE 1 = TEMP15>
6205                     <RETURN TEMP15>
6206                     <DEAD TEMP15>
6207 PHRASE7
6208                     <RETURN D4>
6209                     <DEAD D4>
6210                     <END \1aCANONICAL-DECL>
6211 #WORD *12602075243*
6212 <GFCN \1aCAN-ELE ("VALUE" ANY <PRIMTYPE LIST>) L4>
6213                     <TEMP (SAME5 %<>) TEMP14 X9 Y10 TEMP25 EL41 ELE42 LAST43 TT7 SAMCNT6 TEMP118:VECTOR X120:VECTOR>
6214                     <INTGO>
6215                     <NTHL L4 1 = TEMP14>
6216                     <TYPE? TEMP14 <TYPE-CODE ATOM> - PHRASE12>
6217                     <DEAD TEMP14>
6218                     <NTHL L4 1 = TEMP14 (TYPE ATOM)>
6219                     <NTHR TEMP14 5 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE12)>
6220                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
6221                     <DEAD TEMP14>
6222                     <FRAME '\1aDECL-GET>
6223                     <NTHL L4 1 = STACK (TYPE ATOM)>
6224                     <CALL '\1aDECL-GET 1 = X9>
6225                     <TYPE? X9 <TYPE-CODE FALSE> + PHRASE12>
6226                     <TYPE? X9 <TYPE-CODE FORM> + TAG17>
6227                     <TYPE? X9 <TYPE-CODE SEGMENT> - PHRASE12>
6228 TAG17
6229                     <EMPL? X9 + PHRASE12>
6230                     <RESTL X9 1 = TEMP14 (TYPE LIST)>
6231                     <EMPL? TEMP14 + PHRASE12>
6232                     <DEAD TEMP14>
6233                     <FRAME '\1a=?>
6234                     <RESTL X9 1 = TEMP14 (TYPE LIST)>
6235                     <CHTYPE TEMP14 <TYPE-CODE LIST> = STACK>
6236                     <DEAD TEMP14>
6237                     <RESTL L4 1 = TEMP14 (TYPE LIST)>
6238                     <CHTYPE TEMP14 <TYPE-CODE LIST> = STACK>
6239                     <DEAD TEMP14>
6240                     <CALL '\1a=? 2 = TEMP14>
6241                     <VEQUAL? TEMP14 0 - BOOL18>
6242                     <DEAD TEMP14>
6243                     <FRAME '\1a=?>
6244                     <FRAME '\1aCANONICAL-DECL>
6245                     <FRAME '\1aFORM>
6246                     <PUSH 'PRIMTYPE>
6247                     <FRAME '\1aMTYPR>
6248                     <NTHL L4 1 = STACK (TYPE ATOM)>
6249                     <CALL '\1aMTYPR 1 = STACK>
6250                     <CALL '\1aFORM 2 = Y10>
6251                     <CONS Y10 () = TEMP14>
6252                     <RESTL L4 1 = TEMP25 (TYPE LIST)>
6253                     <CHTYPE TEMP25 <TYPE-CODE LIST> = TEMP25>
6254                     <PUTREST TEMP14 TEMP25>
6255                     <DEAD TEMP25>
6256                     <CHTYPE TEMP14 <TYPE-CODE FORM> = STACK>
6257                     <DEAD TEMP14>
6258                     <CALL '\1aCANONICAL-DECL 1 = STACK>
6259                     <FRAME '\1aCANONICAL-DECL>
6260                     <RESTL X9 1 = TEMP14 (TYPE LIST)>
6261                     <DEAD X9>
6262                     <CHTYPE TEMP14 <TYPE-CODE LIST> = TEMP14>
6263                     <CONS Y10 TEMP14 = TEMP25>
6264                     <DEAD Y10 TEMP14>
6265                     <CHTYPE TEMP25 <TYPE-CODE FORM> = STACK>
6266                     <DEAD TEMP25>
6267                     <CALL '\1aCANONICAL-DECL 1 = STACK>
6268                     <CALL '\1a=? 2 = TEMP25>
6269                     <VEQUAL? TEMP25 0 + PHRASE12>
6270                     <DEAD TEMP25>
6271 BOOL18
6272                     <NTHL L4 1 = TEMP25>
6273                     <DEAD L4>
6274                     <RETURN TEMP25>
6275                     <DEAD TEMP25>
6276 PHRASE12
6277                     <FRAME '\1aCANONICAL-DECL>
6278                     <NTHL L4 1 = STACK>
6279                     <CALL '\1aCANONICAL-DECL 1 = TEMP14>
6280                     <CONS TEMP14 () = TEMP14>
6281                     <SET X9 () (TYPE LIST)>
6282                     <SET TEMP25 () (TYPE LIST)>
6283                     <RESTL L4 1 = Y10 (TYPE LIST)>
6284                     <DEAD L4>
6285                     <CHTYPE Y10 <TYPE-CODE LIST> = Y10>
6286                     <LOOP>
6287 MAP30
6288                     <INTGO>
6289                     <EMPL? Y10 + MAPAP33>
6290                     <SET EL41 Y10>
6291                     <NTHL EL41 1 = ELE42>
6292                     <RESTL EL41 1 = EL41 (TYPE LIST)>
6293                     <EMPL? EL41 - TAG44 (TYPE LIST)>
6294                     <DEAD EL41>
6295                     <SET LAST43 'T (TYPE ATOM)>
6296                     <JUMP + TAG46>
6297 TAG44
6298                     <SET LAST43 %<> (TYPE FALSE)>
6299 TAG46
6300                     <TYPE? ELE42 <TYPE-CODE VECTOR> - PHRASE48>
6301                     <LENUV ELE42 = EL41 (TYPE FIX)>
6302                     <VEQUAL? EL41 2 - PHRASE50 (TYPE FIX)>
6303                     <DEAD EL41>
6304                     <NTHUV ELE42 1 = EL41>
6305                     <TYPE? EL41 <TYPE-CODE FIX> - PHRASE50>
6306                     <DEAD EL41>
6307                     <FRAME '\1aCANONICAL-DECL>
6308                     <NTHUV ELE42 2 = STACK>
6309                     <CALL '\1aCANONICAL-DECL 1 = TT7>
6310                     <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE54>
6311                     <FRAME '\1a=?>
6312                     <PUSH SAME5>
6313                     <PUSH TT7>
6314                     <CALL '\1a=? 2 = EL41>
6315                     <VEQUAL? EL41 0 + PHRASE54>
6316                     <DEAD EL41>
6317                     <NTHUV ELE42 1 = EL41 (TYPE FIX)>
6318                     <DEAD ELE42>
6319                     <ADD EL41 SAMCNT6 = SAMCNT6 (TYPE FIX)>
6320                     <DEAD EL41>
6321                     <VEQUAL? LAST43 0 + MAP31>
6322                     <DEAD LAST43>
6323                     <PUSH SAMCNT6>
6324                     <PUSH TT7>
6325                     <DEAD TT7>
6326                     <UBLOCK <TYPE-CODE VECTOR> 2 = EL41>
6327                     <JUMP + PHRASE165>
6328 PHRASE54
6329                     <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE64>
6330                     <FRAME '\1aGR-RET>
6331                     <PUSH SAME5>
6332                     <DEAD SAME5>
6333                     <PUSH SAMCNT6>
6334                     <DEAD SAMCNT6>
6335                     <CALL '\1aGR-RET 2 = EL41>
6336                     <JUMP + PHRASE66>
6337 PHRASE64
6338                     <SET EL41 %<> (TYPE FALSE)>
6339 PHRASE66
6340                     <SET SAME5 TT7>
6341                     <NTHUV ELE42 1 = SAMCNT6 (TYPE FIX)>
6342                     <DEAD ELE42>
6343                     <VEQUAL? LAST43 0 + PHRASE68>
6344                     <DEAD LAST43>
6345                     <TYPE? EL41 <TYPE-CODE FALSE> + PHRASE70>
6346                     <CONS EL41 () = LAST43 (TYPE LIST)>
6347                     <DEAD EL41>
6348                     <EMPL? X9 - TAG73>
6349                     <SET X9 LAST43 (TYPE LIST)>
6350                     <JUMP + TAG74>
6351 TAG73
6352                     <PUTREST TEMP25 LAST43>
6353                     <DEAD TEMP25>
6354 TAG74
6355                     <SET TEMP25 LAST43 (TYPE LIST)>
6356                     <DEAD LAST43>
6357                     <FRAME '\1aGR-RET>
6358                     <PUSH TT7>
6359                     <DEAD TT7>
6360                     <PUSH SAMCNT6>
6361                     <CALL '\1aGR-RET 2 = LAST43>
6362                     <CONS LAST43 () = LAST43 (TYPE LIST)>
6363                     <EMPL? X9 - TAG76>
6364                     <SET X9 LAST43 (TYPE LIST)>
6365                     <JUMP + TAG77>
6366 TAG76
6367                     <PUTREST TEMP25 LAST43>
6368                     <DEAD TEMP25>
6369 TAG77
6370                     <SET TEMP25 LAST43 (TYPE LIST)>
6371                     <DEAD LAST43>
6372                     <JUMP + MAP31>
6373 PHRASE70
6374                     <FRAME '\1aGR-RET>
6375                     <PUSH TT7>
6376                     <DEAD TT7>
6377                     <PUSH SAMCNT6>
6378                     <CALL '\1aGR-RET 2 = EL41>
6379                     <JUMP + PHRASE165>
6380 PHRASE68
6381                     <TYPE? EL41 <TYPE-CODE FALSE> - PHRASE165>
6382                     <JUMP + MAP31>
6383 PHRASE50
6384                     <NTHUV ELE42 1 = LAST43>
6385                     <EQUAL? LAST43 'REST - PHRASE90>
6386                     <DEAD LAST43>
6387                     <LENUV ELE42 = LAST43 (TYPE FIX)>
6388                     <VEQUAL? LAST43 2 - PHRASE90 (TYPE FIX)>
6389                     <DEAD LAST43>
6390                     <NTHUV ELE42 2 = LAST43>
6391                     <EQUAL? LAST43 'ANY - PHRASE90>
6392                     <DEAD LAST43>
6393                     <TYPE? SAME5 <TYPE-CODE FALSE> + MAP31>
6394                     <FRAME '\1aGR-RET>
6395                     <PUSH SAME5>
6396                     <DEAD SAME5>
6397                     <PUSH SAMCNT6>
6398                     <CALL '\1aGR-RET 2 = EL41>
6399                     <SET SAME5 %<> (TYPE FALSE)>
6400                     <CONS EL41 () = LAST43 (TYPE LIST)>
6401                     <DEAD EL41>
6402                     <EMPL? X9 - TAG88>
6403                     <SET X9 LAST43 (TYPE LIST)>
6404                     <JUMP + TAG89>
6405 TAG88
6406                     <PUTREST TEMP25 LAST43>
6407                     <DEAD TEMP25>
6408 TAG89
6409                     <SET TEMP25 LAST43 (TYPE LIST)>
6410                     <DEAD LAST43>
6411                     <JUMP + MAP31>
6412 PHRASE90
6413                     <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE94>
6414                     <FRAME '\1aGR-RET>
6415                     <PUSH SAME5>
6416                     <DEAD SAME5>
6417                     <PUSH SAMCNT6>
6418                     <CALL '\1aGR-RET 2 = EL41>
6419                     <JUMP + PHRASE96>
6420 PHRASE94
6421                     <SET EL41 %<> (TYPE FALSE)>
6422 PHRASE96
6423                     <LENUV ELE42 = LAST43 (TYPE FIX)>
6424                     <UUBLOCK <TYPE-CODE VECTOR> LAST43 = TT7 (TYPE VECTOR)>
6425                     <DEAD LAST43>
6426                     <NTHUV ELE42 1 = LAST43>
6427                     <EQUAL? LAST43 'OPT - PHRASE98>
6428                     <DEAD LAST43>
6429                     <SET LAST43 'OPTIONAL (TYPE ATOM)>
6430                     <JUMP + PHRASE99>
6431 PHRASE98
6432                     <NTHUV ELE42 1 = LAST43>
6433 PHRASE99
6434                     <PUTUV TT7 1 LAST43>
6435                     <DEAD LAST43>
6436                     <LENUV ELE42 = LAST43 (TYPE FIX)>
6437                     <LESS? LAST43 2 + PHRASE101 (TYPE FIX)>
6438                     <DEAD LAST43>
6439                     <NTHUV ELE42 1 = LAST43>
6440                     <EQUAL? LAST43 'REST - PHRASE101>
6441                     <DEAD LAST43>
6442                     <FRAME '\1aCANONICAL-DECL>
6443                     <NTHUV ELE42 2 = STACK>
6444                     <CALL '\1aCANONICAL-DECL 1 = SAME5>
6445                     <PUTUV TT7 2 SAME5>
6446                     <JUMP + PHRASE104>
6447 PHRASE101
6448                     <SET SAME5 %<> (TYPE FALSE)>
6449 PHRASE104
6450                     <LENUV ELE42 = LAST43 (TYPE FIX)>
6451                     <LESS? LAST43 3 + PHRASE129 (TYPE FIX)>
6452                     <DEAD LAST43>
6453                     <RESTUV TT7 2 = TEMP118 (TYPE VECTOR)>
6454                     <RESTUV ELE42 2 = ELE42 (TYPE VECTOR)>
6455                     <LOOP>
6456 MAP108
6457                     <INTGO>
6458                     <EMPUV? TEMP118 + MAPAP111>
6459                     <EMPUV? ELE42 + MAPAP111>
6460                     <SET X120 TEMP118>
6461                     <SET LAST43 ELE42>
6462                     <FRAME '\1aCANONICAL-DECL>
6463                     <NTHUV LAST43 1 = STACK>
6464                     <DEAD LAST43>
6465                     <CALL '\1aCANONICAL-DECL 1 = LAST43>
6466                     <PUTUV X120 1 LAST43>
6467                     <DEAD X120>
6468                     <FRAME '\1aN=?>
6469                     <PUSH LAST43>
6470                     <DEAD LAST43>
6471                     <PUSH SAME5>
6472                     <CALL '\1aN=? 2 = LAST43>
6473                     <VEQUAL? LAST43 0 + PHRASE125>
6474                     <DEAD LAST43>
6475                     <SET SAME5 %<> (TYPE FALSE)>
6476 PHRASE125
6477                     <RESTUV TEMP118 1 = TEMP118 (TYPE VECTOR)>
6478                     <RESTUV ELE42 1 = ELE42 (TYPE VECTOR)>
6479                     <JUMP + MAP108>
6480 MAPAP111
6481                     <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE129>
6482                     <DEAD SAME5>
6483                     <NTHUV TT7 1 = STACK>
6484                     <NTHUV TT7 2 = STACK>
6485                     <DEAD TT7>
6486                     <UBLOCK <TYPE-CODE VECTOR> 2 = TT7>
6487 PHRASE129
6488                     <SET SAME5 %<> (TYPE FALSE)>
6489                     <TYPE? EL41 <TYPE-CODE FALSE> + PHRASE132>
6490                     <CONS EL41 () = ELE42 (TYPE LIST)>
6491                     <DEAD EL41>
6492                     <EMPL? X9 - TAG134>
6493                     <SET X9 ELE42 (TYPE LIST)>
6494                     <JUMP + TAG135>
6495 TAG134
6496                     <PUTREST TEMP25 ELE42>
6497                     <DEAD TEMP25>
6498 TAG135
6499                     <SET TEMP25 ELE42 (TYPE LIST)>
6500                     <DEAD ELE42>
6501                     <CONS TT7 () = ELE42 (TYPE LIST)>
6502                     <DEAD TT7>
6503                     <EMPL? X9 - TAG136>
6504                     <SET X9 ELE42 (TYPE LIST)>
6505                     <JUMP + TAG137>
6506 TAG136
6507                     <PUTREST TEMP25 ELE42>
6508                     <DEAD TEMP25>
6509 TAG137
6510                     <SET TEMP25 ELE42 (TYPE LIST)>
6511                     <DEAD ELE42>
6512                     <JUMP + MAP31>
6513 PHRASE132
6514                     <SET EL41 TT7>
6515                     <DEAD TT7>
6516                     <JUMP + PHRASE165>
6517 PHRASE48
6518                     <FRAME '\1aCANONICAL-DECL>
6519                     <PUSH ELE42>
6520                     <DEAD ELE42>
6521                     <CALL '\1aCANONICAL-DECL 1 = ELE42>
6522                     <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE142>
6523                     <FRAME '\1a=?>
6524                     <PUSH SAME5>
6525                     <PUSH ELE42>
6526                     <CALL '\1a=? 2 = EL41>
6527                     <VEQUAL? EL41 0 + PHRASE142>
6528                     <DEAD EL41>
6529                     <ADD SAMCNT6 1 = SAMCNT6 (TYPE FIX)>
6530                     <VEQUAL? LAST43 0 + MAP31>
6531                     <DEAD LAST43>
6532                     <FRAME '\1aGR-RET>
6533                     <PUSH ELE42>
6534                     <DEAD ELE42>
6535                     <PUSH SAMCNT6>
6536                     <CALL '\1aGR-RET 2 = EL41>
6537                     <JUMP + PHRASE165>
6538 PHRASE142
6539                     <TYPE? SAME5 <TYPE-CODE FALSE> + PHRASE152>
6540                     <FRAME '\1aGR-RET>
6541                     <PUSH SAME5>
6542                     <DEAD SAME5>
6543                     <PUSH SAMCNT6>
6544                     <DEAD SAMCNT6>
6545                     <CALL '\1aGR-RET 2 = EL41>
6546                     <JUMP + PHRASE154>
6547 PHRASE152
6548                     <SET EL41 %<> (TYPE FALSE)>
6549 PHRASE154
6550                     <SET SAME5 ELE42>
6551                     <SET SAMCNT6 1 (TYPE FIX)>
6552                     <VEQUAL? LAST43 0 + PHRASE156>
6553                     <DEAD LAST43>
6554                     <TYPE? EL41 <TYPE-CODE FALSE> + PHRASE158>
6555                     <CONS EL41 () = EL41 (TYPE LIST)>
6556                     <EMPL? X9 - TAG160>
6557                     <SET X9 EL41 (TYPE LIST)>
6558                     <JUMP + TAG161>
6559 TAG160
6560                     <PUTREST TEMP25 EL41>
6561                     <DEAD TEMP25>
6562 TAG161
6563                     <SET TEMP25 EL41 (TYPE LIST)>
6564                     <DEAD EL41>
6565                     <CONS ELE42 () = EL41 (TYPE LIST)>
6566                     <DEAD ELE42>
6567                     <EMPL? X9 - TAG162>
6568                     <SET X9 EL41 (TYPE LIST)>
6569                     <JUMP + TAG163>
6570 TAG162
6571                     <PUTREST TEMP25 EL41>
6572                     <DEAD TEMP25>
6573 TAG163
6574                     <SET TEMP25 EL41 (TYPE LIST)>
6575                     <DEAD EL41>
6576                     <JUMP + MAP31>
6577 PHRASE158
6578                     <SET EL41 ELE42>
6579                     <DEAD ELE42>
6580                     <JUMP + PHRASE165>
6581 PHRASE156
6582                     <TYPE? EL41 <TYPE-CODE FALSE> + MAP31>
6583 PHRASE165
6584                     <CONS EL41 () = EL41 (TYPE LIST)>
6585                     <EMPL? X9 - TAG167>
6586                     <SET X9 EL41 (TYPE LIST)>
6587                     <JUMP + TAG168>
6588 TAG167
6589                     <PUTREST TEMP25 EL41>
6590                     <DEAD TEMP25>
6591 TAG168
6592                     <SET TEMP25 EL41 (TYPE LIST)>
6593                     <DEAD EL41>
6594 MAP31
6595                     <RESTL Y10 1 = Y10 (TYPE LIST)>
6596                     <JUMP + MAP30>
6597 MAPAP33
6598                     <PUTREST TEMP14 X9>
6599                     <DEAD X9>
6600                     <CHTYPE TEMP14 <TYPE-CODE FORM> = TEMP25>
6601                     <DEAD TEMP14>
6602                     <RETURN TEMP25>
6603                     <DEAD TEMP25>
6604                     <END \1aCAN-ELE>
6605 #WORD *32056100731*
6606 <GFCN \1aGR-RET ("VALUE" ANY ANY FIX) X4 N5>
6607                     <TEMP TEMP10>
6608                     <INTGO>
6609                     <VEQUAL? N5 1 - PHRASE7 (TYPE FIX)>
6610                     <RETURN X4>
6611                     <DEAD X4>
6612 PHRASE7
6613                     <PUSH N5>
6614                     <DEAD N5>
6615                     <PUSH X4>
6616                     <DEAD X4>
6617                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP10>
6618                     <RETURN TEMP10>
6619                     <DEAD TEMP10>
6620                     <END \1aGR-RET>
6621 #WORD *20147621066*
6622 <GFCN \1aDECL-GET ("VALUE" ANY ANY "OPTIONAL" ANY) DCL6 DEF7>
6623                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
6624 OPT4
6625                     <PUSH %<>>
6626 OPT5
6627                     <TEMP TEMP11 TEMP18:FRAME>
6628                     <INTGO>
6629                     <GVAL 'MIM = TEMP11>
6630                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE10>
6631                     <DEAD TEMP11>
6632                     <FRAME '\1aGET-DECL>
6633                     <PUSH DCL6>
6634                     <CALL '\1aGET-DECL 1 = TEMP11>
6635                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE13>
6636                     <VEQUAL? TEMP11 'ANY + PHRASE13>
6637                     <RETURN TEMP11>
6638                     <DEAD TEMP11>
6639 PHRASE13
6640                     <FRAME '\1aGETPROP>
6641                     <PUSH DCL6>
6642                     <DEAD DCL6>
6643                     <PUSH 'ALT-DECL>
6644                     <CFRAME = STACK (TYPE FRAME)>
6645                     <CALL '\1aGETPROP 3 = TEMP11>
6646                     <CFRAME = TEMP18 (TYPE FRAME)>
6647                     <EQUAL? TEMP18 TEMP11 - TAG22>
6648                     <DEAD TEMP18>
6649                     <FRAME '\1aEVAL>
6650                     <PUSH DEF7>
6651                     <DEAD DEF7>
6652                     <CALL '\1aEVAL 1 = TEMP11>
6653                     <RETURN TEMP11>
6654                     <DEAD TEMP11>
6655 PHRASE10
6656                     <FRAME '\1aGETPROP>
6657                     <PUSH DCL6>
6658                     <DEAD DCL6>
6659                     <PUSH 'DECL>
6660                     <CFRAME = STACK (TYPE FRAME)>
6661                     <CALL '\1aGETPROP 3 = TEMP11>
6662                     <CFRAME = TEMP18 (TYPE FRAME)>
6663                     <EQUAL? TEMP18 TEMP11 - TAG22>
6664                     <DEAD TEMP18>
6665                     <FRAME '\1aEVAL>
6666                     <PUSH DEF7>
6667                     <DEAD DEF7>
6668                     <CALL '\1aEVAL 1 = TEMP11>
6669 TAG22
6670                     <RETURN TEMP11>
6671                     <DEAD TEMP11>
6672                     <END \1aDECL-GET>
6673 #WORD *24112761530*
6674 <GFCN \1aMTYPR ("VALUE" ANY ANY) X4>
6675                     <TEMP TEMP10 TEMP11>
6676                     <INTGO>
6677                     <SET TEMP10 [OBLIST LVAL GVAL] (TYPE VECTOR)>
6678                     <TYPE? X4 <TYPE-CODE ATOM> - PHRASE6>
6679                     <LOOP (X4 VALUE) (TEMP10 LENGTH VALUE)>
6680 TAG8
6681                     <NTHUV TEMP10 1 = TEMP11>
6682                     <VEQUAL? TEMP11 X4 + TAG7>
6683                     <DEAD TEMP11>
6684                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
6685                     <EMPUV? TEMP10 - TAG8>
6686                     <JUMP + PHRASE6>
6687 TAG7
6688                     <RETURN 'ATOM>
6689 PHRASE6
6690                     <FRAME '\1aTYPEPRIM>
6691                     <PUSH X4>
6692                     <DEAD X4>
6693                     <CALL '\1aTYPEPRIM 1 = TEMP10>
6694                     <RETURN TEMP10>
6695                     <DEAD TEMP10>
6696                     <END \1aMTYPR>
6697 #WORD *4500652265*
6698 <GFCN \1aGC-PRIMTYPE ("VALUE" ATOM ANY) ARG4>
6699                     <TEMP TYP6 TEMP7:VECTOR>
6700                     <INTGO>
6701                     <LSH ARG4 -6 = TYP6 (TYPE FIX)>
6702                     <DEAD ARG4>
6703                     <GVAL 'M$$TYPE-INFO!-INTERNAL = TEMP7>
6704                     <ADD TYP6 1 = TYP6 (TYPE FIX)>
6705                     <NTHUV TEMP7 TYP6 = TYP6 (TYPE TYPE-ENTRY)>
6706                     <DEAD TEMP7>
6707                     <NTHUV TYP6 2 = TYP6 (TYPE ATOM)>
6708                     <RETURN TYP6>
6709                     <DEAD TYP6>
6710                     <END \1aGC-PRIMTYPE>
6711 <ENDPACKAG