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

(FILECREATED "24-Oct-88 13:58:44" {QV}<NOTECARDS>1.3LNEXT>RARPATCH051.;1
 1235   

      changes to%:  (VARS RARPATCH051COMS)
                    (FNS NCP.ValidNoteFileP))


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

(PRETTYCOMPRINT RARPATCH051COMS)

(RPAQQ RARPATCH051COMS
 (
                        (* ;; "rar 10/24/88   A new function for the NC Programmer's interface. Tests if a notefile is a valid one (is one the list of notefiles from NC.ListOfNoteFiles")


                        
                        (* ;; "Add to NCPROGINT")


                        (FNS NCP.ValidNoteFileP)))



(* ;; 
"rar 10/24/88   A new function for the NC Programmer's interface. Tests if a notefile is a valid one (is one the list of notefiles from NC.ListOfNoteFiles"
)





(* ;; "Add to NCPROGINT")


(DEFINEQ

(NCP.ValidNoteFileP

  [LAMBDA (noteFile)
                                         (* ; "Edited 24-Oct-88 13:43 by RAR")


    (* ;; "Is the notefile on the list of notefiles?")


    (FMEMB noteFile (NC.ListOfNoteFiles])
)
(PUTPROPS RARPATCH051 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (907 1152 (NCP.ValidNoteFileP 917 . 1150)))))
STOP