X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fvm.lisp;h=cc2d8443dad3ab2d012a1d9f55b1edc07a23643e;hb=b9915e9a838059473beb4fa03a6410eb8d6b68e3;hp=9d0188bd0a2e8f22af84e74fca0c27b50b865260;hpb=02567855a57e1ee0974c4c8513bde7625702c1b4;p=sbcl.git

diff --git a/src/compiler/mips/vm.lisp b/src/compiler/mips/vm.lisp
index 9d0188b..cc2d844 100644
--- 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)