anchor.diff:                                    (push (car sym) res)
                                     (cond
                                       ((and (find-package :clim-lisp-patch)
  -                                          (multiple-value-bind (sym2 res) (find-symbol nam :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)
  +                                     (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!
  +                                     ;; clisp has no (:import ..) arg!
                                        (push-import-from
                                         (symbol-name sym)
                                         (package-name (symbol-package sym))))))))
  
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:                  (setf export-ansi (grok all-ansi-symbols packages))
                   (setf export-gray (grok gray-symbols gray-packages))
                   `(progn
                     (defpackage :clim-lisp (:use)
                       ,@(mapcar (lambda (spec)
                                   (destructuring-bind (package . syms) spec
                                     `(:import-from ,package ,@syms)))
  