删除表指定位置之间（不包括指定位置）的所有元素

Lispboy

1. ;|
   
2. 删除指定位置之间（不包括指定位置）的所有元素
   
3. 
   
4. 参数：
   
5.    LST ---- 表
   
6.    START---起始位置
   
7.    END ----结束位置
   
8. |;
   
9. (defun XD::List:RemoveByInterval(lst start end)
   
10.   (append (XD::List:N- lst start)(XD::List:N+ lst end))
    
11. )
    
12. 
    

;|<br /> 删除指定位置之间（不包括指定位置）的所有元素<br /> <br /> 参数：<br />    LST ---- 表<br />    START---起始位置<br />    END ----结束位置<br /> |;<br /> (defun XD::List:RemoveByInterval(lst start end)<br />   (append (XD::List:N- lst start)(XD::List:N+ lst end))<br /> )<br /> <br />