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