archive/share/lisp/packg.lisp

   1 ;;; -*- Mode: Lisp; Package: Macsyma -*-
   2 ;;; Translated code for LOCAL::MAX$DISK:[SHAREM]PACKG.MC;9
   3 ;;; Written on 8/27/1984 13:44:24, from MACSYMA 302
   4 ;;; Translated for 176228
   5
   6 ;;; TRANSL-AUTOLOAD version NIL
   7 ;;; TRANSS version 87 TRANSL version 1157 TRUTIL version 27
   8 ;;; TRANS1 version 108 TRANS2 version 39 TRANS3 version 50
   9 ;;; TRANS4 version 29 TRANS5 version 26 TRANSF version NIL
  10 ;;; TROPER version 15 TRPRED version 6 MTAGS version NIL
  11 ;;; MDEFUN version 58 TRANSQ version 88 FCALL version 40
  12 ;;; ACALL version 70 TRDATA version 68 MCOMPI version 146
  13 ;;; TRMODE version 75 TRHOOK version NIL
  14 (eval-when (compile eval)
  15       (setq *infile-name-key*
  16                   (namestring (truename '#.standard-input))))
  17
  18 (eval-when (compile)
  19    (setq $tr_semicompile 'NIL)
  20    (setq forms-to-compile-queue ()))
  21
  22 (comment "MAX$DISK:[SHAREM]PACKG.MC;9")
  23
  24 (DECLARE (SPECIAL $LOADPRINT $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED))
  25 (DEF-MTRVAR $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED (QUOTE $TR_TRUE_NAME_OF_FILE_BEING_TRANSLATED) 1)
  26 (DEF-MTRVAR $LOADPRINT (QUOTE $LOADPRINT) 1)
  27 (PUTPROP (QUOTE MAPLIST_TR) (OR (GET (QUOTE MARRAYREF) (QUOTE AUTOLOAD)) T) (QUOTE AUTOLOAD))
  28
  29 (DEFPROP $HERALD_PACKAGE T TRANSLATED)
  30 (ADD2LNC (QUOTE $HERALD_PACKAGE) $PROPS)
  31 (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
  32 urce| ((MQUOTE) $VERSION_NO)) T $FALSE) (($PUT) ((MQUOTE) $NAME) ((MQUOTE) $VERSION_NO) ((MQUOTE) $VERSION))))))
  33 (COND ((IS-BOOLE-CHECK (TRD-MSYMEVAL $LOADPRINT (QUOTE $LOADPRINT))) (SIMPLIFY (MFUNCTION-CALL $PRINT (QUOTE $PACKG) (QUOTE |&source|) (QUOTE 9)))))
  34 (SIMPLIFY (MFUNCTION-CALL $PUT (QUOTE $PACKG) (QUOTE 9) (QUOTE $VERSION)))
  35 (DEFPROP $LOAD_PACKAGE T TRANSLATED)
  36 (ADD2LNC (QUOTE $LOAD_PACKAGE) $PROPS)
  37 (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))))
  38 (DEFPROP $SETUP_AUTOLOAD_MACRO T TRANSLATED)
  39 (ADD2LNC (QUOTE $SETUP_AUTOLOAD_MACRO) $PROPS)
  40 (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)))))
  41
  42 (compile-forms-to-compile-queue)
  43