Changeset 11044

Timestamp:

01/17/06 19:20:50 (3 years ago)

Author:

rtoy

Message:

DESCRIBE had the test for adjustable arrays backwards, so it said all
non-adjustable arrays were adjustable, and vice versa.

Files:

• trunk/src/code/describe.lisp (modified) (2 diffs)

trunk/src/code/describe.lisp

@@ -152 +152 @@
     (cond ((= rank 1)
            (format t "~&~S is a ~:[~;displaced ~]vector of length ~D." x
-                   (and (array-header-p x) (%array-displaced-p x)) (length x))
+                   (and (array-header-p x) (%array-displaced-p x))
+                   (array-dimension x 0))
            (if (array-has-fill-pointer-p x)
                (format t "~&It has a fill pointer, currently ~d"
@@ -163 +164 @@
            (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))))
+      (format t "~&Its element type is specialized to ~S." element-type))
+    (unless (adjustable-array-p x)
+      (format t "~&It is adjustable."))))
 
 (defun describe-fixnum (x)