史莱姆声称输入错误；所有括号匹配

Question

我很忙：只是练习操作列表，这是我的代码：

(defun new-strand (size type)
  (if (= 0 size)
      nil
      (case type
        ((nstrand) (cons 'x (new-strand (1- size) 'nstrand)))
        ((nlist) (cons '(x) (new-strand (1- size) 'nlist))))))

(defun locate-string (string index) 
  (if (null list)
      '(Cannot locate string: invalid index)
      (if (= index 0)
          'string
          (locate-string (cdr string) (1- index)))))

(defun new-substring (string)
  (if (> (length (car string)) 1)
      (cons (new-strand (1- (length (car string))) 'nstrand) (cdr string))
      (cons '(x) (new-substring (cdr string)))))

(defun construct-string (string index)
  (append (reverse (new-substring (cdr (locate-string
                                         (reverse string)
                                         (- (length string) index)))))
          (cons (new-strand (1+ (length (car (locate-string string index))))
                            'nstrand)
                (new-substring (cdr (locate-string string index))))))

是的，我知道最后一个函数很长，但我已经手动和通过 minibuffer (check-parens) 检查了括号......它们似乎匹配。那么...有人可以告诉我为什么我会收到 SB:INPUT-ERROR-IN-COMPILE-FILE 吗？

Answer 1

回顾一下：

1. 缺少尾随括号。您现在似乎已经添加了它。
2. '(Cannot locate string: invalid index) 因冒号而窒息 :
3. locate-string 没有变量 list。您的意思可能是 string。

为什么不像这样格式化最后一个函数：

(defun construct-string (string index)
  (append 
   (reverse (new-substring (cdr (locate-string (reverse string) (- (length string) index))))) 
   (cons 
    (new-strand (1+ (length (car (locate-string string index)))) 'nstrand) 
    (new-substring (cdr (locate-string string index))))))