anchor.diff:               (let ((frame nil))
                  (lambda (&rest ignore)
                    (declare (ignore ignore))
  -                 (cond ((null frame)
  +                 (cond ((null frame)    ;; I broke this logic, sorry.. -Hefner
                           (setq frame
  -                          (make-application-frame demo-frame-class)))
  +                          (run-frame-top-level (make-application-frame demo-frame-class))))
                          (t
                           #+nil
                           (destroy-frame frame)))))))
  
positive.code: ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-INTERNALS; -*-
  ;;; --------------------------------------------------------------------------------------
  ;;;     Title: The demo demo
  ;;;   Created: 2002-02-11
  
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 
      () ()
  