;;; -*- Mode: Lisp; Package: Macsyma -*-
;;; Translated code for LOCAL::MAX$DISK:[SHAREM]BASIC.MC;6
;;; Written on 8/27/1984 15:18:26, 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]BASIC.MC;6")

(DECLARE (SPECIAL $LOADPRINT))
(DEF-MTRVAR $LOADPRINT (QUOTE $LOADPRINT) 1)
(DEFMTRFUN-EXTERNAL ($SYMBOLCHECK $ANY MDEFINE NIL NIL))

(COND ((IS-BOOLE-CHECK (TRD-MSYMEVAL $LOADPRINT (QUOTE $LOADPRINT))) (SIMPLIFY (MFUNCTION-CALL $PRINT (QUOTE $BASIC) (QUOTE |&source|) (QUOTE 6)))))
(SIMPLIFY (MFUNCTION-CALL $PUT (QUOTE $BASIC) (QUOTE 6) (QUOTE $VERSION)))
(DEFPROP $PROG1 T TRANSLATED)
(ADD2LNC (QUOTE $PROG1) $PROPS)
(DEFMTRFUN ($PROG1 $ANY MDEFMACRO T NIL) ($STATEMENT1 $STATEMENTS) NIL (MBUILDQ-SUBST (LIST (CONS (QUOTE $STATEMENT1) $STATEMENT1) (CONS (QUOTE $STATEMENTS) $STATEMENTS) (CONS (QUOTE $LOCAL) (SIMPLIFY (MFUNCTION-CALL GENTEMP)))) (QUOTE ((MQAPPLY) ((LAMBDA) ((MLIST) $LOCAL) (($SPLICE) $STATEMENTS) $LOCAL) $STATEMENT1))))
(DEFPROP $SYMBOLCHECK T TRANSLATED)
(ADD2LNC (QUOTE $SYMBOLCHECK) $PROPS)
(DEFMTRFUN ($SYMBOLCHECK $ANY MDEFINE NIL NIL) ($X) NIL (COND ((MFUNCTION-CALL $SYMBOLP $X) $X) (T (SIMPLIFY (MFUNCTION-CALL $ERROR (QUOTE |&Arg must be a symbol|) $X)))))
(DEFPROP $PUSH T TRANSLATED)
(ADD2LNC (QUOTE $PUSH) $PROPS)
(DEFMTRFUN ($PUSH $ANY MDEFMACRO NIL NIL) ($C $L) NIL (PROGN (SIMPLIFY ($SYMBOLCHECK $L)) (MBUILDQ-SUBST (LIST (CONS (QUOTE $C) $C) (CONS (QUOTE $L) $L)) (QUOTE ((MSETQ) $L (($CONS) $C $L))))))
(DEFPROP $POP T TRANSLATED)
(ADD2LNC (QUOTE $POP) $PROPS)
(DEFMTRFUN ($POP $ANY MDEFMACRO NIL NIL) ($L) NIL (PROGN (SIMPLIFY ($SYMBOLCHECK $L)) (MBUILDQ-SUBST (LIST (CONS (QUOTE $L) $L)) (QUOTE (($PROG1) (($FIRST) $L) ((MSETQ) $L (($REST) $L)))))))
(DEFPROP $TR_EV T TRANSLATED)
(ADD2LNC (QUOTE $TR_EV) $PROPS)
(DEFMTRFUN ($TR_EV $ANY MDEFMACRO NIL NIL) ($X) NIL (MBUILDQ-SUBST (LIST (CONS (QUOTE $X) $X)) (QUOTE ((MEVAL) $X))))

(compile-forms-to-compile-queue)