anchor.diff: -;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-INTERNALS; -*-
  +;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-DEMO; -*-
   ;;; --------------------------------------------------------------------------------------
   ;;;     Title: The demo demo
   ;;;   Created: 2002-02-11
  
positive.code:              (let ((frame nil))
                 (lambda (&rest ignore)
                   (declare (ignore ignore))
                   (cond ((null frame)
                          (setq frame
                            (make-application-frame demo-frame-class)))
                         (t
                          #+nil
                          (destroy-frame frame)))))))
  
negative.code: (defun demodemo ()
    (loop for port in climi::*all-ports*
        do (destroy-port port))
    (run-frame-top-level (make-application-frame 'demodemo)))
  
  (define-application-frame hbox-test 
      () ()
  