LISP AGAIN
David,
Here's what you want:
(defun remove (item alist)
(if (member item alist)
(append
(reverse (cdr (member item (reverse alist))))
(cdr (member item alist))
)
alist
)
However, why not just insert your list items in sorted order:
(defun insert (item alist)
(cond
((or (null alist) (< item (car alist)))
(cons item alist))
((= item (car alist))
alist)
((cons (car alist) (insert item (cdr alist))))
)
)
Just start with a null list, then
(setq yourlist (insert newitem yourlist))
for each one. Phil Kreiker, Looking Glass Microproducts