Undefined variable $DRAW_USE_PNGCAIRO



Dieter Kaiser <drdieterkaiser at web.de> writes:
> On my system I get a warning about an undefined variable
> $DRAW_USE_PNGCAIRO when loading the draw package.

Sorry, this is my fault.  I should have put the declaration of
$draw_use_pngcairo into grcommon.lisp instead of draw.lisp.
GCL did not complain, so I didn't notice.

The following patch should fix it.

     Mark


--- draw-orig.lisp	2011-01-06 22:52:57.000000000 -0500
+++ draw.lisp	2011-01-08 11:42:03.000000000 -0500
@@ -41,8 +41,6 @@
 
 (defvar $draw_compound t)
 
-(defvar $draw_use_pngcairo nil "If true, use pngcairo terminal when png is requested.")
-
 (defvar *windows-OS* (string= *autoconf-win32* "true"))
 
 (defmacro write-font-type ()
--- grcommon-orig.lisp	2011-01-06 22:54:49.000000000 -0500
+++ grcommon.lisp	2011-01-08 11:42:00.000000000 -0500
@@ -33,6 +33,10 @@
 (defvar *user-gr-default-options* '())
 
 
+(defvar $draw_use_pngcairo nil
+  "If true, use pngcairo terminal when png is requested.")
+
+
 (defun $set_draw_defaults (&rest opts)
    (setf *user-gr-default-options* opts)
    (cons '(mlist) opts))