X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fcell.lisp;h=250098cdd986fb02546219b96906ea8977cbee16;hb=b05ccdd91520249de6b465e226d3708089e541dc;hp=2d632bc4a81caffc464a4b3acdc8b4431b7e8bb2;hpb=68fd2d2dd6f265669a8957accd8a33e62786a97e;p=sbcl.git

diff --git a/src/compiler/sparc/cell.lisp b/src/compiler/sparc/cell.lisp
index 2d632bc..250098c 100644
--- a/src/compiler/sparc/cell.lisp
+++ b/src/compiler/sparc/cell.lisp
@@ -94,7 +94,7 @@
     (move obj-temp object)
     (loadw value obj-temp fdefn-fun-slot other-pointer-lowtag)
     (inst cmp value null-tn)
-    (let ((err-lab (generate-error-code vop undefined-symbol-error obj-temp)))
+    (let ((err-lab (generate-error-code vop undefined-fun-error obj-temp)))
       (inst b :eq err-lab))
     (inst nop)))