anchor.diff:      ("rlet1"                          t   t   2)
       ("unwind-protect"                 t   t   1)
       ("with-ports"                     t   t   3)
  -    ;; part 3
  +
  +    ;; == part 3 ==
       ("and-let*"                       t   t   "let")
       ("begin0"                         t   t   0)
       ("call-with-client-socket"        t   t   1)
  
positive.code:     ("raise"                          t   t   nil)
      ("map"                            t   t   nil)
      ("for-each"                       t   t   nil)
      ("case-lambda"                    t   t   nil)
      ("er-macro-transformer"           t   t   nil)
      ;; part 1
      ("begin"                          t   t   0)
      ("case"                           t   t   (4 &rest (&whole 2 &rest 1)))
      ("define"                         t   t   1)
  
negative.code:     ("syntax-case"                    t   t   2)
      ("with-input-from-file"           t   t   1)
      ("with-output-to-file"            t   t   1)
  
      ;; == part 2 ==
      ("define-class"                   t   t   2)
      ("define-condition-type"          t   t   3)
      ("define-constant"                t   t   1)
  