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

15 Apr 2004

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

    