Elemento lista

Hola que tal alguien me podria decir como puedo saber si un elemento pertenece a una lista.

Gracias =)

Utilizando MEMBER.

Código:

(if (member elemento lista) (princ"Sí está") (princ "No está"))

Resumen de MEMBER

Código:

"(member expresión lista)" "Comprueba si un elemento forma parte de una lista."
              "Busca en una lista un elemento y devuelve el resto de la lista a partir de ese elemento (incluido el mismo) hasta el final."
              "Si el elemento se repite en la lista, MEMBER busca la primera aparición y devuelve el resto de la lista"
              "(member  'd  '(a  b  c  d  e  f  g  h  i  j  k))  (D E F G H I J K)"
              "(member  'h  '(a  b  c  d  e  f  g  h  i  j  k))  (H I J K)"
              "(member  'x  '(a  b  c  d  e  f  g  h  i  j  k))  nil"

Despues de estar pensando, pude crear una subfunción que devuelve T si el elemento pertence a la lista y NIL si es lo contrario.

Código:


;;--------------------------------------------------------;;
;; AX:ProgramLisp                                                ;;
;; SubFuncion para encontrar elemento de una lista     ;;
;; Devuelve T si existe y NIL si no existe                    ;;
;; e   --> string                                                    ;;
;; lst --> list '( "a" "b" "c")                                    ;;
;;--------------------------------------------------------;;
  
(defun 2ap_SubFun_Findlist (e lst)
  (and e
       (member e lst)
       )
  )