anchor.diff:  		(new-name (@ res new-name)))
   	    (when (relevant-event? res)
   	      (dom-replace (by-selector ".book-title") (notebook-title-template new-name))
  -	      (set-notebook-name *notebook* new-name)
  +	      (notebook-name! *notebook* new-name)
   	      (hide-title-input)))))))
   
       (defvar *warning-filter*
  
positive.code: 		(err (@ res result)))
  	    (when (relevant-event? res)
  	      (dom-replace (by-selector ".book-package") (notebook-package-template new-package err))
  	      (set-notebook-package *notebook* new-package)
  	      (setup-package-mirror!)
  	      (if err
  		  (show-title-input)
  
negative.code:     (defun notebook-name (notebook) (@ notebook name))
      (defun notebook-package (notebook) (@ notebook package))
      (defun notebook-id (notebook) (@ notebook id))
      (defun notebook-name! (notebook new-name) (setf (@ notebook name) new-name))
      (defun notebook-package! (notebook new-package) (setf (@ notebook package) new-package))
  
      (defun notebook-facts (notebook) (@ notebook facts))
      (defun notebook-objects (notebook) (@ notebook objects))
  