（xd::list:position-fuzz）支持容差的 vl-positon

marting

1. (defun xd::list:position-fuzz (e l fuzz)
   
2.   (if (atom e)
   
3.     (vl-position e l)
   
4.     (vl-position
   
5.       (xd::list:car-member-if '(lambda (x) (equal e x fuzz)) l)
   
6.       l
   
7.     )
   
8.   )
   
9. )
   

(defun xd::list:position-fuzz (e l fuzz)<br />   (if (atom e)<br />     (vl-position e l)<br />     (vl-position<br />       (xd::list:car-member-if '(lambda (x) (equal e x fuzz)) l)<br />       l<br />     )<br />   )<br /> )<br />

命令: !a
(1 2 3 4.021 5 6 7)
命令: (xd::list:position-fuzz 4 a 1e-1)
3

wrf610051

if语句中的内部放反了吧。

qyming2000

学习学习   
来自: 微社区

xinrstar

kqqt6236

谢谢分享。