anchor.diff:           (labelling (:label "Matching symbols"
                               :text-style (make-text-style :sans-serif :roman :normal))
              (scrolling (:height 200)
  -             (make-pane 'generic-list-pane
  +             (make-pane 'list-pane
                           :value 'clim:region-intersection
                           :items (apropos-list "INTER" :clim t)
                           :name-key (lambda (x) (format nil "~(~S~)" x))
  
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: ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-DEMO; -*-
  ;;; --------------------------------------------------------------------------------------
  ;;;     Title: The demo demo
  ;;;   Created: 2002-02-11
  