Can someone tell me why this does not work:

`(setq sel (ss_get ":E:S"))`

(mapcar '(lambda (x)

(if (/= x obj)

(ssdel x sel)

)

)

(ssnames sel)

)

But this does work:

`(setq sel (ss_get ":E:S"))`

(mapcar '(lambda (x)

(if (not (equal x obj))

(ssdel x sel)

)

)

(ssnames sel)

)

Here is the helper function SSNAMES:

`(defun ssnames (selection_set / num lst)`

(repeat (setq num (sslength selection_set))

(setq num (1- num)

lst (cons (ssname selection_set num) lst)

)

)

lst

)

This is baffling to me. If someone can explain this please do.

Thanks,