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)