anchor.diff:                                   (destructuring-bind (package . syms) spec
                                      `(:import-from ,package ,@syms)))
                                  imports)
  +                     (:shadow #:describe #:describe-object)
  +                     (:export #:describe #:describe-object)
                        (:export
                         ,@(mapcar #'symbol-name export-ansi)
                         ,@(mapcar #'symbol-name export-gray) )) ))))
  
positive.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!
  
negative.code:                                       (symbol-name sym)
                                        (package-name (symbol-package sym))))))))
                              res)))
                                    ;;
                   ;; Don't redefine a perfectly working CL:DESCRIBE,
                   ;; which more often than not has special knowledge
                   ;; about objects you can't possibly gain though some
                   ;; portable implementation.
                   ;; --GB 2004-11-20
                   (setf all-ansi-symbols (remove '#:describe all-ansi-symbols :test #'string-equal))
                   (setf all-ansi-symbols (remove '#:describe-object all-ansi-symbols :test #'string-equal))
                   ;;
                   (setf export-ansi (grok all-ansi-symbols packages))
                   (setf export-gray (grok gray-symbols gray-packages))
                   `(progn
  