CMUCL commit: src/code (fd-stream.lisp)

[Raymond Toy]

    Date: Sunday, August 15, 2010 @ 09:03:43
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: fd-stream.lisp

When decoding-error is T, use a question mark for non-unicode builds
instead of the (invalid) Unicode replacement character.


----------------+
 fd-stream.lisp |   11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)


Index: src/code/fd-stream.lisp
diff -u src/code/fd-stream.lisp:1.116 src/code/fd-stream.lisp:1.117
--- src/code/fd-stream.lisp:1.116	Sun Aug 15 08:04:43 2010
+++ src/code/fd-stream.lisp	Sun Aug 15 09:03:43 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.116 2010-08-15 12:04:43 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.117 2010-08-15 13:03:43 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1848,11 +1848,18 @@
 			  (d (cond ((characterp decoding-error)
 				    (constantly (char-code decoding-error)))
 				   ((eq t decoding-error)
+				    #+unicode
 				    #'(lambda (&rest args)
 					(apply 'cerror
 					       (intl:gettext "Use Unicode replacement character instead")
 					       args)
-					stream:+replacement-character-code+))
+					stream:+replacement-character-code+)
+				    #-unicode
+				    #'(lambda (&rest args)
+					(apply 'cerror
+					       (intl:gettext "Use question mark character instead")
+					       args)
+					#\?))
 				   (t
 				    decoding-error))))
 		      (%make-fd-stream :fd fd