(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")
(FILECREATED "18-Jan-88 16:26:24" ("compiled on " {QV}<NOTECARDS>1.3LNEXT>PMIPATCH078.;1)
"27-Apr-87 16:48:49" tcompl'd in "Xerox Lisp 3-Nov-87 ..." dated " 3-Nov-87 16:56:41")
(FILECREATED "18-Jan-88 16:26:04" {QV}<NOTECARDS>1.3LNEXT>PMIPATCH078.;1 2147 changes to%: (VARS
PMIPATCH078COMS))
NCP.CoerceToInterestedWindow :D4
(I 0 WinOrCardOrNoteFile) @ (3 NC.CoerceToInterestedWindow)
NIL
()
NCP.NewCardP :D4
(I 0 Card) @ (3 NC.FetchNewCardFlg)
NIL
()
NCP.NoteFileAddProp :D4
(I 2 NEWVALUE I 1 PROP I 0 NoteFile) @AB (5 NC.NoteFileAddProp)
NIL
()
(PRETTYCOMPRINT PMIPATCH078COMS)
(RPAQQ PMIPATCH078COMS ((DECLARE%: DONTCOPY (PROPS (PMIPATCH078 MAKEFILE-ENVIRONMENT) (PMIPATCH078
FILETYPE))) (* ;;
"pmi 1/15/88: A few programmer's interface functions that I needed for History card hacking, and thought would be of general interest:"
) (* ;; "New for NCPROGINT") (FNS NCP.CoerceToInterestedWindow NCP.NewCardP NCP.NoteFileAddProp)))
(PUTPROPS PMIPATCH078 COPYRIGHT ("Xerox Corporation" 1988))
NIL