anchor.diff:      (loop
          while (parse-state-tokens *parse-state*)
          do (push (parse-statement) result))
  -    result))
  +    (reverse result)))
   
   (defun parse-statement ()
     (cond ((tokenp :punctuation "{")
  
positive.code:                  (parse-assignment expr)
                   expr)))))
  
  (defun tokenp (expected-type expected-content)
    (let ((token (current-token)))
      (when token
        (let ((type (token-type token))
  
negative.code: 
  (defun parse-assignment (lhs)
    (with-new-anchored-parse-tree (parse-tree-start-pos lhs) :set!
      (consume-token :punctuation "=")
      (list lhs (parse-expression))))
  
  ;; Precedence table:
  