Re: [Gcl-devel] Bug in REMOVE when :end and :from-end keyword parameters are supplied

[Paul F. Dietz]

I wrote:

> >(remove 'a '(a b c a e) :start 0 :end 2 :from-end t)
> 
> Error in EVAL [or a callee]: Negative index: -1.

The same bug shows up in REMOVE-IF, REMOVE-IF-NOT,
DELETE, DELETE-IF, and DELETE-IF-NOT.

(remove-if #'(lambda (x) (eq x 'a)) '(a b c a e)
                :start 0 :end 2 :from-end t)
(remove-if-not #'(lambda (x) (eq x 'a)) '(a b c a e)
                :start 0 :end 2 :from-end t)
(delete 1 (list 1 2 3 1 4) :start 0 :end 2 :from-end t)
(delete-if #'zerop (list 0 2 3 0 4) :start 0 :end 2 :from-end t)
(delete-if-not #'zerop (list 0 2 3 0 4) :start 0 :end 2 :from-end t)

        Paul Dietz
        address@hidden