[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	variables.lisp 
Log Message:
Add misc. standard variables.


--- /project/movitz/cvsroot/movitz/losp/muerte/variables.lisp	2008/03/21 22:30:40	1.12
+++ /project/movitz/cvsroot/movitz/losp/muerte/variables.lisp	2008/04/21 19:44:13	1.13
@@ -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.12 2008/03/21 22:30:40 ffjeld Exp $
+;;;; $Id: variables.lisp,v 1.13 2008/04/21 19:44:13 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -35,6 +35,7 @@
 (defvar +++ nil)
 
 (defvar *read-base* 10)
+(defvar *read-eval* t)
 (defvar *package* nil)
 
 (defvar *macroexpand-hook* 'funcall)
@@ -63,11 +64,38 @@
 (defvar single-float-negative-epsilon -1/1000)
 (defvar double-float-negative-epsilon -1/1000)
 (defvar long-float-negative-epsilon -1/1000)
+(defvar long-float-epsilon 1/10000)
 
+(defconstant most-negative-short-float most-negative-fixnum)
+(defconstant most-negative-single-float most-negative-fixnum)
+(defconstant most-negative-long-float most-negative-fixnum)
+(defconstant most-negative-double-float most-negative-fixnum)
+
+(defconstant least-positive-short-float 1/100000)
+(defconstant least-positive-single-float 1/100000)
+(defconstant least-positive-double-float 1/100000)
+(defconstant least-positive-long-float 1/100000)
+
+(defconstant least-negative-short-float -1/100000)
+(defconstant least-negative-single-float -1/100000)
+(defconstant least-negative-double-float -1/100000)
+(defconstant least-negative-long-float -1/100000)
 
 (defconstant call-arguments-limit 512)
 (defconstant lambda-parameters-limit 512) ; ?
 
 (defvar *print-pprint-dispatch* nil)
 
-(declaim (special *build-number*))
+(defvar *build-number*) ; set at bootup
+
+(defvar *features* '(:movitz))
+(defvar *modules* nil)
+
+(defvar *compile-file-pathname* nil)
+(defvar *compile-file-truename* nil)
+(defvar *compile-print* nil)
+(defvar *compile-verbose* nil)
+(defvar *load-print* nil)
+(defvar *load-verbose* nil)
+(defvar *load-truename* nil)
+(defvar *default-pathname-defaults* #p"")