X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforeign-load.lisp;h=7f7445d1f6de76c6f5579b7012652515359af8ba;hb=b9519773faa7b3c98915eccb9cb1fd8a8270ee56;hp=bf693ef736c8be6bf9d804033d0008208791043d;hpb=5d04a95274c9ddaebbcd6ddffc5d646e2c25598c;p=sbcl.git

diff --git a/src/code/foreign-load.lisp b/src/code/foreign-load.lisp
index bf693ef..7f7445d 100644
--- a/src/code/foreign-load.lisp
+++ b/src/code/foreign-load.lisp
@@ -175,7 +175,8 @@ is never in the linkage-table."
               (error 'undefined-alien-error :name symbol))
              #!+linkage-table
              ((not addr)
-              (style-warn 'sb!kernel:undefined-alien :symbol symbol)
+              (style-warn 'sb!kernel:undefined-alien-style-warning
+                          :symbol symbol)
               (setf (gethash symbol undefineds) t)
               (remhash symbol symbols)
               (if datap