;; this file:
;;   https://dataswamp.org/~incal/cl/bench/flet.cl
;;
;; original Elisp source:
;;   elisp-benchmarks

(load "~/public_html/cl/bench/timing.cl")

(let*((flet-len 50000)
      (flet-lst (mapcar #'random
                        (make-list flet-len :initial-element 1000))) )

  (defun elb-flet (l)
    (flet ((f (x)
             (or (> x 750)
                 (< x 250) )))
      (loop for x in l
            count (f x) )))

  (defun elb-flet-entry ()
    (loop repeat 2500
          do (elb-flet flet-lst) ))
  )

(timing (elb-flet-entry))