( XD::AssocList:FindSubItem)查询关联表子键下项是否存在

Lispboy

1. ;|
   
2. 查询关联表子键下项是否存在
   
3. 参数：
   
4.   lst  ---- 关联表
   
5.   key ----- 关键字
   
6.   val  ---- 查询项
   
7. 
   
8. 返回值：
   
9.   T 或 NIL  
   
10. |;
    
11. (defun XD::AssocList:FindSubItem(lst key val)
    
12.    (if (member val (cdr (assoc key lst)))
    
13.      t
    
14.    )
    
15. )

;|<br /> 查询关联表子键下项是否存在<br /> 参数：<br />   lst  ---- 关联表<br />   key ----- 关键字<br />   val  ---- 查询项<br /> <br /> 返回值：<br />   T 或 NIL  <br /> |;<br /> (defun XD::AssocList:FindSubItem(lst key val)<br />    (if (member val (cdr (assoc key lst)))<br />      t<br />    )<br /> )