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

[Frode Vatvedt Fjeld]

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

Modified Files:
	environment.lisp 
Log Message:
These changes are all about making the compiler smarter about
functions whose lambda-list look like (x &optional y).
Most such functions become about 20 bytes shorter. More importantly,
they become branch-less, reducing the CPU-cycle-cost of this
abstraction essentially zero.

Date: Thu Feb  5 09:46:08 2004
Author: ffjeld

Index: movitz/environment.lisp
diff -u movitz/environment.lisp:1.2 movitz/environment.lisp:1.3
--- movitz/environment.lisp:1.2	Fri Jan 16 14:45:36 2004
+++ movitz/environment.lisp	Thu Feb  5 09:46:08 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov  3 11:40:15 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: environment.lisp,v 1.2 2004/01/16 19:45:36 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.3 2004/02/05 14:46:08 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -160,6 +160,7 @@
     :initform nil
     :accessor key-vars)
    (need-normalized-ecx-p
+    :initarg :need-normalized-ecx-p
     :accessor need-normalized-ecx-p)
    (frame-map
     :accessor frame-map)