X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraphviz%2Fgraphviz-support.lisp;h=f9fa2610bbdedfd44a9bfa1834812b71f8f2fbef;hb=234cdb04a311bab3cb6f75569f6ef3e146839e6e;hp=df13254fb2ac956497ed3068099b8885f0a57cc3;hpb=704d2802c057c57704629dcd228ead6c5d3c4258;p=cl-graph.git

diff --git a/dev/graphviz/graphviz-support.lisp b/dev/graphviz/graphviz-support.lisp
index df13254..f9fa261 100644
--- a/dev/graphviz/graphviz-support.lisp
+++ b/dev/graphviz/graphviz-support.lisp
@@ -354,7 +354,7 @@ B--D []
 (defmacro defpixel-inch-accessors (name attr type)
   (bind ((actual-name (form-symbol name "-IN-PIXELS")))
     `(progn
-      (export ',actual-name)
+       (eval-always (export ',actual-name))
       (defmethod ,actual-name ((thing ,type))
         "Return the attribute in pixels assuming 72 dpi"
         (awhen (dot-attribute-value ,attr thing)