(FILECREATED "14-Nov-86 21:58:48" {QV}<NOTECARDS>1.3K>NEXT>DVNPATCH001.;3
 2049   

      changes to:  (VARS DVNPATCH001COMS)
		   (FNS NC.NoteFileOpenP)

      previous date: "14-Nov-86 11:10:32" {QV}<NOTECARDS>1.3K>NEXT>DVNPATCH001.;1)


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

(PRETTYCOMPRINT DVNPATCH001COMS)

(RPAQQ DVNPATCH001COMS
 ((* * This file patches apparent errors with the predicates detecting if 
			     notefiles are open or not.)
			  (* * Change to NCDATABASE)
			  (FNS NC.NoteFileOpenP)
			  (* * Change to NCPROGINT)
			  (FNS NCP.OpenNoteFileP)))
(* * This file patches apparent errors with the predicates detecting if notefiles are open or 
not.)


(* * Change to NCDATABASE)


(DEFINEQ

(NC.NoteFileOpenP

  (LAMBDA (NoteFileOrFileName)                               (* rht: "14-Nov-86 21:49")


          (* * Is NoteFile an open NoteFile)




          (* * kef 7/21/86: Now just calls the device vector function.)




          (* * DVN 11/13/86 now checks to see that NoteFile is a true notefile rather than just a filename.)




          (* * rht 11/14/86: Changed arg name and syntax. Functionality should be the same.)



    (LET ((NoteFile (
COND

		      ((type?
 NoteFile NoteFileOrFileName)
			NoteFileOrFileName)
		      ((
INFILEP
 NoteFileOrFileName)
			(
NC.NoteFileFromFileName
 NoteFileOrFileName)))))
         (
AND
 (type?
 NoteFile NoteFile)
		(
APPLY*
 (fetch
 (NoteFile NoteFileOpenPFn) of
 NoteFile)
			  NoteFile)))))
)
(* * Change to NCPROGINT)


(DEFINEQ

(NCP.OpenNoteFileP

  [LAMBDA (NoteFile)                                         (* Newman "13-Nov-86 17:28")


          (* * Non-nil if NoteFile is an open notefile.)




          (* * rht 9/19/86: Fixed to return nil if notefile has no stream.)




          (* * dvn 11/13/86 Changed to call NC.NoteFileOpenP)



    (NC.NoteFileOpenP
 NoteFile])
)
(PUTPROPS DVNPATCH001 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (745 1553 (NC.NoteFileOpenP 755 . 1551)) (1586 1967 (NCP.OpenNoteFileP 1596 . 1965)))))
STOP