anchor.diff:  (defun pubnub (url) (jsown:parse (drakma:http-request url)) )
   
   (defvar *timestamp* 0)
  -(defun publish (channel message)
  +(defun publish (&key (channel "channel") (message  "\"message\""))
     (destructuring-bind (res descr time) (pubnub (publish-url channel message))
   		       (setf *timestamp* time)
   		       descr))
  -
  +(defun history(&key(channel "channel") (count 4) (start 0) (reverse "true")
  +		   (with-token "true"))
  +  (pubnub (history-url channel :params
  +  
  +  )
   (defun subscribe (channel &key (timestamp *timestamp*))
      (destructuring-bind (obj time) (pubnub (subscribe-url channel timestamp))
   		       (setf *timestamp* time)
  
positive.code: 	  ;(break "~A" res)
  	  ))))
  
  
negative.code: ;;;; cl-pubnub.lisp
  
  (in-package #:cl-pubnub)
  (defconstant +pub-key+ "pub-c-0ffbb83a-b74a-4a3c-be08-d40532fce60f")
  (defconstant +sub-key+ "sub-c-783927a0-a48c-11e5-9196-02ee2ddab7fe")
  (defconstant +host+ "http://pubsub.pubnub.com")
  (defun to-url(&rest params)
    (format nil "~{~A~^/~}" (list* +host+ params)))
  
  (defun time-url()(to-url "time" 0))
  
  