From e46b2948fdd136b7d33940c3fbc2d4946743e100 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 17 Jan 2006 19:20:50 +0000
Subject: [PATCH] DESCRIBE had the test for adjustable arrays backwards, so it
 said all non-adjustable arrays were adjustable, and vice versa.

---
 code/describe.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/describe.lisp b/code/describe.lisp
index e6c982204..71d713ae8 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.44 2005/05/09 13:09:31 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.45 2006/01/17 19:20:50 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -164,7 +164,7 @@
 	   (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))
-    (unless (adjustable-array-p x)
+    (when (adjustable-array-p x)
       (format t "~&It is adjustable."))))
 
 (defun describe-fixnum (x)
-- 
GitLab