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:    #:boolean 
     #:character 
     #:close 
     #:complex 
     #:float 
     #:fundamental-binary-input-stream 
     #:fundamental-binary-output-stream 
  