(FILECREATED "31-Oct-86 17:47:11" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH129.;1
 1822   

      changes to:  (VARS RHTPATCH129COMS))


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

(PRETTYCOMPRINT RHTPATCH129COMS)

(RPAQQ RHTPATCH129COMS
 ((* * Fix to problem in autoloader.)
			  (* * Change to NCUTILITIES)
			  (FNS NC.LoadFileFromDirectories)))
(* * Fix to problem in autoloader.)


(* * Change to NCUTILITIES)


(DEFINEQ

(NC.LoadFileFromDirectories

  (LAMBDA (FileName Directories)                             (* rht: "31-Oct-86 17:45")


          (* * 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.)




          (* * fgh 6/3/86 Now closes tty window after ts done.)




          (* * rht 10/31/86: Changed "DIRECTORIES" to "Directories")



    (
OR
 Directories (
SETQ
 Directories (
QUOTE
 NOTECARDSDIRECTORIES)))
    (
SETQ
 Directories (if
 (
LISTP
 Directories)
			    then
 (
LIST
 (
QUOTE
 FROM)
					   Directories)
			  else
 (
LIST
 (
QUOTE
 FROM)
					 (
QUOTE
 VALUEOF)
					 Directories)))
    (
RESETLST
 (
RESETSAVE
 NIL (
BQUOTE
 (
AND
 , (
NOT
 (
OPENWP
 (
WFROMDS
 (
TTYDISPLAYSTREAM
)
										T)))
						  (
CLOSEW
 , (
WFROMDS
 (
TTYDISPLAYSTREAM
))))))
		(
APPLY
 (
QUOTE
 FILESLOAD)
			 (if
 NC.LOADFLG
			     then
 (
BQUOTE
 ((, NC.LOADFLG ,@ Directories)
					       , FileName))
			   else
 (
LIST
 Directories FileName)))
		(NC.FixFileDates FileName))))
)
(PUTPROPS RHTPATCH129 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (448 1740 (NC.LoadFileFromDirectories 458 . 1738)))))
STOP