anchor.diff:                   (setf export-ansi (grok all-ansi-symbols packages))
                    (setf export-gray (grok gray-symbols gray-packages))
                    `(progn
  -                   (defpackage "CLIM-LISP" (:use)
  +                   (defpackage :clim-lisp (:use)
                        ,@(mapcar (lambda (spec)
                                    (destructuring-bind (package . syms) spec
                                      `(:import-from ,package ,@syms)))
  
positive.code: 
  ;(use-package :clim-extensions :clim)
  
  (defpackage :CLIM-DEMO
    (:use :clim-extensions :clim :clim-lisp)
    #+excl(:import-from :excl compile-system load-system exit)
    )
  
  (defpackage :CLIM-USER
    (:use :clim :clim-lisp))
  
  (defpackage :GOATEE
    (:use :clim :clim-lisp :clim-sys)
    (:import-from #:clim-internals #:letf)
    (:export
     "EXECUTE-GESTURE-COMMAND"
     "GOATEE-INPUT-EDITING-MIXIN"
     "SIMPLE-SCREEN-AREA"))
  
  
negative.code:    #:defgeneric*
     #:defmethod* ) )
  
  (defpackage :clim-extensions
    (:use)
    (:export
     #:line-style-effective-thickness
     #:medium-miter-limit
     #:raised-pane #:raising
     #:lowered-pane #:lowering
     #:viewport-pane
     #:draw-glyph #:device-font-text-style-p
     #:draw-image
     #:image-pane
     #:draw-label
     #:compose-space-aux
     #:simple-event-loop
     #:pointer-motion-hint-event))
  
  (defpackage :clim-internals
    (:use :clim :clim-sys :clim-extensions :clim-lisp)
    (:nicknames :climi)
    #+excl
    (:import-from :excl compile-system load-system)
  