parser.lisp

   1
   2 ";; Automatically generated (mostly) by LALR-PARSER-GENERATOR."
   3 (IN-PACKAGE "M68K-ASSEMBLER")
   4 (FLET ((UNMASH (ENTRIES)
   5          (LET ((HT (MAKE-HASH-TABLE)))
   6            (DOLIST (E ENTRIES)
   7              (SETF (GETHASH (CAR E)
   8                             HT)
   9                      (CDR E)))
  10            HT)))
  11   (LET ((TABLE
  12          (UNMASH
  13           '(($
  14              . #(NIL (ACCEPT) (REDUCE LINE 1)
  15                  (REDUCE LINE 1) (REDUCE LABEL 1) (REDUCE OPERATION 1)
  16                  (REDUCE OPERATION 1) (REDUCE LINE 2) (REDUCE LINE 2)
  17                  (REDUCE OPERANDS 1) (REDUCE OPERAND 1) (REDUCE OPERAND 1)
  18                  (REDUCE OPERAND 1) (REDUCE OPERAND 1) (REDUCE ABSOLUTE 1)
  19                  (REDUCE INDIRECT 1) (REDUCE INDIRECT 1) (REDUCE INDIRECT 1)
  20                  (REDUCE INDIRECT 1) NIL (REDUCE REGISTER-LIST 1)
  21                  (REDUCE EXPRESSION 1) NIL (REDUCE UNARY-OPERATOR 1)
  22                  (REDUCE TERM2 1) (REDUCE TERM 1) (REDUCE FACTOR 1) NIL
  23                  (REDUCE VALUE 1) (REDUCE VALUE 1) (REDUCE UNARY-OPERATOR 1)
  24                  (REDUCE LABEL 2) (REDUCE LINE 3) NIL NIL NIL NIL
  25                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1)
  26                  (REDUCE IMMEDIATE 2) NIL (REDUCE UNARY-OPERATOR 1) NIL NIL
  27                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
  28                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
  29                  (REDUCE BITWISE-OPERATOR 1) NIL NIL NIL NIL
  30                  (REDUCE MULTIPLYING-OPERATOR 1)
  31                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2)
  32                  (REDUCE OPERANDS 3) (REDUCE REGISTER-LIST 3)
  33                  (REDUCE EXPRESSION 3) NIL (REDUCE REGISTER-LIST 3)
  34                  (REDUCE TERM2 3) (REDUCE DISPLACEMENT-INDIRECT 3) NIL
  35                  (REDUCE FACTOR 3) NIL (REDUCE TERM 3)
  36                  (REDUCE DISPLACEMENT-INDIRECT 4) NIL
  37                  (REDUCE POSTINCREMENT-INDIRECT 4) NIL
  38                  (REDUCE PREDECREMENT-INDIRECT 4) NIL
  39                  (REDUCE INDEXED-INDIRECT 5) (REDUCE INDEXED-INDIRECT 6)))
  40             (LINE
  41              . #((GOTO 1) NIL NIL NIL NIL NIL NIL NIL
  42                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  43                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  44                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  45                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  46                  NIL NIL NIL NIL NIL NIL NIL))
  47             (LABEL
  48              . #((GOTO 2) NIL NIL NIL NIL NIL NIL NIL
  49                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  50                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  51                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  52                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  53                  NIL NIL NIL NIL NIL NIL NIL))
  54             (OPERATION
  55              . #((GOTO 3) NIL
  56                  (GOTO 7) NIL NIL NIL NIL NIL NIL NIL
  57                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  58                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  59                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  60                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  61                  NIL NIL NIL NIL NIL))
  62             (OPCODE
  63              . #((SHIFT 5) NIL
  64                  (SHIFT 5) NIL (REDUCE LABEL 1) NIL NIL
  65                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  66                  NIL NIL NIL NIL NIL NIL NIL NIL NIL (REDUCE LABEL 2) NIL NIL
  67                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  68                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  69                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
  70             (PSEUDO-OP
  71              . #((SHIFT 6) NIL
  72                  (SHIFT 6) NIL (REDUCE LABEL 1) NIL NIL
  73                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  74                  NIL NIL NIL NIL NIL NIL NIL NIL NIL (REDUCE LABEL 2) NIL NIL
  75                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  76                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  77                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
  78             (COLON
  79              . #(NIL NIL NIL NIL (SHIFT 31) NIL NIL NIL
  80                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  81                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  82                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  83                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  84                  NIL NIL NIL NIL NIL NIL NIL))
  85             (OPERANDS
  86              . #(NIL NIL NIL (GOTO 8) NIL NIL NIL
  87                  (GOTO 32) NIL NIL NIL NIL NIL NIL NIL
  88                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  89                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  90                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  91                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
  92             (OPERAND
  93              . #(NIL NIL NIL (GOTO 9) NIL NIL NIL
  94                  (GOTO 9) NIL NIL NIL NIL NIL NIL NIL
  95                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  96                  NIL NIL NIL (GOTO 56) NIL NIL NIL NIL
  97                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  98                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  99                  NIL NIL NIL NIL NIL NIL NIL))
 100             (ABSOLUTE
 101              . #(NIL NIL NIL (GOTO 10) NIL NIL NIL
 102                  (GOTO 10) NIL NIL NIL NIL NIL NIL NIL
 103                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 104                  NIL NIL NIL (GOTO 10) NIL NIL NIL NIL
 105                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 106                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 107                  NIL NIL NIL NIL NIL NIL NIL))
 108             (INDIRECT
 109              . #(NIL NIL NIL (GOTO 11) NIL NIL NIL
 110                  (GOTO 11) NIL NIL NIL NIL NIL NIL NIL
 111                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 112                  NIL NIL NIL (GOTO 11) NIL NIL NIL NIL
 113                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 114                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 115                  NIL NIL NIL NIL NIL NIL NIL))
 116             (IMMEDIATE
 117              . #(NIL NIL NIL (GOTO 12) NIL NIL NIL
 118                  (GOTO 12) NIL NIL NIL NIL NIL NIL NIL
 119                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 120                  NIL NIL NIL (GOTO 12) NIL NIL NIL NIL
 121                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 122                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 123                  NIL NIL NIL NIL NIL NIL NIL))
 124             (DISPLACEMENT-INDIRECT
 125              . #(NIL NIL NIL (GOTO 15) NIL NIL NIL
 126                  (GOTO 15) NIL NIL NIL NIL NIL NIL NIL
 127                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 128                  NIL NIL NIL (GOTO 15) NIL NIL NIL NIL
 129                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 130                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 131                  NIL NIL NIL NIL NIL NIL NIL))
 132             (POSTINCREMENT-INDIRECT
 133              . #(NIL NIL NIL (GOTO 16) NIL NIL NIL
 134                  (GOTO 16) NIL NIL NIL NIL NIL NIL NIL
 135                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 136                  NIL NIL NIL (GOTO 16) NIL NIL NIL NIL
 137                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 138                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 139                  NIL NIL NIL NIL NIL NIL NIL))
 140             (PREDECREMENT-INDIRECT
 141              . #(NIL NIL NIL (GOTO 17) NIL NIL NIL
 142                  (GOTO 17) NIL NIL NIL NIL NIL NIL NIL
 143                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 144                  NIL NIL NIL (GOTO 17) NIL NIL NIL NIL
 145                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 146                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 147                  NIL NIL NIL NIL NIL NIL NIL))
 148             (INDEXED-INDIRECT
 149              . #(NIL NIL NIL (GOTO 18) NIL NIL NIL
 150                  (GOTO 18) NIL NIL NIL NIL NIL NIL NIL
 151                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 152                  NIL NIL NIL (GOTO 18) NIL NIL NIL NIL
 153                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 154                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 155                  NIL NIL NIL NIL NIL NIL NIL))
 156             (HASH
 157              . #(NIL NIL NIL (SHIFT 19) NIL
 158                  (REDUCE OPERATION 1) (REDUCE OPERATION 1)
 159                  (SHIFT 19) NIL NIL NIL NIL NIL NIL NIL
 160                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 161                  NIL NIL NIL (SHIFT 19) NIL NIL NIL NIL
 162                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 163                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 164                  NIL NIL NIL NIL NIL NIL NIL))
 165             (REGISTER-LIST
 166              . #(NIL NIL NIL (GOTO 13) NIL NIL NIL
 167                  (GOTO 13) NIL NIL NIL NIL NIL NIL NIL
 168                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 169                  NIL NIL NIL (GOTO 13)
 170                  (GOTO 57) NIL NIL NIL NIL NIL NIL NIL
 171                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 172                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 173                  NIL NIL NIL))
 174             (EXPRESSION
 175              . #(NIL NIL NIL (GOTO 14) NIL NIL NIL
 176                  (GOTO 14) NIL NIL NIL NIL NIL NIL NIL
 177                  NIL NIL NIL NIL (GOTO 39) NIL NIL
 178                  (GOTO 50) NIL NIL NIL NIL NIL NIL NIL
 179                  NIL NIL NIL (GOTO 14) NIL NIL NIL NIL
 180                  NIL NIL (GOTO 50) NIL NIL NIL NIL NIL
 181                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 182                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
 183             (TERM2
 184              . #(NIL NIL NIL (GOTO 21) NIL NIL NIL
 185                  (GOTO 21) NIL NIL NIL NIL NIL NIL NIL
 186                  NIL NIL NIL NIL (GOTO 21) NIL NIL
 187                  (GOTO 21) NIL NIL NIL NIL NIL NIL NIL
 188                  NIL NIL NIL (GOTO 21) NIL
 189                  (GOTO 58) NIL NIL NIL NIL
 190                  (GOTO 21) NIL NIL NIL NIL NIL NIL NIL
 191                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 192                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
 193             (TERM
 194              . #(NIL NIL NIL (GOTO 24) NIL NIL NIL
 195                  (GOTO 24) NIL NIL NIL NIL NIL NIL NIL
 196                  NIL NIL NIL NIL (GOTO 24) NIL NIL
 197                  (GOTO 24) NIL NIL NIL NIL NIL NIL NIL
 198                  NIL NIL NIL (GOTO 24) NIL
 199                  (GOTO 24) NIL NIL NIL NIL
 200                  (GOTO 24) NIL NIL
 201                  (GOTO 61) NIL NIL NIL NIL NIL NIL NIL
 202                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 203                  NIL NIL NIL NIL NIL NIL NIL NIL NIL))
 204             (ADDING-OPERATOR
 205              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 206                  (GOTO 35) NIL NIL NIL NIL NIL NIL NIL
 207                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 208                  NIL NIL (GOTO 35) NIL NIL NIL NIL NIL
 209                  NIL NIL NIL NIL NIL (GOTO 35) NIL NIL
 210                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 211                  NIL NIL NIL NIL NIL NIL NIL))
 212             (FACTOR
 213              . #(NIL NIL NIL (GOTO 25) NIL NIL NIL
 214                  (GOTO 25) NIL NIL NIL NIL NIL NIL NIL
 215                  NIL NIL NIL NIL (GOTO 25) NIL NIL
 216                  (GOTO 25) NIL NIL NIL NIL NIL NIL NIL
 217                  NIL NIL NIL (GOTO 25) NIL
 218                  (GOTO 25) NIL NIL NIL NIL
 219                  (GOTO 25) NIL NIL
 220                  (GOTO 25) NIL NIL NIL NIL NIL NIL NIL
 221                  NIL (GOTO 66) NIL NIL NIL NIL NIL NIL
 222                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 223                  NIL))
 224             (VALUE
 225              . #(NIL NIL NIL (GOTO 26) NIL NIL NIL
 226                  (GOTO 26) NIL NIL NIL NIL NIL NIL NIL
 227                  NIL NIL NIL NIL (GOTO 26) NIL NIL
 228                  (GOTO 26) NIL NIL NIL NIL
 229                  (GOTO 55) NIL NIL NIL NIL NIL
 230                  (GOTO 26) NIL
 231                  (GOTO 26) NIL NIL NIL NIL
 232                  (GOTO 26) NIL NIL
 233                  (GOTO 26) NIL NIL NIL NIL NIL NIL NIL
 234                  NIL (GOTO 26) NIL NIL NIL NIL NIL NIL
 235                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 236                  NIL))
 237             (UNARY-OPERATOR
 238              . #(NIL NIL NIL (GOTO 27) NIL NIL NIL
 239                  (GOTO 27) NIL NIL NIL NIL NIL NIL NIL
 240                  NIL NIL NIL NIL (GOTO 27) NIL NIL
 241                  (GOTO 27) NIL NIL NIL NIL NIL NIL NIL
 242                  NIL NIL NIL (GOTO 27) NIL
 243                  (GOTO 27) NIL NIL NIL NIL
 244                  (GOTO 27) NIL NIL
 245                  (GOTO 27) NIL NIL NIL NIL NIL NIL NIL
 246                  NIL (GOTO 27) NIL NIL NIL NIL NIL NIL
 247                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 248                  NIL))
 249             (OPEN
 250              . #(NIL NIL NIL (SHIFT 22) NIL
 251                  (REDUCE OPERATION 1) (REDUCE OPERATION 1)
 252                  (SHIFT 22) NIL NIL NIL NIL NIL NIL
 253                  (SHIFT 36) NIL NIL NIL NIL
 254                  (SHIFT 40) NIL (REDUCE EXPRESSION 1)
 255                  (SHIFT 40)
 256                  (SHIFT 51) (REDUCE TERM2 1)
 257                  (REDUCE TERM 1) (REDUCE FACTOR 1) NIL (REDUCE VALUE 1)
 258                  (REDUCE VALUE 1) (REDUCE UNARY-OPERATOR 1) NIL NIL
 259                  (SHIFT 22) NIL
 260                  (SHIFT 40) NIL
 261                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL
 262                  (SHIFT 40) (REDUCE UNARY-OPERATOR 1)
 263                  NIL (SHIFT 40)
 264                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 265                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 266                  (REDUCE BITWISE-OPERATOR 1) NIL NIL NIL
 267                  (SHIFT 40)
 268                  (REDUCE MULTIPLYING-OPERATOR 1)
 269                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL NIL
 270                  (REDUCE EXPRESSION 3) NIL NIL (REDUCE TERM2 3) NIL NIL
 271                  (REDUCE FACTOR 3) NIL (REDUCE TERM 3) NIL NIL NIL NIL NIL NIL
 272                  NIL NIL))
 273             (CONSTANT
 274              . #(NIL NIL NIL (SHIFT 28) NIL
 275                  (REDUCE OPERATION 1) (REDUCE OPERATION 1)
 276                  (SHIFT 28) NIL NIL NIL NIL NIL NIL NIL
 277                  NIL NIL NIL NIL (SHIFT 28) NIL NIL
 278                  (SHIFT 28) (REDUCE UNARY-OPERATOR 1)
 279                  NIL NIL NIL (SHIFT 28) NIL NIL
 280                  (REDUCE UNARY-OPERATOR 1) NIL NIL
 281                  (SHIFT 28) NIL
 282                  (SHIFT 28) NIL
 283                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL
 284                  (SHIFT 28) (REDUCE UNARY-OPERATOR 1)
 285                  NIL (SHIFT 28)
 286                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 287                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 288                  (REDUCE BITWISE-OPERATOR 1) NIL NIL NIL
 289                  (SHIFT 28)
 290                  (REDUCE MULTIPLYING-OPERATOR 1)
 291                  (REDUCE MULTIPLYING-OPERATOR 1) NIL NIL NIL NIL NIL NIL NIL
 292                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
 293             (SYMBOL
 294              . #((SHIFT 4) NIL NIL
 295                  (SHIFT 29) NIL (REDUCE OPERATION 1)
 296                  (REDUCE OPERATION 1) (SHIFT 29) NIL NIL
 297                  NIL NIL NIL NIL NIL NIL NIL NIL NIL
 298                  (SHIFT 29) NIL NIL
 299                  (SHIFT 29) (REDUCE UNARY-OPERATOR 1)
 300                  NIL NIL NIL (SHIFT 29) NIL NIL
 301                  (REDUCE UNARY-OPERATOR 1) NIL NIL
 302                  (SHIFT 29) NIL
 303                  (SHIFT 29) NIL
 304                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL
 305                  (SHIFT 29) (REDUCE UNARY-OPERATOR 1)
 306                  NIL (SHIFT 29)
 307                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 308                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 309                  (REDUCE BITWISE-OPERATOR 1) NIL NIL NIL
 310                  (SHIFT 29)
 311                  (REDUCE MULTIPLYING-OPERATOR 1)
 312                  (REDUCE MULTIPLYING-OPERATOR 1) NIL NIL NIL NIL NIL NIL NIL
 313                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
 314             (~
 315              . #(NIL NIL NIL (SHIFT 30) NIL
 316                  (REDUCE OPERATION 1) (REDUCE OPERATION 1)
 317                  (SHIFT 30) NIL NIL NIL NIL NIL NIL NIL
 318                  NIL NIL NIL NIL (SHIFT 30) NIL NIL
 319                  (SHIFT 30) NIL NIL NIL NIL NIL NIL NIL
 320                  NIL NIL NIL (SHIFT 30) NIL
 321                  (SHIFT 30) NIL
 322                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL
 323                  (SHIFT 30) NIL NIL
 324                  (SHIFT 30) (REDUCE BITWISE-OPERATOR 1)
 325                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 326                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1) NIL
 327                  NIL NIL (SHIFT 30)
 328                  (REDUCE MULTIPLYING-OPERATOR 1)
 329                  (REDUCE MULTIPLYING-OPERATOR 1) NIL NIL NIL NIL NIL NIL NIL
 330                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
 331             (-
 332              . #(NIL NIL NIL (SHIFT 23) NIL
 333                  (REDUCE OPERATION 1) (REDUCE OPERATION 1)
 334                  (SHIFT 23) NIL NIL NIL NIL NIL NIL
 335                  (SHIFT 38) NIL NIL NIL NIL
 336                  (SHIFT 41)
 337                  (SHIFT 42) (REDUCE EXPRESSION 1)
 338                  (SHIFT 41) (REDUCE UNARY-OPERATOR 1)
 339                  (REDUCE TERM2 1) (REDUCE TERM 1) (REDUCE FACTOR 1) NIL
 340                  (REDUCE VALUE 1) (REDUCE VALUE 1) (REDUCE UNARY-OPERATOR 1)
 341                  NIL NIL (SHIFT 23) NIL
 342                  (SHIFT 41) NIL
 343                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1)
 344                  (SHIFT 38)
 345                  (SHIFT 41) (REDUCE UNARY-OPERATOR 1)
 346                  NIL (SHIFT 41)
 347                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 348                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 349                  (REDUCE BITWISE-OPERATOR 1) NIL
 350                  (SHIFT 38) NIL
 351                  (SHIFT 41)
 352                  (REDUCE MULTIPLYING-OPERATOR 1)
 353                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL NIL
 354                  (REDUCE EXPRESSION 3) NIL NIL (REDUCE TERM2 3) NIL NIL
 355                  (REDUCE FACTOR 3) NIL (REDUCE TERM 3) NIL NIL NIL NIL NIL NIL
 356                  NIL NIL))
 357             (BITWISE-OPERATOR
 358              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 359                  NIL NIL NIL NIL NIL NIL (GOTO 43) NIL
 360                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 361                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 362                  NIL NIL NIL NIL NIL (GOTO 43) NIL NIL
 363                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
 364             (<<
 365              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 366                  NIL NIL NIL NIL NIL NIL (SHIFT 44) NIL
 367                  (REDUCE UNARY-OPERATOR 1) (REDUCE TERM2 1) (REDUCE TERM 1)
 368                  (REDUCE FACTOR 1) NIL (REDUCE VALUE 1) (REDUCE VALUE 1)
 369                  (REDUCE UNARY-OPERATOR 1) NIL NIL NIL NIL NIL NIL
 370                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL NIL
 371                  (REDUCE UNARY-OPERATOR 1) NIL NIL (REDUCE BITWISE-OPERATOR 1)
 372                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 373                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1) NIL
 374                  NIL NIL NIL (REDUCE MULTIPLYING-OPERATOR 1)
 375                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL NIL
 376                  (SHIFT 44) NIL NIL (REDUCE TERM2 3) NIL
 377                  NIL (REDUCE FACTOR 3) NIL (REDUCE TERM 3) NIL NIL NIL NIL NIL
 378                  NIL NIL NIL))
 379             (>>
 380              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 381                  NIL NIL NIL NIL NIL NIL (SHIFT 45) NIL
 382                  (REDUCE UNARY-OPERATOR 1) (REDUCE TERM2 1) (REDUCE TERM 1)
 383                  (REDUCE FACTOR 1) NIL (REDUCE VALUE 1) (REDUCE VALUE 1)
 384                  (REDUCE UNARY-OPERATOR 1) NIL NIL NIL NIL NIL NIL
 385                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL NIL
 386                  (REDUCE UNARY-OPERATOR 1) NIL NIL (REDUCE BITWISE-OPERATOR 1)
 387                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 388                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1) NIL
 389                  NIL NIL NIL (REDUCE MULTIPLYING-OPERATOR 1)
 390                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL NIL
 391                  (SHIFT 45) NIL NIL (REDUCE TERM2 3) NIL
 392                  NIL (REDUCE FACTOR 3) NIL (REDUCE TERM 3) NIL NIL NIL NIL NIL
 393                  NIL NIL NIL))
 394             (^
 395              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 396                  NIL NIL NIL NIL NIL NIL (SHIFT 46) NIL
 397                  (REDUCE UNARY-OPERATOR 1) (REDUCE TERM2 1) (REDUCE TERM 1)
 398                  (REDUCE FACTOR 1) NIL (REDUCE VALUE 1) (REDUCE VALUE 1)
 399                  (REDUCE UNARY-OPERATOR 1) NIL NIL NIL NIL NIL NIL
 400                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL NIL
 401                  (REDUCE UNARY-OPERATOR 1) NIL NIL (REDUCE BITWISE-OPERATOR 1)
 402                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 403                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1) NIL
 404                  NIL NIL NIL (REDUCE MULTIPLYING-OPERATOR 1)
 405                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL NIL
 406                  (SHIFT 46) NIL NIL (REDUCE TERM2 3) NIL
 407                  NIL (REDUCE FACTOR 3) NIL (REDUCE TERM 3) NIL NIL NIL NIL NIL
 408                  NIL NIL NIL))
 409             (OR
 410              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 411                  NIL NIL NIL NIL NIL NIL (SHIFT 47) NIL
 412                  (REDUCE UNARY-OPERATOR 1) (REDUCE TERM2 1) (REDUCE TERM 1)
 413                  (REDUCE FACTOR 1) NIL (REDUCE VALUE 1) (REDUCE VALUE 1)
 414                  (REDUCE UNARY-OPERATOR 1) NIL NIL NIL NIL NIL NIL
 415                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL NIL
 416                  (REDUCE UNARY-OPERATOR 1) NIL NIL (REDUCE BITWISE-OPERATOR 1)
 417                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 418                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1) NIL
 419                  NIL NIL NIL (REDUCE MULTIPLYING-OPERATOR 1)
 420                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL NIL
 421                  (SHIFT 47) NIL NIL (REDUCE TERM2 3) NIL
 422                  NIL (REDUCE FACTOR 3) NIL (REDUCE TERM 3) NIL NIL NIL NIL NIL
 423                  NIL NIL NIL))
 424             (&
 425              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 426                  NIL NIL NIL NIL NIL NIL (SHIFT 48) NIL
 427                  (REDUCE UNARY-OPERATOR 1) (REDUCE TERM2 1) (REDUCE TERM 1)
 428                  (REDUCE FACTOR 1) NIL (REDUCE VALUE 1) (REDUCE VALUE 1)
 429                  (REDUCE UNARY-OPERATOR 1) NIL NIL NIL NIL NIL NIL
 430                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL NIL
 431                  (REDUCE UNARY-OPERATOR 1) NIL NIL (REDUCE BITWISE-OPERATOR 1)
 432                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 433                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1) NIL
 434                  NIL NIL NIL (REDUCE MULTIPLYING-OPERATOR 1)
 435                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL NIL
 436                  (SHIFT 48) NIL NIL (REDUCE TERM2 3) NIL
 437                  NIL (REDUCE FACTOR 3) NIL (REDUCE TERM 3) NIL NIL NIL NIL NIL
 438                  NIL NIL NIL))
 439             (COMMA
 440              . #(NIL NIL NIL NIL NIL NIL NIL NIL
 441                  (SHIFT 33) (REDUCE OPERANDS 1)
 442                  (REDUCE OPERAND 1) (REDUCE OPERAND 1) (REDUCE OPERAND 1)
 443                  (REDUCE OPERAND 1) (REDUCE ABSOLUTE 1) (REDUCE INDIRECT 1)
 444                  (REDUCE INDIRECT 1) (REDUCE INDIRECT 1) (REDUCE INDIRECT 1)
 445                  NIL (REDUCE REGISTER-LIST 1) (REDUCE EXPRESSION 1) NIL
 446                  (REDUCE UNARY-OPERATOR 1) (REDUCE TERM2 1) (REDUCE TERM 1)
 447                  (REDUCE FACTOR 1) NIL (REDUCE VALUE 1) (REDUCE VALUE 1)
 448                  (REDUCE UNARY-OPERATOR 1) NIL
 449                  (SHIFT 33) NIL NIL NIL NIL
 450                  (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1)
 451                  (REDUCE IMMEDIATE 2) NIL (REDUCE UNARY-OPERATOR 1) NIL NIL
 452                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 453                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 454                  (REDUCE BITWISE-OPERATOR 1) (SHIFT 63)
 455                  NIL NIL NIL (REDUCE MULTIPLYING-OPERATOR 1)
 456                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2)
 457                  (REDUCE OPERANDS 3) (REDUCE REGISTER-LIST 3)
 458                  (REDUCE EXPRESSION 3) (SHIFT 68)
 459                  (REDUCE REGISTER-LIST 3) (REDUCE TERM2 3)
 460                  (REDUCE DISPLACEMENT-INDIRECT 3) NIL (REDUCE FACTOR 3) NIL
 461                  (REDUCE TERM 3) (REDUCE DISPLACEMENT-INDIRECT 4) NIL
 462                  (REDUCE POSTINCREMENT-INDIRECT 4) NIL
 463                  (REDUCE PREDECREMENT-INDIRECT 4) NIL
 464                  (REDUCE INDEXED-INDIRECT 5) (REDUCE INDEXED-INDIRECT 6)))
 465             (MULTIPLYING-OPERATOR
 466              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 467                  NIL NIL NIL NIL NIL NIL NIL NIL NIL
 468                  (GOTO 52) NIL NIL NIL NIL NIL NIL NIL
 469                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 470                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 471                  (GOTO 52) NIL NIL NIL NIL NIL NIL NIL
 472                  NIL NIL NIL NIL NIL NIL))
 473             (*
 474              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 475                  NIL NIL NIL NIL NIL NIL (REDUCE EXPRESSION 1) NIL
 476                  (REDUCE UNARY-OPERATOR 1) (SHIFT 53)
 477                  (REDUCE TERM 1) (REDUCE FACTOR 1) NIL (REDUCE VALUE 1)
 478                  (REDUCE VALUE 1) (REDUCE UNARY-OPERATOR 1) NIL NIL NIL NIL NIL
 479                  NIL (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL
 480                  NIL (REDUCE UNARY-OPERATOR 1) NIL NIL
 481                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 482                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 483                  (REDUCE BITWISE-OPERATOR 1) NIL NIL NIL NIL
 484                  (REDUCE MULTIPLYING-OPERATOR 1)
 485                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL NIL
 486                  (REDUCE EXPRESSION 3) NIL NIL
 487                  (SHIFT 53) NIL NIL (REDUCE FACTOR 3)
 488                  NIL (REDUCE TERM 3) NIL NIL NIL NIL NIL NIL NIL NIL))
 489             (/
 490              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 491                  (SHIFT 34) NIL NIL NIL NIL NIL NIL
 492                  (REDUCE REGISTER-LIST 1) (REDUCE EXPRESSION 1) NIL
 493                  (REDUCE UNARY-OPERATOR 1) (SHIFT 54)
 494                  (REDUCE TERM 1) (REDUCE FACTOR 1) NIL (REDUCE VALUE 1)
 495                  (REDUCE VALUE 1) (REDUCE UNARY-OPERATOR 1) NIL NIL NIL NIL NIL
 496                  NIL (REDUCE ADDING-OPERATOR 1) (REDUCE ADDING-OPERATOR 1) NIL
 497                  NIL (REDUCE UNARY-OPERATOR 1) NIL NIL
 498                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 499                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 500                  (REDUCE BITWISE-OPERATOR 1) NIL NIL NIL NIL
 501                  (REDUCE MULTIPLYING-OPERATOR 1)
 502                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL
 503                  (SHIFT 34) (REDUCE EXPRESSION 3) NIL
 504                  (REDUCE REGISTER-LIST 3) (SHIFT 54) NIL
 505                  NIL (REDUCE FACTOR 3) NIL (REDUCE TERM 3) NIL NIL NIL NIL NIL
 506                  NIL NIL NIL))
 507             (+
 508              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 509                  (SHIFT 37) NIL NIL NIL NIL NIL NIL
 510                  (REDUCE EXPRESSION 1) NIL (REDUCE UNARY-OPERATOR 1)
 511                  (REDUCE TERM2 1) (REDUCE TERM 1) (REDUCE FACTOR 1) NIL
 512                  (REDUCE VALUE 1) (REDUCE VALUE 1) (REDUCE UNARY-OPERATOR 1)
 513                  NIL NIL NIL NIL NIL NIL (REDUCE ADDING-OPERATOR 1)
 514                  (REDUCE ADDING-OPERATOR 1) (SHIFT 37)
 515                  NIL (REDUCE UNARY-OPERATOR 1) NIL NIL
 516                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 517                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 518                  (REDUCE BITWISE-OPERATOR 1) NIL
 519                  (SHIFT 37) NIL NIL
 520                  (REDUCE MULTIPLYING-OPERATOR 1)
 521                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL NIL
 522                  (REDUCE EXPRESSION 3) NIL NIL (REDUCE TERM2 3)
 523                  (SHIFT 69) NIL (REDUCE FACTOR 3) NIL
 524                  (REDUCE TERM 3) NIL NIL NIL NIL NIL NIL NIL NIL))
 525             (REGISTER
 526              . #(NIL NIL NIL (SHIFT 20) NIL
 527                  (REDUCE OPERATION 1) (REDUCE OPERATION 1)
 528                  (SHIFT 20) NIL NIL NIL NIL NIL NIL NIL
 529                  NIL NIL NIL NIL NIL NIL NIL (SHIFT 49)
 530                  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 531                  (SHIFT 20)
 532                  (SHIFT 20) NIL
 533                  (SHIFT 59) NIL NIL NIL NIL NIL
 534                  (SHIFT 60) NIL NIL NIL NIL NIL NIL NIL
 535                  NIL (SHIFT 65) NIL NIL NIL NIL NIL NIL
 536                  NIL NIL NIL NIL NIL (SHIFT 70) NIL NIL
 537                  NIL NIL (SHIFT 72) NIL NIL NIL NIL NIL
 538                  NIL))
 539             (CLOSE
 540              . #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
 541                  NIL NIL NIL NIL NIL NIL (REDUCE EXPRESSION 1) NIL NIL
 542                  (REDUCE TERM2 1) (REDUCE TERM 1) (REDUCE FACTOR 1) NIL
 543                  (REDUCE VALUE 1) (REDUCE VALUE 1) (REDUCE UNARY-OPERATOR 1)
 544                  NIL NIL NIL NIL NIL NIL (REDUCE ADDING-OPERATOR 1)
 545                  (REDUCE ADDING-OPERATOR 1) NIL NIL (REDUCE UNARY-OPERATOR 1)
 546                  NIL NIL (REDUCE BITWISE-OPERATOR 1)
 547                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 548                  (REDUCE BITWISE-OPERATOR 1) (REDUCE BITWISE-OPERATOR 1)
 549                  (SHIFT 62)
 550                  (SHIFT 64) NIL NIL
 551                  (REDUCE MULTIPLYING-OPERATOR 1)
 552                  (REDUCE MULTIPLYING-OPERATOR 1) (REDUCE FACTOR 2) NIL NIL
 553                  (REDUCE EXPRESSION 3) (SHIFT 67) NIL
 554                  (REDUCE TERM2 3) NIL NIL (REDUCE FACTOR 3)
 555                  (SHIFT 71) (REDUCE TERM 3) NIL NIL NIL
 556                  (SHIFT 73) NIL
 557                  (SHIFT 74) NIL NIL))))))
 558     (DEFUN PARSE (NEXT-TOKEN)
 559       "NEXT-TOKEN is a function which returns a cons of the next token in
 560 the input (the CAR being the symbol name, the CDR being any
 561 information the lexer would like to preserve), and advances the input
 562 one token.  Returns what might pass for a parse tree in some
 563 countries."
 564       (DO* ((STACK (LIST 0))
 565             (TOKEN (FUNCALL
 566                                            NEXT-TOKEN))
 567             (RESULT-STACK NIL)
 568             (ROW (GETHASH
 569                                          (CAR TOKEN)
 570                                          TABLE)
 571                                         (GETHASH
 572                                          (CAR TOKEN)
 573                                          TABLE)))
 574            (NIL)
 575         (UNLESS ROW
 576           (ERROR "~A is not a valid token in this grammar."
 577                  TOKEN))
 578         (LET ((ACTION
 579                (AREF ROW
 580                      (FIRST STACK))))
 581           (CASE (FIRST ACTION)
 582             (SHIFT
 583              (PUSH TOKEN
 584                    RESULT-STACK)
 585              (SETF TOKEN
 586                      (FUNCALL NEXT-TOKEN))
 587              (PUSH (SECOND ACTION)
 588                    STACK))
 589             (REDUCE
 590              (PUSH (LIST (SECOND ACTION))
 591                    RESULT-STACK)
 592              (DOTIMES
 593                  (I
 594                   (THIRD ACTION))
 595                (POP STACK)
 596                (PUSH (POP (CDR RESULT-STACK))
 597                      (CDAR RESULT-STACK)))
 598              (DESTRUCTURING-BIND
 599                  (GOTO STATE)
 600                  (AREF
 601                   (GETHASH (SECOND ACTION)
 602                            TABLE)
 603                   (FIRST STACK))
 604                (ASSERT
 605                 (EQL GOTO 'GOTO)
 606                 (STATE)
 607                 "Malformed parse table!")
 608                (PUSH STATE
 609                      STACK)))
 610             (ACCEPT
 611              (RETURN (CAR RESULT-STACK)))
 612             (T (ERROR "Parse error at ~A" TOKEN))))))))