anchor.diff:                                       ;;
                                        (format t "~&;; ~S is patched." sym)
                                        (finish-output)
  -                                     (push-import-from nam
  -                                                       :clim-lisp-patch))
  +                                     (push-import-from nam :clim-lisp-patch))
                                       (t
                                        (setf sym (car sym))
                                        ;; clisp has no (:import ..) arg!
  
positive.code:    #:boolean 
     #:character 
     #:close 
     #:complex
     #:describe
     #:describe-object
     #:float 
     #:fundamental-binary-input-stream 
     #:fundamental-binary-output-stream 
  
negative.code:                                  (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) )) ))))
  