[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv5221

Modified Files:
	variables.lisp 
Log Message:
Added some variables.


--- /project/movitz/cvsroot/movitz/losp/muerte/variables.lisp	2005/06/10 23:05:50	1.9
+++ /project/movitz/cvsroot/movitz/losp/muerte/variables.lisp	2006/04/10 11:58:27	1.10
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Nov  5 21:53:34 2003
 ;;;;                
-;;;; $Id: variables.lisp,v 1.9 2005/06/10 23:05:50 ffjeld Exp $
+;;;; $Id: variables.lisp,v 1.10 2006/04/10 11:58:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -45,4 +45,28 @@
 
 (defvar *gc-hooks* nil)
 
+(defvar *load-pathname* nil)
+
+
+(defvar most-positive-short-float 1000000)
+(defvar most-positive-single-float 1000000)
+(defvar most-positive-double-float 1000000)
+(defvar most-positive-long-float 1000000)
+
+(defvar short-float-epsilon 1/1000)
+(defvar single-float-epsilon 1/1000)
+(defvar double-float-epsilon 1/1000)
+(defvar long-float-epsilon 1/1000)
+
+(defvar short-float-negative-epsilon -1/1000)
+(defvar single-float-negative-epsilon -1/1000)
+(defvar double-float-negative-epsilon -1/1000)
+(defvar long-float-negative-epsilon -1/1000)
+
+
+(defconstant call-arguments-limit #xffff0)
+(defconstant lambda-parameters-limit #x1000) ; ?
+
+(defvar *print-pprint-dispatch* nil)
+
 (declaim (special *build-number*))