0.8.0.66:

        * Fixed typo on OUTPUT-VECTOR.

diff --git a/NEWS b/NEWS
index 02d68b4..1b76780 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1825,6 +1825,7 @@ changes in sbcl-0.8.1 relative to sbcl-0.8.0:
   * bug fix: an argument count mismatch for a type specifier in code
     being compiled no longer causes an unhandled error at compile
     time, but signals a compile-time warning.
+  * fixed simple vector readable printing.
   * fixed some bugs revealed by Paul Dietz' test suite:
     ** NIL is now allowed as a structure slot name.
     ** arbitrary numbers, not just reals, are allowed in certain

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 48889e5..968c84f 100644 (file)
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -976,7 +976,7 @@
           (write-char (if (zerop bit) #\0 #\1) stream)))
        (t
         (when (and *print-readably*
-                   (not (array-readably-printable-p array)))
+                   (not (array-readably-printable-p vector)))
           (error 'print-not-readable :object vector))
         (descend-into (stream)
                       (write-string "#(" stream)

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index f7f3d14..725b1da 100644 (file)
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -122,5 +122,8 @@
              ;; or else it had better have the same dimensions
              (equal (array-dimensions result) '(1 0 1)))))
 
+;;; before 0.8.0.66 it signalled UNBOUND-VARIABLE
+(write #(1 2 3) :pretty nil :readably t)
+
 ;;; success
 (quit :unix-status 104)

diff --git a/version.lisp-expr b/version.lisp-expr
index fadec12..3e61882 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.0.65"
+"0.8.0.66"