(FILECREATED "17-Dec-85 23:00:26" {QV}<NOTECARDS>1.3K>FGHPATCH008.;1
 1317   

      changes to:  (VARS FGHPATCH008COMS))


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FGHPATCH008COMS)

(RPAQQ FGHPATCH008COMS
 ((* * From NCUTILITIES Crrection to FILELOAD call in 
			     NC.LoadFileFromDirectories)
			  (FNS NC.LoadFileFromDirectories)))
(* * From NCUTILITIES Crrection to FILELOAD call in NC.LoadFileFromDirectories)


(DEFINEQ

(NC.LoadFileFromDirectories

  (LAMBDA (FileName Directories)                             (* fgh: "17-Dec-85 22:57")


          (* * Try to load FileName from Directories. The latter can be a list in which case the elements should be directory

	  paths. It can be an atom in which case it should be a DIRECTORIES var. Or it can be NIL in which case it defaults 

	  to the litatom NOTECARDSDIRECTORIES.)



    (
OR
 Directories (
SETQ
 Directories (
QUOTE
 NOTECARDSDIRECTORIES)))
    (
APPLY*
 (
QUOTE
 FILESLOAD)
	      (if
 (
LISTP
 Directories)
		  then
 (
LIST
 (
QUOTE
 FROM)
				 Directories)
		else
 (
LIST
 (
QUOTE
 FROM)
			       (
QUOTE
 VALUEOF)
			       Directories))
	      FileName)))
)
(PUTPROPS FGHPATCH008 COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (473 1235 (NC.LoadFileFromDirectories 483 . 1233)))))
STOP