wrap color export in an eval-when :compile-toplevel :load-toplevel :e…

…xecute. Thanks to Utz-Uwe Haus for the patch.
akovalenko · Mar 25, 2011 · cee1e6b · cee1e6b
1 parent 23b84cf
commit cee1e6b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/colors.lisp b/colors.lisp
@@ -32,5 +32,6 @@
                              (let ((sym (read-from-string color)))
                                `(progn
                                   (defparameter ,sym (list ,r ,g ,b))
-                                  (export ',sym))))))))))
+                                  (eval-when (:compile-toplevel :load-toplevel :execute)
+                                    (export ',sym)))))))))))
   (frob-colors))