X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Finspect.lisp;h=a9ee9f1b87db4111b839d0853115c59c61b738dc;hb=3bd7a97d1b11a2b0aee086ef211cae807f3dfc35;hp=52f08e320f5217948e00814bc9eb504a8ed06b43;hpb=6c765578c8dc4bcc7798e37c9918715f198b30da;p=sbcl.git

diff --git a/src/code/inspect.lisp b/src/code/inspect.lisp
index 52f08e3..a9ee9f1 100644
--- a/src/code/inspect.lisp
+++ b/src/code/inspect.lisp
@@ -9,7 +9,9 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-(in-package "SB-IMPL")
+(in-package "SB-IMPL") ;(SB-IMPL, not SB!IMPL, since we're built in warm load.)
+
+(declaim #.*optimize-byte-compilation*)
 
 ;;; The inspector views LISP objects as being composed of parts. A
 ;;; list, for example, would be divided into its members, and a
@@ -42,9 +44,11 @@
       (nth (+ n parts-offset) parts)))
 
 (defun inspect (object)
+  (declare #.*optimize-external-despite-byte-compilation*)
   (unwind-protect
       (input-loop object (describe-parts object) *standard-output*)
-    (setf *inspect-object-stack* nil)))
+    (setf *inspect-object-stack* nil))
+  (values))
 
 ;;; When *ILLEGAL-OBJECT-MARKER* occurs in a parts list, it indicates
 ;;; that that slot is unbound.