X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fload.lisp;h=d7bf6019431207eefd9c4d787a5f7baa0f877974;hb=1e4629723d19f96d752235ffde34fe58431431ae;hp=f74a2bcf0276349ad397e4971c8c2527c06965d2;hpb=82653abf5573c22c691e2243b70647ecdaa6aea8;p=sbcl.git

diff --git a/src/code/load.lisp b/src/code/load.lisp
index f74a2bc..d7bf601 100644
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -353,8 +353,9 @@
 ;;; code for foreign symbol lookup should be here.
 (defun find-foreign-symbol-in-table (name table)
   (let ((prefixes
-         #!+(or linux freebsd) #("" "ldso_stub__")
-	 #!+openbsd #("" "_")))    
+         #!+(or osf1 sunos linux freebsd) #("" "ldso_stub__")
+	 #!+openbsd #("")))
+    (declare (notinline some)) ; to suppress bug 117 bogowarning
     (some (lambda (prefix)
 	    (gethash (concatenate 'string prefix name)
 		     table