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

diff --git a/src/code/load.lisp b/src/code/load.lisp
index 9a37fb2..d7bf601 100644
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -353,9 +353,8 @@
 ;;; 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)