X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Finterr.lisp;h=8c14ed9a9fa18420c8770016e9d6c979c5c36169;hb=HEAD;hp=9ff81d3f1b96c3bb0a52f96c7948afec8ff49860;hpb=3031b264496451e796282d7309c2221d89ee62c1;p=sbcl.git

diff --git a/src/compiler/generic/interr.lisp b/src/compiler/generic/interr.lisp
index 9ff81d3..8c14ed9 100644
--- a/src/compiler/generic/interr.lisp
+++ b/src/compiler/generic/interr.lisp
@@ -88,6 +88,9 @@
    ;; FIXME: Isn't this used for calls to unbound (SETF FOO) too? If so, revise
    ;; the name.
    "An attempt was made to use an undefined FDEFINITION.")
+  #!+x86-64
+  (undefined-alien-fun
+   "An attempt was made to use an undefined alien function")
   (invalid-arg-count
    "invalid argument count")
   (bogus-arg-to-values-list