(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "14-Jan-88 11:54:43" {QV}<NOTECARDS>1.3LNEXT>RGPATCH072.\;1
 1283   

      |changes| |to:|  (VARS RGPATCH072COMS)
                       (FNS |NC.LookupAutoloadFnFile|))


; Copyright (c) 1988 by Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT RGPATCH072COMS)

(RPAQQ RGPATCH072COMS
 (
          
          (* |;;| 
          "rg 1/14/88 no longer uses fully-qualified name, so works properly w/ NC.InstallFlg set")

                       
          
          (* |;;| "changes to NCCONFIG")

                       (FNS |NC.LookupAutoloadFnFile|)))



(* |;;| "rg 1/14/88 no longer uses fully-qualified name, so works properly w/ NC.InstallFlg set")





(* |;;| "changes to NCCONFIG")


(DEFINEQ

(|NC.LookupAutoloadFnFile|

  (LAMBDA (|AutoloadFn|)                             (* \; "Edited 14-Jan-88 11:53 by Randy.Gobbel")
          
          (* |;;| "rg 1/14/88 no longer gets fully-qualified name, lets NC.LoadFileFromDirectories load from connected dir if NC.InstallFlg set")
          
          (* |;;| "Fetch the filename for loading given function")

    (GETPROP |AutoloadFn| '|File|)))
)
(PUTPROPS RGPATCH072 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (785 1201 (|NC.LookupAutoloadFnFile| 795 . 1199)))))
STOP