Shortage is a url shortener written in Common Lisp. You can see demo here
CL-USER> (ql:quickload :shortage)
CL-USER> (defvar db-params '("database" "user" "password" "host"))
CL-USER> (shortage:create-url-table)
CL-USER> (shortage:start-http-server)