anchor.diff:                          (- (- x2 right) (+ x1 left))
                           (- (- y2 bottom) (+ y1 top)))))))
                
  -
  -(defun curry (fun &rest args)
  -  #'(lambda (&rest more)
  -      (apply fun (append args more))))
  -
   (defmethod draw-design (medium (design rectangle))
     (multiple-value-call #'draw-rectangle* medium (rectangle-edges* design)))
   
  
positive.code: 
  (defmacro dada ((&rest substs) &body body)
    "This is an evil macro."
    `(progn
       ,@(loop for k from 1 below (length (first substs)) collect
               (labels ((subst-one (new old sym)
  
negative.code: 
  ;;; SPACING PANE
  
  (defclass spacing-pane (border-space-requirement-options-mixin composite-pane
                          permanent-medium-sheet-output-mixin)
    ()
    (:documentation "The spacing pane will create a margin for his child.
  The margin sizes (w h) are given with the :width and :height initargs.
  