[movitz-cvs] CVS update: movitz/storage-types.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	storage-types.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:19 2004
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.4 movitz/storage-types.lisp:1.5
--- movitz/storage-types.lisp:1.4	Wed Feb  4 10:25:28 2004
+++ movitz/storage-types.lisp	Thu Feb  5 09:46:19 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: storage-types.lisp,v 1.4 2004/02/04 15:25:28 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.5 2004/02/05 14:46:19 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -835,7 +835,11 @@
     :accessor movitz-funobj-usage)
    (sub-function-binding-usage		; a plist used during lexical analysis
     :initform nil
-    :accessor sub-function-binding-usage))
+    :accessor sub-function-binding-usage)
+   (entry-protocol
+    :initform :default
+    :initarg :entry-protocol
+    :reader funobj-entry-protocol))
   (:slot-align type -2))
 
 (defmethod write-binary-record ((obj movitz-funobj) stream)