anchor.diff:                  :presentation-type presentation-type
                   :x-spacing x-spacing
                   :y-spacing y-spacing
  +                :n-columns n-columns
  +                :n-rows n-rows
  +                :max-width max-width
  +                :max-height max-height
                   :cell-align-x cell-align-x
                   :cell-align-y (or cell-align-y :top)
  -                :row-wise nil))
  +                :row-wise row-wise))
   
   
   (defmacro with-menu ((menu &optional associated-window
  
positive.code: 
  (defun invoke-with-menu (continuation associated-window deexpose)
    (declare (ignore deexpose))           ; FIXME!!!
    (let* ((associated-window (or associated-window *application-frame*))
           (fm (frame-manager associated-window))
           (stream (make-pane-1 fm associated-window 'command-menu-pane))
           (frame (make-menu-frame stream)))
      (adopt-frame fm frame)
      (change-space-requirements stream :width 1 :height 1)
  
negative.code: 
  ;;; TODO:
  ;;;
  ;;; - aborting
  ;;; + returned values
  ;;; + menu frame size
  ;;; + layout
  
  (in-package :CLIM-INTERNALS)
  
  