вот текст программы для нахождения суммы (один символ цифры воспринимается как одно число, тоесть рядом стоящие 4 и 5 это не 45(сорок пять),а 4 и 5). 
(defun isnum(x) 
(if (null (position x '(\0 \1 \2 \3 \4 \5 \6 \7 \8 \9))) 
0 (- (ascii x) 48)) 
) 

(defun atomnum(x) 
(let ((num 0) (atm NIL)) 
(dolist (atm x num) 
(setq num (+ (isnum (car atm)) num)) 
) 
) 
) 

(defun listnum(x) 
(let ((num 0) (atm NIL)) 
(dolist (atm x num) 
(setq num (+ (atomnum (unpack atm)) num)) 
) 
) 
) 

(load common) 

(print (listnum (read))) 
Подскажите как сделать для нахождения произведения!Пробовал менять плюсы на умножение,не помогло, в результате пишет ноль. Помню както надо результату единицу присвоить, тогда,возможно, нуля не будет. Кто знает решение проблемы отпишитесь!

Добавлено через 2 минуты и 46 секунд
результат нахождения суммы выглядит так : 
при вводе такой строки (asda24 dfs44fd 34) 

будет результат 21

наверное потому что x * 0 = 0

k0rvin, подскажите пожалуйста, в чём может быть проблема,я меняю num 1 ,но оно некорректно считает. Считает нормально если записать так : (5 6 9 4 8 3). А если так: (sdfs34 sd34fd 67), то уже не верно выходит. Подскажите плз,очень надо