X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finspect.lisp;h=294c7c0011fec70d3e23a876708611e620381f15;hb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;hp=40830ce0eea94ed46c65b6ec0bf7f4b86cd50792;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/inspect.lisp b/src/code/inspect.lisp
index 40830ce..294c7c0 100644
--- a/src/code/inspect.lisp
+++ b/src/code/inspect.lisp
@@ -181,8 +181,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)))
@@ -210,8 +210,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)