(FILECREATED "29-AUG-73 19:03:01" DWIMMACRO)


  (LISPXPRINT (QUOTE DWIMMACROVARS)
              T)
  [RPAQQ DWIMMACROVARS ((FNS DWIMUSERFN)
          (VARS (DWIMUSERFN T]
(DEFINEQ

(DWIMUSERFN
  [LAMBDA NIL
    (AND (NOT FAULTAPPLYFLG)
         (LISTP FAULTX)
         (LITATOM (CAR FAULTX))
         (NOT (FGETD (CAR FAULTX)))
         (PROG [(MACVAL (GETP (CAR FAULTX)
                              (QUOTE MACRO]
               (AND MACVAL (NOT (EDITFINDP MACVAL (QUOTE ASSEMBLE)))
                    [CLISPTRAN FAULTX
                               (COND
                                 ((FMEMB (CAR MACVAL)
                                         (QUOTE [LAMBDA NLAMBDA]))
                                   (CONS MACVAL (CDR FAULTX)))
                                 [(AND (CAR MACVAL)
                                       (ATOM (CAR MACVAL)))
                                   (EVALA (CADR MACVAL)
                                          (LIST (CONS (CAR MACVAL)
                                                      (CDR FAULTX]
                                 (T (SUBPAIR (CAR MACVAL)
                                             (CDR FAULTX)
                                             (CADR MACVAL]
                    (RETURN FAULTX])
)
  (RPAQ DWIMUSERFN T)
STOP