Context Navigation

Changes between Initial Version and Version 1 of Ticket #408

-                      initial
+                      v1
 Stas reports in <http://article.gmane.org/gmane.lisp.armedbear.devel/3588>:
+This does not seem to emit a newline:
+{{{
+(let ((stream (make-synonym-stream '*standard-output*)))
+  (write-string "abc" stream)
+  (fresh-line stream)
+  (write-string "abc" stream))
+}}}
+This does not seem to return the correct character position:
 {{{
 (let ((stream (make-synonym-stream '*standard-output*)))
   (write-char #\c stream)
   (system::stream-charpos stream))
 }}}}
 Returns
+}}}
+as it returns
 {{{
 => 0