mim/development/mim/mimc/macros.mima

   1
   2 <RPACKAGE "MACROS">
   3
   4 <ENTRY DO CASE INC DEC CHOP IF IF-NOT PRIMTYPE?>
   5                     <GFCN \1aDO ("VALUE" FORM "QUOTE" LIST "ARGS" LIST) ARGL8
   6 BODY9>
   7                     <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
   8 OPT6
   9                     <PUSH ()>
  10 OPT7
  11                     <TEMP #ADECL [TEMP5 LBIND] TEMP16 TEMP17 (#ADECL [STATE14
  12 FIX] 1) TEMP25 NAM27 TEMP32 TEMP33 TEMP34 TEMP35 TEMP36 TEMP39 TEMP42 TEMP45
  13 TEMP48 TEMP53 TEMP55 OB71 TEMP116 #ADECL [TEMP118 LIST] TEMP119 #ADECL [L122
  14 LIST] TEMP137 #ADECL [TEMP139 LIST] TEMP140 #ADECL [L143 LIST] TEMP160 #ADECL [
  15 TEMP162 LIST] TEMP163 #ADECL [L166 LIST]>
  16                     <INTGO>
  17                     <GETS 'BIND = TEMP5 (TYPE LBIND)>
  18                     <BIND = TEMP16 (TYPE LBIND)>
  19                     <PUTR TEMP16 2 'PRE-CODE (RECORD-TYPE LBIND)>
  20                     <PUTR TEMP16 3 'LIST (RECORD-TYPE LBIND)>
  21                     <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
  22                     <PUTR TEMP16 6 TEMP17 (RECORD-TYPE LBIND)>
  23                     <DEAD TEMP17>
  24                     <NTHR 'PRE-CODE 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)
  25 >
  26                     <PUTR TEMP16 5 TEMP17 (RECORD-TYPE LBIND)>
  27                     <DEAD TEMP17>
  28                     <PUTR TEMP16 1 () (RECORD-TYPE LBIND)>
  29                     <PUTR 'PRE-CODE 2 TEMP16 (RECORD-TYPE ATOM)>
  30                     <DEAD TEMP16>
  31                     <BIND = TEMP16 (TYPE LBIND)>
  32                     <PUTR TEMP16 2 'POST-CODE (RECORD-TYPE LBIND)>
  33                     <PUTR TEMP16 3 <LIST [REST <LIST ANY>]> (RECORD-TYPE LBIND)
  34 >
  35                     <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
  36                     <PUTR TEMP16 6 TEMP17 (RECORD-TYPE LBIND)>
  37                     <DEAD TEMP17>
  38                     <NTHR 'POST-CODE 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)
  39 >
  40                     <PUTR TEMP16 5 TEMP17 (RECORD-TYPE LBIND)>
  41                     <DEAD TEMP17>
  42                     <PUTR TEMP16 1 () (RECORD-TYPE LBIND)>
  43                     <PUTR 'POST-CODE 2 TEMP16 (RECORD-TYPE ATOM)>
  44                     <DEAD TEMP16>
  45                     <BIND = TEMP16 (TYPE LBIND)>
  46                     <PUTR TEMP16 2 'PRE-TEST (RECORD-TYPE LBIND)>
  47                     <PUTR TEMP16 3 <LIST [REST <LIST ANY>]> (RECORD-TYPE LBIND)
  48 >
  49                     <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
  50                     <PUTR TEMP16 6 TEMP17 (RECORD-TYPE LBIND)>
  51                     <DEAD TEMP17>
  52                     <NTHR 'PRE-TEST 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)
  53 >
  54                     <PUTR TEMP16 5 TEMP17 (RECORD-TYPE LBIND)>
  55                     <DEAD TEMP17>
  56                     <PUTR TEMP16 1 () (RECORD-TYPE LBIND)>
  57                     <PUTR 'PRE-TEST 2 TEMP16 (RECORD-TYPE ATOM)>
  58                     <DEAD TEMP16>
  59                     <BIND = TEMP16 (TYPE LBIND)>
  60                     <PUTR TEMP16 2 'POST-TEST (RECORD-TYPE LBIND)>
  61                     <PUTR TEMP16 3 <LIST [REST <LIST ANY>]> (RECORD-TYPE LBIND)
  62 >
  63                     <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
  64                     <PUTR TEMP16 6 TEMP17 (RECORD-TYPE LBIND)>
  65                     <DEAD TEMP17>
  66                     <NTHR 'POST-TEST 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)
  67 >
  68                     <PUTR TEMP16 5 TEMP17 (RECORD-TYPE LBIND)>
  69                     <DEAD TEMP17>
  70                     <PUTR TEMP16 1 () (RECORD-TYPE LBIND)>
  71                     <PUTR 'POST-TEST 2 TEMP16 (RECORD-TYPE ATOM)>
  72                     <DEAD TEMP16>
  73                     <BIND = TEMP16 (TYPE LBIND)>
  74                     <PUTR TEMP16 2 'RETURNS (RECORD-TYPE LBIND)>
  75                     <PUTR TEMP16 3 'LIST (RECORD-TYPE LBIND)>
  76                     <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
  77                     <PUTR TEMP16 6 TEMP17 (RECORD-TYPE LBIND)>
  78                     <DEAD TEMP17>
  79                     <NTHR 'RETURNS 2 = TEMP17 (RECORD-TYPE ATOM) (TYPE LBIND)>
  80                     <PUTR TEMP16 5 TEMP17 (RECORD-TYPE LBIND)>
  81                     <DEAD TEMP17>
  82                     <PUTR TEMP16 1 () (RECORD-TYPE LBIND)>
  83                     <PUTR 'RETURNS 2 TEMP16 (RECORD-TYPE ATOM)>
  84                     <DEAD TEMP16>
  85                     <SET TEMP25 () (TYPE LIST)>
  86                     <SET TEMP17 () (TYPE LIST)>
  87                     <SET TEMP16 ARGL8 (TYPE LIST)>
  88                     <DEAD ARGL8>
  89                     <LOOP>
  90 MAP19
  91                     <INTGO>
  92                     <EMPL? TEMP16 + MAPAP22>
  93                     <NTHL TEMP16 1 = NAM27>
  94                     <TYPE? NAM27 <TYPE-CODE STRING> - PHRASE29>
  95                     <SET TEMP32 NAM27>
  96                     <SET TEMP33 "FOR" (TYPE STRING)>
  97                     <LENUS TEMP32 = TEMP34 (TYPE FIX)>
  98                     <VEQUAL? TEMP34 3 - PHRASE31>
  99                     <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34
 100 VALUE)>
 101 TAG37
 102                     <NTHUS TEMP32 1 = TEMP35>
 103                     <NTHUS TEMP33 1 = TEMP36>
 104                     <VEQUAL? TEMP35 TEMP36 - PHRASE31>
 105                     <DEAD TEMP36 TEMP35>
 106                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
 107                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
 108                     <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
 109                     <GRTR? TEMP34 0 + TAG37 (TYPE FIX)>
 110                     <DEAD NAM27 TEMP32 TEMP33 TEMP34>
 111                     <SET STATE14 1 (TYPE FIX)>
 112                     <JUMP + PHRASE98>
 113 PHRASE31
 114                     <SET TEMP33 NAM27>
 115                     <SET TEMP32 "GEN" (TYPE STRING)>
 116                     <LENUS TEMP33 = TEMP36 (TYPE FIX)>
 117                     <VEQUAL? TEMP36 3 - PHRASE38>
 118                     <LOOP (TEMP33 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP36
 119 VALUE)>
 120 TAG40
 121                     <NTHUS TEMP33 1 = TEMP35>
 122                     <NTHUS TEMP32 1 = TEMP39>
 123                     <VEQUAL? TEMP35 TEMP39 - PHRASE38>
 124                     <DEAD TEMP39 TEMP35>
 125                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
 126                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
 127                     <SUB TEMP36 1 = TEMP36 (TYPE FIX)>
 128                     <GRTR? TEMP36 0 + TAG40 (TYPE FIX)>
 129                     <DEAD NAM27 TEMP32 TEMP33 TEMP36>
 130                     <SET STATE14 2 (TYPE FIX)>
 131                     <JUMP + PHRASE98>
 132 PHRASE38
 133                     <SET TEMP32 NAM27>
 134                     <SET TEMP33 "WHILE" (TYPE STRING)>
 135                     <LENUS TEMP32 = TEMP39 (TYPE FIX)>
 136                     <VEQUAL? TEMP39 5 - PHRASE41>
 137                     <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP39
 138 VALUE)>
 139 TAG43
 140                     <NTHUS TEMP32 1 = TEMP35>
 141                     <NTHUS TEMP33 1 = TEMP42>
 142                     <VEQUAL? TEMP35 TEMP42 - PHRASE41>
 143                     <DEAD TEMP42 TEMP35>
 144                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
 145                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
 146                     <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
 147                     <GRTR? TEMP39 0 + TAG43 (TYPE FIX)>
 148                     <DEAD NAM27 TEMP32 TEMP33 TEMP39>
 149                     <SET STATE14 4 (TYPE FIX)>
 150                     <JUMP + PHRASE98>
 151 PHRASE41
 152                     <SET TEMP33 NAM27>
 153                     <SET TEMP32 "UNTIL" (TYPE STRING)>
 154                     <LENUS TEMP33 = TEMP42 (TYPE FIX)>
 155                     <VEQUAL? TEMP42 5 - PHRASE44>
 156                     <LOOP (TEMP33 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP42
 157 VALUE)>
 158 TAG46
 159                     <NTHUS TEMP33 1 = TEMP35>
 160                     <NTHUS TEMP32 1 = TEMP45>
 161                     <VEQUAL? TEMP35 TEMP45 - PHRASE44>
 162                     <DEAD TEMP45 TEMP35>
 163                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
 164                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
 165                     <SUB TEMP42 1 = TEMP42 (TYPE FIX)>
 166                     <GRTR? TEMP42 0 + TAG46 (TYPE FIX)>
 167                     <DEAD NAM27 TEMP32 TEMP33 TEMP42>
 168                     <SET STATE14 3 (TYPE FIX)>
 169                     <JUMP + PHRASE98>
 170 PHRASE44
 171                     <SET TEMP32 NAM27>
 172                     <SET TEMP33 "VALUE" (TYPE STRING)>
 173                     <LENUS TEMP32 = TEMP45 (TYPE FIX)>
 174                     <VEQUAL? TEMP45 5 - PHRASE47>
 175                     <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP45
 176 VALUE)>
 177 TAG49
 178                     <NTHUS TEMP32 1 = TEMP35>
 179                     <NTHUS TEMP33 1 = TEMP48>
 180                     <VEQUAL? TEMP35 TEMP48 - PHRASE47>
 181                     <DEAD TEMP48 TEMP35>
 182                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
 183                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
 184                     <SUB TEMP45 1 = TEMP45 (TYPE FIX)>
 185                     <GRTR? TEMP45 0 + TAG49 (TYPE FIX)>
 186                     <DEAD NAM27 TEMP32 TEMP33 TEMP45>
 187                     <SET STATE14 5 (TYPE FIX)>
 188                     <JUMP + PHRASE98>
 189 PHRASE47
 190                     <SET TEMP33 NAM27>
 191                     <SET TEMP32 "AUX" (TYPE STRING)>
 192                     <LENUS TEMP33 = TEMP48 (TYPE FIX)>
 193                     <VEQUAL? TEMP48 3 - TAG52>
 194                     <LOOP (TEMP33 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP48
 195 VALUE)>
 196 TAG54
 197                     <NTHUS TEMP33 1 = TEMP35>
 198                     <NTHUS TEMP32 1 = TEMP53>
 199                     <VEQUAL? TEMP35 TEMP53 - TAG52>
 200                     <DEAD TEMP53 TEMP35>
 201                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
 202                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
 203                     <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
 204                     <GRTR? TEMP48 0 + TAG54 (TYPE FIX)>
 205                     <DEAD NAM27 TEMP32 TEMP33 TEMP48>
 206                     <JUMP + BOOL51>
 207 TAG52
 208                     <SET TEMP32 NAM27>
 209                     <SET TEMP33 "AUX" (TYPE STRING)>
 210                     <LENUS TEMP32 = TEMP53 (TYPE FIX)>
 211                     <VEQUAL? TEMP53 3 - PHRASE50>
 212                     <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP53
 213 VALUE)>
 214 TAG56
 215                     <NTHUS TEMP32 1 = TEMP35>
 216                     <NTHUS TEMP33 1 = TEMP55>
 217                     <VEQUAL? TEMP35 TEMP55 - PHRASE50>
 218                     <DEAD TEMP55 TEMP35>
 219                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
 220                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
 221                     <SUB TEMP53 1 = TEMP53 (TYPE FIX)>
 222                     <GRTR? TEMP53 0 + TAG56 (TYPE FIX)>
 223 BOOL51
 224                     <DEAD NAM27 TEMP32 TEMP33 TEMP53>
 225                     <SET STATE14 0 (TYPE FIX)>
 226                     <JUMP + PHRASE98>
 227 PHRASE50
 228                     <SET STATE14 0 (TYPE FIX)>
 229                     <CONS NAM27 () = NAM27 (TYPE LIST)>
 230                     <EMPL? TEMP25 - TAG59>
 231                     <SET TEMP25 NAM27 (TYPE LIST)>
 232                     <JUMP + TAG60>
 233 TAG59
 234                     <PUTREST TEMP17 NAM27>
 235                     <DEAD TEMP17>
 236 TAG60
 237                     <SET TEMP17 NAM27 (TYPE LIST)>
 238                     <DEAD NAM27>
 239                     <JUMP + PHRASE98>
 240 PHRASE29
 241                     <VEQUAL? STATE14 0 - PHRASE61 (TYPE FIX)>
 242                     <CONS NAM27 () = NAM27 (TYPE LIST)>
 243                     <EMPL? TEMP25 - TAG65>
 244                     <SET TEMP25 NAM27 (TYPE LIST)>
 245                     <JUMP + TAG66>
 246 TAG65
 247                     <PUTREST TEMP17 NAM27>
 248                     <DEAD TEMP17>
 249 TAG66
 250                     <SET TEMP17 NAM27 (TYPE LIST)>
 251                     <DEAD NAM27>
 252                     <JUMP + PHRASE98>
 253 PHRASE61
 254                     <TYPE? NAM27 <TYPE-CODE LIST> + PHRASE69>
 255                     <CONS NAM27 () = NAM27>
 256 PHRASE69
 257                     <SET OB71 STATE14>
 258                     <VEQUAL? OB71 1 - PHRASE74 (TYPE FIX)>
 259                     <FRAME '\1aDO-FOR>
 260                     <SET TEMP55 0 (TYPE FIX)>
 261                     <SET TEMP32 NAM27>
 262                     <DEAD NAM27>
 263                     <LOOP (TEMP32 VALUE) (TEMP55 VALUE)>
 264 TAG79
 265                     <INTGO>
 266                     <EMPL? TEMP32 + TAG78>
 267                     <NTHL TEMP32 1 = STACK>
 268                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
 269                     <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
 270                     <JUMP + TAG79>
 271 TAG78
 272                     <DEAD TEMP32>
 273                     <CALL '\1aDO-FOR TEMP55 = TEMP55>
 274                     <CONS TEMP55 () = TEMP55 (TYPE LIST)>
 275                     <EMPL? TEMP25 - TAG81>
 276                     <SET TEMP25 TEMP55 (TYPE LIST)>
 277                     <JUMP + TAG82>
 278 TAG81
 279                     <PUTREST TEMP17 TEMP55>
 280                     <DEAD TEMP17>
 281 TAG82
 282                     <SET TEMP17 TEMP55 (TYPE LIST)>
 283                     <DEAD TEMP55>
 284                     <JUMP + PHRASE98>
 285 PHRASE74
 286                     <VEQUAL? OB71 2 - PHRASE83 (TYPE FIX)>
 287                     <FRAME '\1aDO-GEN>
 288                     <SET TEMP32 0 (TYPE FIX)>
 289                     <SET TEMP55 NAM27>
 290                     <DEAD NAM27>
 291                     <LOOP (TEMP55 VALUE) (TEMP32 VALUE)>
 292 TAG86
 293                     <INTGO>
 294                     <EMPL? TEMP55 + TAG85>
 295                     <NTHL TEMP55 1 = STACK>
 296                     <RESTL TEMP55 1 = TEMP55 (TYPE LIST)>
 297                     <ADD TEMP32 1 = TEMP32 (TYPE FIX)>
 298                     <JUMP + TAG86>
 299 TAG85
 300                     <DEAD TEMP55>
 301                     <CALL '\1aDO-GEN TEMP32 = TEMP32>
 302                     <CONS TEMP32 () = TEMP32 (TYPE LIST)>
 303                     <EMPL? TEMP25 - TAG88>
 304                     <SET TEMP25 TEMP32 (TYPE LIST)>
 305                     <JUMP + TAG89>
 306 TAG88
 307                     <PUTREST TEMP17 TEMP32>
 308                     <DEAD TEMP17>
 309 TAG89
 310                     <SET TEMP17 TEMP32 (TYPE LIST)>
 311                     <DEAD TEMP32>
 312                     <JUMP + PHRASE98>
 313 PHRASE83
 314                     <VEQUAL? OB71 4 - PHRASE90 (TYPE FIX)>
 315                     <FRAME '\1aDO-WHILE>
 316                     <SET TEMP55 0 (TYPE FIX)>
 317                     <SET TEMP32 NAM27>
 318                     <DEAD NAM27>
 319                     <LOOP (TEMP32 VALUE) (TEMP55 VALUE)>
 320 TAG92
 321                     <INTGO>
 322                     <EMPL? TEMP32 + TAG91>
 323                     <NTHL TEMP32 1 = STACK>
 324                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
 325                     <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
 326                     <JUMP + TAG92>
 327 TAG91
 328                     <DEAD TEMP32>
 329                     <CALL '\1aDO-WHILE TEMP55>
 330                     <DEAD TEMP55>
 331                     <JUMP + PHRASE98>
 332 PHRASE90
 333                     <VEQUAL? OB71 3 - PHRASE94 (TYPE FIX)>
 334                     <FRAME '\1aDO-UNTIL>
 335                     <SET TEMP32 0 (TYPE FIX)>
 336                     <SET TEMP55 NAM27>
 337                     <DEAD NAM27>
 338                     <LOOP (TEMP55 VALUE) (TEMP32 VALUE)>
 339 TAG96
 340                     <INTGO>
 341                     <EMPL? TEMP55 + TAG95>
 342                     <NTHL TEMP55 1 = STACK>
 343                     <RESTL TEMP55 1 = TEMP55 (TYPE LIST)>
 344                     <ADD TEMP32 1 = TEMP32 (TYPE FIX)>
 345                     <JUMP + TAG96>
 346 TAG95
 347                     <DEAD TEMP55>
 348                     <CALL '\1aDO-UNTIL TEMP32>
 349                     <DEAD TEMP32>
 350                     <JUMP + PHRASE98>
 351 PHRASE94
 352                     <VEQUAL? OB71 5 - PHRASE98 (TYPE FIX)>
 353                     <DEAD OB71>
 354                     <FRAME '\1aDO-VALUE>
 355                     <SET TEMP55 0 (TYPE FIX)>
 356                     <SET TEMP32 NAM27>
 357                     <DEAD NAM27>
 358                     <LOOP (TEMP32 VALUE) (TEMP55 VALUE)>
 359 TAG100
 360                     <INTGO>
 361                     <EMPL? TEMP32 + TAG99>
 362                     <NTHL TEMP32 1 = STACK>
 363                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
 364                     <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
 365                     <JUMP + TAG100>
 366 TAG99
 367                     <DEAD TEMP32>
 368                     <CALL '\1aDO-VALUE TEMP55>
 369                     <DEAD TEMP55>
 370 PHRASE98
 371                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
 372                     <JUMP + MAP19>
 373 MAPAP22
 374                     <DEAD STATE14 TEMP16 TEMP17>
 375                     <FRAME '\1aCOND-BODY>
 376                     <PUSH (<RETURN T>)>
 377                     <NTHR 'RETURNS 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
 378                     <NTHR TEMP16 1 = STACK (RECORD-TYPE LBIND)>
 379                     <DEAD TEMP16>
 380                     <CALL '\1aCOND-BODY 2 = TEMP16>
 381                     <NTHR 'RETURNS 2 = TEMP55 (RECORD-TYPE ATOM) (TYPE LBIND)>
 382                     <PUTR TEMP55 1 TEMP16 (RECORD-TYPE LBIND)>
 383                     <DEAD TEMP16 TEMP55>
 384                     <FRAME '\1aFORM>
 385                     <PUSH 'REPEAT>
 386                     <PUSH TEMP25>
 387                     <DEAD TEMP25>
 388                     <SET TEMP55 2 (TYPE FIX)>
 389                     <SET TEMP116 () (TYPE LIST)>
 390                     <SET TEMP35 () (TYPE LIST)>
 391                     <NTHR 'PRE-CODE 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)
 392 >
 393                     <NTHR TEMP119 1 = TEMP118 (RECORD-TYPE LBIND)>
 394                     <DEAD TEMP119>
 395                     <LOOP>
 396 MAP110
 397                     <INTGO>
 398                     <EMPL? TEMP118 + MAPAP113>
 399                     <NTHL TEMP118 1 = L122>
 400                     <FRAME '\1aMAKE-COND>
 401                     <NTHL L122 1 = STACK>
 402                     <NTHR 'RETURNS 2 = TEMP119 (RECORD-TYPE ATOM) (TYPE LBIND)
 403 >
 404                     <NTHR TEMP119 1 = STACK (RECORD-TYPE LBIND)>
 405                     <DEAD TEMP119>
 406                     <RESTL L122 1 = STACK (TYPE LIST)>
 407                     <DEAD L122>
 408                     <CALL '\1aMAKE-COND 3 = TEMP119>
 409                     <CONS TEMP119 () = TEMP119 (TYPE LIST)>
 410                     <EMPL? TEMP116 - TAG126>
 411                     <SET TEMP116 TEMP119 (TYPE LIST)>
 412                     <JUMP + TAG127>
 413 TAG126
 414                     <PUTREST TEMP35 TEMP119>
 415                     <DEAD TEMP35>
 416 TAG127
 417                     <SET TEMP35 TEMP119 (TYPE LIST)>
 418                     <DEAD TEMP119>
 419                     <RESTL TEMP118 1 = TEMP118 (TYPE LIST)>
 420                     <JUMP + MAP110>
 421 MAPAP113
 422                     <DEAD TEMP118 TEMP35>
 423                     <LOOP (TEMP116 VALUE) (TEMP55 VALUE)>
 424 TAG128
 425                     <INTGO>
 426                     <EMPL? TEMP116 + TAG108>
 427                     <NTHL TEMP116 1 = STACK>
 428                     <RESTL TEMP116 1 = TEMP116 (TYPE LIST)>
 429                     <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
 430                     <JUMP + TAG128>
 431 TAG108
 432                     <DEAD TEMP116>
 433                     <SET TEMP137 () (TYPE LIST)>
 434                     <SET TEMP119 () (TYPE LIST)>
 435                     <NTHR 'PRE-TEST 2 = TEMP140 (RECORD-TYPE ATOM) (TYPE LBIND)
 436 >
 437                     <NTHR TEMP140 1 = TEMP139 (RECORD-TYPE LBIND)>
 438                     <DEAD TEMP140>
 439                     <LOOP>
 440 MAP131
 441                     <INTGO>
 442                     <EMPL? TEMP139 + MAPAP134>
 443                     <NTHL TEMP139 1 = L143>
 444                     <FRAME '\1aMAKE-COND>
 445                     <NTHL L143 1 = STACK>
 446                     <NTHR 'RETURNS 2 = TEMP140 (RECORD-TYPE ATOM) (TYPE LBIND)
 447 >
 448                     <NTHR TEMP140 1 = STACK (RECORD-TYPE LBIND)>
 449                     <DEAD TEMP140>
 450                     <RESTL L143 1 = STACK (TYPE LIST)>
 451                     <DEAD L143>
 452                     <CALL '\1aMAKE-COND 3 = TEMP140>
 453                     <CONS TEMP140 () = TEMP140 (TYPE LIST)>
 454                     <EMPL? TEMP137 - TAG147>
 455                     <SET TEMP137 TEMP140 (TYPE LIST)>
 456                     <JUMP + TAG148>
 457 TAG147
 458                     <PUTREST TEMP119 TEMP140>
 459                     <DEAD TEMP119>
 460 TAG148
 461                     <SET TEMP119 TEMP140 (TYPE LIST)>
 462                     <DEAD TEMP140>
 463                     <RESTL TEMP139 1 = TEMP139 (TYPE LIST)>
 464                     <JUMP + MAP131>
 465 MAPAP134
 466                     <DEAD TEMP119 TEMP139>
 467                     <LOOP (TEMP137 VALUE) (TEMP55 VALUE)>
 468 TAG149
 469                     <INTGO>
 470                     <EMPL? TEMP137 + TAG129>
 471                     <NTHL TEMP137 1 = STACK>
 472                     <RESTL TEMP137 1 = TEMP137 (TYPE LIST)>
 473                     <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
 474                     <JUMP + TAG149>
 475 TAG129
 476                     <DEAD TEMP137>
 477                     <SET TEMP137 BODY9>
 478                     <DEAD BODY9>
 479                     <LOOP (TEMP137 VALUE) (TEMP55 VALUE)>
 480 TAG151
 481                     <INTGO>
 482                     <EMPL? TEMP137 + TAG150>
 483                     <NTHL TEMP137 1 = STACK>
 484                     <RESTL TEMP137 1 = TEMP137 (TYPE LIST)>
 485                     <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
 486                     <JUMP + TAG151>
 487 TAG150
 488                     <DEAD TEMP137>
 489                     <SET TEMP160 () (TYPE LIST)>
 490                     <SET TEMP140 () (TYPE LIST)>
 491                     <NTHR 'POST-TEST 2 = TEMP163 (RECORD-TYPE ATOM) (TYPE LBIND
 492 )>
 493                     <NTHR TEMP163 1 = TEMP162 (RECORD-TYPE LBIND)>
 494                     <DEAD TEMP163>
 495                     <LOOP>
 496 MAP154
 497                     <INTGO>
 498                     <EMPL? TEMP162 + MAPAP157>
 499                     <NTHL TEMP162 1 = L166>
 500                     <FRAME '\1aMAKE-COND>
 501                     <NTHL L166 1 = STACK>
 502                     <NTHR 'RETURNS 2 = TEMP163 (RECORD-TYPE ATOM) (TYPE LBIND)
 503 >
 504                     <NTHR TEMP163 1 = STACK (RECORD-TYPE LBIND)>
 505                     <DEAD TEMP163>
 506                     <RESTL L166 1 = STACK (TYPE LIST)>
 507                     <DEAD L166>
 508                     <CALL '\1aMAKE-COND 3 = TEMP163>
 509                     <CONS TEMP163 () = TEMP163 (TYPE LIST)>
 510                     <EMPL? TEMP160 - TAG170>
 511                     <SET TEMP160 TEMP163 (TYPE LIST)>
 512                     <JUMP + TAG171>
 513 TAG170
 514                     <PUTREST TEMP140 TEMP163>
 515                     <DEAD TEMP140>
 516 TAG171
 517                     <SET TEMP140 TEMP163 (TYPE LIST)>
 518                     <DEAD TEMP163>
 519                     <RESTL TEMP162 1 = TEMP162 (TYPE LIST)>
 520                     <JUMP + MAP154>
 521 MAPAP157
 522                     <DEAD TEMP140 TEMP162>
 523                     <LOOP (TEMP160 VALUE) (TEMP55 VALUE)>
 524 TAG172
 525                     <INTGO>
 526                     <EMPL? TEMP160 + TAG152>
 527                     <NTHL TEMP160 1 = STACK>
 528                     <RESTL TEMP160 1 = TEMP160 (TYPE LIST)>
 529                     <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
 530                     <JUMP + TAG172>
 531 TAG152
 532                     <DEAD TEMP160>
 533                     <NTHR 'POST-CODE 2 = TEMP160 (RECORD-TYPE ATOM) (TYPE LBIND
 534 )>
 535                     <NTHR TEMP160 1 = TEMP160 (RECORD-TYPE LBIND)>
 536                     <LOOP (TEMP160 VALUE) (TEMP55 VALUE)>
 537 TAG176
 538                     <INTGO>
 539                     <EMPL? TEMP160 + TAG173>
 540                     <NTHL TEMP160 1 = STACK>
 541                     <RESTL TEMP160 1 = TEMP160 (TYPE LIST)>
 542                     <ADD TEMP55 1 = TEMP55 (TYPE FIX)>
 543                     <JUMP + TAG176>
 544 TAG173
 545                     <DEAD TEMP160>
 546                     <CALL '\1aFORM TEMP55 = TEMP55>
 547                     <UNBIND TEMP5>
 548                     <DEAD TEMP5>
 549                     <RETURN TEMP55>
 550                     <DEAD TEMP55>
 551                     <END>
 552
 553 <COND (<GASSIGNED? DO> <SETG DO <CHTYPE (,DO) MACRO>>)>
 554 <AND? <SETG COLON-NONE 0> <SETG COLON-FOR 1> <SETG COLON-GEN 2> <SETG
 555 COLON-UNTIL 3> <SETG COLON-WHILE 4> <SETG COLON-VALUE 5> <MANIFEST COLON-NONE
 556 COLON-FOR COLON-GEN COLON-UNTIL COLON-WHILE COLON-VALUE>>
 557
 558 \\f
 559                     <GFCN \1aDO-FOR ("VALUE" <LIST ANY ANY> ANY "OPTIONAL" ANY
 560 ANY ANY "TUPLE" TUPLE) VARIABLE12 INITIAL13 FINAL14 STEP15>
 561                     <OPT-DISPATCH 1 4 OPT8 OPT9 OPT10 OPT11>
 562 OPT8
 563                     <PUSH 1>
 564 OPT9
 565                     <PUSH #T$UNBOUND *000000000000*>
 566 OPT10
 567                     <PUSH 1>
 568 OPT11
 569                     <MAKTUP #ADECL [VAL16 TUPLE] TEMP26 TEMP29 TEMP30 TEMP31
 570 TEMP36 TEMP37 TEMP51 TEMP56 TEMP57 TEMP67 TEMP77 TEMP78 TEMP87 #ADECL [TEMP95
 571 FIX] = VAL16>
 572                     <INTGO>
 573                     <TYPE? FINAL14 <TYPE-CODE UNBOUND> + TAG82>
 574                     <EQUAL? STEP15 0 + TAG82>
 575                     <EQUAL? STEP15 0.0000000 + TAG82>
 576                     <TYPE? STEP15 <TYPE-CODE FIX> + TAG21>
 577                     <TYPE? STEP15 <TYPE-CODE FLOAT> - PHRASE19>
 578 TAG21
 579                     <GRTR? STEP15 0 - PHRASE19>
 580                     <NTHR 'PRE-CODE 2 = TEMP26 (RECORD-TYPE ATOM) (BRANCH-FALSE
 581 + TAG27)>
 582                     <TYPE? TEMP26 <TYPE-CODE FALSE> + TAG27>
 583                     <NTHR TEMP26 6 = TEMP29 (RECORD-TYPE LBIND) (TYPE FIX)>
 584                     <GVAL 'M$$BINDID = TEMP30 (TYPE FIX)>
 585                     <VEQUAL? TEMP29 TEMP30 - TAG27>
 586                     <DEAD TEMP30>
 587                     <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
 588                     <JUMP + TAG28>
 589 TAG27
 590                     <FRAME '\1aLVAL>
 591                     <PUSH 'PRE-CODE>
 592                     <CALL '\1aLVAL 1 = TEMP26>
 593 TAG28
 594                     <SET TEMP30 () (TYPE LIST)>
 595                     <EMPL? TEMP26 + TAG25>
 596                     <NTHL TEMP26 1 = TEMP29>
 597                     <CONS TEMP29 () = TEMP29>
 598                     <SET TEMP30 TEMP29>
 599                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
 600                     <EMPL? TEMP26 + TAG25>
 601                     <LOOP (TEMP26 VALUE) (TEMP29 VALUE)>
 602 TAG24
 603                     <NTHL TEMP26 1 = TEMP31>
 604                     <CONS TEMP31 () = TEMP31>
 605                     <PUTREST TEMP29 TEMP31>
 606                     <DEAD TEMP29>
 607                     <SET TEMP29 TEMP31>
 608                     <DEAD TEMP31>
 609                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
 610                     <EMPL? TEMP26 - TAG24>
 611 TAG25
 612                     <DEAD TEMP26>
 613                     <FRAME '\1aFORM>
 614                     <PUSH 'G?>
 615                     <FRAME '\1aFORM>
 616                     <PUSH 'LVAL>
 617                     <PUSH VARIABLE12>
 618                     <CALL '\1aFORM 2 = STACK>
 619                     <PUSH FINAL14>
 620                     <DEAD FINAL14>
 621                     <CALL '\1aFORM 3 = TEMP26>
 622                     <CONS TEMP26 () = TEMP26>
 623                     <SET TEMP31 VAL16>
 624                     <DEAD VAL16>
 625                     <SET TEMP36 TEMP26>
 626                     <EMPUV? TEMP31 + TAG35>
 627                     <LOOP (TEMP31 VALUE LENGTH) (TEMP36 VALUE)>
 628 TAG34
 629                     <NTHUV TEMP31 1 = TEMP37>
 630                     <CONS TEMP37 () = TEMP37>
 631                     <PUTREST TEMP36 TEMP37>
 632                     <DEAD TEMP36>
 633                     <SET TEMP36 TEMP37>
 634                     <DEAD TEMP37>
 635                     <RESTUV TEMP31 1 = TEMP31 (TYPE TUPLE)>
 636                     <EMPUV? TEMP31 - TAG34>
 637 TAG35
 638                     <DEAD TEMP31 TEMP36>
 639                     <CONS TEMP26 () = TEMP26>
 640                     <EMPL? TEMP29 + TAG38>
 641                     <PUTREST TEMP29 TEMP26>
 642                     <DEAD TEMP26 TEMP29>
 643                     <JUMP + TAG39>
 644 TAG38
 645                     <SET TEMP30 TEMP26>
 646                     <DEAD TEMP26>
 647 TAG39
 648                     <NTHR 'PRE-CODE 2 = TEMP29 (RECORD-TYPE ATOM) (BRANCH-FALSE
 649 + TAG40)>
 650                     <TYPE? TEMP29 <TYPE-CODE FALSE> + TAG40>
 651                     <NTHR TEMP29 6 = TEMP31 (RECORD-TYPE LBIND) (TYPE FIX)>
 652                     <GVAL 'M$$BINDID = TEMP37 (TYPE FIX)>
 653                     <VEQUAL? TEMP31 TEMP37 - TAG40>
 654                     <DEAD TEMP37 TEMP31>
 655                     <PUTR TEMP29 1 TEMP30 (RECORD-TYPE LBIND)>
 656                     <DEAD TEMP30 TEMP29>
 657                     <JUMP + TAG82>
 658 TAG40
 659                     <FRAME '\1aSET>
 660                     <PUSH 'PRE-CODE>
 661                     <PUSH TEMP30>
 662                     <DEAD TEMP30>
 663                     <CALL '\1aSET 2 = TEMP30>
 664                     <JUMP + TAG82>
 665 PHRASE19
 666                     <TYPE? STEP15 <TYPE-CODE FIX> + TAG44>
 667                     <TYPE? STEP15 <TYPE-CODE FLOAT> - PHRASE42>
 668 TAG44
 669                     <LESS? STEP15 0 - PHRASE42>
 670                     <NTHR 'PRE-CODE 2 = TEMP29 (RECORD-TYPE ATOM) (BRANCH-FALSE
 671 + TAG49)>
 672                     <TYPE? TEMP29 <TYPE-CODE FALSE> + TAG49>
 673                     <NTHR TEMP29 6 = TEMP37 (RECORD-TYPE LBIND) (TYPE FIX)>
 674                     <GVAL 'M$$BINDID = TEMP31 (TYPE FIX)>
 675                     <VEQUAL? TEMP37 TEMP31 - TAG49>
 676                     <DEAD TEMP31>
 677                     <NTHR TEMP29 1 = TEMP29 (RECORD-TYPE LBIND)>
 678                     <JUMP + TAG50>
 679 TAG49
 680                     <FRAME '\1aLVAL>
 681                     <PUSH 'PRE-CODE>
 682                     <CALL '\1aLVAL 1 = TEMP29>
 683 TAG50
 684                     <SET TEMP31 () (TYPE LIST)>
 685                     <EMPL? TEMP29 + TAG48>
 686                     <NTHL TEMP29 1 = TEMP37>
 687                     <CONS TEMP37 () = TEMP37>
 688                     <SET TEMP31 TEMP37>
 689                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
 690                     <EMPL? TEMP29 + TAG48>
 691                     <LOOP (TEMP29 VALUE) (TEMP37 VALUE)>
 692 TAG47
 693                     <NTHL TEMP29 1 = TEMP51>
 694                     <CONS TEMP51 () = TEMP51>
 695                     <PUTREST TEMP37 TEMP51>
 696                     <DEAD TEMP37>
 697                     <SET TEMP37 TEMP51>
 698                     <DEAD TEMP51>
 699                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
 700                     <EMPL? TEMP29 - TAG47>
 701 TAG48
 702                     <DEAD TEMP29>
 703                     <FRAME '\1aFORM>
 704                     <PUSH 'L?>
 705                     <FRAME '\1aFORM>
 706                     <PUSH 'LVAL>
 707                     <PUSH VARIABLE12>
 708                     <CALL '\1aFORM 2 = STACK>
 709                     <PUSH FINAL14>
 710                     <DEAD FINAL14>
 711                     <CALL '\1aFORM 3 = TEMP29>
 712                     <CONS TEMP29 () = TEMP29>
 713                     <SET TEMP51 VAL16>
 714                     <DEAD VAL16>
 715                     <SET TEMP56 TEMP29>
 716                     <EMPUV? TEMP51 + TAG55>
 717                     <LOOP (TEMP51 VALUE LENGTH) (TEMP56 VALUE)>
 718 TAG54
 719                     <NTHUV TEMP51 1 = TEMP57>
 720                     <CONS TEMP57 () = TEMP57>
 721                     <PUTREST TEMP56 TEMP57>
 722                     <DEAD TEMP56>
 723                     <SET TEMP56 TEMP57>
 724                     <DEAD TEMP57>
 725                     <RESTUV TEMP51 1 = TEMP51 (TYPE TUPLE)>
 726                     <EMPUV? TEMP51 - TAG54>
 727 TAG55
 728                     <DEAD TEMP51 TEMP56>
 729                     <CONS TEMP29 () = TEMP29>
 730                     <EMPL? TEMP37 + TAG58>
 731                     <PUTREST TEMP37 TEMP29>
 732                     <DEAD TEMP29 TEMP37>
 733                     <JUMP + TAG59>
 734 TAG58
 735                     <SET TEMP31 TEMP29>
 736                     <DEAD TEMP29>
 737 TAG59
 738                     <NTHR 'PRE-CODE 2 = TEMP37 (RECORD-TYPE ATOM) (BRANCH-FALSE
 739 + TAG60)>
 740                     <TYPE? TEMP37 <TYPE-CODE FALSE> + TAG60>
 741                     <NTHR TEMP37 6 = TEMP51 (RECORD-TYPE LBIND) (TYPE FIX)>
 742                     <GVAL 'M$$BINDID = TEMP57 (TYPE FIX)>
 743                     <VEQUAL? TEMP51 TEMP57 - TAG60>
 744                     <DEAD TEMP57 TEMP51>
 745                     <PUTR TEMP37 1 TEMP31 (RECORD-TYPE LBIND)>
 746                     <DEAD TEMP31 TEMP37>
 747                     <JUMP + TAG82>
 748 TAG60
 749                     <FRAME '\1aSET>
 750                     <PUSH 'PRE-CODE>
 751                     <PUSH TEMP31>
 752                     <DEAD TEMP31>
 753                     <CALL '\1aSET 2 = TEMP31>
 754                     <JUMP + TAG82>
 755 PHRASE42
 756                     <NTHR 'PRE-CODE 2 = TEMP37 (RECORD-TYPE ATOM) (BRANCH-FALSE
 757 + TAG65)>
 758                     <TYPE? TEMP37 <TYPE-CODE FALSE> + TAG65>
 759                     <NTHR TEMP37 6 = TEMP57 (RECORD-TYPE LBIND) (TYPE FIX)>
 760                     <GVAL 'M$$BINDID = TEMP51 (TYPE FIX)>
 761                     <VEQUAL? TEMP57 TEMP51 - TAG65>
 762                     <DEAD TEMP51>
 763                     <NTHR TEMP37 1 = TEMP37 (RECORD-TYPE LBIND)>
 764                     <JUMP + TAG66>
 765 TAG65
 766                     <FRAME '\1aLVAL>
 767                     <PUSH 'PRE-CODE>
 768                     <CALL '\1aLVAL 1 = TEMP37>
 769 TAG66
 770                     <SET TEMP51 () (TYPE LIST)>
 771                     <EMPL? TEMP37 + TAG64>
 772                     <NTHL TEMP37 1 = TEMP57>
 773                     <CONS TEMP57 () = TEMP57>
 774                     <SET TEMP51 TEMP57>
 775                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
 776                     <EMPL? TEMP37 + TAG64>
 777                     <LOOP (TEMP37 VALUE) (TEMP57 VALUE)>
 778 TAG63
 779                     <NTHL TEMP37 1 = TEMP67>
 780                     <CONS TEMP67 () = TEMP67>
 781                     <PUTREST TEMP57 TEMP67>
 782                     <DEAD TEMP57>
 783                     <SET TEMP57 TEMP67>
 784                     <DEAD TEMP67>
 785                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
 786                     <EMPL? TEMP37 - TAG63>
 787 TAG64
 788                     <DEAD TEMP37>
 789                     <FRAME '\1aFORM>
 790                     <PUSH 'COND>
 791                     <FRAME '\1aFORM>
 792                     <PUSH 'G?>
 793                     <PUSH STEP15>
 794                     <PUSH 0>
 795                     <CALL '\1aFORM 3 = TEMP37>
 796                     <CONS TEMP37 () = TEMP37>
 797                     <FRAME '\1aFORM>
 798                     <PUSH 'G?>
 799                     <FRAME '\1aFORM>
 800                     <PUSH 'LVAL>
 801                     <PUSH VARIABLE12>
 802                     <CALL '\1aFORM 2 = STACK>
 803                     <PUSH FINAL14>
 804                     <CALL '\1aFORM 3 = TEMP67>
 805                     <CONS TEMP67 () = TEMP67>
 806                     <PUTREST TEMP37 TEMP67>
 807                     <DEAD TEMP67>
 808                     <PUSH TEMP37>
 809                     <DEAD TEMP37>
 810                     <FRAME '\1aFORM>
 811                     <PUSH 'L?>
 812                     <PUSH STEP15>
 813                     <PUSH 0>
 814                     <CALL '\1aFORM 3 = TEMP37>
 815                     <CONS TEMP37 () = TEMP37>
 816                     <FRAME '\1aFORM>
 817                     <PUSH 'L?>
 818                     <FRAME '\1aFORM>
 819                     <PUSH 'LVAL>
 820                     <PUSH VARIABLE12>
 821                     <CALL '\1aFORM 2 = STACK>
 822                     <PUSH FINAL14>
 823                     <DEAD FINAL14>
 824                     <CALL '\1aFORM 3 = TEMP67>
 825                     <CONS TEMP67 () = TEMP67>
 826                     <PUTREST TEMP37 TEMP67>
 827                     <DEAD TEMP67>
 828                     <PUSH TEMP37>
 829                     <DEAD TEMP37>
 830                     <CALL '\1aFORM 3 = TEMP37>
 831                     <CONS TEMP37 () = TEMP37>
 832                     <SET TEMP67 VAL16>
 833                     <DEAD VAL16>
 834                     <SET TEMP77 TEMP37>
 835                     <EMPUV? TEMP67 + TAG76>
 836                     <LOOP (TEMP67 VALUE LENGTH) (TEMP77 VALUE)>
 837 TAG75
 838                     <NTHUV TEMP67 1 = TEMP78>
 839                     <CONS TEMP78 () = TEMP78>
 840                     <PUTREST TEMP77 TEMP78>
 841                     <DEAD TEMP77>
 842                     <SET TEMP77 TEMP78>
 843                     <RESTUV TEMP67 1 = TEMP67 (TYPE TUPLE)>
 844                     <EMPUV? TEMP67 - TAG75>
 845 TAG76
 846                     <DEAD TEMP67 TEMP77>
 847                     <CONS TEMP37 () = TEMP37>
 848                     <EMPL? TEMP57 + TAG79>
 849                     <PUTREST TEMP57 TEMP37>
 850                     <DEAD TEMP37 TEMP57>
 851                     <JUMP + TAG80>
 852 TAG79
 853                     <SET TEMP51 TEMP37>
 854                     <DEAD TEMP37>
 855 TAG80
 856                     <NTHR 'PRE-CODE 2 = TEMP57 (RECORD-TYPE ATOM) (BRANCH-FALSE
 857 + TAG81)>
 858                     <TYPE? TEMP57 <TYPE-CODE FALSE> + TAG81>
 859                     <NTHR TEMP57 6 = TEMP67 (RECORD-TYPE LBIND) (TYPE FIX)>
 860                     <GVAL 'M$$BINDID = TEMP78 (TYPE FIX)>
 861                     <VEQUAL? TEMP67 TEMP78 - TAG81>
 862                     <DEAD TEMP67>
 863                     <PUTR TEMP57 1 TEMP51 (RECORD-TYPE LBIND)>
 864                     <DEAD TEMP51 TEMP57>
 865                     <JUMP + TAG82>
 866 TAG81
 867                     <FRAME '\1aSET>
 868                     <PUSH 'PRE-CODE>
 869                     <PUSH TEMP51>
 870                     <DEAD TEMP51>
 871                     <CALL '\1aSET 2 = TEMP51>
 872 TAG82
 873                     <NTHR 'POST-CODE 2 = TEMP57 (RECORD-TYPE ATOM) (
 874 BRANCH-FALSE + TAG85)>
 875                     <TYPE? TEMP57 <TYPE-CODE FALSE> + TAG85>
 876                     <NTHR TEMP57 6 = TEMP78 (RECORD-TYPE LBIND) (TYPE FIX)>
 877                     <GVAL 'M$$BINDID = TEMP67 (TYPE FIX)>
 878                     <VEQUAL? TEMP78 TEMP67 - TAG85>
 879                     <DEAD TEMP67>
 880                     <NTHR TEMP57 1 = TEMP57 (RECORD-TYPE LBIND)>
 881                     <JUMP + TAG86>
 882 TAG85
 883                     <FRAME '\1aLVAL>
 884                     <PUSH 'POST-CODE>
 885                     <CALL '\1aLVAL 1 = TEMP57>
 886 TAG86
 887                     <SET TEMP67 () (TYPE LIST)>
 888                     <EMPL? TEMP57 + TAG84>
 889                     <NTHL TEMP57 1 = TEMP78>
 890                     <CONS TEMP78 () = TEMP78>
 891                     <SET TEMP67 TEMP78>
 892                     <RESTL TEMP57 1 = TEMP57 (TYPE LIST)>
 893                     <EMPL? TEMP57 + TAG84>
 894                     <LOOP (TEMP57 VALUE) (TEMP78 VALUE)>
 895 TAG83
 896                     <NTHL TEMP57 1 = TEMP87>
 897                     <CONS TEMP87 () = TEMP87>
 898                     <PUTREST TEMP78 TEMP87>
 899                     <DEAD TEMP78>
 900                     <SET TEMP78 TEMP87>
 901                     <DEAD TEMP87>
 902                     <RESTL TEMP57 1 = TEMP57 (TYPE LIST)>
 903                     <EMPL? TEMP57 - TAG83>
 904 TAG84
 905                     <DEAD TEMP57>
 906                     <FRAME '\1aFORM>
 907                     <PUSH 'SET>
 908                     <PUSH VARIABLE12>
 909                     <FRAME '\1aFORM>
 910                     <PUSH '+>
 911                     <FRAME '\1aFORM>
 912                     <PUSH 'LVAL>
 913                     <PUSH VARIABLE12>
 914                     <CALL '\1aFORM 2 = STACK>
 915                     <PUSH STEP15>
 916                     <DEAD STEP15>
 917                     <CALL '\1aFORM 3 = STACK>
 918                     <CALL '\1aFORM 3 = TEMP57>
 919                     <CONS TEMP57 () = TEMP57>
 920                     <EMPL? TEMP78 + TAG91>
 921                     <PUTREST TEMP78 TEMP57>
 922                     <DEAD TEMP57 TEMP78>
 923                     <JUMP + TAG92>
 924 TAG91
 925                     <SET TEMP67 TEMP57>
 926                     <DEAD TEMP57>
 927 TAG92
 928                     <NTHR 'POST-CODE 2 = TEMP78 (RECORD-TYPE ATOM) (
 929 BRANCH-FALSE + TAG93)>
 930                     <TYPE? TEMP78 <TYPE-CODE FALSE> + TAG93>
 931                     <NTHR TEMP78 6 = TEMP87 (RECORD-TYPE LBIND) (TYPE FIX)>
 932                     <GVAL 'M$$BINDID = TEMP95 (TYPE FIX)>
 933                     <VEQUAL? TEMP87 TEMP95 - TAG93>
 934                     <DEAD TEMP95 TEMP87>
 935                     <PUTR TEMP78 1 TEMP67 (RECORD-TYPE LBIND)>
 936                     <DEAD TEMP67 TEMP78>
 937                     <JUMP + TAG94>
 938 TAG93
 939                     <FRAME '\1aSET>
 940                     <PUSH 'POST-CODE>
 941                     <PUSH TEMP67>
 942                     <DEAD TEMP67>
 943                     <CALL '\1aSET 2 = TEMP67>
 944 TAG94
 945                     <CONS INITIAL13 () = INITIAL13>
 946                     <CONS VARIABLE12 INITIAL13 = VARIABLE12>
 947                     <RETURN VARIABLE12>
 948                     <DEAD VARIABLE12>
 949                     <END>
 950                     <GFCN \1aDO-GEN ("VALUE" <LIST ATOM ANY> ATOM "OPTIONAL" ANY
 951 ANY ANY "TUPLE" TUPLE) VARIABLE12 INITIAL13 STEP14 PRED15>
 952                     <OPT-DISPATCH 1 4 OPT8 OPT9 OPT10 OPT11>
 953 OPT8
 954                     <PUSH ()>
 955 OPT9
 956                     <PUSH #T$UNBOUND *000000000000*>
 957 OPT10
 958                     <PUSH #T$UNBOUND *000000000000*>
 959 OPT11
 960                     <MAKTUP #ADECL [VAL16 TUPLE] TEMP21 TEMP22 TEMP23 TEMP24
 961 TEMP29 #ADECL [TEMP43 FIX] = VAL16>
 962                     <INTGO>
 963                     <TYPE? PRED15 <TYPE-CODE UNBOUND> + TAG31>
 964                     <SET TEMP21 VAL16>
 965                     <DEAD VAL16>
 966                     <SET TEMP22 () (TYPE LIST)>
 967                     <EMPUV? TEMP21 + TAG20>
 968                     <NTHUV TEMP21 1 = TEMP23>
 969                     <CONS TEMP23 () = TEMP23>
 970                     <SET TEMP22 TEMP23>
 971                     <RESTUV TEMP21 1 = TEMP21 (TYPE TUPLE)>
 972                     <EMPUV? TEMP21 + TAG20>
 973                     <LOOP (TEMP21 VALUE LENGTH) (TEMP23 VALUE)>
 974 TAG19
 975                     <NTHUV TEMP21 1 = TEMP24>
 976                     <CONS TEMP24 () = TEMP24>
 977                     <PUTREST TEMP23 TEMP24>
 978                     <DEAD TEMP23>
 979                     <SET TEMP23 TEMP24>
 980                     <DEAD TEMP24>
 981                     <RESTUV TEMP21 1 = TEMP21 (TYPE TUPLE)>
 982                     <EMPUV? TEMP21 - TAG19>
 983 TAG20
 984                     <DEAD TEMP21 TEMP23>
 985                     <CONS PRED15 TEMP22 = TEMP22>
 986                     <DEAD PRED15>
 987                     <CONS TEMP22 () = TEMP22>
 988                     <NTHR 'PRE-CODE 2 = TEMP23 (RECORD-TYPE ATOM) (BRANCH-FALSE
 989 + TAG27)>
 990                     <TYPE? TEMP23 <TYPE-CODE FALSE> + TAG27>
 991                     <NTHR TEMP23 6 = TEMP21 (RECORD-TYPE LBIND) (TYPE FIX)>
 992                     <GVAL 'M$$BINDID = TEMP24 (TYPE FIX)>
 993                     <VEQUAL? TEMP21 TEMP24 - TAG27>
 994                     <DEAD TEMP24 TEMP21>
 995                     <NTHR TEMP23 1 = TEMP23 (RECORD-TYPE LBIND)>
 996                     <JUMP + TAG28>
 997 TAG27
 998                     <FRAME '\1aLVAL>
 999                     <PUSH 'PRE-CODE>
