Index: /trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp	(revision 5969)
+++ /trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp	(revision 5970)
@@ -988,5 +988,5 @@
   (jmp (:@ spno)))
 
-(define-x8664-vinsn call-subprim (()
+(define-x8664-vinsn (call-subprim :call)  (()
                                   ((spno :s32const)))
   (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0))
@@ -1134,8 +1134,9 @@
 
 
-(define-x8664-vinsn fix-fixnum-overflow-ool (((val :lisp))
-                                             ((val :lisp))
-                                             ((unboxed (:s64 #.x8664::imm1))
-                                              (header (:u64 #.x8664::imm0))))
+(define-x8664-vinsn (fix-fixnum-overflow-ool :call)
+    (((val :lisp))
+     ((val :lisp))
+     ((unboxed (:s64 #.x8664::imm1))
+      (header (:u64 #.x8664::imm0))))
   (jno.pt :done)
   ((:not (:pred = x8664::arg_z
@@ -1153,9 +1154,10 @@
   :done)
 
-(define-x8664-vinsn fix-fixnum-overflow-ool-and-branch (((val :lisp))
-                                                        ((val :lisp)
-                                                         (lab :label))
-                                                        ((unboxed (:s64 #.x8664::imm1))
-                                                         (header (:u64 #.x8664::imm0))))
+(define-x8664-vinsn (fix-fixnum-overflow-ool-and-branch :call)
+    (((val :lisp))
+     ((val :lisp)
+      (lab :label))
+     ((unboxed (:s64 #.x8664::imm1))
+      (header (:u64 #.x8664::imm0))))
   (jno.pt lab)
   ((:not (:pred = x8664::arg_z
@@ -1596,6 +1598,6 @@
   (jmp (:%q x8664::fn)))
 
-(define-x8664-vinsn list (()
-                          ())
+(define-x8664-vinsn (list :call) (()
+                                  ())
   (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0))
   (jmp (:@ .SPconslist))