anchor.diff:                                                   (second book))))
              (:hr)
              ((:div :class "other_translations")
  -                 ,@(translation-indexes)))))
  +            ,@(translation-indexes)))))
   
   (defun create-indexes ()
     (let ((index-file) )
  
positive.code:        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)))
  
  (defun create-index-file (tr)
    `(:html (:head
  
negative.code:       (setq extracted-path (chapter-path "extracted" b)
              try-path (chapter-path "try" b ".html"))
        (with-open-file (in-stream extracted-path)
          (setq extracted (read in-stream)))
        (ensure-directories-exist try-path)
        (with-open-file (out-stream try-path
                                    :direction :output
  