anchor.diff:  
   (defun changelog-file (folder file system)
     (declare (ignore folder))
  -  (djula:render-template*
  -   (gethash "changelog" *templates*) nil
  +  (render "changelog"
      :name (ql-dist:name system)
      :version (system-version system)
      :author (getf file :author)
  
positive.code: (dolist (file '("control" "changelog" "compat" "copyright" "rules" "install"))
    (setf (gethash file *templates*) (djula:compile-template* file)))
  
  (defun control-file (folder file system)
    (declare (ignore folder))
    (djula:render-template*
     (gethash "control" *templates*) nil
     :name (ql-dist:name system)
     :author (getf file :author)
     :short-description (getf file :description)
  
negative.code: 
  (defun compat-file (folder file system)
    (declare (ignore folder file system))
    (render "compat"))
  
  (defun copyright-file (folder file system)
    (declare (ignore folder system))
    (render "copyright"
     :mit-license (cl-ppcre:scan "(?i)^mit license$" (getf file :license))))
  
  (defun rules-file (folder file system)
    (declare (ignore folder file system))
    (render "rules"))
  
  (defun install-file (folder file system)
    (declare (ignore file))
    (render "install"
     :lines (format-lines system folder)))
  
  (defun format-lines (system folder)
  