Возвращаемое значение печатается читабельно, то есть с использованием представления, которое можно проанализировать с помощью READ в объекте CL.Если вы используете функцию типа PRINC , которая печатает строку как есть, вы увидите, что цитирование сделало то, что вы хотели (внешние кавычки не являются частью строки):
CL-USER> (princ (concatenate 'string "Mama said: " "\"Son, your life is an open book...\""))
Mama said: "Son, your life is an open book..."
"Mama said: \"Son, your life is an open book...\""
Первая строка - результат PRINC, вторая - часть PRINT READ-EVAL-PRINT-LOOP.