diff --git a/compiler/represent.lisp b/compiler/represent.lisp index 754f75f57f2dddd5dede22f3d12a9c56a485ef6d..4a9363de033fce401b0606aef04d1733491326fa 100644 --- a/compiler/represent.lisp +++ b/compiler/represent.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/represent.lisp,v 1.23 1991/04/24 11:24:57 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/represent.lisp,v 1.24 1991/04/24 11:27:45 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -360,10 +360,10 @@ (template-name op-info))) (arg-p (not (tn-ref-write-p op))) (name (get-operand-name op-tn arg-p)) - (pos (position-in #'tn-ref-across op - (if arg-p - (vop-args op-vop) - (vop-results op-vop))))) + (pos (1+ (position-in #'tn-ref-across op + (if arg-p + (vop-args op-vop) + (vop-results op-vop)))))) (compiler-note "Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~ The ~:R ~:[result~;argument~] of ~A."