[xiaomo]

first i define a lsit l
(define l (list a1 a2 a3))
then i define a rp Variable list named "canshu".
(define (set-new-var s v t)
(if(not(rp-var-object s))
(rp-var-define s v t #f)
)
)
for-each
(lambda(var)(apply set-new-var var))
'(
(canshu() list)
)

I want put list l (a1 a2 a3) to rp lsit "canshu"
i will use (rpgetvar 'canshu) to invoking2 (a1 a2 a3)
how could i do?
who can help me ?
thankyou very much...