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

Modified Files: image.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:13 2004 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.8 movitz/image.lisp:1.9 --- movitz/image.lisp:1.8 Wed Feb 4 11:01:21 2004 +++ movitz/image.lisp Thu Feb 5 09:46:13 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.8 2004/02/04 16:01:21 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.9 2004/02/05 14:46:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -253,6 +253,12 @@ :map-binary-read-delayed 'movitz-word-code-vector :binary-tag :primitive-function) (fast-compare-real-fixnum + :binary-type code-vector-word + :initform nil + :map-binary-write 'movitz-intern-code-vector + :map-binary-read-delayed 'movitz-word-code-vector + :binary-tag :primitive-function) + (trampoline-cl-dispatch-1or2 :binary-type code-vector-word :initform nil :map-binary-write 'movitz-intern-code-vector