Added a (require 'cl).