DrawCircle bug

[myers@atr-la.atr.co.jp (John K. Myers)]

The latest version I have of DrawCircle, in file rel-8-1>dynamic-windows>graphics-generics.lisp,
does not include nor accept a :gray-level flag.

The patch is to copy the code and put a default value in at the top:
(defun draw-circle (center-x center-y radius
		    &rest args
		    &key (inner-radius 0)
		    &allow-other-keys)
  (declare (arglist center-x center-y radius 
	    &key (inner-radius 0) (start-angle 0) (end-angle 2pi)

(GRAY-LEVEL 1) ;Where in the world did this go?!?!?!?!????

		 (alu :draw) (filled t) (pattern nil) (opaque t)
		...etc.

making sure to call draw-ellipse in the graphics: package.

--John Myers.