anchor.diff:      ;; cellpad
       ;; cells are going to be appended in this element
       (defvar cell-pad nil)
  +    ;; cell-pad-top-position is used in auto-scroll
  +    (defvar cell-pad-top-position nil)
   
       ;; Show system messages here    
       (defvar rename-span nil)
  
positive.code:     (defun eval-cell-and-go (cell &optional (command "eval"))
        (unless (processing-p)
  	(let ((cell-content (chain (getprop cell 'editor) (get-value)))
  	      (cell-no (cell-position cell)))
  	  ;; It is meaninless to evaluate empty cell
  	  ;; Even if it is the empty cell if it's not the last cell
  	  ;; it is evaluated for convenience
  	  (unless (and (last-cell-p cell)
  		       (= (chain cell-content (trim)) ""))
  	    (notify "PROCESSING" "orange")
  
negative.code:     (setf (getprop rendering-function-set "code")
  	  ;; stdout is ignored
  	  (lambda (cell result-area value stdout)
  	    (get-it-focused cell)
  	    ;; code generation expression itself is overwritten.
  	    ;; I've given a lot of thought into it
  	    (chain (getprop cell 'editor) (get-doc) (set-value (first value)))
  	    (loop for v1 in (rest value) do
  		 (let ((c1 (make-cell focused-cell)))
  		   (chain (getprop c1 'editor) (get-doc) (set-value v1))))
  	    ;; Do not evaluate generated cells
  	    ;; It's flawed in some ways.
  	    ))
      
      ;; Render error message
      (setf (getprop rendering-function-set "error")
  