;;; -*- Mode: Lisp; Package: Macsyma -*-
;;; Translated code for LOCAL::MAX$DISK:[SHAREM]FEXPR.MC;18
;;; Written on 8/27/1984 14:32:28, from MACSYMA 302
;;; Translated for 176228

;;; TRANSL-AUTOLOAD version NIL
;;; TRANSS version 87 TRANSL version 1157 TRUTIL version 27
;;; TRANS1 version 108 TRANS2 version 39 TRANS3 version 50
;;; TRANS4 version 29 TRANS5 version 26 TRANSF version NIL
;;; TROPER version 15 TRPRED version 6 MTAGS version NIL
;;; MDEFUN version 58 TRANSQ version 88 FCALL version 40
;;; ACALL version 70 TRDATA version 68 MCOMPI version 146
;;; TRMODE version 75 TRHOOK version NIL
(eval-when (compile eval)
      (setq *infile-name-key*
	          (namestring (truename '#.standard-input))))

(eval-when (compile)
   (setq $tr_semicompile 'NIL)
   (setq forms-to-compile-queue ()))

(comment "MAX$DISK:[SHAREM]FEXPR.MC;18")

(DECLARE (SPECIAL $GENLIST $PIECE))
(DEF-MTRVAR $GENLIST (QUOTE $GENLIST) 1)

(DEFPROP $DEF T TRANSLATED)
(ADD2LNC (QUOTE $DEF) $PROPS)
(DEFMTRFUN ($DEF $ANY MDEFMACRO NIL NIL) ($FNINFO $BODY) NIL ((LAMBDA ($BVL $NAME $AUXNAME $VARS $VARSETS $QINFO $LEXPR $PIECE) NIL (SETQ $BVL (SIMPLIFY (MFUNCTION-CALL $ARGS $FNINFO))) (COND ((MFUNCTION-CALL $ATOM (SIMPLIFY (MFUNCTION-CALL $PART $FNINFO 0))) (SETQ $NAME $PIECE) (SETQ $AUXNAME (SIMPLIFY (MFUNCTION-CALL $CONCAT $PIECE (QUOTE &_AUX))))) (T (SETQ $NAME (SIMPLIFY (MFUNCTION-CALL $PART $PIECE 1))) (SETQ $AUXNAME (SIMPLIFY (MFUNCTION-CALL $PART $PIECE 2))))) (SIMPLIFY (MAP1 (GETOPR (MEVAL (QUOTE 
((LAMBDA) ((MLIST) $X) ((MCOND) (($ATOM) $X) ((MPROGN) ((MSETQ) $QINFO (($CONS) NIL $QINFO)) ((MSETQ) $VARS (($CONS) $X $VARS))) T ((MCOND) ((MEQUAL) (($PART) $X 0) |&'|) ((MPROGN) ((MSETQ) $QINFO (($CONS) T $QINFO)) ((MSETQ) $VARS (($CONS) (($PART) $X 1) $VARS))) T ((MCOND) ((MEQUAL) (($PART) $X 0) &[) ((MPROGN) ((MSETQ) $LEXPR T) ((MSETQ) $X (($PART) $X 1)) ((MCOND) (($ATOM) $X) ((MPROGN) ((MSETQ) $QINFO (($CONS) NIL $QINFO)) ((MSETQ) $VARS (($CONS) $X $VARS))) T ((MCOND) ((MEQUAL) (($PART) $X 0) |&'|) ((
MPROGN) ((MSETQ) $QINFO (($CONS) T $QINFO)) ((MSETQ) $VARS (($CONS) (($PART) $X 1) $VARS))) T (($ERROR) |&ILLEGAL FORM IN BVL -DEF|)))) T (($ERROR) |&ILLEGAL FORM IN BVL -DEF|)))))))) $BVL)) (SETQ $BVL $VARS) (SETQ $GENLIST $VARS) (SETQ $VARSETS $VARS) (COND ((IS-BOOLE-CHECK $LEXPR) (SETQ $BVL (SIMPLIFY (MFUNCTION-CALL $CONS (LIST (QUOTE (MLIST)) (SIMPLIFY (MFUNCTION-CALL $PART $BVL 1))) (SIMPLIFY (MFUNCTION-CALL $REST $BVL))))) (COND ((LIKE (MARRAYREF $QINFO 1) T) (SETQ $QINFO (SIMPLIFY (MFUNCTION-CALL $CO
NS NIL (SIMPLIFY (MFUNCTION-CALL $REST $QINFO))))) (SETQ $VARSETS (SIMPLIFY (MFUNCTION-CALL $CONS (MBUILDQ-SUBST (LIST (CONS (QUOTE $V) (MARRAYREF (TRD-MSYMEVAL $GENLIST (QUOTE $GENLIST)) 1))) (QUOTE ((MSETQ) $V (($MAP) ((LAMBDA) ((MLIST) $X) (($FUNMAKE) |&'| ((MLIST) $X))) $V)))) (SIMPLIFY (MFUNCTION-CALL $REST $VARSETS))))))) (SETQ $GENLIST (SIMPLIFY (MFUNCTION-CALL $CONS (SIMPLIFY (MFUNCTION-CALL $FUNMAKE (QUOTE $SPLICE) (LIST (QUOTE (MLIST)) (SIMPLIFY (MFUNCTION-CALL $PART (TRD-MSYMEVAL $GENLIST (QUOTE 
$GENLIST)) 1))))) (SIMPLIFY (MFUNCTION-CALL $REST (TRD-MSYMEVAL $GENLIST (QUOTE $GENLIST))))))))) (SETQ $GENLIST (SIMPLIFY (MAP1 (GETOPR (M-TLAMBDA ($X $Y) NIL (COND ((IS-BOOLE-CHECK $X) (SIMPLIFY (MFUNCTION-CALL $FUNMAKE (QUOTE |&'|) (LIST (QUOTE (MLIST)) $Y)))) (T $Y)))) $QINFO (TRD-MSYMEVAL $GENLIST (QUOTE $GENLIST))))) (SETQ $QINFO (SIMPLIFY (MFUNCTION-CALL $REVERSE $QINFO))) (SETQ $BVL (SIMPLIFY (MFUNCTION-CALL $REVERSE $BVL))) (SETQ $VARS (SIMPLIFY (MFUNCTION-CALL $REVERSE $VARS))) (SETQ $GENLIST (SIM
PLIFY (MFUNCTION-CALL $REVERSE (TRD-MSYMEVAL $GENLIST (QUOTE $GENLIST))))) (MBUILDQ-SUBST (LIST (CONS (QUOTE $NAME) $NAME) (CONS (QUOTE $AUXNAME) $AUXNAME) (CONS (QUOTE $VARS) $VARS) (CONS (QUOTE $GENLIST) (TRD-MSYMEVAL $GENLIST (QUOTE $GENLIST))) (CONS (QUOTE $BODY) $BODY) (CONS (QUOTE $BVL) $BVL) (CONS (QUOTE $VARSETS) $VARSETS)) (QUOTE ((MPROGN) ((MDEFMACRO) (($NAME) (($SPLICE) $BVL)) (($BUILDQ) ((MLIST) (($SPLICE) $VARSETS)) (($AUXNAME) (($SPLICE) $GENLIST)))) ((MDEFINE) (($AUXNAME) (($SPLICE) $BVL)) $B
ODY) ((MLIST) ((MQUOTE) $NAME) ((MQUOTE) $AUXNAME)))))) (QUOTE $BVL) (QUOTE $NAME) (QUOTE $AUXNAME) (QUOTE ((MLIST))) (QUOTE $VARSETS) (QUOTE ((MLIST))) NIL (QUOTE $PIECE)))

(compile-forms-to-compile-queue)