delete-ifの述部に複数の引数があります

Question

状態リストから1つのステップ（要素）を削除したいとします。

(defparameter *states* '((:top nil nil) (:subjects nil nil))) 
;predicate 
(defun equal-state? (step state) 
    (equal (car step) state)) 

私は2番目の引数（state）が述語に渡すことができるか、その後(delete-if #'equal-state? *states*)を使用している場合は？

私はようやく同様の質問を見つけましたが、質問の明快さのためにそれを保持する傾向があります。言及ユーザコアダンプとして

Answer 1

CL-USER 67 > (let ((state :top)) 
       (delete-if (lambda (step) 
          (equal-state? step state)) 
          *states*)) 
((:SUBJECTS NIL NIL)) 

又は

CL-USER 68 > (defun make-predicate (state) 
       (lambda (step) 
       (equal-state? step state))) 
MAKE-PREDICATE 

CL-USER 69 > (delete-if (make-predicate :subjects) 
         *states*) 
((:TOP NIL NIL)) 

、delete-ifは、潜在的に破壊的な動作です。 delete-ifの非破壊的な代替はremove-ifです。

CL-USER 77 > (remove :subjects 
        '((:top nil nil) 
         (:subjects nil nil)) 
        :key #'first 
        :test #'equal) 
((:TOP NIL NIL))