(FILECREATED "15-Nov-85 12:36:06" {ERIS}<LISPCORE>DOVE>DOVEMOUSEPATCH.;1
 584    

      changes to:  (VARS DOVEMOUSEPATCHCOMS)
		   (FNS UNSTICKMOUSE))


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

(PRETTYCOMPRINT DOVEMOUSEPATCHCOMS)

(RPAQQ DOVEMOUSEPATCHCOMS
 ((FNS UNSTICKMOUSE)))
(DEFINEQ

(UNSTICKMOUSE

  (LAMBDA NIL                                                (* ejs: "15-Nov-85 12:35")

    (
\PUTBASE
 \EM.REALUTILIN 0 65535)
    "Try it now."))
)
(PUTPROPS DOVEMOUSEPATCH COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (316 499 (UNSTICKMOUSE 326 . 497)))))
STOP