anchor.diff:  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")))
  +           (cl-ppcre: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"))
  +    (dolist (i (uiop:directory-files *src-path*))
  +      (let ((out-path (cond ((cl-ppcre:scan "/Index\\.html$" (namestring i))
  +                             (merge-pathnames "Indecies.html" *dst-path*))
  +                            ((cl-ppcre:scan (format nil "~a$" *index-name*) (namestring i))
  +                             (merge-pathnames "index.html" *dst-path*))
                               (t
  -                             (merge-pathnames-as-file *dst-path* (file-namestring i)))))
  +                             (merge-pathnames (file-namestring i) *dst-path*))))
               (src (replace-link-to-index (read-file-into-string i))))
  -        (write-string-into-file src out-path :if-exists :supersede)))))
  +        (alexandria: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"))
  +  (let* ((in-path (merge-pathnames "index.html" *dst-path*))
            (index (read-file-into-string in-path)))
       (multiple-value-bind (begin end)
           (scan-menu-list index)
  
positive.code: 
  (defun scan-href (tag)
    "Pick up an href value of <A> tag."
    (register-groups-bind (tag)
        ("href=\"([^\"#]*)#.*\"" tag)
      tag))
  
  
negative.code:           (let* ((menu (subseq index begin end))
                   (chapter-list (iterate-on "<li>" #'scan-href menu)))
              (dolist (c chapter-list)
                (let ((in-path (merge-pathnames c *dst-path*))
                      (out-path (merge-pathnames c *dst-path*)))
                  (alexandria:write-string-into-file (replace-menu in-path)
                                                     out-path :if-exists :supersede)
                  (format t "Converting Ch. ~27a=> ~54a (~7d bytes)~%"
                          (cl-ppcre:regex-replace "\.html" c "") out-path (file-size out-path)))))))))
  
  (defun main (args)
    "args must include pathname of an index HTML file."
  