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

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

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

  (defun inclist (l)
    (prog1 l
      (loop while l
            do (let ((c l))
                 (incf (car c))
                 (setq l (cdr c)) ))))

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

(timing (inclist-entry))