From: Nikodemus Siivola Date: Fri, 6 Jun 2008 11:13:41 +0000 (+0000) Subject: 1.0.17.30: STREAM-FILE-POSITION works on ANSI-STREAMs X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e599dd5bac85b781bc164cce6bf632698a939608;p=sbcl.git 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 --- 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 --- 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 --- 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"