0.7.10.15:

[sbcl.git] / src / code / load.lisp

diff --git a/src/code/load.lisp b/src/code/load.lisp
index f74a2bc..a818cbf 100644 (file)
--- 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)))
-
 \f
 ;;;; stuff for debugging/tuning by collecting statistics on FOPs (?)