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

diff --git a/src/code/foreign-load.lisp b/src/code/foreign-load.lisp
index 2e619ef..7f7445d 100644
--- a/src/code/foreign-load.lisp
+++ b/src/code/foreign-load.lisp
@@ -33,7 +33,10 @@
 
 (define-alien-routine dlerror c-string)
 
-(define-alien-routine dlsym system-area-pointer
+(define-alien-routine
+    #!-openbsd dlsym
+    #!+openbsd ("os_dlsym" dlsym)
+    system-area-pointer
   (handle system-area-pointer)
   (symbol c-string))
 
@@ -172,7 +175,8 @@ is never in the linkage-table."
               (error 'undefined-alien-error :name symbol))
              #!+linkage-table
              ((not addr)
-              (style-warn "Undefined alien: ~S" symbol)
+              (style-warn 'sb!kernel:undefined-alien-style-warning
+                          :symbol symbol)
               (setf (gethash symbol undefineds) t)
               (remhash symbol symbols)
               (if datap