Ralph Schleicher has written an Open Location Code library for Common Lisp. It is available via Quicklisp:

  (ql:quickload :open-location-code)

Quicklisp pulls the code from here.