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

[Frode Vatvedt Fjeld]

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