1.0.17.30: STREAM-FILE-POSITION works on ANSI-STREAMs

 * Package mismatch: ANSI-STREAM-FILE-POSITION was not exported from
   SB-KERNEL.

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 65fd2e2..90079cc 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -1374,7 +1374,9 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "LIST-SUBSEQ*"
                "ANSI-STREAM"
                "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE"
-               "ANSI-STREAM-ELEMENT-TYPE" "ANSI-STREAM-IN"
+               "ANSI-STREAM-ELEMENT-TYPE"
+               "ANSI-STREAM-FILE-POSITION"
+               "ANSI-STREAM-IN"
                "ANSI-STREAM-IN-BUFFER" "ANSI-STREAM-IN-INDEX"
                "ANSI-STREAM-INPUT-STREAM-P" "ANSI-STREAM-MISC"
                "ANSI-STREAM-N-BIN" "ANSI-STREAM-OPEN-STREAM-P"

diff --git a/tests/gray-streams.impure.lisp b/tests/gray-streams.impure.lisp
index 77a8334..ab827de 100644 (file)
--- a/tests/gray-streams.impure.lisp
+++ b/tests/gray-streams.impure.lisp
@@ -331,3 +331,8 @@
  (make-two-way-stream *part-of-composite* *standard-output*)
  (make-concatenated-stream *part-of-composite*)
  (make-synonym-stream '*part-of-composite*))
+
+;;; Using STREAM-FILE-POSITION on an ANSI-STREAM
+(with-output-to-string (s)
+  (assert (zerop (file-position s)))
+  (assert (zerop (stream-file-position s))))

diff --git a/version.lisp-expr b/version.lisp-expr
index fe6c37c..cb0496f 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".)
-"1.0.17.29"
+"1.0.17.30"