Subject: Re: semi-newbie question
From: rpw3@rpw3.org (Rob Warnock)
Date: Thu, 19 Dec 2002 07:09:24 -0600
Newsgroups: comp.lang.lisp
Message-ID: <xt2cndR3duGZWJyjXTWc3Q@giganews.com>
Ivan <taliesinv@earthlink.net> wrote:
+---------------
| >(setf ce1 (make-array 5 :initial-element '(0 0 0)))
+---------------

Try this way:

    > (defvar ce1 (make-array 5 :initial-contents (loop for i below 5
						    collect (list 0 0 0))))
    CE1
    > ce1
    #((0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0))
    > (setf (nth 2 (aref ce1 1)) 5)
    5
    > ce1
    #((0 0 0) (0 0 5) (0 0 0) (0 0 0) (0 0 0))
    > 


-Rob

-----
Rob Warnock, PP-ASEL-IA		<rpw3@rpw3.org>
627 26th Avenue			<URL:http://www.rpw3.org/>
San Mateo, CA 94403		(650)572-2607