anchor.diff:     #:boolean 
      #:character 
      #:close 
  -   #:complex
  -   #:describe
  -   #:describe-object
  +   #:complex 
      #:float 
      #:fundamental-binary-input-stream 
      #:fundamental-binary-output-stream 
  
positive.code:                                  (destructuring-bind (package . syms) spec
                                     `(:import-from ,package ,@syms)))
                                 imports)
                       (:export
                        ,@(mapcar #'symbol-name export-ansi)
                        ,@(mapcar #'symbol-name export-gray) )) ))))
  
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
  