如何在Lisp中移除数组中的nil元素？现有代码运行异常

先拆解你这段代码的问题：

• dotimes语法错误：它的第一个参数格式是(循环变量 循环次数)，你写的(i arr)里arr是数组对象，不是长度数值，得改成(i (length arr))
• 括号不匹配：when表达式里的(null (aref arr i)少了一个右括号，直接导致语法报错
• remove用法完全错误：这个函数的参数是(要移除的元素 目标序列)，你传的null是判断函数而非元素，而且(aref arr i)是单个元素，不是序列，逻辑完全不对
• 核心逻辑错误：你试图修改原数组，但remove不会修改原对象，只会返回新序列，最后直接return arr只会返回未改动的原数组

正确的处理方法 #

方法一：转列表处理后转回数组

这是最简洁的方式，先把数组转成列表，移除nil后再转回数组：

(defun remove-nil-from-array (arr)
  (coerce (remove nil (coerce arr 'list)) 'array))

用法示例：

(remove-nil-from-array #(1 nil 3 nil 5)) ; 返回 #(1 3 5)

方法二：手动循环构建新数组

如果想手动实现循环逻辑，可以用可调整数组来收集非nil元素：

(defun remove-nil-from-array (arr)
  (let* ((len (length arr))
         (result (make-array 0 :adjustable t :fill-pointer 0)))
    (dotimes (i len)
      (let ((elem (aref arr i)))
        (unless (null elem)
          (vector-push-extend elem result))))
    result))

这个方法会遍历原数组的每个元素，把非nil的元素逐个添加到可调整的结果数组中。

内容的提问来源于stack exchange，提问作者jenna