X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdisassem.lisp;fp=src%2Fcompiler%2Fdisassem.lisp;h=5332dea0b7a690776396e191d202a5ef1518285b;hb=ba2143e06b11101674720393e6f6c30a23113a4b;hp=785c81ffde2cd6ddfb1ffa94d0d6cd9c02f915e3;hpb=6a9bbe6f36179cee92001a1f9ed5ff38be512644;p=sbcl.git

diff --git a/src/compiler/disassem.lisp b/src/compiler/disassem.lisp
index 785c81f..5332dea 100644
--- a/src/compiler/disassem.lisp
+++ b/src/compiler/disassem.lisp
@@ -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))