AutoLisp问题怎么解决

Question

程序员们，初学者遇到些问题，这个里面哪个错了啊，怎么改正呢?

(defun main.lisp (p)
(setq #t 20
    #cell 50
    #i 1
    #j 1) 
(while (<= #i (* m t))
    (while (<= #j (* n t))
        (setq #h (1+ (rem ((1- i) cell)))
        (setq #w (1+ (rem ((1- j) cell)))
        (setq #num1 (floor ((/ (1- i) cell))
              #num2 (floor ((/ (1- j) cell)))
        (setq #gap (/ (cell- m) (/ (* m t) (1- cell))))
        (setq #col (floor  (h+ (* num1 gap)))
              #row (floor  (w+ (* num2 gap))))
(setq #p (command "array" i j "")
      #a (command "array" col row ""))
(setq #a p)
)

Answer 1

援引GPT回答：
在给变量赋值的时候，应该使用setq而不是setq #变量名 值的形式。此外，还有一些括号没有正确关闭，导致语法错误。以下是修改后的代码：

(defun main.lisp (p)
  (setq t 20
        cell 50
        i 1
        j 1) 
  (while (<= i (* m t))
    (while (<= j (* n t))
      (setq h (1+ (rem (1- i) cell)))
      (setq w (1+ (rem (1- j) cell)))
      (setq num1 (floor (/ (1- i) cell)))
      (setq num2 (floor (/ (1- j) cell)))
      (setq gap (/ (- m cell) (/ (* m t) (1- cell))))
      (setq col (floor (+ h (* num1 gap))))
      (setq row (floor (+ w (* num2 gap))))
      (setq p (command "array" i j ""))
      (setq a (command "array" col row ""))
      (setq a p)
      )
    )
  )

请注意，我修改了变量名为小写字母，因为在Lisp中，大写字母通常用于特殊变量或函数名。另外，我也添加了一些缺失的括号来修复语法错误。