0.pre7.136:

[sbcl.git] / src / compiler / vmdef.lisp

diff --git a/src/compiler/vmdef.lisp b/src/compiler/vmdef.lisp
index c7fa197..f9882be 100644 (file)
--- a/src/compiler/vmdef.lisp
+++ b/src/compiler/vmdef.lisp
@@ -208,7 +208,7 @@
                                                 (primitive-type-type
                                                  type)))
                                              (rest x))))
-                         (:constant `(constant-argument ,(third x)))))))
+                         (:constant `(constant-arg ,(third x)))))))
             `(,@(mapcar #'frob types)
               ,@(when more-types
                   `(&rest ,(frob more-types)))))))