0.7.4.17: Mostly Alpha fixes

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

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