Remove failed ing attempt
author |
Steve Losh <steve@stevelosh.com> |
date |
Thu, 12 Jan 2017 22:39:04 +0000 |
parents |
b42ffb104159
|
children |
9a223fdf9928
|
branches/tags |
(none) |
files |
src/chancery.lisp |
Changes
--- 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.")