合并子列表

Adesigner

主要自己用来用合并坐标列表，输出给安全数组，由递归方法完成。
;;子列表开括号
(defun append-lst (lst)
        (if (not (null lst))
                (if (type-inlst lst)
                        (append-inlst lst)
                        (progn
                                (princ "\n列表有缺陷")
                                (princ)))))
        ;;检测子表类型是否为列表
        (defun type-inlst (lst)
                (if (null lst)
                        T
                        (and (= (type (car lst)) 'LIST) (type-inlst (cdr lst)))))
        ;;合并子列表
        (defun append-inlst (lst)
                (if (null lst)
                        nil
                        (append (car lst) (append-inlst (cdr lst)))))