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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Argh, don't ask.

Date: Thu Apr 15 15:58:20 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.47 movitz/compiler.lisp:1.48
--- movitz/compiler.lisp:1.47	Thu Apr 15 06:45:05 2004
+++ movitz/compiler.lisp	Thu Apr 15 15:58:20 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.47 2004/04/15 10:45:05 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.48 2004/04/15 19:58:20 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -2701,8 +2701,7 @@
 					   (truncate
 					    (or (position-if (lambda (i)
 							       (member b (find-read-bindings i)))
-							     (cdr init-pc)
-							     :end 10)
+							     (cdr init-pc))
 						15)
 					    count)))))))))
 		 ;; First, make several passes while trying to locate bindings