wcmatching a list

[LSElite]

Hey guys

I am trying to do a wildcard match of everyline of a list and if it contains *-H-* remove it from the list.
despite my best efforts i cant seem to overcome this hurdle...
the goal is to remove all the hydraulic(*-H-*) drawings from the list
here is an example of the name:
M13536-M-L06-101.dwg
M13536-H-L06-101.dwg
M13536-E-L06-201.dwg

this is my attempt:

(defun C:MMCoord (/)
 (setq  dwgpath  (getvar "dwgprefix")
  dwgname  (if (= (strlen (getvar "dwgname")) 20)
      (getvar "dwgname")
      (exit)
    )
  discipline (substr dwgname 8 1)
  level   (substr dwgname 10 3)
  namelist (vl-directory-files dwgpath (strcat "*-*-" level "-*.dwg") 1)
 )
 (setq dwgnamelist (foreach temp1 namelist
     (lambda (temp1)
      (if
       (= nil (wcmatch temp1 "*-H-*"))
       (list temp1)
       (nil)
      )
     )
    )
 )
princ dwgnamelist
)

Im pretty new to lisp so any advice on my coding would be greatly appreciated.

Cheers

[pbejse]

(foreach itm namelist
      (if (wcmatch itm "*-H-*")
          		(setq namelist (vl-remove itm namelist))))

or

(vl-remove-if '(lambda (k)
                         (wcmatch k "*-H-*")) namelist)

Please use CODE Tags

[ CODE ] (defun ....) [ / CODE ] ;<-- without the space " "

[Tharwat]

Pbe , you may need add a space between the variable and the wcmatch string , although it does not hurt .

[pbejse]

Pbe , you may need add a space between the variable and the wcmatch string , although it does not hurt .

Of course tharwat, context is everything after all