[movitz-cvs] CVS update: movitz/image.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

10 Feb 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv29570
Modified Files:
    image.lisp 
Log Message:
Don't use +code-vector-entry-factor+.
Date: Mon Feb  9 19:29:10 2004
Author: ffjeld
Index: movitz/image.lisp
diff -u movitz/image.lisp:1.10 movitz/image.lisp:1.11

--- movitz/image.lisp:1.10	Mon Feb  9 18:41:13 2004
+++ movitz/image.lisp	Mon Feb  9 19:29:10 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.10 2004/02/09 23:41:13 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.11 2004/02/10 00:29:10 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -1192,7 +1192,7 @@
    	collect (list pc nil
    		      (format nil "  => Entry-point for ~D arguments <="
    			      (1+ (position-if (lambda (x)
-							 (= pc (* x +code-vector-entry-factor+)))
+							 (= pc x))
    					       entry-points)))
    		      nil)
    	collect (list pc

    