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)