anchor.diff:                         (when (or (not (find prev-char '(" " "\t" ""))) (not (regex "^[ \t]*(;|#\\||$|\r)" curr-line)))
                            (++ ((first bracket-locations) *spaces*)))
                          (when (= 2 ((first bracket-locations) *spaces*))
  -                         (unless *uniform* 
  +                         (unless *uniform*
                              (-- ((first bracket-locations) *indent-level*))
                              (-- ((first bracket-locations) *indent-level*))
                              (setf ((first bracket-locations) *spaces*) 999)))))))))
  
positive.code: (define (lisp-dialect lst)
    "Tells the Lisp dialect specified from the list provided, usually
    command line arguments. Defaults to all if non is specified"
    (or (catch 
          (dolist (arg lst)
            (case arg
              ("--clojure" (throw "Clojure"))
  
negative.code:                    (when (regex "\\[/text\\]" (slice curr-line offset 7))
                       (set 'in-newlisp-tag-string? nil)
                       (set 'first-tag-string '())))
                   (set 'in-symbol-region? (or in-newlisp-tag-string? in-string? (not-zero? in-comment?) in-symbol-with-space?
                                               (not-zero? in-newlisp-string?)))
                   (when (not in-symbol-region?)
                     (let ((real-position (- (+ (- offset zero-level) ((regex "^[ \t]*" line) 2))
  