Autolisp替换列表中的元素

(defun subst#(n o lst / x)

  (if lst

    (cons

      (cond

        ((atom (setq x (car lst)))

         (if (= x o) n x)

        )

        (T (subst# n o x))

      )

      (subst# n o (cdr lst))

    )   

  )

)

;;;例如：

;;;(subst# 'm 'b '(a b (a b c) d))

;;;==> (a m (a m c) d)