anchor.diff:                   :minor minor
                    :min-minor (min min-minor minor)
                    :max-minor (max max-minor minor)))))
  -      
  +
         (defun allot-space-xically (srs major)
           (let* ((allot (mapcar #'space-requirement-major srs))
                  (wanted (reduce #'+ allot))
  
positive.code: ;; same as outlined-pane, but thickness is now called border-width.
  
  (defclass border-pane (outlined-pane)
    ((border-width :initarg :border-width 
                   :initform 1 
                   :reader border-pane-width))
    (:documentation ""))
  
  
negative.code:                                                      (find-package :keyword))
                                                   (symbol-package sym)
                                                 *package*)))
                                     (intern (concatenate 'string
                                               (subseq (symbol-name sym) 0 p)
                                               (symbol-name new)
                                               (subseq (symbol-name sym)
                                                       (+ p (length (symbol-name old)))))
                                             pack)))
                                  (t
  