0.9.7.9:

[sbcl.git] / src / compiler / mips / vm.lisp

diff --git a/src/compiler/mips/vm.lisp b/src/compiler/mips/vm.lisp
index 9d0188b..cc2d844 100644 (file)
--- a/src/compiler/mips/vm.lisp
+++ b/src/compiler/mips/vm.lisp
@@ -341,7 +341,7 @@
 
 ;;; A list of TN's describing the register arguments.
 ;;;
-(defparameter register-arg-tns
+(defparameter *register-arg-tns*
   (mapcar #'(lambda (n)
               (make-random-tn :kind :normal
                               :sc (sc-or-lose 'descriptor-reg)