Hello,
Otherwise there this variant much like that of Kerry:
((lambda (l)
(load (getfiled "Select a Lisp File" "" "vlx" 8))
(foreach cmd (vl-remove-if '(lambda (x) (or (wcmatch x "~C:*") (member x l))) (atoms-family 1))
(princ "\n")
(princ cmd)
)
(princ)
)
(atoms-family 1)
)
Best regard,