anchor.diff:  
   (defun set-params (index-path)
     "Set up global parameters."
  -  (setf *src-path* (pathname-directory-pathname index-path))
  -  (setf *dst-path* (pathname-as-directory
  +  (setf *src-path* (uiop:pathname-directory-pathname index-path))
  +  (setf *dst-path* (uiop:ensure-directory-pathname
                       (format nil "~a.formatted"
  -                                 (subseq index-path 0 (1- (length (namestring *src-path*)))))))
  +                            (subseq index-path 0 (1- (length (namestring *src-path*)))))))
     (setf *index-name* (file-namestring index-path)))
   
   (defun copy-all-files ()
  
positive.code: because this name is conflicting with 'index.html'. Besides, *index-name* is also renamed to 'index.html'.
  This can be safely done, becase 'Index.html' is renamed to another name beforehand and no conflics are occured. "
    (flet ((replace-link-to-index (src)
             (regex-replace-all "([/\"])Index\\.html" src "\\1Indecies.html")))
      (format t "Making a directory ~a~%" *dst-path*)
      (ensure-directories-exist *dst-path*)
      (format t "Copying files from ~a to ~a~%" *src-path* *dst-path*)
      (dolist (i (list-directory *src-path*))
        (let ((out-path (cond ((scan "/Index\\.html$" (namestring i))
                               (merge-pathnames-as-file *dst-path* "Indecies.html"))
                              ((scan (format nil "~a$" *index-name*) (namestring i))
                               (merge-pathnames-as-file *dst-path* "index.html"))
                              (t
                               (merge-pathnames-as-file *dst-path* (file-namestring i)))))
              (src (replace-link-to-index (read-file-into-string i))))
          (write-string-into-file src out-path :if-exists :supersede)))))
  
  (defun flatten-sections-on-chapters ()
    "Flatten sections which has an <A> tag on each chapter document."
    (let* ((in-path (merge-pathnames-as-file *dst-path* "index.html"))
           (index (read-file-into-string in-path)))
      (multiple-value-bind (begin end)
          (scan-menu-list index)
  
negative.code:                 :scan
                  :register-groups-bind
                  :regex-replace
                  :regex-replace-all))
  
  (in-package :dpans)
  
  