Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
99 lines (77 sloc) 2.45 KB


A common lisp library to easily pluralize and singularize English words.

This is a port of the ruby ActiveSupport Inflector module


Hopefully eventually: > (ql:quickload 'cl-inflector)


Example Usage:

> (use-package :cl-inflector)
> (let ((dollars 1.7)
        (users 34)
        (purchases 1))
       (format nil "The site has ~D ~A, with a total of ~D ~A and $~D ~A"  
               users (pluralize users "user") 
               purchases (pluralize purchases "purchase") 
               dollars (pluralize dollars "dollar")))
"The site has 34 users, with a total of 1 purchase and $1.7 dollars"

Basic Usage, plural-of and singular-of:

> (plural-of "octopus") 
> (plural-of "datum")
> (singular-of "children")
> (singular-of "cats")
> (singular-of "data")

Basic Usage, pluralize:

> (pluralize 2 "octopus")
> (pluralize 1 "octopus")

You can pass in the default plural to be used. If not, the inflector is used to determine the plural.

> (pluralize 2 "tooth" "teeth")
> (pluralize 2 "tooth")

Use irregular to add an irregular:

> (singular-of "feet")
> (irregular "foot" "feet")
> (singular-of "feet")
> (plural-of "foot")

Use uncountable to add an uncountable:

> (plural-of "advice")
> (singular-of "advice")
> (singular-of "advices")
> (uncountable "advice")
> (plural-of "advice")


Released under the MIT license, please see LICENSE for more details


  • This was originally a support package for the Vana web framework
  • Xach - For quicklisp, really made getting back into CL much easier.
  • Siebel - For PCL, which has been a great reference.