0.6.11.37:

[sbcl.git] / src / code / inspect.lisp

diff --git a/src/code/inspect.lisp b/src/code/inspect.lisp
index 38d844a..52f08e3 100644 (file)
--- a/src/code/inspect.lisp
+++ b/src/code/inspect.lisp
@@ -9,10 +9,7 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-(in-package "SB-INSPECT")
-
-(file-comment
-  "$Header$")
+(in-package "SB-IMPL")
 
 ;;; The inspector views LISP objects as being composed of parts. A
 ;;; list, for example, would be divided into its members, and a
@@ -49,8 +46,8 @@
       (input-loop object (describe-parts object) *standard-output*)
     (setf *inspect-object-stack* nil)))
 
-;;; When *ILLEGAL-OBJECT-MARKER* occurs in a parts list, it indicates that that
-;;; slot is unbound.
+;;; When *ILLEGAL-OBJECT-MARKER* occurs in a parts list, it indicates
+;;; that that slot is unbound.
 (defvar *illegal-object-marker* (cons nil nil))
 
 (defun input-loop (object parts s)
@@ -59,7 +56,8 @@
     (format s "~&> ")
     (force-output)
     (let ((command (read))
-         ;; Use 2 less than length because first 2 elements are bookkeeping.
+         ;; Use 2 less than the length because the first 2 elements
+         ;; are bookkeeping.
          (parts-len-2 (- (length parts) 2)))
       (typecase command
        (integer
@@ -184,8 +182,8 @@
 
 (defun describe-vector-parts (object)
   (list* (format nil "The object is a ~:[~;displaced ~]vector of length ~D.~%"
-                (and (sb-impl::array-header-p object)
-                     (sb-impl::%array-displaced-p object))
+                (and (array-header-p object)
+                     (%array-displaced-p object))
                 (length object))
         nil
         (coerce object 'list)))
@@ -213,8 +211,8 @@
     (push (format nil "The object is ~:[a displaced~;an~] array of ~A.~%~
                       Its dimensions are ~S.~%"
                  (array-element-type object)
-                 (and (sb-impl::array-header-p object)
-                      (sb-impl::%array-displaced-p object))
+                 (and (array-header-p object)
+                      (%array-displaced-p object))
                  dimensions)
          parts)
     (push t parts)