[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Added compiler variable *compiler-produce-defensive-code*.

Date: Thu Jun 10 12:30:19 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.67 movitz/compiler.lisp:1.68
--- movitz/compiler.lisp:1.67	Thu Jun 10 05:05:56 2004
+++ movitz/compiler.lisp	Thu Jun 10 12:30:19 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.67 2004/06/10 12:05:56 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.68 2004/06/10 19:30:19 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -60,6 +60,9 @@
 (defvar *compiler-do-type-inference* t
   "Spend time and effort performing type inference and optimization.")
 
+(defvar *compiler-produce-defensive-code* t
+  "Try make code be extra cautious.")
+
 (defvar *compiling-function-name*)
 (defvar muerte.cl:*compile-file-pathname* nil)
 
@@ -68,6 +71,7 @@
 
 (defvar *extended-code-find-write-binding-and-type*
     (make-hash-table :test #'eq))
+
 
 (defconstant +enter-stack-frame-code+
     '((:pushl :ebp)