(FILECREATED "14-Jan-86 10:48:27" ("compiled on " {DANTE}<RCLARKE>MODEL>RESETMACROS.;2) 
"12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58")
(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)))
(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))
NIL