anchor.diff:                            (finish-output)
                             nil)))
                (dump-defpackage (&aux imports export-ansi export-gray)
  -               (labels ((grok (symbols packages)
  +               (labels ((push-import-from (symbol package)
  +                          (let ((pair (assoc package imports)))
  +                            (if pair
  +                                (push symbol (cdr pair))
  +                                (push `(,package . (,symbol))
  +                                      imports))))
  +                        (grok (symbols packages)
                             (let ((res nil))
                               (dolist (nam symbols)
                                 (let ((sym (seek-symbol nam packages)))
  
positive.code:     ;;
      (labels ((seek-symbol (name packages)
                 ;; Seek the a symbol named 'name' in `packages'
                 (or (some #'(lambda (p) 
                               (multiple-value-bind (sym res) (find-symbol name p)
                                 (if (eql res :external)
                                     (list sym)
  
negative.code:                                      ;;
                                       (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))))))))
                              res)))
                   (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)))
                                 imports)
                       (:export
                        ,@(mapcar #'symbol-name export-ansi)
                        ,@(mapcar #'symbol-name export-gray) )) ))))
  