From: Ariel Badichi on
On Mar 6, 10:24 pm, Slobodan Blazeski <slobodan.blaze...(a)gmail.com>
wrote:
> I have an adjustable array :
>
> > (setq foo  (make-array 0  :element-type 'fixnum
>
>        :fill-pointer 0 :adjustable t))
> ; added some elements> foo
>
> #(1 2 1 3 4 1 1 5 101)
>
> How to remove say third element?
>

See http://groups.google.com/group/comp.lang.lisp/msg/8b3d664e9db85dde
where a sane definition of DELETE-NTH is given. There's no need to
GENSYM or SUBSEQ anything.

Ariel
From: Ariel Badichi on
Slobodan Blazeski <slobodan.blazeski(a)gmail.com> writes:

> I have an adjustable array :
>
>> (setq foo (make-array 0 :element-type 'fixnum
> :fill-pointer 0 :adjustable t))
> ; added some elements
>> foo
> #(1 2 1 3 4 1 1 5 101)
>
>
> How to remove say third element?
>

See http://groups.google.com/group/comp.lang.lisp/msg/8b3d664e9db85dde
where a sane definition of DELETE-NTH is given. There's no need to
GENSYM or SUBSEQ anything.

Ariel
From: Ariel Badichi on
Slobodan Blazeski <slobodan.blazeski(a)gmail.com> writes:

> I have an adjustable array :
>
>> (setq foo (make-array 0 :element-type 'fixnum
> :fill-pointer 0 :adjustable t))
> ; added some elements
>> foo
> #(1 2 1 3 4 1 1 5 101)
>
>
> How to remove say third element?
>

See http://groups.google.com/group/comp.lang.lisp/msg/8b3d664e9db85dde
where a sane definition of DELETE-NTH is given. There's no need to
GENSYM or SUBSEQ anything.

Ariel
From: Slobodan Blazeski on
On Mar 6, 11:17 pm, Ariel Badichi <vermilionr...(a)gmail.com> wrote:
> On Mar 6, 10:24 pm, Slobodan Blazeski <slobodan.blaze...(a)gmail.com>
> wrote:
>
> > I have an adjustable array :
>
> > > (setq foo  (make-array 0  :element-type 'fixnum
>
> >        :fill-pointer 0 :adjustable t))
> > ; added some elements> foo
>
> > #(1 2 1 3 4 1 1 5 101)
>
> > How to remove say third element?
>
> Seehttp://groups.google.com/group/comp.lang.lisp/msg/8b3d664e9db85dde
> where a sane definition of DELETE-NTH is given.  There's no need to
> GENSYM or SUBSEQ anything.
>
> Ariel

Looks good thanks.

Slobodan
First  |  Prev  | 
Pages: 1 2
Prev: How to test the non exported symbols
Next: ECL 10.3.1