Topic: how do i read a list variable?

[andrew_nao]

thanks everyone for you help
I got what I was after

much appreciated

[andrew_nao]

if anyone can shed some light here
been using this code lately and all the sudden today im getting syntax error

anyone see something wrong that im not seeing?

Code: [Select]

(SETQ lst (VL-DIRECTORY-FILES "O:\\"))
(defun wcmatch_first ( lst pattern flag / result )
    (setq pattern (if flag (strcase pattern) pattern))
    (vl-some
       '(lambda (str) (if  (setq result str)))
        (if flag (mapcar 'strcase lst) lst)
    )
    result
)
(SETQ var (strcase (GETSTRING "Enter order number: ")))


(if (wcmatch_first lst (strcat "*" var "*") nil)
         (alert "yes") ;if found  
         (alert "no") ; not found
)