;;; -*- Mode: Lisp; Package: Macsyma -*-
;;; Translated code for DSK:SHARE2;DISOL 9
;;; Written on "Monday, Sep 12, 1983  5:28pm", from MACSYMA 304
;;; Translated for ASB

;;; TRANSL-AUTOLOAD version by GJC0 on MONDAY, July 4, 1983, at 1:49:49
;;; TRHOOK version 5 TRMODE version 73 DCL version 5/29/82 8:19:42
;;; MCOMPI version NIL TRDATA version 68 ACALL version NIL
;;; FCALL version NIL TRANSQ version NIL MDEFUN version NIL
;;; MTAGS version NIL TRPRED version 6 TROPER version NIL
;;; TRANSF version NIL TRANS5 version 25 TRANS4 version NIL
;;; TRANS3 version 46 TRANS2 version 39 TRANS1 version 108
;;; TRUTIL version 26 TRANSL version 1157 TRANSS version 80
(includef (cond ((status feature ITS) '|DSK:LIBMAX;TPRELU >|)
                ((status feature Multics) '|translate|)
                ((status feature Unix) '|libmax/tprelu.l|)
                (t (error '|Unknown system, see GJC@MIT-MC|))))

(eval-when (compile eval)
  (or (status feature lispm)
      (setq *infile-name-key*
               ((lambda (file-name)
                           ;; temp crock for multics.
                          (cond ((eq (typep file-name) 'list)
                                 (namestring file-name))
                                (t file-name)))
                  (truename infile)))))

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

(comment |DSK:SHARE2;DISOL 9|)

(PROGN
(DECLARE (*LEXPR $ERROR $INPART) (SPECIAL $DISPFLAG $LINECHAR $ISOLATE_WRT_TIMES $INFLAG $PIECE $PARTSWITCH $IFORP)))
(PROGN
(DECLARE (SPECIAL $IFORP)))
(PROGN
(DEFMTRFUN-EXTERNAL ($DISOLATE $ANY MDEFINE T NIL)))
(PROGN
(DEF-MTRVAR $ISOLATE_WRT_TIMES (QUOTE $ISOLATE_WRT_TIMES) 1.))
(PROGN
(DEFMTRFUN-EXTERNAL ($DISOLATE1 $ANY MDEFINE NIL NIL)))
(PROGN
(DEFMTRFUN-EXTERNAL ($NOT_ATOM_ELABEL $ANY MDEFINE NIL NIL)))
(PROGN
(DEFMTRFUN-EXTERNAL ($DISOLATE2 $ANY MDEFINE NIL NIL)))
(PROGN
(DEF-MTRVAR $LINECHAR (QUOTE $LINECHAR) 1.))
(PROGN
(DEF-MTRVAR $DISPFLAG (QUOTE $DISPFLAG) 1.))
(PROGN
(DEFMTRFUN-EXTERNAL ($ELABEL $ANY MDEFINE NIL NIL)))



(PROGN
(SIMPLIFY ($PUT (QUOTE $DISOL) 9. (QUOTE $VERSION))))

(PROGN
(MEVAL* (QUOTE (($MODEDECLARE) $IFORP $BOOLEAN))))
(PROGN
(MEVAL* (QUOTE (($DECLARE) $IFORP $SPECIAL))))
(PROGN
(DEFPROP $IFORP ASSIGN-MODE-CHECK ASSIGN))
(PROGN
(DEF-MTRVAR $IFORP NIL))

(PROGN
(COND ((LIKE (SIMPLIFY ($GET (QUOTE $GNAUTO) (QUOTE $VERSION))) NIL) (COND ((LIKE ($STATUS $FEATURE $ITS) T) (MEVAL (QUOTE (($SETUP_AUTOLOAD) ((MLIST) $GENUT $FASL $DSK $DGVAL) $ORPARTITIONL $FREEOFL)))) ((LIKE ($STATUS $FEATURE $UNIX) T) (MEVAL (QUOTE (($SETUP_AUTOLOAD) $GENUT $ORPARTITIONL $FREEOFL)))) (T (SIMPLIFY ($ERROR (QUOTE |&Unknown System.|))))))))

(PROGN
(DEFPROP $DISOLATE T TRANSLATED))
(PROGN
(ADD2LNC (QUOTE $DISOLATE) $PROPS))
(PROGN
(DEFMTRFUN ($DISOLATE $ANY MDEFINE T NIL) ($EXP $ORIG_ISO_LIST) NIL ((LAMBDA ($PARTSWITCH $IFORP $PIECE $INFLAG) NIL (ASSIGN-MODE-CHECK (QUOTE $IFORP) $IFORP) (SIMPLIFY (MFUNCTION-CALL $DISOLATE1 $EXP $ORIG_ISO_LIST))) T T (QUOTE $PIECE) T)))

(PROGN
(DEFPROP $DISOLATE1 T TRANSLATED))
(PROGN
(ADD2LNC (QUOTE $DISOLATE1) $PROPS))
(PROGN
(DEFMTRFUN ($DISOLATE1 $ANY MDEFINE NIL NIL) ($EXP $VARLIST) NIL ((LAMBDA ($IP0DUM) NIL (PROG NIL (COND ((LIKE $VARLIST (QUOTE ((MLIST)))) (RETURN $EXP))) (COND ((MFUNCTION-CALL $FREEOFL $VARLIST $EXP) (RETURN (SIMPLIFY (MFUNCTION-CALL $NOT_ATOM_ELABEL $EXP))))) (COND ((OR ($MEMBER $EXP $VARLIST) ($MEMBER $IP0DUM $VARLIST)) (RETURN $EXP))) (RETURN (COND ((LIKE $IP0DUM (QUOTE &*)) (COND ((IS-BOOLE-CHECK (TRD-MSYMEVAL $ISOLATE_WRT_TIMES (QUOTE $ISOLATE_WRT_TIMES))) (SIMPLIFY (MFUNCTION-CALL $DISOLATE2 (QUOTE &*) $EXP $VARLIST))) (T (SIMPLIFY (MAP1 (GETOPR (M-TLAMBDA&ENV (($DUM) ($VARLIST)) NIL (SIMPLIFY (MFUNCTION-CALL $DISOLATE1 $DUM $VARLIST)))) $EXP))))) ((LIKE $IP0DUM (QUOTE &+)) (SIMPLIFY (MFUNCTION-CALL $DISOLATE2 (QUOTE &+) $EXP $VARLIST))) (T (SIMPLIFY (MAP1 (GETOPR (M-TLAMBDA&ENV (($DUM) ($VARLIST)) NIL (SIMPLIFY (MFUNCTION-CALL $DISOLATE1 $DUM $VARLIST)))) $EXP))))))) (SIMPLIFY ($INPART $EXP 0.)))))

(PROGN
(DEFPROP $NOT_ATOM_ELABEL T TRANSLATED))
(PROGN
(ADD2LNC (QUOTE $NOT_ATOM_ELABEL) $PROPS))
(PROGN
(DEFMTRFUN ($NOT_ATOM_ELABEL $ANY MDEFINE NIL NIL) ($EXP) NIL (COND ((NOT ($ATOM $EXP)) (SIMPLIFY (MFUNCTION-CALL $ELABEL $EXP))) (T $EXP))))

(PROGN
(DEFPROP $DISOLATE2 T TRANSLATED))
(PROGN
(ADD2LNC (QUOTE $DISOLATE2) $PROPS))
(PROGN
(DEFMTRFUN ($DISOLATE2 $ANY MDEFINE NIL NIL) ($OP $EXP $VARLIST) NIL ((LAMBDA ($SPLITDUM $LSPLITDUM) NIL (SIMPLIFY (MFUNCALL $OP (SIMPLIFY (MFUNCTION-CALL $NOT_ATOM_ELABEL (SIMPLIFY ($FIRST $SPLITDUM)))) (COND ((LIKE (SIMPLIFY ($INPART (SETQ $LSPLITDUM (SIMPLIFY ($LAST $SPLITDUM))) 0.)) $OP) (SIMPLIFY (MAP1 (GETOPR (M-TLAMBDA&ENV (($DUM) ($VARLIST)) NIL (SIMPLIFY (MFUNCTION-CALL $DISOLATE1 $DUM $VARLIST)))) $LSPLITDUM))) (T (SIMPLIFY (MFUNCTION-CALL $DISOLATE1 $LSPLITDUM $VARLIST))))))) (SIMPLIFY (MFUNCTION-CALL $ORPARTITIONL $EXP $OP $VARLIST)) (QUOTE $LSPLITDUM))))

(PROGN
(DEFPROP $ELABEL T TRANSLATED))
(PROGN
(ADD2LNC (QUOTE $ELABEL) $PROPS))
(PROGN
(DEFMTRFUN ($ELABEL $ANY MDEFINE NIL NIL) ($EXP) NIL ((LAMBDA ($E_LABELS $OLDDUM) NIL (DO (($IDUM) (MDO (CDR $E_LABELS) (CDR MDO))) ((NULL MDO) (QUOTE $DONE)) (SETQ $IDUM (CAR MDO)) (COND ((LIKE $EXP (SIMPLIFY (MFUNCALL (QUOTE $EV) $IDUM))) (RETURN (SETQ $OLDDUM $IDUM))))) (COND ((LIKE $OLDDUM NIL) (COND ((IS-BOOLE-CHECK (TRD-MSYMEVAL $DISPFLAG (QUOTE $DISPFLAG))) (SIMPLIFY ($FIRST (DISPLAY-FOR-TR T NIL $EXP)))) (T (SIMPLIFY (ELABEL $EXP))))) (T $OLDDUM))) (SIMPLIFY (MFUNCALL (QUOTE $LABELS) (TRD-MSYMEVAL $LINECHAR (QUOTE $LINECHAR)))) NIL)))



(compile-forms-to-compile-queue)

