Целой переменной присвойте значение суммы цифр заданного трехзначного числа. язык лисп

Вариантов лиспа с 1958 года придумано столько, что твой вопрос без указания конкретной реализации не имеет смысла.

CL:

;; заданное число
(setf value 321)

;; вычисление результата
(setf result (+ (floor value 100) (floor (mod value 100) 10) (mod value 10)))

;; печать результата
(princ result)