X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fvalues.lisp;h=1c77585a92c08a34879c1d4268ec76f09dabafc6;hb=b05ccdd91520249de6b465e226d3708089e541dc;hp=2f52bff31825ed162dc264a73c2f2a808d34f5f5;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/compiler/alpha/values.lisp b/src/compiler/alpha/values.lisp
index 2f52bff..1c77585 100644
--- a/src/compiler/alpha/values.lisp
+++ b/src/compiler/alpha/values.lisp
@@ -80,7 +80,7 @@
     (inst and list lowtag-mask ndescr)
     (inst xor ndescr list-pointer-lowtag ndescr)
     (inst beq ndescr loop)
-    (error-call vop bogus-argument-to-values-list-error list)
+    (error-call vop bogus-arg-to-values-list-error list)
     
     DONE
     (inst subq csp-tn start count)))