anchor.diff:      ;;
       (labels ((seek-symbol (name packages)
                  ;; Seek the a symbol named 'name' in `packages'
  -               (or (some #'(lambda (p) 
  +               (or (some #'(lambda (p)
                                (multiple-value-bind (sym res) (find-symbol name p)
                                  (if (eql res :external)
                                      (list sym)
  
positive.code:                                      ;;
                                       (format T "~&;; ~S is patched." sym)
                                       (finish-output)
                                       (push `(:import-from
                                               :clim-lisp-patch
                                               ,nam)
                                             imports) )
                                      (t
                                       (setf sym (car sym))
                                       ;; CLISP has no (:import ..) ARG!
                                       (push `(:import-from
                                               ,(package-name (symbol-package sym))
                                               ,(symbol-name sym))
                                             imports))))))
                              res)))
                   (setf export-ansi (grok all-ansi-symbols packages))
                   (setf export-gray (grok gray-symbols gray-packages))
                   `(progn
                     (defpackage "CLIM-LISP" (:use)
                       ,@imports
                       (:export
                        ,@(mapcar #'symbol-name export-ansi)
                        ,@(mapcar #'symbol-name export-gray) )) ))))
  
negative.code: (defpackage "CLIM-EXTENSIONS"
    (:use)
    (:export
     "SPACING-PANE" "SPACING"
     "RAISED-PANE" "RAISING"
     "VIEWPORT-PANE"
     "SCROLLER-PANE" "SCROLLING"
     "DRAW-GLYPH" "DEVICE-FONT-TEXT-STYLE-P"
     "DRAW-IMAGE"
     "IMAGE-PANE"
  