1.0.46.43: fix sb-introspect on non-threaded builds

[sbcl.git] / contrib / sb-introspect / introspect.lisp

diff --git a/contrib/sb-introspect/introspect.lisp b/contrib/sb-introspect/introspect.lisp
index 95504de..3399502 100644 (file)
--- a/contrib/sb-introspect/introspect.lisp
+++ b/contrib/sb-introspect/introspect.lisp
@@ -927,6 +927,7 @@ Experimental: interface subject to change."
                                0)))
            (dotimes (i (- len nuntagged))
              (call (sb-kernel:%instance-ref object i))))
+         #+sb-thread
          (when (typep object 'sb-thread:thread)
            (cond ((eq object sb-thread:*current-thread*)
                   (dolist (value (sb-thread::%thread-local-references))