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:                                       (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
  