
(/VERSIONCHECK 2) 

(PUT '|OMCONN;OMmakeConn;Si$;1| '|SPADreplace| 'OM-MAKECONN) 

(DEFUN |OMCONN;OMmakeConn;Si$;1| (|timeout| $) (OM-MAKECONN |timeout|)) 

(PUT '|OMCONN;OMcloseConn;$V;2| '|SPADreplace| 'OM-CLOSECONN) 

(DEFUN |OMCONN;OMcloseConn;$V;2| (|conn| $) (OM-CLOSECONN |conn|)) 

(PUT '|OMCONN;OMconnInDevice;$Omd;3| '|SPADreplace| 'OM-GETCONNINDEV) 

(DEFUN |OMCONN;OMconnInDevice;$Omd;3| (|conn| $) (OM-GETCONNINDEV |conn|)) 

(PUT '|OMCONN;OMconnOutDevice;$Omd;4| '|SPADreplace| 'OM-GETCONNOUTDEV) 

(DEFUN |OMCONN;OMconnOutDevice;$Omd;4| (|conn| $) (OM-GETCONNOUTDEV |conn|)) 

(PUT '|OMCONN;OMconnectTCP;$SSiB;5| '|SPADreplace| 'OM-CONNECTTCP) 

(DEFUN |OMCONN;OMconnectTCP;$SSiB;5| (|conn| |host| |port| $)
  (OM-CONNECTTCP |conn| |host| |port|)) 

(PUT '|OMCONN;OMbindTCP;$SiB;6| '|SPADreplace| 'OM-BINDTCP) 

(DEFUN |OMCONN;OMbindTCP;$SiB;6| (|conn| |port| $) (OM-BINDTCP |conn| |port|)) 

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

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

(MAKEPROP '|OpenMathConnection| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|SingleInteger|)
              |OMCONN;OMmakeConn;Si$;1| (|Void|) |OMCONN;OMcloseConn;$V;2|
              (|OpenMathDevice|) |OMCONN;OMconnInDevice;$Omd;3|
              |OMCONN;OMconnOutDevice;$Omd;4| (|Boolean|) (|String|)
              |OMCONN;OMconnectTCP;$SSiB;5| |OMCONN;OMbindTCP;$SiB;6|)
           '#(|OMmakeConn| 0 |OMconnectTCP| 5 |OMconnOutDevice| 12
              |OMconnInDevice| 17 |OMcloseConn| 22 |OMbindTCP| 27)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 16
                                                 '(1 0 0 6 7 3 0 13 0 14 6 15 1
                                                   0 10 0 12 1 0 10 0 11 1 0 8
                                                   0 9 2 0 13 0 6 16)))))
           '|lookupComplete|)) 

(MAKEPROP '|OpenMathConnection| 'NILADIC T) 
