anchor.diff:  		(eq (frame-state frame) :shrunk))
         (enable-frame frame))
       ;; Start a new thread to run the event loop, if necessary.
  +    #+CLIM-MP
       (unless input-buffer
         (clim-sys:make-process (lambda () (let ((*application-frame* frame))
                                             (standalone-event-loop)))))
  
positive.code:          (frame (make-application-frame 'a-window-stream
                                          :frame-event-queue input-buffer
                                          :frame-manager fm
  					:left left
  					:top top
  					:right right
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.148 2005/01/21 11:01:37 ahefner Exp $
  
  (in-package :clim-internals)
  
  