From 09c513e467ed37a41e5249f47224666e85d493d0 Mon Sep 17 00:00:00 2001 From: William Robinson Date: Tue, 16 Oct 2007 18:27:56 +0100 Subject: [PATCH] Fixed float-too-big error. --- lib/glu.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/glu.lisp b/lib/glu.lisp index 2f9c640..fbacafe 100644 --- a/lib/glu.lisp +++ b/lib/glu.lisp @@ -189,7 +189,7 @@ (defconstant +tess-winding-negative+ 100133) (defconstant +tess-winding-abs-geq-two+ 100134) ;; *********************************************************** -(defconstant +tess-max-coord+ 1.0e150) +(defconstant +tess-max-coord+ 1.0d150) (defcfun ("gluBeginCurve" begin-curve) :void (nurb :pointer)) (defcfun ("gluBeginPolygon" begin-polygon) :void (tess :pointer)) (defcfun ("gluBeginSurface" begin-surface) :void (nurb :pointer)) -- 2.11.4.GIT