anchor.diff:        (format o "(~%~{ ~s~%~})~%" dict))
       dict))
   
  -
  -
  -
   (defun update-project (template-dir locale-dir)
  -  " update a djula project informing the template directory and the directory
  -holding the cl-locale dictionary files"
  +  "update a djula project informing the template directory and the directory
  +of subdirectories holding the cl-locale dictionary files"
     (let ((strings (directory-translate-strings template-dir :recurse t)))
       (dolist (dir (uiop:subdirectories locale-dir))
         (let ((message-file (merge-pathnames "message.lisp" dir)))
  
positive.code: (defun string-translate-strings (string)
    "given a djula html template string, find all the substrings to be translated"
    (remove-duplicates
     (loop for l in (parse-template-string string)
           for x = (first l)
           for y = (trim-whitespace (second l))
           when (and (eq x :unparsed-translation)
                     (string-string-p y))
             collect (read-from-string y))
     :test #'string=))
  
  (defun file-template-translate-strings (file)
  
negative.code:    #'string-lessp))
  
  
  (defun locale-list (message-file translate-strings)
    "return an augmented dictionary of a cl-locale message file with the translate strings.
   Does not update the file."
  