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

diff --git a/src/code/load.lisp b/src/code/load.lisp
index f74a2bc..a818cbf 100644
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -353,14 +353,14 @@
 ;;; 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
 		     nil))
 	  prefixes)))
-
 
 ;;;; stuff for debugging/tuning by collecting statistics on FOPs (?)