;;; -*- 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)