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:                       ("genus" "genera") ("campus" "campuses")
                        ("viscus" "viscera") ("virus" "viruses")
                        ("opus" "opera") ("corpus" "corpera")
                        ("cherub" "cherubim")
                        ("person" "people") ; contentious, but usually right
                        ("seraph" "seraphim") ("kibbutz" "kibbutzim")
                        ("inuk" "inuit") ("inukshuk" "inukshuit")
                        ("Iqalummiuq" "Iqalummiut")
                        ("Nunavimmiuq" "Nunavimmiut")
                        ("Nunavummiuq" "Nunavummiut")
                        ("aide-de-camp" "aides-de-camp"))
     do (setf (gethash s english-irregular-plurals) pl)
  