Documentation
Delete ITEM from SEQUENCE, using cl:delete, and update SEQUENCE.
DELETE-ARGS are passed directly to cl:delete.
Source
(defmacro deletef
(item sequence &rest delete-args
&environment e)
"Delete ITEM from SEQUENCE, using cl:delete, and update SEQUENCE.
DELETE-ARGS are passed directly to cl:delete."
(multiple-value-bind (vars vals store-vars writer-form reader-form)
(get-setf-expansion sequence e)
`(let* (,@(mapcar #'list vars vals)
(,(car store-vars) ,reader-form))
(setq ,(car store-vars) (delete ,item ,(car store-vars)
,@delete-args))
,writer-form)))
Source Context