anchor.diff:                 ,@options
                  :contents (list ,@(mapcar (lambda (content)
                                              (cond ((and (consp content)
  -                                                       (realp (first content)))
  +                                                       (or (realp (first content))
  +                                                           (member (first content) '(+fill+ :fill))))
                                                     `(list ',(first content)
                                                            ,(second content)))
                                                    (t
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.93 2002/07/31 11:58:10 adejneka Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code:  (defmethod xically-content-sr** ((pane box-layout-mixin) child)
     (let (p)
       (cond ((constraint-slot pane child 'fill-p)
              (let ((child-space (compose-space child)))
                (make-space-requirement
                 :major     (space-requirement-major child-space)
                 :min-major (space-requirement-min-major child-space)
                 :max-major +fill+
                 :minor     (space-requirement-minor child-space)
                 :min-minor (space-requirement-min-minor child-space)
                 :max-minor (space-requirement-max-minor child-space))))
             ((setq p (constraint-slot pane child 'fixed-size))
              (let ((sr (compose-space child)))
                (make-space-requirement
  