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

diff --git a/src/code/load.lisp b/src/code/load.lisp
index 4f30cd7..a818cbf 100644
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -353,16 +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 #("" "_")
-	 #!+sunos #("" "ldso_stub__")))    
+         #!+(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 (?)