X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=eb35177cd76a2c9a5763dd6fb4f1d4712014c429;hb=ef5bc526202b95f6a1bf92fe88d2fa778a827190;hp=c0d7ed0e6b530134787ff41941ee9fdf90c705eb;hpb=017a0b4491fd9f211d6563909b42dc10d925a1d2;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index c0d7ed0..eb35177 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -1474,8 +1474,11 @@ NIL is returned when no such class exists."
                 (dolist (code codes)
                   (setf (svref res code) layout)))))))
   (setq *null-classoid-layout*
-        (locally
-            (declare (notinline find-classoid))
+        ;; KLUDGE: we use (LET () ...) instead of a LOCALLY here to
+        ;; work around a bug in the LOCALLY handling in the fopcompiler
+        ;; (present in 0.9.13-0.9.14.18). -- JES, 2006-07-16
+        (let ()
+          (declare (notinline find-classoid))
           (classoid-layout (find-classoid 'null))))
   #-sb-xc-host (/show0 "done setting *BUILT-IN-CLASS-CODES*"))