X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finspect.lisp;h=5f9ce239bc288b07592c13b87f829abc1786f63a;hb=4cf50b1896b25f5337e7c258b0b560da00d47993;hp=8d75975afead5214b9d119d49c1f007c212a9274;hpb=39ca94ec421224c78cb01f7d2d7b49321c66a2d4;p=sbcl.git

diff --git a/src/code/inspect.lisp b/src/code/inspect.lisp
index 8d75975..5f9ce23 100644
--- a/src/code/inspect.lisp
+++ b/src/code/inspect.lisp
@@ -11,8 +11,7 @@
 
 (in-package "SB-IMPL")
 
-;; byte-compile this file
-(declaim (optimize (speed 0) (safety 1)))
+(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
@@ -45,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.