;; | ---------------------------------------------------------------------------
;; | LI_DelLst
;; | ---------------------------------------------------------------------------
;; | Function : Remove the 'nth' item from a list
;; | Argument : 'Lst'    - List to operate on
;; |            'Idx'    - Index number (starts from 1) to delete
;; | Returns  : The updated list
;; | Update   : April 1, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun LI_DelLst( Lst Idx / nlst cnt elem )
(setq
	nlst '()
	cnt 1
)
(foreach elem lst
	(if (/= cnt Idx)
		(setq nlst (cons elem nlst))
	)
	(setq cnt (1+ cnt))
)
(reverse nlst)
)