0.7.1.23:

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

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