Lisp: pour effectuer l'opération d'union set

Question

Je suis un débutant dans LISP.J'utilise clisp en ubuntu .J'ai un code ici en Lisp pour effectuer le fonctionnement de l'union sur deux listes.La logique est correcte.Mais coincé à une erreur qui est:

*** - APPEND: A proper list must not end with T

mon code est:

(defun set-union (L1 L2) 
(cond 
((null L2) ;if l2 is null then union is l1 itself. 
    L1) 
((not (member (first L2) L1)) ;check if first member of l2 is in l1 or not 
    (setq l1 (append (set-union L1 (rest L2)) (list (first L2))))) ;if not then append it with the union of l1 and rest of l2. 
(t 
    (set-union L1 (rest L2))) 
)) ;if second condition is not true then carry out union on l1 and rest of the elements of l2 
(setq l1 (list 'a 'c 'b 'g)) 
(setq l2 (list 'd 'g 't)) 
(set-union l1 l2) 
(print l1) 

je besoin d'aide !! Merci.

Answer 1

(append (set-union L1 (rest L2)) (first L2)) 

à un certain point de votre logique tente de append (A C B G. T) et E, qui échoue parce que le premier est pas une liste appropriée.

Soit utiliser

(append (set-union L1 (rest L2)) (list (first L2))) 

ou, mieux

(cons (first L2) (set-union L1 (rest L2)))