The device function was missing in zeromq-api.lisp

Also were added constants related to zmq_device().
sshirokov · Jul 1, 2010 · 44c48dc · 44c48dc
1 parent 19c271d
commit 44c48dc
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/zeromq-api.lisp b/zeromq-api.lisp
@@ -196,4 +196,7 @@ The string must be freed with FOREIGN-STRING-FREE."
 	    (mem-ref minor :int)
 	    (mem-ref patch :int))))
 
+(defun device (device insocket outsocket)
+  (%device device insocket outsocket))
+
 ;
diff --git a/zeromq.lisp b/zeromq.lisp
@@ -192,6 +192,14 @@
 
 (defcfun ("zmq_errno" errno) :int)
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;  Devices
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defconstant streamer 1)
+(defconstant forwarder 2)
+(defconstant queue 3)
+
 (defcfun* ("zmq_device" %device) :int
   (device	:int)
   (insocket	:pointer)