lisp - 为什么 plant1 一直是 NIL？

Question

拜托，有人能解释一下为什么“make-array”对 plant1 没有影响吗？

(LET (plant1) ((setq plant1 (make-array '(4 4))) (print plant1) (setf (AREF PLANT1 0 0) 1)))

NILError: Attempt to do an array operation on NIL which is not an array.[condition type: TYPE-ERROR]

Answer 1

(LET (plant1) ((setq plant1 (make-array '(4 4))) (print plant1) (setf (AREF PLANT1 0 0) 1)))

第一条规则:格式化你的代码。

(LET (plant1)
  ((setq plant1 (make-array '(4 4)))
   (print plant1)
   (setf (AREF PLANT1 0 0) 1)))

括号太多了。 let 的语法有一个代码体，它是一系列形式。您在序列周围加上括号，这是错误的。阅读 LET 的 Common Lisp HyperSpec 条目。它提到了语法。

使用:

(LET (plant1)
   (setq plant1 (make-array '(4 4)))
   (print plant1)
   (setf (AREF PLANT1 0 0) 1))

这与:

(LET ((plant1 (make-array '(4 4))))
   (print plant1)
   (setf (AREF PLANT1 0 0) 1))