anchor.diff:  	(formatting-item-list
   	 (stream :n-columns n-columns
   		 :n-rows n-rows
  -		 ;;#+clim :max-width #-clim :inside-width width
  -		 #-clim-2 :inter-column-spacing #+clim-2 :x-spacing
  +                 :x-spacing
   		 '(2 :character))
   	 (draw-all sequence stream))))))
   
  -#+clim
   (define-presentation-type alist-subset (&key alist)
     ;; Yes, I know clim 1.0 has one of these, but it doesn't work in avv mode!.
     :parser ((stream)
  
positive.code: 		,@body))))
  
  (defmacro formatting-row ((stream) &body body)
    #-clim `(dw:formatting-row (,stream :dont-snapshot-variables t) ,@body)
    #+clim `(clim:formatting-row (,stream) ,@body))
  
  (defmacro formatting-column ((stream) &body body)
    #-clim `(dw:formatting-column (,stream :dont-snapshot-variables t) ,@body)
    #+clim `(clim:formatting-column (,stream) ,@body))
  
  (defmacro formatting-column-headings ((stream &key (underline-p nil)) &body body)
    #-clim `(dw:formatting-column-headings
  	    (,stream :underline-p ,underline-p :dont-snapshot-variables t)
  	    ,@body)
    ;; dont have the time to do this one justice.
    #+clim (if underline-p
  	     `(formatting-row (,stream) (with-underlining (,stream) ,@body))
  	     `(formatting-row (,stream) ,@body)))
  
  (defmacro formatting-cell ((stream &key (align-x :left) align-y) &body body)
    #+clim `(clim:formatting-cell (,stream ,@(if align-x `(:align-x ,align-x))
  					 ,@(if align-y `(:align-y ,align-y)))
  				 ,@body)
    #-clim `(dw:formatting-cell (,stream :align-x ,align-x :align-y ,align-y)
  			       ; :dont-snapshot-variables t ;;++This seems to not work
  	    ,@body))
  
  (defmacro formatting-item-list ((stream &rest options) &body body)
    #+clim `(clim:formatting-item-list (,stream ,@options) ,@body)
    #-clim `(dw:formatting-item-list (,stream ,@options) ,@body))
  
  (defmacro format-item-list (list &rest keys)
    #-clim `(dw:format-item-list ,list ,@keys)
    #+clim
    (let ((stream (or (second (member :stream keys)) t)))
      `(formatting-item-list (,stream)
         (dolist (item ,list)
  
negative.code: 		      (GESTURE-VAR   '.gesture. gesture-p))
  	   NON-BLIP-FORM
  	   &body CLAUSES)
    (declare (ignore stream))
    `(clim:with-input-context (,PRESENTATION-TYPE :override ,OVERRIDE)
  			    (,OBJECT-VAR ,PT-VAR ,@(if gesture-p GESTURE-VAR))
  	,NON-BLIP-FORM
  