anchor.diff:  		 (delete! book val-fact)
   		 (insert! book (list cell-id :value res))
   		 (write-delta! book)
  -		 (publish! :updates (update :book (notebook-name book) :cell cell-id :action 'finished-eval :contents contents :value res))))))))
  +		 (publish! :cl-notebook-updates (update :book (notebook-name book) :cell cell-id :action 'finished-eval :contents contents :value res))))))))
     :ok)
   
   (define-json-handler (cl-notebook/notebook/new-cell) ((book :notebook) (cell-type :keyword))
     (let ((cell-id (new-cell! book :cell-type cell-type)))
       (write-delta! book)
  -    (publish! :updates (update :book (notebook-name book) :action 'new-cell :cell-id cell-id :cell-type cell-type)))
  +    (publish! :cl-notebook-updates (update :book (notebook-name book) :action 'new-cell :cell-id cell-id :cell-type cell-type)))
     :ok)
   
   (define-json-handler (cl-notebook/notebook/reorder-cells) ((book :notebook) (cell-order :json))
  
positive.code:   (let* ((name (format nil "book-~a" (hash-table-count *notebooks*)))
  	 (book (new-notebook! name)))
      (write! book)
      (publish! :updates (update :action 'new-book :book-name name))
      (current book)))
  
  (define-json-handler (cl-notebook/notebook/kill) ((book :notebook))
    (kill! book)
    (publish! :updates (update :book (notebook-name book) :action 'kill-book))
    :ok)
  
  (define-json-handler (cl-notebook/notebook/rename) ((book :notebook) (new-name :string))
    (let* ((old-name (notebook-name book))
  	 (book (rename-notebook! book new-name)))
      (write-delta! book)
      (publish! :updates (update :book old-name :action 'rename-book :new-name new-name)))
    :ok)
  
  (define-json-handler (cl-notebook/notebook/eval-to-cell) ((book :notebook) (cell-id :integer) (contents :string))
  
negative.code: 	(insert! book (list cell-id :cell-type new-type))
  	(insert! book (list cell-id :value res))
  	(write-delta! book)
  	(publish! :cl-notebook-updates (update :book (notebook-name book) :cell cell-id :action 'change-cell-type :new-type new-type :value res)))))
    :ok)
  
  (define-json-handler (cl-notebook/notebook/change-cell-noise) ((book :notebook) (cell-id :integer) (new-noise :keyword))
  