5.5 �v�f������

0����������n�������v�f��������������nth-delete���������������������D

(defun nth-delete (nth sexp)
  (cond
   ((zerop nth) 
    (rplaca sexp (cadr sexp))
    (rplacd sexp (cddr sexp)))
   (t
    (let ((x (nthcdr (1- nth) sexp)))
     (rplacd x (cddr x))
     sexp))))