anchor.diff:    "Pathname Entry -> nil
   After deleting the old pages in the Entry, parse the file and for each language, write the appropriate page. Update the entry to reflect this."
     (delete-old-pages entry)
  -  (let* ((*environment* (merge-environments
  -			 (parse-page (merge-pathnames file *content-dir*))
  -			 *environment*)))
  +  (let ((*environment* (merge-environments
  +			(parse-page (merge-pathnames file *content-dir*))
  +			*environment*)))
       (iter (for lang in (getf *environment* :languages))
  -	  (let ((*environment* (merge-environments (list :lang lang
  -							 :current-file (namestring file))
  -						   *environment*)))
  +	  (let ((*environment* (merge-environments
  +				(list :lang lang
  +				      :current-file (namestring file))
  +				*environment*)))
   	    (write-page (merge-pathnames (getf (content-entry-pages entry) lang)
   					 *site-dir*))))
       (setf (content-entry-needs-update entry) nil
  
positive.code:   (iter (for (lang file) on (content-entry-old-pages entry) by #'cddr)
  	(when-let ((file (file-exists-p (merge-pathnames file *site-dir*))))
  	  (delete-file (merge-pathnames file *site-dir*)))))
  
  (defun remove-empty-directories (dir)
    "Pathname -> nil
  
negative.code: 		 :configs configs
  		 :pages (get-page-paths file (add-slugs (get-file-slugs file) dir-slugs))
  		 :old-pages (when entry
  			      (content-entry-old-pages entry))))
  	  (when (not entry)
  	    (push relative-path *new-pages*)))
  	(when-let ((dependencies (get-data :depends)))
  	  (push (cons entry dependencies) *dependants*)))))
  
  