(BF-list-BigFirst)从表中找出比int大的最小数

;;说明:从表中找出比int大的最小数
;;参数:ls:数值表
;;参数:int:需要找的数
;;返回:比int大的最小数
(defun BF-list-BigFirst(ls int / end lst)
    (setq lst (vl-sort ls '<) end nil)
    (while (and (setq end (car lst)) (<= end int) (setq lst (cdr lst))))
    (if (> end int) end nil)
)