Having trouble deleting first item in list



This one has me confused. I have a list of objects. Here is the
function to delete one of them:

(defun delete-transaction (index)
:documentation "Delete a transaction."
(decf index)
(with-tm *tm*
(setf transactions (delete (nth index transactions) transactions)))
; (delete (nth index transactions) transactions))
(format t "(tm) Transactions left: ~A~%" (count-transactions)))

'*tm*' is an object that holds transaction objects.
'transactions' is the list of transaction objects internal to *tm*.

This version of the function works as expected. But when I uncomment
the one line and comment out the setf line, it will never delete the
first (zeroth) entry. Why is this?

.



Relevant Pages

  • Re: taxes due on 4 year old gaia jerseys
    ... goods purchased out of state for the purpose of paying in state sales ... Federal governments documenting the transaction, ... the tax. ... documentation like what Eric described to reduce the absolute amount ...
    (rec.sport.disc)
  • Re: taxes due on 4 year old gaia jerseys
    ... I also know that I have to do this any time I buy goods over the ... Federal governments documenting the transaction, ... the tax. ... documentation like what Eric described to reduce the absolute amount ...
    (rec.sport.disc)
  • Re: CLOS persistence
    ... spent several hours yesterday trying to install all the dependencies ... instances are cached within the transaction and their data is ... tutorial + API documentation simplify things big way. ... How hard it is to add sqlite backend ...
    (comp.lang.lisp)
  • Re: "XACT_S_DEFECT" what is that?
    ... documentation for it in the www. ... The first one is not an error, it indicates "successful start" of a ... and all refer to a "transaction" whatever it is. ... "A transaction defect was detected" ...
    (microsoft.public.win32.programmer.kernel)
  • =?ISO-8859-1?Q?Re:_It=B9s_time....?=
    ... Yes, I have a detailed list of every transaction, it's called ... documentation for taxes. ... Prev by Date: ...
    (misc.invest.stocks)