anchor.diff:  	:test #'=))
   
   (defun create-queue (handle)
  -  "Create a new message queue."
  +  "Create a new message queue.
  +
  +HANDLE ::= integer to identify the queue.
  +
  +Returns the queue."
  +  (declare (type integer handle))
     (let ((q (find-queue handle)))
       (when q 
         (return-from create-queue q)))
  
positive.code: 			 :handle handle))))
  
  (defun close-queue (q)
    (declare (type client-queue q))
    (rpc-close (client-queue-conn q)))
  
  (defun post-message (client data)
    "Post a message to the queue. Returns immediately, the server does not acknowledge receipt of the message."
    (declare (type client-queue client))
    (incf (client-queue-id client))
    (call-post (client-queue-handle client)
  	     (client-queue-id client)   
  	     data
  	     :connection (client-queue-conn client)
  	     :timeout nil))
  	     
  ;; ----------------------------
  
  
negative.code:   conn handle id)
  
  (defun open-queue (host handle)
    "Open a remote queue. Returns a queue object to be used to send messages. This must be closed with a call to CLOSE-QUEUE.
  
  HOST ::= name of the host that exports the queue.
  HANDLE ::= an integer specifying the queue name.
  
  Returns a queue object."
    (declare (type integer handle))
    (let ((port (frpc.bind:call-get-port (program-id 'rpcmq) 1 
  				       :host host)))
  