;; remove
;; removes physically an element from a list
;; here for CL compat, do not use!

;;AUTOLOAD: remove
(defun remove (elt l &aux
    (pos (seek l elt))
  )
  (if pos
    (delete l pos)
  )
  l
)
