Permalink
Browse files

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

…xecute. Thanks to Utz-Uwe Haus for the patch.
  • Loading branch information...
1 parent 23b84cf commit cee1e6b39a1c227c5c30bfcd0abda93e74000415 @slyrus slyrus committed Mar 25, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 colors.lisp
View
@@ -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))

0 comments on commit cee1e6b

Please sign in to comment.