X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fload.lisp;h=c04b5f9d3452f1adc17888ff18739802617565cb;hb=28d9bb7a509695caaf78d647b6aa1b0f02c0e83a;hp=f74a2bcf0276349ad397e4971c8c2527c06965d2;hpb=82653abf5573c22c691e2243b70647ecdaa6aea8;p=sbcl.git

diff --git a/src/code/load.lisp b/src/code/load.lisp
index f74a2bc..c04b5f9 100644
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -355,6 +355,7 @@
   (let ((prefixes
          #!+(or linux freebsd) #("" "ldso_stub__")
 	 #!+openbsd #("" "_")))    
+    (declare (notinline some)) ; to suppress bug 117 bogowarning
     (some (lambda (prefix)
 	    (gethash (concatenate 'string prefix name)
 		     table