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:    #: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)
  
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)))
  