anchor.diff:  
   #||
   
  -;;; Testing --GB 2002-08-14
  +;;; Testing --GB 2002-08-14 --JAC 2017/09/04
  +
  +(in-package :clim-user)
   
   (define-application-frame graph-test ()
     ()
  
positive.code:        :orientation :horizontal))))
  
  (defun external-symbol-p (sym)
    ;; *cough* *cough*
    (< (count #\: (let ((*package* (find-package :keyword)))
                    (prin1-to-string sym)))
       2))
  
  (define-graph-test-command bar ()
    (with-text-style (*query-io* (make-text-style :sans-serif nil 10))
      (let ((*print-case* :downcase))
        (format-graph-from-roots
         (list (c2mop:find-class 'climi::basic-output-record))
         #'(lambda (x s)
             (progn ;;surrounding-output-with-border (s :shape :oval)
               (with-text-style (s (make-text-style nil
                                                    (if (external-symbol-p (class-name x))
                                                        :bold
  
negative.code: 
  ;;;  (c) copyright 2002 by Gilbert Baumann
  ;;;  (c) copyright 2005 by Robert P. Goldman
  ;;;  (c) copyright 2017 by John A. Carroll
  
  ;;; This library is free software; you can redistribute it and/or
  ;;; modify it under the terms of the GNU Library General Public
  