anchor.diff:        (with-open-file (stream saved :direction :output )
           (format stream "'~S" (walk-tree (print-parsed b)))))))
   
  +(defun translation-data (code)
  +  (loop for tr in *translations*
  +     when (equalp code (car tr))
  +     return  tr))
  +
   (defun create-html  (extracted preklad kniha kapitola)
     `(:html (:head
              ((:META :HTTP-EQUIV "Content-Type"
  
positive.code:                          preklad
                           kniha
                           kapitola))
             ,(eval extracted))
            (:hr))
    )
  
  (defun try-extracted ()
    (let ((extracted-path) (try-path) (extracted) (preklad) (kniha) (kapitola))
  
negative.code:       (with-open-file (in-stream extracted-path)
          (setq extracted (read in-stream))) ;todo
        (ensure-directories-exist try-path)
        (with-open-file (out-stream try-path :direction :output  :if-exists :supersede)
          (lml2:html-print
           (create-html extracted preklad kniha kapitola)
           out-stream)))))
  