(defun describe-vector-parts (object)
(list* (format nil "The object is a ~:[~;displaced ~]vector of length ~D.~%"
(defun describe-vector-parts (object)
(list* (format nil "The object is a ~:[~;displaced ~]vector of length ~D.~%"
(push (format nil "The object is ~:[a displaced~;an~] array of ~A.~%~
Its dimensions are ~S.~%"
(array-element-type object)
(push (format nil "The object is ~:[a displaced~;an~] array of ~A.~%~
Its dimensions are ~S.~%"
(array-element-type object)