X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=7b16ef27a73cf4a53a6df3327d81e4a5ea95666f;hb=872175cd9cb5b4966a36d4bd92421cc407a0355b;hp=40f7ba91fdaaf1870f9b8ae582dba45cf5701ac6;hpb=a8fa26a6e9804d3548f5bca9361a91345a689099;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 40f7ba9..7b16ef2 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -604,6 +604,7 @@
 
     (let* ((accname (symbolicate (or (dd-conc-name defstruct) "") name))
 	   (existing (info :function :accessor-for accname)))
+      (declare (notinline find)) ; to avoid bug 117 bogowarnings
       (if (and (structure-class-p existing)
 	       (not (eq (sb!xc:class-name existing) (dd-name defstruct)))
 	       (string= (dsd-%name (find accname