[movitz-cvs] CVS update: movitz/losp/muerte/ratios.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv17760

Modified Files:
	ratios.lisp 
Log Message:
Add a defconstant pi, for the fun of it.

Date: Thu Jul 29 09:20:43 2004
Author: ffjeld

Index: movitz/losp/muerte/ratios.lisp
diff -u movitz/losp/muerte/ratios.lisp:1.1 movitz/losp/muerte/ratios.lisp:1.2
--- movitz/losp/muerte/ratios.lisp:1.1	Tue Jul 27 06:54:12 2004
+++ movitz/losp/muerte/ratios.lisp	Thu Jul 29 09:20:43 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Jul 20 00:39:59 2004
 ;;;;                
-;;;; $Id: ratios.lisp,v 1.1 2004/07/27 13:54:12 ffjeld Exp $
+;;;; $Id: ratios.lisp,v 1.2 2004/07/29 16:20:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -51,3 +51,5 @@
   (etypecase x
     (integer 1)
     (ratio (ratio-denominator x))))
+
+(defconstant pi #xea7632a/4aa1a8b)