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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
sbcl idiocy.

Date: Mon Jun 21 00:48:59 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.68 movitz/compiler.lisp:1.69
--- movitz/compiler.lisp:1.68	Thu Jun 10 12:30:19 2004
+++ movitz/compiler.lisp	Mon Jun 21 00:48:59 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.68 2004/06/10 19:30:19 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.69 2004/06/21 07:48:59 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -2658,7 +2658,7 @@
 				(member binding (find-read-bindings i)
 					:test #'eq)))
 			 (cdr init-pc)
-			 :end 15))
+			 #-sbcl :end #-sbcl 15))
 	       (binding-destination (third load-instruction))
 	       (distance (position load-instruction (cdr init-pc))))
 	  (multiple-value-bind (free-registers more-later-p)