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