X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fmove.lisp;h=4f37f5a36fb436db6ee778ab3e7e520a1b58587a;hb=9627f5a03e642fa950e1557fef17c506dfd386a6;hp=1921dfacc4b30cdc1796b4748ec0297b27508db5;hpb=8146eeb8708fbc225169707a49b32e9e977d546e;p=sbcl.git

diff --git a/src/compiler/x86-64/move.lisp b/src/compiler/x86-64/move.lisp
index 1921dfa..4f37f5a 100644
--- a/src/compiler/x86-64/move.lisp
+++ b/src/compiler/x86-64/move.lisp
@@ -218,7 +218,7 @@
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 666
-    (error-call vop object-not-type-error x type)))
+    (error-call vop 'object-not-type-error x type)))
 
 ;;;; moves and coercions