44 lines
1.2 KiB
Common Lisp
44 lines
1.2 KiB
Common 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))))))))
|