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

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

(let*((inclist-th-len 50000)
      (inclist-th-lst
        (mapcar #'random
                (make-list inclist-th-len :initial-element 100) )))

  (defun inclist-th (l)
    (declare (optimize (speed 3) (safety 0)))
    (prog1 l
      (loop while l
            do (let ((c (the cons l)))
                 (incf (the fixnum (car c)))
                 (setq l (cdr c)) ))))

  (defun inclist-th-entry ()
    (let ((l (copy-seq inclist-th-lst)))
      (loop repeat 10000
            do (inclist-th l) )))
  )

(timing (inclist-th-entry))