高手帮我看看这段代码为什么不行

julson

(defun c:qa (/ a b c)
  (setq a '((1 1 1) (2 22 2)))
(setq b
       (mapcar
  '(lambda(x) (mapcar '+ x '(6 6 0.0)))
 a)
      )
  (princ)
  )

返回B希望得到((7 7 1) (8 28 2))

Andyhon

(defun c:qa (/ a b c)
(setq a '((1 1 1) (2 22 2)))
(mapcar
'(lambda(x) (mapcar '+ x '(6 6 0.0)))
a)
)

julson

谢谢热心帮助，不过好像还是出现错误！

julson

可以了，谢谢Andyhon！