anchor.diff:                        (or (member (car content) '(+fill+ :fill))
                             (eql (car content) +fill+)))
                    (make-instance 'box-client
  -                                :pane nil
  +                                :pane (cadr content)
                                   :fillp t))
                   ;; <n>
                   ;;
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.106 2002/11/10 15:48:56 gilbert Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code:                        (child  (cadr content)))
                     (if (< number 1)
                         (make-instance 'box-client
                                        :pane child
                                        :proportion number)
                         (make-instance 'box-client
                                        :pane child
                                        :fixed-size number))))
  
                  (t
  