;;; -*- Mode: Lisp; Package: Macsyma -*-
;;; Translated code for LOCAL::MAX$DISK:[SHAREM]PACKG.MC;9
;;; Written on 8/27/1984 13:44:24, 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]PACKG.MC;9")

(DECLARE (SPECIAL $LOADPRINT $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED))
(DEF-MTRVAR $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED (QUOTE $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED) 1)
(DEF-MTRVAR $LOADPRINT (QUOTE $LOADPRINT) 1)
(PUTPROP (QUOTE MAPLIST_TR) (OR (GET (QUOTE MARRAYREF) (QUOTE AUTOLOAD)) T) (QUOTE AUTOLOAD))

(DEFPROP $HERALD_PACKAGE T TRANSLATED)
(ADD2LNC (QUOTE $HERALD_PACKAGE) $PROPS)
(DEFMTRFUN ($HERALD_PACKAGE $ANY MDEFMACRO NIL NIL) ($NAME) NIL (MBUILDQ-SUBST (LIST (CONS (QUOTE $NAME) $NAME) (CONS (QUOTE $VERSION_NO) (COND ((NOT (LIKE (TRD-MSYMEVAL $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED (QUOTE $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED)) NIL)) (SIMPLIFY (MFUNCTION-CALL PATHNAME-VERSION (TRD-MSYMEVAL $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED (QUOTE $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED))))) (T (QUOTE |&VERSION UNKNOWN|))))) (QUOTE ((MPROGN) ((MCOND) $LOADPRINT (($PRINT) ((MQUOTE) $NAME) |&so
urce| ((MQUOTE) $VERSION_NO)) T $FALSE) (($PUT) ((MQUOTE) $NAME) ((MQUOTE) $VERSION_NO) ((MQUOTE) $VERSION))))))
(COND ((IS-BOOLE-CHECK (TRD-MSYMEVAL $LOADPRINT (QUOTE $LOADPRINT))) (SIMPLIFY (MFUNCTION-CALL $PRINT (QUOTE $PACKG) (QUOTE |&source|) (QUOTE 9)))))
(SIMPLIFY (MFUNCTION-CALL $PUT (QUOTE $PACKG) (QUOTE 9) (QUOTE $VERSION)))
(DEFPROP $LOAD_PACKAGE T TRANSLATED)
(ADD2LNC (QUOTE $LOAD_PACKAGE) $PROPS)
(DEFMTRFUN ($LOAD_PACKAGE $ANY MDEFMACRO NIL NIL) ($NAME $FILE_NAME) NIL (MBUILDQ-SUBST (LIST (CONS (QUOTE $NAME) $NAME) (CONS (QUOTE $FILE_NAME) $FILE_NAME)) (QUOTE ((MCOND) ((MEQUAL) (($GET) ((MQUOTE) $NAME) ((MQUOTE) $VERSION)) NIL) (($LOAD) $FILE_NAME) T $FALSE))))
(DEFPROP $SETUP_AUTOLOAD_MACRO T TRANSLATED)
(ADD2LNC (QUOTE $SETUP_AUTOLOAD_MACRO) $PROPS)
(DEFMTRFUN ($SETUP_AUTOLOAD_MACRO $ANY MDEFMACRO T NIL) ($FILENAME $L) NIL (MBUILDQ-SUBST (LIST (CONS (QUOTE $PROPSETS) (MAPLIST_TR (M-TLAMBDA ($U) NIL (MBUILDQ-SUBST (LIST (CONS (QUOTE $U) $U)) (QUOTE (($PUT) ((MQUOTE) $U) T ((MQUOTE) $TRANSLOAD))))) $L)) (CONS (QUOTE $FILENAME) $FILENAME) (CONS (QUOTE $L) $L)) (QUOTE ((MPROGN) (($SETUP_AUTOLOAD) $FILENAME (($SPLICE) $L)) (($SPLICE) $PROPSETS)))))

(compile-forms-to-compile-queue)