transcendental-lisp/lisp/random/array.lisp

(let ((static))

  (setq static
    (dlambda
      (:create-indices (length)
        (call static :create-indices-tail (- length 1) ()))

      (:create-indices-tail (index accumulator)
        (if (< index 0)
          accumulator
          (recur (- index 1) (cons index accumulator))))))

  (defmacro array (length)
    (let* ((this (gensym))
           (index-prefix (fuse this 'index))
           (indices (call static :create-indices length))
           (index-bindings (map (lambda (i) (list (fuse index-prefix i))) indices)))

      `(let ,index-bindings
        (setq ,this
          (dlambda
            (:get (i)
              (eval (fuse ',index-prefix i)))

            (:set (i value)
              (if (and (< i ,length) (> i -1))
                (set (fuse ',index-prefix i) value)
                (call ,this :get i))) ;; show error

            (:length ()
              ,length)

            (t ()
              ((lambda (indices accumulator)
                 (if (null? indices)
                   accumulator
                   (recur
                     (rest indices)
                     (cons
                       (call ,this :get (first indices))
                       accumulator))))
               (reverse ',indices)
               nil))))))))