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:          (labelling (:label "Matching symbols"
                              :text-style (make-text-style :sans-serif :roman :normal))
             (scrolling (:height 200)
               (make-pane 'list-pane
                          :value 'clim:region-intersection
                          :items (apropos-list "INTER" :clim t)
                          :name-key (lambda (x) (format nil "~(~S~)" x))
  