1000                     <CALL '\1aLVAL 1 = TEMP23>
1001 TAG28
1002                     <SET TEMP24 TEMP22>
1003                     <EMPL? TEMP23 + TAG26>
1004                     <NTHL TEMP23 1 = TEMP21>
1005                     <CONS TEMP21 TEMP22 = TEMP21>
1006                     <SET TEMP24 TEMP21>
1007                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
1008                     <EMPL? TEMP23 + TAG26>
1009                     <LOOP (TEMP23 VALUE) (TEMP21 VALUE) (TEMP22 VALUE)>
1010 TAG25
1011                     <NTHL TEMP23 1 = TEMP29>
1012                     <CONS TEMP29 TEMP22 = TEMP29>
1013                     <PUTREST TEMP21 TEMP29>
1014                     <DEAD TEMP21>
1015                     <SET TEMP21 TEMP29>
1016                     <DEAD TEMP29>
1017                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
1018                     <EMPL? TEMP23 - TAG25>
1019 TAG26
1020                     <DEAD TEMP21 TEMP22 TEMP23>
1021                     <NTHR 'PRE-CODE 2 = TEMP21 (RECORD-TYPE ATOM) (BRANCH-FALSE
1022 + TAG30)>
1023                     <TYPE? TEMP21 <TYPE-CODE FALSE> + TAG30>
1024                     <NTHR TEMP21 6 = TEMP23 (RECORD-TYPE LBIND) (TYPE FIX)>
1025                     <GVAL 'M$$BINDID = TEMP29 (TYPE FIX)>
1026                     <VEQUAL? TEMP23 TEMP29 - TAG30>
1027                     <DEAD TEMP29 TEMP23>
1028                     <PUTR TEMP21 1 TEMP24 (RECORD-TYPE LBIND)>
1029                     <DEAD TEMP24>
1030                     <JUMP + TAG31>
1031 TAG30
1032                     <FRAME '\1aSET>
1033                     <PUSH 'PRE-CODE>
1034                     <PUSH TEMP24>
1035                     <DEAD TEMP24>
1036                     <CALL '\1aSET 2 = TEMP24>
1037 TAG31
1038                     <TYPE? STEP14 <TYPE-CODE UNBOUND> + TAG42>
1039                     <NTHR 'POST-CODE 2 = TEMP24 (RECORD-TYPE ATOM) (
1040 BRANCH-FALSE + TAG36)>
1041                     <TYPE? TEMP24 <TYPE-CODE FALSE> + TAG36>
1042                     <NTHR TEMP24 6 = TEMP21 (RECORD-TYPE LBIND) (TYPE FIX)>
1043                     <GVAL 'M$$BINDID = TEMP29 (TYPE FIX)>
1044                     <VEQUAL? TEMP21 TEMP29 - TAG36>
1045                     <DEAD TEMP29>
1046                     <NTHR TEMP24 1 = TEMP24 (RECORD-TYPE LBIND)>
1047                     <JUMP + TAG37>
1048 TAG36
1049                     <FRAME '\1aLVAL>
1050                     <PUSH 'POST-CODE>
1051                     <CALL '\1aLVAL 1 = TEMP24>
1052 TAG37
1053                     <SET TEMP29 () (TYPE LIST)>
1054                     <EMPL? TEMP24 + TAG35>
1055                     <NTHL TEMP24 1 = TEMP21>
1056                     <CONS TEMP21 () = TEMP21>
1057                     <SET TEMP29 TEMP21>
1058                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
1059                     <EMPL? TEMP24 + TAG35>
1060                     <LOOP (TEMP24 VALUE) (TEMP21 VALUE)>
1061 TAG34
1062                     <NTHL TEMP24 1 = TEMP23>
1063                     <CONS TEMP23 () = TEMP23>
1064                     <PUTREST TEMP21 TEMP23>
1065                     <DEAD TEMP21>
1066                     <SET TEMP21 TEMP23>
1067                     <DEAD TEMP23>
1068                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
1069                     <EMPL? TEMP24 - TAG34>
1070 TAG35
1071                     <DEAD TEMP24>
1072                     <FRAME '\1aFORM>
1073                     <PUSH 'SET>
1074                     <PUSH VARIABLE12>
1075                     <PUSH STEP14>
1076                     <DEAD STEP14>
1077                     <CALL '\1aFORM 3 = TEMP24>
1078                     <CONS TEMP24 () = TEMP24>
1079                     <EMPL? TEMP21 + TAG39>
1080                     <PUTREST TEMP21 TEMP24>
1081                     <DEAD TEMP24 TEMP21>
1082                     <JUMP + TAG40>
1083 TAG39
1084                     <SET TEMP29 TEMP24>
1085                     <DEAD TEMP24>
1086 TAG40
1087                     <NTHR 'POST-CODE 2 = TEMP21 (RECORD-TYPE ATOM) (
1088 BRANCH-FALSE + TAG41)>
1089                     <TYPE? TEMP21 <TYPE-CODE FALSE> + TAG41>
1090                     <NTHR TEMP21 6 = TEMP23 (RECORD-TYPE LBIND) (TYPE FIX)>
1091                     <GVAL 'M$$BINDID = TEMP43 (TYPE FIX)>
1092                     <VEQUAL? TEMP23 TEMP43 - TAG41>
1093                     <DEAD TEMP43 TEMP23>
1094                     <PUTR TEMP21 1 TEMP29 (RECORD-TYPE LBIND)>
1095                     <DEAD TEMP29 TEMP21>
1096                     <JUMP + TAG42>
1097 TAG41
1098                     <FRAME '\1aSET>
1099                     <PUSH 'POST-CODE>
1100                     <PUSH TEMP29>
1101                     <DEAD TEMP29>
1102                     <CALL '\1aSET 2 = TEMP29>
1103 TAG42
1104                     <CONS INITIAL13 () = INITIAL13>
1105                     <CONS VARIABLE12 INITIAL13 = INITIAL13>
1106                     <DEAD VARIABLE12>
1107                     <RETURN INITIAL13>
1108                     <DEAD INITIAL13>
1109                     <END>
1110                     <GFCN \1aDO-WHILE ("VALUE" LIST ANY "TUPLE" TUPLE) EXPR5>
1111                     <MAKTUP #ADECL [VAL6 TUPLE] TEMP9 TEMP12 TEMP13 TEMP14
1112 TEMP18 TEMP19 = VAL6>
1113                     <INTGO>
1114                     <NTHR 'PRE-TEST 2 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE
1115 + TAG10)>
1116                     <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG10>
1117                     <NTHR TEMP9 6 = TEMP12 (RECORD-TYPE LBIND) (TYPE FIX)>
1118                     <GVAL 'M$$BINDID = TEMP13 (TYPE FIX)>
1119                     <VEQUAL? TEMP12 TEMP13 - TAG10>
1120                     <DEAD TEMP13>
1121                     <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE LBIND)>
1122                     <JUMP + TAG11>
1123 TAG10
1124                     <FRAME '\1aLVAL>
1125                     <PUSH 'PRE-TEST>
1126                     <CALL '\1aLVAL 1 = TEMP9>
1127 TAG11
1128                     <SET TEMP13 () (TYPE LIST)>
1129                     <EMPL? TEMP9 + TAG8>
1130                     <NTHL TEMP9 1 = TEMP12>
1131                     <CONS TEMP12 () = TEMP12>
1132                     <SET TEMP13 TEMP12>
1133                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1134                     <EMPL? TEMP9 + TAG8>
1135                     <LOOP (TEMP9 VALUE) (TEMP12 VALUE)>
1136 TAG7
1137                     <NTHL TEMP9 1 = TEMP14>
1138                     <CONS TEMP14 () = TEMP14>
1139                     <PUTREST TEMP12 TEMP14>
1140                     <DEAD TEMP12>
1141                     <SET TEMP12 TEMP14>
1142                     <DEAD TEMP14>
1143                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1144                     <EMPL? TEMP9 - TAG7>
1145 TAG8
1146                     <DEAD TEMP9>
1147                     <FRAME '\1aFORM>
1148                     <PUSH 'NOT>
1149                     <PUSH EXPR5>
1150                     <DEAD EXPR5>
1151                     <CALL '\1aFORM 2 = TEMP9>
1152                     <CONS TEMP9 () = TEMP9>
1153                     <SET TEMP14 VAL6>
1154                     <DEAD VAL6>
1155                     <SET TEMP18 TEMP9>
1156                     <EMPUV? TEMP14 + TAG17>
1157                     <LOOP (TEMP14 VALUE LENGTH) (TEMP18 VALUE)>
1158 TAG16
1159                     <NTHUV TEMP14 1 = TEMP19>
1160                     <CONS TEMP19 () = TEMP19>
1161                     <PUTREST TEMP18 TEMP19>
1162                     <DEAD TEMP18>
1163                     <SET TEMP18 TEMP19>
1164                     <DEAD TEMP19>
1165                     <RESTUV TEMP14 1 = TEMP14 (TYPE TUPLE)>
1166                     <EMPUV? TEMP14 - TAG16>
1167 TAG17
1168                     <DEAD TEMP14 TEMP18>
1169                     <CONS TEMP9 () = TEMP9>
1170                     <EMPL? TEMP12 + TAG20>
1171                     <PUTREST TEMP12 TEMP9>
1172                     <DEAD TEMP9 TEMP12>
1173                     <JUMP + TAG21>
1174 TAG20
1175                     <SET TEMP13 TEMP9>
1176                     <DEAD TEMP9>
1177 TAG21
1178                     <NTHR 'PRE-TEST 2 = TEMP12 (RECORD-TYPE ATOM) (BRANCH-FALSE
1179 + TAG22)>
1180                     <TYPE? TEMP12 <TYPE-CODE FALSE> + TAG22>
1181                     <NTHR TEMP12 6 = TEMP14 (RECORD-TYPE LBIND) (TYPE FIX)>
1182                     <GVAL 'M$$BINDID = TEMP19 (TYPE FIX)>
1183                     <VEQUAL? TEMP14 TEMP19 - TAG22>
1184                     <DEAD TEMP19 TEMP14>
1185                     <PUTR TEMP12 1 TEMP13 (RECORD-TYPE LBIND)>
1186                     <DEAD TEMP12>
1187                     <RETURN TEMP13>
1188 TAG22
1189                     <FRAME '\1aSET>
1190                     <PUSH 'PRE-TEST>
1191                     <PUSH TEMP13>
1192                     <DEAD TEMP13>
1193                     <CALL '\1aSET 2 = TEMP13>
1194                     <RETURN TEMP13>
1195                     <DEAD TEMP13>
1196                     <END>
1197                     <GFCN \1aDO-UNTIL ("VALUE" LIST ANY "TUPLE" TUPLE) EXPR5>
1198                     <MAKTUP #ADECL [VAL6 TUPLE] TEMP9 TEMP10 TEMP11 TEMP12
1199 TEMP17 = VAL6>
1200                     <INTGO>
1201                     <SET TEMP9 VAL6>
1202                     <DEAD VAL6>
1203                     <SET TEMP10 () (TYPE LIST)>
1204                     <EMPUV? TEMP9 + TAG8>
1205                     <NTHUV TEMP9 1 = TEMP11>
1206                     <CONS TEMP11 () = TEMP11>
1207                     <SET TEMP10 TEMP11>
1208                     <RESTUV TEMP9 1 = TEMP9 (TYPE TUPLE)>
1209                     <EMPUV? TEMP9 + TAG8>
1210                     <LOOP (TEMP9 VALUE LENGTH) (TEMP11 VALUE)>
1211 TAG7
1212                     <NTHUV TEMP9 1 = TEMP12>
1213                     <CONS TEMP12 () = TEMP12>
1214                     <PUTREST TEMP11 TEMP12>
1215                     <DEAD TEMP11>
1216                     <SET TEMP11 TEMP12>
1217                     <DEAD TEMP12>
1218                     <RESTUV TEMP9 1 = TEMP9 (TYPE TUPLE)>
1219                     <EMPUV? TEMP9 - TAG7>
1220 TAG8
1221                     <DEAD TEMP11 TEMP9>
1222                     <CONS EXPR5 TEMP10 = EXPR5>
1223                     <CONS EXPR5 () = EXPR5>
1224                     <NTHR 'POST-TEST 2 = TEMP11 (RECORD-TYPE ATOM) (
1225 BRANCH-FALSE + TAG15)>
1226                     <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG15>
1227                     <NTHR TEMP11 6 = TEMP9 (RECORD-TYPE LBIND) (TYPE FIX)>
1228                     <GVAL 'M$$BINDID = TEMP12 (TYPE FIX)>
1229                     <VEQUAL? TEMP9 TEMP12 - TAG15>
1230                     <DEAD TEMP12 TEMP9>
1231                     <NTHR TEMP11 1 = TEMP11 (RECORD-TYPE LBIND)>
1232                     <JUMP + TAG16>
1233 TAG15
1234                     <FRAME '\1aLVAL>
1235                     <PUSH 'POST-TEST>
1236                     <CALL '\1aLVAL 1 = TEMP11>
1237 TAG16
1238                     <SET TEMP12 EXPR5>
1239                     <EMPL? TEMP11 + TAG14>
1240                     <NTHL TEMP11 1 = TEMP9>
1241                     <CONS TEMP9 EXPR5 = TEMP9>
1242                     <SET TEMP12 TEMP9>
1243                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1244                     <EMPL? TEMP11 + TAG14>
1245                     <LOOP (TEMP11 VALUE) (TEMP9 VALUE) (EXPR5 VALUE)>
1246 TAG13
1247                     <NTHL TEMP11 1 = TEMP17>
1248                     <CONS TEMP17 EXPR5 = TEMP17>
1249                     <PUTREST TEMP9 TEMP17>
1250                     <DEAD TEMP9>
1251                     <SET TEMP9 TEMP17>
1252                     <DEAD TEMP17>
1253                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
1254                     <EMPL? TEMP11 - TAG13>
1255 TAG14
1256                     <DEAD EXPR5 TEMP11 TEMP9>
1257                     <NTHR 'POST-TEST 2 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE
1258 + TAG18)>
1259                     <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG18>
1260                     <NTHR TEMP9 6 = TEMP11 (RECORD-TYPE LBIND) (TYPE FIX)>
1261                     <GVAL 'M$$BINDID = TEMP17 (TYPE FIX)>
1262                     <VEQUAL? TEMP11 TEMP17 - TAG18>
1263                     <DEAD TEMP17 TEMP11>
1264                     <PUTR TEMP9 1 TEMP12 (RECORD-TYPE LBIND)>
1265                     <DEAD TEMP9>
1266                     <RETURN TEMP12>
1267 TAG18
1268                     <FRAME '\1aSET>
1269                     <PUSH 'POST-TEST>
1270                     <PUSH TEMP12>
1271                     <DEAD TEMP12>
1272                     <CALL '\1aSET 2 = TEMP12>
1273                     <RETURN TEMP12>
1274                     <DEAD TEMP12>
1275                     <END>
1276                     <GFCN \1aDO-VALUE ("VALUE" ANY "TUPLE" TUPLE)>
1277                     <MAKTUP #ADECL [BODY5 TUPLE] TEMP8 TEMP11 TEMP12 TEMP17
1278 TEMP18 = BODY5>
1279                     <INTGO>
1280                     <NTHR 'RETURNS 2 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE +
1281 TAG9)>
1282                     <TYPE? TEMP8 <TYPE-CODE FALSE> + TAG9>
1283                     <NTHR TEMP8 6 = TEMP11 (RECORD-TYPE LBIND) (TYPE FIX)>
1284                     <GVAL 'M$$BINDID = TEMP12 (TYPE FIX)>
1285                     <VEQUAL? TEMP11 TEMP12 - TAG9>
1286                     <DEAD TEMP12 TEMP11>
1287                     <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE LBIND)>
1288                     <JUMP + TAG10>
1289 TAG9
1290                     <FRAME '\1aLVAL>
1291                     <PUSH 'RETURNS>
1292                     <CALL '\1aLVAL 1 = TEMP8>
1293 TAG10
1294                     <EMPL? TEMP8 + PHRASE7 (TYPE LIST)>
1295                     <DEAD TEMP8>
1296                     <FRAME '\1aERROR>
1297                     <PUSH 'TOO-MANY!-ERRORS>
1298                     <PUSH "VALUE">
1299                     <PUSH 'DO>
1300                     <CALL '\1aERROR 3 = TEMP8>
1301                     <RETURN TEMP8>
1302                     <DEAD TEMP8>
1303 PHRASE7
1304                     <SET TEMP12 BODY5>
1305                     <DEAD BODY5>
1306                     <SET TEMP11 () (TYPE LIST)>
1307                     <EMPUV? TEMP12 + TAG16>
1308                     <NTHUV TEMP12 1 = TEMP17>
1309                     <CONS TEMP17 () = TEMP17>
1310                     <SET TEMP11 TEMP17>
1311                     <RESTUV TEMP12 1 = TEMP12 (TYPE TUPLE)>
1312                     <EMPUV? TEMP12 + TAG16>
1313                     <LOOP (TEMP12 VALUE LENGTH) (TEMP17 VALUE)>
1314 TAG15
1315                     <NTHUV TEMP12 1 = TEMP18>
1316                     <CONS TEMP18 () = TEMP18>
1317                     <PUTREST TEMP17 TEMP18>
1318                     <DEAD TEMP17>
1319                     <SET TEMP17 TEMP18>
1320                     <DEAD TEMP18>
1321                     <RESTUV TEMP12 1 = TEMP12 (TYPE TUPLE)>
1322                     <EMPUV? TEMP12 - TAG15>
1323 TAG16
1324                     <DEAD TEMP12 TEMP17>
1325                     <SET TEMP8 TEMP11>
1326                     <DEAD TEMP11>
1327                     <NTHR 'RETURNS 2 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE
1328 + TAG19)>
1329                     <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG19>
1330                     <NTHR TEMP11 6 = TEMP17 (RECORD-TYPE LBIND) (TYPE FIX)>
1331                     <GVAL 'M$$BINDID = TEMP12 (TYPE FIX)>
1332                     <VEQUAL? TEMP17 TEMP12 - TAG19>
1333                     <DEAD TEMP12 TEMP17>
1334                     <PUTR TEMP11 1 TEMP8 (RECORD-TYPE LBIND)>
1335                     <DEAD TEMP11>
1336                     <RETURN TEMP8>
1337 TAG19
1338                     <FRAME '\1aSET>
1339                     <PUSH 'RETURNS>
1340                     <PUSH TEMP8>
1341                     <DEAD TEMP8>
1342                     <CALL '\1aSET 2 = TEMP8>
1343                     <RETURN TEMP8>
1344                     <DEAD TEMP8>
1345                     <END>
1346                     <GFCN \1aMAKE-COND ("VALUE" <FORM ATOM LIST> ANY LIST LIST)
1347 PRED5 DEF6 BODY7>
1348                     <TEMP TEMP10>
1349                     <INTGO>
1350                     <FRAME '\1aFORM>
1351                     <PUSH 'COND>
1352                     <FRAME '\1aCOND-BODY>
1353                     <PUSH DEF6>
1354                     <DEAD DEF6>
1355                     <PUSH BODY7>
1356                     <DEAD BODY7>
1357                     <CALL '\1aCOND-BODY 2 = TEMP10>
1358                     <CONS PRED5 TEMP10 = STACK>
1359                     <DEAD TEMP10 PRED5>
1360                     <CALL '\1aFORM 2 = TEMP10>
1361                     <RETURN TEMP10>
1362                     <DEAD TEMP10>
1363                     <END>
1364                     <GFCN \1aCOND-BODY ("VALUE" LIST LIST LIST) DEF5 BODY6>
1365                     <TEMP #ADECL [TEMP9 LIST] TEMP12>
1366                     <INTGO>
1367                     <EMPL? BODY6 - PHRASE8 (TYPE LIST)>
1368                     <RETURN DEF5>
1369                     <DEAD DEF5>
1370 PHRASE8
1371                     <SET DEF5 BODY6>
1372                     <LOOP (DEF5 VALUE)>
1373 TAG11
1374                     <RESTL DEF5 1 = TEMP12 (TYPE LIST)>
1375                     <EMPL? TEMP12 + TAG13>
1376                     <SET DEF5 TEMP12>
1377                     <DEAD TEMP12>
1378                     <JUMP + TAG11>
1379 TAG13
1380                     <FRAME '\1aFORM>
1381                     <PUSH 'RETURN>
1382                     <NTHL DEF5 1 = STACK>
1383                     <CALL '\1aFORM 2 = TEMP12>
1384                     <PUTL DEF5 1 TEMP12>
1385                     <DEAD TEMP12 DEF5>
1386                     <RETURN BODY6>
1387                     <DEAD BODY6>
1388                     <END>
1389
1390 \\f
1391                     <GFCN \1aCASE ("VALUE" FORM "QUOTE" ANY "QUOTE" ANY "ARGS"
1392 LIST) PRED8 EXPR9 CASES10>
1393                     <OPT-DISPATCH 2 #FALSE () OPT6 OPT7>
1394 OPT6
1395                     <PUSH ()>
1396 OPT7
1397                     <TEMP (DEFAULT-CASE11 #FALSE ()) TEMP15 TEMP19 TEMP29
1398 TEMP27 #ADECL [TEMP26 LIST] PHRASE31 TEMP43 TEMP46 EXPR32 #ADECL [TEMP61 FIX]
1399 TEMP62>
1400                     <INTGO>
1401                     <TYPE? PRED8 <TYPE-CODE FORM> - PHRASE13>
1402                     <EMPL? PRED8 + PHRASE13>
1403                     <RESTL PRED8 1 = TEMP15 (TYPE LIST)>
1404                     <EMPL? TEMP15 + PHRASE13>
1405                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1406                     <EMPL? TEMP15 - PHRASE13>
1407                     <DEAD TEMP15>
1408                     <NTHL PRED8 1 = TEMP15>
1409                     <EQUAL? TEMP15 'GVAL - PHRASE13>
1410                     <DEAD TEMP15>
1411                     <RESTL PRED8 1 = TEMP15 (TYPE LIST)>
1412                     <NTHL TEMP15 1 = TEMP15>
1413                     <TYPE? TEMP15 <TYPE-CODE ATOM> - PHRASE13>
1414                     <DEAD TEMP15>
1415                     <RESTL PRED8 1 = PRED8 (TYPE LIST)>
1416                     <NTHL PRED8 1 = PRED8 (TYPE ATOM)>
1417                     <JUMP + PHRASE16>
1418 PHRASE13
1419                     <TYPE? PRED8 <TYPE-CODE GVAL> - PHRASE16>
1420                     <CHTYPE PRED8 <TYPE-CODE ATOM> = PRED8>
1421 PHRASE16
1422                     <FRAME '\1aFORM>
1423                     <PUSH 'BIND>
1424                     <CONS EXPR9 () = EXPR9>
1425                     <CONS 'OB EXPR9 = EXPR9>
1426                     <CONS EXPR9 () = STACK>
1427                     <DEAD EXPR9>
1428                     <FRAME '\1aFORM>
1429                     <PUSH 'COND>
1430                     <SET TEMP19 1 (TYPE FIX)>
1431                     <SET TEMP29 () (TYPE LIST)>
1432                     <SET TEMP27 () (TYPE LIST)>
1433                     <SET TEMP26 CASES10 (TYPE LIST)>
1434                     <DEAD CASES10>
1435                     <LOOP>
1436 MAP21
1437                     <INTGO>
1438                     <EMPL? TEMP26 + MAPAP24>
1439                     <NTHL TEMP26 1 = PHRASE31>
1440                     <EQUAL? PHRASE31 'DEFAULT - PHRASE34>
1441                     <TYPE? DEFAULT-CASE11 <TYPE-CODE FALSE> + PHRASE36>
1442                     <FRAME '\1aERROR>
1443                     <PUSH 'TOO-MANY-DEFAULTS!-ERRORS>
1444                     <PUSH 'CASE>
1445                     <CALL '\1aERROR 2>
1446                     <JUMP + MAP22>
1447 PHRASE36
1448                     <SET DEFAULT-CASE11 () (TYPE LIST)>
1449                     <JUMP + MAP22>
1450 PHRASE34
1451                     <TYPE? PHRASE31 <TYPE-CODE LIST> - BOOL41>
1452                     <EMPL? PHRASE31 - PHRASE40 (TYPE LIST)>
1453 BOOL41
1454                     <FRAME '\1aERROR>
1455                     <PUSH 'BAD-CLAUSE!-ERRORS>
1456                     <PUSH 'CASE>
1457                     <CALL '\1aERROR 2 = TEMP43>
1458                     <JUMP + PHRASE69>
1459 PHRASE40
1460                     <TYPE? DEFAULT-CASE11 <TYPE-CODE FALSE> + PHRASE44>
1461                     <EMPL? DEFAULT-CASE11 - PHRASE44 (TYPE LIST)>
1462                     <CONS 'DEFAULT PHRASE31 = PHRASE31>
1463                     <CONS PHRASE31 () = DEFAULT-CASE11>
1464                     <DEAD PHRASE31>
1465                     <JUMP + MAP22>
1466 PHRASE44
1467                     <NTHL PHRASE31 1 = EXPR32>
1468                     <TYPE? EXPR32 <TYPE-CODE SEGMENT> + PHRASE48>
1469                     <FRAME '\1aFORM>
1470                     <PUSH PRED8>
1471                     <PUSH .OB>
1472                     <PUSH EXPR32>
1473                     <DEAD EXPR32>
1474                     <CALL '\1aFORM 3 = TEMP46>
1475                     <CONS TEMP46 () = TEMP43>
1476                     <DEAD TEMP46>
1477                     <RESTL PHRASE31 1 = PHRASE31 (TYPE LIST)>
1478                     <PUTREST TEMP43 PHRASE31>
1479                     <DEAD PHRASE31>
1480                     <JUMP + PHRASE69>
1481 PHRASE48
1482                     <EMPL? EXPR32 - PHRASE50 (TYPE SEGMENT)>
1483                     <FRAME '\1aFORM>
1484                     <PUSH PRED8>
1485                     <PUSH .OB>
1486                     <CALL '\1aFORM 2 = TEMP46>
1487                     <CONS TEMP46 () = TEMP43>
1488                     <DEAD TEMP46>
1489                     <RESTL PHRASE31 1 = PHRASE31 (TYPE LIST)>
1490                     <PUTREST TEMP43 PHRASE31>
1491                     <DEAD PHRASE31>
1492                     <JUMP + PHRASE69>
1493 PHRASE50
1494                     <NTHL EXPR32 1 = TEMP46>
1495                     <EQUAL? TEMP46 'QUOTE - PHRASE52>
1496                     <DEAD TEMP46>
1497                     <RESTL EXPR32 1 = TEMP46 (TYPE LIST)>
1498                     <CHTYPE TEMP46 <TYPE-CODE LIST> = TEMP46>
1499                     <EMPL? TEMP46 + BOOL55 (TYPE LIST)>
1500                     <DEAD TEMP46>
1501                     <FRAME '\1aSTRUCTURED?>
1502                     <RESTL EXPR32 1 = TEMP46 (TYPE LIST)>
1503                     <NTHL TEMP46 1 = STACK>
1504                     <DEAD TEMP46>
1505                     <CALL '\1aSTRUCTURED? 1 = TEMP46>
1506                     <VEQUAL? TEMP46 0 - PHRASE54>
1507                     <DEAD TEMP46>
1508 BOOL55
1509                     <FRAME '\1aERROR>
1510                     <PUSH 'ILLEGAL-SEGMENT!-ERRORS>
1511                     <PUSH 'CASE>
1512                     <CALL '\1aERROR 2 = TEMP43>
1513                     <JUMP + PHRASE69>
1514 PHRASE54
1515                     <FRAME '\1aDO-SEG>
1516                     <PUSH PRED8>
1517                     <SET TEMP61 0 (TYPE FIX)>
1518                     <RESTL EXPR32 1 = EXPR32 (TYPE LIST)>
1519                     <NTHL EXPR32 1 = EXPR32>
1520                     <TYPE EXPR32 = TEMP62>
1521                     <AND TEMP62 7 = TEMP62>
1522                     <VEQUAL? TEMP62 1 + TAG63>
1523                     <DEAD TEMP62>
1524                     <LOOP (EXPR32 TYPE VALUE LENGTH) (TEMP61 VALUE)>
1525 TAG68
1526                     <INTGO>
1527                     <EMPTY? EXPR32 + TAG67>
1528                     <NTH1 EXPR32 = STACK>
1529                     <REST1 EXPR32 = EXPR32>
1530                     <ADD TEMP61 1 = TEMP61 (TYPE FIX)>
1531                     <JUMP + TAG68>
1532 TAG67
1533                     <DEAD EXPR32>
1534                     <LIST TEMP61 = STACK (TYPE LIST)>
1535                     <DEAD TEMP61>
1536                     <JUMP + TAG64>
1537 TAG63
1538                     <LOOP>
1539 TAG66
1540                     <VEQUAL? TEMP61 0 + TAG65>
1541                     <POP = TEMP62>
1542                     <CONS TEMP62 EXPR32 = EXPR32 (TYPE LIST)>
1543                     <DEAD TEMP62>
1544                     <SUB TEMP61 1 = TEMP61 (TYPE FIX)>
1545                     <JUMP + TAG66>
1546 TAG65
1547                     <DEAD TEMP61>
1548                     <PUSH EXPR32>
1549                     <DEAD EXPR32>
1550 TAG64
1551                     <CALL '\1aDO-SEG 2 = EXPR32>
1552                     <CONS EXPR32 () = TEMP43>
1553                     <DEAD EXPR32>
1554                     <RESTL PHRASE31 1 = PHRASE31 (TYPE LIST)>
1555                     <PUTREST TEMP43 PHRASE31>
1556                     <DEAD PHRASE31>
1557                     <JUMP + PHRASE69>
1558 PHRASE52
1559                     <FRAME '\1aFORM>
1560                     <PUSH PRED8>
1561                     <PUSH .OB>
1562                     <PUSH EXPR32>
1563                     <DEAD EXPR32>
1564                     <CALL '\1aFORM 3 = TEMP46>
1565                     <CONS TEMP46 () = TEMP43>
1566                     <DEAD TEMP46>
1567                     <RESTL PHRASE31 1 = PHRASE31 (TYPE LIST)>
1568                     <PUTREST TEMP43 PHRASE31>
1569                     <DEAD PHRASE31>
1570 PHRASE69
1571                     <CONS TEMP43 () = TEMP43 (TYPE LIST)>
1572                     <EMPL? TEMP29 - TAG71>
1573                     <SET TEMP29 TEMP43 (TYPE LIST)>
1574                     <JUMP + TAG72>
1575 TAG71
1576                     <PUTREST TEMP27 TEMP43>
1577                     <DEAD TEMP27>
1578 TAG72
1579                     <SET TEMP27 TEMP43 (TYPE LIST)>
1580                     <DEAD TEMP43>
1581 MAP22
1582                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1583                     <JUMP + MAP21>
1584 MAPAP24
1585                     <DEAD PRED8 TEMP26 TEMP27>
1586                     <LOOP (TEMP29 VALUE) (TEMP19 VALUE)>
1587 TAG73
1588                     <INTGO>
1589                     <EMPL? TEMP29 + TAG18>
1590                     <NTHL TEMP29 1 = STACK>
1591                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
1592                     <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
1593                     <JUMP + TAG73>
1594 TAG18
1595                     <DEAD TEMP29>
1596                     <LOOP (DEFAULT-CASE11 VALUE) (TEMP19 VALUE)>
1597 TAG75
1598                     <INTGO>
1599                     <EMPL? DEFAULT-CASE11 + TAG74>
1600                     <NTHL DEFAULT-CASE11 1 = STACK>
1601                     <RESTL DEFAULT-CASE11 1 = DEFAULT-CASE11 (TYPE LIST)>
1602                     <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
1603                     <JUMP + TAG75>
1604 TAG74
1605                     <DEAD DEFAULT-CASE11>
1606                     <CALL '\1aFORM TEMP19 = STACK>
1607                     <DEAD TEMP19>
1608                     <CALL '\1aFORM 3 = TEMP19>
1609                     <RETURN TEMP19>
1610                     <DEAD TEMP19>
1611                     <END>
1612
1613 <COND (<GASSIGNED? CASE> <SETG CASE <CHTYPE (,CASE) MACRO>>)> <GFCN \1aDO-SEG (
1614 "VALUE" FORM ANY LIST) PRED5 OPS6>
1615                     <TEMP TEMP10 TEMP21 TEMP19 #ADECL [TEMP18 LIST] X23 TEMP25
1616 >
1617                     <INTGO>
1618                     <EQUAL? PRED5 'TYPE? + BOOL9>
1619                     <EQUAL? PRED5 'PRIMTYPE? + BOOL9>
1620                     <EMPL? OPS6 - PHRASE8 (TYPE LIST)>
1621 BOOL9
1622                     <CONS .OB OPS6 = TEMP10>
1623                     <CONS PRED5 TEMP10 = TEMP10>
1624                     <CHTYPE TEMP10 <TYPE-CODE FORM> = TEMP10>
1625                     <RETURN TEMP10>
1626                     <DEAD TEMP10>
1627 PHRASE8
1628                     <SET TEMP21 () (TYPE LIST)>
1629                     <SET TEMP19 () (TYPE LIST)>
1630                     <LOOP>
1631 MAP13
1632                     <INTGO>
1633                     <EMPL? OPS6 + MAPAP16>
1634                     <NTHL OPS6 1 = X23>
1635                     <FRAME '\1aFORM>
1636                     <PUSH PRED5>
1637                     <PUSH .OB>
1638                     <PUSH X23>
1639                     <DEAD X23>
1640                     <CALL '\1aFORM 3 = TEMP25>
1641                     <CONS TEMP25 () = TEMP25 (TYPE LIST)>
1642                     <EMPL? TEMP21 - TAG26>
1643                     <SET TEMP21 TEMP25 (TYPE LIST)>
1644                     <JUMP + TAG27>
1645 TAG26
1646                     <PUTREST TEMP19 TEMP25>
1647                     <DEAD TEMP19>
1648 TAG27
1649                     <SET TEMP19 TEMP25 (TYPE LIST)>
1650                     <DEAD TEMP25>
1651                     <RESTL OPS6 1 = OPS6 (TYPE LIST)>
1652                     <JUMP + MAP13>
1653 MAPAP16
1654                     <DEAD OPS6 PRED5 TEMP19>
1655                     <CONS 'OR TEMP21 = TEMP21>
1656                     <CHTYPE TEMP21 <TYPE-CODE FORM> = TEMP21>
1657                     <RETURN TEMP21>
1658                     <DEAD TEMP21>
1659                     <END>
1660
1661 \\f
1662                     <GFCN \1aINC ("VALUE" FORM "QUOTE" ANY "OPTIONAL" "QUOTE"
1663 ANY) ATM8 AMT9>
1664                     <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
1665 OPT6
1666                     <PUSH 1>
1667 OPT7
1668                     <TEMP #ADECL [TEMP13 FORM]>
1669                     <INTGO>
1670                     <FRAME '\1aFORM>
1671                     <PUSH 'SET>
1672                     <PUSH ATM8>
1673                     <FRAME '\1aFORM>
1674                     <PUSH '+>
1675                     <FRAME '\1aFORM>
1676                     <PUSH 'LVAL>
1677                     <PUSH ATM8>
1678                     <DEAD ATM8>
1679                     <CALL '\1aFORM 2 = STACK>
1680                     <PUSH AMT9>
1681                     <DEAD AMT9>
1682                     <CALL '\1aFORM 3 = STACK>
1683                     <CALL '\1aFORM 3 = TEMP13>
1684                     <RETURN TEMP13>
1685                     <DEAD TEMP13>
1686                     <END>
1687
1688 <COND (<GASSIGNED? INC> <SETG INC <CHTYPE (,INC) MACRO>>)> <GFCN \1aDEC ("VALUE"
1689 FORM "QUOTE" ANY "OPTIONAL" "QUOTE" ANY) ATM8 AMT9>
1690                     <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
1691 OPT6
1692                     <PUSH 1>
1693 OPT7
1694                     <TEMP #ADECL [TEMP13 FORM]>
1695                     <INTGO>
1696                     <FRAME '\1aFORM>
1697                     <PUSH 'SET>
1698                     <PUSH ATM8>
1699                     <FRAME '\1aFORM>
1700                     <PUSH '->
1701                     <FRAME '\1aFORM>
1702                     <PUSH 'LVAL>
1703                     <PUSH ATM8>
1704                     <DEAD ATM8>
1705                     <CALL '\1aFORM 2 = STACK>
1706                     <PUSH AMT9>
1707                     <DEAD AMT9>
1708                     <CALL '\1aFORM 3 = STACK>
1709                     <CALL '\1aFORM 3 = TEMP13>
1710                     <RETURN TEMP13>
1711                     <DEAD TEMP13>
1712                     <END>
1713
1714 <COND (<GASSIGNED? DEC> <SETG DEC <CHTYPE (,DEC) MACRO>>)> <GFCN \1aCHOP (
1715 "VALUE" FORM "QUOTE" ANY "OPTIONAL" "QUOTE" ANY) ATM8 AMT9>
1716                     <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
1717 OPT6
1718                     <PUSH 1>
1719 OPT7
1720                     <TEMP #ADECL [TEMP13 FORM]>
1721                     <INTGO>
1722                     <FRAME '\1aFORM>
1723                     <PUSH 'SET>
1724                     <PUSH ATM8>
1725                     <FRAME '\1aFORM>
1726                     <PUSH 'REST>
1727                     <FRAME '\1aFORM>
1728                     <PUSH 'LVAL>
1729                     <PUSH ATM8>
1730                     <DEAD ATM8>
1731                     <CALL '\1aFORM 2 = STACK>
1732                     <PUSH AMT9>
1733                     <DEAD AMT9>
1734                     <CALL '\1aFORM 3 = STACK>
1735                     <CALL '\1aFORM 3 = TEMP13>
1736                     <RETURN TEMP13>
1737                     <DEAD TEMP13>
1738                     <END>
1739
1740 <COND (<GASSIGNED? CHOP> <SETG CHOP <CHTYPE (,CHOP) MACRO>>)> <GFCN \1aIF (
1741 "VALUE" FORM "ARGS" ANY) BODY8>
1742                     <OPT-DISPATCH 0 #FALSE () OPT6 OPT7>
1743 OPT6
1744                     <PUSH ()>
1745 OPT7
1746                     <TEMP #ADECL [TEMP10 FORM]>
1747                     <INTGO>
1748                     <FRAME '\1aFORM>
1749                     <PUSH 'COND>
1750                     <PUSH BODY8>
1751                     <DEAD BODY8>
1752                     <CALL '\1aFORM 2 = TEMP10>
1753                     <RETURN TEMP10>
1754                     <DEAD TEMP10>
1755                     <END>
1756
1757 <COND (<GASSIGNED? IF> <SETG IF <CHTYPE (,IF) MACRO>>)> <GFCN \1aIF-NOT ("VALUE"
1758 FORM "QUOTE" ANY "ARGS" ANY) PRED8 BODY9>
1759                     <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
1760 OPT6
1761                     <PUSH ()>
1762 OPT7
1763                     <TEMP TEMP12>
1764                     <INTGO>
1765                     <FRAME '\1aFORM>
1766                     <PUSH 'COND>
1767                     <FRAME '\1aFORM>
1768                     <PUSH 'NOT>
1769                     <PUSH PRED8>
1770                     <DEAD PRED8>
1771                     <CALL '\1aFORM 2 = TEMP12>
1772                     <CONS TEMP12 () = TEMP12>
1773                     <PUTREST TEMP12 BODY9>
1774                     <DEAD BODY9>
1775                     <PUSH TEMP12>
1776                     <DEAD TEMP12>
1777                     <CALL '\1aFORM 2 = TEMP12>
1778                     <RETURN TEMP12>
1779                     <DEAD TEMP12>
1780                     <END>
1781
1782 <COND (<GASSIGNED? IF-NOT> <SETG IF-NOT <CHTYPE (,IF-NOT) MACRO>>)> <GFCN \1a
1783 PRIMTYPE? ("VALUE" ANY "QUOTE" ANY "ARGS" LIST) EXPR8 BODY9>
1784                     <OPT-DISPATCH 1 #FALSE () OPT6 OPT7>
1785 OPT6
1786                     <PUSH ()>
1787 OPT7
1788                     <TEMP TEMP13 TEMP15 TEMP21 TEMP30 X32 TEMP34>
1789                     <INTGO>
1790                     <EMPL? BODY9 - PHRASE11 (TYPE LIST)>
1791                     <FRAME '\1aERROR>
1792                     <PUSH 'TOO-FEW-ARGUMENTS-SUPPLIED!-ERRORS>
1793                     <PUSH 'PRIMTYPE?>
1794                     <CALL '\1aERROR 2 = TEMP13>
1795                     <RETURN TEMP13>
1796                     <DEAD TEMP13>
1797 PHRASE11
1798                     <RESTL BODY9 1 = TEMP15 (TYPE LIST)>
1799                     <EMPL? TEMP15 - PHRASE14 (TYPE LIST)>
1800                     <DEAD TEMP15>
1801                     <FRAME '\1aFORM>
1802                     <PUSH '==?>
1803                     <FRAME '\1aFORM>
1804                     <PUSH 'PRIMTYPE>
1805                     <PUSH EXPR8>
1806                     <CALL '\1aFORM 2 = STACK>
1807                     <NTHL BODY9 1 = STACK>
1808                     <CALL '\1aFORM 3 = TEMP13>
1809                     <RETURN TEMP13>
1810                     <DEAD TEMP13>
1811 PHRASE14
1812                     <FRAME '\1aFORM>
1813                     <PUSH 'PROG>
1814                     <CONS 'OB () = TEMP15>
1815                     <FRAME '\1aFORM>
1816                     <PUSH 'PRIMTYPE>
1817                     <PUSH EXPR8>
1818                     <DEAD EXPR8>
1819                     <CALL '\1aFORM 2 = TEMP21>
1820                     <CONS TEMP21 () = TEMP21>
1821                     <PUTREST TEMP15 TEMP21>
1822                     <DEAD TEMP21>
1823                     <CONS TEMP15 () = STACK>
1824                     <DEAD TEMP15>
1825                     <PUSH #DECL ((OB) ATOM (VALUE) <OR FALSE ATOM>)>
1826                     <FRAME '\1aFORM>
1827                     <PUSH 'COND>
1828                     <SET TEMP30 () (TYPE LIST)>
1829                     <SET TEMP21 () (TYPE LIST)>
1830                     <SET TEMP15 BODY9 (TYPE LIST)>
1831                     <DEAD BODY9>
1832                     <LOOP>
1833 MAP24
1834                     <INTGO>
1835                     <EMPL? TEMP15 + MAPAP27>
1836                     <NTHL TEMP15 1 = X32>
1837                     <FRAME '\1aFORM>
1838                     <PUSH '==?>
1839                     <PUSH .OB>
1840                     <PUSH X32>
1841                     <DEAD X32>
1842                     <CALL '\1aFORM 3 = TEMP34>
1843                     <CONS TEMP34 () = TEMP34 (TYPE LIST)>
1844                     <EMPL? TEMP30 - TAG35>
1845                     <SET TEMP30 TEMP34 (TYPE LIST)>
1846                     <JUMP + TAG36>
1847 TAG35
1848                     <PUTREST TEMP21 TEMP34>
1849                     <DEAD TEMP21>
1850 TAG36
1851                     <SET TEMP21 TEMP34 (TYPE LIST)>
1852                     <DEAD TEMP34>
1853                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1854                     <JUMP + MAP24>
1855 MAPAP27
1856                     <DEAD TEMP15 TEMP21>
1857                     <CONS 'OR TEMP30 = TEMP30>
1858                     <CHTYPE TEMP30 <TYPE-CODE FORM> = TEMP30>
1859                     <CONS TEMP30 () = TEMP30>
1860                     <CONS .OB () = TEMP34>
1861                     <PUTREST TEMP30 TEMP34>
1862                     <DEAD TEMP34>
1863                     <PUSH TEMP30>
1864                     <DEAD TEMP30>
1865                     <CALL '\1aFORM 2 = STACK>
1866                     <CALL '\1aFORM 4 = TEMP13>
1867                     <RETURN TEMP13>
1868                     <DEAD TEMP13>
1869                     <END>
1870
1871 <COND (<GASSIGNED? PRIMTYPE?> <SETG PRIMTYPE? <CHTYPE (,PRIMTYPE?) MACRO>>)>
1872 <ENDPACKAGE>