From Newsgroup: comp.lang.lisp

Contrast the much more common

a[i] = b[n]

with

(setf (aref a i) (aref b n))

Would this be concise enough?

(a i b n)


Gauche Scheme

(define-method object-apply
((v0 <vector>) (i0 <integer>) (v1 <vector>) (i1 <integer>))
(vector-set! v0 i0 (ref v1 i1)))

(define a #(2 4 6 8))
(define b #(30 50 70 90))

gosh> a
#(2 4 6 8)

(a 2 b 3)

gosh> a
#(2 4 90 8)
--
[T]he problem is that lispniks are as cultish as any other devout group and basically fall down frothing at the mouth if they see [heterodoxy].
--- Kenny Tilton
The good news is, it's not Lisp that sucks, but Common Lisp. --- Paul Graham --- Synchronet 3.21a-Linux NewsLink 1.2