Merge pull request #5 from rpav/master

Use DEFPARAMTER instead of DEFINE-CONSTANT. (Thanks, Ryan!)
tpapp · Jun 26, 2014 · bc9b041 · bc9b041
2 parents 1a30630 + aa3ad8e
commit bc9b041
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/colors.lisp b/colors.lisp
@@ -156,6 +156,6 @@ combination is in the positive or negative direction on the color wheel."
 the automatically generated color file."
   (let ((constant-name (symbolicate #\+ name #\+)))
     `(progn
-       (define-constant ,constant-name (rgb ,red ,green ,blue)
-         :test #'equalp :documentation ,(format nil "X11 color ~A." name))
+       (defparameter ,constant-name (rgb ,red ,green ,blue)
+         ,(format nil "X11 color ~A." name))
        (export ',constant-name))))