(clim:define-application-frame test
    ()
  ((height :initform 55
  :accessor height))
  (:panes
   (main :application :display-function 'display-main)
   (promper :interactor))
  (:layouts
   (:default (clim:vertically ()
(2/3 (bordering () main));;;;<=???
(1/3 promper)))))