
(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=#:G742)
           (RETURN
            (COND
             ((LETT #1# (HGET |$ConstructorCache| '|OpenMathDevice|)
                    . #2=(|OpenMathDevice|))
              (|CDRwithIncrement| (CDAR #1#)))
             ('T
              (UNWIND-PROTECT
                  (PROG1
                      (CDDAR
                       (HPUT |$ConstructorCache| '|OpenMathDevice|
                             (LIST (CONS NIL (CONS 1 (|OpenMathDevice;|))))))
                    (LETT #1# T . #2#))
                (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache| '|OpenMathDevice|)))))))))) 

(DEFUN |OpenMathDevice;| ()
  (SPROG ((|dv$| NIL) ($ NIL) (|pv$| NIL))
         (PROGN
          (LETT |dv$| '(|OpenMathDevice|) . #1=(|OpenMathDevice|))
          (LETT $ (GETREFV 56) . #1#)
          (QSETREFV $ 0 |dv$|)
          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
          (|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 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|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|)) 

(MAKEPROP '|OpenMathDevice| 'NILADIC T) 
