0.8.18.18:

	Fix for OUTPUT-NOTHING restart
	... don't advance by a character if we don't output anything

diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index 1f82f56..dfadf54 100644 (file)
--- a/src/code/fd-stream.lisp
+++ b/src/code/fd-stream.lisp
@@ -251,8 +251,8 @@
             (file-position ,stream-var (file-position ,stream-var))))
        (with-simple-restart (output-nothing
                            "~@<Skip output of this character.~@:>")
-        ,@body)
-      (incf (fd-stream-obuf-tail ,stream-var) ,size)
+        ,@body
+        (incf (fd-stream-obuf-tail ,stream-var) ,size))
       ,(ecase (car buffering)
         (:none
          `(flush-output-buffer ,stream-var))

diff --git a/version.lisp-expr b/version.lisp-expr
index 971ce00..dc8e7f4 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.18.17"
+"0.8.18.18"