anchor.diff:  
   (defmethod layout-frame ((frame application-frame) &optional width height)
     (let ((pane (frame-panes frame)))
  -    (if (and  width (not height))
  -	(error "LAYOUT-FRAME must be called with both WIDTH and HEIGHT or neither"))
  +    (when (and (or width height)
  +               (not (and width height)))
  +      (error "LAYOUT-FRAME must be called with both WIDTH and HEIGHT or neither"))
       (if (and (null width) (null height))
   	(let ((space (compose-space pane))) ;I guess, this might be wrong. --GB 2004-06-01
   	  (setq width (space-requirement-width space))
  
positive.code: 	     (:top-level (setq top-level (first values)))
  	     (:pointer-documentation (setq pointer-documentation (car values)))
  	     (:geometry (setq geometry values))
  	     (t (push (cons prop values) others))))
      (when (eq command-definer t)
        (setf command-definer
  
negative.code:          #+clim-mp (event-queue (sheet-event-queue t-l-s)))
      (setf (slot-value frame 'top-level-sheet) t-l-s)
      (generate-panes fm frame)
      (setf (slot-value frame 'state) :disabled)
      #+clim-mp
      (when (typep event-queue 'port-event-queue)
        (setf (event-queue-port event-queue)
  