anchor.diff:      (cond ((null views) 0)
   	  (t (dolist (v views)
   	       (cond ((> v b) (setf b v))
  -		     ((and (< s view) (> v s))
  +		     ((and (< v view) (> v s))
   		      (setf s v))
   		     ((and (= s view) (< v s))
   		      (setf s v))))
  
positive.code:   (ref-wlc-geometry (wlc-view-get-geometry view)))
  
  (defun (setf view-geometry) (val view)
    (with-foreign-object (g 'wlc-geometry)
      (setf (ref-wlc-geometry g) val)
      (wlc-view-set-geometry view g)))
  
  
negative.code:     (cond ((null views) 0)
  	  (t (dolist (v views)
  	       (cond ((< v s) (setf s v))
  		     ((and (> v view) (< v b))
  		      (setf b v))
  		     ((and (= b view) (> v b))
  		      (setf b v))))
  		    (if (> b view) b s)))))
  
  
  		 
  	   
  (defun get-previous-view (view)
  