
(/VERSIONCHECK 2) 

(DEFUN |SPECOUT;juxtaposeTerms| (|l| $) (SPADCALL |l| (QREFELT $ 8))) 

(DEFUN |SPECOUT;outputAsFortran;OfV;2| (|e| $)
  (SEQ (|dispfortexp| |e|) (EXIT (SPADCALL (QREFELT $ 10))))) 

(DEFUN |SPECOUT;outputAsFortran;SOfV;3| (|var| |e| $)
  (SEQ (LETT |e|
             (SPADCALL
                 (SPADCALL (SPADCALL |var| (QREFELT $ 14))
                     (QREFELT $ 15))
                 |e| (QREFELT $ 16))
             |SPECOUT;outputAsFortran;SOfV;3|)
       (|dispfortexp| |e|) (EXIT (SPADCALL (QREFELT $ 10))))) 

(DEFUN |SPECOUT;outputAsFortran;LV;4| (|l| $)
  (SEQ (|dispfortexp| (|SPECOUT;juxtaposeTerms| |l| $))
       (EXIT (SPADCALL (QREFELT $ 10))))) 

(DEFUN |SPECOUT;outputAsScript;OfV;5| (|e| $)
  (SEQ (|formulaFormat| |e|) (EXIT (SPADCALL (QREFELT $ 10))))) 

(DEFUN |SPECOUT;outputAsScript;LV;6| (|l| $)
  (SEQ (|formulaFormat| (|SPECOUT;juxtaposeTerms| |l| $))
       (EXIT (SPADCALL (QREFELT $ 10))))) 

(DEFUN |SPECOUT;outputAsTex;OfV;7| (|e| $)
  (SEQ (|texFormat| |e|) (EXIT (SPADCALL (QREFELT $ 10))))) 

(DEFUN |SPECOUT;outputAsTex;LV;8| (|l| $)
  (SEQ (|texFormat| (|SPECOUT;juxtaposeTerms| |l| $))
       (EXIT (SPADCALL (QREFELT $ 10))))) 

(DEFUN |SpecialOutputPackage| ()
  (PROG ()
    (RETURN
      (PROG (#0=#:G1832)
        (RETURN
          (COND
            ((LETT #0#
                   (HGET |$ConstructorCache| '|SpecialOutputPackage|)
                   . #1=(|SpecialOutputPackage|))
             (|CDRwithIncrement| (CDAR #0#)))
            ('T
             (UNWIND-PROTECT
               (PROG1 (CDDAR (HPUT |$ConstructorCache|
                                   '|SpecialOutputPackage|
                                   (LIST
                                    (CONS NIL
                                     (CONS 1 (|SpecialOutputPackage;|))))))
                 (LETT #0# T . #1#))
               (COND
                 ((NOT #0#)
                  (HREM |$ConstructorCache| '|SpecialOutputPackage|))))))))))) 

(DEFUN |SpecialOutputPackage;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT |dv$| '(|SpecialOutputPackage|)
              . #0=(|SpecialOutputPackage|))
        (LETT $ (GETREFV 24) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|SpecialOutputPackage| NIL
            (CONS 1 $))
        (|stuffDomainSlots| $)
        $)))) 

(MAKEPROP '|SpecialOutputPackage| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|List| $) (|OutputForm|)
             (0 . |blankSeparate|) (|Void|) (5 . |void|)
             |SPECOUT;outputAsFortran;OfV;2| (|String|) (|Symbol|)
             (9 . |coerce|) (14 . |coerce|) (19 . =)
             |SPECOUT;outputAsFortran;SOfV;3| (|List| 7)
             |SPECOUT;outputAsFortran;LV;4|
             |SPECOUT;outputAsScript;OfV;5|
             |SPECOUT;outputAsScript;LV;6| |SPECOUT;outputAsTex;OfV;7|
             |SPECOUT;outputAsTex;LV;8|)
          '#(|outputAsTex| 25 |outputAsScript| 35 |outputAsFortran| 45)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 23
                                '(1 7 0 6 8 0 9 0 10 1 13 0 12 14 1 13
                                  7 0 15 2 7 0 0 0 16 1 0 9 7 22 1 0 9
                                  18 23 1 0 9 7 20 1 0 9 18 21 2 0 9 12
                                  7 17 1 0 9 7 11 1 0 9 18 19)))))
          '|lookupComplete|)) 

(MAKEPROP '|SpecialOutputPackage| 'NILADIC T) 
