anchor.diff:  (defun audit-url ()
     (to-url
      "v1/auth/audit/sub-key" +sub-key+
  -   (do-urlencode:urlencode (format nil "{
  -         timestamp : 0}" ))))
  +   (do-urlencode:urlencode (format nil "{'timestamp' : 0}" ))))
  +
  +(defun presence-heartbeat-url (channel uuid auth)
  +    (to-url
  +   "v2/presence/sub-key" +sub-key+ "channel" (do-urlencode:urlencode channel)  "heartbeat"
  +   (do-urlencode:urlencode (format nil "{'uuid':'~A', 'auth':'~A'}"uuid auth )))
  +  )
   
   (defun publish-url (channel message)
     (to-url "publish" +pub-key+ +sub-key+
   	  0 ;; signature
   	  channel
   	  0 ;; callback
  -	  (do-urlencode:urlencode message)))
  +	  (do-urlencode:urlencode (format nil "~A" message))))
   
   (defun subscribe-url(channel timetoken)
     (to-url "subscribe" +sub-key+
  
positive.code: (defun pubnub (url) (jsown:parse (drakma:http-request url)) )
  
  (defvar *timestamp* 0)
  (defun publish (channel message)
    (destructuring-bind (res descr time) (pubnub (publish-url channel message))
  		       (setf *timestamp* time)
  		       descr))
  
  (defun subscribe (channel &key (timestamp *timestamp*))
     (destructuring-bind (obj time) (pubnub (subscribe-url channel timestamp))
  		       (setf *timestamp* time)
  
negative.code: 	  ;(break "~A" res)
  	  ))))
  
  (defun test-publish()
    (loop for ch from 1 to 10 do
  	(loop for message from 1 to 10 do
  	      (publish :channel ch :message message))))
  