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

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Really don't use +code-vector-entry-factor+.

Date: Mon Feb  9 19:32:09 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.11 movitz/image.lisp:1.12
--- movitz/image.lisp:1.11	Mon Feb  9 19:29:10 2004
+++ movitz/image.lisp	Mon Feb  9 19:32:08 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.11 2004/02/10 00:29:10 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.12 2004/02/10 00:32:08 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1187,7 +1187,7 @@
 		       (when x (list pc (list (format nil "  ~S" (car x))) "" nil)))
 		collect it
 		when (some (lambda (x)
-			     (and (plusp pc) (= pc (* x +code-vector-entry-factor+))))
+			     (and (plusp pc) (= pc x)))
 			   entry-points)
 		collect (list pc nil
 			      (format nil "  => Entry-point for ~D arguments <="