From 8daf6535e7cbc53240ea1a5a35b310a74ca24530 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 2 Apr 2004 04:15:28 +0000
Subject: [PATCH] Fix typo:  6.4 should be (* pi 2)

From Fred Gilham, via cmucl-imp, 2004-04-01
---
 contrib/demos/demos.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/demos/demos.lisp b/contrib/demos/demos.lisp
index 4fad38477..b1fd6771e 100644
--- a/contrib/demos/demos.lisp
+++ b/contrib/demos/demos.lisp
@@ -293,7 +293,7 @@
 			     (xlib:draw-rectangle window draw-gcontext
 						  x y w h t)
 			     (xlib:draw-arc window draw-gcontext
-					    x y w h 0 6.4 t)))
+					    x y w h 0 (* 2 pi) t)))
 		       (let ((p1-x (+ border-x
 				      (random (- width (* 2 border-x)))))
 			     (p1-y (+ border-y
-- 
GitLab