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

(FILECREATED "13-Apr-88 15:51:29" {QV}<NOTECARDS>1.3LNEXT>PMIPATCH095.;1
 1905   

      changes to%:  (VARS PMIPATCH095COMS)
                    (FNS NC.NoteFileFromNoteFileUID))


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

(PRETTYCOMPRINT PMIPATCH095COMS)

(RPAQQ PMIPATCH095COMS
 (

(* ;;; "pmi 4/13/88: Added check for non-NIL NoteFileUID in NC.NoteFileFromNoteFileUID.")


                        (DECLARE%: DONTCOPY (PROPS (PMIPATCH095 MAKEFILE-ENVIRONMENT)
                                                   (PMIPATCH095 FILETYPE)))
                        
          
          (* ;; "Changed in NCDATABASE")


                        (FNS NC.NoteFileFromNoteFileUID)))



(* ;;; "pmi 4/13/88: Added check for non-NIL NoteFileUID in NC.NoteFileFromNoteFileUID.")


(DECLARE%: DONTCOPY 

(PUTPROPS PMIPATCH095 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))

(PUTPROPS PMIPATCH095 FILETYPE
 :BCOMPL)
)



(* ;; "Changed in NCDATABASE")


(DEFINEQ

(NC.NoteFileFromNoteFileUID

  [LAMBDA (NoteFileUID)
                                      (* ; "Edited 13-Apr-88 15:40 by pmi")

          
          (* ;; "Return the NoteFile datatype instance corresponding to the NFUID by looking it up in the notefiles hash array.")

          
          (* ;; "rht 11/14/85: This should get smarter in the future when have cross-file linking.  There it should check some file containing path name hints if it can't find UID in hash table.")

          
          (* ;; "pmi 4/13/88: Added GLOBALVARS declaration and check for non-NIL NoteFileUID.")


    (DECLARE
 (GLOBALVARS NC.NoteFilesHashArray))
    (AND NoteFileUID (GETHASH NoteFileUID NC.NoteFilesHashArray])
)
(PUTPROPS PMIPATCH095 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1084 1822 (NC.NoteFileFromNoteFileUID 1094 . 1820)))))
STOP