anchor.diff:                   (space-end (if space-regex
                                   (+ (space-regex 1) (space-regex 2))
                                 0))
  -                 (arg-pos (regex " +([^)])|( *(\\(|\\[))" 
  +                 (arg-pos (regex " +([^)])|( *(\\(|\\[))"
                                    (slice substr space-end))))
               (if arg-pos
                   (set 'arg-pos (-- (+ 1 leading-spaces (+ (arg-pos 1) (arg-pos 2)))))
  
positive.code:             (set 'arg-pos 1))
            (if (regex "^[\t ]*(;|$|\r)" (slice substr first-space))
                (list (+ *default-indent* leading-spaces) leading-spaces)
              (list arg-pos leading-spaces))))))) ;; Return 
  
  
  (define (pop-from-list bracket lst fname line real-pos offset)
  
negative.code:                        (letn ((arg-pos (find-first-arg-pos offset curr-line))
                                (first-arg-pos (first arg-pos))
                                (leading-spaces (arg-pos 1))
                                (func-name
                                 (lower-case (strip (slice substr 0 (- first-arg-pos 1)) ")]\t\n\r ")))
                                (in-list-literal? nil))
                           (when (regex "('|`|#)([ \t]*\\(|\\[)($|\r)" (slice curr-line 0 (+ offset 1)))
  