anchor.diff:  
   (is (clir->mlw '(@ > b (the int 1)))
       "b > 1"
  -    "A binary infix function is properly transformed.")
  +    "A binary infix function is properly transformed")
   
   (is (clir->mlw '(@ > a b c d))
       "a > b > c > d"
  -    "A binary infix function with multiple parameters is also properly handled.")
  +    "A binary infix function with multiple parameters is also properly handled")
   
   
   (finalize)
  
positive.code:      | True -> 4
       | False -> 5
      end"
      "A let with a case is transformed into a let with a match."
      :test #'equal-ignore-whitespace)
  
  (defun test/constructor/true ()
  
negative.code:         (tstr2 (replace-all-whitespace str2)))
      (string-equal tstr1 tstr2)))
  
  (subtest "The ignoring-whitespace comparing functions used through this test work as intended."
    (plan 4)
    (ok (equal-ignore-whitespace " a  a " "a a")
        "Ignore spaces before and after the text, as well two spaces to one")
    (ok (equal-ignore-whitespace " a a
  " "a a")
        "Ignore newlines in the end")
    (ok (not (equal-ignore-whitespace " a  a " "aa"))
        "Do not treat the same two symbols with NO space between them")
    (ok (not (equal-ignore-whitespace "a" "b"))
        "Treat different symbols differently")
    (finalize)
  )
  
  