anchor.diff:     #:defgeneric*
      #:defmethod* ) )
   
  -(defpackage "CLIM-EXTENSIONS"
  +(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)
  +   #: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)
  
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:                                   (push (car sym) res)
                                    (cond
                                      ((and (find-package :clim-lisp-patch)
                                            (multiple-value-bind (sym2 res) (find-symbol (symbol-name nam) :clim-lisp-patch)
                                              (and sym2 (eq res :external))))
                                       ;;
                                       (format t "~&;; ~S is patched." sym)
                                       (finish-output)
                                       (push-import-from nam
                                                         :clim-lisp-patch))
                                      (t
                                       (setf sym (car sym))
                                       ;; clisp has no (:import ..) arg!
                                       (push-import-from
                                        (symbol-name sym)
                                        (package-name (symbol-package sym))))))))
  