btimofeev> Помогает возвращение require 'cl, видимо ещё что то нужно заменить, попозже попробую разобраться.

Разобрался. Простой замены return на cl-return недостаточно, нужно ещё всё в cl-block заключить, вот так:

(defun somename()
    (cl-block имя блока
           ...
           тело блока
           ...
           (cl-return-from имя блока возвращаемое значение)))

После подобной замены у меня всё без require 'cl заработало, даже нашел одну книжку в которой обложка отображается. Кстати, что не так с изображением в книге которую я тебе отослал?