(FILECREATED "14-Jan-86 10:47:35" {DANTE}<RCLARKE>MODEL>RESETMACROS.;2
 3390   

      changes to:  (MACROS RESETFORM1 RESETSAVE1 RESETFORM2 RESETSAVE2 RESETFORM3 RESETSAVE3)
		   (VARS RESETMACROSCOMS)
		   (PROPS (RESETFORM1 INFO)
			  (RESETSAVE1 INFO)
			  (RESETFORM2 INFO)
			  (RESETSAVE2 INFO)
			  (RESETFORM3 INFO)
			  (RESETSAVE3 INFO))

      previous date: "15-Dec-85 13:05:27" {DANTE}<RCLARKE>MODEL>RESETMACROS.;1)


(PRETTYCOMPRINT RESETMACROSCOMS)

(RPAQQ RESETMACROSCOMS
 ((* * Variations on RESETFORM)
			  (* RESETFORM1 and RESETSAVE1 are versions that work with functions having 
			     more than one argument, where the first specifies the new state
			     (e.g., most DSP functions)
			     - WARNING: the other arguments will be evaluated twice -- once in the 
			     evaluation of the resetform and once during restoration. This might 
			     cause problems if those arguments have side effects. - The other RESET 
			     macros are similar, with the integer in their name indicating which of 
			     the many arguments specifies the new value. For instance, RESETSAVE2 is 
			     useful with SETSYNTAX and RESETSAVE3 with WINDOWPROP.)
			  (MACROS RESETFORM1 RESETSAVE1 RESETFORM2 RESETSAVE2 RESETFORM3 RESETSAVE3)
			  (PROP INFO RESETFORM1 RESETSAVE1 RESETFORM2 RESETSAVE2 RESETFORM3 
				RESETSAVE3)))
(* * Variations on RESETFORM)





(* RESETFORM1 and RESETSAVE1 are versions that work with functions having more than one 
argument, where the first specifies the new state (e.g., most DSP functions) - WARNING: the 
other arguments will be evaluated twice -- once in the evaluation of the resetform and once 
during restoration. This might cause problems if those arguments have side effects. - The other
 RESET macros are similar, with the integer in their name indicating which of the many 
arguments specifies the new value. For instance, RESETSAVE2 is useful with SETSYNTAX and 
RESETSAVE3 with WINDOWPROP.)


(DECLARE: EVAL@COMPILE 
[PUTPROPS RESETFORM1 MACRO (ARGS (CONS (QUOTE RESETLST)
				       (CONS (LIST (QUOTE RESETSAVE1)
						   (CAR ARGS))
					     (CDR ARGS]
[PUTPROPS RESETSAVE1 MACRO (ARGS (LIST (QUOTE RESETSAVE)
				       (CAR ARGS)
				       (KWOTE (LIST (QUOTE PROGN)
						    (CONS (CAAR ARGS)
							  (CONS (QUOTE OLDVALUE)
								(CDDAR ARGS]
[PUTPROPS RESETFORM2 MACRO (ARGS (CONS (QUOTE RESETLST)
				       (CONS (LIST (QUOTE RESETSAVE2)
						   (CAR ARGS))
					     (CDR ARGS]
[PUTPROPS RESETSAVE2 MACRO (ARGS (LIST (QUOTE RESETSAVE)
				       (CAR ARGS)
				       (KWOTE (LIST (QUOTE PROGN)
						    (CONS (CAAR ARGS)
							  (CONS (CADAR ARGS)
								(CONS (QUOTE OLDVALUE)
								      (CDDDR (CAR ARGS]
[PUTPROPS RESETFORM3 MACRO (ARGS (CONS (QUOTE RESETLST)
				       (CONS (LIST (QUOTE RESETSAVE3)
						   (CAR ARGS))
					     (CDR ARGS]
[PUTPROPS RESETSAVE3 MACRO
	  (ARGS (LIST (QUOTE RESETSAVE)
		      (CAR ARGS)
		      (KWOTE (LIST (QUOTE PROGN)
				   (CONS (CAAR ARGS)
					 (CONS (CADAR ARGS)
					       (CONS (CADDAR ARGS)
						     (CONS (QUOTE OLDVALUE)
							   (CDDDDR (CAR ARGS]
)

(PUTPROPS RESETFORM1 INFO
 EVAL)

(PUTPROPS RESETSAVE1 INFO
 EVAL)

(PUTPROPS RESETFORM2 INFO
 EVAL)

(PUTPROPS RESETSAVE2 INFO
 EVAL)

(PUTPROPS RESETFORM3 INFO
 EVAL)

(PUTPROPS RESETSAVE3 INFO
 EVAL)
(PUTPROPS RESETMACROS COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP