커먼 리스프 : setq와 assoc을 통해 알리 스트에서 한 쌍을 제거하십시오.

Question

이전의 일반적인 lisp 서적에서 코드를 발견하고 lispworks 및 clozure에서 시도해보십시오. 그러나 둘 다 코드를 실행할 수 없습니다. 이 코드는 쌍을 제거하는 데 사용됩니다 : (author1 . john). 시간에 대한

(setf q '((author1 . john) (author2 . tony) (author3 . fred))) 

(setf (assoc 'author1 q) nil) 

감사

Answer 1

당신은 현재 위치에서 목록을 조작 할 수 있지만 기능적인 방법으로 지정된 키없이 새 목록을 얻고 변수를 재 할당 할 수 있습니다 :

(setf q (remove 'author1 q :key #'car)) 

을

Answer 2

(SETF ASSOC)가 ANSI CL의에서 정의되지 않고, 이식성 (심볼에 대한 setf의 함수를 작성하기 위해 ANSI CL 사양에 의해 허용되지 않습니다 정의 할 수없는 기능 CL 패키지에서).

다른 방법으로 각 쌍을 제거해야합니다.