anchor.diff:                (push (cons s "") dictionary)))
             #'string-lessp
             :key #'car)))
  -
  -
   
   
   (defun alter-pathname (pathname &rest options)
  
positive.code:       (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"
    (let ((strings (directory-translate-strings template-dir :recurse t)))
      (dolist (dir (uiop:subdirectories locale-dir))
        (let ((message-file (merge-pathnames "message.lisp" dir)))
  
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."
  