XPost: 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
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)