История изменений

Та же претензия, что и к предыдущей версии: лишние присваивания. Делай инициализацию при объявлении привязки в let. В том коде присваивания оправданы лишь для вычисления переменных bSign, cSign, без которых тоже можно обойтись, если воспользоваться модификатором at-sign директивы D (см. форматную строку для print-result тут).

Ну и (if (< b 0) (setf bSign "") ()) → (when (minusp b) (setf bSign ""))

Та же претензия, что и к предыдущей версии: лишние присваивания. Делай инициализацию при объявлении привязки в let. В том коде присваивания оправданы лишь для вычисления переменныхbSign, cSign, без которых тоже можно обойтись, если воспользоваться модификатором at-sign директивы D (см. форматную строку для print-result тут).

Ну и (if (< b 0) (setf bSign "") ()) → (when (minusp b) (setf bSign ""))