
(PUT '|OMDEV;OMopenFile;2SOme%;1| '|SPADreplace| 'OM-OPENFILEDEV) 

(SDEFUN |OMDEV;OMopenFile;2SOme%;1|
        ((|fname| (|String|)) (|fmode| (|String|)) (|enc| (|OpenMathEncoding|))
         (% (%)))
        (OM-OPENFILEDEV |fname| |fmode| |enc|)) 

(PUT '|OMDEV;OMopenString;SOme%;2| '|SPADreplace| 'OM-OPENSTRINGDEV) 

(SDEFUN |OMDEV;OMopenString;SOme%;2|
        ((|str| (|String|)) (|enc| (|OpenMathEncoding|)) (% (%)))
        (OM-OPENSTRINGDEV |str| |enc|)) 

(PUT '|OMDEV;OMclose;%V;3| '|SPADreplace| 'OM-CLOSEDEV) 

(SDEFUN |OMDEV;OMclose;%V;3| ((|dev| (%)) (% (|Void|))) (OM-CLOSEDEV |dev|)) 

(PUT '|OMDEV;OMsetEncoding;%OmeV;4| '|SPADreplace| 'OM-SETDEVENCODING) 

(SDEFUN |OMDEV;OMsetEncoding;%OmeV;4|
        ((|dev| (%)) (|enc| (|OpenMathEncoding|)) (% (|Void|)))
        (OM-SETDEVENCODING |dev| |enc|)) 

(PUT '|OMDEV;OMputApp;%V;5| '|SPADreplace| 'OM-PUTAPP) 

(SDEFUN |OMDEV;OMputApp;%V;5| ((|dev| (%)) (% (|Void|))) (OM-PUTAPP |dev|)) 

(PUT '|OMDEV;OMputAtp;%V;6| '|SPADreplace| 'OM-PUTATP) 

(SDEFUN |OMDEV;OMputAtp;%V;6| ((|dev| (%)) (% (|Void|))) (OM-PUTATP |dev|)) 

(PUT '|OMDEV;OMputAttr;%V;7| '|SPADreplace| 'OM-PUTATTR) 

(SDEFUN |OMDEV;OMputAttr;%V;7| ((|dev| (%)) (% (|Void|))) (OM-PUTATTR |dev|)) 

(PUT '|OMDEV;OMputBind;%V;8| '|SPADreplace| 'OM-PUTBIND) 

(SDEFUN |OMDEV;OMputBind;%V;8| ((|dev| (%)) (% (|Void|))) (OM-PUTBIND |dev|)) 

(PUT '|OMDEV;OMputBVar;%V;9| '|SPADreplace| 'OM-PUTBVAR) 

(SDEFUN |OMDEV;OMputBVar;%V;9| ((|dev| (%)) (% (|Void|))) (OM-PUTBVAR |dev|)) 

(PUT '|OMDEV;OMputError;%V;10| '|SPADreplace| 'OM-PUTERROR) 

(SDEFUN |OMDEV;OMputError;%V;10| ((|dev| (%)) (% (|Void|))) (OM-PUTERROR |dev|)) 

(PUT '|OMDEV;OMputObject;%V;11| '|SPADreplace| 'OM-PUTOBJECT) 

(SDEFUN |OMDEV;OMputObject;%V;11| ((|dev| (%)) (% (|Void|)))
        (OM-PUTOBJECT |dev|)) 

(PUT '|OMDEV;OMputEndApp;%V;12| '|SPADreplace| 'OM-PUTENDAPP) 

(SDEFUN |OMDEV;OMputEndApp;%V;12| ((|dev| (%)) (% (|Void|)))
        (OM-PUTENDAPP |dev|)) 

(PUT '|OMDEV;OMputEndAtp;%V;13| '|SPADreplace| 'OM-PUTENDATP) 

(SDEFUN |OMDEV;OMputEndAtp;%V;13| ((|dev| (%)) (% (|Void|)))
        (OM-PUTENDATP |dev|)) 

(PUT '|OMDEV;OMputEndAttr;%V;14| '|SPADreplace| 'OM-PUTENDATTR) 

(SDEFUN |OMDEV;OMputEndAttr;%V;14| ((|dev| (%)) (% (|Void|)))
        (OM-PUTENDATTR |dev|)) 

(PUT '|OMDEV;OMputEndBind;%V;15| '|SPADreplace| 'OM-PUTENDBIND) 

(SDEFUN |OMDEV;OMputEndBind;%V;15| ((|dev| (%)) (% (|Void|)))
        (OM-PUTENDBIND |dev|)) 

(PUT '|OMDEV;OMputEndBVar;%V;16| '|SPADreplace| 'OM-PUTENDBVAR) 

(SDEFUN |OMDEV;OMputEndBVar;%V;16| ((|dev| (%)) (% (|Void|)))
        (OM-PUTENDBVAR |dev|)) 

(PUT '|OMDEV;OMputEndError;%V;17| '|SPADreplace| 'OM-PUTENDERROR) 

(SDEFUN |OMDEV;OMputEndError;%V;17| ((|dev| (%)) (% (|Void|)))
        (OM-PUTENDERROR |dev|)) 

(PUT '|OMDEV;OMputEndObject;%V;18| '|SPADreplace| 'OM-PUTENDOBJECT) 

(SDEFUN |OMDEV;OMputEndObject;%V;18| ((|dev| (%)) (% (|Void|)))
        (OM-PUTENDOBJECT |dev|)) 

(PUT '|OMDEV;OMputInteger;%IV;19| '|SPADreplace| 'OM-PUTINT) 

(SDEFUN |OMDEV;OMputInteger;%IV;19|
        ((|dev| (%)) (|i| (|Integer|)) (% (|Void|))) (OM-PUTINT |dev| |i|)) 

(PUT '|OMDEV;OMputFloat;%DfV;20| '|SPADreplace| 'OM-PUTFLOAT) 

(SDEFUN |OMDEV;OMputFloat;%DfV;20|
        ((|dev| (%)) (|f| (|DoubleFloat|)) (% (|Void|)))
        (OM-PUTFLOAT |dev| |f|)) 

(PUT '|OMDEV;OMputVariable;%SV;21| '|SPADreplace| 'OM-PUTVAR) 

(SDEFUN |OMDEV;OMputVariable;%SV;21|
        ((|dev| (%)) (|v| (|Symbol|)) (% (|Void|))) (OM-PUTVAR |dev| |v|)) 

(PUT '|OMDEV;OMputString;%SV;22| '|SPADreplace| 'OM-PUTSTRING) 

(SDEFUN |OMDEV;OMputString;%SV;22| ((|dev| (%)) (|s| (|String|)) (% (|Void|)))
        (OM-PUTSTRING |dev| |s|)) 

(PUT '|OMDEV;OMputSymbol;%2SV;23| '|SPADreplace| 'OM-PUTSYMBOL) 

(SDEFUN |OMDEV;OMputSymbol;%2SV;23|
        ((|dev| (%)) (|cd| (|String|)) (|nm| (|String|)) (% (|Void|)))
        (OM-PUTSYMBOL |dev| |cd| |nm|)) 

(PUT '|OMDEV;OMgetApp;%V;24| '|SPADreplace| 'OM-GETAPP) 

(SDEFUN |OMDEV;OMgetApp;%V;24| ((|dev| (%)) (% (|Void|))) (OM-GETAPP |dev|)) 

(PUT '|OMDEV;OMgetAtp;%V;25| '|SPADreplace| 'OM-GETATP) 

(SDEFUN |OMDEV;OMgetAtp;%V;25| ((|dev| (%)) (% (|Void|))) (OM-GETATP |dev|)) 

(PUT '|OMDEV;OMgetAttr;%V;26| '|SPADreplace| 'OM-GETATTR) 

(SDEFUN |OMDEV;OMgetAttr;%V;26| ((|dev| (%)) (% (|Void|))) (OM-GETATTR |dev|)) 

(PUT '|OMDEV;OMgetBind;%V;27| '|SPADreplace| 'OM-GETBIND) 

(SDEFUN |OMDEV;OMgetBind;%V;27| ((|dev| (%)) (% (|Void|))) (OM-GETBIND |dev|)) 

(PUT '|OMDEV;OMgetBVar;%V;28| '|SPADreplace| 'OM-GETBVAR) 

(SDEFUN |OMDEV;OMgetBVar;%V;28| ((|dev| (%)) (% (|Void|))) (OM-GETBVAR |dev|)) 

(PUT '|OMDEV;OMgetError;%V;29| '|SPADreplace| 'OM-GETERROR) 

(SDEFUN |OMDEV;OMgetError;%V;29| ((|dev| (%)) (% (|Void|))) (OM-GETERROR |dev|)) 

(PUT '|OMDEV;OMgetObject;%V;30| '|SPADreplace| 'OM-GETOBJECT) 

(SDEFUN |OMDEV;OMgetObject;%V;30| ((|dev| (%)) (% (|Void|)))
        (OM-GETOBJECT |dev|)) 

(PUT '|OMDEV;OMgetEndApp;%V;31| '|SPADreplace| 'OM-GETENDAPP) 

(SDEFUN |OMDEV;OMgetEndApp;%V;31| ((|dev| (%)) (% (|Void|)))
        (OM-GETENDAPP |dev|)) 

(PUT '|OMDEV;OMgetEndAtp;%V;32| '|SPADreplace| 'OM-GETENDATP) 

(SDEFUN |OMDEV;OMgetEndAtp;%V;32| ((|dev| (%)) (% (|Void|)))
        (OM-GETENDATP |dev|)) 

(PUT '|OMDEV;OMgetEndAttr;%V;33| '|SPADreplace| 'OM-GETENDATTR) 

(SDEFUN |OMDEV;OMgetEndAttr;%V;33| ((|dev| (%)) (% (|Void|)))
        (OM-GETENDATTR |dev|)) 

(PUT '|OMDEV;OMgetEndBind;%V;34| '|SPADreplace| 'OM-GETENDBIND) 

(SDEFUN |OMDEV;OMgetEndBind;%V;34| ((|dev| (%)) (% (|Void|)))
        (OM-GETENDBIND |dev|)) 

(PUT '|OMDEV;OMgetEndBVar;%V;35| '|SPADreplace| 'OM-GETENDBVAR) 

(SDEFUN |OMDEV;OMgetEndBVar;%V;35| ((|dev| (%)) (% (|Void|)))
        (OM-GETENDBVAR |dev|)) 

(PUT '|OMDEV;OMgetEndError;%V;36| '|SPADreplace| 'OM-GETENDERROR) 

(SDEFUN |OMDEV;OMgetEndError;%V;36| ((|dev| (%)) (% (|Void|)))
        (OM-GETENDERROR |dev|)) 

(PUT '|OMDEV;OMgetEndObject;%V;37| '|SPADreplace| 'OM-GETENDOBJECT) 

(SDEFUN |OMDEV;OMgetEndObject;%V;37| ((|dev| (%)) (% (|Void|)))
        (OM-GETENDOBJECT |dev|)) 

(PUT '|OMDEV;OMgetInteger;%I;38| '|SPADreplace| 'OM-GETINT) 

(SDEFUN |OMDEV;OMgetInteger;%I;38| ((|dev| (%)) (% (|Integer|)))
        (OM-GETINT |dev|)) 

(PUT '|OMDEV;OMgetFloat;%Df;39| '|SPADreplace| 'OM-GETFLOAT) 

(SDEFUN |OMDEV;OMgetFloat;%Df;39| ((|dev| (%)) (% (|DoubleFloat|)))
        (OM-GETFLOAT |dev|)) 

(PUT '|OMDEV;OMgetVariable;%S;40| '|SPADreplace| 'OM-GETVAR) 

(SDEFUN |OMDEV;OMgetVariable;%S;40| ((|dev| (%)) (% (|Symbol|)))
        (OM-GETVAR |dev|)) 

(PUT '|OMDEV;OMgetString;%S;41| '|SPADreplace| 'OM-GETSTRING) 

(SDEFUN |OMDEV;OMgetString;%S;41| ((|dev| (%)) (% (|String|)))
        (OM-GETSTRING |dev|)) 

(PUT '|OMDEV;OMgetSymbol;%R;42| '|SPADreplace| 'OM-GETSYMBOL) 

(SDEFUN |OMDEV;OMgetSymbol;%R;42|
        ((|dev| (%))
         (% (|Record| (|:| |cd| (|String|)) (|:| |name| (|String|)))))
        (OM-GETSYMBOL |dev|)) 

(PUT '|OMDEV;OMgetType;%S;43| '|SPADreplace| 'OM-GETTYPE) 

(SDEFUN |OMDEV;OMgetType;%S;43| ((|dev| (%)) (% (|Symbol|))) (OM-GETTYPE |dev|)) 

(DECLAIM (NOTINLINE |OpenMathDevice;|)) 

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

(DEFUN |OpenMathDevice;| ()
  (SPROG ((|dv$| NIL) (% NIL) (|pv$| NIL))
         (PROGN
          (LETT |dv$| '(|OpenMathDevice|))
          (LETT % (GETREFV 56))
          (QSETREFV % 0 |dv$|)
          (QSETREFV % 3 (LETT |pv$| (|buildPredVector| 0 0 NIL)))
          (|haddProp| |$ConstructorCache| '|OpenMathDevice| NIL (CONS 1 %))
          (|stuffDomainSlots| %)
          (SETF |pv$| (QREFELT % 3))
          %))) 

(MAKEPROP '|OpenMathDevice| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|String|) (|OpenMathEncoding|)
              |OMDEV;OMopenFile;2SOme%;1| |OMDEV;OMopenString;SOme%;2| (|Void|)
              |OMDEV;OMclose;%V;3| |OMDEV;OMsetEncoding;%OmeV;4|
              |OMDEV;OMputApp;%V;5| |OMDEV;OMputAtp;%V;6|
              |OMDEV;OMputAttr;%V;7| |OMDEV;OMputBind;%V;8|
              |OMDEV;OMputBVar;%V;9| |OMDEV;OMputError;%V;10|
              |OMDEV;OMputObject;%V;11| |OMDEV;OMputEndApp;%V;12|
              |OMDEV;OMputEndAtp;%V;13| |OMDEV;OMputEndAttr;%V;14|
              |OMDEV;OMputEndBind;%V;15| |OMDEV;OMputEndBVar;%V;16|
              |OMDEV;OMputEndError;%V;17| |OMDEV;OMputEndObject;%V;18|
              (|Integer|) |OMDEV;OMputInteger;%IV;19| (|DoubleFloat|)
              |OMDEV;OMputFloat;%DfV;20| (|Symbol|)
              |OMDEV;OMputVariable;%SV;21| |OMDEV;OMputString;%SV;22|
              |OMDEV;OMputSymbol;%2SV;23| |OMDEV;OMgetApp;%V;24|
              |OMDEV;OMgetAtp;%V;25| |OMDEV;OMgetAttr;%V;26|
              |OMDEV;OMgetBind;%V;27| |OMDEV;OMgetBVar;%V;28|
              |OMDEV;OMgetError;%V;29| |OMDEV;OMgetObject;%V;30|
              |OMDEV;OMgetEndApp;%V;31| |OMDEV;OMgetEndAtp;%V;32|
              |OMDEV;OMgetEndAttr;%V;33| |OMDEV;OMgetEndBind;%V;34|
              |OMDEV;OMgetEndBVar;%V;35| |OMDEV;OMgetEndError;%V;36|
              |OMDEV;OMgetEndObject;%V;37| |OMDEV;OMgetInteger;%I;38|
              |OMDEV;OMgetFloat;%Df;39| |OMDEV;OMgetVariable;%S;40|
              |OMDEV;OMgetString;%S;41| (|Record| (|:| |cd| 6) (|:| |name| 6))
              |OMDEV;OMgetSymbol;%R;42| |OMDEV;OMgetType;%S;43|)
           '#(|OMsetEncoding| 0 |OMputVariable| 6 |OMputSymbol| 12
              |OMputString| 19 |OMputObject| 25 |OMputInteger| 30 |OMputFloat|
              36 |OMputError| 42 |OMputEndObject| 47 |OMputEndError| 52
              |OMputEndBind| 57 |OMputEndBVar| 62 |OMputEndAttr| 67
              |OMputEndAtp| 72 |OMputEndApp| 77 |OMputBind| 82 |OMputBVar| 87
              |OMputAttr| 92 |OMputAtp| 97 |OMputApp| 102 |OMopenString| 107
              |OMopenFile| 113 |OMgetVariable| 120 |OMgetType| 125
              |OMgetSymbol| 130 |OMgetString| 135 |OMgetObject| 140
              |OMgetInteger| 145 |OMgetFloat| 150 |OMgetError| 155
              |OMgetEndObject| 160 |OMgetEndError| 165 |OMgetEndBind| 170
              |OMgetEndBVar| 175 |OMgetEndAttr| 180 |OMgetEndAtp| 185
              |OMgetEndApp| 190 |OMgetBind| 195 |OMgetBVar| 200 |OMgetAttr| 205
              |OMgetAtp| 210 |OMgetApp| 215 |OMclose| 220)
           'NIL
           (CONS (|makeByteWordVec2| 1 '(0))
                 (CONS '#(NIL)
                       (CONS
                        '#((|Join|
                            (|mkCategory|
                             (LIST
                              '((|OMopenFile|
                                 ($$ (|String|) (|String|)
                                  (|OpenMathEncoding|)))
                                T)
                              '((|OMopenString|
                                 ($$ (|String|) (|OpenMathEncoding|)))
                                T)
                              '((|OMclose| ((|Void|) $$)) T)
                              '((|OMsetEncoding|
                                 ((|Void|) $$ (|OpenMathEncoding|)))
                                T)
                              '((|OMputApp| ((|Void|) $$)) T)
                              '((|OMputAtp| ((|Void|) $$)) T)
                              '((|OMputAttr| ((|Void|) $$)) T)
                              '((|OMputBind| ((|Void|) $$)) T)
                              '((|OMputBVar| ((|Void|) $$)) T)
                              '((|OMputError| ((|Void|) $$)) T)
                              '((|OMputObject| ((|Void|) $$)) T)
                              '((|OMputEndApp| ((|Void|) $$)) T)
                              '((|OMputEndAtp| ((|Void|) $$)) T)
                              '((|OMputEndAttr| ((|Void|) $$)) T)
                              '((|OMputEndBind| ((|Void|) $$)) T)
                              '((|OMputEndBVar| ((|Void|) $$)) T)
                              '((|OMputEndError| ((|Void|) $$)) T)
                              '((|OMputEndObject| ((|Void|) $$)) T)
                              '((|OMputInteger| ((|Void|) $$ (|Integer|))) T)
                              '((|OMputFloat| ((|Void|) $$ (|DoubleFloat|))) T)
                              '((|OMputVariable| ((|Void|) $$ (|Symbol|))) T)
                              '((|OMputString| ((|Void|) $$ (|String|))) T)
                              '((|OMputSymbol|
                                 ((|Void|) $$ (|String|) (|String|)))
                                T)
                              '((|OMgetApp| ((|Void|) $$)) T)
                              '((|OMgetAtp| ((|Void|) $$)) T)
                              '((|OMgetAttr| ((|Void|) $$)) T)
                              '((|OMgetBind| ((|Void|) $$)) T)
                              '((|OMgetBVar| ((|Void|) $$)) T)
                              '((|OMgetError| ((|Void|) $$)) T)
                              '((|OMgetObject| ((|Void|) $$)) T)
                              '((|OMgetEndApp| ((|Void|) $$)) T)
                              '((|OMgetEndAtp| ((|Void|) $$)) T)
                              '((|OMgetEndAttr| ((|Void|) $$)) T)
                              '((|OMgetEndBind| ((|Void|) $$)) T)
                              '((|OMgetEndBVar| ((|Void|) $$)) T)
                              '((|OMgetEndError| ((|Void|) $$)) T)
                              '((|OMgetEndObject| ((|Void|) $$)) T)
                              '((|OMgetInteger| ((|Integer|) $$)) T)
                              '((|OMgetFloat| ((|DoubleFloat|) $$)) T)
                              '((|OMgetVariable| ((|Symbol|) $$)) T)
                              '((|OMgetString| ((|String|) $$)) T)
                              '((|OMgetSymbol|
                                 ((|Record| (|:| |cd| (|String|))
                                            (|:| |name| (|String|)))
                                  $$))
                                T)
                              '((|OMgetType| ((|Symbol|) $$)) T))
                             (LIST) NIL NIL)))
                        (|makeByteWordVec2| 55
                                            '(2 0 10 0 7 12 2 0 10 0 31 32 3 0
                                              10 0 6 6 34 2 0 10 0 6 33 1 0 10
                                              0 19 2 0 10 0 27 28 2 0 10 0 29
                                              30 1 0 10 0 18 1 0 10 0 26 1 0 10
                                              0 25 1 0 10 0 23 1 0 10 0 24 1 0
                                              10 0 22 1 0 10 0 21 1 0 10 0 20 1
                                              0 10 0 16 1 0 10 0 17 1 0 10 0 15
                                              1 0 10 0 14 1 0 10 0 13 2 0 0 6 7
                                              9 3 0 0 6 6 7 8 1 0 31 0 51 1 0
                                              31 0 55 1 0 53 0 54 1 0 6 0 52 1
                                              0 10 0 41 1 0 27 0 49 1 0 29 0 50
                                              1 0 10 0 40 1 0 10 0 48 1 0 10 0
                                              47 1 0 10 0 45 1 0 10 0 46 1 0 10
                                              0 44 1 0 10 0 43 1 0 10 0 42 1 0
                                              10 0 38 1 0 10 0 39 1 0 10 0 37 1
                                              0 10 0 36 1 0 10 0 35 1 0 10 0
                                              11)))))
           '|lookupComplete|)) 
