diff --git a/compiler/rt/values.lisp b/compiler/rt/values.lisp index ae6eecd5cfa88daa904d7df5c7bc1c50da493455..e67e53cd4b61df6954bfc46a0ab1393af736690d 100644 --- a/compiler/rt/values.lisp +++ b/compiler/rt/values.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/values.lisp,v 1.2 1991/03/31 18:45:02 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/values.lisp,v 1.3 1991/12/21 23:05:29 ram Exp $ ;;; ;;; This file contains the implementation of unknown-values VOPs. ;;; @@ -21,7 +21,7 @@ (define-vop (reset-stack-pointer) - (:args (ptr :scs (any-reg))) + (:args (ptr :scs (word-pointer-reg))) (:generator 1 (move csp-tn ptr)))