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

diff --git a/src/code/load.lisp b/src/code/load.lisp
index 9a37fb2..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 (?)