face-attribute: Wrong type argument: symbolp, (link-visited info-xref)

color-theme 6.5.5 で

===
(add-to-list 'load-path
             "~/.emacs.d/elpa/color-theme-6.5.5")
(require 'color-theme)
(color-theme-initialize)
(color-theme-gnome2)
===

===
Warning (initialization): An error occurred while loading `/home/clothoid/.emacs.d/init.el':

Symbol's function definition is void: color-theme-initialize
q
To ensure normal operation, you should investigate and remove the
cause of the error in your initialization file.  Start Emacs with
the `--debug-init' option to view a complete error backtrace.
===

===
Debugger entered--Lisp error: (void-function color-theme-initialize)
  (color-theme-initialize)
  eval-buffer(#<buffer  *load*> nil "/home/clothoid/.emacs.d/init.el" nil t)  ; Reading at buffer position 12879
  load-with-code-conversion("/home/clothoid/.emacs.d/init.el" "/home/clothoid/.emacs.d/init.el" t t)
  load("/home/clothoid/.emacs.d/init" t t)
  #[nil " \205\264 \306=\203 \307 \310Q\2027 \311=\2033 \312\307\313\314#\203# \315\2027 \312\307\313\316#\203/ \317\2027 \315\2027 \307 \320Q \321 \322\n\321\211#\210 \321=\203_ \323\324\325\307 \326Q!\" \322\f\321\211#\210 \321=\203^ \n ) \203\244 \327 !\330\232\203\244 \331 !\211 \332P \"\333 \"!\203\200 \"\202\213 \333
!\203\212
\202\213 \313\211 \203\243 \334
\"\203\241 \335\336
#\210\337\340!\210
* #?\205\263 \313 $\322\341\321\211#))\207" [init-file-user system-type user-init-file-1 user-init-file otherfile source ms-dos "~" "/_emacs" windows-nt directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" "~/_emacs" "/.emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default" alt inhibit-default-init inhibit-startup-screen] 7]()
  command-line()
  normal-top-level()
===

と言われ、

===
(add-to-list 'load-path
             "~/.emacs.d/elpa/color-theme-6.5.5")
(require 'color-theme)
;; (color-theme-initialize)
(color-theme-gnome2)
===

とすると起動するが、M-x color-theme-select すると

===
face-attribute: Wrong type argument: symbolp, (link-visited info-xref)
===

と言われてしまう。

インストールは

M-x install-elisp
http://repo.or.cz/w/emacs.git/blob_plain/1a0a666f941c99882093d7bd08ced15033bc3f0c:/lisp/emacs-lisp/package.el

として、

===
;;package.elの設定
(when (require 'package nil t)
;;パッケージリポジトリにMarmaladeと開発者運営のELPAを追加
(add-to-list 'package-archives
             '("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives '("ELPA" . "http://tromey.com/elpa/"))
;;インストールするディレクトリを指定
(setq package-user-dir(concat user-emacs-directory "elpa"))
;;インストールしたパッケージにロードパスを通して読み込む
(package-initialize))
===

と書き、M-x list-packages 一覧の中からcolor-themeの所で"i"を入力して、
"x"とインストールしたが、途中

===
Leaving directory `/home/clothoid/.emacs.d/elpa/color-theme-6.5.5'

Compiling file /home/clothoid/.emacs.d/elpa/color-theme-6.5.5/color-theme-pkg.el at Thu Dec  6 03:55:41 2012
Entering directory `/home/clothoid/.emacs.d/elpa/color-theme-6.5.5/'

Compiling file /home/clothoid/.emacs.d/elpa/color-theme-6.5.5/color-theme.el at Thu Dec  6 03:55:41 2012
color-theme.el:200:1:Warning: cl package required at runtime

In color-theme-select:
color-theme.el:582:10:Warning: `beginning-of-buffer' used from Lisp code
That command is designed for interactive use only

In color-theme-install-variables:
color-theme.el:1419:10:Warning: `make-variable-frame-local' is an obsolete
    function (as of Emacs 22.2); explicitly check for a frame-parameter
    instead.

In end of data:
color-theme.el:15171:1:Warning: the following functions are not known to be defined: plist-to-alist,
    color-theme-face-attr-construct, set-face-property,
    color-theme-spec-compat, reporter-compose-outgoing,
    mail-position-on-field, mail-text
===

と言われたのが気になり、また、M-x list-packages 一覧の中からcolor-themeの所で"d"を入力して、
"x"とアンインストールを試みるも

===
Delete package `color-theme-6.5.5'? (y or n)
byte-code: Wrong type argument: stringp, #[(directory &optional recursive) "ÅÆ !! Ç È\"‰ ƒ È
#‚I ƒ3
„- É Ê #ƒ- ËÌ!‚I Í !‚I
ƒF Î !„F ÏÐÉ Ê #\"ˆÑ !)‡" [directory handler recursive delete-by-moving-to-trash directory-files-no-dot-files-regexp directory-file-name expand-file-name find-file-name-handler delete-directory directory-files ...] 7 1842094 (let ((dir (expand-file-name (read-file-name "Delete directory: " default-directory default-directory nil nil)))) (list dir (if (directory-files dir nil directory-files-no-dot-files-regexp) (y-or-n-p (format "Directory `%s' is not empty, really delete? " dir)) nil)))]
Mark set
===

と言われてしまう始末。どうしたらいいのだろうか。