;;;; 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
(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.