方案錯誤「除了：誤用單位導入關鍵字」

Question

我正在寫一個函數，它返回出現在一個列表中而不出現在另一個列表中的元素。例如，

(except '(a b c) '(a d b e f)) 

將返回'(c)。第一個參數可以是一個原子，並且都假定爲平坦的。這裏是我的代碼：

(define (except lm ln) 
    (cond ((null? ln) lm) 
     ((not (list? lm)) 
     (cond ((in? lm ln) '()) 
       (#t lm))) 
     ((null? lm) '()) 
     ((in? (car lm) ln) (except (cdr lm) ln)) 
     (#t (cons (car lm) (except (cdr lm) ln))))) 

然後返回一個錯誤說： 「除非：（除（CDR LM）LN）：在單位進口關鍵詞的濫用」。

爲什麼會發生這種情況？

Answer 1

看起來像是遇到了unit庫，它有一個except關鍵字定義的問題。但它應該仍然可以作爲你的函數的名字，所以我猜猜別的是錯的。如果您提供您正在嘗試運行的完整代碼，則可以多說幾句。