anchor.diff:  
   (define-test (test_trim_adjacent_function_and_argument_opening_bracket)
     (assert=
  -   (string-trim! "(print(+ 1 1))")
  -   "(print (+ 1 1))"))
  +   "(print (+ 1 1))"
  +   (string-trim! "(print(+ 1 1))")))
   
   (define-test (test_trim_space_between_succeeding_closing_brackets)
     (assert=
  
positive.code:      " en este mundo\n")))
  
  (define-test (test_is_macro_name_newlisp_macros)
   (letn ((macro-list
           '("define-test"
             "define-macro")))
    (dolist (func-name macro-list)
     (assert= (is-macro-name? func-name "newLISP") true))))
  
  (define-test (test_is_macro_name_scheme_macros)
   (letn ((macro-list
           '()))
    (dolist (func-name macro-list)
     (assert= (is-macro-name? func-name "Scheme") true))))
  
  (define-test (test_is_macro_name_clojure_macros)
   (letn ((macro-list
           '("defmacro")))
    (dolist (func-name macro-list)
     (assert= (is-macro-name? func-name "Clojure") true))))
  
  (define-test (test_is_macro_name_lisp_macros)
   (letn ((macro-list
           '("defmacro"
             "define-macro"
             "defstruct")))
    (dolist (func-name macro-list)
     (assert= (is-macro-name? func-name "Common Lisp") true))))
  
  (UnitTest:run-all 'MAIN)
  (exit)
  
negative.code:    12))
  
  (define-test (test_find_trim_limit_literal_double_quote)
    (let (code "(list #\\; #\\| #\\\")")
      (assert=
       (find-trim-limit code)
       (length code))))
  
  (define-test (test_find_trim_limit_double_and_single_quote)
    (assert=
  