anchor.diff:  	     (:pointer-documentation (setq pointer-documentation (car values)))
   	     (:geometry (setq geometry values))
   	     (:default-initargs (setq user-default-initargs values))
  -	     (t (push (cons prop values) others))))    
  +	     (t (push (cons prop values) others))))
       (when (eq command-definer t)
         (setf command-definer
               (intern (concatenate 'string
  
positive.code:   (setf (slot-value pane 'name) name)
    pane)
  
  (defun do-pane-creation-form (name form)  
    (cond
      ;; Single form which is a function call
      ((and (= (length form) 1)
  
negative.code: 			(space-requirement-width (compose-space pane))))
  	     (height (or geometry-height
  			 (and geometry-top geometry-bottom (- geometry-bottom geometry-top))
  			 (space-requirement-height (compose-space pane))))
  	     ;; See if a position is wanted and return left, top.
  	     (left (or geometry-left
  		       (and geometry-right (- geometry-right geometry-width))))
  