anchor.diff:         collecting (format nil "<a href=\"index_~a.html\">~a</a>" (string-downcase tc) tc))))
   
   (defun index-links (tr1 b c)
  -(loop for x from 1 to c
  -   collect (format nil "<a href=\"~a/~a/~a.html\"> ~A </a> " tr1 b x x)))
  +  (loop for x from 1 to c
  +     collect (format nil "<a href=\"~a/~a/~a.html\"> ~A </a> " tr1 b x x)))
   
   (defun create-index-file (tr)
     `(:html (:head
  
positive.code:                 (ensure-directories-exist downloaded-page)
                  (format t "~s ~s ~s  " translation-code book-code chapter)
                  (with-open-file (stream downloaded-page :direction :output)
                    (format stream "~a" (download translation-code book-code chapter)))
                  )
             ))))
  
negative.code:                                                  (second book))))
             (:hr)
             ((:div :class "other_translations")
              ,@(translation-indexes)))))
  
  (defun create-indexes ()
    (let ((index-file) )
  