1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
;;; -*- Mode: Lisp; Package: Macsyma -*-
;;; Translated code for LOCAL::MAX$DISK:[SHAREM]CONTRL.MC;19
;;; Written on 8/27/1984 16:31:27, 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]CONTRL.MC;19")
(DECLARE (SPECIAL $LOADPRINT))
(DEF-MTRVAR $LOADPRINT (QUOTE $LOADPRINT) 1)
(COND ((IS-BOOLE-CHECK (TRD-MSYMEVAL $LOADPRINT (QUOTE $LOADPRINT))) (SIMPLIFY (MFUNCTION-CALL $PRINT (QUOTE $CONTRL) (QUOTE |&source|) (QUOTE 19)))))
(SIMPLIFY (MFUNCTION-CALL $PUT (QUOTE $CONTRL) (QUOTE 19) (QUOTE $VERSION)))
(DEFPROP $COND T TRANSLATED)
(ADD2LNC (QUOTE $COND) $PROPS)
(DEFMTRFUN ($COND $ANY MDEFMACRO T NIL) ($PAIR_SEQUENCE) NIL (COND ((LIKE $PAIR_SEQUENCE (QUOTE ((MLIST)))) (QUOTE NIL)) (T ((LAMBDA ($PRED $FORM) NIL (COND ((LIKE $PRED T) (MBUILDQ-SUBST (LIST (CONS (QUOTE $FORM) $FORM)) (QUOTE $FORM))) (T (MBUILDQ-SUBST (LIST (CONS (QUOTE $PRED) $PRED) (CONS (QUOTE $FORM) $FORM) (CONS (QUOTE $PAIR_SEQUENCE) $PAIR_SEQUENCE)) (QUOTE ((MCOND) $PRED $FORM T (($COND) (($SPLICE) $PAIR_SEQUENCE)))))))) ((LAMBDA (T0019) NIL (SETQ $PAIR_SEQUENCE (SIMPLIFY (MFUNCTION-CALL $REST $PA
IR_SEQUENCE))) T0019) (SIMPLIFY ($FIRST $PAIR_SEQUENCE))) (COND ((LIKE $PAIR_SEQUENCE (QUOTE ((MLIST)))) (SIMPLIFY (MFUNCTION-CALL $ERROR (QUOTE |&Odd number of COND args|)))) (T ((LAMBDA (T0029) NIL (SETQ $PAIR_SEQUENCE (SIMPLIFY (MFUNCTION-CALL $REST $PAIR_SEQUENCE))) T0029) (SIMPLIFY ($FIRST $PAIR_SEQUENCE)))))))))
(DEFPROP $CASEQ T TRANSLATED)
(ADD2LNC (QUOTE $CASEQ) $PROPS)
(DEFMTRFUN ($CASEQ $ANY MDEFMACRO T NIL) ($EXP $PAIRS) NIL ((LAMBDA ($PREDT $STATEMENT) NIL (COND ((NOT (MFUNCTION-CALL $ATOM $EXP)) (MBUILDQ-SUBST (LIST (CONS (QUOTE $G) (SIMPLIFY (MFUNCTION-CALL GENTEMP))) (CONS (QUOTE $EXP) $EXP) (CONS (QUOTE $PAIRS) $PAIRS)) (QUOTE ((MPROG) ((MLIST) ((MSETQ) $G $EXP)) (($CASEQ) $G (($SPLICE) $PAIRS)))))) (T (COND ((LIKE $PAIRS (QUOTE ((MLIST)))) (QUOTE NIL)) (T (COND ((PROGN (SETQ $PREDT ((LAMBDA (T0036) NIL (SETQ $PAIRS (SIMPLIFY (MFUNCTION-CALL $REST $PAIRS))) T0036)
(SIMPLIFY ($FIRST $PAIRS)))) (COND ((AND (MFUNCTION-CALL $LISTP $PREDT) (= (MFUNCTION-CALL $LENGTH $PREDT) 1)) (SETQ $PREDT (MARRAYREF $PREDT 1)))) (LIKE $PAIRS (QUOTE ((MLIST))))) (SIMPLIFY (MFUNCTION-CALL $ERROR (QUOTE |&Odd number of CASEQ case args|)))) (T (SETQ $STATEMENT ((LAMBDA (T0039) NIL (SETQ $PAIRS (SIMPLIFY (MFUNCTION-CALL $REST $PAIRS))) T0039) (SIMPLIFY ($FIRST $PAIRS)))) (COND ((MFUNCTION-CALL $MEMBER $PREDT (QUOTE ((MLIST SIMP) $OTHERWISE T))) (MBUILDQ-SUBST (LIST (CONS (QUOTE $STATEMENT) $
STATEMENT) (CONS (QUOTE $EXP) $EXP)) (QUOTE $STATEMENT))) (T (MBUILDQ-SUBST (LIST (CONS (QUOTE $CONDITION) (COND ((MFUNCTION-CALL $LISTP $PREDT) (MBUILDQ-SUBST (LIST (CONS (QUOTE $EXP) $EXP) (CONS (QUOTE $PREDT) $PREDT)) (QUOTE (($MEMBER) $EXP ((MQUOTE) $PREDT))))) (T (MBUILDQ-SUBST (LIST (CONS (QUOTE $EXP) $EXP) (CONS (QUOTE $PREDT) $PREDT)) (QUOTE ((MEQUAL) $EXP ((MQUOTE) $PREDT))))))) (CONS (QUOTE $STATEMENT) $STATEMENT) (CONS (QUOTE $EXP) $EXP) (CONS (QUOTE $PAIRS) $PAIRS)) (QUOTE ((MCOND) $CONDITION $S
TATEMENT T (($CASEQ) $EXP (($SPLICE) $PAIRS)))))))))))))) (QUOTE $PREDT) (QUOTE $STATEMENT)))
(compile-forms-to-compile-queue)
|
