[LISP函数]：请帮我看看这样写有什么问题,谢谢了

cyanflame

(foreach nthlst Data_list
    (setq x (car nthlst))
    (setq y (cadr nthlst))
    (setq r (caddr nthlst))
    (command "circle" (list x y 0) r)
    (command "pdmode" "32")
    (command "pdsize" "5")
    (command "point" (list x y))
    (setq du (sin 45))   
    (setq xsin (* r du))
    (setq x1 (+ x xsin))
    (setq y1 (+ y xsin))

    (command "line" (list x y) (list x1 y1))


  )
前面的都没问题，从开始做乘法运算的那句加上去以后，就报函数错误，谁能告诉我为什么啊?

另外为什么我这里sin45 出来的结果是0.8......我用计算器算的是0.7....