vl-remove-if Q

R2005 Vlisp:

I rewrote some of an existing program that displays a list of directories to be removed from a list. You select the ones you want to be removed (delst).
I use:
(if (> (length delst) 0) ;if deleting directories
(setq curlst (vl-remove-if '(lambda (x)(member x curlst)) delst)
)
)
But the whole list (curlst) disappeared.
Shouldn't just the items in delst have been removed from curlst with this code?

TIA

Bill

 

Nevermind,

I think I got it.

Bill

 

Bill,

Just curious... was this the problem?

(setq curlst '("a" "b" "c" "d"))
(setq delst '("a" "c"))

Command: (vl-remove-if '(lambda (x) (member x curlst)) delst)
nil
Command: (vl-remove-if '(lambda (x) (member x delst)) curlst)
("b" "d")

Joe Burke

 

nil, when I needed ("b" "d")


Bill

 

(setq curlst '("a" "b" "c" "d"))
(setq delst '("a" "b"))

(vl-remove-if '(lambda (x) (car (member x delst))) curlst)