From df50923d134e3cc28f1605968d3ded2dcbbb587f Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Sat, 30 Jan 2010 23:36:29 +0000 Subject: [PATCH] Combine the formats into one. --- code/describe.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/code/describe.lisp b/code/describe.lisp index bd1bfe437..31992039f 100644 --- a/code/describe.lisp +++ b/code/describe.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.53 2009/11/30 14:52:39 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.54 2010/01/30 23:36:29 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -169,9 +169,8 @@ (fill-pointer x)) (format t "~&It has no fill pointer."))) (t - (format t "~&~S is " x) - (write-string (if (%array-displaced-p x) "a displaced" "an")) - (format t " array of rank ~A." rank) + (format t "~&~S is ~:[an~;a displaced~] array of rank ~A" + x (%array-displaced-p x) rank) (format t "~%Its dimensions are ~S." (array-dimensions x)))) (unless (eq t element-type) (format t "~&Its element type is specialized to ~S." element-type)) -- GitLab