anchor.diff:     #'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."
  
positive.code:               (push (cons s "") dictionary)))
            #'string-lessp
            :key #'car)))
  
  
  
  
  (defun alter-pathname (pathname &rest options)
  
negative.code: (defun string-translate-strings (string)
    "given a djula html template string, find all the substrings to be translated"
    (remove-duplicates
     (let ((*read-eval* nil))
       (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)
  