(FILECREATED " 6-Mar-85 15:19:33" {PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>MOUSECONFIRM.;1
 709    

      changes to:  (VARS MOUSECONFIRMCOMS)
		   (FNS CONFIRM))


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

(PRETTYCOMPRINT MOUSECONFIRMCOMS)

(RPAQQ MOUSECONFIRMCOMS
 ((FNS CONFIRM)))
(DEFINEQ

(CONFIRM

  [LAMBDA (MESSAGE ONLY.IF.BEING.CAREFUL)                    (* N.H.Briggs " 6-Mar-85 15:15")

    (DECLARE
 (
GLOBALVARS
 TRILLIUM.BEING.CAREFUL))
    (
COND

      ((
AND
 ONLY.IF.BEING.CAREFUL (
NOT
 TRILLIUM.BEING.CAREFUL))
	T)
      (T (
MOUSECONFIRM
 MESSAGE])
)
(PUTPROPS MOUSECONFIRM COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (319 626 (CONFIRM 329 . 624)))))
STOP