Add eval-when to the definition of TO-KEYWORD.

mpd.asd

@@ -1,14 +1,14 @@
-;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 
 (defpackage #:mpd-asd
   (:use :cl :asdf))
 
 (in-package :mpd-asd)
 
 (defsystem mpd
-    :name "mpd"
-    :description "MPD client"
-    :serial t
-    :depends-on (:usocket :cl-ppcre)
-    :components ((:file "package")
-		 (:file "mpd")))
+  :name "mpd"
+  :description "MPD client"
+  :serial t
+  :depends-on (:usocket :cl-ppcre)
+  :components ((:file "package")
+	       (:file "mpd")))

mpd.lisp

@@ -1,15 +1,16 @@
-;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 
-;;; This software is in the public domain and is
-;;; provided with absolutely no warranty.
+;; This software is in the public domain and is
+;; provided with absolutely no warranty.
 
 (in-package :mpd)
 
 (defparameter *defualt-host* "localhost")
 (defparameter *default-port* 6600)
 
-(defun to-keyword (symbol)
-  (intern (string-upcase (string symbol)) :keyword))
+(eval-when (:compile-toplevel)
+  (defun to-keyword (symbol)
+    (intern (string-upcase (string symbol)) :keyword)))
 
 (defmacro make-class (name slots)
   `(defclass ,name ()

package.lisp

@@ -1,4 +1,4 @@
-;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 
 (in-package :cl-user)