[Sbcl-commits] CVS: sbcl/src/compiler disassem.lisp,1.22,1.23

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9845/src/compiler

Modified Files:
	disassem.lisp 
Log Message:
0.8.9.47:
        * Merged patch by Lutz Euler for the bug 245a.


Index: disassem.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/disassem.lisp,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- disassem.lisp	10 Jun 2003 08:28:23 -0000	1.22
+++ disassem.lisp	15 Apr 2004 17:47:13 -0000	1.23
@@ -347,6 +347,7 @@
 	   (let* ((old-arg (car this-arg-temps))
 		  (new-arg (find (arg-name old-arg) args :key #'arg-name)))
 	     (and new-arg
+                  (= (arg-position old-arg) (arg-position new-arg))
 		  (every (lambda (this-kind-temps)
 			   (funcall (find-arg-form-checker
 				     (car this-kind-temps))