(XD::AssocList:RemoveSubItem)删除关联表子键下的一个子项目

Lispboy

1. ;|
   
2. 删除关联表子键下的一个子项目
   
3. 参数：
   
4.   lst  ---- 关联表
   
5.   key  ---- 关键字
   
6.   val  ---- 项
   
7.   mode ---- T 删除所有发现，NIL，删除第一个
   
8. 返回值：
   
9. 关联表
   
10. |;
    
11. (defun XD::AssocList:RemoveSubItem(lst key val mode / iteml new old)
    
12.    (if (setq old (assoc key lst))
    
13.      (progn
    
14.         (setq iteml (cdr old)
    
15.               iteml (XD::List:RemoveE val iteml mode)
    
16.               new (cons key iteml)
    
17.               lst (subst new old lst)
    
18.         )
    
19.      )
    
20.    )
    
21.    lst
    
22. )

;|<br /> 删除关联表子键下的一个子项目<br /> 参数：<br />   lst  ---- 关联表<br />   key  ---- 关键字<br />   val  ---- 项<br />   mode ---- T 删除所有发现，NIL，删除第一个<br /> 返回值：<br /> 关联表<br /> |;<br /> (defun XD::AssocList:RemoveSubItem(lst key val mode / iteml new old)<br />    (if (setq old (assoc key lst))<br />      (progn<br />         (setq iteml (cdr old)<br />               iteml (XD::List:RemoveE val iteml mode)<br />               new (cons key iteml)<br />               lst (subst new old lst)<br />         )<br />      )<br />    )<br />    lst<br /> )