(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")
(FILECREATED "30-Dec-87 12:29:28" ("compiled on " {QV}<NOTECARDS>1.3LNEXT>RHTPATCH299.;6) 
"27-Apr-87 16:48:49" tcompl'd in "Xerox Lisp  3-Nov-87 ..." dated " 3-Nov-87 16:56:41")
(FILECREATED "30-Dec-87 12:29:21" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH299.;6 1542 changes to%: (ADVICE (
TTYDISPLAYSTREAM :IN TEDIT.GET)) (VARS RHTPATCH299COMS) previous date%: "30-Dec-87 11:40:17" 
{QV}<NOTECARDS>1.3LNEXT>RHTPATCH299.;4)
(PRETTYCOMPRINT RHTPATCH299COMS)
(RPAQQ RHTPATCH299COMS ((DECLARE%: DONTCOPY (PROPS (RHTPATCH299 MAKEFILE-ENVIRONMENT) (RHTPATCH299 
FILETYPE))) (* ;; "Fixes promptwindow problem in TEDIT.GET (from TEDITFILE)") (* ;; 
"Addition for LYRICTEDITPATCHES") (ADVISE (TTYDISPLAYSTREAM :IN TEDIT.GET))))
(XCL:REINSTALL-ADVICE (QUOTE (TTYDISPLAYSTREAM :IN TEDIT.GET)) :BEFORE (QUOTE ((:LAST (if (NOT (
WINDOWP (fetch (TEXTOBJ PROMPTWINDOW) of TEXTOBJ))) then (RETURN NIL))))))
(READVISE (TTYDISPLAYSTREAM :IN TEDIT.GET))
(PUTPROPS RHTPATCH299 COPYRIGHT ("Xerox Corporation" 1987))
NIL