anchor.diff:  (defmacro defun-lang (function (&rest lambda-list) &body bodies)
     (let ((underlying (intern (concatenate 'string (string function) "%"))))
       (let ((implemented (mapcar #'car bodies)))
  -      (unless (every (lambda (language) (member language implemented)) 
  +      (unless (every (lambda (language) (member language implemented))
                        (mapcar #'car +language-names+))
           (warn "Defining ƒ ~A with partial language support: ~{~{~%  • ~5A: ~20A ~:[ ✗ ~; ✓ ~]~}~}"
  -              function 
  +              function
                 (mapcar (lambda (language)
                           (list (car language)
                                 (third language)
                                 (member (car language) implemented)))
                         +language-names+))))
  -    `(progn 
  +    `(progn
          (defgeneric ,underlying (language ,@lambda-list)
            ,@(mapcar (lambda (body)
                        (let ((match (car body))
  
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: 
            do (setf last-vowel-p vowelp)
  
            finally (return (max 1
                                 (if (and (char= char #\e)
                                          (not last-vowel-p))
                                     (1- counter)
                                     counter)))))
    (:es (loop
            with counter = 0
            with last-i-p = nil
  
            for char across (string-downcase string)
            for vowelp = (member char '(#\a #\o #\e #\u #\i))
  
            when (or (and vowelp
                          (not last-i-p))
                     (member char '(#\á #\ó #\é #\ú #\í)))
            do (incf counter)
  
            do (setf last-i-p (eql char #\i))
  
            finally (return (max 1 counter))))
  
    (:la (loop
            with counter = 0
  
            for char across (latin-normalize string)
            when (member char '(#\a #\o #\e #\u #\i))
            do (incf counter)
  
            when (member char '(#\ā #\ē #\ī #\ō #\ū))
            do (incf counter 2)
  
            finally (return (max 1 counter))))
  
    (:ga (loop
            with counter = 0
            with last-vowel-p = nil
  
  