(*  "Given a file pattern as an argument,"
    "(COLLECTFILES PATTERN) will return the matching files"
    "as a list with the original case preserved."

    "Written by Herb Jellinek of Xerox, 7 June 1985."
    "HOST patch by R.A.O'K."
*)

(PUTDQ COLLECTFILES (LAMBDA (PATTERN)
    (LET ((GEN (\GENERATEFILES (DIRECTORY.FILL.PATTERN PATTERN)))
	  (HOST (FILENAMEFIELD PATTERN (QUOTE HOST)))
	  (ANS NIL)
	  (FILENAME "")
	 )
	(WHILE (SETQ FILENAME (\GENERATENEXTFILE GEN T))
	    WHEN (IGREATERP (NCHARS FILENAME) 0)
	    COLLECT (PACKFILENAME (QUOTE HOST) HOST (QUOTE BODY) FILENAME)
	)
    )
))

STOP