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 <="