CMUCL commit: src/code (describe.lisp)

[Raymond Toy]

    Date: Saturday, January 30, 2010 @ 18:36:30
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: describe.lisp

Combine the formats into one.


---------------+
 describe.lisp |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)


Index: src/code/describe.lisp
diff -u src/code/describe.lisp:1.53 src/code/describe.lisp:1.54
--- src/code/describe.lisp:1.53	Mon Nov 30 09:52:39 2009
+++ src/code/describe.lisp	Sat Jan 30 18:36:29 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/describe.lisp,v 1.53 2009-11-30 14:52:39 rtoy Exp $")
+  "$Header: /project/cmucl/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))