37d2a6b3aaf0

--- a/src/chancery.lisp	Thu Jan 12 22:37:47 2017 +0000
+++ b/src/chancery.lisp	Thu Jan 12 22:39:04 2017 +0000
@@ -182,13 +182,6 @@
     ((#\z #\h) (cat (chop string 1) "es"))
     (t (cat string "s"))))
 
-(defun ing (string)
-  "Add ing to `string`."
-  (assert-nonempty string "Cannot add ing to an empty string.")
-  (if (eql #\e (ch string -1))
-    (cat (chop string 1) "ing")
-    (cat string "ing")))
-
 (defun pos (string)
   "Make `string` posessive by adding an apostrophe (and possibly an s)."
   (assert-nonempty string "Cannot make an empty string posessive.")