(FILECREATED "18-Jun-86 12:15:29" {ERIS}<PROLOGCORE>PATCHES>REMOVEPROMPTWINDOW.;1
 1067   

      changes to:  (VARS REMOVEPROMPTWINDOWCOMS)
                   (FNS REMOVEPROMPTWINDOW))


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

(PRETTYCOMPRINT REMOVEPROMPTWINDOWCOMS)

(RPAQQ REMOVEPROMPTWINDOWCOMS
 ((FNS REMOVEPROMPTWINDOW)))
(DEFINEQ

(REMOVEPROMPTWINDOW

  [LAMBDA (MAINWINDOW)
                                       (* rrb "23-Oct-85 13:56")

    (PROG (PWINDOW)
      LP  [COND
             ((SETQ PWINDOW (WINDOWPROP MAINWINDOW (QUOTE PROMPTWINDOW)
                                   NIL))
              (WINDOWDELPROP (SETQ PWINDOW (CAR PWINDOW))
                     (QUOTE OPENFN)
                     (FUNCTION \PROMPTWINDOW.OPENFN))
              (DETACHWINDOW PWINDOW)
              (RETURN (CLOSEW PWINDOW]
          (COND
             ((NEQ MAINWINDOW (SETQ MAINWINDOW (MAINWINDOW MAINWINDOW)))
              (GO LP])
)
(PUTPROPS REMOVEPROMPTWINDOW COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (363 978 (REMOVEPROMPTWINDOW 373 . 976)))))
STOP