Skip to content
Snippets Groups Projects
Commit b6d92987 authored by ram's avatar ram
Browse files

Fixed uses of %ARRAY-DISPLACED-P to be guarded by ARRAY-HEADER-P.

parent 73f0a1e0
No related branches found
No related tags found
No related merge requests found
...@@ -186,7 +186,9 @@ ...@@ -186,7 +186,9 @@
(defun describe-vector-parts (object) (defun describe-vector-parts (object)
(list* (format nil "Object is a ~:[~;displaced ~]vector of length ~d.~%" (list* (format nil "Object is a ~:[~;displaced ~]vector of length ~d.~%"
(lisp::%array-displaced-p object) (length object)) (and (lisp::array-header-p object)
(lisp::%array-displaced-p object))
(length object))
nil nil
(coerce object 'list))) (coerce object 'list)))
...@@ -215,7 +217,9 @@ ...@@ -215,7 +217,9 @@
(parts ())) (parts ()))
(push (format nil "Object is ~:[a displaced~;an~] array of ~a.~%~ (push (format nil "Object is ~:[a displaced~;an~] array of ~a.~%~
Its dimensions are ~s.~%" Its dimensions are ~s.~%"
(array-element-type object) (lisp::%array-displaced-p object) (array-element-type object)
(and (lisp::array-header-p object)
(lisp::%array-displaced-p object))
dimensions) dimensions)
parts) parts)
(push t parts) (push t parts)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment