anchor.diff:                           ,@layouts))))))))
   
   (defmacro define-application-frame (name superclasses slots &rest options)
  -  (if (null superclasses)
  -      (setq superclasses '(standard-application-frame)))
  +  (when (null superclasses)
  +    (setq superclasses '(standard-application-frame)))
     (let ((pane nil)
   	(panes nil)
   	(layouts nil)
  
positive.code:   (if (and (boundp '*frame-manager*)
             (or (null port) (eql port (port *frame-manager*))))
        *frame-manager*
      (if (and *default-frame-manager*
               (frame-manager-p *default-frame-manager*)
               (or (null port) (eql port (port *default-frame-manager*))))
  	*default-frame-manager*
          (first (frame-managers (or port (apply #'find-port options)))))))
  
  (defmacro with-frame-manager ((frame-manager) &body body)
    `(let ((*frame-manager* ,frame-manager))
  
negative.code:                                  (symbol-name '#:define-)
                                   (symbol-name name)
                                   (symbol-name '#:-command)))))
      (when (or (and pane panes)
                (and pane layouts))
        (error ":pane cannot be specified along with either :panes or :layouts"))
  
      (when pane
        (setq panes (list 'single-pane pane)
              layouts `((:default ,(car pane)))))
  
      (setq current-layout (first (first layouts)))
      `(progn
        (defclass ,name ,superclasses
  