Mehr als ein Argument für Prädikat in delete-if

Question

Angenommen, ich möchte einen Schritt (Element) aus der Liste der Zustände löschen.

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

Wenn ich (delete-if #'equal-state? *states*) dann, wie das zweite Argument (state) auf Prädikat übergeben werden?

bearbeitet: Ich habe endlich eine ähnliche Frage gefunden, aber ich bin geneigt, es wegen der Klarheit in der Frage zu behalten.

Answer 1

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

oder

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)) 

als Benutzer coredump erwähnt, ist eine potentiell delete-if destruktive Operation. Die zerstörungsfreie Alternative zu delete-if ist remove-if.

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