anchor.diff:              ;; • -e → í
   
               )
  -           ((and (= 2 declension)	; 2♀
  +           ((and (= 2 declension) ; 2♀
                    (eq :f gender))
  -            (strcat string 
  -                    (if (irish-broad-ending-p string) 
  +            (strcat string
  +                    (if (irish-broad-ending-p string)
                           "a"
                           "e")))
   
  -           ((and (not multi-syllabic)	; 1♂,2♀,3♂,4* — (1-syl)
  +           ((and (not multi-syllabic) ; 1♂,2♀,3♂,4* — (1-syl)
                    (or (and (eq :m gender)
                             (= 1 declension)
                             (not (irish-broad-ending-p string)))
  
positive.code:             (vowels (subseq ,word last-vowels-start (1+ last-vowel)))
              (ending (subseq ,word last-vowels-start)))
         (flet ((replace-vowels (replacement)
                  (strcat (subseq ,word 0 last-vowels-start) replacement 
                          (subseq ,word (1+ last-vowel))))
                (replace-ending (replacement)
                  (strcat (subseq ,word 0 last-vowels-start) replacement))
                (add-after-vowels (addition)
                  (strcat (subseq ,word 0 (1+ last-vowel)) addition 
                          (subseq ,word (1+ last-vowel)))))
           ,@body))))
  
  
negative.code:              (and first-vowel-pos
                    (or (find first-vowel "āōēūī" :test #'char=)
                        (and (find first-vowel "aoeui")
                             (or (and (< (1+ first-vowel-pos) (length syllable))
                                      (find (elt syllable (1+ first-vowel-pos))
                                            "aoeuiy"))
                                 (and (< (+ 2 first-vowel-pos) (length syllable))
                                      (find (elt syllable (+ 2 first-vowel-pos))
                                            "aoeuiy")
                                      (not (eql #\w (elt syllable (1+ first-vowel-pos))))
  