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)