Вы можете просто вернуть значение, отправив его в список компакт-дисков, что, как я полагаю, приведено в примере из используемой вами книги (а позже вы отформатируете каждый компакт-диск в своей базе данных при печати):
(defun make-cd (artist title rating ripped)
(push (list :artist artist :title title :rating rating :ripped ripped)
*cds*))
Поэтому, если я вызову функцию, она вернет содержимое компакт-диска на консоль:
(make-cd "Cece Winans" "Mercy Said No" 10 t)
((:ARTIST "Cece Winans" :TITLE "Mercy Said No" :RATING 10 :RIPPED T))
Значение возвращается на консоль в случае, если вы нажмете компакт-дискв базу данных компакт-дисков.