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

Lispboy

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

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

st788796

如果查到返回这个值是不是比返回 t 好些