anchor.diff:  
   (defmacro dada ((&rest substs) &body body)
     "This is an evil macro."
  +  (setf substs (sort substs #'> :key (lambda (s) (length (symbol-name (first s))))))
     `(progn
        ,@(loop for k from 1 below (length (first substs)) collect
                (labels ((subst-one (new old sym)
  
positive.code:                            (- width user-width)
                             (- height user-height))))
     
  ;;; BORDER-PANE
  
  (defclass border-pane (spacing-pane)
    ((border-width :initarg :border-width :initform 1 :reader border-pane-width)
     )
    (:documentation ""))
  
  (defmethod initialize-instance :after ((bp border-pane) &rest ignore)
    (declare (ignore ignore))
    #+NIL
    (with-slots (border-width) bp
      (let ((2*border-width (* 2 border-width)))
        (setf (slot-value bp 'margin-width) 2*border-width
  	    (slot-value bp 'margin-height) 2*border-width 
  	    (slot-value bp 'margin-max-width) 2*border-width
  	    (slot-value bp 'margin-max-height) 2*border-width
  	    (slot-value bp 'margin-min-width) 2*border-width
  	    (slot-value bp 'margin-min-height) 2*border-width))))
  
  (defmacro bordering ((&rest options) &body contents)
    `(make-pane 'border-pane ,@options :contents (list ,@contents)))
  
  (defmethod allocate-space ((bp border-pane) width height)
    (when (first (sheet-children bp))
      (let ((border-width (border-pane-width bp)))
        (setf (sheet-transformation (first (sheet-children bp)))
  	    (make-translation-transformation border-width border-width))
        (allocate-space (first (sheet-children bp))
  		      (- width (* 2 border-width))
  		      (- height (* 2 border-width))))))
  
  ;;; RAISED PANE
  
  
negative.code:          minimize (space-requirement-max-minor sr) into max-minor
           finally
             (return
               (space-requirement+*
                (make-space-requirement
                 :major major
                 :min-major (min min-major major)
                 :max-major (max max-major major)
                 :minor minor
                 :min-minor (min min-minor minor)
                 :max-minor (max max-minor minor))
                :min-major (* (1- (length contents)) major-spacing)
                :max-major (* (1- (length contents)) major-spacing)
                :major (* (1- (length contents)) major-spacing)
                :min-minor 0
                :max-minor 0
                :minor 0)))))
  
   (defmethod allocate-space-aux ((box xbox-pane) width height)
     (with-slots (contents major-spacing) box
       (let* ((content-srs (mapcar #'(lambda (c) (content-sr* box c)) contents))
              (allot       (mapcar #'ceiling (mapcar #'space-requirement-major content-srs)))
              (wanted      (reduce #'+ allot))
              (excess      (- major wanted
                              (* (1- (length contents)) major-spacing))))
         #+NIL
         (progn
           (format T "~&;; ALLOCATE-SPACE-AUX ~S~%" box)
  