this is the package I'm using. For reference

http://paste.lisp.org/display/344598