archive/share/lisp/autolo.lisp

   1 ;;; -*- Mode: Lisp; Package: Macsyma -*-
   2 ;;; Translated code for LOCAL::MAX$DISK:[SHAREM]AUTOLO.MC;12
   3 ;;; Written on 9/07/1984 08:05:33, 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]AUTOLO.MC;12")
  23
  24 ;;; General declarations required for translated MACSYMA code.
  25
  26 (DECLARE (SPECIAL $LOADPRINT))
  27
  28 (DEF-MTRVAR $LOADPRINT '$LOADPRINT 1)
  29
  30
  31 (COND ((IS-BOOLE-CHECK (TRD-MSYMEVAL $LOADPRINT '$LOADPRINT))
  32          (SIMPLIFY (MFUNCTION-CALL $PRINT '$SHAREM '|&source| '12))))
  33
  34 (SIMPLIFY (MFUNCTION-CALL $PUT '$SHAREM '12 '$VERSION))
  35
  36 (MEVAL '(($SETUP_AUTOLOAD) |&MAX$DISK:[SHAREM]BASIC|
  37          $PROG1 $PUSH $POP $TR_EV $SYMBOLCHECK))
  38
  39 (SIMPLIFY (MFUNCTION-CALL $PUT '$PROG1 T '$TRANSLOAD))
  40
  41 (SIMPLIFY (MFUNCTION-CALL $PUT '$PUSH T '$TRANSLOAD))
  42
  43 (SIMPLIFY (MFUNCTION-CALL $PUT '$POP T '$TRANSLOAD))
  44
  45 (SIMPLIFY (MFUNCTION-CALL $PUT '$TR_EV T '$TRANSLOAD))
  46
  47 (SIMPLIFY (MFUNCTION-CALL $PUT '$SYMBOLCHECK T '$TRANSLOAD))
  48
  49 (MEVAL '(($SETUP_AUTOLOAD) |&MAX$DISK:[SHAREM]DEFM| $DEFM))
  50
  51 (SIMPLIFY (MFUNCTION-CALL $PUT '$DEFM T '$TRANSLOAD))
  52
  53 (MEVAL '(($SETUP_AUTOLOAD) |&MAX$DISK:[SHAREM]KEYARG| $DEF_KEYARG))
  54
  55 (SIMPLIFY (MFUNCTION-CALL $PUT '$DEF_KEYARG T '$TRANSLOAD))
  56
  57 (MEVAL '(($SETUP_AUTOLOAD) |&MAX$DISK:[SHAREM]CONTRL| $COND $CASEQ))
  58
  59 (SIMPLIFY (MFUNCTION-CALL $PUT '$COND T '$TRANSLOAD))
  60
  61 (SIMPLIFY (MFUNCTION-CALL $PUT '$CASEQ T '$TRANSLOAD))
  62
  63 (MEVAL '(($SETUP_AUTOLOAD) |&MAX$DISK:[SHAREM]DEFSTM| $DEF_STRUCTURE
  64          $%AUX_CONSTRUCTOR% $%AUX_ALTERANT% $INITIALIZE_STRUCTURE_LIST))
  65
  66 (SIMPLIFY (MFUNCTION-CALL $PUT '$DEF_STRUCTURE T '$TRANSLOAD))
  67
  68 (SIMPLIFY (MFUNCTION-CALL $PUT '$%AUX_CONSTRUCTOR% T '$TRANSLOAD))
  69
  70 (SIMPLIFY (MFUNCTION-CALL $PUT '$%AUX_ALTERANT% T '$TRANSLOAD))
  71
  72 (SIMPLIFY (MFUNCTION-CALL $PUT '$INITIALIZE_STRUCTURE_LIST T '$TRANSLOAD))
  73
  74 (MEVAL '(($SETUP_AUTOLOAD) |&MAX$DISK:[SHAREM]FEXPR| $DEF))
  75
  76 (SIMPLIFY (MFUNCTION-CALL $PUT '$DEF T '$TRANSLOAD))
  77
  78 (compile-forms-to-compile-queue)
  79