X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fvalues.lisp;h=7f868c103f0f44b85ca6e3fd0047106379237c36;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=beb3057e32eeade10f845dda87a6124a39e2bbd6;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/ppc/values.lisp b/src/compiler/ppc/values.lisp
index beb3057..7f868c1 100644
--- a/src/compiler/ppc/values.lisp
+++ b/src/compiler/ppc/values.lisp
@@ -105,7 +105,7 @@
       (inst addi csp-tn csp-tn n-word-bytes)
       (storew temp csp-tn -1)
       (test-type list loop nil (list-pointer-lowtag) :temp ndescr)
-      (error-call vop bogus-arg-to-values-list-error list)
+      (error-call vop 'bogus-arg-to-values-list-error list)
 
       (emit-label done)
       (inst sub count csp-tn start))))