Added (require 'cl)