0.pre7.127:

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

diff --git a/src/compiler/ir2tran.lisp b/src/compiler/ir2tran.lisp
index 2fd642e..20f5961 100644 (file)
--- a/src/compiler/ir2tran.lisp
+++ b/src/compiler/ir2tran.lisp
@@ -1606,7 +1606,7 @@
                   (unless (or (node-tail-p last)
                               (info :function :info name)
                               (policy last (zerop safety)))
-                    (vop nil-function-returned-error last 2block
+                    (vop nil-fun-returned-error last 2block
                          (if name
                              (emit-constant name)
                              (multiple-value-bind (tn named)